Valentine escreveu:Client

1 - No modConstants, procure por:

Código:

Public Const MAX_LEVELS As Byte = 100

2 - Substitua por:

Código:

Public Const MAX_LEVELS As Long = 500

(O valor 500 é o level máximo)

3 - No modTypes, procure por:

Código:

Private Type PlayerRec

4 - No lugar de:

Código:

Level As Byte

5 - Substitua por:

Código:

Level As Long

Servidor:
6 - Repita o mesmo procedimento no Servidor.

Obs.: Caso você queira alterar o level acima de 500, além de seguir as instruções acima você deve fazer o seguinte:

7 - No modPlayer do Servidor, procure por:

Código:

Function GetPlayerNextLevel(ByVal Index As Long) As Long 
  GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(index) + 1) ^ 3 - (6 * (GetPlayerLevel(index) + 1) ^ 2) + 17 * (GetPlayerLevel(index) + 1) - 12)
End Function

8 - Substitua por:

Código:

Function GetPlayerNextLevel(ByVal Index As Long) As Long
    GetPlayerNextLevel = (25 / 15) * ((GetPlayerLevel(Index) + 1) ^ 3 - (2 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12)
End Function

9 - No modDatabase do Client, procure por:

Código:

Function GetPlayerNextLevel(ByVal Index As Long) As Long
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    If Index > MAX_PLAYERS Then Exit Function
 
    GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(Index) + 1) ^ 3 - (6 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12)
   
    ' Error handler
    Exit Function
errorhandler:
    HandleError "GetPlayerNextLevel", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Function
End Function

10 - Substitua por:

Código:

Function GetPlayerNextLevel(ByVal Index As Long) As Long
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    If Index > MAX_PLAYERS Then Exit Function
 
    GetPlayerNextLevel = (25 / 15) * ((GetPlayerLevel(Index) + 1) ^ 3 - (2 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12)
   
    ' Error handler
    Exit Function
errorhandler:
    HandleError "GetPlayerNextLevel", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Function
End Function

Créditos
Valentine (Por criar e disponibilizar o tutorial)
Dragonick (Refez a formula do GetplayerNextLevel)