[ER] Error: run-time error '9': Subscript out of range - start whit equipaments put

[Delancis]

Hello, I need your help. I get an error:

**run-time error '9':**

**Subscript out of range**

I'm trying that new players registered, start with equipaments put.

The change in server.vbp codes are:

**In Private Type ClassRec**

```

Malequip(1 To Equipment.Equipment_Count - 1) As Byte

Femalequip(1 To Equipment.Equipment_Count - 1) As Byte

```

**moddatabase in process LoadClasses**

```

' Malestarequip

Class(i).Malequip(Equipment.Armor) = Val(GetVar(filename, "CLASS" & i, "MaleEquipArmor"))

Class(i).Malequip(Equipment.Helmet) = Val(GetVar(filename, "CLASS" & i, "MaleEquipHelmet"))

Class(i).Malequip(Equipment.Shield) = Val(GetVar(filename, "CLASS" & i, "MaleEquipShield"))

Class(i).equip(Equipment.Weapon) = Val(GetVar(filename, "CLASS" & i, "MaleEquipWeapon"))

' Femalestartequip

Class(i).Femalequip(Equipment.Armor) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipArmor"))

Class(i).Femalequip(Equipment.Helmet) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipHelmet"))

Class(i).Femalequip(Equipment.Shield) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipShield"))

Class(i).Femalequip(Equipment.Weapon) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipWeapon"))

```

**and process SaveClasses**

```

' Save Male equipment

Call PutVar(filename, "CLASS" & i, "MaleEquipArmor", STR(Class(i).Malequip(Equipment.Armor)))

Call PutVar(filename, "CLASS" & i, "MaleEquipHelmet", STR(Class(i).Malequip(Equipment.Helmet)))

Call PutVar(filename, "CLASS" & i, "MaleEquipShield", STR(Class(i).Malequip(Equipment.Shield)))

Call PutVar(filename, "CLASS" & i, "MaleEquipWeapon", STR(Class(i).Malequip(Equipment.Weapon)))

' Save Female equipment

Call PutVar(filename, "CLASS" & i, "FemaleEquipArmor", STR(Class(i).Femalequip(Equipment.Armor)))

Call PutVar(filename, "CLASS" & i, "FemaleEquipHelmet", STR(Class(i).Femalequip(Equipment.Helmet)))

Call PutVar(filename, "CLASS" & i, "FemaleEquipShield", STR(Class(i).Femalequip(Equipment.Shield)))

Call PutVar(filename, "CLASS" & i, "FemaleEquipWeapon", STR(Class(i).Femalequip(Equipment.Weapon)))

```

**And finally in the process Addchar**

```

[size] ' set starter equipament

For n = 1 To Equipment.Equipment_Count - 1

If Player(index).Sex = SEX_MALE Then

Player(index).Equipment(n) = Class(ClassNum).Malequip(n)

Else

Player(index).Equipment(n) = Class(ClassNum).Femalequip(n)

End If

Next

[/size]

[color]What is the error or missing?? I'm doing well? help please[/color]
```

[abhi2011]

So where did it error? Try pressing the debug button while in the IDE and it will highlight the code thats is out of range. Paste that code here.

[DeathKnight]

Looking at the above, I would have to guess he gets it when he clicks the create character button.

Did you make sure to add a malequip and femalequip into the text file for your current classes?

[Delancis]

Yes I added the Malequipe and Femalequip in the text, also debug the code. The error I get on the server when I try to Log In or register in the client

[abhi2011]

Which line of code plz.

[Delancis]

The code, which I wrote up in the first post

[abhi2011]

u said the code errored in login. paste the line here.

[Delancis]


I do not know exactly which line the error occurs, so I copied them in the first post the new codes to add the server. So help me to find where this error .. : (