[aporte] auto resucitar para el sacerdote

Tema: [aporte] auto resucitar para el sacerdote Sáb Mayo 28, 2011 9:17 pm

AutoResucitar para el sacerdote (V.11.5)

Buscamos :

Código:: Call MakeNPCChar(False, MapData(.Pos.Map, X, Y).UserIndex, NpcIndex, .Pos.Map, .Pos.X, .Pos.Y)

Y abajo :

Código:: If Npclist(NpcIndex).NPCtype = Revividor Then
'si el usuario esta muerto
If UserList(MapData(Map, X, Y).userindex).flags.Muerto = 1 Then
'revivir usuario
Call RevivirUsuario(MapData(Map, X, Y).userindex)
Call SendData(SendTarget.ToIndex, userindex, 0, "||¡¡Hás sido resucitado!!" & FONTTYPE_INFO)
UserList(MapData(Map, X, Y).userindex).Stats.MinHP = UserList(MapData(Map, X, Y).userindex).Stats.MaxHP
Call SendUserStatsBox(MapData(Map, X, Y).userindex)
Call SendData(SendTarget.ToIndex, userindex, 0, "||¡¡Hás sido curado!!" & FONTTYPE_INFO)
'Si esta vivo pero no tiene toda la vida
ElseIf UserList(MapData(Map, X, Y).userindex).Stats.MinHP < UserList(MapData(Map, X, Y).userindex).Stats.MaxHP Then
'curarlo
UserList(MapData(Map, X, Y).userindex).Stats.MinHP = UserList(MapData(Map, X, Y).userindex).Stats.MaxHP
Call SendUserStatsBox(MapData(Map, X, Y).userindex)
Call SendData(SendTarget.ToIndex, userindex, 0, "||¡¡Hás sido curado!!" & FONTTYPE_INFO)
End If
End If