Botão de dar Reset Pelo Server Modificado

Abra o Server~Side e adicione esse sistema q irei postar abaixo :

Ja ja eu posto !

Dps vá na FrmServer Crie 1 CommandButton no lugar q vc achar melhor com Caption: Dar Reset de 2 clicks e adicione :

Código:

PicReset.Visible = True

Volte a FrmServer Crie 1 PictureBox com name: PicReset, dentro da PicReset Crie um TxtBox com name: txtReset, em baixo da txtReset Crie 2 CommandButton 1 com Caption: Confirmar outro com Caption: Cancelar, de dois cliques no botão cancelar e adicione:

Código:

PicReset.Visible = False

De 2 clicks no botão Confirmar e adicione:

Código:

Dim Index As Long

    If IsNumeric(txtReset.text) = False Then
        MsgBox "Digite um valor numérico!"
        Exit Sub
    End If

    If txtReset.text >= 0 Then
        Call GlobalMsg("O servidor deu " & txtReset.text & " de reset para todos!", BrightGreen)
        For Index = 1 To MAX_PLAYERS

            If IsPlaying(Index) = True Then
                Call SetPlayerResets(Index, GetPlayerResets(Index) + txtReset.text)
                Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1500)
                Call SendStats(Index)
                End If
                Next
    End If
    PicReset.Visible = False

em cima da txtReset adicione 1 label com Caption: Resets.

so salvar e compilar.

OBS: a PicReset tem q ta com Visible: False
OBS²: em :

Código:

Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1500)

Calcule quanto vc quer q o char ganha de Pontos ao vc dar reset e coloque no

+ 1500)

so mudar o numero para a quantidade q vc quer !

Créditos: Thales12