[EO] Weapon Proficiencies/Skill Level

[Mistlight]

i tried again with this but it highlights .cloth and says subscript out of range.

```
Function SetPlayerSkill(ByVal Index As Long, ByVal SkillNum As Long, zx)
    ' If debug mode, handle error then exit out
    'If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Function

        Select Case SkillNum
        Case 1
            zx = Player(Index).Cloth
        Case 2
            zx = Player(Index).Leather
        Case 3
            zx = Player(Index).Plate
        Case 4
            zx = Player(Index).Dagger
        Case 5
            zx = Player(Index).OneSword
        Case 6
            zx = Player(Index).TwoSword
        Case 7
            zx = Player(Index).OneAxe
        Case 8
            zx = Player(Index).TwoAxe
        Case 9
            zx = Player(Index).Wand
        Case 10
            zx = Player(Index).Staff
        Case 11
            zx = Player(Index).Shortbow
        Case 12
            zx = Player(Index).Crossbow
        Case 13
            zx = Player(Index).Shield
        Case 14
            zx = Player(Index).Polearm
        End Select

    ' Error handler
    Exit Function
errorhandler:
    HandleError "SetPlayerSkill", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Function
End Function

```
can anyone help me?

[Guest]

I dont understand what you are trying to do here mist. This isent even part of the tutorial?

[JohnPony]

Try this

```
Function SetPlayerSkill(ByVal Index As Long, ByVal SkillNum As Long, Byval zx as Long)
    ' If debug mode, handle error then exit out
    'If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Function

        Select Case SkillNum
        Case 1
            zx = Player(Index).Cloth
        Case 2
            zx = Player(Index).Leather
        Case 3
            zx = Player(Index).Plate
        Case 4
            zx = Player(Index).Dagger
        Case 5
            zx = Player(Index).OneSword
        Case 6
            zx = Player(Index).TwoSword
        Case 7
            zx = Player(Index).OneAxe
        Case 8
            zx = Player(Index).TwoAxe
        Case 9
            zx = Player(Index).Wand
        Case 10
            zx = Player(Index).Staff
        Case 11
            zx = Player(Index).Shortbow
        Case 12
            zx = Player(Index).Crossbow
        Case 13
            zx = Player(Index).Shield
        Case 14
            zx = Player(Index).Polearm
        End Select

    ' Error handler
    Exit Function
errorhandler:
    HandleError "SetPlayerSkill", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Function
End Function
```
Or This

```
Function SetPlayerSkill(ByVal Index As Long, ByVal SkillNum As Long)
Dim ZX as long
    ' If debug mode, handle error then exit out
    'If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Function

        Select Case SkillNum
        Case 1
            zx = Player(Index).Cloth
        Case 2
            zx = Player(Index).Leather
        Case 3
            zx = Player(Index).Plate
        Case 4
            zx = Player(Index).Dagger
        Case 5
            zx = Player(Index).OneSword
        Case 6
            zx = Player(Index).TwoSword
        Case 7
            zx = Player(Index).OneAxe
        Case 8
            zx = Player(Index).TwoAxe
        Case 9
            zx = Player(Index).Wand
        Case 10
            zx = Player(Index).Staff
        Case 11
            zx = Player(Index).Shortbow
        Case 12
            zx = Player(Index).Crossbow
        Case 13
            zx = Player(Index).Shield
        Case 14
            zx = Player(Index).Polearm
        End Select

    ' Error handler
    Exit Function
errorhandler:
    HandleError "SetPlayerSkill", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Function
End Function
```

[Mistlight]

@ daxterxx :  what i am trying to do here is to have a function that can be used for all the proficiency instead of having a function for each proficiency.

@general pony : i found out that i had a error due to me not editing setplayerskill client side.  thank you anyway :D

[jmng14]

i have a question. whats the difference between sub and function? why does SwordsLevelUp and SetPlayerSwordsExp uses sub while GetPlayerSwordsExp, SetPlayerSwords and GetPlayerSwords uses function?

Also, what is public function?

[Shippous]

Cant make 2 types of weapons, the second one just keep showing lvl 0 and 0/0 exp. or lvl 0 and 100/0 exp.

[soulsoldier2]

nice tut thx man!

[minipimp]

When searching for```

Case ITEM_TYPE_WEAPON

```in the server, there is no```

Public Sub Use Item

```. What could I do?

[Justn]

Go to mod player click the drop down box on the right side of the module and scroll down to the bottom u will see useitem or just search for it its there its just one word not two

[minipimp]

Thanks. I wish I could figure out how to update the Level/TNL for the skills every time I attack, I tried something and it didnt work, any suggestions?

[minipimp]

Edited post completely,sorry for the double.

[TheNorthHarrier]

This is a great system.

[iraasta]

Does it work for Event System?

[Joyce]

It should work, albeit with minor adjustments. The internal workings of the stat system were never changed.

[iraasta]

It is different since ItemEditorInit. And can't find any other file similar

[Joyce]

That's because Eclipse Advanced has this in a seperate project, not the default client.(Although, I think this is a silly idea because you need to edit TWO binaries rather than one when you add new features. But alas.) Look for something refered to as the Editor/Developper Suite.

[Ganjika]

Does this/Can this work on Nightly Dx8 in its current form as presented in the tutorial above?

[or3o]

This is too good to be on page 7 of the forum!