[Script] Resets V 1.0 (Con Main.txt incluido)

[Ellesar]

Script Resets

Hola a todos este es mi tercer scrip creado esclusivamente para AE, este scrip hace que el pj resetee al estili Mu Online.
Para lo que no sepan lo que es Resetear lean lo siguiente
[Spoiler=Reset]Al llegar con un PJ a un cierto Nivel determinado digamos 100, el PJ VUELVE al nivel 1 pero en este caso se le dan puntos bonus para poder utilizar. [/spoiler]

Bueno el código en sí es bastante sencillo de colocar. Pero antes de colocar el Código vamos a la carpeta de Scrips y allí dentro creamos otra con el nombre de

Cita:ExtrasPersonaje

, tienen que crearla con ese nombre

Ahora el código, primero que todo buscamos Sub OnNewChar(Index) y agregamos la siguiente línea entre Sub OnNewChar(Index) y End Sub

Cita:Call PutVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº", 0)

Luego.

Buscamos Sub LevelUp(Index)
[spoiler]

Cita:Sub PlayerLevelUp(Index)
Dim TotalExp

Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index)
Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)

Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1)
Call SetPlayerExp(Index, TotalExp)
Loop

Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)
End Sub

[/spoiler]
abajo de Sub level Up, agregamos lo siguiente

Cita:Dim Resets

Y luego entre

Cita:Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)

y el

Cita:End Sub

Colocamos el Siguiente
[Spoiler=Codigo]

Cita:If GetPlayerLevel(Index) >= 40 Then

Resets = GetVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº")

Resets = Resets + 1

Call PutVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº", "" & Resets)

Call SetPlayerLevel(Index, GetPlayerLevel(index) + -GetPlayerLevel(Index))

Call SetPlayerLevel(Index, GetPlayerLevel(index) + 1)

Call SetPlayerPOINTS(Index, 0)

Call PlayerMsg(Index, "Tienes " & Resets & " Resets, Felicitaciones", WHITE)

Resets = Resets * 100

Call SetPlayerPOINTS(Index, GetPlayerPoints(Index) + Resets)

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 SendPlayerData(Index)

Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)

End If

[/spoiler]

Bueno ahora para configurar el Scrip es más sencillo que colocarlo ^^.

[Spoiler=Leyenda Configuración]
40: Este "40" Indica el Nivel al que resetea el PJ, editen este número para decidir a que nivel quieren que reteen los PJs
100: Este 100 indica la cantidad de Puntos Bonus que recibiremos por Reset, editen este número para decidir la cantidad de puntos que otorgarán por reset.
NOTA: Los resets son acumulativos por lo tanto si colocasmos 10 en este caso al primer reset el jugador recibirá 10 puntos, luego en el segundo recibira 20, en el tercero 30, y así sigue.
[/spoiler]

Hásta aquí el Scrip ya funciona, si desean agregar un pequeño Add-On para que la gente pueda saber cuantos resets tienen cuando lo deseen lo único que tienen que agregar es lo siguiente.
Buscan Sub Commands(Index) allí abajo, arriba de los Dim que tengan Agregan Dim Resets.
Luego buscan el End Select y arriba de el colocan
[Spoiler=Codigo]Case "/resets"
Resets = GetVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", " Resets", "Nº")

Call PlayerMsg(Index, "Tienes " & Resets & " resets", WHITE)

Exit Sub[/spoiler]

Características del Scrip:
* Reset a un Nivel determinado
* Puntos Bonus al Resetear
* Conteo de Resets
* Warpeo del Jugador al Mapa de origen al Resetear

Como mis anteriores Scrips este es de Libre uso y distribución, lo único que no deben hacer es decir que son los autores y si los postean o copian total o parcialmente en otro lugar me deben acreditar como el autor original del Scrip.
En el caso de que lo usen en su juego no es obligatorio darme créditos

Agradecimientos y Créditos:
Kakonasa: Por la idea y su apoyo
6dragon6: Por su apoyo y ayuda
Riley(de Eclipse Engine): Por su Scrip de Reset que me ayudo a entender y usar ciertos comandos

