imacat/pokemongoiv
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cleaned-up old hand-made dialog event handlers. Fixed the "apprase" and "apprasal" typos. Fixed to update the placeholder [Pokémon] with the currently selected Pokémon at the first appraisal.

Browse Source
This commit is contained in:
依瑪貓
2016-12-08 00:25:57 +08:00
parent 8c2cb726f7
commit 11c87528a0
6 changed files with 226 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

161
PokemonGoIV/0Main.vb
View File

@@ -85,13 +85,13 @@ Function fnAskParam As aFindIVParam
DialogLibraries.loadLibrary "PokemonGoIV"
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialog.getControl ("lstApprasal1").setVisible (False)
oDialog.getControl ("lstAppraisal1").setVisible (False)
oDialog.getControl ("txtBestBefore").setVisible (False)
oDialog.getControl ("lstBest").setVisible (False)
oDialog.getControl ("txtBestAfter").setVisible (False)
oDialog.getControl ("cbxBest2").setVisible (False)
oDialog.getControl ("cbxBest3").setVisible (False)
oDialog.getControl ("lstApprasal2").setVisible (False)
oDialog.getControl ("lstAppraisal2").setVisible (False)
oDialog.getControl ("imgPokemon").getModel.setPropertyValue ( _
"ImageURL", fnGetImageUrl ("Unknown"))
@@ -110,8 +110,8 @@ Function fnAskParam As aFindIVParam
.nHP = oDialog.getControl ("numHP").getValue
.nStarDust = CInt (oDialog.getControl ("lstStarDust").getSelectedItem)
.nPlayerLevel = CInt (oDialog.getControl ("lstPlayerLevel").getSelectedItem)
.nAppraisal1 = oDialog.getControl ("lstApprasal1").getSelectedItemPos + 1
.nAppraisal2 = oDialog.getControl ("lstApprasal2").getSelectedItemPos + 1
.nAppraisal1 = oDialog.getControl ("lstAppraisal1").getSelectedItemPos + 1
.nAppraisal2 = oDialog.getControl ("lstAppraisal2").getSelectedItemPos + 1
.bIsCancelled = False
End With
If oDialog.getControl ("cbxIsNew").getState = 1 Then
@@ -165,7 +165,7 @@ Function fnAskParam As aFindIVParam
fnAskParam = aQuery
End Function
' subBtnOKCheck: Checks whether Pokémon, CP, HP and star dust are all filled.
' subBtnOKCheck: Checks whether the required columns are filled.
Sub subBtnOKCheck (oEvent As object)
Dim oDialog As Object
Dim oPokemon As Object, oCP As Object
@@ -195,6 +195,7 @@ Sub subLstPokemonSelected (oEvent As object)
oDialog = oEvent.Source.getContext
' Updates the Pokémon image.
sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
sImageId = ""
If sPokemon = "Farfetch'd" Then
@@ -212,25 +213,18 @@ Sub subLstPokemonSelected (oEvent As object)
If sImageId = "" Then
sImageId = "Pokemon" & sPokemon
End If
oImageModel = oDialog.getControl ("imgPokemon").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl (sImageId))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, True)
' Checks if the required columns are filled.
subBtnOKCheck (oEvent)
End Sub
' subBtnOKCheck_textChanged: When the CP or HP is filled
Sub subBtnOKCheck_textChanged (oEvent As object)
subBtnOKCheck_itemStateChanged (oEvent)
End Sub
' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
End Sub
' subRdoTeamRedItemChanged_itemStateChanged: When the team is selected.
Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
' subRdoTeamRedItemChanged: When the red team is selected.
Sub subRdoTeamRedItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@@ -240,7 +234,6 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oImageModel = oDialog.getControl ("imgTeamLogo").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl ("TeamLogoValor"))
oDialog.getControl ("imgTeamLeader").setVisible (True)
oImageModel = oDialog.getControl ("imgTeamLeader").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl ("TeamLeaderCandela"))
@@ -249,15 +242,8 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oText.setVisible (True)
oText.setText (fnGetResString ("AppraiseFromCandela"))
mItems = Array ( _
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
"Overall, your [Pokémon] is a decent Pokémon.", _
"Overall, your [Pokémon] may not be great in battle, but I still like it!")
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 20, -1, _
@@ -290,18 +276,14 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
"It's got excellent stats! How exciting!", _
"Its stats indicate that in battle, it'll get the job done.", _
"Its stats don't point to greatness in battle.")
oList = oDialog.getControl ("lstApprasal2")
oList = oDialog.getControl ("lstAppraisal2")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
End Sub
' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
End Sub
' subRdoTeamBlueItemChanged_itemStateChanged: When the blue team is selected.
Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
' subRdoTeamBlueItemChanged: When the blue team is selected.
Sub subRdoTeamBlueItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@@ -311,7 +293,6 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oImageModel = oDialog.getControl ("imgTeamLogo").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl ("TeamLogoMystic"))
oDialog.getControl ("imgTeamLeader").setVisible (True)
oImageModel = oDialog.getControl ("imgTeamLeader").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl ("TeamLeaderBlanche"))
@@ -320,15 +301,8 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oText.setVisible (True)
oText.setText (fnGetResString ("AppraiseFromBlanche"))
mItems = Array ( _
"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
"Overall, your [Pokémon] has certainly caught my attention.", _
"Overall, your [Pokémon] is above average.", _
"Overall, your [Pokémon] is not likely to make much headway in battle.")
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 200, -1, _
@@ -361,18 +335,14 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
"I am certainly impressed by its stats, I must say.", _
"Its stats are noticeably trending to the positive.", _
"Its stats are not out of the norm, in my opinion.")
oList = oDialog.getControl ("lstApprasal2")
oList = oDialog.getControl ("lstAppraisal2")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
End Sub
' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
End Sub
' subRdoTeamYellowItemChanged_itemStateChanged: When the yellow team is selected.
Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
' subRdoTeamYellowItemChanged: When the yellow team is selected.
Sub subRdoTeamYellowItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@@ -382,7 +352,6 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oImageModel = oDialog.getControl ("imgTeamLogo").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl ("TeamLogoInstinct"))
oDialog.getControl ("imgTeamLeader").setVisible (True)
oImageModel = oDialog.getControl ("imgTeamLeader").getModel
oImageModel.setPropertyValue ("ImageURL", _
fnGetImageUrl ("TeamLeaderSpark"))
@@ -391,15 +360,8 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oText.setVisible (True)
oText.setText (fnGetResString ("AppraiseFromSpark"))
mItems = Array ( _
"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
"Overall, your [Pokémon] is really strong!", _
"Overall, your [Pokémon] is pretty decent!", _
"Overall, your [Pokémon] has room for improvement as far as battling goes.")
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 115, -1, _
@@ -432,18 +394,14 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
"Its stats are really strong! Impressive.", _
"It's definitely got some good stats. Definitely!", _
"Its stats are all right, but kinda basic, as far as I can see.")
oList = oDialog.getControl ("lstApprasal2")
oList = oDialog.getControl ("lstAppraisal2")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
End Sub
' subLstBestItemChanged_disposing: Dummy for the listener.
Sub subLstBestItemChanged_disposing (oEvent As object)
End Sub
' subLstBestItemChanged_itemStateChanged: When the best stat is selected.
Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
' subLstBestItemChanged: When the best stat is selected.
Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object
oDialog = oEvent.Source.getContext
@@ -543,6 +501,60 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
End If
End Sub
' subUpdateAppraisal1: Updates the text of the first appraisal.
Sub subUpdateAppraisal1 (oEvent As Object, bIsKeepSelected As Boolean)
Dim oDialog As Object, sPokemon As String
Dim oList As Object, nSelected As Integer
Dim mItems () As String, nI As Integer
oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then
mItems = Array ( _
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
"Overall, your [Pokémon] is a decent Pokémon.", _
"Overall, your [Pokémon] may not be great in battle, but I still like it!")
End If
If oDialog.getControl ("rdoTeamBlue").getState Then
mItems = Array ( _
"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
"Overall, your [Pokémon] has certainly caught my attention.", _
"Overall, your [Pokémon] is above average.", _
"Overall, your [Pokémon] is not likely to make much headway in battle.")
End If
If oDialog.getControl ("rdoTeamYellow").getState Then
mItems = Array ( _
"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
"Overall, your [Pokémon] is really strong!", _
"Overall, your [Pokémon] is pretty decent!", _
"Overall, your [Pokémon] has room for improvement as far as battling goes.")
End If
' The team was not selected yet.
If UBound (mItems) = -1 Then
Exit sub
End If
sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
If sPokemon <> "" Then
For nI = 0 To UBound (mItems)
mItems (nI) = fnReplace (mItems (nI), _
"[Pokémon]", sPokemon)
Next nI
End If
oList = oDialog.getControl ("lstAppraisal1")
If bIsKeepSelected Then
nSelected = oList.getSelectedItemPos
End If
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
If bIsKeepSelected Then
oList.selectItemPos (nSelected, True)
End If
oList.setVisible (True)
End Sub
' fnFindIV: Finds the possible individual values of the Pokémon
Function fnFindIV (aQuery As aFindIVParam) As Variant
Dim aBaseStats As New aStats, maIV () As New aStats
@@ -1049,6 +1061,19 @@ Function fnGetEmptyEvolvedFormArray () As Variant
fnGetEmptyEvolvedFormArray = mData
End Function
' fnReplace: Replaces all occurrances of a term to another.
Function fnReplace (sText As String, sFrom As String, sTo As String) As String
Dim nPos As Integer
nPos = InStr (sText, sFrom)
Do While nPos <> 0
sText = Left (sText, nPos - 1) & sTo _
& Right (sText, Len (sText) - nPos - Len (sFrom) + 1)
nPos = InStr (nPos + Len (sTo), sText, sFrom)
Loop
fnReplace = sText
End Function
' subReadCPM: Reads the CPM table.
Sub subReadCPM
If UBound (mCPM) = -1 Then

