Exp Rollover fix

[Robin]

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

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)

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...

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: