Bueno este es un còdigo muy sencillo la verdad, no tengo la menor idea para que lo pueden utilizar.... asique si le encuentran alguna utilidad me lo cuentan.... gracias.
Ahi va (HANDLEDATA2 abajo de Case "/RESUCITAR")
Case "/SUICIDIO"
Call SendData(ToIndex, UserIndex, 0, "¡¡Te has suicidado ¡¡" & FONTTYPE_WARNING)
If UserList(UserIndex).Stats.MinHP < 999 Then 'si el mìnimo de vida es 999 (es decir la vida no tiene que sobrepasar 900 entonces bajarle la vida al usuario a 0 y llamar a la muerte del usuario.
UserList(UserIndex).Stats.MinHP = 0: Call UserDie(UserIndex)
Rem (Le puse los : para hacerlo en una misma lìnea pero si quieren sangrenlo)
End If
Exit Sub
(si desean le agregan un flag en Type Userflags abajo meten:
Suicidio As Variant, este flag es opcional, es si ustedes lo desean poner....
igualmente el còdigo funciona sin el flag)
Bueno eso es todo y suerte.
Ahi va (HANDLEDATA2 abajo de Case "/RESUCITAR")
Case "/SUICIDIO"
Call SendData(ToIndex, UserIndex, 0, "¡¡Te has suicidado ¡¡" & FONTTYPE_WARNING)
If UserList(UserIndex).Stats.MinHP < 999 Then 'si el mìnimo de vida es 999 (es decir la vida no tiene que sobrepasar 900 entonces bajarle la vida al usuario a 0 y llamar a la muerte del usuario.
UserList(UserIndex).Stats.MinHP = 0: Call UserDie(UserIndex)
Rem (Le puse los : para hacerlo en una misma lìnea pero si quieren sangrenlo)
End If
Exit Sub
(si desean le agregan un flag en Type Userflags abajo meten:
Suicidio As Variant, este flag es opcional, es si ustedes lo desean poner....
igualmente el còdigo funciona sin el flag)
Bueno eso es todo y suerte.