Adicionando pontos automaticamente ao passar de level
Autor: Hermes Souza | Publicado: 2011-07-22T05:56:00-07:00

Client~Side

Vá na frmMirage, picStat, deixa invisível a lblPoints e as labels que contém o sinal de +.

Agora, procure por:

Código:&nbsp;[Selecionar]&nbsp; &nbsp; &nbsp; &nbsp; ' xxx Distribuição de Pontos por Comando xxx
E apague todo o código até:

Código:&nbsp;[Selecionar]&nbsp; &nbsp; &nbsp; &nbsp; ' xxx Fim da Distribuição de Pontos por Comando xxx

Server~Side

Mude a sub toda do Private Sub Command34_Click() por:

Código:&nbsp;[Selecionar]Private Sub Command34_Click()
Dim Index As Long
Dim i As Long

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

&nbsp; &nbsp; &nbsp; &nbsp; If IsPlaying(Index) = True Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &gt;= MAX_LEVEL Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerExp(Index, Experience(MAX_LEVEL))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SendStats(Index)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; i = Int(GetPlayerSPEED(Index) / 10)

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If i &lt; 1 Then i = 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If i &gt; 3 Then i = 3
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + i)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &lt;= 20 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf GetPlayerLevel(Index) &gt; 20 And GetPlayerLevel(Index) &lt;= 60 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 5)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 5)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf GetPlayerLevel(Index) &gt; 60 And GetPlayerLevel(Index) &lt;= 100 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 10)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call BattleMsg(Index, "Seus pontos foram adicionados automaticamente.", 9, 0)

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &gt;= MAX_LEVEL Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerExp(Index, Experience(MAX_LEVEL))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SendStats(Index)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SendStats(Index)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; Next
End Sub
Depois mude a sub toda de Sub CheckPlayerLevelUp(ByVal Index As Long) por:

Código:&nbsp;[Selecionar]Sub CheckPlayerLevelUp(ByVal Index As Long)
&nbsp; &nbsp; Dim i As Long
&nbsp; &nbsp; Dim d As Long
&nbsp; &nbsp; Dim C As Long

&nbsp; &nbsp; C = 0

&nbsp; &nbsp; If GetPlayerExp(Index) &gt;= GetPlayerNextLevel(Index) Then
&nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &lt; MAX_LEVEL Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If SCRIPTING = 1 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyScript.ExecuteStatement "Scripts\Principal.txt", "PlayerLevelUp " &amp; Index
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Do Until GetPlayerExp(Index) &lt; GetPlayerNextLevel(Index)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DoEvents

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &lt; MAX_LEVEL Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerExp(Index) &gt;= GetPlayerNextLevel(Index) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; d = GetPlayerExp(Index) - GetPlayerNextLevel(Index)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; i = Int(GetPlayerSPEED(Index) / 10)

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If i &lt; 1 Then i = 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If i &gt; 3 Then i = 3
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SendDataTo(Index, "sound" &amp; SEP_CHAR &amp; "LevelUp" &amp; END_CHAR)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + i)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &lt;= 20 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf GetPlayerLevel(Index) &gt; 20 And GetPlayerLevel(Index) &lt;= 60 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 5)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 5)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf GetPlayerLevel(Index) &gt; 60 And GetPlayerLevel(Index) &lt;= 100 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 10)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerExp(Index, d)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C = C + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Do
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If C &gt; 1 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call GlobalMsg(GetPlayerName(Index) &amp; " ganhou " &amp; C &amp; " níveis!", 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call GlobalMsg(GetPlayerName(Index) &amp; " ganhou um nível!", 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Call BattleMsg(Index, "Você possui " &amp; GetPlayerPOINTS(Index) &amp; " pontos.", 9, 0)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call BattleMsg(Index, "Seus pontos foram adicionados automaticamente.", 9, 0)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SendDataToMap(GetPlayerMap(Index), "levelup" &amp; SEP_CHAR &amp; Index &amp; END_CHAR)
&nbsp; &nbsp; &nbsp; &nbsp; End If

&nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) = MAX_LEVEL Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerExp(Index, Experience(MAX_LEVEL))
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; End If

&nbsp; &nbsp; Call SendHP(Index)
&nbsp; &nbsp; Call SendMP(Index)
&nbsp; &nbsp; Call SendSP(Index)
&nbsp; &nbsp; Call SendStats(Index)
End Sub
E agora, vá no Principal.txt e procure pela Sub PlayerLevelUp(index). Mude ela toda por:

Código:&nbsp;[Selecionar]Sub PlayerLevelUp(index)
Dim I&nbsp; &nbsp; 
Dim D
Dim C
&nbsp; &nbsp; 
&nbsp; &nbsp; C = 0
&nbsp; &nbsp; Do While GetPlayerExp(index) =&gt; GetPlayerNextLevel(index)&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; D = GetPlayerExp(index) - GetPlayerNextLevel(index)
&nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; I = Int(GetPlayerSPEED(index) / 10)
&nbsp; &nbsp; &nbsp; &nbsp; If I &lt; 1 Then I = 1
&nbsp; &nbsp; &nbsp; &nbsp; If I &gt; 3 Then I = 3
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; 'Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GetPlayerLevel(Index) &lt;= 20 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf GetPlayerLevel(Index) &gt; 20 And GetPlayerLevel(Index) &lt;= 60 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 5)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 5)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf GetPlayerLevel(Index) &gt; 60 And GetPlayerLevel(Index) &lt;= 100 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerstr(Index, GetPlayerstr(Index) + 10)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Call SetPlayerExp(index, D)&nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; C = C + 1
&nbsp; &nbsp; Loop
&nbsp; &nbsp; If C &gt; 1 Then 
&nbsp; &nbsp; &nbsp; &nbsp; 'Call GlobalMsg(GetPlayerName(index) &amp; " ganhou " &amp; C &amp; " níveis!", 6)
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; 'Call GlobalMsg(GetPlayerName(index) &amp; " ganhou um nível!", 6)&nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; End If&nbsp; &nbsp; 

&nbsp; &nbsp; 'Call BattleMsg(index, "Você tem " &amp; GetPlayerPOINTS(index) &amp; " pontos para gastar.", 9, 0)
&nbsp; &nbsp; Call BattleMsg(Index, "Seus pontos foram adicionados automaticamente.", 9, 0)&nbsp; 
End Sub
Creditos:
Autor desconhecido
Prodev
A mim por postar