[ALL] Dar Level Pelo Servidor Modificado

por Thales12 Qua 13 Abr 2011, 19:53

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 [ALL] Dar Level Pelo Servidor Modificado 256397