1
TODO
View File

@@ -1,5 +1,4 @@
PokemonGoIV TODO
* Clean-up event handlers.
* LibreOffice compability.
* Center the dialog.

161
oxt/PokemonGoIV/0Main.xba
View File

@@ -87,13 +87,13 @@ Function fnAskParam As aFindIVParam
DialogLibraries.loadLibrary &quot;PokemonGoIV&quot;
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialog.getControl (&quot;lstApprasal1&quot;).setVisible (False)
oDialog.getControl (&quot;lstAppraisal1&quot;).setVisible (False)
oDialog.getControl (&quot;txtBestBefore&quot;).setVisible (False)
oDialog.getControl (&quot;lstBest&quot;).setVisible (False)
oDialog.getControl (&quot;txtBestAfter&quot;).setVisible (False)
oDialog.getControl (&quot;cbxBest2&quot;).setVisible (False)
oDialog.getControl (&quot;cbxBest3&quot;).setVisible (False)
oDialog.getControl (&quot;lstApprasal2&quot;).setVisible (False)
oDialog.getControl (&quot;lstAppraisal2&quot;).setVisible (False)
oDialog.getControl (&quot;imgPokemon&quot;).getModel.setPropertyValue ( _
&quot;ImageURL&quot;, fnGetImageUrl (&quot;Unknown&quot;))
@@ -112,8 +112,8 @@ Function fnAskParam As aFindIVParam
.nHP = oDialog.getControl (&quot;numHP&quot;).getValue
.nStarDust = CInt (oDialog.getControl (&quot;lstStarDust&quot;).getSelectedItem)
.nPlayerLevel = CInt (oDialog.getControl (&quot;lstPlayerLevel&quot;).getSelectedItem)
.nAppraisal1 = oDialog.getControl (&quot;lstApprasal1&quot;).getSelectedItemPos + 1
.nAppraisal2 = oDialog.getControl (&quot;lstApprasal2&quot;).getSelectedItemPos + 1
.nAppraisal1 = oDialog.getControl (&quot;lstAppraisal1&quot;).getSelectedItemPos + 1
.nAppraisal2 = oDialog.getControl (&quot;lstAppraisal2&quot;).getSelectedItemPos + 1
.bIsCancelled = False
End With
If oDialog.getControl (&quot;cbxIsNew&quot;).getState = 1 Then
@@ -167,7 +167,7 @@ Function fnAskParam As aFindIVParam
fnAskParam = aQuery
End Function
&apos; subBtnOKCheck: Checks whether Pokémon, CP, HP and star dust are all filled.
&apos; subBtnOKCheck: Checks whether the required columns are filled.
Sub subBtnOKCheck (oEvent As object)
Dim oDialog As Object
Dim oPokemon As Object, oCP As Object
@@ -197,6 +197,7 @@ Sub subLstPokemonSelected (oEvent As object)
oDialog = oEvent.Source.getContext
&apos; Updates the Pokémon image.
sPokemon = oDialog.getControl (&quot;lstPokemon&quot;).getSelectedItem
sImageId = &quot;&quot;
If sPokemon = &quot;Farfetch&apos;d&quot; Then
@@ -214,25 +215,18 @@ Sub subLstPokemonSelected (oEvent As object)
If sImageId = &quot;&quot; Then
sImageId = &quot;Pokemon&quot; &amp; sPokemon
End If
oImageModel = oDialog.getControl (&quot;imgPokemon&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (sImageId))
&apos; Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, True)
&apos; Checks if the required columns are filled.
subBtnOKCheck (oEvent)
End Sub
&apos; subBtnOKCheck_textChanged: When the CP or HP is filled
Sub subBtnOKCheck_textChanged (oEvent As object)
subBtnOKCheck_itemStateChanged (oEvent)
End Sub
&apos; subRdoTeamRedItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
End Sub
&apos; subRdoTeamRedItemChanged_itemStateChanged: When the team is selected.
Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
&apos; subRdoTeamRedItemChanged: When the red team is selected.
Sub subRdoTeamRedItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@@ -242,7 +236,6 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oImageModel = oDialog.getControl (&quot;imgTeamLogo&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (&quot;TeamLogoValor&quot;))
oDialog.getControl (&quot;imgTeamLeader&quot;).setVisible (True)
oImageModel = oDialog.getControl (&quot;imgTeamLeader&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (&quot;TeamLeaderCandela&quot;))
@@ -251,15 +244,8 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oText.setVisible (True)
oText.setText (fnGetResString (&quot;AppraiseFromCandela&quot;))
mItems = Array ( _
&quot;Overall, your [Pokémon] simply amazes me. It can accomplish anything!&quot;, _
&quot;Overall, your [Pokémon] is a strong Pokémon. You should be proud!&quot;, _
&quot;Overall, your [Pokémon] is a decent Pokémon.&quot;, _
&quot;Overall, your [Pokémon] may not be great in battle, but I still like it!&quot;)
oList = oDialog.getControl (&quot;lstApprasal1&quot;)
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
&apos; Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
oText = oDialog.getControl (&quot;txtBestBefore&quot;)
oText.setPosSize (-1, -1, 20, -1, _
@@ -292,18 +278,14 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
&quot;It&apos;s got excellent stats! How exciting!&quot;, _
&quot;Its stats indicate that in battle, it&apos;ll get the job done.&quot;, _
&quot;Its stats don&apos;t point to greatness in battle.&quot;)
oList = oDialog.getControl (&quot;lstApprasal2&quot;)
oList = oDialog.getControl (&quot;lstAppraisal2&quot;)
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
End Sub
&apos; subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
End Sub
&apos; subRdoTeamBlueItemChanged_itemStateChanged: When the blue team is selected.
Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
&apos; subRdoTeamBlueItemChanged: When the blue team is selected.
Sub subRdoTeamBlueItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@@ -313,7 +295,6 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oImageModel = oDialog.getControl (&quot;imgTeamLogo&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (&quot;TeamLogoMystic&quot;))
oDialog.getControl (&quot;imgTeamLeader&quot;).setVisible (True)
oImageModel = oDialog.getControl (&quot;imgTeamLeader&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (&quot;TeamLeaderBlanche&quot;))
@@ -322,15 +303,8 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oText.setVisible (True)
oText.setText (fnGetResString (&quot;AppraiseFromBlanche&quot;))
mItems = Array ( _
&quot;Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!&quot;, _
&quot;Overall, your [Pokémon] has certainly caught my attention.&quot;, _
&quot;Overall, your [Pokémon] is above average.&quot;, _
&quot;Overall, your [Pokémon] is not likely to make much headway in battle.&quot;)
oList = oDialog.getControl (&quot;lstApprasal1&quot;)
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
&apos; Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
oText = oDialog.getControl (&quot;txtBestBefore&quot;)
oText.setPosSize (-1, -1, 200, -1, _
@@ -363,18 +337,14 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
&quot;I am certainly impressed by its stats, I must say.&quot;, _
&quot;Its stats are noticeably trending to the positive.&quot;, _
&quot;Its stats are not out of the norm, in my opinion.&quot;)
oList = oDialog.getControl (&quot;lstApprasal2&quot;)
oList = oDialog.getControl (&quot;lstAppraisal2&quot;)
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
End Sub
&apos; subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
End Sub
&apos; subRdoTeamYellowItemChanged_itemStateChanged: When the yellow team is selected.
Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
&apos; subRdoTeamYellowItemChanged: When the yellow team is selected.
Sub subRdoTeamYellowItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@@ -384,7 +354,6 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oImageModel = oDialog.getControl (&quot;imgTeamLogo&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (&quot;TeamLogoInstinct&quot;))
oDialog.getControl (&quot;imgTeamLeader&quot;).setVisible (True)
oImageModel = oDialog.getControl (&quot;imgTeamLeader&quot;).getModel
oImageModel.setPropertyValue (&quot;ImageURL&quot;, _
fnGetImageUrl (&quot;TeamLeaderSpark&quot;))
@@ -393,15 +362,8 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oText.setVisible (True)
oText.setText (fnGetResString (&quot;AppraiseFromSpark&quot;))
mItems = Array ( _
&quot;Overall, your [Pokémon] looks like it can really battle with the best of them!&quot;, _
&quot;Overall, your [Pokémon] is really strong!&quot;, _
&quot;Overall, your [Pokémon] is pretty decent!&quot;, _
&quot;Overall, your [Pokémon] has room for improvement as far as battling goes.&quot;)
oList = oDialog.getControl (&quot;lstApprasal1&quot;)
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
&apos; Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
oText = oDialog.getControl (&quot;txtBestBefore&quot;)
oText.setPosSize (-1, -1, 115, -1, _
@@ -434,18 +396,14 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
&quot;Its stats are really strong! Impressive.&quot;, _
&quot;It&apos;s definitely got some good stats. Definitely!&quot;, _
&quot;Its stats are all right, but kinda basic, as far as I can see.&quot;)
oList = oDialog.getControl (&quot;lstApprasal2&quot;)
oList = oDialog.getControl (&quot;lstAppraisal2&quot;)
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setVisible (True)
End Sub
&apos; subLstBestItemChanged_disposing: Dummy for the listener.
Sub subLstBestItemChanged_disposing (oEvent As object)
End Sub
&apos; subLstBestItemChanged_itemStateChanged: When the best stat is selected.
Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
&apos; subLstBestItemChanged: When the best stat is selected.
Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object
oDialog = oEvent.Source.getContext
@@ -545,6 +503,60 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
End If
End Sub
&apos; subUpdateAppraisal1: Updates the text of the first appraisal.
Sub subUpdateAppraisal1 (oEvent As Object, bIsKeepSelected As Boolean)
Dim oDialog As Object, sPokemon As String
Dim oList As Object, nSelected As Integer
Dim mItems () As String, nI As Integer
oDialog = oEvent.Source.getContext
If oDialog.getControl (&quot;rdoTeamRed&quot;).getState Then
mItems = Array ( _
&quot;Overall, your [Pokémon] simply amazes me. It can accomplish anything!&quot;, _
&quot;Overall, your [Pokémon] is a strong Pokémon. You should be proud!&quot;, _
&quot;Overall, your [Pokémon] is a decent Pokémon.&quot;, _
&quot;Overall, your [Pokémon] may not be great in battle, but I still like it!&quot;)
End If
If oDialog.getControl (&quot;rdoTeamBlue&quot;).getState Then
mItems = Array ( _
&quot;Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!&quot;, _
&quot;Overall, your [Pokémon] has certainly caught my attention.&quot;, _
&quot;Overall, your [Pokémon] is above average.&quot;, _
&quot;Overall, your [Pokémon] is not likely to make much headway in battle.&quot;)
End If
If oDialog.getControl (&quot;rdoTeamYellow&quot;).getState Then
mItems = Array ( _
&quot;Overall, your [Pokémon] looks like it can really battle with the best of them!&quot;, _
&quot;Overall, your [Pokémon] is really strong!&quot;, _
&quot;Overall, your [Pokémon] is pretty decent!&quot;, _
&quot;Overall, your [Pokémon] has room for improvement as far as battling goes.&quot;)
End If
&apos; The team was not selected yet.
If UBound (mItems) = -1 Then
Exit sub
End If
sPokemon = oDialog.getControl (&quot;lstPokemon&quot;).getSelectedItem
If sPokemon &lt;&gt; &quot;&quot; Then
For nI = 0 To UBound (mItems)
mItems (nI) = fnReplace (mItems (nI), _
&quot;[Pokémon]&quot;, sPokemon)
Next nI
End If
oList = oDialog.getControl (&quot;lstAppraisal1&quot;)
If bIsKeepSelected Then
nSelected = oList.getSelectedItemPos
End If
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
If bIsKeepSelected Then
oList.selectItemPos (nSelected, True)
End If
oList.setVisible (True)
End Sub
&apos; fnFindIV: Finds the possible individual values of the Pokémon
Function fnFindIV (aQuery As aFindIVParam) As Variant
Dim aBaseStats As New aStats, maIV () As New aStats
@@ -1051,6 +1063,19 @@ Function fnGetEmptyEvolvedFormArray () As Variant
fnGetEmptyEvolvedFormArray = mData
End Function
&apos; fnReplace: Replaces all occurrances of a term to another.
Function fnReplace (sText As String, sFrom As String, sTo As String) As String
Dim nPos As Integer
nPos = InStr (sText, sFrom)
Do While nPos &lt;&gt; 0
sText = Left (sText, nPos - 1) &amp; sTo _
&amp; Right (sText, Len (sText) - nPos - Len (sFrom) + 1)
nPos = InStr (nPos + Len (sTo), sText, sFrom)
Loop
fnReplace = sText
End Function
&apos; subReadCPM: Reads the CPM table.
Sub subReadCPM
If UBound (mCPM) = -1 Then

