mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-08-21 18:04:18 -05:00
Trainer editor saving!
The trainer editor can now save Pokemon data. It's almost usable.
This commit is contained in:
Binary file not shown.
116
GBAPokemonGameEditor/TrainerEditor.Designer.vb
generated
116
GBAPokemonGameEditor/TrainerEditor.Designer.vb
generated
@@ -58,6 +58,12 @@ Partial Class TrainerEditor
|
||||
Me.TrainerItem1 = New System.Windows.Forms.ComboBox()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.PkmnSvBttn = New System.Windows.Forms.Button()
|
||||
Me.PkmnEvsTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.PkmLvlTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.AttackComboBox4 = New System.Windows.Forms.ComboBox()
|
||||
Me.AttackComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.AttackComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
@@ -76,12 +82,6 @@ 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.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.PkmLvlTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.PkmnEvsTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.PkmnSvBttn = New System.Windows.Forms.Button()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
CType(Me.PicNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -323,7 +323,7 @@ Partial Class TrainerEditor
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 25)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(360, 364)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(360, 436)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Trainer Data"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
@@ -408,7 +408,7 @@ Partial Class TrainerEditor
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 25)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(360, 364)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(360, 436)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Trainer Class"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
@@ -446,6 +446,56 @@ Partial Class TrainerEditor
|
||||
Me.TabPage3.Text = "Pokemon Data"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PkmnSvBttn
|
||||
'
|
||||
Me.PkmnSvBttn.Location = New System.Drawing.Point(173, 398)
|
||||
Me.PkmnSvBttn.Name = "PkmnSvBttn"
|
||||
Me.PkmnSvBttn.Size = New System.Drawing.Size(138, 25)
|
||||
Me.PkmnSvBttn.TabIndex = 46
|
||||
Me.PkmnSvBttn.Text = "Save Pokemon"
|
||||
Me.PkmnSvBttn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PkmnEvsTextBox
|
||||
'
|
||||
Me.PkmnEvsTextBox.Location = New System.Drawing.Point(213, 360)
|
||||
Me.PkmnEvsTextBox.Name = "PkmnEvsTextBox"
|
||||
Me.PkmnEvsTextBox.Size = New System.Drawing.Size(42, 22)
|
||||
Me.PkmnEvsTextBox.TabIndex = 45
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(170, 363)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(37, 17)
|
||||
Me.Label13.TabIndex = 44
|
||||
Me.Label13.Text = "EVs:"
|
||||
'
|
||||
'PkmLvlTextBox
|
||||
'
|
||||
Me.PkmLvlTextBox.Location = New System.Drawing.Point(69, 386)
|
||||
Me.PkmLvlTextBox.Name = "PkmLvlTextBox"
|
||||
Me.PkmLvlTextBox.Size = New System.Drawing.Size(35, 22)
|
||||
Me.PkmLvlTextBox.TabIndex = 43
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(17, 389)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(46, 17)
|
||||
Me.Label12.TabIndex = 42
|
||||
Me.Label12.Text = "Level:"
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(170, 204)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(58, 17)
|
||||
Me.Label11.TabIndex = 41
|
||||
Me.Label11.Text = "Attacks:"
|
||||
'
|
||||
'AttackComboBox4
|
||||
'
|
||||
Me.AttackComboBox4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
@@ -608,56 +658,6 @@ Partial Class TrainerEditor
|
||||
Me.Label6.TabIndex = 0
|
||||
Me.Label6.Text = "Pointer:"
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(170, 204)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(58, 17)
|
||||
Me.Label11.TabIndex = 41
|
||||
Me.Label11.Text = "Attacks:"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(17, 389)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(46, 17)
|
||||
Me.Label12.TabIndex = 42
|
||||
Me.Label12.Text = "Level:"
|
||||
'
|
||||
'PkmLvlTextBox
|
||||
'
|
||||
Me.PkmLvlTextBox.Location = New System.Drawing.Point(69, 386)
|
||||
Me.PkmLvlTextBox.Name = "PkmLvlTextBox"
|
||||
Me.PkmLvlTextBox.Size = New System.Drawing.Size(35, 22)
|
||||
Me.PkmLvlTextBox.TabIndex = 43
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(170, 363)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(37, 17)
|
||||
Me.Label13.TabIndex = 44
|
||||
Me.Label13.Text = "EVs:"
|
||||
'
|
||||
'PkmnEvsTextBox
|
||||
'
|
||||
Me.PkmnEvsTextBox.Location = New System.Drawing.Point(213, 360)
|
||||
Me.PkmnEvsTextBox.Name = "PkmnEvsTextBox"
|
||||
Me.PkmnEvsTextBox.Size = New System.Drawing.Size(42, 22)
|
||||
Me.PkmnEvsTextBox.TabIndex = 45
|
||||
'
|
||||
'PkmnSvBttn
|
||||
'
|
||||
Me.PkmnSvBttn.Location = New System.Drawing.Point(173, 398)
|
||||
Me.PkmnSvBttn.Name = "PkmnSvBttn"
|
||||
Me.PkmnSvBttn.Size = New System.Drawing.Size(138, 25)
|
||||
Me.PkmnSvBttn.TabIndex = 46
|
||||
Me.PkmnSvBttn.Text = "Save Pokemon"
|
||||
Me.PkmnSvBttn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TrainerEditor
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
|
||||
|
||||
@@ -97,77 +97,81 @@ Public Class TrainerEditor
|
||||
|
||||
Private Sub TrainerListComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TrainerListComboBox.SelectedIndexChanged
|
||||
|
||||
Dim offvar As Integer
|
||||
Dim MusicGen As Integer
|
||||
Dim MusicGenBin As String
|
||||
If TrainerListComboBox.SelectedIndex <> -1 Then
|
||||
|
||||
PicNumericUpDown.Value = 1
|
||||
PicNumericUpDown.Value = 0
|
||||
PicNumericUpDown.Maximum = (GetString(GetINIFileLocation(), header, "NumberOfTrainerImages", ""))
|
||||
Dim offvar As Integer
|
||||
Dim MusicGen As Integer
|
||||
Dim MusicGenBin As String
|
||||
|
||||
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TrainerTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
PicNumericUpDown.Value = 1
|
||||
PicNumericUpDown.Value = 0
|
||||
PicNumericUpDown.Maximum = (GetString(GetINIFileLocation(), header, "NumberOfTrainerImages", ""))
|
||||
|
||||
offvar = offvar + (40 * (TrainerListComboBox.SelectedIndex + 1))
|
||||
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TrainerTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
TNameTextBox.Text = GetTrainerName(TrainerListComboBox.SelectedIndex + 1)
|
||||
offvar = offvar + (40 * (TrainerListComboBox.SelectedIndex + 1))
|
||||
|
||||
PicNumericUpDown.Value = Int32.Parse(ReadHEX(LoadedROM, offvar + 3, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
TNameTextBox.Text = GetTrainerName(TrainerListComboBox.SelectedIndex + 1)
|
||||
|
||||
ClassComboBox.SelectedIndex = Int32.Parse(ReadHEX(LoadedROM, offvar + 1, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
PicNumericUpDown.Value = Int32.Parse(ReadHEX(LoadedROM, offvar + 3, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
MusicGen = Int32.Parse(ReadHEX(LoadedROM, offvar + 2, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
ClassComboBox.SelectedIndex = Int32.Parse(ReadHEX(LoadedROM, offvar + 1, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
MusicGenBin = (Convert.ToString(MusicGen, 2))
|
||||
MusicGen = Int32.Parse(ReadHEX(LoadedROM, offvar + 2, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
'While Len(MusicGenBin) < 8
|
||||
MusicGenBin = (Convert.ToString(MusicGen, 2))
|
||||
|
||||
' MusicGenBin = "0" & MusicGenBin
|
||||
'While Len(MusicGenBin) < 8
|
||||
|
||||
'End While
|
||||
' MusicGenBin = "0" & MusicGenBin
|
||||
|
||||
MusicGenBin = VB.Right("00000000" & MusicGenBin, 8)
|
||||
'End While
|
||||
|
||||
MusicGenBin = VB.Right("00000000" & MusicGenBin, 8)
|
||||
|
||||
If GetChar(MusicGenBin, 1) = "0" Then
|
||||
RadioButton1.Checked = True
|
||||
ElseIf GetChar(MusicGenBin, 1) = "1" Then
|
||||
RadioButton2.Checked = True
|
||||
End If
|
||||
|
||||
MusicTextBox.Text = Convert.ToInt32(MusicGenBin.Remove(0, 1), 2)
|
||||
|
||||
TrainerItem1.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 16, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
TrainerItem2.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 18, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
TrainerItem3.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 20, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
TrainerItem4.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 22, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If (ReadHEX(LoadedROM, offvar + 24, 1)) = "00" Then
|
||||
DblCheckBox.Checked = False
|
||||
ElseIf (ReadHEX(LoadedROM, offvar + 24, 1)) = "01" Then
|
||||
DblCheckBox.Checked = True
|
||||
End If
|
||||
|
||||
AITextBox.Text = Int32.Parse((ReadHEX(LoadedROM, offvar + 28, 1)), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
'Pokemon Tab Stuff
|
||||
|
||||
PointerPokeDataTextBox.Text = (Hex(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, offvar + 36, 4))), System.Globalization.NumberStyles.HexNumber) - &H8000000))
|
||||
PokeNumTextBox.Text = Int32.Parse((ReadHEX(LoadedROM, offvar + 32, 1)), System.Globalization.NumberStyles.HexNumber)
|
||||
PokeDataFormatTextBox.Text = Int32.Parse(ReadHEX(LoadedROM, offvar, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
PkmSlts.Items.Clear()
|
||||
|
||||
While PkmSlts.Items.Count < PokeNumTextBox.Text
|
||||
|
||||
PkmSlts.Items.Add("Pokemon Slot" & (PkmSlts.Items.Count + 1))
|
||||
|
||||
End While
|
||||
|
||||
PkmSlts.SelectedIndex = 0
|
||||
|
||||
'end of Pokemon Tab Stuff
|
||||
|
||||
TrainerIndexTextBox.Text = TrainerListComboBox.SelectedIndex + 1
|
||||
|
||||
If GetChar(MusicGenBin, 1) = "0" Then
|
||||
RadioButton1.Checked = True
|
||||
ElseIf GetChar(MusicGenBin, 1) = "1" Then
|
||||
RadioButton2.Checked = True
|
||||
End If
|
||||
|
||||
MusicTextBox.Text = Convert.ToInt32(MusicGenBin.Remove(0, 1), 2)
|
||||
|
||||
TrainerItem1.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 16, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
TrainerItem2.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 18, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
TrainerItem3.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 20, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
TrainerItem4.SelectedIndex = Int32.Parse(ReverseHEX(ReadHEX(LoadedROM, offvar + 22, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If (ReadHEX(LoadedROM, offvar + 24, 1)) = "00" Then
|
||||
DblCheckBox.Checked = False
|
||||
ElseIf (ReadHEX(LoadedROM, offvar + 24, 1)) = "01" Then
|
||||
DblCheckBox.Checked = True
|
||||
End If
|
||||
|
||||
AITextBox.Text = Int32.Parse((ReadHEX(LoadedROM, offvar + 28, 1)), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
'Pokemon Tab Stuff
|
||||
|
||||
PointerPokeDataTextBox.Text = (Hex(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, offvar + 36, 4))), System.Globalization.NumberStyles.HexNumber) - &H8000000))
|
||||
PokeNumTextBox.Text = Int32.Parse((ReadHEX(LoadedROM, offvar + 32, 1)), System.Globalization.NumberStyles.HexNumber)
|
||||
PokeDataFormatTextBox.Text = Int32.Parse(ReadHEX(LoadedROM, offvar, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
PkmSlts.Items.Clear()
|
||||
|
||||
While PkmSlts.Items.Count < PokeNumTextBox.Text
|
||||
|
||||
PkmSlts.Items.Add("Pokemon Slot" & (PkmSlts.Items.Count + 1))
|
||||
|
||||
End While
|
||||
|
||||
PkmSlts.SelectedIndex = 0
|
||||
|
||||
'end of Pokemon Tab Stuff
|
||||
|
||||
TrainerIndexTextBox.Text = TrainerListComboBox.SelectedIndex + 1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TrainerIndexTextBox_TextChanged(sender As Object, e As EventArgs) Handles TrainerIndexTextBox.TextChanged
|
||||
@@ -216,6 +220,8 @@ Public Class TrainerEditor
|
||||
Dim MusicGenBin As String = ""
|
||||
Dim Musictextbx As Integer
|
||||
|
||||
Dim loadedindex As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TrainerTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
offvar = offvar + (40 * (TrainerListComboBox.SelectedIndex + 1))
|
||||
@@ -260,7 +266,9 @@ Public Class TrainerEditor
|
||||
|
||||
WriteHEX(LoadedROM, offvar + 2, Hex(MusicGen))
|
||||
|
||||
|
||||
loadedindex = TrainerListComboBox.SelectedIndex
|
||||
TrainerListComboBox.SelectedIndex = -1
|
||||
TrainerListComboBox.SelectedIndex = loadedindex
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -559,4 +567,59 @@ Public Class TrainerEditor
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PkmnSvBttn_Click(sender As Object, e As EventArgs) Handles PkmnSvBttn.Click
|
||||
|
||||
Dim offvar As Integer
|
||||
Dim offvar2 As Integer
|
||||
Dim curtype 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))
|
||||
|
||||
curtype = Int32.Parse(ReadHEX(LoadedROM, offvar, 1), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If curtype = 0 Then
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmnEvsTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmLvlTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 4 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(TnPkmComboBox.SelectedIndex + 1), 4)))
|
||||
|
||||
ElseIf curtype = 1 Then
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmnEvsTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmLvlTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 4 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(TnPkmComboBox.SelectedIndex + 1), 4)))
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + 6 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox1.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 8 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox2.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 10 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox3.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 12 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox4.SelectedIndex), 4)))
|
||||
|
||||
ElseIf curtype = 2 Then
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmnEvsTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmLvlTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 4 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(TnPkmComboBox.SelectedIndex + 1), 4)))
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + 6 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(TnPkmItmComboBox.SelectedIndex), 4)))
|
||||
|
||||
ElseIf curtype = 3 Then
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmnEvsTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 2 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(PkmLvlTextBox.Text), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 4 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(TnPkmComboBox.SelectedIndex + 1), 4)))
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + 6 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(TnPkmItmComboBox.SelectedIndex), 4)))
|
||||
|
||||
WriteHEX(LoadedROM, offvar2 + 8 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox1.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 10 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox2.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 12 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox3.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, offvar2 + 14 + (PkmSlts.SelectedIndex * 16), ReverseHEX(VB.Right("0000" & Hex(AttackComboBox4.SelectedIndex), 4)))
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -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>0It7vvgQfbukpj2ph506dvqCee6YLhouIGvIACM/zrw=</dsig:DigestValue>
|
||||
<dsig:DigestValue>dwWIxY7c7oEHmQ+mITnFtXsjVihAlBQjcuEidkw0LuA=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@@ -43,14 +43,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2128384">
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2130432">
|
||||
<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>t637CxT+QcqIh2TM8MjYMxehQsgJvYnvRzIb3sFBuT8=</dsig:DigestValue>
|
||||
<dsig:DigestValue>SvTgCn+CWp0u68H5PC2W7AsV59YLZplCtjR0w8CE75Q=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@@ -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>0It7vvgQfbukpj2ph506dvqCee6YLhouIGvIACM/zrw=</dsig:DigestValue>
|
||||
<dsig:DigestValue>dwWIxY7c7oEHmQ+mITnFtXsjVihAlBQjcuEidkw0LuA=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
@@ -43,14 +43,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2128384">
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2130432">
|
||||
<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>t637CxT+QcqIh2TM8MjYMxehQsgJvYnvRzIb3sFBuT8=</dsig:DigestValue>
|
||||
<dsig:DigestValue>SvTgCn+CWp0u68H5PC2W7AsV59YLZplCtjR0w8CE75Q=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -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>0It7vvgQfbukpj2ph506dvqCee6YLhouIGvIACM/zrw=</dsig:DigestValue>
|
||||
<dsig:DigestValue>dwWIxY7c7oEHmQ+mITnFtXsjVihAlBQjcuEidkw0LuA=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@@ -43,14 +43,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2128384">
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="2130432">
|
||||
<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>t637CxT+QcqIh2TM8MjYMxehQsgJvYnvRzIb3sFBuT8=</dsig:DigestValue>
|
||||
<dsig:DigestValue>SvTgCn+CWp0u68H5PC2W7AsV59YLZplCtjR0w8CE75Q=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user