Tema: Cada clase comienza con ekipoinicial

Decime que servidor estas usando y yo te hago el codigo con mucho gusto.

Revisa un cachito esto en ConnectNewUser intenta entenderlo y vas a sacarlo al toque, no cuesta mucho.

Código PHP:

UserList(UserIndex).Invent.NroItems = 4

UserList(UserIndex).Invent.Object(1).ObjIndex = 467
UserList(UserIndex).Invent.Object(1).amount = 100

UserList(UserIndex).Invent.Object(2).ObjIndex = 468
UserList(UserIndex).Invent.Object(2).amount = 100

UserList(UserIndex).Invent.Object(3).ObjIndex = 460
UserList(UserIndex).Invent.Object(3).amount = 1
UserList(UserIndex).Invent.Object(3).Equipped = 1

Select Case UserRaza
    Case eRaza.Humano
        UserList(UserIndex).Invent.Object(4).ObjIndex = 463
    Case eRaza.Elfo
        UserList(UserIndex).Invent.Object(4).ObjIndex = 464
    Case eRaza.Drow
        UserList(UserIndex).Invent.Object(4).ObjIndex = 465
    Case eRaza.Enano
        UserList(UserIndex).Invent.Object(4).ObjIndex = 466
    Case eRaza.Gnomo
        UserList(UserIndex).Invent.Object(4).ObjIndex = 466
End Select

UserList(UserIndex).Invent.Object(4).amount = 1
UserList(UserIndex).Invent.Object(4).Equipped = 1

UserList(UserIndex).Invent.ArmourEqpSlot = 4
UserList(UserIndex).Invent.ArmourEqpObjIndex = UserList(UserIndex).Invent.Object(4).ObjIndex

UserList(UserIndex).Invent.WeaponEqpObjIndex = UserList(UserIndex).Invent.Object(3).ObjIndex
UserList(UserIndex).Invent.WeaponEqpSlot = 3 


PD: Eso lo saque de 0.12.1 talves es diferente a tu version.

Sip como dice Mateo , mira te explico un poquito

Código:

UserList(UserIndex).Invent.NroItems = 4 'Aqui se le asigna que va tener 4 items

UserList(UserIndex).Invent.Object(1).ObjIndex = 467 ' aqui se asigna que el primero seria el Index osea el dat el 467
UserList(UserIndex).Invent.Object(1).amount = 100 ' y tendria una cantidad de 100 son las pociones

UserList(UserIndex).Invent.Object(2).ObjIndex = 468 ' lo mismo pero con el segundo
UserList(UserIndex).Invent.Object(2).amount = 100 ' cantidad igual del 2

UserList(UserIndex).Invent.Object(3).ObjIndex = 460 'aqui igual pero 3
UserList(UserIndex).Invent.Object(3).amount = 1 ' igual
UserList(UserIndex).Invent.Object(3).Equipped = 1 ' aqui cambia porque es un arma o armadura o escudo nose pero es para que lo tenga equipado

Select Case UserRaza ' selecciona la raza
    Case eRaza.Humano ' si es humano
        UserList(UserIndex).Invent.Object(4).ObjIndex = 463 ' le entrega lo del humano
    Case eRaza.Elfo ' si es elfo 
        UserList(UserIndex).Invent.Object(4).ObjIndex = 464 ' lo del elfo
    Case eRaza.Drow ' asi con todos estos
        UserList(UserIndex).Invent.Object(4).ObjIndex = 465
    Case eRaza.Enano
        UserList(UserIndex).Invent.Object(4).ObjIndex = 466
    Case eRaza.Gnomo
        UserList(UserIndex).Invent.Object(4).ObjIndex = 466
End Select ' termina la seleccion

UserList(UserIndex).Invent.Object(4).amount = 1 ' y aqui la cantidad del item 4
UserList(UserIndex).Invent.Object(4).Equipped = 1 ' y aqui pone que se  equipq

UserList(UserIndex).Invent.ArmourEqpSlot = 4 ' aqui pone que la armadura se equipe osea es para que sepa que esta la armadura puesta entonces el objeto 4 seria la armadura
UserList(UserIndex).Invent.ArmourEqpObjIndex = UserList(UserIndex).Invent.Object(4).ObjIndex ' y aqui se asigna el index de la aradura que es la 4 pero ya la asignamos en el select

UserList(UserIndex).Invent.WeaponEqpObjIndex = UserList(UserIndex).Invent.Object(3).ObjIndex ' aqui el arma 
UserList(UserIndex).Invent.WeaponEqpSlot = 3 ' lo mismo se le asigna que es un arma

Ya vez no es muy complicado ahora si quieres que sea por cada clase puedes colocar despues un If
If userlist(userindex).flags.clase = "Clerigo" Then asi creo que era en flags o nose xD no recuerdo pero bueno y asignas lo que quieres y por ejemplo asi mira:

Código:

If userlist(userindex).flgas.clase = "Clerigo" THen
UserList(UserIndex).Invent.NroItems = 6
y todo lo que le da pero solo agregas lo que quieres
ElseIf userlist(userindex).flags.clase = "Paladin" Then
bla etc
End if

y asi yy si necesitas que sea hombreentonces es lo mismo

Código:

if userlist(userindex).sexo = "Hombre" then
If userlist(userindex).flgas.clase = "Clerigo" THen
UserList(UserIndex).Invent.NroItems = 6
y todo lo que le da pero solo agregas lo que quieres
ElseIf userlist(userindex).flags.clase = "Paladin" Then
bla etc
End if
ElseIf userlist(userindex).sexo = "Mujer" Then
If userlist(userindex).flgas.clase = "Clerigo" THen
UserList(UserIndex).Invent.NroItems = 6
y todo lo que le da pero solo agregas lo que quieres
ElseIf userlist(userindex).flags.clase = "Paladin" Then
bla etc
End if

L averdad no recuerdo tampoco donde iva la variable si era hombre o mujer :S pero puees buscarlo xD y asi lo haces vez?
End if