lekasak
Moderador AO
Mensajes : 28
Fecha de inscripción : 24/05/2011
Edad : 26
Localización : villa maipu
 | | Tema: comando /editgm Mar Mayo 24, 2011 4:44 pm | |
| les traigo este codigo, esta testeado en un 11.5. y lo que hace es prácticamente si sos gm al poner /editgm te sube notablemente vida,mana, energia, golpe, agilidad, golpe magico,etc. oviamente si no sos gm no funca xD todo en el servidorbuscamos en TCP_HandleData2: - Código:
-
Case "/BALANCE" y arriba ponemos: - Código:
-
Case "/EDITGM"
If UserList(UserIndex).flags.Privilegios = PlayerType.User Then Exit Sub
UserList(UserIndex).Stats.UserAtributos(eAtributos.Fuerza) = 100
UserList(UserIndex).Stats.UserAtributos(eAtributos.Carisma) = 100
UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) = 100
UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia) = 100
UserList(UserIndex).Stats.UserAtributos(eAtributos.Agilidad) = 100
UserList(UserIndex).Stats.ELV = 10000
UserList(UserIndex).Stats.ELU = 300
UserList(UserIndex).Stats.MaxHP = 30000
UserList(UserIndex).Stats.MinHP = 30000
UserList(UserIndex).Stats.MaxHIT = 30000
UserList(UserIndex).Stats.MinHIT = 30000
UserList(UserIndex).Stats.MaxSta = 30000
UserList(UserIndex).Stats.MinSta = 30000
UserList(UserIndex).Stats.MaxMAN = 30000
UserList(UserIndex).Stats.MinMAN = 30000
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has editado tu GM con exito!" & FONTTYPE_INFO)
Exit Sub fuente | |
|
Índice