* Trimmed the names of the Hoenn region Pokémons.

* Updated the dialog xba file that was missed when updating the dialog last time.
This commit is contained in:
依瑪貓 2017-12-29 11:28:14 +08:00
parent 69a2e55019
commit 0b8f47af6e
3 changed files with 27 additions and 27 deletions

View File

@ -272,15 +272,15 @@ Function fnGetBaseStatsData As Variant
Array ("Lugia", "249", 212, 193, 323, Array ()), _ Array ("Lugia", "249", 212, 193, 323, Array ()), _
Array ("HoOh", "250", 193, 239, 274, Array ()), _ Array ("HoOh", "250", 193, 239, 274, Array ()), _
Array ("Celebi", "251", 200, 210, 210, Array ()), _ Array ("Celebi", "251", 200, 210, 210, Array ()), _
Array ("Treecko ", "252", 80, 124, 104, Array ("Grovyle ", "Sceptile ")), _ Array ("Treecko", "252", 80, 124, 104, Array ("Grovyle", "Sceptile")), _
Array ("Grovyle ", "253", 100, 172, 130, Array ("Sceptile ")), _ Array ("Grovyle", "253", 100, 172, 130, Array ("Sceptile")), _
Array ("Sceptile ", "254", 140, 223, 180, Array ()), _ Array ("Sceptile", "254", 140, 223, 180, Array ()), _
Array ("Torchic ", "255", 90, 130, 92, Array ("Combusken ", "Blaziken ")), _ Array ("Torchic", "255", 90, 130, 92, Array ("Combusken", "Blaziken")), _
Array ("Combusken ", "256", 120, 163, 115, Array ("Blaziken ")), _ Array ("Combusken", "256", 120, 163, 115, Array ("Blaziken")), _
Array ("Blaziken ", "257", 160, 240, 141, Array ()), _ Array ("Blaziken", "257", 160, 240, 141, Array ()), _
Array ("Mudkip ", "258", 100, 126, 93, Array ("Marshtomp ", "Swampert ")), _ Array ("Mudkip", "258", 100, 126, 93, Array ("Marshtomp", "Swampert")), _
Array ("Marshtomp ", "259", 140, 156, 133, Array ("Swampert ")), _ Array ("Marshtomp", "259", 140, 156, 133, Array ("Swampert")), _
Array ("Swampert ", "260", 200, 208, 175, Array ()), _ Array ("Swampert", "260", 200, 208, 175, Array ()), _
Array ("Poochyena", "261", 70, 96, 63, Array ("Mightyena")), _ Array ("Poochyena", "261", 70, 96, 63, Array ("Mightyena")), _
Array ("Mightyena", "262", 140, 171, 137, Array ()), _ Array ("Mightyena", "262", 140, 171, 137, Array ()), _
Array ("Zigzagoon", "263", 76, 58, 80, Array ("Linoone")), _ Array ("Zigzagoon", "263", 76, 58, 80, Array ("Linoone")), _

View File

