Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Gemas aumentadoras de stats Jue Jul 03, 2008 12:22 am | |
| 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 | |
|