imacat/pokemongoiv
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added the minimal HP of 10.

Browse Source
This commit is contained in:
依瑪貓 2016-12-09 15:30:34 +08:00
parent 99a8ffd672
commit 0bf95af153
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PokemonGoIV/0Main.vb
View File

@ -947,8 +947,14 @@ End Function
' fnCalcHP: Calculates the hit points of the Pokémon
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))
If nHP < 10 Then
nHP = 10
End If
fnCalcHP = nHP
End Function
' fnGetBaseStats: Returns the base stats of the Pokémon.

10
oxt/PokemonGoIV/0Main.xba
View File

@ -949,8 +949,14 @@ End Function
&apos; fnCalcHP: Calculates the hit points of the Pokémon
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))
If nHP &lt; 10 Then
nHP = 10
End If
fnCalcHP = nHP
End Function
&apos; fnGetBaseStats: Returns the base stats of the Pokémon.
@ -1060,4 +1066,4 @@ Sub subReadStarDust
mStarDust = fnGetStarDustData
End If
End Sub
</script:module>
</script:module>