Prize money calculation.

2026-04-24 23:27:08 -05:00 · 2017-01-16 14:02:59 -05:00 · 2017-01-16 14:02:59 -05:00 · 45ca714b48
commit 45ca714b48
parent b390c65f36
14 changed files with 85 additions and 35 deletions
--- a/GBAPokemonGameEditor.v12.suo
+++ b/GBAPokemonGameEditor.v12.suo
--- a/GBAPokemonGameEditor/TrainerEditor.Designer.vb
+++ b/GBAPokemonGameEditor/TrainerEditor.Designer.vb
@ -57,6 +57,9 @@ Partial Class TrainerEditor
        Me.TrainerItem2 = New System.Windows.Forms.ComboBox()
        Me.TrainerItem1 = New System.Windows.Forms.ComboBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.SaveMnyRt = New System.Windows.Forms.Button()
+        Me.MoneyRateTextBox = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.PkmnSvBttn = New System.Windows.Forms.Button()
        Me.PkmnEvsTextBox = New System.Windows.Forms.TextBox()
@ -82,9 +85,7 @@ Partial Class TrainerEditor
        Me.RpntPkDtBttn = New System.Windows.Forms.Button()
        Me.PointerPokeDataTextBox = New System.Windows.Forms.TextBox()
        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.MoneyRateTextBox = New System.Windows.Forms.TextBox()
-        Me.SaveMnyRt = New System.Windows.Forms.Button()
+        Me.Label15 = New System.Windows.Forms.Label()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        CType(Me.PicNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
@ -404,6 +405,7 @@ Partial Class TrainerEditor
        '
        'TabPage2
        '
+        Me.TabPage2.Controls.Add(Me.Label15)
        Me.TabPage2.Controls.Add(Me.SaveMnyRt)
        Me.TabPage2.Controls.Add(Me.MoneyRateTextBox)
        Me.TabPage2.Controls.Add(Me.Label14)
@ -419,6 +421,31 @@ Partial Class TrainerEditor
        Me.TabPage2.Text = "Trainer Class"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
+        'SaveMnyRt
+        '
+        Me.SaveMnyRt.Location = New System.Drawing.Point(64, 164)
+        Me.SaveMnyRt.Name = "SaveMnyRt"
+        Me.SaveMnyRt.Size = New System.Drawing.Size(181, 34)
+        Me.SaveMnyRt.TabIndex = 26
+        Me.SaveMnyRt.Text = "Save"
+        Me.SaveMnyRt.UseVisualStyleBackColor = True
+        '
+        'MoneyRateTextBox
+        '
+        Me.MoneyRateTextBox.Location = New System.Drawing.Point(164, 112)
+        Me.MoneyRateTextBox.Name = "MoneyRateTextBox"
+        Me.MoneyRateTextBox.Size = New System.Drawing.Size(81, 22)
+        Me.MoneyRateTextBox.TabIndex = 25
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(61, 115)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(88, 17)
+        Me.Label14.TabIndex = 24
+        Me.Label14.Text = "Money Rate:"
+        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.PkmnSvBttn)
@ -664,30 +691,14 @@ Partial Class TrainerEditor
        Me.Label6.TabIndex = 0
        Me.Label6.Text = "Pointer:"
        '
-        'Label14
+        'Label15
        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(61, 115)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(88, 17)
-        Me.Label14.TabIndex = 24
-        Me.Label14.Text = "Money Rate:"
-        '
-        'MoneyRateTextBox
-        '
-        Me.MoneyRateTextBox.Location = New System.Drawing.Point(164, 112)
-        Me.MoneyRateTextBox.Name = "MoneyRateTextBox"
-        Me.MoneyRateTextBox.Size = New System.Drawing.Size(81, 22)
-        Me.MoneyRateTextBox.TabIndex = 25
-        '
-        'SaveMnyRt
-        '
-        Me.SaveMnyRt.Location = New System.Drawing.Point(64, 144)
-        Me.SaveMnyRt.Name = "SaveMnyRt"
-        Me.SaveMnyRt.Size = New System.Drawing.Size(181, 34)
-        Me.SaveMnyRt.TabIndex = 26
-        Me.SaveMnyRt.Text = "Save"
-        Me.SaveMnyRt.UseVisualStyleBackColor = True
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(61, 144)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(98, 17)
+        Me.Label15.TabIndex = 27
+        Me.Label15.Text = "Prize Money:  "
        '
        'TrainerEditor
        '
@ -784,4 +795,5 @@ Partial Class TrainerEditor
    Friend WithEvents SaveMnyRt As System.Windows.Forms.Button
    Friend WithEvents MoneyRateTextBox As System.Windows.Forms.TextBox
    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Label15 As System.Windows.Forms.Label
 End Class