@ -20,9 +20,9 @@
Option Explicit Option Explicit
' Remembers the selected Pokémon for the next run. ' Remembers the selected Pokémon for the next run.
Global sLastSelected As String Global sLastPokemon As String
' Remembers the selected trainer level for the next run. ' Remembers the selected trainer level for the next run.
Global sLastLevel As Integer Global sLastTrainerLevel As Integer
' The parameters to find the individual values. ' The parameters to find the individual values.
Type aFindIVParam Type aFindIVParam
@ -76,18 +76,18 @@ Function fnAskParam As aFindIVParam
"ImageURL", fnGetImageUrl ("Unknown")) "ImageURL", fnGetImageUrl ("Unknown"))
' Remembers the previously-selected Pokémon. ' Remembers the previously-selected Pokémon.
oDialog.getControl ("lstPokemon").selectItem (sLastSelected, True) oDialog.getControl ("lstPokemon").selectItem (sLastPokemon, True)
oDialog.getControl ("lstTrainerLevel").selectItem (sLastLevel, True) oDialog.getControl ("lstTrainerLevel").selectItem (sLastTrainerLevel, True)
If oDialog.execute = 0 Then If oDialog.execute = 0 Then
aQuery.bIsCancelled = True aQuery.bIsCancelled = True
sLastLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem sLastTrainerLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem
fnAskParam = aQuery fnAskParam = aQuery
Exit Function Exit Function
End If End If
subReadBaseStats subReadBaseStats
sLastLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem sLastTrainerLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem
nSelected = oDialog.getControl ("lstPokemon").getSelectedItemPos nSelected = oDialog.getControl ("lstPokemon").getSelectedItemPos
With aQuery With aQuery
.sPokemonId = maBaseStats (nSelected).sPokemonId .sPokemonId = maBaseStats (nSelected).sPokemonId
@ -182,9 +182,9 @@ Sub subLstPokemonSelected (oEvent As object)
oDialog = oEvent.Source.getContext oDialog = oEvent.Source.getContext
' Checks which Pokémon was selected. ' Checks which Pokémon was selected.
sLastSelected = oDialog.getControl ("lstPokemon").getSelectedItem sLastPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
nSelected = oDialog.getControl ("lstPokemon").getSelectedItemPos nSelected = oDialog.getControl ("lstPokemon").getSelectedItemPos
' This happens at the beginning where sLastSelected is "". ' This happens at the beginning where sLastPokemon is "".
If nSelected = -1 Then If nSelected = -1 Then
Exit Sub Exit Sub
End If End If

View File

@ -274,15 +274,15 @@ Function fnGetBaseStatsData As Variant
Array ("Lugia", "249", 212, 193, 323, Array ()), _ Array ("Lugia", "249", 212, 193, 323, Array ()), _
Array ("HoOh", "250", 193, 239, 274, Array ()), _ Array ("HoOh", "250", 193, 239, 274, Array ()), _
Array ("Celebi", "251", 200, 210, 210, Array ()), _ Array ("Celebi", "251", 200, 210, 210, Array ()), _
Array ("Treecko ", "252", 80, 124, 104, Array ("Grovyle ", "Sceptile ")), _ Array ("Treecko", "252", 80, 124, 104, Array ("Grovyle", "Sceptile")), _
Array ("Grovyle ", "253", 100, 172, 130, Array ("Sceptile ")), _ Array ("Grovyle", "253", 100, 172, 130, Array ("Sceptile")), _
Array ("Sceptile ", "254", 140, 223, 180, Array ()), _ Array ("Sceptile", "254", 140, 223, 180, Array ()), _
Array ("Torchic ", "255", 90, 130, 92, Array ("Combusken ", "Blaziken ")), _ Array ("Torchic", "255", 90, 130, 92, Array ("Combusken", "Blaziken")), _
Array ("Combusken ", "256", 120, 163, 115, Array ("Blaziken ")), _ Array ("Combusken", "256", 120, 163, 115, Array ("Blaziken")), _
Array ("Blaziken ", "257", 160, 240, 141, Array ()), _ Array ("Blaziken", "257", 160, 240, 141, Array ()), _
Array ("Mudkip ", "258", 100, 126, 93, Array ("Marshtomp ", "Swampert ")), _ Array ("Mudkip", "258", 100, 126, 93, Array ("Marshtomp", "Swampert")), _
Array ("Marshtomp ", "259", 140, 156, 133, Array ("Swampert ")), _ Array ("Marshtomp", "259", 140, 156, 133, Array ("Swampert")), _
Array ("Swampert ", "260", 200, 208, 175, Array ()), _ Array ("Swampert", "260", 200, 208, 175, Array ()), _
Array ("Poochyena", "261", 70, 96, 63, Array ("Mightyena")), _ Array ("Poochyena", "261", 70, 96, 63, Array ("Mightyena")), _
Array ("Mightyena", "262", 140, 171, 137, Array ()), _ Array ("Mightyena", "262", 140, 171, 137, Array ()), _
Array ("Zigzagoon", "263", 76, 58, 80, Array ("Linoone")), _ Array ("Zigzagoon", "263", 76, 58, 80, Array ("Linoone")), _