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

Added the lower limit (10) of CP.

Browse Source
This commit is contained in:
依瑪貓 2016-12-08 07:39:31 +08:00
parent f4fb244dcf
commit a6dcb77760
5 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PokemonGoIV/0Main.vb
View File

@ -968,10 +968,16 @@ End Function
' fnCalcCP: Calculates the combat power of the Pokémon ' 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 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.nDefense + nDefense) ^ 0.5) _
* ((aBaseStats.nStamina + nStamina) ^ 0.5) _ * ((aBaseStats.nStamina + nStamina) ^ 0.5) _
* (fnGetCPM (fLevel) ^ 2) / 10) * (fnGetCPM (fLevel) ^ 2) / 10)
If nCP < 10 Then
nCP = 10
End If
fnCalcCP = nCP
End Function End Function
' fnCalcHP: Calculates the hit points of the Pokémon ' fnCalcHP: Calculates the hit points of the Pokémon

2
TODO
View File

@ -1,6 +1,6 @@
PokemonGoIV TODO PokemonGoIV TODO
* Added the lower limit (10) of CP. * Screen capture.
* Fix layout on MacOSX and MS-Windows. * Fix layout on MacOSX and MS-Windows.
* LibreOffice compability. * LibreOffice compability.
* Center the dialog. * Center the dialog.

8
oxt/PokemonGoIV/0Main.xba
View File

@ -970,10 +970,16 @@ End Function
&apos; fnCalcCP: Calculates the combat power of the Pokémon &apos; 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 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.nDefense + nDefense) ^ 0.5) _
* ((aBaseStats.nStamina + nStamina) ^ 0.5) _ * ((aBaseStats.nStamina + nStamina) ^ 0.5) _
* (fnGetCPM (fLevel) ^ 2) / 10) * (fnGetCPM (fLevel) ^ 2) / 10)
If nCP &lt; 10 Then
nCP = 10
End If
fnCalcCP = nCP
End Function End Function
&apos; fnCalcHP: Calculates the hit points of the Pokémon &apos; fnCalcHP: Calculates the hit points of the Pokémon

1
oxt/PokemonGoIV/DialogStrings_en_US.properties
View File

@ -13,3 +13,4 @@
183.DlgMain.rdoTeamRed.Label=~Valor 183.DlgMain.rdoTeamRed.Label=~Valor
185.DlgMain.rdoTeamBlue.Label=~Mystic 185.DlgMain.rdoTeamBlue.Label=~Mystic
187.DlgMain.rdoTeamYellow.Label=~Instinct 187.DlgMain.rdoTeamYellow.Label=~Instinct
188.DlgMain.HelpText=

1
oxt/PokemonGoIV/DialogStrings_zh_TW.properties
View File

@ -13,3 +13,4 @@
183.DlgMain.rdoTeamRed.Label=~Valor 183.DlgMain.rdoTeamRed.Label=~Valor
185.DlgMain.rdoTeamBlue.Label=~Mystic 185.DlgMain.rdoTeamBlue.Label=~Mystic
187.DlgMain.rdoTeamYellow.Label=~Instinct 187.DlgMain.rdoTeamYellow.Label=~Instinct
188.DlgMain.HelpText=