Added No.174 Igglybuff. Fixed the legal range of HP from 10 to 500 (was from 0 to 200). Fixed the error when the Pokémon has no evolution form. Advanced the version number to 0.2.5.

This commit is contained in:
2016-12-15 16:56:47 +08:00
parent 6965883232
commit ccb0b62b98
8 changed files with 37 additions and 25 deletions

View File

@ -547,15 +547,17 @@ Function fnFindIV ( _
End If
subReadStarDust
nEvolved = UBound (aBaseStats.mEvolved)
ReDim Preserve maEvBaseStats (nEvolved) As New aStats
For nI = 0 To nEvolved
aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
With maEvBaseStats (nI)
.nAttack = aTempStats.nAttack
.nDefense = aTempStats.nDefense
.nStamina = aTempStats.nStamina
End With
Next nI
If nEvolved > -1 Then
ReDim Preserve maEvBaseStats (nEvolved) As New aStats
For nI = 0 To nEvolved
aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
With maEvBaseStats (nI)
.nAttack = aTempStats.nAttack
.nDefense = aTempStats.nDefense
.nStamina = aTempStats.nStamina
End With
Next nI
End If
nN = -1
For fLevel = 1 To UBound (mStarDust) Step fStep
If mStarDust (CInt (fLevel - 0.5)) = aQuery.nStarDust Then

View File

@ -13,7 +13,7 @@
' limitations under the License.
' 1Data: The Pokémon GO data for IV calculation
' by imacat <imacat@mail.imacat.idv.tw>, 2016-12-06
' by imacat <imacat@mail.imacat.idv.tw>, 2016-12-15
' Generated with 9Load.subReadDataSheets ()
Option Explicit
@ -171,7 +171,8 @@ Function fnGetBaseStatsData As Variant
Array ("Dragonair", "148", 122, 163, 138, Array ("Dragonite")), _
Array ("Dragonite", "149", 182, 263, 201, Array ()), _
Array ("Mewtwo", "150", 212, 330, 200, Array ()), _
Array ("Mew", "151", 200, 210, 209, Array ()))
Array ("Mew", "151", 200, 210, 209, Array ()), _
Array ("Igglybuff", "174", 180, 69, 34, Array ("Jigglypuff", "Wigglytuff")))
End Function
' fnGetCPMData: Returns the combat power multiplier data.