* 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 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