Raising Stats (HP, MP, SP)

[Leighland]

You probably need to change it in the GetPlayerMaxHP Sub as well, so change this:

Code:

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

To this:

Code:

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