Currently, the exp rolls over, but because the CheckPlayerLevelUp is only called once, the exp will basically just pool up, with the level up only ever being called when an NPC is killed.
Here's a quick fix.
Replace this line:
Code:
If GetPlayerExp(inde...
With:
Code:
Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
Replace the end if at the bottom with:
Code:
DoEvents
Loop
Loop
All this does, is loop through until the player no longer has enough exp to level up.
It'll now spam '[Name] has gained a level!' in the GlobalChat, however.
Can quickly fix that by adding this after the loop:
Code:
Call GlobalMsg(GetPlayerName(Index) & " has gained " & levelCount & " level(s)!", Brown)
Call PlayerMsg(Index, "You have gained " & levelCount & " level(s)! You now have " & GetPlayerPOINTS(Index) & " stat points to distribute.", BrightBlue)
Call PlayerMsg(Index, "You have gained " & levelCount & " level(s)! You now have " & GetPlayerPOINTS(Index) & " stat points to distribute.", BrightBlue)
Adding this to the top of the subroutine:
Code:
Dim levelCount As Byte
Then replacing these 2 lines:
Code:
Call GlobalMsg(GetPlayer...
Call PlayerMsg(Index, "Yo...
Call PlayerMsg(Index, "Yo...
With:
Code:
levelCount = levelCount + 1
Then, add this line just above the entire loop:
Code:
If Not GetPlayerExp(Index) >= GetPlayerNextLevel(Index) Then Exit Sub
Here it is in action:
