Added the lower limit (10) of CP.
This commit is contained in:
parent
f4fb244dcf
commit
a6dcb77760
@ -968,10 +968,16 @@ End Function
|
||||
|
||||
' fnCalcCP: Calculates the combat power of the Pokémon
|
||||
Function fnCalcCP (aBaseStats As aStats, fLevel As Double, nAttack As Integer, nDefense As Integer, nStamina As Integer) As Integer
|
||||
fnCalcCP = fnFloor ((aBaseStats.nAttack + nAttack) _
|
||||
Dim nCP As Integer
|
||||
|
||||
nCP = fnFloor ((aBaseStats.nAttack + nAttack) _
|
||||
* ((aBaseStats.nDefense + nDefense) ^ 0.5) _
|
||||
* ((aBaseStats.nStamina + nStamina) ^ 0.5) _
|
||||
* (fnGetCPM (fLevel) ^ 2) / 10)
|
||||
If nCP < 10 Then
|
||||
nCP = 10
|
||||
End If
|
||||
fnCalcCP = nCP
|
||||
End Function
|
||||
|
||||
' fnCalcHP: Calculates the hit points of the Pokémon
|
||||
|
2
TODO
2
TODO
@ -1,6 +1,6 @@
|
||||
PokemonGoIV TODO
|
||||
|
||||
* Added the lower limit (10) of CP.
|
||||
* Screen capture.
|
||||
* Fix layout on MacOSX and MS-Windows.
|
||||
* LibreOffice compability.
|
||||
* Center the dialog.
|
||||
|
@ -970,10 +970,16 @@ End Function
|
||||
|
||||
' fnCalcCP: Calculates the combat power of the Pokémon
|
||||
Function fnCalcCP (aBaseStats As aStats, fLevel As Double, nAttack As Integer, nDefense As Integer, nStamina As Integer) As Integer
|
||||
fnCalcCP = fnFloor ((aBaseStats.nAttack + nAttack) _
|
||||
Dim nCP As Integer
|
||||
|
||||
nCP = fnFloor ((aBaseStats.nAttack + nAttack) _
|
||||
* ((aBaseStats.nDefense + nDefense) ^ 0.5) _
|
||||
* ((aBaseStats.nStamina + nStamina) ^ 0.5) _
|
||||
* (fnGetCPM (fLevel) ^ 2) / 10)
|
||||
If nCP < 10 Then
|
||||
nCP = 10
|
||||
End If
|
||||
fnCalcCP = nCP
|
||||
End Function
|
||||
|
||||
' fnCalcHP: Calculates the hit points of the Pokémon
|
||||
|
@ -13,3 +13,4 @@
|
||||
183.DlgMain.rdoTeamRed.Label=~Valor
|
||||
185.DlgMain.rdoTeamBlue.Label=~Mystic
|
||||
187.DlgMain.rdoTeamYellow.Label=~Instinct
|
||||
188.DlgMain.HelpText=
|
||||
|
@ -13,3 +13,4 @@
|
||||
183.DlgMain.rdoTeamRed.Label=~Valor
|
||||
185.DlgMain.rdoTeamBlue.Label=~Mystic
|
||||
187.DlgMain.rdoTeamYellow.Label=~Instinct
|
||||
188.DlgMain.HelpText=
|
||||
|
Loading…
Reference in New Issue
Block a user