[ALL]Adaptar o Reset no seu jogo

 Sub SavePlayer(ByVal Index As Long)

 Call PutVar(FileName, "CHAR" & i, "Guildaccess", STR(Player(Index).Char(i).Guildaccess))

 Call PutVar(FileName, "CHAR" & i, "Resets", STR(Player(Index).Char(i).Resets))

Type PlayerRec

PK As Byte

Resets As Long

 Function GetPlayerResets(ByVal Index As Long) As Long
GetPlayerResets = Player(Index).Char(Player(Index).CharNum).Resets
End Function

Sub SetPlayerResets(ByVal Index As Long, _
ByVal Resets As Long)
Player(Index).Char(Player(Index).CharNum).Resets = Resets
End Sub

 Sub LoadPlayer(ByVal Index As Long, _
ByVal Name As String)

 Player(Index).Char(i).Guildaccess = Val(GetVar(FileName, "CHAR" & i, "Guildaccess"))

 Player(Index).Char(i).Resets = Val(GetVar(FileName, "CHAR" & i, "Resets"))

Sub SendPOINTS(ByVal Index As Long)
Call SendDataTo(Index, "playerpoints" & SEP_CHAR & GetPlayerPOINTS(Index) & END_CHAR)
End Sub

 Case "/bell"
Call GlobalMsg("*ding* *ding* *ding*", 7)
Exit Sub

Case "/reset"
If GetPlayerLevel(Index) >= 500 Then ' Mude o 500 para o nível de "Reset"
Call SetPlayerLevel(Index, 1) ' coloca o personagem no level 1
Call SetPlayerPOINTS(Index, GetPlayerPoints(Index) + 50) ' Mude o 50 para a quantidade pontos extras que o personagem ganha, remova essa linha se não é para ele ganhar nada
Call SetPlayerResets(Index, GetPlayerResets(Index) + 1) ' Atualiza o número de vezes que o personagem já "resetou" no nosso banco de dados
Call SavePlayer(Index) ' Salva as alterações feitas no personagem
Call SendPOINTS(Index) ' Envia a quantidade de pontos extras pro cliente
Call SendStats(Index) ' Envia o nível (e alguns outros dados) pro cliente
Call PlayerMsg(Index, "Você resetou!", 14) ' mensagen q falara para vc quando reseta
Else ' Se não tiver o nível suficiente para resetar o personagen n vai reseta
Call PlayerMsg(Index, "Você não tem o level suficiente para resetar!", 14)
End If
Exit Sub

 Sub ClearChar

Player(Index).Char(CharNum).Resets = 0