--- a/GBAPokemonGameEditor/TrainerEditor.vb
+++ b/GBAPokemonGameEditor/TrainerEditor.vb
@ -166,6 +166,8 @@ Public Class TrainerEditor

            PkmSlts.SelectedIndex = 0

+            CalcPrizeMoney()
+
            'end of Pokemon Tab Stuff

            TrainerIndexTextBox.Text = TrainerListComboBox.SelectedIndex + 1
@ -454,6 +456,8 @@ Public Class TrainerEditor

        PkmSlts.SelectedIndex = 0

+        CalcPrizeMoney()
+
        'end of Pokemon Tab Stuff

    End Sub
@ -656,4 +660,38 @@ Public Class TrainerEditor
        WriteHEX(LoadedROM, offvar + (looper * 4) + 1, Hex(MoneyRateTextBox.Text))

    End Sub
+
+    Private Sub MoneyRateTextBox_TextChanged(sender As Object, e As EventArgs) Handles MoneyRateTextBox.TextChanged
+
+        CalcPrizeMoney()
+
+    End Sub
+
+    Private Sub CalcPrizeMoney()
+
+        Dim offvar As Integer
+        Dim offvar2 As Integer
+
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TrainerTable", "")), System.Globalization.NumberStyles.HexNumber)
+        offvar = offvar + (40 * (TrainerListComboBox.SelectedIndex + 1))
+
+        offvar2 = ((Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, offvar + 36, 4))), System.Globalization.NumberStyles.HexNumber) - &H8000000))
+
+        Dim num As Integer = 0
+        Dim num2 As Integer = 8
+
+        If PokeDataFormatTextBox.Text <> "" And MoneyRateTextBox.Text <> "" Then
+
+            If PokeDataFormatTextBox.Text = 1 Or PokeDataFormatTextBox.Text = 3 Then
+                num2 = &H10
+            End If
+            If (PkmSlts.Items.Count > 0) Then
+                num = (4 * Int32.Parse(ReadHEX(LoadedROM, ((((offvar2) + (num2 * PkmSlts.Items.Count)) - num2) + 2), 1), System.Globalization.NumberStyles.HexNumber))
+            End If
+            Label15.Text = ("Prize Money: " & ((num * MoneyRateTextBox.Text)))
+
+        End If
+
+    End Sub
+
 End Class
--- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application
+++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application
@ -16,7 +16,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>rO+iiZR0DLnOusrOWO/lvyGiewUNoZwa3wggdBO/bdo=</dsig:DigestValue>
+        <dsig:DigestValue>qBYJ1Qbh9KnbSH2FyJz+ZiZFimSfvuPQHOyL73AnrsQ=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe
+++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe
--- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest
+++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest
@ -43,14 +43,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2131968">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2132992">
      <assemblyIdentity name="PokemonGameEditor" version="3.7.0.0" language="neutral" processorArchitecture="msil" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>RwSbCMu//gorFOFWqaU2hjZ/714CFkT4XB2CGm9v7LQ=</dsig:DigestValue>
+        <dsig:DigestValue>sf+OCyODPMew10CWgM5ZGHYEB3TevWWsekewwJxIcB8=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb
+++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb
--- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application
+++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application
@ -16,7 +16,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>rO+iiZR0DLnOusrOWO/lvyGiewUNoZwa3wggdBO/bdo=</dsig:DigestValue>
+        <dsig:DigestValue>qBYJ1Qbh9KnbSH2FyJz+ZiZFimSfvuPQHOyL73AnrsQ=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest
+++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest
@ -43,14 +43,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2131968">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2132992">
      <assemblyIdentity name="PokemonGameEditor" version="3.7.0.0" language="neutral" processorArchitecture="msil" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>RwSbCMu//gorFOFWqaU2hjZ/714CFkT4XB2CGm9v7LQ=</dsig:DigestValue>
+        <dsig:DigestValue>sf+OCyODPMew10CWgM5ZGHYEB3TevWWsekewwJxIcB8=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache
+++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache
--- a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application
+++ b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application
@ -16,7 +16,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>rO+iiZR0DLnOusrOWO/lvyGiewUNoZwa3wggdBO/bdo=</dsig:DigestValue>
+        <dsig:DigestValue>qBYJ1Qbh9KnbSH2FyJz+ZiZFimSfvuPQHOyL73AnrsQ=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe
+++ b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe
--- a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest
+++ b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest
@ -43,14 +43,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2131968">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2132992">
      <assemblyIdentity name="PokemonGameEditor" version="3.7.0.0" language="neutral" processorArchitecture="msil" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>RwSbCMu//gorFOFWqaU2hjZ/714CFkT4XB2CGm9v7LQ=</dsig:DigestValue>
+        <dsig:DigestValue>sf+OCyODPMew10CWgM5ZGHYEB3TevWWsekewwJxIcB8=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb
+++ b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb