Mirage Source

Function GetPlayerNextLevel(ByVal Index As Long) As Long
    GetPlayerNextLevel = (GetPlayerLevel(Index) + 1) * (GetPlayerSTR(Index) + GetPlayerDEF(Index) + GetPlayerMAGI(Index) + GetPlayerSPEED(Index) + GetPlayerPOINTS(Index)) * 25
End Function

Function GetPlayerNextLevel(ByVal Index As Long) As Long
    GetPlayerNextLevel = Experience(GetPlayerLevel(Index))
End Function

Sub CheckPlayerLevelUp(ByVal index As Long)
Dim i As Long
Dim d As Long
Dim C As Long
    C = 0
   
    If GetPlayerExp(index) >= GetPlayerNextLevel(index) Then
        If GetPlayerLevel(index) < MAX_LEVEL Then
            Do Until GetPlayerExp(index) < GetPlayerNextLevel(index)
               DoEvents
               If GetPlayerLevel(index) < MAX_LEVEL Then
                  If GetPlayerExp(index) >= GetPlayerNextLevel(index) Then
                     d = GetPlayerExp(index) - GetPlayerNextLevel(index)
                     Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
                     i = Int(GetPlayerSPEED(index) / 10)
                     If i < 1 Then i = 1
                     If i > 3 Then i = 3
                               
                     Call SetPlayerExp(index, d)
                     C = C + 1
                  End If
               End If
            Loop
            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
        End If
       
        If GetPlayerLevel(index) = MAX_LEVEL Then
           Call SetPlayerExp(index, Experience(MAX_LEVEL))
        End If
    End If
   
    Call SendHP(index)
    Call SendMP(index)
    Call SendSP(index)
    Call SendStats(index)
End Sub