Added the minimal HP of 10.
This commit is contained in:
parent
99a8ffd672
commit
0bf95af153
@ -947,8 +947,14 @@ End Function
|
|||||||
|
|
||||||
' fnCalcHP: Calculates the hit points of the Pokémon
|
' fnCalcHP: Calculates the hit points of the Pokémon
|
||||||
Function fnCalcHP (aBaseStats As aStats, fLevel As Double, nStamina As Integer) As Integer
|
Function fnCalcHP (aBaseStats As aStats, fLevel As Double, nStamina As Integer) As Integer
|
||||||
fnCalcHP = fnFloor ((aBaseStats.nStamina + nStamina) _
|
Dim nHP As Integer
|
||||||
|
|
||||||
|
nHP = fnFloor ((aBaseStats.nStamina + nStamina) _
|
||||||
* fnGetCPM (fLevel))
|
* fnGetCPM (fLevel))
|
||||||
|
If nHP < 10 Then
|
||||||
|
nHP = 10
|
||||||
|
End If
|
||||||
|
fnCalcHP = nHP
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
' fnGetBaseStats: Returns the base stats of the Pokémon.
|
' fnGetBaseStats: Returns the base stats of the Pokémon.
|
||||||
|
@ -949,8 +949,14 @@ End Function
|
|||||||
|
|
||||||
' fnCalcHP: Calculates the hit points of the Pokémon
|
' fnCalcHP: Calculates the hit points of the Pokémon
|
||||||
Function fnCalcHP (aBaseStats As aStats, fLevel As Double, nStamina As Integer) As Integer
|
Function fnCalcHP (aBaseStats As aStats, fLevel As Double, nStamina As Integer) As Integer
|
||||||
fnCalcHP = fnFloor ((aBaseStats.nStamina + nStamina) _
|
Dim nHP As Integer
|
||||||
|
|
||||||
|
nHP = fnFloor ((aBaseStats.nStamina + nStamina) _
|
||||||
* fnGetCPM (fLevel))
|
* fnGetCPM (fLevel))
|
||||||
|
If nHP < 10 Then
|
||||||
|
nHP = 10
|
||||||
|
End If
|
||||||
|
fnCalcHP = nHP
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
' fnGetBaseStats: Returns the base stats of the Pokémon.
|
' fnGetBaseStats: Returns the base stats of the Pokémon.
|
||||||
|
Loading…
Reference in New Issue
Block a user