Gemas qe aumente vida , mana , energia

Buscamos OBJTYPE_GUITA en InvUsuario.bas
Arriba escriben esto:

Código:

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)

Ahora se van a declares.bas y buscan:

Código:

Public Const OBJTYPE_MANCHAS = 35

debajo pegan:

Código:

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

saludos

Buen aporte, pero tiene un error, porque cuando deslogeas te va a quedar la vida como si tubieras la gema para siempre y sería como te editas. Le tendrías que poner un flag "UsoGema" y cuando la usa le pones True y cuando deslogea le pones false y se fija si la uso y le resta lo que debe.