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

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
PokemonGoIV/0Main.vb
View File

@ -223,8 +223,8 @@ Sub subLstPokemonSelected (oEvent As object)
subBtnOKCheck (oEvent)
End Sub
' subRdoTeamRedItemChanged: When the red team is selected.
Sub subRdoTeamRedItemChanged (oEvent As object)
' subRdoTeamValorItemChanged: When Team Valor is selected.
Sub subRdoTeamValorItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@ -260,8 +260,8 @@ Sub subRdoTeamRedItemChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamBlueItemChanged: When the blue team is selected.
Sub subRdoTeamBlueItemChanged (oEvent As object)
' subRdoTeamMysticItemChanged: When Team Mystic is selected.
Sub subRdoTeamMysticItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@ -297,8 +297,8 @@ Sub subRdoTeamBlueItemChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamYellowItemChanged: When the yellow team is selected.
Sub subRdoTeamYellowItemChanged (oEvent As object)
' subRdoTeamInstinctItemChanged: When Team Instinct is selected.
Sub subRdoTeamInstinctItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@ -373,7 +373,7 @@ Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object
oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then
If oDialog.getControl ("rdoTeamValor").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Defense.")
@ -405,7 +405,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamBlue").getState Then
If oDialog.getControl ("rdoTeamMystic").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Defense.")
@ -437,7 +437,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamYellow").getState Then
If oDialog.getControl ("rdoTeamInstinct").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2")
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 mItems () As String, nI As Integer
If oDialog.getControl ("rdoTeamRed").getState Then
If oDialog.getControl ("rdoTeamValor").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
If oDialog.getControl ("rdoTeamMystic").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
If oDialog.getControl ("rdoTeamInstinct").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!", _

3
TODO
View File

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

26
oxt/PokemonGoIV/0Main.xba
View File

@ -225,8 +225,8 @@ Sub subLstPokemonSelected (oEvent As object)
subBtnOKCheck (oEvent)
End Sub
' subRdoTeamRedItemChanged: When the red team is selected.
Sub subRdoTeamRedItemChanged (oEvent As object)
' subRdoTeamValorItemChanged: When Team Valor is selected.
Sub subRdoTeamValorItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@ -262,8 +262,8 @@ Sub subRdoTeamRedItemChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamBlueItemChanged: When the blue team is selected.
Sub subRdoTeamBlueItemChanged (oEvent As object)
' subRdoTeamMysticItemChanged: When Team Mystic is selected.
Sub subRdoTeamMysticItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@ -299,8 +299,8 @@ Sub subRdoTeamBlueItemChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamYellowItemChanged: When the yellow team is selected.
Sub subRdoTeamYellowItemChanged (oEvent As object)
' subRdoTeamInstinctItemChanged: When Team Instinct is selected.
Sub subRdoTeamInstinctItemChanged (oEvent As object)
Dim oDialog As Object, oList As Object, oText As Object
Dim oImageModel As Object
Dim mItems () As String
@ -375,7 +375,7 @@ Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object
oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then
If oDialog.getControl ("rdoTeamValor").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Defense.")
@ -407,7 +407,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamBlue").getState Then
If oDialog.getControl ("rdoTeamMystic").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Defense.")
@ -439,7 +439,7 @@ Sub subLstBestItemChanged (oEvent As object)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamYellow").getState Then
If oDialog.getControl ("rdoTeamInstinct").getState Then
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
oCheckBox = oDialog.getControl ("cbxBest2")
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 mItems () As String, nI As Integer
If oDialog.getControl ("rdoTeamRed").getState Then
If oDialog.getControl ("rdoTeamValor").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
If oDialog.getControl ("rdoTeamMystic").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
If oDialog.getControl ("rdoTeamInstinct").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!", _
@ -1060,4 +1060,4 @@ Sub subReadStarDust
mStarDust = fnGetStarDustData
End If
End Sub
</script:module>
</script:module>

6
oxt/PokemonGoIV/DialogStrings_en_US.properties
View File

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

6
oxt/PokemonGoIV/DialogStrings_zh_TW.properties
View File

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

12
oxt/PokemonGoIV/DlgMain.xdl
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: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: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">
<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: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.subRdoTeamValorItemChanged?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="100" dlg:top="101" dlg:width="35" 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: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.subRdoTeamMysticItemChanged?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="140" dlg:top="101" dlg:width="35" 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: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.subRdoTeamInstinctItemChanged?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="110" dlg:width="30" dlg:height="35"/>