* Added the Pokémon image icon of Raikou.

* Added Sableye, Shuppet, Banette, Duskull, and Dusclops from the Hoenn Region.
* Advanced to version 0.7.7.
This commit is contained in:
依瑪貓
2017-10-25 16:38:43 +08:00
parent 1dbad4df3b
commit 40fe1a0107
13 changed files with 96 additions and 26 deletions

View File

@ -13,7 +13,7 @@
' limitations under the License.
' 3Data: The Pokémon GO data for IV calculation
' by imacat <imacat@mail.imacat.idv.tw>, 2017-07-20
' by imacat <imacat@mail.imacat.idv.tw>, 2017-10-25
' Generated with 9Load.subReadDataSheets ()
Option Explicit
@ -271,7 +271,12 @@ Function fnGetBaseStatsData As Variant
Array ("Tyranitar", "248", 200, 251, 212, Array ()), _
Array ("Lugia", "249", 212, 193, 323, Array ()), _
Array ("HoOh", "250", 212, 263, 301, Array ()), _
Array ("Celebi", "251", 200, 210, 210, Array ()))
Array ("Celebi", "251", 200, 210, 210, Array ()), _
Array ("Sableye", "302", 100, 141, 141, Array ()), _
Array ("Shuppet", "353", 88, 138, 66, Array ("Banette")), _
Array ("Banette", "354", 128, 218, 127, Array ()), _
Array ("Duskull", "355", 40, 70, 162, Array ("Dusclops")), _
Array ("Dusclops", "356", 80, 124, 234, Array ()))
End Function
' fnGetCPMData: Returns the combat power multiplier data.

View File

@ -200,23 +200,23 @@ Function fnFindEvolveForms (mData As Variant, nI As Integer) As String
Exit Function
End If
For nJ = 6 To 8
For nJ = 8 To 10
If mData (nI) (nJ) = mData (nI) (0) Then
nStart = nJ + 1
nJ = 9
nJ = 11
End If
Next nJ
If nStart = 9 Then
nEnd = 8
If nStart = 11 Then
nEnd = 10
Else
For nJ = nStart To 8
For nJ = nStart To 10
If mData (nI) (nJ) = "" Then
nEnd = nJ - 1
nJ = 9
nJ = 11
Else
If nJ = 8 Then
nEnd = 8
nJ = 9
If nJ = 10 Then
nEnd = 10
nJ = 11
End If
End If
Next nJ