Aumentando Level Max

SkyAway · 1 Aumentando Level Max 13/2/2012, 03:03

SkyAway

Membro V

Mensagens : 57
 T$:

T$: : 4933

Idade : 28

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
Marlos Gama (Por criar e disponibilizar o tutorial)
Dragonick (Refez a formula do GetplayerNextLevel)
SkyAway ( Postar Aki pra vcs )