Simple EXP Carry-Over

[Tutorial Bot]

Author: Magnus
Difficulty: 1/5

:: SERVER SIDE ::
Find:

Code:

Sub CheckPlayerLevelUp(ByVal Index As Long)

Beneath it, add:

Code:

Dim ExtraEXP As Long

Now, add this before any of the other comment stuff:

Code:

If GetPlayerExp(Index) > GetPlayerNextLevel(Index) Then
        ExtraEXP = (GetPlayerExp(Index) - GetPlayerNextLevel(Index))
    Else
        ExtraEXP = 0
    End If

Change:

Code:

Call SetPlayerExp(Index, 0)

To:

Code:

Call SetPlayerExp(Index, ExtraEXP)

At the end, add:

Code:

Call CheckPlayerLevelUp(Index)

That's all!

[Joost]

Slightly better way to do it.

Code:

Sub CheckPlayerLevelUp(ByVal Index As Long)

Dim I As Long, ExtraEXP As Long

If GetPlayerExp(Index) >= GetPlayerNextLevel(Index) Then
    ExtraEXP = (GetPlayerExp(Index) - GetPlayerNextLevel(Index))
        
    Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)

    ' Get the ammount of skill points to add
    I = Int(GetPlayerSPEED(Index) / 10)
    If I < 1 Then I = 1
    If I > 3 Then I = 3
            
    Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + I)
    Call SetPlayerExp(Index, ExtraEXP)
    Call GlobalMsg(GetPlayerName(Index) & " has gained a level!", Brown)
    Call PlayerMsg(Index, "You have gained a level!  You now have " & GetPlayerPOINTS(Index) & " stat points to distribute.", BrightBlue)
    Call CheckPlayerLevelUp(Index)
End If

End Sub