DosManos para Armas!
1. En Declaraciones, buscar...
y abajo colocar
2. En ES (FileISO) buscar...
y abajo poner
3. En InvUsuario buscar...
y abajo colocar
4. despues buscar en el mismo archivo....
y abajo poner...
1. En Declaraciones, buscar...
Código:
' Tipos de objetos
Public Type ObjData
Código:
' [GS] DosManos
DosManos As Boolean
2. En ES (FileISO) buscar...
Código:
If ObjData(Object).ObjType = OBJTYPE_WEAPON Then
ObjData(Object).WeaponAnim = val(Leer.DarValor("OBJ" & Object, "Anim"))
Código:
' [GS] DosManos
ObjData(Object).DosManos = IIf(val(Leer.DarValor("OBJ" & Object, "DosManos")) = 1, True, False)
3. En InvUsuario buscar...
Código:
UserList(Userindex).Invent.Object(Slot).Equipped = 1
UserList(Userindex).Invent.WeaponEqpObjIndex = UserList(Userindex).Invent.Object(Slot).ObjIndex
UserList(Userindex).Invent.WeaponEqpSlot = Slot
Código:
' [GS] DosManos
If ObjData(UserList(Userindex).Invent.Object(Slot).ObjIndex).DosManos = True Then
Call Desequipar(Userindex, UserList(Userindex).Invent.EscudoEqpSlot)
End If
Código:
'Quita el anterior
If UserList(Userindex).Invent.EscudoEqpObjIndex > 0 Then
Call Desequipar(Userindex, UserList(Userindex).Invent.EscudoEqpSlot)
End If
Código:
' [GS] DosManos
If UserList(Userindex).Invent.WeaponEqpObjIndex > 0 Then
If ObjData(UserList(Userindex).Invent.WeaponEqpObjIndex).DosManos = True Then
Call Desequipar(Userindex, UserList(Userindex).Invent.WeaponEqpSlot)
End If
End If