Botão de dar Level Pelo Server Modificado

Abra o Server~Side va na FrmServer e adicione 1 commandButton com Caption: Dar Level de 2 clicks e adicione:

Código:

picLevel.Visible = True

agora crie 1 picture com Name: PicLevel
Dentro dessa picture crie 1 TxtBox com Name: txtLevel
Em baixo da txtLevel adicione 2 CommandButton com Caption: Executar e Cancelar
De 2 clicks em Cancelar e adicione:

Código:

picLevel.Visible = False

de 2 clicks em executar e adicione:

Código:

Dim Index As Long

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

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


          If IsPlaying(Index) = True Then
                Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 3 + txtLevel.text)
                Call SetPlayerLevel(Index, GetPlayerLevel(Index) + txtLevel.text)
                Call CheckPlayerLevelUp(Index)
                Call SendStats(Index)
                End If
        Next
    End If
    picLevel.Visible = False

em cima da txtLevel crie 1 label com Caption: Level:

OBS: a picLevel tem q ta com Visible=False

agora e so compilar !

Créditos: Thales12