[S] Script de Muerte y Resurrección

[Alatar]

Bueno, este es el script más completo que hice hasta ahora xD. Me llevó bastante tiempo pero creo que el resultado lo vale

¿Que hace este script?
- Crea sitios de guardado, cosa de que si mueres resucitas ahi.
- Al morir reemplaza tu sprite por uno muerto y te impide realizar cualquier acción (ataque, movimiento, etc.)
- Mientras estés muerto los enemigos (personajes) no te pueden atacar.
- Al morir se abre el menu de resurrección (tarda X segundos en abrirse), que te permite elegir si revivir en ese mismo lugar o en tu punto de guardado.
- Si estás muerto y cerraste el menú de resurrección podés tocar la tecla SUPR para abrirlo de nuevo.
- Si cerrás el juego estando muerto y volves a entrar, apareces en ese mismo lugar, vivo pero con el sprite normal, no el de muerto
- Al revivir se muestra una animacion

---

Nombre: Muerte y Resurrección
Autor: Alatar *
Dificultad: 3/5
Funcionalidad: Comprobada

Reemplazar el Sub OnDeath por esto:

Cita:Sub OnDeath(Index)
Call LockPlayer(index, 1)
Call LockSpells(index, 1)
Call LockItems(index, 1)
Call LockAttack(index, 1)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","SPRITE","" & GetPlayerSprite(index))
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","STATUS","Muerto")
Call SetPlayerSprite(index, Nº)
Call SendPlayerData(Index)
Call SetTimer("ResMenu " & Index, Xº000)
Call CustomMenuShow(index,"Resurrection","\GUI\Custom\reswait.bmp", 1)
End Sub

Reemplazar el Sub OnPvpDeath por esto:

Cita:Sub OnPVPDeath(Attacker, Victim)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Victim)&".ini","CHECKPOINT","SPRITE","" & GetPlayerSprite(Victim))
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Victim)&".ini","CHECKPOINT","STATUS","Muerto")
Call GlobalMsg(GetPlayerName(Victim) & " ha sido derrotado por " & GetPlayerName(Attacker), BRIGHTRED)
Call LockPlayer(Victim, 1)
Call LockSpells(Victim, 1)
Call LockItems(Victim, 1)
Call LockAttack(Victim, 1)
Call SetPlayerSprite(Victim, Nº)
Call SendPlayerData(Victim)
Call SetTimer("ResMenu " & Index, Xº000)
Call CustomMenuShow(Victim,"Resurrection","\GUI\Custom\reswait.bmp", 1)
End Sub

Reemplazar el Sub OnAttack por esto:

Cita:Sub OnAttack(Index, Damage)
Dim Target
Dim Status

If Int(Damage) > 0 Then
If Int(GetPlayerTarget(Index)) > 0 Then
Target = GetPlayerTarget(Index)
Status = GetVar("Scripts\CheckPoints\"&GetPlayerName(GetPlayerTarget(Index))&".ini", "CHECKPOINT", "STATUS")
If Status = "Muerto" Then
Call PlayerMsg(Index, "No puedes atacar a alguien muerto.", WHITE)
Exit Sub
End If
Call DamagePlayer(Index, Target, Damage)
Else
Target = GetPlayerTargetNpc(Index)
Call DamageNPC(Index, Target, Damage)
End If
End IF
End Sub

Reemplazar el Sub OnArrowHit por esto:

Cita:Sub OnArrowHit(Index, Damage)
Dim Target
Dim Status

If Int(Damage) > 0 Then
If Int(GetPlayerTarget(Index)) > 0 Then
Target = GetPlayerTarget(Index)
Status = GetVar("Scripts\CheckPoints\"&GetPlayerName(GetPlayerTarget(Index))&".ini", "CHECKPOINT", "STATUS")
If Status = "Muerto" Then
Call PlayerMsg(Index, "No puedes atacar a alguien muerto.", WHITE)
Exit Sub
End If
Call DamagePlayer(Index, Target, Damage)
Else
Target = GetPlayerTargetNpc(Index)
Call DamageNPC(Index, Target, Damage)
End If
End If
End Sub

Dentro de Sub MenuScripts, en el Case 1 pegar esto:

Cita:If Clicked_Index = 1 Then
Call CustomMenuClose(index)
Call ResHere(Index)
End If

If Clicked_Index = 2 Then
Call CustomMenuClose(index)
Call ResCheckPoint(Index)
End If

Reemplazar el Sub OnNewChar por esto:

Cita:Sub OnNewChar(Index, CharNum)
Call SetCheckPoint(Index)
End Sub

Reemplazar el Sub LeftGame por esto:

Cita:Sub LeftGame(Index)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","STATUS","Vivo")
If GetPlayerAccess(Index) = 0 Then
Call GlobalMsg(GetPlayerName(Index) & " ha salido de " & GameName & "!", GREY)
Else
Call GlobalMsg("El Administrador " & GetPlayerName(Index) & " ha salido de " & GameName & "!", YELLOW)
End If
End Sub

Dentro del Sub JoinGame, justo arriba de Call SendWhosOnline(Index) pegar esto:

Cita:Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","STATUS","Vivo")
If GetPlayerSprite(Index) = Nº Then
Call SetPlayerSprite(Index, GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "SPRITE"))
Call SendPlayerData(Index)
End If

En un Case del Sub ScriptedTile pegar esto:

Cita:Case X
Call SetCheckPoint(Index)
Call PlayerMsg(Index, "Has activado este punto de guardado, al morir resucitaras aqui.", BRIGHTGREEN)
Exit Sub

Reemplazar el Sub HotScripts por esto:

Cita:Sub HotScript(Index, KeyID)
Dim Status
Status = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "STATUS")
Select Case KeyID
' Tecla PaginaArriba
Case 1

