[ALL] Sistema de Resets.

    CharInfo(20).Caption = "Index: " & Index

    CharInfo(21).Caption = "Resets: " & GetPlayerResets(Index)

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

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

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

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

mudando de Mod vamos para a modTypes, nela proucure por

    PK As Byte

    Resets As Long

    Sub SetPlayerY(ByVal Index As Long, _
      ByVal y As Long)
        Player(Index).Char(Player(Index).CharNum).y = y
    End Sub

 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

    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

    Account:
    Character:
    Level:
    HP:/
    ...

    Points:

 Call BattleMsg(Index, "Você possui " & GetPlayerPOINTS(Index) & " pontos.", 9, 0)

    If GetPlayerLevel(index) => 1000 Then
        Call PlayerMsg(index, "Você foi resetado com Sucesso!", 15)
        Call SetPlayerExp(index, 1)
          Call SetPlayerLevel(index, 1)
        Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 100)
        Call SetPlayerResets(index, GetPlayerResets(index) + 1)
        Call SavePlayer(index)
              Call SendPOINTS(Index)
              Call SendStats(Index)
        End If