Experiência Personalizada Por TxT

Sistema e bem legal e rápido para fazer.

Server Side

ModTypes Procure Por:

Código:

Public Spell(1 To MAX_SPELLS) As SpellRec

Abaixo add:

Código:

Public ExpReq() As Long

Em ModGeneral Procure Por:

Código:

Call SetStatus("Loading spells...")
          Call LoadSpells

Abaixo add:

Código:

Call SetStatus("Loading experience values...")
    Call LoadExperience

Em ModDatabase No Final add:

Código:

Public Sub LoadExperience()
    Dim FileName As String
    Dim I As Long
    
    FileName = App.Path & "\data\experience.ini"
    
    ReDim ExpReq(1 To (Val(GetVar(FileName, "EXP", "MaxLevel")) - 1)) As Long
    
    For I = 1 To UBound(ExpReq)
        ExpReq(I) = Val(GetVar(FileName, "EXP", "EXP" & I))
    Next I
End Sub

Em ModPlayer Procure Por:

Código:

Public Function GetPlayerNextLevel(ByVal Index As Long) As Long

Muda Ela Toda Por:

Código:

Public Function GetPlayerNextLevel(ByVal Index As Long) As Long
    GetPlayerNextLevel = ExpReq(GetPlayerLevel(Index))
End Function

Em ModGameLogic Procure Por:

Código:

Sub CheckPlayerLevelUp(ByVal index As Long)

E Acima de End Sub Add:

Código:

If GetPlayerLevel(Index) = UBound(ExpReq) Then
            Call SetPlayerExp(Index, GetPlayerNextLevel(Index))
            Exit Sub
        End If

Baixe esse arquivo Click aqui e extrai para a pasta server\data

Agora dele as contas e proto....