* 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

@ -20,9 +20,9 @@
Option Explicit
' 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.
Global sLastLevel As Integer
Global sLastTrainerLevel As Integer
' The parameters to find the individual values.
Type aFindIVParam
@ -76,18 +76,18 @@ Function fnAskParam As aFindIVParam
"ImageURL", fnGetImageUrl ("Unknown"))
' Remembers the previously-selected Pokémon.
oDialog.getControl ("lstPokemon").selectItem (sLastSelected, True)
oDialog.getControl ("lstTrainerLevel").selectItem (sLastLevel, True)
oDialog.getControl ("lstPokemon").selectItem (sLastPokemon, True)
oDialog.getControl ("lstTrainerLevel").selectItem (sLastTrainerLevel, True)
If oDialog.execute = 0 Then
aQuery.bIsCancelled = True
sLastLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem
sLastTrainerLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem
fnAskParam = aQuery
Exit Function
End If
subReadBaseStats
sLastLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem
sLastTrainerLevel = oDialog.getControl ("lstTrainerLevel").getSelectedItem
nSelected = oDialog.getControl ("lstPokemon").getSelectedItemPos
With aQuery
.sPokemonId = maBaseStats (nSelected).sPokemonId
@ -182,9 +182,9 @@ Sub subLstPokemonSelected (oEvent As object)
oDialog = oEvent.Source.getContext
' Checks which Pokémon was selected.
sLastSelected = oDialog.getControl ("lstPokemon").getSelectedItem
sLastPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
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
Exit Sub
End If