Wanna turn weapons proficiencies into a skill like woodcutting or mining?

[or3o]

 
You need to have added this tutorial before you can do this
    http://www.touchofdeathforums.com/smf/index.php/topic,71740.0.html

credit to DJMaxus for his weapons proficiencies tutorial
and a special thanks to Ryoku for showing me how to make resources give exp in the first place.

Here we go, This tutorial works on the assumption that you made a skill called fishing with the weapons proficiencies tutorial but it can be very easily modified for any resource related skill.

  **Server Side**
  First go to modTypes in the ResourcRec
under  **Animation As Long**
Paste
  Dim resourcetype As Byte

Then in **ModPlayer** in sub CheckResources above

**' carry on
  GiveInvItem Index, Resource(Resource_index).ItemReward, 1**

Paste 
```
If Resource(Resource_index).resourcetype = 3 Then
                                      SetPlayerFishingExp Index, GetPlayerFishingExp(Index) + Resource(Resource_index).FiExp
                                      SendEXP Index
                                    End If
```
**Client Side**

  go to modTypes in the ResourcRec
under  **Animation As Long**
paste  FiExp As Long

Then go to ModgameEditors sub ResourceEditorInit
Find  **.scrlAnimation.Value = Resource(EditorIndex).Animation**
```
then add .txtFiExp.text = Resource(EditorIndex).FiExp
```

**Now its time for the form work**
First go to FrmEditor_resource
add a label named lblfiexp and write fishing experience in it.

Then add a textbox (make sure to clear the Text1)
name it txtFiExp

Now double click the text box and paste this
```
' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If Not Len(txtFiExp.text) > 0 Then Exit Sub
    If IsNumeric(txtFiExp.text) Then Resource(EditorIndex).FiExp = Val(txtFiExp.text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtFiEXP_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
```if you have any issues or comments feel free to message me. thank you for reading my first tutorial and i hope you enjoy it.

[SkywardRiver]

Use code tags, otherwise good tut

[or3o]

thanks for the input, I didnt know how to put code tags in (horray  for google).

[or3o]

I updated the tutorial due to an issue a fellow forum member was having, now you just need to set the exp for the resource and it check based on your items fishing req, so to add more skills you wont have to add more scroll bars. also you have to have a success message for it to give you experience, ill fix that next time I edit my server :/

[Guest]

works great thanks for the nice tut

[tslusny]

omg this is worst metod i ever seen for this,u must have only 1 type of resource, like 1 tree, 1 fishing spot etc.  I did this too and i maked checks for types of resource not Resource_Index. Just try to make more ifs and read from cmbType. But nice try :P . I will make tutorial for it if i have time :cheesy:

[Guest]

you must be busy putting shit on your charlie brown christmas tree.  in the mean time, why not test it out before you say its horrible.  why must we only have 1 type of tree ect?  why would we want more ifs?

[or3o]

I havent had a problem with it? i can set the exp differently for each resource and since it checks the kind of item im using  I didnt have to make multiple scroll bars for different types of exp.  If you have a better way of doing it I would be happy to check it out.

Resource(EditorIndex).FiExp    <–  that part checks the resources so u can set different exp for different individual resources. 
and thx for lookin out sotvotkong

[or3o]

if you wanna make it so the higher level your skill is the more damage you do to the resource you can add this

ALL SERVER SIDE

in mod player  sub checkresource
  below```
  rY = ResourceCache(GetPlayerMap(Index)).ResourceData(Resource_num).y
```
replace this```
Damage = Item(GetPlayerEquipment(Index, Weapon)).Data2
```
with this```
itemnum = GetPlayerEquipment(Index, Weapon) 
FI = Item(itemnum).Fishing
                                  If FI > 0 Then
                        Damage = Item(GetPlayerEquipment(Index, Weapon)).Data2 + (GetPlayerFishing(Index) * 2)
                          End If
```and you can add more just by copying this part and renaming the different parts with the different skills you have added. Also if you dont like how much damage this adds  you could easily replace the *2 part with something more fitting.