Edit:Aquí algunas instrucciones para usar el Scrip de diferente forma, pedido por algunos users.

Para que resetee cuando el Jugador se Desconecta:
Buscan Sub Left Game, allí dentro colocan.
Dim Resets, luego arriba del End Sub
agregan el [Spoiler=Codigo]

Cita:If GetPlayerLevel(Index) >= 40 Then

Resets = GetVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº")

Resets = Resets + 1

Call PutVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº", "" & Resets)

Call SetPlayerLevel(Index, GetPlayerLevel(index) + -GetPlayerLevel(Index))

Call SetPlayerLevel(Index, GetPlayerLevel(index) + 1)

Call SetPlayerPOINTS(Index, 0)

Call PlayerMsg(Index, "Tienes " & Resets & " Resets, Felicitaciones", WHITE)

Resets = Resets * 100

Call SetPlayerPOINTS(Index, GetPlayerPoints(Index) + Resets)

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 SendPlayerData(Index)

Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)

End If

[/spoiler].

Para que resete al entrar al Juego es idém al anterior pero todo eso se hacen dentro de Sub JoinGame.

Para Resetear por medio de un NPC.

Buscamos Sub ScriptedNPC, debajos colocamos

Cita:Dim Resets

Luego ponemos el siguiente código
[Spoiler=Codigo]

Cita:Case X
If GetPlayerLevel(Index) >= 40 Then

Resets = GetVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº")

Resets = Resets + 1

Call PutVar("Scripts\ExtrasPersonaje\" & GetPlayerName(index) & ".ini", "Resets", "Nº", "" & Resets)

Call SetPlayerLevel(Index, GetPlayerLevel(index) + -GetPlayerLevel(Index))

Call SetPlayerLevel(Index, GetPlayerLevel(index) + 1)

Call SetPlayerPOINTS(Index, 0)

Call PlayerMsg(Index, "Tienes " & Resets & " Resets, Felicitaciones", WHITE)

Resets = Resets * 100

Call SetPlayerPOINTS(Index, GetPlayerPoints(Index) + Resets)

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 SendPlayerData(Index)

Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)
Exit Sub
End If

[/spoiler]
Donde X Es el nº de Case a usar.

Para que reseteen por medio de un ítem es Ídem al anterior pero todo esto se hace dentro de Sub Scripted Ítem.

Espero que les sirva, cualquier duda sólo pregunten


Edit: Agregado las descargas del Main.txt
Nota: Para los resets por ítems o tiles el número del script es el número del case, en este caso está configurado con el número 1

[Uchiha]

Buen post, pero podrias agregar imagenes, poeque no encuentro sub newchar por ningun lado ^^

[Ellesar]

Pues que imagenes quieres que agrede , sólo te vuelve al Nivel 1 y te das las cosas que dije, mejor dicho podría poner un videito xD
Tal vez más adelante lo haga ^^

[Dessicated Corpse]

merci, gran aporte

[judoka]

Muchas gracias, pero podrias hacer para que sea en un mapa especificado en el que al tocar ALGO o hablar con alguien te hiciera el reset, osea un reset con NPC... eso me serviria bastante, por favor.. !!

[Ellesar]

Más tarde veré ahora estoy medio ocupado si te lo puedo hacer hoy lo haré saludos

Editado el Post Principal, agregadas las intrucciones para hacer resets por NPCS, Resets cuando entres al juego, cuando Salgas o al pisar un tile, esto es todo, saludos

[BenjiroKun]

reset . otra de las grandes ideas del Mu online ^^
lo voy a usar.
me gusta lo de resetear.
hace qe los juegos sean menos densos

lo estaba por pedir. gracias

[manuel3594]

oie disculpa pero no encuentro Sub NewChar(Index) si me pudieras ayudar te lo agradeceria =D

[Ellesar]

abrilo con el NotePad apreta Ctrl + B y pone NewChar, ahi te va a aparecer, en cualquier caso esta al principio

[Kap09]

¿pero donde se hacen los scripts, en el main o en el editor? es k soy nuevo en esto de scripts xD
si puedes poner un video mejor, pork no comprendo mucho como hacerlo, te lo agradeceria gracias