36
oxt/PokemonGoIV/DialogStrings_en_US.properties
View File

@@ -1,43 +1,15 @@
# Strings for Dialog Library PokemonGoIV
2.DlgMain.HelpText=
3.DlgMain.Title=Pok\u00c3\u00a9mon GO IV Calculator
22.DlgMain.txtPokemon.HelpText=
23.DlgMain.txtPokemon.Label=~Pok\u00c3\u00a9mon:
26.DlgMain.txtCP.HelpText=
3.DlgMain.Title=Pok\u00e9mon GO IV Calculator
23.DlgMain.txtPokemon.Label=~Pok\u00e9mon:
27.DlgMain.txtCP.Label=~CP:
28.DlgMain.numCP.HelpText=
29.DlgMain.txtHP.HelpText=
30.DlgMain.txtHP.Label=~HP:
31.DlgMain.numHP.HelpText=
32.DlgMain.txtStarDust.HelpText=
33.DlgMain.txtStarDust.Label=S~tar dust:
40.DlgMain.txtPlayerLevel.HelpText=
41.DlgMain.txtPlayerLevel.Label=Player ~level:
46.DlgMain.cbxIsNew.HelpText=
47.DlgMain.cbxIsNew.Label=This Pok\u00c3\u00a9mon is ~newly-caught and was not powered-up yet.
50.DlgMain.grpApprasals.HelpText=
51.DlgMain.grpApprasals.Label=Team Leader Apprasal
85.DlgMain.btnOK.HelpText=
47.DlgMain.cbxIsNew.Label=This Pok\u00e9mon is ~newly-caught and was not powered-up yet.
51.DlgMain.grpAppraisals.Label=Team Leader Appraisal
86.DlgMain.btnOK.Label=OK
87.DlgMain.btnCancel.HelpText=
88.DlgMain.btnCancel.Label=Cancel
162.DlgMain.lstStarDust.HelpText=
163.DlgMain.lstPlayerLevel.HelpText=
164.DlgMain.lstApprasal1.HelpText=
165.DlgMain.lstApprasal2.HelpText=
171.DlgMain.lstPokemon.HelpText=
180.DlgMain.txtTeam.HelpText=
181.DlgMain.txtTeam.Label=Team:
182.DlgMain.rdoTeamRed.HelpText=
183.DlgMain.rdoTeamRed.Label=~Valor
184.DlgMain.rdoTeamBlue.HelpText=
185.DlgMain.rdoTeamBlue.Label=~Mystic
186.DlgMain.rdoTeamYellow.HelpText=
187.DlgMain.rdoTeamYellow.Label=~Instinct
193.DlgMain.lstBest.HelpText=
194.DlgMain.txtBestBefore.HelpText=
195.DlgMain.txtBestAfter.HelpText=
201.DlgMain.cbxBest2.HelpText=
203.DlgMain.cbxBest3.HelpText=
208.DlgMain.txtLeaderAppraise.HelpText=
210.DlgMain.imgTeamLeader.HelpText=

