Renamed Team Red, Team Blue and Team Yeallow to Team Valor, Team Mystic and Team Instinct in the keywords of the source code.

This commit is contained in:
依瑪貓 2016-12-09 13:43:34 +08:00
parent ba5feddecd
commit 99a8ffd672
6 changed files with 40 additions and 37 deletions

View File

@ -223,8 +223,8 @@ Sub subLstPokemonSelected (oEvent As object)
subBtnOKCheck (oEvent) subBtnOKCheck (oEvent)
End Sub End Sub
' subRdoTeamRedItemChanged: When the red team is selected. ' subRdoTeamValorItemChanged: When Team Valor is selected.
Sub subRdoTeamRedItemChanged (oEvent As object) Sub subRdoTeamValorItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object Dim oImageModel As Object
Dim mItems () As String Dim mItems () As String
@ -260,8 +260,8 @@ Sub subRdoTeamRedItemChanged (oEvent As object)
oList.setVisible (True) oList.setVisible (True)
End Sub End Sub
' subRdoTeamBlueItemChanged: When the blue team is selected. ' subRdoTeamMysticItemChanged: When Team Mystic is selected.
Sub subRdoTeamBlueItemChanged (oEvent As object) Sub subRdoTeamMysticItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object Dim oImageModel As Object
Dim mItems () As String Dim mItems () As String
@ -297,8 +297,8 @@ Sub subRdoTeamBlueItemChanged (oEvent As object)
oList.setVisible (True) oList.setVisible (True)
End Sub End Sub
' subRdoTeamYellowItemChanged: When the yellow team is selected. ' subRdoTeamInstinctItemChanged: When Team Instinct is selected.
Sub subRdoTeamYellowItemChanged (oEvent As object) Sub subRdoTeamInstinctItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object Dim oImageModel As Object
Dim mItems () As String Dim mItems () As String
@ -373,7 +373,7 @@ Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object Dim oDialog As Object, oCheckBox As Object
oDialog = oEvent.Source.getContext oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then If oDialog.getControl ("rdoTeamValor").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2") oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Defense.") oCheckBox.setLabel ("I'm just as impressed with its Defense.")
@ -405,7 +405,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0) oCheckBox.setState (0)
End If End If
End If End If
If oDialog.getControl ("rdoTeamBlue").getState Then If oDialog.getControl ("rdoTeamMystic").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2") oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Defense.") oCheckBox.setLabel ("It is matched equally by its Defense.")
@ -437,7 +437,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0) oCheckBox.setState (0)
End If End If
End If End If
If oDialog.getControl ("rdoTeamYellow").getState Then If oDialog.getControl ("rdoTeamInstinct").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2") oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("Its Defense is great, too!") oCheckBox.setLabel ("Its Defense is great, too!")
@ -474,21 +474,21 @@ Sub subUpdateAppraisal1 (oDialog As Object, bIsKeepSelected As Boolean)
Dim sPokemon As String, oList As Object, nSelected As Integer Dim sPokemon As String, oList As Object, nSelected As Integer
Dim mItems () As String, nI As Integer Dim mItems () As String, nI As Integer
If oDialog.getControl ("rdoTeamRed").getState Then If oDialog.getControl ("rdoTeamValor").getState Then
mItems = Array ( _ mItems = Array ( _
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _ "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 strong Pokémon. You should be proud!", _
"Overall, your [Pokémon] is a decent Pokémon.", _ "Overall, your [Pokémon] is a decent Pokémon.", _
"Overall, your [Pokémon] may not be great in battle, but I still like it!") "Overall, your [Pokémon] may not be great in battle, but I still like it!")
End If End If
If oDialog.getControl ("rdoTeamBlue").getState Then If oDialog.getControl ("rdoTeamMystic").getState Then
mItems = Array ( _ mItems = Array ( _
"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _ "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] has certainly caught my attention.", _
"Overall, your [Pokémon] is above average.", _ "Overall, your [Pokémon] is above average.", _
"Overall, your [Pokémon] is not likely to make much headway in battle.") "Overall, your [Pokémon] is not likely to make much headway in battle.")
End If End If
If oDialog.getControl ("rdoTeamYellow").getState Then If oDialog.getControl ("rdoTeamInstinct").getState Then
mItems = Array ( _ mItems = Array ( _
"Overall, your [Pokémon] looks like it can really battle with the best of them!", _ "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 really strong!", _

3
TODO
View File

@ -1,3 +1,6 @@
PokemonGoIV TODO PokemonGoIV TODO
* New screenshot.
* Fold long lines.
* Toolbar name on LibreOffice.
* Center the dialog. * Center the dialog.

View File

@ -225,8 +225,8 @@ Sub subLstPokemonSelected (oEvent As object)
subBtnOKCheck (oEvent) subBtnOKCheck (oEvent)
End Sub End Sub
' subRdoTeamRedItemChanged: When the red team is selected. ' subRdoTeamValorItemChanged: When Team Valor is selected.
Sub subRdoTeamRedItemChanged (oEvent As object) Sub subRdoTeamValorItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object Dim oImageModel As Object
Dim mItems () As String Dim mItems () As String
@ -262,8 +262,8 @@ Sub subRdoTeamRedItemChanged (oEvent As object)
oList.setVisible (True) oList.setVisible (True)
End Sub End Sub
' subRdoTeamBlueItemChanged: When the blue team is selected. ' subRdoTeamMysticItemChanged: When Team Mystic is selected.
Sub subRdoTeamBlueItemChanged (oEvent As object) Sub subRdoTeamMysticItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object Dim oImageModel As Object
Dim mItems () As String Dim mItems () As String
@ -299,8 +299,8 @@ Sub subRdoTeamBlueItemChanged (oEvent As object)
oList.setVisible (True) oList.setVisible (True)
End Sub End Sub
' subRdoTeamYellowItemChanged: When the yellow team is selected. ' subRdoTeamInstinctItemChanged: When Team Instinct is selected.
Sub subRdoTeamYellowItemChanged (oEvent As object) Sub subRdoTeamInstinctItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object Dim oImageModel As Object
Dim mItems () As String Dim mItems () As String
@ -375,7 +375,7 @@ Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object Dim oDialog As Object, oCheckBox As Object
oDialog = oEvent.Source.getContext oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then If oDialog.getControl ("rdoTeamValor").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2") oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Defense.") oCheckBox.setLabel ("I'm just as impressed with its Defense.")
@ -407,7 +407,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0) oCheckBox.setState (0)
End If End If
End If End If
If oDialog.getControl ("rdoTeamBlue").getState Then If oDialog.getControl ("rdoTeamMystic").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2") oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Defense.") oCheckBox.setLabel ("It is matched equally by its Defense.")
@ -439,7 +439,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0) oCheckBox.setState (0)
End If End If
End If End If
If oDialog.getControl ("rdoTeamYellow").getState Then If oDialog.getControl ("rdoTeamInstinct").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2") oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("Its Defense is great, too!") oCheckBox.setLabel ("Its Defense is great, too!")
@ -476,21 +476,21 @@ Sub subUpdateAppraisal1 (oDialog As Object, bIsKeepSelected As Boolean)
Dim sPokemon As String, oList As Object, nSelected As Integer Dim sPokemon As String, oList As Object, nSelected As Integer
Dim mItems () As String, nI As Integer Dim mItems () As String, nI As Integer
If oDialog.getControl ("rdoTeamRed").getState Then If oDialog.getControl ("rdoTeamValor").getState Then
mItems = Array ( _ mItems = Array ( _
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _ "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 strong Pokémon. You should be proud!", _
"Overall, your [Pokémon] is a decent Pokémon.", _ "Overall, your [Pokémon] is a decent Pokémon.", _
"Overall, your [Pokémon] may not be great in battle, but I still like it!") "Overall, your [Pokémon] may not be great in battle, but I still like it!")
End If End If
If oDialog.getControl ("rdoTeamBlue").getState Then If oDialog.getControl ("rdoTeamMystic").getState Then
mItems = Array ( _ mItems = Array ( _
"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _ "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] has certainly caught my attention.", _
"Overall, your [Pokémon] is above average.", _ "Overall, your [Pokémon] is above average.", _
"Overall, your [Pokémon] is not likely to make much headway in battle.") "Overall, your [Pokémon] is not likely to make much headway in battle.")
End If End If
If oDialog.getControl ("rdoTeamYellow").getState Then If oDialog.getControl ("rdoTeamInstinct").getState Then
mItems = Array ( _ mItems = Array ( _
"Overall, your [Pokémon] looks like it can really battle with the best of them!", _ "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 really strong!", _

View File

@ -10,6 +10,6 @@
86.DlgMain.btnOK.Label=OK 86.DlgMain.btnOK.Label=OK
88.DlgMain.btnCancel.Label=Cancel 88.DlgMain.btnCancel.Label=Cancel
181.DlgMain.txtTeam.Label=Team: 181.DlgMain.txtTeam.Label=Team:
183.DlgMain.rdoTeamRed.Label=~Valor 183.DlgMain.rdoTeamValor.Label=~Valor
185.DlgMain.rdoTeamBlue.Label=~Mystic 185.DlgMain.rdoTeamMystic.Label=~Mystic
187.DlgMain.rdoTeamYellow.Label=~Instinct 187.DlgMain.rdoTeamInstinct.Label=~Instinct

View File

@ -10,6 +10,6 @@
86.DlgMain.btnOK.Label=\u78ba\u5b9a 86.DlgMain.btnOK.Label=\u78ba\u5b9a
88.DlgMain.btnCancel.Label=\u53d6\u6d88 88.DlgMain.btnCancel.Label=\u53d6\u6d88
181.DlgMain.txtTeam.Label=\u968a\u4f0d\uff1a 181.DlgMain.txtTeam.Label=\u968a\u4f0d\uff1a
183.DlgMain.rdoTeamRed.Label=~Valor 183.DlgMain.rdoTeamValor.Label=~Valor
185.DlgMain.rdoTeamBlue.Label=~Mystic 185.DlgMain.rdoTeamMystic.Label=~Mystic
187.DlgMain.rdoTeamYellow.Label=~Instinct 187.DlgMain.rdoTeamInstinct.Label=~Instinct

View File

@ -252,14 +252,14 @@
<dlg:img dlg:style-id="0" dlg:id="imgTeamLogo" dlg:tab-index="25" dlg:left="10" dlg:top="80" dlg:width="30" dlg:height="30"/> <dlg:img dlg:style-id="0" dlg:id="imgTeamLogo" dlg:tab-index="25" dlg:left="10" dlg:top="80" dlg:width="30" dlg:height="30"/>
<dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="45" dlg:top="101" dlg:width="20" dlg:height="8" dlg:value="&amp;181.DlgMain.txtTeam.Label"/> <dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="45" dlg:top="101" dlg:width="20" dlg:height="8" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
<dlg:radiogroup> <dlg:radiogroup>
<dlg:radio dlg:style-id="1" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="65" dlg:top="101" dlg:width="30" dlg:height="8" dlg:value="&amp;183.DlgMain.rdoTeamRed.Label"> <dlg:radio dlg:style-id="1" dlg:id="rdoTeamValor" dlg:tab-index="6" dlg:left="65" dlg:top="101" dlg:width="30" dlg:height="8" dlg:value="&amp;183.DlgMain.rdoTeamValor.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"/> <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamValorItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio> </dlg:radio>
<dlg:radio dlg:style-id="2" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="100" dlg:top="101" dlg:width="35" dlg:height="8" dlg:value="&amp;185.DlgMain.rdoTeamBlue.Label"> <dlg:radio dlg:style-id="2" dlg:id="rdoTeamMystic" dlg:tab-index="7" dlg:left="100" dlg:top="101" dlg:width="35" dlg:height="8" dlg:value="&amp;185.DlgMain.rdoTeamMystic.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"/> <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamMysticItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio> </dlg:radio>
<dlg:radio dlg:style-id="3" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="140" dlg:top="101" dlg:width="35" dlg:height="8" dlg:value="&amp;187.DlgMain.rdoTeamYellow.Label"> <dlg:radio dlg:style-id="3" dlg:id="rdoTeamInstinct" dlg:tab-index="8" dlg:left="140" dlg:top="101" dlg:width="35" dlg:height="8" dlg:value="&amp;187.DlgMain.rdoTeamInstinct.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"/> <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamInstinctItemChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio> </dlg:radio>
</dlg:radiogroup> </dlg:radiogroup>
<dlg:img dlg:style-id="0" dlg:id="imgTeamLeader" dlg:tab-index="28" dlg:left="10" dlg:top="110" dlg:width="30" dlg:height="35"/> <dlg:img dlg:style-id="0" dlg:id="imgTeamLeader" dlg:tab-index="28" dlg:left="10" dlg:top="110" dlg:width="30" dlg:height="35"/>