Mirage Source

Function GetClassMaxHP(ByVal ClassNum As Long) As Long
    GetClassMaxHP = (1 + Int(Class(ClassNum).STR / 2) + Class(ClassNum).STR) * 2
End Function

Function GetClassMaxHP(ByVal ClassNum As Long) As Long
    GetClassMaxHP = Class(ClassNum).STR * Class(ClassNum).DEF
End Function

Function GetPlayerMaxHP(ByVal index As Long) As Long
Dim Charnum As Long
Dim i As Long

    Charnum = Player(index).Charnum
    GetPlayerMaxHP = (Player(index).Char(Charnum).Level + Int(GetPlayerSTR(index) / 2) + Class(Player(index).Char(Charnum).Class).STR) * 2
End Function

Function GetPlayerMaxHP(ByVal index As Long) As Long
    GetPlayerMaxHP = GetPlayerSTR(index) * GetPlayerDEF(Index)
End Function