'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' This sub runs when a players experience exceeds the next level requirement. Sub PlayerLevelUp(index) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Dim I Dim D Dim C ' Calculating the number of points to give to players and setting exp to appropriate amounts. C = 0 Do While GetPlayerExp(index) => GetPlayerNextLevel(index) D = GetPlayerExp(index) - GetPlayerNextLevel(index) Call SetPlayerLevel(index, GetPlayerLevel(index) + 5) 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, D) C = C + 1 Loop ' Optional section currently disabled for broadcasting when players level up. ' If C > 1 Then ' Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6) ' Else ' Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6) ' End If ' Tells the player how many points they have to distribute Call BattleMsg(index, "You have " & GetPlayerPoints(index) & " stat points.", 9, 0) End Sub ok so i wnant them to gain 5 points a level but its not working …