RESET sistema version B

[aliand01]

...RESET PARA ALTER ENGINE...


Hola, Le aplique reingenieria al script de Ellesar y lo volvi a realizar desde 0 usando los mismos principios que el script de el esclusivamente para AE, Este scrip es para resetears el personaje Al llegar a determinado nivel de forma automatica o que el jugador decida, depende de cual opcion escojas..
La idea de permitir al usuario elegir es que algunos creen que es mejor no resetearse de manera que tenemos que crear ventajas a los jugadores para que ellos deseen resetearse, por ejemplo yo les permito usar el comando de teletransportacion hacia otro jugador o el de poner un portal si tienen una cantidad de resets determinada de resets.


Caracteristicas:
* Reset a un Nivel determinado
* Puntos Bonus al Resetear
* Conteo de Resets
* Teletransportacion del Jugador al Mapa de origen

Novedades:

-La variacion de Este scrip con respeto al anterior, es que se cambio a una Sub de forma que si son varias opciones de reset se reduce las lineas de scripts a colocar en el main.
-Se cambio que se coloque el reset a 0 que estaba limitado solo al crear un personaje, para que se realice al entrar al juego a todos los jugadores.(Indispensable si quieres usar como If la cantidad de resets)
-En este script al resetearse le quita toda la equipacion al jugador, de manera que tendra que usar las armas correspondientes a su nivel (con las ventajas de los puntos que obtiene), evitando que el jugador utilice los equipos del nivel maximo.
-Opcion de permitir al usuario desidir si quiere o no resetearse.(si eliges esta opcion).
-Se quito el simbolo "º" debido a que los usuarios que usan darksunlight no se les reconoce ese simbolo.


Para poder usar el sistema necesitan crear una carpeta llamada ExtrasPersonaje dentro del server en la carpeta Scripts

Para inciar Buscamos:

Código:

Sub JoinGame(index)

Y colocamos lo siguiente:

Código:

If GetVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "N") = "" Then
Call PutVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "N", 0)
End If

Abajo al final de main Pegan la siguiente Sub..

Código:

Sub reset(index)
Dim Rndi
Dim Ply
Dim Puntos


Rndi = GetVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "Resets", "N")
Ply = Rndi + 1
Puntos = Ply * 200

Call PutVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "N", "" & Ply)
Call SetPlayerLevel(Index, 1)
Call SetPlayerPOINTS(Index, 0)
Call SetPlayerPOINTS(Index, GetPlayerPoints(Index) + Puntos)
Call SetPlayerSTR(Index, GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "STR"))
Call SetPlayerDEF(Index, GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "DEF"))
Call SetPlayerSPEED(Index, GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "SPEED"))
Call SetPlayerMAGI(Index, GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "MAGI"))
Call PlayerWarp(Index, GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "MAP"), GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "X"), GetVar("/Clases/Class" & GetPlayerClass(index) & ".ini", "CLASS", "Y"))
Call SetPlayerExp(Index, 0)
Call PlayerMsg(Index, "Tienes " & Resets & " Resets, Felicitaciones", WHITE)
Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)
Call SetPlayerWeaponSlot( Index, 0)
Call SetPlayerArmorSlot( Index, 0)
Call SetPlayerHelmetSlot( Index, 0)
Call SetPlayerShieldSlot( Index, 0)
Call SetPlayerNecklaceSlot( Index, 0)
Call SetPlayerRingSlot( Index, 0)
Call SetPlayerLegsSlot( Index, 0)
call sendwornequipment(index)
Call SendPlayerData(Index)
End Sub

En Donde: Puntos = Ply * 200 ... 200 es la cantidad de puntos que se le dara al jugador multiplicada por el Numero de resets, por ejemplo si es el 3 reset..el jugador tendria 600 puntos en este caso.


OPCION 1: Si quieres que el jugador Pueda desidir si quiere resetearse.

Te diriges a

Código:

Sub PlayerPrompt(index, Prompt, Value)

Luego de
Select Case Value

Pegar segun el caso que te corresponda la opcion de SI:

Código:

Case 6
    If GetPlayerLevel(Index) >= 700 Then
    Call reset(Index)
    Else
    Call PlayerMsg(Index, "Minimi nivel de reset 700", 14)
End If

Donde:
Case 6 ... (6 Seria el numero de case que te corresponda)
If GetPlayerLevel(Index) >= 700 Then (700 seria el nivel al que se resetea)


Luego de lo siguiente:

End Select
Else
Select Case Value

Agregas en el caso correspondiente. como opcion negativa

Código:

Case 6
Call PlayerMsg(Index, "Jugar con reset trae sus ventajas,!", 13)

Donde:
Case 6 (6 seria el numero del case que te corresponda, debe ser el mismo que en la opcion positiva)


OPCIONES PARA RESETEARSE SOLO SI ACEPTASTE LA OPCION ANTERIOR DE PREGUNTARLE AL JUGADOR


Si quieres preguntarle al llegar al nivel maximo agrega en:

Código:

Sub PlayerLevelUp(index)

Antes de terminar el sub el siguiente codigo.

Código:

If GetPlayerLevel(Index) >= 700 Then
Call Prompt(index, "Deseas Resetear tu personaje?", 6)
End If

Donde:
If GetPlayerLevel(Index) >= 700 Then (700 seria el nivel al que se resetea)

Si lo deseas hacer para los jugadores que ya tienen el nivel agrega este comando.

Código:

Case "/reset"
        Call Prompt(index, "Deseas Resetear tu personaje?", 6)
     Exit Sub

Si en vez de eso quieres colocarlo como un NPC para resetearse, busca:

Código:

Sub ScriptedNPC(index, Script)

Y agrega esto

Código:

Case 3
Call Prompt(index, "Deseas Resetear tu personaje?", 6)

Donde:
Case 3 ( 3 es el numero de case correspondiente, si es el primero seria 0)


Donde en los tres casos anteriores podemos destacar que:

Call Prompt(index, "Deseas Resetear tu personaje?", 6) ( El texto es la pregunta y el 6, es el numero de Sub PlayerPrompt, el que realizaste al inicio)


OPCION 2: De forma automatica, sin preguntas.


Si quieres que al llegar al nivel maximo se ejecute, agrega en:

Código:

Sub PlayerLevelUp(index)

Antes de terminar el sub lo siguiente:

Código:

If GetPlayerLevel(Index) >= 700 Then
Call reset(Index)
End If

Donde:
If GetPlayerLevel(Index) >= 700 Then (700 seria el nivel al que se resetea)


Si lo deseas hacer para los jugadores que ya tienen el nivel agrega este comando.

Código:

Case "/reset"
    Call reset(Index)
     Exit Sub

Si en vez de eso quieres colocarlo como un NPC para resetearse, busca:

Código:

Sub ScriptedNPC(index, Script)

Y agrega esto

Código:

Case 3
    Call reset(Index)

Donde:
Case 3 ( 3 es el numero de case correspondiente, si es el primero seria 0)

[Augusto]

¿ Lo probaste si funciona ?

[Atem]

Si lo probo y su funciona..gracias kami..grande aportes los tuyos

[aliand01]

(05-11-2011 09:40 PM)Augusto escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.¿ Lo probaste si funciona ?

Llevo dos semanas usandolo en mi juego.

[Augusto]

(Tu juego es una maravilla)

[Sheyk87]

Esta genial, consiso y muy entendible!

[BrYaNxLoBo]

muchas grasias eso era lo que buscaba
muchas grasiasasssss

[Drake]

Genial siempre sorprendiendo apoyo a la nueva version 3.7 de tu game que salga pronto

[BrYaNxLoBo]

ola soy yo otravez, pero esta vez queria pedirles a alguno de ustedes si me podria pasar un main que tenga el sistema de reset incorporado ya que me confundo mucho porque tiene muchas opciones
quiero que tenga las siguientes caracteristicas:
-que al llegar al nivel 400 le salga un mensaje de que ya puede resetearse
-que se resetee con el comando /reset
-y que al colocar el comando le salga un cuadro de que si acepta o no
eso es todo grasias....

[BrYaNxLoBo]

porfa en verdad lo nesecito, si alguien puede hacerme ese trabajito porfis