[kapsel598]

i have error in server
http://postimage.org/image/hmogc2mwj/

[erkro1]

@kapsel598:

> i have error in server
> http://postimage.org/image/hmogc2mwj/

At the top of the sub, add Dim itemnum As Long

[kapsel598]

next error:
http://postimage.org/image/lgkm5yg9n/

[Alatar]

@kapsel598:

> next error:
> http://postimage.org/image/lgkm5yg9n/

@or3o:

> This tutorial works on the assumption that you made a skill called fishing with the weapons proficiencies tutorial but it can be very easily modified for any resource related skill.

[kapsel598]

after tutorial i go to resources, when i write on txt(from the tutorial) or when i click save i have this error: http://postimage.org/image/tj9a50r75/
what i do wrong?

[or3o]

im not sure if i remember to put it in the tutorial but you need to put this

```
fiexp as long
```
in mod types under resource recs in both the client and server portion of mod types.

i cant really access my code at the moment but when i get back onto visual basic ill try n see if that was the issue.

If you would run the server and client in visual basic then click save and show me what gets highlighted i could help you easier, right now i basically have to guess.

[kapsel598]

fiexp is in tutorial, i do everything from tutorial, but not for fishing, for WoodCutting

[or3o]

just run em both in visual basic and when it errors send me a screen shot of whats highlighted k? then ill try n help ya figure it out.

[kapsel598]

in visual basic its not compile error only in game

[kapsel598]

i have lvl requirement for resource, only i must add exp giving how to do this?

[kapsel598]

http://www.touchofdeathforums.com/smf2/index.php/topic,80530.msg862089.html#msg862089
i have this from this script

[or3o]

no open the client and server in visual basic and click run not compile. its how you can run it before compiling to test it out. up near the top of the screen on the left hand sign it should look like a sideways triangle. try not to triple post i think its agianst forum rules, its better to just modify your last post ok?

also read the third post down on that tutorial you just linked me, that makes it so you can have a woodcutting level requirement.

if you want it to add woodcutting experience then on server side add this
in ModPlayer in sub CheckResources above

' carry on
  GiveInvItem Index, Resource(Resource_index).ItemReward, 1

Paste 
```
                  itemnum = GetPlayerEquipment(Index, Weapon)   
                    FI = Item(itemnum).woodcutting
                                  If FI > 0 Then
                                      SetPlayerwoodcuttingExp Index, GetPlayerwoodcuttingExp(Index) + Resource(Resource_index).FiExp
                                      SendPlayerData Index
                                      SendEXP Index
                                    End If [\code]
```

[Whackeddie99]

I added this in and I'm getting RTE subscript out of range, highlights this:

```
CopyMemory ByVal VarPtr(Resource(ResourceNum)), ByVal VarPtr(ResourceData(0)), ResourceSize
```
It says ResourceData =

[or3o]

You deleted your resources out of the server right? ill check n see if i can figure out whats up ok?
I just updated my tutorial to have a better way of determining what skill you are getting experience in if you change the part in server side  mod player, check resource it may fix the issue your having, if that doesnt help just tell me and  ill try n see whats wrong.

[Whackeddie99]

@or3o:

> You deleted your resources out of the server right? ill check n see if i can figure out whats up ok?
> I just updated my tutorial to have a better way of determining what skill you are getting experience in if you change the part in server side  mod player, check resource it may fix the issue your having, if that doesnt help just tell me and  ill try n see whats wrong.

Alright, I'm pretty sure I know the problem, I'm going to retry it. And yes, I cleared resources.

EDIT: you removed the code that actually gives the skill EXP to the player….

[or3o]

sorry man i wasnt fully awake this morning i guess, fixing it now lol
K its fixed, i accidently pasted the code for woodcutting requirements i guess thanks for catching that.