Gemas aumentadoras de stats

1-Busquen OBJTYPE_GUITA en InvUsuario.bas
2-Arriba escriben esto:

Citación :

Case OBJTYPE_GEMAVIDA
If UserList(UserIndex).Flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas Muerto!! Solo podes usar las Gemas cuando estas vivo. " & FONTTYPE_INFO)
Exit Sub
End If
UserList(UserIndex).Stats.MaxHP = UserList(UserIndex).Stats.MaxHP + 50
Call QuitarUserInvItem(UserIndex, Slot, 1)
Call SendData(ToIndex, UserIndex, 0, "||Has Usado la Gema de Vida" & FONTTYPE_TALK)

Case OBJTYPE_GEMAENER
If UserList(UserIndex).Flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas Muerto!! Solo podes usar las Gemas cuando estas vivo. " & FONTTYPE_INFO)
Exit Sub
End If
UserList(UserIndex).Stats.MaxSta = UserList(UserIndex).Stats.MaxSta + 50
Call QuitarUserInvItem(UserIndex, Slot, 1)
Call SendData(ToIndex, UserIndex, 0, "||Has Usado la Gema de Energia" & FONTTYPE_TALK)

Case OBJTYPE_GEMAMANA
If UserList(UserIndex).Flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas Muerto!! Solo podes usar las Gemas cuando estas vivo. " & FONTTYPE_INFO)
Exit Sub
End If
UserList(UserIndex).Stats.MaxMAN = UserList(UserIndex).Stats.MaxMAN + 50
Call QuitarUserInvItem(UserIndex, Slot, 1)
Call SendData(ToIndex, UserIndex, 0, "||Has Usado la Gema de Mana" & FONTTYPE_TALK)

3-Ahora se van a declares.bas y buscan:Public Const OBJTYPE_MANCHAS = 35 y debajo pegan:

Citación :

Public Const OBJTYPE_GEMAVIDA = 37
Public Const OBJTYPE_GEMAENER = 38
Public Const OBJTYPE_GEMAMANA = 39

Por ultimo copilan y en el obj.dat agregarian esto:

[OBJ321]
Name=Gema de Vida
ObjType = 37
etc etc etc

[OBJ328]
Name=Gema de Mana
ObjType = 39
etc etc etc

[OBJ324]
Name=Gema de Energia
ObjType = 38
etc etc etc