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

Code cleaness.

Browse Source
This commit is contained in:
依瑪貓 2016-12-12 00:55:02 +08:00
parent 1b58d56293
commit a3752fac44
3 changed files with 237 additions and 219 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

423
PokemonGoIV/0Main.vb
View File

@ -17,23 +17,31 @@
Option Explicit Option Explicit
' The stats of a Pokémon. ' The base stats of a Pokémon.
Type aStats Type aStats
sNo As String sNo As String
sPokemon As String sPokemon As String
nStamina As Integer
nAttack As Integer
nDefense As Integer
mEvolved () As String
End Type
' The individual values of a Pokémon.
Type aIV
fLevel As Double fLevel As Double
nStamina As Integer nStamina As Integer
nAttack As Integer nAttack As Integer
nDefense As Integer nDefense As Integer
nTotal As Integer nTotal As Integer
nMaxCP As Integer nMaxCP As Integer
maEvolvedForms () As aEvolveForm maEvolved () As aEvolvedStats
End Type End Type
' The amount of star dust to power-up. ' The calculated evolved stats of a Pokémon.
Type aStarDust Type aEvolvedStats
fLevel As Double nCP As Integer
nStarDust As Integer nMaxCP As Integer
End Type End Type
' The parameters to find the individual values. ' The parameters to find the individual values.
@ -50,29 +58,24 @@ Type aFindIVParam
bIsCancelled As Boolean bIsCancelled As Boolean
End Type End Type
Type aEvolveForm
sPokemon As String
nCP As Integer
nMaxCP As Integer
End Type
Private maBaseStats () As New aStats Private maBaseStats () As New aStats
Private mCPM () As Double, mStarDust () As Integer Private mCPM () As Double, mStarDust () As Integer
' subMain: The main program ' subMain: The main program
Sub subMain Sub subMain
Dim maIVs As Variant, nI As Integer Dim aBaseStats As New aStats, maIVs As Variant, nI As Integer
Dim aQuery As New aFindIVParam, aBaseStats As New aStats Dim aQuery As New aFindIVParam
aQuery = fnAskParam aQuery = fnAskParam
If aQuery.bIsCancelled Then If aQuery.bIsCancelled Then
Exit Sub Exit Sub
End If End If
maIVs = fnFindIV (aQuery) aBaseStats = fnGetBaseStats (aQuery.sPokemon)
maIVs = fnFindIV (aBaseStats, aQuery)
If UBound (maIVs) = -1 Then If UBound (maIVs) = -1 Then
MsgBox fnGetResString ("ErrorNotFound") MsgBox fnGetResString ("ErrorNotFound")
Else Else
subSaveIV (aQuery, maIVs) subSaveIV (aBaseStats, aQuery, maIVs)
End If End If
End Sub End Sub
@ -94,9 +97,9 @@ Function fnAskParam As aFindIVParam
oDialog.getControl ("lstAppraisal2").setVisible (False) oDialog.getControl ("lstAppraisal2").setVisible (False)
oDialog.getControl ("imgPokemon").getModel.setPropertyValue ( _ oDialog.getControl ("imgPokemon").getModel.setPropertyValue ( _
"ImageURL", fnGetImageUrl ("Unknown")) "ImageURL", fnGetImageUrl ("Unknown"))
oDialog.getControl ("imgTeamLogo").getModel.setPropertyValue ( _ oDialog.getControl ("imgTeamLogo").getModel.setPropertyValue ( _
"ImageURL", fnGetImageUrl ("Unknown")) "ImageURL", fnGetImageUrl ("Unknown"))
If oDialog.execute = 0 Then If oDialog.execute = 0 Then
aQuery.bIsCancelled = True aQuery.bIsCancelled = True
@ -475,60 +478,61 @@ Sub subUpdateAppraisal1 (oDialog As Object, bIsKeepSelected As Boolean)
Dim mItems () As String, nI As Integer Dim mItems () As String, nI As Integer
If oDialog.getControl ("rdoTeamValor").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 ("rdoTeamMystic").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 ("rdoTeamInstinct").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!", _
"Overall, your [Pokémon] is pretty decent!", _ "Overall, your [Pokémon] is pretty decent!", _
"Overall, your [Pokémon] has room for improvement as far as battling goes.") "Overall, your [Pokémon] has room for improvement as far as battling goes.")
End If End If
' The team was not selected yet. ' The team was not selected yet.
If UBound (mItems) = -1 Then If UBound (mItems) = -1 Then
Exit sub Exit sub
End If End If
sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
If sPokemon <> "" Then If sPokemon <> "" Then
For nI = 0 To UBound (mItems) For nI = 0 To UBound (mItems)
mItems (nI) = fnReplace (mItems (nI), _ mItems (nI) = fnReplace (mItems (nI), _
"[Pokémon]", sPokemon) "[Pokémon]", sPokemon)
Next nI Next nI
End If End If
oList = oDialog.getControl ("lstAppraisal1") oList = oDialog.getControl ("lstAppraisal1")
If bIsKeepSelected Then If bIsKeepSelected Then
nSelected = oList.getSelectedItemPos nSelected = oList.getSelectedItemPos
End If End If
oList.removeItems (0, oList.getItemCount()) oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0) oList.addItems (mItems, 0)
If bIsKeepSelected Then If bIsKeepSelected Then
oList.selectItemPos (nSelected, True) oList.selectItemPos (nSelected, True)
End If End If
oList.setVisible (True) oList.setVisible (True)
End Sub End Sub
' fnFindIV: Finds the possible individual values of the Pokémon ' fnFindIV: Finds the possible individual values of the Pokémon
Function fnFindIV (aQuery As aFindIVParam) As Variant Function fnFindIV ( _
Dim aBaseStats As New aStats, maIV () As New aStats aBaseStats As aStats, aQuery As aFindIVParam) As Variant
Dim nEvolved As Integer
Dim maEvBaseStats () As New aStats, aTempStats As New aStats
Dim maIV () As New aIV, aTempIV As New aIV
Dim fLevel As Double, nStamina As Integer Dim fLevel As Double, nStamina As Integer
Dim nAttack As Integer, nDefense As integer Dim nAttack As Integer, nDefense As integer
Dim nI As Integer, nJ As Integer Dim nI As Integer, nJ As Integer
Dim fStep As Double, nCount As Integer Dim fStep As Double, nN As Integer
Dim aEvBaseStats As new aStats, aTempIV As New aStats
Dim maEvolvedForms () As New aEvolveForm
If aQuery.sPokemon = "" Then If aQuery.sPokemon = "" Then
fnFindIV = maIV fnFindIV = maIV
@ -539,9 +543,18 @@ Function fnFindIV (aQuery As aFindIVParam) As Variant
Else Else
fStep = 0.5 fStep = 0.5
End If End If
aBaseStats = fnGetBaseStats (aQuery.sPokemon)
subReadStarDust subReadStarDust
nCount = -1 nEvolved = UBound (aBaseStats.mEvolved)
ReDim maEvBaseStats (nEvolved) As New aStats
For nI = 0 To nEvolved
aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
With maEvBaseStats (nI)
.nAttack = aTempStats.nAttack
.nDefense = aTempStats.nDefense
.nStamina = aTempStats.nStamina
End With
Next nI
nN = -1
For fLevel = 1 To UBound (mStarDust) Step fStep For fLevel = 1 To UBound (mStarDust) Step fStep
If mStarDust (CInt (fLevel - 0.5)) = aQuery.nStarDust Then If mStarDust (CInt (fLevel - 0.5)) = aQuery.nStarDust Then
For nStamina = 0 To 15 For nStamina = 0 To 15
@ -549,32 +562,33 @@ Function fnFindIV (aQuery As aFindIVParam) As Variant
For nAttack = 0 To 15 For nAttack = 0 To 15
For nDefense = 0 To 15 For nDefense = 0 To 15
If fnCalcCP (aBaseStats, fLevel, nAttack, nDefense, nStamina) = aQuery.nCP _ If fnCalcCP (aBaseStats, fLevel, nAttack, nDefense, nStamina) = aQuery.nCP _
And Not (fnFilterAppraisals (aQuery, nAttack, nDefense, nStamina)) Then And Not fnFilterAppraisals (aQuery, nAttack, nDefense, nStamina) Then
nCount = nCount + 1 nN = nN + 1
ReDim Preserve maIV (nCount) As New aStats ReDim Preserve maIV (nN) As New aIV
With maIV (nCount) With maIV (nN)
.sNo = aBaseStats.sNo
.sPokemon = aQuery.sPokemon
.fLevel = fLevel .fLevel = fLevel
.nAttack = nAttack .nAttack = nAttack
.nDefense = nDefense .nDefense = nDefense
.nStamina = nStamina .nStamina = nStamina
.nTotal = nAttack + nDefense + nStamina .nTotal = nAttack _
+ nDefense + nStamina
End With End With
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
maIV (nCount).nMaxCP = fnCalcCP (aBaseStats, aQuery.nPlayerLevel + 1.5, nAttack, nDefense, nStamina) maIV (nN).nMaxCP = fnCalcCP ( _
Else aBaseStats, _
maIV (nCount).nMaxCP = -1 aQuery.nPlayerLevel + 1.5, _
nAttack, nDefense, nStamina)
End If End If
maIV (nCount).maEvolvedForms = fnGetEvolvedFormArray (UBound (aBaseStats.maEvolvedForms)) maIV (nN).maEvolved _
For nI = 0 To UBound (aBaseStats.maEvolvedForms) = fnGetEvolvedArray (nEvolved)
maIV (nCount).maEvolvedForms (nI).sPokemon = aBaseStats.maEvolvedForms (nI).sPokemon For nI = 0 To nEvolved
aEvBaseStats = fnGetBaseStats (aBaseStats.maEvolvedForms (nI).sPokemon) maIV (nN).maEvolved (nI).nCP _
maIV (nCount).maEvolvedForms (nI).nCP = fnCalcCP (aEvBaseStats, fLevel, nAttack, nDefense, nStamina) = fnCalcCP ( _
maEvBaseStats (nI), _
fLevel, nAttack, _
nDefense, nStamina)
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
maIV (nCount).maEvolvedForms (nI).nMaxCP = fnCalcCP (aEvBaseStats, aQuery.nPlayerLevel + 1.5, nAttack, nDefense, nStamina) maIV (nN).maEvolved (nI).nMaxCP = fnCalcCP (maEvBaseStats (nI), aQuery.nPlayerLevel + 1.5, nAttack, nDefense, nStamina)
Else
maIV (nCount).maEvolvedForms (nI).nMaxCP = -1
End If End If
Next nI Next nI
End If End If
@ -588,6 +602,9 @@ Function fnFindIV (aQuery As aFindIVParam) As Variant
For nI = 0 To UBound (maIV) - 1 For nI = 0 To UBound (maIV) - 1
For nJ = nI + 1 To UBound (maIV) For nJ = nI + 1 To UBound (maIV)
If fnCompareIV (maIV (nI), maIV (nJ)) > 0 Then If fnCompareIV (maIV (nI), maIV (nJ)) > 0 Then
' This is an array of data. The data are actually
' allocated in sequences. maIV (nI) is not a
' reference. They cannot simply be assigned.
subCopyIV (maIV (nI), aTempIV) subCopyIV (maIV (nI), aTempIV)
subCopyIV (maIV (nJ), maIV (nI)) subCopyIV (maIV (nJ), maIV (nI))
subCopyIV (aTempIV, maIV (nJ)) subCopyIV (aTempIV, maIV (nJ))
@ -598,19 +615,19 @@ Function fnFindIV (aQuery As aFindIVParam) As Variant
End Function End Function
' fnCompareIV: Compare two IVs for sorting ' fnCompareIV: Compare two IVs for sorting
Function fnCompareIV (aIVa As aStats, aIVb As aStats) As Double Function fnCompareIV (aIVa As aIV, aIVb As aIV) As Double
Dim nCPa As Integer, nCPb As Integer, nI As Integer Dim nCPa As Integer, nCPb As Integer, nI As Integer
nCPa = aIVa.nMaxCP nCPa = aIVa.nMaxCP
For nI = 0 To UBound (aIVa.maEvolvedForms) For nI = 0 To UBound (aIVa.maEvolved)
If nCPa < aIVa.maEvolvedForms (nI).nMaxCP Then If nCPa < aIVa.maEvolved (nI).nMaxCP Then
nCPa = aIVa.maEvolvedForms (nI).nMaxCP nCPa = aIVa.maEvolved (nI).nMaxCP
End If End If
Next nI Next nI
nCPb = aIVb.nMaxCP nCPb = aIVb.nMaxCP
For nI = 0 To UBound (aIVb.maEvolvedForms) For nI = 0 To UBound (aIVb.maEvolved)
If nCPb < aIVb.maEvolvedForms (nI).nMaxCP Then If nCPb < aIVb.maEvolved (nI).nMaxCP Then
nCPb = aIVb.maEvolvedForms (nI).nMaxCP nCPb = aIVb.maEvolved (nI).nMaxCP
End If End If
Next nI Next nI
fnCompareIV = nCPb - nCPa fnCompareIV = nCPb - nCPa
@ -619,15 +636,15 @@ Function fnCompareIV (aIVa As aStats, aIVb As aStats) As Double
End If End If
nCPa = 0 nCPa = 0
For nI = 0 To UBound (aIVa.maEvolvedForms) For nI = 0 To UBound (aIVa.maEvolved)
If nCPa < aIVa.maEvolvedForms (nI).nCP Then If nCPa < aIVa.maEvolved (nI).nCP Then
nCPa = aIVa.maEvolvedForms (nI).nCP nCPa = aIVa.maEvolved (nI).nCP
End If End If
Next nI Next nI
nCPb = 0 nCPb = 0
For nI = 0 To UBound (aIVb.maEvolvedForms) For nI = 0 To UBound (aIVb.maEvolved)
If nCPb < aIVb.maEvolvedForms (nI).nCP Then If nCPb < aIVb.maEvolved (nI).nCP Then
nCPb = aIVb.maEvolvedForms (nI).nCP nCPb = aIVb.maEvolved (nI).nCP
End If End If
Next nI Next nI
fnCompareIV = nCPb - nCPa fnCompareIV = nCPb - nCPa
@ -658,77 +675,88 @@ Function fnCompareIV (aIVa As aStats, aIVb As aStats) As Double
End Function End Function
' subCopyIV: Copies one IV to another ' subCopyIV: Copies one IV to another
Function subCopyIV (aFrom As aStats, aTo As aStats) As Double Function subCopyIV (aFrom As aIV, aTo As aIV) As Double
Dim nI As Integer, maEvolvedForms () As New aEvolveForm Dim nI As Integer
With aTo With aTo
.sNo = aFrom.sNo
.sPokemon = aFrom.sPokemon
.fLevel = aFrom.fLevel
.nAttack = aFrom.nAttack .nAttack = aFrom.nAttack
.nDefense = aFrom.nDefense .nDefense = aFrom.nDefense
.nStamina = aFrom.nStamina .nStamina = aFrom.nStamina
.nTotal = aFrom.nTotal .nTotal = aFrom.nTotal
.nMaxCP = aFrom.nMaxCP .nMaxCP = aFrom.nMaxCP
End With End With
aTo.maEvolvedForms = fnGetEvolvedFormArray (UBound (aFrom.maEvolvedForms)) aTo.maEvolved = fnGetEvolvedArray (UBound (aFrom.maEvolved))
For nI = 0 To UBound (aFrom.maEvolvedForms) For nI = 0 To UBound (aFrom.maEvolved)
With aTo.maEvolvedForms (nI) With aTo.maEvolved (nI)
.sPokemon = aFrom.maEvolvedForms (nI).sPokemon .nCP = aFrom.maEvolved (nI).nCP
.nCP = aFrom.maEvolvedForms (nI).nCP .nMaxCP = aFrom.maEvolved (nI).nMaxCP
.nMaxCP = aFrom.maEvolvedForms (nI).nMaxCP
End With End With
Next nI Next nI
End Function End Function
' subSaveIV: Saves the found IV ' subSaveIV: Saves the found IV
Sub subSaveIV (aQuery As aFindIVParam, maIVs () As aStats) Sub subSaveIV ( _
aBaseStats As aStats, aQuery As aFindIVParam, maIVs () As aIV)
Dim oDoc As Object, oSheet As Object Dim oDoc As Object, oSheet As Object
Dim oRange As Object, oColumns As Object, oRows As Object Dim oRange As Object, oColumns As Object, oRows As Object
Dim nI As Integer, nJ As Integer, nFrontCols As Integer Dim nI As Integer, nJ As Integer, nFront As Integer
Dim nEvolved As Integer
Dim mData (Ubound (maIVs) + 1) As Variant, mRow () As Variant Dim mData (Ubound (maIVs) + 1) As Variant, mRow () As Variant
Dim mProps () As New com.sun.star.beans.PropertyValue Dim mProps () As New com.sun.star.beans.PropertyValue
oDoc = StarDesktop.loadComponentFromURL ( _ oDoc = StarDesktop.loadComponentFromURL ( _
"private:factory/scalc", "_default", 0, mProps) "private:factory/scalc", "_default", 0, mProps)
oSheet = oDoc.getSheets.getByIndex (0) oSheet = oDoc.getSheets.getByIndex (0)
nEvolved = UBound (maIVs (0).maEvolved) + 1
mRow = Array ( _ mRow = Array ( _
"No", "Pokemon", "CP", "HP", "Star dust", _ "No", "Pokemon", "CP", "HP", "Star dust", _
"Lv", "Atk", "Def", "Sta", "IV") "Lv", "Atk", "Def", "Sta", "IV")
nFrontCols = UBound (mRow) nFront = UBound (mRow)
If aQuery.sPokemon = "Eevee" Then If aQuery.sPokemon = "Eevee" Then
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
ReDim Preserve mRow (nFrontCols + 6) As Variant ReDim Preserve mRow (nFront + 6) As Variant
mRow (nFrontCols + 1) = "CP as " & maIVs (0).maEvolvedForms (0).sPokemon mRow (nFront + 1) = "CP as " _
mRow (nFrontCols + 2) = "Powered-up as " & maIVs (0).maEvolvedForms (0).sPokemon & aBaseStats.mEvolved (0)
mRow (nFrontCols + 3) = "CP as " & maIVs (0).maEvolvedForms (1).sPokemon mRow (nFront + 2) = "Powered-up as " _
mRow (nFrontCols + 4) = "Powered-up as " & maIVs (0).maEvolvedForms (1).sPokemon & aBaseStats.mEvolved (0)
mRow (nFrontCols + 5) = "CP as " & maIVs (0).maEvolvedForms (2).sPokemon mRow (nFront + 3) = "CP as " _
mRow (nFrontCols + 6) = "Powered-up as " & maIVs (0).maEvolvedForms (2).sPokemon & aBaseStats.mEvolved (1)
mRow (nFront + 4) = "Powered-up as " _
& aBaseStats.mEvolved (1)
mRow (nFront + 5) = "CP as " _
& aBaseStats.mEvolved (2)
mRow (nFront + 6) = "Powered-up as " _
& aBaseStats.mEvolved (2)
Else Else
ReDim Preserve mRow (nFrontCols + 3) As Variant ReDim Preserve mRow (nFront + 3) As Variant
mRow (nFrontCols + 1) = "CP as " & maIVs (0).maEvolvedForms (0).sPokemon mRow (nFront + 1) = "CP as " _
mRow (nFrontCols + 2) = "CP as " & maIVs (0).maEvolvedForms (1).sPokemon & aBaseStats.mEvolved (0)
mRow (nFrontCols + 3) = "CP as " & maIVs (0).maEvolvedForms (2).sPokemon mRow (nFront + 2) = "CP as " _
& aBaseStats.mEvolved (1)
mRow (nFront + 3) = "CP as " _
& aBaseStats.mEvolved (2)
End If End If
Else Else
If UBound (maIVs (0).maEvolvedForms) = -1 Then If nEvolved = 0 Then
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
ReDim Preserve mRow (nFrontCols + 1) As Variant ReDim Preserve mRow (nFront + 1) As Variant
mRow (nFrontCols + 1) = "Powered-up" mRow (nFront + 1) = "Powered-up"
End If End If
Else Else
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
ReDim Preserve mRow (nFrontCols + UBound (maIVs (0).maEvolvedForms) + 2) As Variant ReDim Preserve mRow (nFront + nEvolved + 1) As Variant
For nJ = 0 To UBound (maIVs (0).maEvolvedForms) For nJ = 0 To nEvolved - 1
mRow (nFrontCols + nJ + 1) = "CP as " & maIVs (0).maEvolvedForms (nJ).sPokemon mRow (nFront + nJ + 1) = "CP as " _
& aBaseStats.mEvolved (nJ)
Next nJ Next nJ
mRow (UBound (mRow)) = "Powered-up as " & maIVs (0).maEvolvedForms (UBound (maIVs (0).maEvolvedForms)).sPokemon mRow (UBound (mRow)) = "Powered-up as " _
& aBaseStats.mEvolved (nEvolved - 1)
Else Else
ReDim Preserve mRow (nFrontCols + UBound (maIVs (0).maEvolvedForms) + 1) As Variant ReDim Preserve mRow (nFront + nEvolved) As Variant
For nJ = 0 To UBound (maIVs (0).maEvolvedForms) For nJ = 0 To nEvolved - 1
mRow (nFrontCols + nJ + 1) = "CP as " & maIVs (0).maEvolvedForms (nJ).sPokemon mRow (nFront + nJ + 1) = "CP as " _
& aBaseStats.mEvolved (nJ)
Next nJ Next nJ
End If End If
End If End If
@ -738,40 +766,41 @@ Sub subSaveIV (aQuery As aFindIVParam, maIVs () As aStats)
For nI = 0 To UBound (maIVs) For nI = 0 To UBound (maIVs)
mRow = Array ( _ mRow = Array ( _
"", "", "", "", "", _ "", "", "", "", "", _
maIVs (nI).fLevel, maIVs (nI).nAttack, maIVs (nI).nDefense, _ maIVs (nI).fLevel, maIVs (nI).nAttack, _
maIVs (nI).nStamina, maIVs (nI).nTotal / 45) maIVs (nI).nDefense, maIVs (nI).nStamina, _
maIVs (nI).nTotal / 45)
If aQuery.sPokemon = "Eevee" Then If aQuery.sPokemon = "Eevee" Then
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
ReDim Preserve mRow (nFrontCols + 6) As Variant ReDim Preserve mRow (nFront + 6) As Variant
mRow (nFrontCols + 1) = maIVs (nI).maEvolvedForms (0).nCP mRow (nFront + 1) = maIVs (nI).maEvolved (0).nCP
mRow (nFrontCols + 2) = maIVs (nI).maEvolvedForms (0).nMaxCP mRow (nFront + 2) = maIVs (nI).maEvolved (0).nMaxCP
mRow (nFrontCols + 3) = maIVs (nI).maEvolvedForms (1).nCP mRow (nFront + 3) = maIVs (nI).maEvolved (1).nCP
mRow (nFrontCols + 4) = maIVs (nI).maEvolvedForms (1).nMaxCP mRow (nFront + 4) = maIVs (nI).maEvolved (1).nMaxCP
mRow (nFrontCols + 5) = maIVs (nI).maEvolvedForms (2).nCP mRow (nFront + 5) = maIVs (nI).maEvolved (2).nCP
mRow (nFrontCols + 6) = maIVs (nI).maEvolvedForms (2).nMaxCP mRow (nFront + 6) = maIVs (nI).maEvolved (2).nMaxCP
Else Else
ReDim Preserve mRow (nFrontCols + 3) As Variant ReDim Preserve mRow (nFront + 3) As Variant
mRow (nFrontCols + 1) = maIVs (nI).maEvolvedForms (0).nCP mRow (nFront + 1) = maIVs (nI).maEvolved (0).nCP
mRow (nFrontCols + 2) = maIVs (nI).maEvolvedForms (1).nCP mRow (nFront + 2) = maIVs (nI).maEvolved (1).nCP
mRow (nFrontCols + 3) = maIVs (nI).maEvolvedForms (2).nCP mRow (nFront + 3) = maIVs (nI).maEvolved (2).nCP
End If End If
Else Else
If UBound (maIVs (nI).maEvolvedForms) = -1 Then If nEvolved = 0 Then
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
ReDim Preserve mRow (nFrontCols + 1) As Variant ReDim Preserve mRow (nFront + 1) As Variant
mRow (nFrontCols + 1) = maIVs (nI).nMaxCP mRow (nFront + 1) = maIVs (nI).nMaxCP
End If End If
Else Else
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
ReDim Preserve mRow (nFrontCols + UBound (maIVs (nI).maEvolvedForms) + 2) As Variant ReDim Preserve mRow (nFront + nEvolved + 1) As Variant
For nJ = 0 To UBound (maIVs (nI).maEvolvedForms) For nJ = 0 To nEvolved - 1
mRow (nFrontCols + nJ + 1) = maIVs (nI).maEvolvedForms (nJ).nCP mRow (nFront + nJ + 1) = maIVs (nI).maEvolved (nJ).nCP
Next nJ Next nJ
mRow (UBound (mRow)) = maIVs (nI).maEvolvedForms (UBound (maIVs (nI).maEvolvedForms)).nMaxCP mRow (UBound (mRow)) = maIVs (nI).maEvolved (nEvolved - 1).nMaxCP
Else Else
ReDim Preserve mRow (nFrontCols + UBound (maIVs (nI).maEvolvedForms) + 1) As Variant ReDim Preserve mRow (nFront + nEvolved) As Variant
For nJ = 0 To UBound (maIVs (nI).maEvolvedForms) For nJ = 0 To nEvolved - 1
mRow (nFrontCols + nJ + 1) = maIVs (nI).maEvolvedForms (nJ).nCP mRow (nFront + nJ + 1) = maIVs (nI).maEvolved (nJ).nCP
Next nJ Next nJ
End If End If
End If End If
@ -780,7 +809,7 @@ Sub subSaveIV (aQuery As aFindIVParam, maIVs () As aStats)
Next nI Next nI
' Fills the query information at the first row ' Fills the query information at the first row
mData (1) (0) = maIVs (0).sNo mData (1) (0) = aBaseStats.sNo
mData (1) (1) = aQuery.sPokemon mData (1) (1) = aQuery.sPokemon
mData (1) (2) = aQuery.nCP mData (1) (2) = aQuery.nCP
mData (1) (3) = aQuery.nHP mData (1) (3) = aQuery.nHP
@ -815,12 +844,12 @@ Sub subSaveIV (aQuery As aFindIVParam, maIVs () As aStats)
oRange = oSheet.getCellRangeByPosition ( _ oRange = oSheet.getCellRangeByPosition ( _
10, 0, 15, 0) 10, 0, 15, 0)
Else Else
If UBound (maIVs (0).maEvolvedForms) = -1 Then If nEvolved = 0 Then
oRange = oSheet.getCellRangeByPosition ( _ oRange = oSheet.getCellRangeByPosition ( _
10, 0, 10, 0) 10, 0, 10, 0)
Else Else
oRange = oSheet.getCellRangeByPosition ( _ oRange = oSheet.getCellRangeByPosition ( _
10, 0, 10 + UBound (maIVs (0).maEvolvedForms) + 2, 0) 10, 0, 10 + nEvolved + 1, 0)
End If End If
End If End If
oRange.setPropertyValue ("IsTextWrapped", True) oRange.setPropertyValue ("IsTextWrapped", True)
@ -841,49 +870,62 @@ Sub subSaveIV (aQuery As aFindIVParam, maIVs () As aStats)
If aQuery.sPokemon = "Eevee" Then If aQuery.sPokemon = "Eevee" Then
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
For nI = 0 To 5 Step 2 For nI = 0 To 5 Step 2
oColumns.getByIndex (10 + nI).setPropertyValue ("Width", 2310) oColumns.getByIndex (10 + nI).setPropertyValue ( _
oColumns.getByIndex (10 + nI + 1).setPropertyValue ("Width", 2810) "Width", 2310)
oColumns.getByIndex (10 + nI + 1).setPropertyValue ( _
"Width", 2810)
Next nI Next nI
Else Else
For nI = 0 To 2 For nI = 0 To 2
oColumns.getByIndex (10 + nI).setPropertyValue ("Width", 2310) oColumns.getByIndex (10 + nI).setPropertyValue ( _
"Width", 2310)
Next nI Next nI
End If End If
Else Else
If UBound (maIVs (0).maEvolvedForms) = -1 Then If nEvolved = 0 Then
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
oColumns.getByIndex (10).setPropertyValue ("Width", 2200) oColumns.getByIndex (10).setPropertyValue ( _
"Width", 2200)
End If End If
Else Else
For nI = 0 To UBound (maIVs (0).maEvolvedForms) For nI = 0 To nEvolved - 1
oColumns.getByIndex (10 + nI).setPropertyValue ("Width", 2310) oColumns.getByIndex (10 + nI).setPropertyValue ( _
"Width", 2310)
Next nI Next nI
If aQuery.nPlayerLevel <> 0 Then If aQuery.nPlayerLevel <> 0 Then
oColumns.getByIndex (10 + UBound (maIVs (0).maEvolvedForms) + 1).setPropertyValue ("Width", 2810) oColumns.getByIndex ( _
10 + nEvolved).setPropertyValue ( _
"Width", 2810)
End If End If
End If End If
End If End If
End Sub End Sub
' fnFilterAppraisals: Filters the IV by the appraisals. ' fnFilterAppraisals: Filters the IV by the appraisals.
Function fnFilterAppraisals (aQuery As aFindIVParam, nAttack As Integer, nDefense As Integer, nStamina As Integer) As Boolean Function fnFilterAppraisals (aQuery As aFindIVParam, _
nAttack As Integer, nDefense As Integer, _
nStamina As Integer) As Boolean
Dim nTotal As Integer, nMax As Integer, sBest As String Dim nTotal As Integer, nMax As Integer, sBest As String
' The first appraisal. ' The first appraisal.
nTotal = nAttack + nDefense + nStamina nTotal = nAttack + nDefense + nStamina
If aQuery.nAppraisal1 = 1 And Not (nTotal >= 37) Then If aQuery.nAppraisal1 = 1 _
And Not (nTotal >= 37) Then
fnFilterAppraisals = True fnFilterAppraisals = True
Exit Function Exit Function
End If End If
If aQuery.nAppraisal1 = 2 And Not (nTotal >= 30 And nTotal <= 36) Then If aQuery.nAppraisal1 = 2 _
And Not (nTotal >= 30 And nTotal <= 36) Then
fnFilterAppraisals = True fnFilterAppraisals = True
Exit Function Exit Function
End If End If
If aQuery.nAppraisal1 = 3 And Not (nTotal >= 23 And nTotal <= 29) Then If aQuery.nAppraisal1 = 3 _
And Not (nTotal >= 23 And nTotal <= 29) Then
fnFilterAppraisals = True fnFilterAppraisals = True
Exit Function Exit Function
End If End If
If aQuery.nAppraisal1 = 4 And Not (nTotal <= 22) Then If aQuery.nAppraisal1 = 4 _
And Not (nTotal <= 22) Then
fnFilterAppraisals = True fnFilterAppraisals = True
Exit Function Exit Function
End If End If
@ -932,21 +974,24 @@ Function fnFilterAppraisals (aQuery As aFindIVParam, nAttack As Integer, nDefens
End Function End Function
' fnCalcCP: Calculates the combat power of the Pokémon ' fnCalcCP: Calculates the combat power of the Pokémon
Function fnCalcCP (aBaseStats As aStats, fLevel As Double, nAttack As Integer, nDefense As Integer, nStamina As Integer) As Integer Function fnCalcCP (aBaseStats As aStats, fLevel As Double, _
Dim nCP As Integer nAttack As Integer, nDefense As Integer, _
nStamina As Integer) As Integer
Dim nCP As Integer
nCP = fnFloor ((aBaseStats.nAttack + nAttack) _ nCP = fnFloor ((aBaseStats.nAttack + nAttack) _
* ((aBaseStats.nDefense + nDefense) ^ 0.5) _ * ((aBaseStats.nDefense + nDefense) ^ 0.5) _
* ((aBaseStats.nStamina + nStamina) ^ 0.5) _ * ((aBaseStats.nStamina + nStamina) ^ 0.5) _
* (fnGetCPM (fLevel) ^ 2) / 10) * (fnGetCPM (fLevel) ^ 2) / 10)
If nCP < 10 Then If nCP < 10 Then
nCP = 10 nCP = 10
End If End If
fnCalcCP = nCP fnCalcCP = nCP
End Function End Function
' fnCalcHP: Calculates the hit points of the Pokémon ' fnCalcHP: Calculates the hit points of the Pokémon
Function fnCalcHP (aBaseStats As aStats, fLevel As Double, nStamina As Integer) As Integer Function fnCalcHP (aBaseStats As aStats, _
fLevel As Double, nStamina As Integer) As Integer
Dim nHP As Integer Dim nHP As Integer
nHP = fnFloor ((aBaseStats.nStamina + nStamina) _ nHP = fnFloor ((aBaseStats.nStamina + nStamina) _
@ -991,6 +1036,7 @@ End Function
' subReadBaseStats: Reads the base stats table. ' subReadBaseStats: Reads the base stats table.
Sub subReadBaseStats Sub subReadBaseStats
Dim mData As Variant, nI As Integer, nJ As Integer Dim mData As Variant, nI As Integer, nJ As Integer
DIm nEvolved As Integer
If UBound (maBaseStats) = -1 Then If UBound (maBaseStats) = -1 Then
mData = fnGetBaseStatsData mData = fnGetBaseStatsData
@ -1003,52 +1049,47 @@ Sub subReadBaseStats
.nAttack = mData (nI) (3) .nAttack = mData (nI) (3)
.nDefense = mData (nI) (4) .nDefense = mData (nI) (4)
End With End With
maBaseStats (nI).maEvolvedForms = fnGetEvolvedFormArray (UBound (mData (nI) (5))) nEvolved = UBound (mData (nI) (5))
For nJ = 0 To UBound (maBaseStats (nI).maEvolvedForms) maBaseStats (nI).mEvolved = fnGetStringArray (nEvolved)
With maBaseStats (nI).maEvolvedForms (nJ) For nJ = 0 To nEvolved
.sPokemon = mData (nI) (5) (nJ) maBaseStats (nI).mEvolved (nJ) = mData (nI) (5) (nJ)
.nCP = -1
.nMaxCP = -1
End With
Next nJ Next nJ
Next nI Next nI
End If End If
End Sub End Sub
' fnGetEvolvedFormArray: Obtains a blank aEvolveForm array ' fnGetStringArray: Obtains a blank string array
Function fnGetEvolvedFormArray (nUBound As Integer) As Variant Function fnGetStringArray (nUBound As Integer) As Variant
If nUBound = -1 Then Dim mData () As String
fnGetEvolvedFormArray = fnGetEmptyEvolvedFormArray
Else If nUBound >= 0 Then
fnGetEvolvedFormArray = fnGetNumberedEvolvedFormArray (nUBound) ReDim Preserve mData (nUBound) As String
End If End If
fnGetStringArray = mData
End Function End Function
' fnGetNumberedEvolvedFormArray: Obtains a numbered aEvolveForm array ' fnGetEvolvedArray: Obtains a blank aEvolvedStats array
Function fnGetNumberedEvolvedFormArray (nUBound As Integer) As Variant Function fnGetEvolvedArray (nUBound As Integer) As Variant
Dim mData (nUBound) As New aEvolveForm Dim mData () As New aEvolvedStats
fnGetNumberedEvolvedFormArray = mData If nUBound >= 0 Then
End Function ReDim Preserve mData (nUBound) As New aEvolvedStats
End If
' fnGetEmptyEvolvedFormArray: Obtains an empty aEvolveForm array fnGetEvolvedArray = mData
Function fnGetEmptyEvolvedFormArray () As Variant
Dim mData () As New aEvolveForm
fnGetEmptyEvolvedFormArray = mData
End Function End Function
' fnReplace: Replaces all occurrances of a term to another. ' fnReplace: Replaces all occurrances of a term to another.
Function fnReplace (sText As String, sFrom As String, sTo As String) As String Function fnReplace ( _
Dim nPos As Integer sText As String, sFrom As String, sTo As String) As String
Dim nPos As Integer
nPos = InStr (sText, sFrom)
Do While nPos <> 0 nPos = InStr (sText, sFrom)
sText = Left (sText, nPos - 1) & sTo _ Do While nPos <> 0
& Right (sText, Len (sText) - nPos - Len (sFrom) + 1) sText = Left (sText, nPos - 1) & sTo _
nPos = InStr (nPos + Len (sTo), sText, sFrom) & Right (sText, Len (sText) - nPos - Len (sFrom) + 1)
Loop nPos = InStr (nPos + Len (sTo), sText, sFrom)
fnReplace = sText Loop
fnReplace = sText
End Function End Function
' subReadCPM: Reads the CPM table. ' subReadCPM: Reads the CPM table.

32
PokemonGoIV/8Registry.vb
View File

@ -7,46 +7,22 @@ Const BASE_KEY As String = "/org.openoffice.Office.Addons.PokemonGoIV.AddonConfi
' fnGetImageUrl: Returns the image URL for the UNO image controls. ' fnGetImageUrl: Returns the image URL for the UNO image controls.
Function fnGetImageUrl (sName As String) As String Function fnGetImageUrl (sName As String) As String
BasicLibraries.loadLibrary "Tools"
Dim oRegKey As Object Dim oRegKey As Object
oRegKey = fnGetRegistryKeyContent (BASE_KEY & "FileResources/" & sName) oRegKey = GetRegistryKeyContent (BASE_KEY & "FileResources/" & sName)
fnGetImageUrl = fnExpandMacroFieldExpression (oRegKey.Url) fnGetImageUrl = fnExpandMacroFieldExpression (oRegKey.Url)
End Function End Function
' fnGetResString: Returns the localized text string. ' fnGetResString: Returns the localized text string.
Function fnGetResString (sID As String) As String Function fnGetResString (sID As String) As String
BasicLibraries.loadLibrary "Tools"
Dim oRegKey As Object Dim oRegKey As Object
oRegKey = fnGetRegistryKeyContent (BASE_KEY & "Messages/" & sID) oRegKey = GetRegistryKeyContent (BASE_KEY & "Messages/" & sID)
fnGetResString = oRegKey.Text fnGetResString = oRegKey.Text
End Function End Function
' fnGetRegistryKeyContent: Returns the registry key content
Function fnGetRegistryKeyContent (sKeyName as string, Optional bforUpdate as Boolean)
Dim oConfigProvider As Object
Dim aNodePath (0) As New com.sun.star.beans.PropertyValue
oConfigProvider = createUnoService ( _
"com.sun.star.configuration.ConfigurationProvider")
aNodePath(0).Name = "nodepath"
aNodePath(0).Value = sKeyName
If IsMissing (bForUpdate) Then
fnGetRegistryKeyContent = oConfigProvider.createInstanceWithArguments ( _
"com.sun.star.configuration.ConfigurationAccess", _
aNodePath())
Else
If bForUpdate Then
fnGetRegistryKeyContent = oConfigProvider.createInstanceWithArguments ( _
"com.sun.star.configuration.ConfigurationUpdateAccess", _
aNodePath())
Else
fnGetRegistryKeyContent = oConfigProvider.createInstanceWithArguments ( _
"com.sun.star.configuration.ConfigurationAccess", _
aNodePath())
End If
End If
End Function
' fnExpandMacroFieldExpression ' fnExpandMacroFieldExpression
Function fnExpandMacroFieldExpression (sURL As String) As String Function fnExpandMacroFieldExpression (sURL As String) As String
Dim sTemp As String Dim sTemp As String

1
TODO
View File

@ -1,4 +1,5 @@
PokemonGoIV TODO PokemonGoIV TODO
* UNO control max HP limitation.
* Fold long lines. * Fold long lines.
* Center the dialog. * Center the dialog.