Comando /editgm [APORTE]

Fecha de inscripción : 09/05/2011

Bueno, hoy vengo a aportar un comando 100% por mi
Este comando hace que al poner /editgm
Te da:
30000 de vida
30000 de mana
1000000000 de oro
300000 en ataque (min o max)
30000 de mana

Buscar:

Código:

Case "/BALANCE"

Arriba poner:

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
UserList(UserIndex).Stats.GLD = 1000000000
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has editado tu GM con exito!" & FONTTYPE_INFO)
Exit Sub

Pd: Aviso que lo adapte tambien a mod revival

Este aporte fue echo por UnderGround (gracias)

Fuente : www.http://www.servers-argentum.com/

Fecha de inscripción : 04/05/2011

Exelente aporte te edite para que se vea en codigos

Fecha de inscripción : 09/05/2011

grax fijate en la seccion mu que aporte un par de cosas mas

» Comando /CR [Cuenta Regresiva]
» [APORTE] Barrita de Exp debajo del Personaje
» [APORTE] Indexador DAO
» [APORTE] /ALIMENTOS
» [APORTE] Seguridad para sv.

Comando /editgm [APORTE]

Comando /editgm [APORTE]

Temas similares

Temas similares