= GetPlayerExp(Index) - GetPlayerNextLevel(Index) Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) i = Int(GetPlayerSPEED(Index) / 10) If i < 1 Then i = 1 If i > 3 Then i = 3 Call SendDataTo(Index, "sound" & SEP_CHAR & "LevelUp" & END_CHAR) 'Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + i) If GetPlayerLevel(Index) <= 20 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1) ElseIf GetPlayerLevel(Index) > 20 And GetPlayerLevel(Index) <= 60 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2) ElseIf GetPlayerLevel(Index) > 60 And GetPlayerLevel(Index) <= 100 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 10) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 6) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 6) End If Call SetPlayerExp(Index, d) C = C + 1 Else Exit Do End If End If Loop If C > 1 Then Call GlobalMsg(GetPlayerName(Index) & " ganhou " & C & " niveis!", 6) Else Call GlobalMsg(GetPlayerName(Index) & " ganhou um nivel!", 6) End If 'Call BattleMsg(Index, "Voce possui " & GetPlayerPOINTS(Index) & " pontos.", 9, 0) Call BattleMsg(Index, "Seus pontos foram adicionados automaticamente.", 9, 0) End If Call SendDataToMap(GetPlayerMap(Index), "levelup" & SEP_CHAR & Index & END_CHAR) End If If GetPlayerLevel(Index) = MAX_LEVEL Then Call SetPlayerExp(Index, Experience(MAX_LEVEL)) End If End If Call SendHP(Index) Call SendMP(Index) Call SendSP(Index) Call SendStats(Index)End SubE agora, va no Principal.txt e procure pela Sub PlayerLevelUp(index). Mude ela toda por:Codigo: [Selecionar]Sub PlayerLevelUp(index)Dim I Dim DDim C C = 0 Do While GetPlayerExp(index) => GetPlayerNextLevel(index) D = GetPlayerExp(index) - GetPlayerNextLevel(index) Call SetPlayerLevel(index, GetPlayerLevel(index) + 1) I = Int(GetPlayerSPEED(index) / 10) If I < 1 Then I = 1 If I > 3 Then I = 3 'Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I) If GetPlayerLevel(Index) <= 20 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1) ElseIf GetPlayerLevel(Index) > 20 And GetPlayerLevel(Index) <= 60 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2) ElseIf GetPlayerLevel(Index) > 60 And GetPlayerLevel(Index) <= 100 Then Call SetPlayerstr(Index, GetPlayerstr(Index) + 10) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 6) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 6) End If Call SetPlayerExp(index, D) C = C + 1 Loop If C > 1 Then 'Call GlobalMsg(GetPlayerName(index) & " ganhou " & C & " niveis!", 6) Else 'Call GlobalMsg(GetPlayerName(index) & " ganhou um nivel!", 6) End If 'Call BattleMsg(index, "Voce tem " & GetPlayerPOINTS(index) & " pontos para gastar.", 9, 0) Call BattleMsg(Index, "Seus pontos foram adicionados automaticamente.", 9, 0) End SubCreditos:Autor desconhecidoProdevA mim por postar