* 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
@ -538,4 +538,4 @@ Sub subUpdateTotalAppraisal ( _
End If End If
oList.setVisible (True) oList.setVisible (True)
End Sub End Sub
</script:module> </script:module>

View File

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