Como fasso para ter sistema de resets automaticos?

por Gui_sasori Dom 31 Jan 2010, 12:37

Galera preciso de ajuda
Como fasso para ter sistema de resets automaticos?

por Zeus Dom 31 Jan 2010, 12:43

Proucure um scritp no fórum que tem sim..

por Gui_sasori Dom 31 Jan 2010, 13:30

por hbo123 Qua 21 Abr 2010, 21:55

Vá no Principal.txt, e procure Sub PlayerLevelUp(index) e substitua a sub inteiro por:

Sub PlayerLevelUp(index)
Dim I
Dim D
Dim C

C = 0
Do While GetPlayerExp(index) => GetPlayerNextLevel(index)
D = GetPlayerExp(index) - GetPlayerNextLevel(index)
Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
I = Int(GetPlayerSPEED(index) / 10)
If I < 1 Then I = 1
If I > 3 Then I = 3

Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I)
Call SetPlayerExp(index, D)
C = C + 1
Loop
If C > 1 Then
'Call GlobalMsg(GetPlayerName(index) & " ganhou " & C & " níveis!", 6)
Else
'Call GlobalMsg(GetPlayerName(index) & " ganhou um nível!", 6)
End If
If GetPlayerLevel(index) => 500 Then
Call PlayerMsg(index, "Você resetou!", 14)
Call SetPlayerExp(index, 1)
Call SetPlayerLevel(index, 1)
Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 200)
Call SetPlayerResets(index, GetPlayerResets(index) + 1)
Call SavePlayer(index)
Call SendPOINTS(Index)
Call SendStats(Index)
End If
End Sub

Depois disso é só pegar o level necessario e automaticamente será resetado!

OBS:Tem q ser de acordo com o lvl maximo do seu servidor.

Créditos: HBO