30
oxt/PokemonGoIV/DialogStrings_zh_TW.properties
View File

@@ -1,43 +1,15 @@
# Strings for Dialog Library PokemonGoIV
2.DlgMain.HelpText=
3.DlgMain.Title=\u5bf6\u53ef\u5922 GO IV \u8a08\u7b97\u6a5f
22.DlgMain.txtPokemon.HelpText=
23.DlgMain.txtPokemon.Label=\u5bf6\u53ef\u5922(~P)\uff1a
26.DlgMain.txtCP.HelpText=
27.DlgMain.txtCP.Label=~CP:
28.DlgMain.numCP.HelpText=
29.DlgMain.txtHP.HelpText=
30.DlgMain.txtHP.Label=~HP:
31.DlgMain.numHP.HelpText=
32.DlgMain.txtStarDust.HelpText=
33.DlgMain.txtStarDust.Label=S~tar dust:
40.DlgMain.txtPlayerLevel.HelpText=
41.DlgMain.txtPlayerLevel.Label=\u73a9\u5bb6\u7b49\u7d1a(~L)\uff1a
46.DlgMain.cbxIsNew.HelpText=
47.DlgMain.cbxIsNew.Label=\u6211\u525b\u6293\u5230\u9019\u96bb\u5bf6\u53ef\u5922\uff0c\u9084\u6c92\u5f37\u5316\u904e(~N)\u3002
50.DlgMain.grpApprasals.HelpText=
51.DlgMain.grpApprasals.Label=\u968a\u9577\u8a55\u50f9
85.DlgMain.btnOK.HelpText=
51.DlgMain.grpAppraisals.Label=\u968a\u9577\u8a55\u50f9
86.DlgMain.btnOK.Label=\u78ba\u5b9a
87.DlgMain.btnCancel.HelpText=
88.DlgMain.btnCancel.Label=\u53d6\u6d88
162.DlgMain.lstStarDust.HelpText=
163.DlgMain.lstPlayerLevel.HelpText=
164.DlgMain.lstApprasal1.HelpText=
165.DlgMain.lstApprasal2.HelpText=
171.DlgMain.lstPokemon.HelpText=
180.DlgMain.txtTeam.HelpText=
181.DlgMain.txtTeam.Label=\u968a\u4f0d\uff1a
182.DlgMain.rdoTeamRed.HelpText=
183.DlgMain.rdoTeamRed.Label=~Valor
184.DlgMain.rdoTeamBlue.HelpText=
185.DlgMain.rdoTeamBlue.Label=~Mystic
186.DlgMain.rdoTeamYellow.HelpText=
187.DlgMain.rdoTeamYellow.Label=~Instinct
193.DlgMain.lstBest.HelpText=
194.DlgMain.txtBestBefore.HelpText=
195.DlgMain.txtBestAfter.HelpText=
201.DlgMain.cbxBest2.HelpText=
203.DlgMain.cbxBest3.HelpText=
208.DlgMain.txtLeaderAppraise.HelpText=
210.DlgMain.imgTeamLeader.HelpText=