' Tecla Suprimir
Case 2
If Status = "Muerto" Then
Call SetTimer("ResMenu " & Index, Xº000)
Call CustomMenuShow(index,"Resurrection","\GUI\Custom\reswait.bmp", 1)
End If

' Tecla Fin
Case 3

' Tecla PaginaAbajo
Case 4
End Select
End Sub

Al final del Main.txt pegar esto:

Cita:Sub ResCheckPoint(Index)
Dim MapNum
Dim X
Dim Y
Dim Sprite

MapNum = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "MAP")
X = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "X")
Y = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "Y")
Sprite = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "SPRITE")

Call LockPlayer(index, 0)
Call LockSpells(index, 0)
Call LockItems(index, 0)
Call LockAttack(index, 0)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","STATUS","Vivo")
Call SetPlayerSprite(Index, Sprite)
Call SendPlayerData(Index)
Call PlayerWarp(Index, MapNum, X, Y)
Call SpellAnim(Aº,GetPlayerMap(Index),GetPlayerX(Index),GetPlayerY(Index))
End Sub

Sub ResHere(Index)
Dim Sprite
Sprite = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "SPRITE")
Call LockPlayer(index, 0)
Call LockSpells(index, 0)
Call LockItems(index, 0)
Call LockAttack(index, 0)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","STATUS","Vivo")
Call SetPlayerSprite(Index, Sprite)
Call SendPlayerData(Index)
Call SpellAnim(Aº,GetPlayerMap(Index),GetPlayerX(Index),GetPlayerY(Index))
End Sub


Sub SetCheckPoint(Index)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","MAP","" & GetPlayerMap(Index))
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","X","" & GetPlayerX(Index))
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini","CHECKPOINT","Y","" & GetPlayerY(Index))
End Sub


Sub ResMenu(Index)
Call RemoveTimer("ResMenu " & Index)
Call CustomMenuClose(index)
Call CustomMenuShow(index,"Resurrection","\GUI\Custom\res.bmp", 1)
Call CustomMenuPicture(index, 1, "\GUI\CUSTOM\res1.bmp", 26, 76)
Call CustomMenuPicture(index, 2, "\GUI\CUSTOM\res2.bmp", 153, 76)
End Sub

Instrucciones:

• Crear una carpeta llamada Checkpoints dentro de la carpeta Scripts del Servidor
• Reemplazar los Nº por el numero del sprite que representa a un personaje muerto (un cadaver o similar).
• Reemplazar las Aº por el número de un hechizo, su animación aparecerá cuando el personaje resucite
• Reemplazar las Xº del Timer por la cantidad de segundos.
  

Cualquier error o problema me dicen, un saludo

*: A pesar de que la gran parte del código es de mi autoría, la parte de Checkpoint (punto de guardado) es de 6dragon6 y esos creditos le corresponden a él.


Por último deben pegar los siguientes archivos (pueden modificarlos fácilmente) dentro de /Cliente/GUI/CUSTOM/:

[Maggot27]

wow... jaja sos un genio del script al igual que dragon xD al mejor estilo world of warcraft! xD esto me sirve una enormidad y se que a todos tambien y si lo posteaste es por que funciona xD asi que... a disfrutar

[Daemon]

genioooooooooooooooooo ere mi nuevo idolo!!!!!!!!!!!!!!!!!!!!, XD gracias men lo boy a usar ta algito dificial pero weno XD

[nahuen89]

estaria bueno que para revivir en el lugar de muerte tena que ser por otro usuario con un poder de revivir o un item seria un poco mas logico je es mi opinion nomas y mi peticion jeje

[Player-xD]

Muy bueno la verdad este script me sirve bastante

[Alatar]

(22-03-2010 03:34 AM)nahuen89 escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.estaria bueno que para revivir en el lugar de muerte tena que ser por otro usuario con un poder de revivir o un item seria un poco mas logico je es mi opinion nomas y mi peticion jeje

También se puede hacer, veo si mañana hago un código para que se use en un scripted item/spell.

[Drix]

Gracias alatar XD

[Alatar]

PLUS
Para que un scripted item/spell te permita revivir a alguien muerto, este sería el script.

Dentro de ScriptedItem o ScriptedSpells, en la parte superior por encima de Select Case Script:

Cita:Dim Status
Dim Target
Dim Sprite

En un Case debajo:

Cita:Case X
Status = GetVar("Scripts\CheckPoints\"&GetPlayerName(Target)&".ini", "CHECKPOINT", "STATUS")
Target = GetPlayerTarget(Index)
Sprite = GetVar("Scripts\CheckPoints\"&GetPlayerName(Index)&".ini", "CHECKPOINT", "SPRITE")

If Status = "Muerto" Then
Call LockPlayer(Target, 0)
Call LockSpells(Target, 0)
Call LockItems(Target, 0)
Call LockAttack(Target, 0)
Call PutVar("Scripts\CheckPoints\"&GetPlayerName(Target)&".ini","CHECKPOINT","STATUS","Vivo")
Call SetPlayerSprite(Target, Sprite)
Call SendPlayerData(Target)
Call SpellAnim(Aº,GetPlayerMap(Target),GetPlayerX(Target),GetPlayerY(Target))
End If
Exit Sub

Instrucciones:
Reemplazar X por el numero del Case.
Reemplazar Aº por la animación de revivir.

NOTA: No esta probado xD

[violentrock]

Muy bueno , dejo gracias.

[reeye152]

Muy bueno pero servira tambien con el scrips de playasurf Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces. en la parte de que alguien con un hechizo pueda revivir a otro de una sola ves sin esperar el respawn