Início1
Script de Reset Automatico Sáb 17 Nov 2012, 10:36
~Razor
Membro de Honra
Warn : 
Troféus :
:0
:0
:0
Mensagens : 131
AP's : 1545
Respeito : 18
Idade : 25
Troféus :
:0:0:0Mensagens : 131
AP's : 1545 Respeito : 18Idade : 25
Abra o Principal Ou Main e procure por:
E adicione abaixo o seguinte codigo:
OBS: caso queira q todos saibam quem resetou basta add o codigo em baixo de :
add:
Créditos:Desconhecido
Créditos: a mim por postar.
- Código:
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)
E adicione abaixo o seguinte codigo:
- Código:
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
OBS: caso queira q todos saibam quem resetou basta add o codigo em baixo de :
- Código:
Call PlayerMsg(index, "Você Foi resetado com Sucesso!", 4)
add:
- Código:
Call globalmsg("" & getplayername(index) & " Resetou !",4)
Créditos:Desconhecido
Créditos: a mim por postar.