70
oxt/PokemonGoIV/DlgMain.xdl
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgMain" dlg:left="100" dlg:top="100" dlg:width="220" dlg:height="230" dlg:help-text="&amp;2.DlgMain.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;3.DlgMain.Title">
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgMain" dlg:left="100" dlg:top="100" dlg:width="220" dlg:height="230" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;3.DlgMain.Title">
<dlg:styles>
<dlg:style dlg:style-id="0" dlg:border="none"/>
<dlg:style dlg:style-id="1" dlg:background-color="0xff0000" dlg:text-color="0xffffff" dlg:font-weight="100"/>
@@ -8,8 +8,8 @@
<dlg:style dlg:style-id="3" dlg:background-color="0xffff00"/>
</dlg:styles>
<dlg:bulletinboard>
<dlg:text dlg:id="txtPokemon" dlg:tab-index="16" dlg:left="5" dlg:top="21" dlg:width="30" dlg:height="8" dlg:help-text="&amp;22.DlgMain.txtPokemon.HelpText" dlg:value="&amp;23.DlgMain.txtPokemon.Label"/>
<dlg:menulist dlg:id="lstPokemon" dlg:tab-index="0" dlg:left="35" dlg:top="19" dlg:width="50" dlg:height="12" dlg:help-text="&amp;171.DlgMain.lstPokemon.HelpText" dlg:spin="true">
<dlg:text dlg:id="txtPokemon" dlg:tab-index="16" dlg:left="5" dlg:top="21" dlg:width="30" dlg:height="8" dlg:value="&amp;23.DlgMain.txtPokemon.Label"/>
<dlg:menulist dlg:id="lstPokemon" dlg:tab-index="0" dlg:left="35" dlg:top="19" dlg:width="50" dlg:height="12" dlg:spin="true">
<dlg:menupopup>
<dlg:menuitem dlg:value="Bulbasaur"/>
<dlg:menuitem dlg:value="Ivysaur"/>
@@ -165,17 +165,17 @@
</dlg:menupopup>
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstPokemonSelected?language=Basic&amp;location=application" script:language="Script"/>
</dlg:menulist>
<dlg:img dlg:style-id="0" dlg:id="imgPokemon" dlg:tab-index="26" dlg:left="90" dlg:top="0" dlg:width="30" dlg:height="30" dlg:help-text="&amp;209.DlgMain.imgPokemon.HelpText"/>
<dlg:text dlg:id="txtCP" dlg:tab-index="17" dlg:left="5" dlg:top="36" dlg:width="15" dlg:height="8" dlg:help-text="&amp;26.DlgMain.txtCP.HelpText" dlg:value="&amp;27.DlgMain.txtCP.Label"/>
<dlg:numericfield dlg:id="numCP" dlg:tab-index="1" dlg:left="20" dlg:top="34" dlg:width="20" dlg:height="12" dlg:help-text="&amp;28.DlgMain.numCP.HelpText" dlg:decimal-accuracy="0" dlg:value-min="10" dlg:value-max="5000">
<dlg:img dlg:style-id="0" dlg:id="imgPokemon" dlg:tab-index="26" dlg:left="90" dlg:top="0" dlg:width="30" dlg:height="30"/>
<dlg:text dlg:id="txtCP" dlg:tab-index="17" dlg:left="5" dlg:top="36" dlg:width="15" dlg:height="8" dlg:value="&amp;27.DlgMain.txtCP.Label"/>
<dlg:numericfield dlg:id="numCP" dlg:tab-index="1" dlg:left="20" dlg:top="34" dlg:width="20" dlg:height="12" dlg:decimal-accuracy="0" dlg:value-min="10" dlg:value-max="5000">
<script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
</dlg:numericfield>
<dlg:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="36" dlg:width="15" dlg:height="8" dlg:help-text="&amp;29.DlgMain.txtHP.HelpText" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
<dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="34" dlg:width="15" dlg:height="12" dlg:help-text="&amp;31.DlgMain.numHP.HelpText" dlg:decimal-accuracy="0" dlg:value-min="0" dlg:value-max="200">
<dlg:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="36" dlg:width="15" dlg:height="8" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
<dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="34" dlg:width="15" dlg:height="12" dlg:decimal-accuracy="0" dlg:value-min="0" dlg:value-max="200">
<script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
</dlg:numericfield>
<dlg:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="36" dlg:width="30" dlg:height="8" dlg:help-text="&amp;32.DlgMain.txtStarDust.HelpText" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
<dlg:menulist dlg:id="lstStarDust" dlg:tab-index="3" dlg:left="120" dlg:top="34" dlg:width="30" dlg:height="12" dlg:help-text="&amp;162.DlgMain.lstStarDust.HelpText" dlg:spin="true">
<dlg:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="36" dlg:width="30" dlg:height="8" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
<dlg:menulist dlg:id="lstStarDust" dlg:tab-index="3" dlg:left="120" dlg:top="34" dlg:width="30" dlg:height="12" dlg:spin="true">
<dlg:menupopup>
<dlg:menuitem dlg:value="200"/>
<dlg:menuitem dlg:value="400"/>
@@ -200,8 +200,8 @@
</dlg:menupopup>
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
</dlg:menulist>
<dlg:text dlg:id="txtPlayerLevel" dlg:tab-index="20" dlg:left="160" dlg:top="36" dlg:width="35" dlg:height="8" dlg:help-text="&amp;40.DlgMain.txtPlayerLevel.HelpText" dlg:value="&amp;41.DlgMain.txtPlayerLevel.Label"/>
<dlg:menulist dlg:id="lstPlayerLevel" dlg:tab-index="4" dlg:left="195" dlg:top="34" dlg:width="20" dlg:height="12" dlg:help-text="&amp;163.DlgMain.lstPlayerLevel.HelpText" dlg:spin="true">
<dlg:text dlg:id="txtPlayerLevel" dlg:tab-index="20" dlg:left="160" dlg:top="36" dlg:width="35" dlg:height="8" dlg:value="&amp;41.DlgMain.txtPlayerLevel.Label"/>
<dlg:menulist dlg:id="lstPlayerLevel" dlg:tab-index="4" dlg:left="195" dlg:top="34" dlg:width="20" dlg:height="12" dlg:spin="true">
<dlg:menupopup>
<dlg:menuitem dlg:value="1"/>
<dlg:menuitem dlg:value="2"/>
@@ -245,35 +245,35 @@
<dlg:menuitem dlg:value="40"/>
</dlg:menupopup>
</dlg:menulist>
<dlg:checkbox dlg:id="cbxIsNew" dlg:tab-index="5" dlg:left="5" dlg:top="51" dlg:width="210" dlg:height="8" dlg:help-text="&amp;46.DlgMain.cbxIsNew.HelpText" dlg:value="&amp;47.DlgMain.cbxIsNew.Label" dlg:checked="true"/>
<dlg:titledbox dlg:id="grpApprasals" dlg:tab-index="21" dlg:left="5" dlg:top="65" dlg:width="210" dlg:height="140" dlg:help-text="&amp;50.DlgMain.grpApprasals.HelpText">
<dlg:title dlg:value="&amp;51.DlgMain.grpApprasals.Label"/>
<dlg:checkbox dlg:id="cbxIsNew" dlg:tab-index="5" dlg:left="5" dlg:top="51" dlg:width="210" dlg:height="8" dlg:value="&amp;47.DlgMain.cbxIsNew.Label" dlg:checked="true"/>
<dlg:titledbox dlg:id="grpAppraisals" dlg:tab-index="21" dlg:left="5" dlg:top="65" dlg:width="210" dlg:height="140">
<dlg:title dlg:value="&amp;51.DlgMain.grpAppraisals.Label"/>
</dlg:titledbox>
<dlg:img dlg:style-id="0" dlg:id="imgTeamLogo" dlg:tab-index="25" dlg:left="10" dlg:top="75" dlg:width="30" dlg:height="30" dlg:help-text="&amp;204.DlgMain.imgTeamLogo.HelpText"/>
<dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="45" dlg:top="96" dlg:width="20" dlg:height="8" dlg:help-text="&amp;180.DlgMain.txtTeam.HelpText" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
<dlg:img dlg:style-id="0" dlg:id="imgTeamLogo" dlg:tab-index="25" dlg:left="10" dlg:top="75" dlg:width="30" dlg:height="30"/>
<dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="45" dlg:top="96" dlg:width="20" dlg:height="8" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
<dlg:radiogroup>
<dlg:radio dlg:style-id="1" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="65" dlg:top="96" dlg:width="25" dlg:height="8" dlg:help-text="&amp;182.DlgMain.rdoTeamRed.HelpText" dlg:value="&amp;183.DlgMain.rdoTeamRed.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamRedItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
<dlg:radio dlg:style-id="1" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="65" dlg:top="96" dlg:width="25" dlg:height="8" dlg:value="&amp;183.DlgMain.rdoTeamRed.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamRedItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio>
<dlg:radio dlg:style-id="2" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="95" dlg:top="96" dlg:width="30" dlg:height="8" dlg:help-text="&amp;184.DlgMain.rdoTeamBlue.HelpText" dlg:value="&amp;185.DlgMain.rdoTeamBlue.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamBlueItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
<dlg:radio dlg:style-id="2" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="95" dlg:top="96" dlg:width="30" dlg:height="8" dlg:value="&amp;185.DlgMain.rdoTeamBlue.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamBlueItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio>
<dlg:radio dlg:style-id="3" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="130" dlg:top="96" dlg:width="30" dlg:height="8" dlg:help-text="&amp;186.DlgMain.rdoTeamYellow.HelpText" dlg:value="&amp;187.DlgMain.rdoTeamYellow.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamYellowItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
<dlg:radio dlg:style-id="3" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="130" dlg:top="96" dlg:width="30" dlg:height="8" dlg:value="&amp;187.DlgMain.rdoTeamYellow.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamYellowItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio>
</dlg:radiogroup>
<dlg:img dlg:style-id="0" dlg:id="imgTeamLeader" dlg:tab-index="28" dlg:left="10" dlg:top="105" dlg:width="30" dlg:height="35" dlg:help-text="&amp;210.DlgMain.imgTeamLeader.HelpText"/>
<dlg:text dlg:id="txtLeaderAppraise" dlg:tab-index="27" dlg:left="45" dlg:top="111" dlg:width="165" dlg:height="8" dlg:help-text="&amp;208.DlgMain.txtLeaderAppraise.HelpText"/>
<dlg:menulist dlg:id="lstApprasal1" dlg:tab-index="9" dlg:left="45" dlg:top="124" dlg:width="165" dlg:height="12" dlg:help-text="&amp;164.DlgMain.lstApprasal1.HelpText" dlg:spin="true"/>
<dlg:text dlg:id="txtBestBefore" dlg:tab-index="23" dlg:left="45" dlg:top="141" dlg:width="20" dlg:height="8" dlg:help-text="&amp;194.DlgMain.txtBestBefore.HelpText"/>
<dlg:menulist dlg:id="lstBest" dlg:tab-index="10" dlg:left="65" dlg:top="139" dlg:width="35" dlg:height="12" dlg:help-text="&amp;193.DlgMain.lstBest.HelpText" dlg:spin="true">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstBestItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
<dlg:img dlg:style-id="0" dlg:id="imgTeamLeader" dlg:tab-index="28" dlg:left="10" dlg:top="105" dlg:width="30" dlg:height="35"/>
<dlg:text dlg:id="txtLeaderAppraise" dlg:tab-index="27" dlg:left="45" dlg:top="111" dlg:width="165" dlg:height="8"/>
<dlg:menulist dlg:id="lstAppraisal1" dlg:tab-index="9" dlg:left="45" dlg:top="124" dlg:width="165" dlg:height="12" dlg:spin="true"/>
<dlg:text dlg:id="txtBestBefore" dlg:tab-index="23" dlg:left="45" dlg:top="141" dlg:width="20" dlg:height="8"/>
<dlg:menulist dlg:id="lstBest" dlg:tab-index="10" dlg:left="65" dlg:top="139" dlg:width="35" dlg:height="12" dlg:spin="true">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstBestItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:menulist>
<dlg:text dlg:id="txtBestAfter" dlg:tab-index="24" dlg:left="100" dlg:top="141" dlg:width="100" dlg:height="8" dlg:help-text="&amp;195.DlgMain.txtBestAfter.HelpText"/>
<dlg:checkbox dlg:id="cbxBest2" dlg:tab-index="11" dlg:left="45" dlg:top="156" dlg:width="165" dlg:height="8" dlg:help-text="&amp;201.DlgMain.cbxBest2.HelpText" dlg:checked="false"/>
<dlg:checkbox dlg:id="cbxBest3" dlg:tab-index="12" dlg:left="45" dlg:top="171" dlg:width="165" dlg:height="8" dlg:help-text="&amp;203.DlgMain.cbxBest3.HelpText" dlg:checked="false"/>
<dlg:menulist dlg:id="lstApprasal2" dlg:tab-index="13" dlg:left="45" dlg:top="184" dlg:width="165" dlg:height="12" dlg:help-text="&amp;165.DlgMain.lstApprasal2.HelpText" dlg:spin="true"/>
<dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:disabled="true" dlg:left="35" dlg:top="210" dlg:width="60" dlg:height="15" dlg:help-text="&amp;85.DlgMain.btnOK.HelpText" dlg:default="true" dlg:button-type="ok"/>
<dlg:button dlg:id="btnCancel" dlg:tab-index="15" dlg:left="125" dlg:top="210" dlg:width="60" dlg:height="15" dlg:help-text="&amp;87.DlgMain.btnCancel.HelpText" dlg:button-type="cancel"/>
<dlg:text dlg:id="txtBestAfter" dlg:tab-index="24" dlg:left="100" dlg:top="141" dlg:width="100" dlg:height="8"/>
<dlg:checkbox dlg:id="cbxBest2" dlg:tab-index="11" dlg:left="45" dlg:top="156" dlg:width="165" dlg:height="8" dlg:checked="false"/>
<dlg:checkbox dlg:id="cbxBest3" dlg:tab-index="12" dlg:left="45" dlg:top="171" dlg:width="165" dlg:height="8" dlg:checked="false"/>
<dlg:menulist dlg:id="lstAppraisal2" dlg:tab-index="13" dlg:left="45" dlg:top="184" dlg:width="165" dlg:height="12" dlg:spin="true"/>
<dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:disabled="true" dlg:left="35" dlg:top="210" dlg:width="60" dlg:height="15" dlg:default="true" dlg:button-type="ok"/>
<dlg:button dlg:id="btnCancel" dlg:tab-index="15" dlg:left="125" dlg:top="210" dlg:width="60" dlg:height="15" dlg:button-type="cancel"/>
</dlg:bulletinboard>
</dlg:window>