Botão de dar Reset Pelo Server

Abra o Server~Side va na frmServer na aba Painel de Controles Crie 1 commandButton no lugar q vc achar melhor de 2 clicks e adicione:

Código:

Dim Index As Long
Dim i As Long
On Error Resume Next

    Call GlobalMsg("O servidor deu um Reset grátis para todos!", BrightGreen)
    For Index = 1 To MAX_PLAYERS

        If IsPlaying(Index) = True Then
            If GetPlayerLevel(Index) >= MAX_LEVEL Then
                Call SetPlayerExp(Index, Experience(MAX_LEVEL))
                Call SendStats(Index)
            Else
                'Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1000)
                Call SetPlayerExp(Index, 1)
                Call SetPlayerLevel(Index, 1)
                Call SetPlayerResets(Index, GetPlayerResets(Index) + 1)
                Call PlayerMsg(Index, "Agora Você Tem " & GetPlayerResets(Index) & " Resets!", 4)

                If i < 3000 Then i = 3000
                If i > 3000 Then i = 3000
                Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + i)

                If GetPlayerLevel(Index) >= MAX_LEVEL Then
                    Call SetPlayerExp(Index, Experience(MAX_LEVEL))
                    Call SendStats(Index)
                End If
                Call SendStats(Index)
            End If
        End If
    Next

caso queira q o botão de mais de 1 reset basta mudar essa linha aki :

Código:

Call SetPlayerResets(Index, GetPlayerResets(Index) + 1)

ali no numero 1 vc muda para a quantidade q vc quer !

agora so salvar e compilar !