* 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:
parent
69a2e55019
commit
0b8f47af6e
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user