[ALL]Script Reset Automatico

Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

If GetPlayerLevel(index) => 1000 Then ' level requerido para resetar
Call PlayerMsg(index, "Você Foi resetado com Sucesso!", 4) ' menssagem ao resetar
Call SetPlayerExp(index, 1) ' a exp volta a 1 quando reseta
Call SetPlayerLevel(index, 1) ' o char volta a level 1 quando reseta
Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 1000) ' a quantidade de pontos q ganha ao resetar
Call SetPlayerResets(index, GetPlayerResets(index) + 1) ' a quantidade de resets q ganha ao resetar.
Call SavePlayer(index)
Call SendPOINTS(Index)
Call SendStats(Index)
End If
End Sub

Call PlayerMsg(index, "Você Foi resetado com Sucesso!", 4)

Call globalmsg("" & getplayername(index) & " Resetou !",4)