diff --git a/.vs/GBAPokemonGameEditor/v14/.suo b/.vs/GBAPokemonGameEditor/v14/.suo index dbd27c3..4c65e2e 100644 Binary files a/.vs/GBAPokemonGameEditor/v14/.suo and b/.vs/GBAPokemonGameEditor/v14/.suo differ diff --git a/GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb b/GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb index c943ae0..204fc40 100644 --- a/GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb +++ b/GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb @@ -25,6 +25,10 @@ Partial Class BattleFrontierEditor Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.ComboBox9 = New System.Windows.Forms.ComboBox() + Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox() + Me.Label7 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() @@ -47,6 +51,7 @@ Partial Class BattleFrontierEditor Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.TextBox3 = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.Label2 = New System.Windows.Forms.Label() @@ -55,13 +60,113 @@ Partial Class BattleFrontierEditor Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.ComboBox10 = New System.Windows.Forms.ComboBox() + Me.CheckedListBox2 = New System.Windows.Forms.CheckedListBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Button6 = New System.Windows.Forms.Button() + Me.Label11 = New System.Windows.Forms.Label() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.ComboBox11 = New System.Windows.Forms.ComboBox() + Me.ComboBox12 = New System.Windows.Forms.ComboBox() + Me.ComboBox13 = New System.Windows.Forms.ComboBox() + Me.ComboBox14 = New System.Windows.Forms.ComboBox() + Me.ComboBox15 = New System.Windows.Forms.ComboBox() + Me.ComboBox16 = New System.Windows.Forms.ComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.ListBox4 = New System.Windows.Forms.ListBox() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.ComboBox17 = New System.Windows.Forms.ComboBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.ListBox5 = New System.Windows.Forms.ListBox() + Me.TextBox4 = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.TextBox5 = New System.Windows.Forms.TextBox() + Me.Button10 = New System.Windows.Forms.Button() + Me.ComboBox18 = New System.Windows.Forms.ComboBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.TextBox6 = New System.Windows.Forms.TextBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.ListBox6 = New System.Windows.Forms.ListBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.ComboBox19 = New System.Windows.Forms.ComboBox() + Me.CheckedListBox3 = New System.Windows.Forms.CheckedListBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.Button11 = New System.Windows.Forms.Button() + Me.Label19 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.ComboBox20 = New System.Windows.Forms.ComboBox() + Me.ComboBox21 = New System.Windows.Forms.ComboBox() + Me.ComboBox22 = New System.Windows.Forms.ComboBox() + Me.ComboBox23 = New System.Windows.Forms.ComboBox() + Me.ComboBox24 = New System.Windows.Forms.ComboBox() + Me.ComboBox25 = New System.Windows.Forms.ComboBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.ListBox7 = New System.Windows.Forms.ListBox() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.ComboBox26 = New System.Windows.Forms.ComboBox() + Me.Button13 = New System.Windows.Forms.Button() + Me.Button14 = New System.Windows.Forms.Button() + Me.ListBox8 = New System.Windows.Forms.ListBox() + Me.TextBox7 = New System.Windows.Forms.TextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.TextBox8 = New System.Windows.Forms.TextBox() + Me.Button15 = New System.Windows.Forms.Button() + Me.ComboBox27 = New System.Windows.Forms.ComboBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.TextBox9 = New System.Windows.Forms.TextBox() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.ListBox9 = New System.Windows.Forms.ListBox() Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.Label7 = New System.Windows.Forms.Label() - Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.ComboBox9 = New System.Windows.Forms.ComboBox() + Me.GroupBox13 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.ComboBox28 = New System.Windows.Forms.ComboBox() + Me.CheckedListBox4 = New System.Windows.Forms.CheckedListBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.Button16 = New System.Windows.Forms.Button() + Me.Label27 = New System.Windows.Forms.Label() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.ComboBox29 = New System.Windows.Forms.ComboBox() + Me.ComboBox30 = New System.Windows.Forms.ComboBox() + Me.ComboBox31 = New System.Windows.Forms.ComboBox() + Me.ComboBox32 = New System.Windows.Forms.ComboBox() + Me.ComboBox33 = New System.Windows.Forms.ComboBox() + Me.ComboBox34 = New System.Windows.Forms.ComboBox() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label29 = New System.Windows.Forms.Label() + Me.ListBox10 = New System.Windows.Forms.ListBox() + Me.GroupBox14 = New System.Windows.Forms.GroupBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.Button17 = New System.Windows.Forms.Button() + Me.ComboBox35 = New System.Windows.Forms.ComboBox() + Me.Button18 = New System.Windows.Forms.Button() + Me.Button19 = New System.Windows.Forms.Button() + Me.ListBox11 = New System.Windows.Forms.ListBox() + Me.TextBox10 = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.GroupBox15 = New System.Windows.Forms.GroupBox() + Me.TextBox11 = New System.Windows.Forms.TextBox() + Me.Button20 = New System.Windows.Forms.Button() + Me.ComboBox36 = New System.Windows.Forms.ComboBox() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.TextBox12 = New System.Windows.Forms.TextBox() + Me.GroupBox16 = New System.Windows.Forms.GroupBox() + Me.ListBox12 = New System.Windows.Forms.ListBox() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox4.SuspendLayout() @@ -70,6 +175,27 @@ Partial Class BattleFrontierEditor CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox6.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + Me.GroupBox8.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.GroupBox9.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox11.SuspendLayout() + Me.GroupBox12.SuspendLayout() + Me.TabPage4.SuspendLayout() + Me.GroupBox13.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox14.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox15.SuspendLayout() + Me.GroupBox16.SuspendLayout() Me.SuspendLayout() ' 'TabControl1 @@ -123,6 +249,42 @@ Partial Class BattleFrontierEditor Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Pokemon Data" ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(347, 148) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(42, 13) + Me.Label8.TabIndex = 17 + Me.Label8.Text = "Nature:" + ' + 'ComboBox9 + ' + Me.ComboBox9.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox9.FormattingEnabled = True + Me.ComboBox9.Location = New System.Drawing.Point(350, 164) + Me.ComboBox9.Name = "ComboBox9" + Me.ComboBox9.Size = New System.Drawing.Size(121, 21) + Me.ComboBox9.TabIndex = 16 + ' + 'CheckedListBox1 + ' + Me.CheckedListBox1.FormattingEnabled = True + Me.CheckedListBox1.Items.AddRange(New Object() {"HP", "Attack", "Defense", "Speed", "Special Attack", "Special Defense"}) + Me.CheckedListBox1.Location = New System.Drawing.Point(209, 93) + Me.CheckedListBox1.Name = "CheckedListBox1" + Me.CheckedListBox1.Size = New System.Drawing.Size(121, 94) + Me.CheckedListBox1.TabIndex = 15 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(206, 69) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(61, 13) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "EV Spread:" + ' 'Button5 ' Me.Button5.Location = New System.Drawing.Point(396, 189) @@ -329,6 +491,13 @@ Partial Class BattleFrontierEditor Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Trainer data" ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(66, 48) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(100, 20) + Me.TextBox3.TabIndex = 7 + ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(50, 99) @@ -393,74 +562,1051 @@ Partial Class BattleFrontierEditor ' 'TabPage2 ' + Me.TabPage2.Controls.Add(Me.GroupBox5) + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox7) + Me.TabPage2.Controls.Add(Me.GroupBox8) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(556, 424) + Me.TabPage2.Size = New System.Drawing.Size(556, 480) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Slateport Battle Tent" Me.TabPage2.UseVisualStyleBackColor = True ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label9) + Me.GroupBox5.Controls.Add(Me.ComboBox10) + Me.GroupBox5.Controls.Add(Me.CheckedListBox2) + Me.GroupBox5.Controls.Add(Me.Label10) + Me.GroupBox5.Controls.Add(Me.Button6) + Me.GroupBox5.Controls.Add(Me.Label11) + Me.GroupBox5.Controls.Add(Me.PictureBox3) + Me.GroupBox5.Controls.Add(Me.ComboBox11) + Me.GroupBox5.Controls.Add(Me.ComboBox12) + Me.GroupBox5.Controls.Add(Me.ComboBox13) + Me.GroupBox5.Controls.Add(Me.ComboBox14) + Me.GroupBox5.Controls.Add(Me.ComboBox15) + Me.GroupBox5.Controls.Add(Me.ComboBox16) + Me.GroupBox5.Controls.Add(Me.Label12) + Me.GroupBox5.Controls.Add(Me.Label13) + Me.GroupBox5.Controls.Add(Me.ListBox4) + Me.GroupBox5.Location = New System.Drawing.Point(12, 232) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(526, 241) + Me.GroupBox5.TabIndex = 9 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "Pokemon Data" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(347, 148) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(42, 13) + Me.Label9.TabIndex = 17 + Me.Label9.Text = "Nature:" + ' + 'ComboBox10 + ' + Me.ComboBox10.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox10.FormattingEnabled = True + Me.ComboBox10.Location = New System.Drawing.Point(350, 164) + Me.ComboBox10.Name = "ComboBox10" + Me.ComboBox10.Size = New System.Drawing.Size(121, 21) + Me.ComboBox10.TabIndex = 16 + ' + 'CheckedListBox2 + ' + Me.CheckedListBox2.FormattingEnabled = True + Me.CheckedListBox2.Items.AddRange(New Object() {"HP", "Attack", "Defense", "Speed", "Special Attack", "Special Defense"}) + Me.CheckedListBox2.Location = New System.Drawing.Point(209, 93) + Me.CheckedListBox2.Name = "CheckedListBox2" + Me.CheckedListBox2.Size = New System.Drawing.Size(121, 94) + Me.CheckedListBox2.TabIndex = 15 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(206, 69) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(61, 13) + Me.Label10.TabIndex = 14 + Me.Label10.Text = "EV Spread:" + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(396, 189) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(75, 23) + Me.Button6.TabIndex = 13 + Me.Button6.Text = "Save" + Me.Button6.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(347, 23) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(46, 13) + Me.Label11.TabIndex = 12 + Me.Label11.Text = "Attacks:" + ' + 'PictureBox3 + ' + Me.PictureBox3.Location = New System.Drawing.Point(108, 148) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(64, 64) + Me.PictureBox3.TabIndex = 11 + Me.PictureBox3.TabStop = False + ' + 'ComboBox11 + ' + Me.ComboBox11.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox11.FormattingEnabled = True + Me.ComboBox11.Location = New System.Drawing.Point(350, 120) + Me.ComboBox11.Name = "ComboBox11" + Me.ComboBox11.Size = New System.Drawing.Size(121, 21) + Me.ComboBox11.TabIndex = 10 + ' + 'ComboBox12 + ' + Me.ComboBox12.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox12.FormattingEnabled = True + Me.ComboBox12.Location = New System.Drawing.Point(350, 93) + Me.ComboBox12.Name = "ComboBox12" + Me.ComboBox12.Size = New System.Drawing.Size(121, 21) + Me.ComboBox12.TabIndex = 9 + ' + 'ComboBox13 + ' + Me.ComboBox13.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox13.FormattingEnabled = True + Me.ComboBox13.Location = New System.Drawing.Point(350, 66) + Me.ComboBox13.Name = "ComboBox13" + Me.ComboBox13.Size = New System.Drawing.Size(121, 21) + Me.ComboBox13.TabIndex = 8 + ' + 'ComboBox14 + ' + Me.ComboBox14.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox14.FormattingEnabled = True + Me.ComboBox14.Location = New System.Drawing.Point(350, 39) + Me.ComboBox14.Name = "ComboBox14" + Me.ComboBox14.Size = New System.Drawing.Size(121, 21) + Me.ComboBox14.TabIndex = 7 + ' + 'ComboBox15 + ' + Me.ComboBox15.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox15.FormattingEnabled = True + Me.ComboBox15.Location = New System.Drawing.Point(209, 39) + Me.ComboBox15.Name = "ComboBox15" + Me.ComboBox15.Size = New System.Drawing.Size(121, 21) + Me.ComboBox15.TabIndex = 6 + ' + 'ComboBox16 + ' + Me.ComboBox16.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox16.FormattingEnabled = True + Me.ComboBox16.Location = New System.Drawing.Point(75, 123) + Me.ComboBox16.Name = "ComboBox16" + Me.ComboBox16.Size = New System.Drawing.Size(121, 21) + Me.ComboBox16.TabIndex = 5 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(155, 39) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(55, 13) + Me.Label12.TabIndex = 4 + Me.Label12.Text = "Held Item:" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(21, 126) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(48, 13) + Me.Label13.TabIndex = 3 + Me.Label13.Text = "Species:" + ' + 'ListBox4 + ' + Me.ListBox4.FormattingEnabled = True + Me.ListBox4.Location = New System.Drawing.Point(24, 14) + Me.ListBox4.Name = "ListBox4" + Me.ListBox4.Size = New System.Drawing.Size(120, 95) + Me.ListBox4.TabIndex = 2 + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.PictureBox4) + Me.GroupBox6.Controls.Add(Me.Button7) + Me.GroupBox6.Controls.Add(Me.ComboBox17) + Me.GroupBox6.Controls.Add(Me.Button8) + Me.GroupBox6.Controls.Add(Me.Button9) + Me.GroupBox6.Controls.Add(Me.ListBox5) + Me.GroupBox6.Controls.Add(Me.TextBox4) + Me.GroupBox6.Controls.Add(Me.Label14) + Me.GroupBox6.Location = New System.Drawing.Point(329, 15) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(219, 211) + Me.GroupBox6.TabIndex = 8 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "Trainer Pokemon" + ' + 'PictureBox4 + ' + Me.PictureBox4.Location = New System.Drawing.Point(136, 95) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(64, 64) + Me.PictureBox4.TabIndex = 12 + Me.PictureBox4.TabStop = False + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(134, 163) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(75, 35) + Me.Button7.TabIndex = 6 + Me.Button7.Text = "Change Pokemon" + Me.Button7.UseVisualStyleBackColor = True + ' + 'ComboBox17 + ' + Me.ComboBox17.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox17.FormattingEnabled = True + Me.ComboBox17.Location = New System.Drawing.Point(9, 163) + Me.ComboBox17.Name = "ComboBox17" + Me.ComboBox17.Size = New System.Drawing.Size(121, 21) + Me.ComboBox17.TabIndex = 5 + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(136, 45) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(75, 44) + Me.Button8.TabIndex = 4 + Me.Button8.Text = "Edit Pokemon" + Me.Button8.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(136, 16) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(75, 23) + Me.Button9.TabIndex = 3 + Me.Button9.Text = "Repoint" + Me.Button9.UseVisualStyleBackColor = True + ' + 'ListBox5 + ' + Me.ListBox5.FormattingEnabled = True + Me.ListBox5.Location = New System.Drawing.Point(10, 45) + Me.ListBox5.Name = "ListBox5" + Me.ListBox5.Size = New System.Drawing.Size(120, 95) + Me.ListBox5.TabIndex = 2 + ' + 'TextBox4 + ' + Me.TextBox4.Location = New System.Drawing.Point(55, 19) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(75, 20) + Me.TextBox4.TabIndex = 1 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(6, 22) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(43, 13) + Me.Label14.TabIndex = 0 + Me.Label14.Text = "Pointer:" + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.TextBox5) + Me.GroupBox7.Controls.Add(Me.Button10) + Me.GroupBox7.Controls.Add(Me.ComboBox18) + Me.GroupBox7.Controls.Add(Me.Label15) + Me.GroupBox7.Controls.Add(Me.Label16) + Me.GroupBox7.Controls.Add(Me.TextBox6) + Me.GroupBox7.Location = New System.Drawing.Point(138, 15) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(180, 164) + Me.GroupBox7.TabIndex = 7 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "Trainer data" + ' + 'TextBox5 + ' + Me.TextBox5.Location = New System.Drawing.Point(66, 48) + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Size = New System.Drawing.Size(100, 20) + Me.TextBox5.TabIndex = 7 + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(50, 99) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(75, 23) + Me.Button10.TabIndex = 6 + Me.Button10.Text = "Save" + Me.Button10.UseVisualStyleBackColor = True + ' + 'ComboBox18 + ' + Me.ComboBox18.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox18.FormattingEnabled = True + Me.ComboBox18.Location = New System.Drawing.Point(32, 128) + Me.ComboBox18.Name = "ComboBox18" + Me.ComboBox18.Size = New System.Drawing.Size(100, 21) + Me.ComboBox18.TabIndex = 5 + Me.ComboBox18.Visible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(6, 51) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(35, 13) + Me.Label15.TabIndex = 4 + Me.Label15.Text = "Class:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(6, 22) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(38, 13) + Me.Label16.TabIndex = 3 + Me.Label16.Text = "Name:" + ' + 'TextBox6 + ' + Me.TextBox6.Location = New System.Drawing.Point(66, 19) + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Size = New System.Drawing.Size(100, 20) + Me.TextBox6.TabIndex = 2 + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.ListBox6) + Me.GroupBox8.Location = New System.Drawing.Point(6, 15) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(114, 164) + Me.GroupBox8.TabIndex = 6 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "Trainers" + ' + 'ListBox6 + ' + Me.ListBox6.FormattingEnabled = True + Me.ListBox6.Location = New System.Drawing.Point(6, 19) + Me.ListBox6.Name = "ListBox6" + Me.ListBox6.Size = New System.Drawing.Size(97, 134) + Me.ListBox6.TabIndex = 0 + ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.GroupBox9) + Me.TabPage3.Controls.Add(Me.GroupBox10) + Me.TabPage3.Controls.Add(Me.GroupBox11) + Me.TabPage3.Controls.Add(Me.GroupBox12) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(556, 424) + Me.TabPage3.Size = New System.Drawing.Size(556, 480) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Verdanturf Battle Tent" Me.TabPage3.UseVisualStyleBackColor = True ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.Label17) + Me.GroupBox9.Controls.Add(Me.ComboBox19) + Me.GroupBox9.Controls.Add(Me.CheckedListBox3) + Me.GroupBox9.Controls.Add(Me.Label18) + Me.GroupBox9.Controls.Add(Me.Button11) + Me.GroupBox9.Controls.Add(Me.Label19) + Me.GroupBox9.Controls.Add(Me.PictureBox5) + Me.GroupBox9.Controls.Add(Me.ComboBox20) + Me.GroupBox9.Controls.Add(Me.ComboBox21) + Me.GroupBox9.Controls.Add(Me.ComboBox22) + Me.GroupBox9.Controls.Add(Me.ComboBox23) + Me.GroupBox9.Controls.Add(Me.ComboBox24) + Me.GroupBox9.Controls.Add(Me.ComboBox25) + Me.GroupBox9.Controls.Add(Me.Label20) + Me.GroupBox9.Controls.Add(Me.Label21) + Me.GroupBox9.Controls.Add(Me.ListBox7) + Me.GroupBox9.Location = New System.Drawing.Point(12, 232) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(526, 241) + Me.GroupBox9.TabIndex = 9 + Me.GroupBox9.TabStop = False + Me.GroupBox9.Text = "Pokemon Data" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(347, 148) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(42, 13) + Me.Label17.TabIndex = 17 + Me.Label17.Text = "Nature:" + ' + 'ComboBox19 + ' + Me.ComboBox19.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox19.FormattingEnabled = True + Me.ComboBox19.Location = New System.Drawing.Point(350, 164) + Me.ComboBox19.Name = "ComboBox19" + Me.ComboBox19.Size = New System.Drawing.Size(121, 21) + Me.ComboBox19.TabIndex = 16 + ' + 'CheckedListBox3 + ' + Me.CheckedListBox3.FormattingEnabled = True + Me.CheckedListBox3.Items.AddRange(New Object() {"HP", "Attack", "Defense", "Speed", "Special Attack", "Special Defense"}) + Me.CheckedListBox3.Location = New System.Drawing.Point(209, 93) + Me.CheckedListBox3.Name = "CheckedListBox3" + Me.CheckedListBox3.Size = New System.Drawing.Size(121, 94) + Me.CheckedListBox3.TabIndex = 15 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(206, 69) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(61, 13) + Me.Label18.TabIndex = 14 + Me.Label18.Text = "EV Spread:" + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(396, 189) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(75, 23) + Me.Button11.TabIndex = 13 + Me.Button11.Text = "Save" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(347, 23) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(46, 13) + Me.Label19.TabIndex = 12 + Me.Label19.Text = "Attacks:" + ' + 'PictureBox5 + ' + Me.PictureBox5.Location = New System.Drawing.Point(108, 148) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(64, 64) + Me.PictureBox5.TabIndex = 11 + Me.PictureBox5.TabStop = False + ' + 'ComboBox20 + ' + Me.ComboBox20.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox20.FormattingEnabled = True + Me.ComboBox20.Location = New System.Drawing.Point(350, 120) + Me.ComboBox20.Name = "ComboBox20" + Me.ComboBox20.Size = New System.Drawing.Size(121, 21) + Me.ComboBox20.TabIndex = 10 + ' + 'ComboBox21 + ' + Me.ComboBox21.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox21.FormattingEnabled = True + Me.ComboBox21.Location = New System.Drawing.Point(350, 93) + Me.ComboBox21.Name = "ComboBox21" + Me.ComboBox21.Size = New System.Drawing.Size(121, 21) + Me.ComboBox21.TabIndex = 9 + ' + 'ComboBox22 + ' + Me.ComboBox22.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox22.FormattingEnabled = True + Me.ComboBox22.Location = New System.Drawing.Point(350, 66) + Me.ComboBox22.Name = "ComboBox22" + Me.ComboBox22.Size = New System.Drawing.Size(121, 21) + Me.ComboBox22.TabIndex = 8 + ' + 'ComboBox23 + ' + Me.ComboBox23.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox23.FormattingEnabled = True + Me.ComboBox23.Location = New System.Drawing.Point(350, 39) + Me.ComboBox23.Name = "ComboBox23" + Me.ComboBox23.Size = New System.Drawing.Size(121, 21) + Me.ComboBox23.TabIndex = 7 + ' + 'ComboBox24 + ' + Me.ComboBox24.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox24.FormattingEnabled = True + Me.ComboBox24.Location = New System.Drawing.Point(209, 39) + Me.ComboBox24.Name = "ComboBox24" + Me.ComboBox24.Size = New System.Drawing.Size(121, 21) + Me.ComboBox24.TabIndex = 6 + ' + 'ComboBox25 + ' + Me.ComboBox25.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox25.FormattingEnabled = True + Me.ComboBox25.Location = New System.Drawing.Point(75, 123) + Me.ComboBox25.Name = "ComboBox25" + Me.ComboBox25.Size = New System.Drawing.Size(121, 21) + Me.ComboBox25.TabIndex = 5 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(155, 39) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(55, 13) + Me.Label20.TabIndex = 4 + Me.Label20.Text = "Held Item:" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(21, 126) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(48, 13) + Me.Label21.TabIndex = 3 + Me.Label21.Text = "Species:" + ' + 'ListBox7 + ' + Me.ListBox7.FormattingEnabled = True + Me.ListBox7.Location = New System.Drawing.Point(24, 14) + Me.ListBox7.Name = "ListBox7" + Me.ListBox7.Size = New System.Drawing.Size(120, 95) + Me.ListBox7.TabIndex = 2 + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Me.PictureBox6) + Me.GroupBox10.Controls.Add(Me.Button12) + Me.GroupBox10.Controls.Add(Me.ComboBox26) + Me.GroupBox10.Controls.Add(Me.Button13) + Me.GroupBox10.Controls.Add(Me.Button14) + Me.GroupBox10.Controls.Add(Me.ListBox8) + Me.GroupBox10.Controls.Add(Me.TextBox7) + Me.GroupBox10.Controls.Add(Me.Label22) + Me.GroupBox10.Location = New System.Drawing.Point(329, 15) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(219, 211) + Me.GroupBox10.TabIndex = 8 + Me.GroupBox10.TabStop = False + Me.GroupBox10.Text = "Trainer Pokemon" + ' + 'PictureBox6 + ' + Me.PictureBox6.Location = New System.Drawing.Point(136, 95) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(64, 64) + Me.PictureBox6.TabIndex = 12 + Me.PictureBox6.TabStop = False + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(134, 163) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(75, 35) + Me.Button12.TabIndex = 6 + Me.Button12.Text = "Change Pokemon" + Me.Button12.UseVisualStyleBackColor = True + ' + 'ComboBox26 + ' + Me.ComboBox26.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox26.FormattingEnabled = True + Me.ComboBox26.Location = New System.Drawing.Point(9, 163) + Me.ComboBox26.Name = "ComboBox26" + Me.ComboBox26.Size = New System.Drawing.Size(121, 21) + Me.ComboBox26.TabIndex = 5 + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(136, 45) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(75, 44) + Me.Button13.TabIndex = 4 + Me.Button13.Text = "Edit Pokemon" + Me.Button13.UseVisualStyleBackColor = True + ' + 'Button14 + ' + Me.Button14.Location = New System.Drawing.Point(136, 16) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(75, 23) + Me.Button14.TabIndex = 3 + Me.Button14.Text = "Repoint" + Me.Button14.UseVisualStyleBackColor = True + ' + 'ListBox8 + ' + Me.ListBox8.FormattingEnabled = True + Me.ListBox8.Location = New System.Drawing.Point(10, 45) + Me.ListBox8.Name = "ListBox8" + Me.ListBox8.Size = New System.Drawing.Size(120, 95) + Me.ListBox8.TabIndex = 2 + ' + 'TextBox7 + ' + Me.TextBox7.Location = New System.Drawing.Point(55, 19) + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Size = New System.Drawing.Size(75, 20) + Me.TextBox7.TabIndex = 1 + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(6, 22) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(43, 13) + Me.Label22.TabIndex = 0 + Me.Label22.Text = "Pointer:" + ' + 'GroupBox11 + ' + Me.GroupBox11.Controls.Add(Me.TextBox8) + Me.GroupBox11.Controls.Add(Me.Button15) + Me.GroupBox11.Controls.Add(Me.ComboBox27) + Me.GroupBox11.Controls.Add(Me.Label23) + Me.GroupBox11.Controls.Add(Me.Label24) + Me.GroupBox11.Controls.Add(Me.TextBox9) + Me.GroupBox11.Location = New System.Drawing.Point(138, 15) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(180, 164) + Me.GroupBox11.TabIndex = 7 + Me.GroupBox11.TabStop = False + Me.GroupBox11.Text = "Trainer data" + ' + 'TextBox8 + ' + Me.TextBox8.Location = New System.Drawing.Point(66, 48) + Me.TextBox8.Name = "TextBox8" + Me.TextBox8.Size = New System.Drawing.Size(100, 20) + Me.TextBox8.TabIndex = 7 + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(50, 99) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(75, 23) + Me.Button15.TabIndex = 6 + Me.Button15.Text = "Save" + Me.Button15.UseVisualStyleBackColor = True + ' + 'ComboBox27 + ' + Me.ComboBox27.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox27.FormattingEnabled = True + Me.ComboBox27.Location = New System.Drawing.Point(32, 128) + Me.ComboBox27.Name = "ComboBox27" + Me.ComboBox27.Size = New System.Drawing.Size(100, 21) + Me.ComboBox27.TabIndex = 5 + Me.ComboBox27.Visible = False + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(6, 51) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(35, 13) + Me.Label23.TabIndex = 4 + Me.Label23.Text = "Class:" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(6, 22) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(38, 13) + Me.Label24.TabIndex = 3 + Me.Label24.Text = "Name:" + ' + 'TextBox9 + ' + Me.TextBox9.Location = New System.Drawing.Point(66, 19) + Me.TextBox9.Name = "TextBox9" + Me.TextBox9.Size = New System.Drawing.Size(100, 20) + Me.TextBox9.TabIndex = 2 + ' + 'GroupBox12 + ' + Me.GroupBox12.Controls.Add(Me.ListBox9) + Me.GroupBox12.Location = New System.Drawing.Point(6, 15) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(114, 164) + Me.GroupBox12.TabIndex = 6 + Me.GroupBox12.TabStop = False + Me.GroupBox12.Text = "Trainers" + ' + 'ListBox9 + ' + Me.ListBox9.FormattingEnabled = True + Me.ListBox9.Location = New System.Drawing.Point(6, 19) + Me.ListBox9.Name = "ListBox9" + Me.ListBox9.Size = New System.Drawing.Size(97, 134) + Me.ListBox9.TabIndex = 0 + ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.GroupBox13) + Me.TabPage4.Controls.Add(Me.GroupBox14) + Me.TabPage4.Controls.Add(Me.GroupBox15) + Me.TabPage4.Controls.Add(Me.GroupBox16) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(556, 424) + Me.TabPage4.Size = New System.Drawing.Size(556, 480) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Fallarbor Battle Tent" Me.TabPage4.UseVisualStyleBackColor = True ' - 'TextBox3 + 'GroupBox13 ' - Me.TextBox3.Location = New System.Drawing.Point(66, 48) - Me.TextBox3.Name = "TextBox3" - Me.TextBox3.Size = New System.Drawing.Size(100, 20) - Me.TextBox3.TabIndex = 7 + Me.GroupBox13.Controls.Add(Me.Label25) + Me.GroupBox13.Controls.Add(Me.ComboBox28) + Me.GroupBox13.Controls.Add(Me.CheckedListBox4) + Me.GroupBox13.Controls.Add(Me.Label26) + Me.GroupBox13.Controls.Add(Me.Button16) + Me.GroupBox13.Controls.Add(Me.Label27) + Me.GroupBox13.Controls.Add(Me.PictureBox7) + Me.GroupBox13.Controls.Add(Me.ComboBox29) + Me.GroupBox13.Controls.Add(Me.ComboBox30) + Me.GroupBox13.Controls.Add(Me.ComboBox31) + Me.GroupBox13.Controls.Add(Me.ComboBox32) + Me.GroupBox13.Controls.Add(Me.ComboBox33) + Me.GroupBox13.Controls.Add(Me.ComboBox34) + Me.GroupBox13.Controls.Add(Me.Label28) + Me.GroupBox13.Controls.Add(Me.Label29) + Me.GroupBox13.Controls.Add(Me.ListBox10) + Me.GroupBox13.Location = New System.Drawing.Point(12, 232) + Me.GroupBox13.Name = "GroupBox13" + Me.GroupBox13.Size = New System.Drawing.Size(526, 241) + Me.GroupBox13.TabIndex = 9 + Me.GroupBox13.TabStop = False + Me.GroupBox13.Text = "Pokemon Data" ' - 'Label7 + 'Label25 ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(206, 69) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(61, 13) - Me.Label7.TabIndex = 14 - Me.Label7.Text = "EV Spread:" + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(347, 148) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(42, 13) + Me.Label25.TabIndex = 17 + Me.Label25.Text = "Nature:" ' - 'CheckedListBox1 + 'ComboBox28 ' - Me.CheckedListBox1.FormattingEnabled = True - Me.CheckedListBox1.Items.AddRange(New Object() {"HP", "Attack", "Defense", "Speed", "Special Attack", "Special Defense"}) - Me.CheckedListBox1.Location = New System.Drawing.Point(209, 93) - Me.CheckedListBox1.Name = "CheckedListBox1" - Me.CheckedListBox1.Size = New System.Drawing.Size(121, 94) - Me.CheckedListBox1.TabIndex = 15 + Me.ComboBox28.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox28.FormattingEnabled = True + Me.ComboBox28.Location = New System.Drawing.Point(350, 164) + Me.ComboBox28.Name = "ComboBox28" + Me.ComboBox28.Size = New System.Drawing.Size(121, 21) + Me.ComboBox28.TabIndex = 16 ' - 'Label8 + 'CheckedListBox4 ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(347, 148) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(42, 13) - Me.Label8.TabIndex = 17 - Me.Label8.Text = "Nature:" + Me.CheckedListBox4.FormattingEnabled = True + Me.CheckedListBox4.Items.AddRange(New Object() {"HP", "Attack", "Defense", "Speed", "Special Attack", "Special Defense"}) + Me.CheckedListBox4.Location = New System.Drawing.Point(209, 93) + Me.CheckedListBox4.Name = "CheckedListBox4" + Me.CheckedListBox4.Size = New System.Drawing.Size(121, 94) + Me.CheckedListBox4.TabIndex = 15 ' - 'ComboBox9 + 'Label26 ' - Me.ComboBox9.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBox9.FormattingEnabled = True - Me.ComboBox9.Location = New System.Drawing.Point(350, 164) - Me.ComboBox9.Name = "ComboBox9" - Me.ComboBox9.Size = New System.Drawing.Size(121, 21) - Me.ComboBox9.TabIndex = 16 + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(206, 69) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(61, 13) + Me.Label26.TabIndex = 14 + Me.Label26.Text = "EV Spread:" + ' + 'Button16 + ' + Me.Button16.Location = New System.Drawing.Point(396, 189) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(75, 23) + Me.Button16.TabIndex = 13 + Me.Button16.Text = "Save" + Me.Button16.UseVisualStyleBackColor = True + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(347, 23) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(46, 13) + Me.Label27.TabIndex = 12 + Me.Label27.Text = "Attacks:" + ' + 'PictureBox7 + ' + Me.PictureBox7.Location = New System.Drawing.Point(108, 148) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(64, 64) + Me.PictureBox7.TabIndex = 11 + Me.PictureBox7.TabStop = False + ' + 'ComboBox29 + ' + Me.ComboBox29.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox29.FormattingEnabled = True + Me.ComboBox29.Location = New System.Drawing.Point(350, 120) + Me.ComboBox29.Name = "ComboBox29" + Me.ComboBox29.Size = New System.Drawing.Size(121, 21) + Me.ComboBox29.TabIndex = 10 + ' + 'ComboBox30 + ' + Me.ComboBox30.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox30.FormattingEnabled = True + Me.ComboBox30.Location = New System.Drawing.Point(350, 93) + Me.ComboBox30.Name = "ComboBox30" + Me.ComboBox30.Size = New System.Drawing.Size(121, 21) + Me.ComboBox30.TabIndex = 9 + ' + 'ComboBox31 + ' + Me.ComboBox31.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox31.FormattingEnabled = True + Me.ComboBox31.Location = New System.Drawing.Point(350, 66) + Me.ComboBox31.Name = "ComboBox31" + Me.ComboBox31.Size = New System.Drawing.Size(121, 21) + Me.ComboBox31.TabIndex = 8 + ' + 'ComboBox32 + ' + Me.ComboBox32.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox32.FormattingEnabled = True + Me.ComboBox32.Location = New System.Drawing.Point(350, 39) + Me.ComboBox32.Name = "ComboBox32" + Me.ComboBox32.Size = New System.Drawing.Size(121, 21) + Me.ComboBox32.TabIndex = 7 + ' + 'ComboBox33 + ' + Me.ComboBox33.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox33.FormattingEnabled = True + Me.ComboBox33.Location = New System.Drawing.Point(209, 39) + Me.ComboBox33.Name = "ComboBox33" + Me.ComboBox33.Size = New System.Drawing.Size(121, 21) + Me.ComboBox33.TabIndex = 6 + ' + 'ComboBox34 + ' + Me.ComboBox34.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox34.FormattingEnabled = True + Me.ComboBox34.Location = New System.Drawing.Point(75, 123) + Me.ComboBox34.Name = "ComboBox34" + Me.ComboBox34.Size = New System.Drawing.Size(121, 21) + Me.ComboBox34.TabIndex = 5 + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(155, 39) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(55, 13) + Me.Label28.TabIndex = 4 + Me.Label28.Text = "Held Item:" + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Location = New System.Drawing.Point(21, 126) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(48, 13) + Me.Label29.TabIndex = 3 + Me.Label29.Text = "Species:" + ' + 'ListBox10 + ' + Me.ListBox10.FormattingEnabled = True + Me.ListBox10.Location = New System.Drawing.Point(24, 14) + Me.ListBox10.Name = "ListBox10" + Me.ListBox10.Size = New System.Drawing.Size(120, 95) + Me.ListBox10.TabIndex = 2 + ' + 'GroupBox14 + ' + Me.GroupBox14.Controls.Add(Me.PictureBox8) + Me.GroupBox14.Controls.Add(Me.Button17) + Me.GroupBox14.Controls.Add(Me.ComboBox35) + Me.GroupBox14.Controls.Add(Me.Button18) + Me.GroupBox14.Controls.Add(Me.Button19) + Me.GroupBox14.Controls.Add(Me.ListBox11) + Me.GroupBox14.Controls.Add(Me.TextBox10) + Me.GroupBox14.Controls.Add(Me.Label30) + Me.GroupBox14.Location = New System.Drawing.Point(329, 15) + Me.GroupBox14.Name = "GroupBox14" + Me.GroupBox14.Size = New System.Drawing.Size(219, 211) + Me.GroupBox14.TabIndex = 8 + Me.GroupBox14.TabStop = False + Me.GroupBox14.Text = "Trainer Pokemon" + ' + 'PictureBox8 + ' + Me.PictureBox8.Location = New System.Drawing.Point(136, 95) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(64, 64) + Me.PictureBox8.TabIndex = 12 + Me.PictureBox8.TabStop = False + ' + 'Button17 + ' + Me.Button17.Location = New System.Drawing.Point(134, 163) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(75, 35) + Me.Button17.TabIndex = 6 + Me.Button17.Text = "Change Pokemon" + Me.Button17.UseVisualStyleBackColor = True + ' + 'ComboBox35 + ' + Me.ComboBox35.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox35.FormattingEnabled = True + Me.ComboBox35.Location = New System.Drawing.Point(9, 163) + Me.ComboBox35.Name = "ComboBox35" + Me.ComboBox35.Size = New System.Drawing.Size(121, 21) + Me.ComboBox35.TabIndex = 5 + ' + 'Button18 + ' + Me.Button18.Location = New System.Drawing.Point(136, 45) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(75, 44) + Me.Button18.TabIndex = 4 + Me.Button18.Text = "Edit Pokemon" + Me.Button18.UseVisualStyleBackColor = True + ' + 'Button19 + ' + Me.Button19.Location = New System.Drawing.Point(136, 16) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(75, 23) + Me.Button19.TabIndex = 3 + Me.Button19.Text = "Repoint" + Me.Button19.UseVisualStyleBackColor = True + ' + 'ListBox11 + ' + Me.ListBox11.FormattingEnabled = True + Me.ListBox11.Location = New System.Drawing.Point(10, 45) + Me.ListBox11.Name = "ListBox11" + Me.ListBox11.Size = New System.Drawing.Size(120, 95) + Me.ListBox11.TabIndex = 2 + ' + 'TextBox10 + ' + Me.TextBox10.Location = New System.Drawing.Point(55, 19) + Me.TextBox10.Name = "TextBox10" + Me.TextBox10.Size = New System.Drawing.Size(75, 20) + Me.TextBox10.TabIndex = 1 + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(6, 22) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(43, 13) + Me.Label30.TabIndex = 0 + Me.Label30.Text = "Pointer:" + ' + 'GroupBox15 + ' + Me.GroupBox15.Controls.Add(Me.TextBox11) + Me.GroupBox15.Controls.Add(Me.Button20) + Me.GroupBox15.Controls.Add(Me.ComboBox36) + Me.GroupBox15.Controls.Add(Me.Label31) + Me.GroupBox15.Controls.Add(Me.Label32) + Me.GroupBox15.Controls.Add(Me.TextBox12) + Me.GroupBox15.Location = New System.Drawing.Point(138, 15) + Me.GroupBox15.Name = "GroupBox15" + Me.GroupBox15.Size = New System.Drawing.Size(180, 164) + Me.GroupBox15.TabIndex = 7 + Me.GroupBox15.TabStop = False + Me.GroupBox15.Text = "Trainer data" + ' + 'TextBox11 + ' + Me.TextBox11.Location = New System.Drawing.Point(66, 48) + Me.TextBox11.Name = "TextBox11" + Me.TextBox11.Size = New System.Drawing.Size(100, 20) + Me.TextBox11.TabIndex = 7 + ' + 'Button20 + ' + Me.Button20.Location = New System.Drawing.Point(50, 99) + Me.Button20.Name = "Button20" + Me.Button20.Size = New System.Drawing.Size(75, 23) + Me.Button20.TabIndex = 6 + Me.Button20.Text = "Save" + Me.Button20.UseVisualStyleBackColor = True + ' + 'ComboBox36 + ' + Me.ComboBox36.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox36.FormattingEnabled = True + Me.ComboBox36.Location = New System.Drawing.Point(32, 128) + Me.ComboBox36.Name = "ComboBox36" + Me.ComboBox36.Size = New System.Drawing.Size(100, 21) + Me.ComboBox36.TabIndex = 5 + Me.ComboBox36.Visible = False + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(6, 51) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(35, 13) + Me.Label31.TabIndex = 4 + Me.Label31.Text = "Class:" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(6, 22) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(38, 13) + Me.Label32.TabIndex = 3 + Me.Label32.Text = "Name:" + ' + 'TextBox12 + ' + Me.TextBox12.Location = New System.Drawing.Point(66, 19) + Me.TextBox12.Name = "TextBox12" + Me.TextBox12.Size = New System.Drawing.Size(100, 20) + Me.TextBox12.TabIndex = 2 + ' + 'GroupBox16 + ' + Me.GroupBox16.Controls.Add(Me.ListBox12) + Me.GroupBox16.Location = New System.Drawing.Point(6, 15) + Me.GroupBox16.Name = "GroupBox16" + Me.GroupBox16.Size = New System.Drawing.Size(114, 164) + Me.GroupBox16.TabIndex = 6 + Me.GroupBox16.TabStop = False + Me.GroupBox16.Text = "Trainers" + ' + 'ListBox12 + ' + Me.ListBox12.FormattingEnabled = True + Me.ListBox12.Location = New System.Drawing.Point(6, 19) + Me.ListBox12.Name = "ListBox12" + Me.ListBox12.Size = New System.Drawing.Size(97, 134) + Me.ListBox12.TabIndex = 0 ' 'BattleFrontierEditor ' @@ -484,6 +1630,36 @@ Partial Class BattleFrontierEditor Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox8.ResumeLayout(False) + Me.TabPage3.ResumeLayout(False) + Me.GroupBox9.ResumeLayout(False) + Me.GroupBox9.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() + Me.GroupBox12.ResumeLayout(False) + Me.TabPage4.ResumeLayout(False) + Me.GroupBox13.ResumeLayout(False) + Me.GroupBox13.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox14.ResumeLayout(False) + Me.GroupBox14.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox15.ResumeLayout(False) + Me.GroupBox15.PerformLayout() + Me.GroupBox16.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -527,4 +1703,109 @@ Partial Class BattleFrontierEditor Friend WithEvents Label7 As Label Friend WithEvents Label8 As Label Friend WithEvents ComboBox9 As ComboBox + Friend WithEvents GroupBox5 As GroupBox + Friend WithEvents Label9 As Label + Friend WithEvents ComboBox10 As ComboBox + Friend WithEvents CheckedListBox2 As CheckedListBox + Friend WithEvents Label10 As Label + Friend WithEvents Button6 As Button + Friend WithEvents Label11 As Label + Friend WithEvents PictureBox3 As PictureBox + Friend WithEvents ComboBox11 As ComboBox + Friend WithEvents ComboBox12 As ComboBox + Friend WithEvents ComboBox13 As ComboBox + Friend WithEvents ComboBox14 As ComboBox + Friend WithEvents ComboBox15 As ComboBox + Friend WithEvents ComboBox16 As ComboBox + Friend WithEvents Label12 As Label + Friend WithEvents Label13 As Label + Friend WithEvents ListBox4 As ListBox + Friend WithEvents GroupBox6 As GroupBox + Friend WithEvents PictureBox4 As PictureBox + Friend WithEvents Button7 As Button + Friend WithEvents ComboBox17 As ComboBox + Friend WithEvents Button8 As Button + Friend WithEvents Button9 As Button + Friend WithEvents ListBox5 As ListBox + Friend WithEvents TextBox4 As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents GroupBox7 As GroupBox + Friend WithEvents TextBox5 As TextBox + Friend WithEvents Button10 As Button + Friend WithEvents ComboBox18 As ComboBox + Friend WithEvents Label15 As Label + Friend WithEvents Label16 As Label + Friend WithEvents TextBox6 As TextBox + Friend WithEvents GroupBox8 As GroupBox + Friend WithEvents ListBox6 As ListBox + Friend WithEvents GroupBox9 As GroupBox + Friend WithEvents Label17 As Label + Friend WithEvents ComboBox19 As ComboBox + Friend WithEvents CheckedListBox3 As CheckedListBox + Friend WithEvents Label18 As Label + Friend WithEvents Button11 As Button + Friend WithEvents Label19 As Label + Friend WithEvents PictureBox5 As PictureBox + Friend WithEvents ComboBox20 As ComboBox + Friend WithEvents ComboBox21 As ComboBox + Friend WithEvents ComboBox22 As ComboBox + Friend WithEvents ComboBox23 As ComboBox + Friend WithEvents ComboBox24 As ComboBox + Friend WithEvents ComboBox25 As ComboBox + Friend WithEvents Label20 As Label + Friend WithEvents Label21 As Label + Friend WithEvents ListBox7 As ListBox + Friend WithEvents GroupBox10 As GroupBox + Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents Button12 As Button + Friend WithEvents ComboBox26 As ComboBox + Friend WithEvents Button13 As Button + Friend WithEvents Button14 As Button + Friend WithEvents ListBox8 As ListBox + Friend WithEvents TextBox7 As TextBox + Friend WithEvents Label22 As Label + Friend WithEvents GroupBox11 As GroupBox + Friend WithEvents TextBox8 As TextBox + Friend WithEvents Button15 As Button + Friend WithEvents ComboBox27 As ComboBox + Friend WithEvents Label23 As Label + Friend WithEvents Label24 As Label + Friend WithEvents TextBox9 As TextBox + Friend WithEvents GroupBox12 As GroupBox + Friend WithEvents ListBox9 As ListBox + Friend WithEvents GroupBox13 As GroupBox + Friend WithEvents Label25 As Label + Friend WithEvents ComboBox28 As ComboBox + Friend WithEvents CheckedListBox4 As CheckedListBox + Friend WithEvents Label26 As Label + Friend WithEvents Button16 As Button + Friend WithEvents Label27 As Label + Friend WithEvents PictureBox7 As PictureBox + Friend WithEvents ComboBox29 As ComboBox + Friend WithEvents ComboBox30 As ComboBox + Friend WithEvents ComboBox31 As ComboBox + Friend WithEvents ComboBox32 As ComboBox + Friend WithEvents ComboBox33 As ComboBox + Friend WithEvents ComboBox34 As ComboBox + Friend WithEvents Label28 As Label + Friend WithEvents Label29 As Label + Friend WithEvents ListBox10 As ListBox + Friend WithEvents GroupBox14 As GroupBox + Friend WithEvents PictureBox8 As PictureBox + Friend WithEvents Button17 As Button + Friend WithEvents ComboBox35 As ComboBox + Friend WithEvents Button18 As Button + Friend WithEvents Button19 As Button + Friend WithEvents ListBox11 As ListBox + Friend WithEvents TextBox10 As TextBox + Friend WithEvents Label30 As Label + Friend WithEvents GroupBox15 As GroupBox + Friend WithEvents TextBox11 As TextBox + Friend WithEvents Button20 As Button + Friend WithEvents ComboBox36 As ComboBox + Friend WithEvents Label31 As Label + Friend WithEvents Label32 As Label + Friend WithEvents TextBox12 As TextBox + Friend WithEvents GroupBox16 As GroupBox + Friend WithEvents ListBox12 As ListBox End Class diff --git a/GBAPokemonGameEditor/BattleFrontierEditor.vb b/GBAPokemonGameEditor/BattleFrontierEditor.vb index 8efd2db..2ef8f39 100644 --- a/GBAPokemonGameEditor/BattleFrontierEditor.vb +++ b/GBAPokemonGameEditor/BattleFrontierEditor.vb @@ -13,6 +13,21 @@ Public Class BattleFrontierEditor ComboBox9.Items.AddRange(IO.File.ReadAllLines(AppPath & "PGENatures.txt")) + + ComboBox10.Items.Clear() + + ComboBox10.Items.AddRange(IO.File.ReadAllLines(AppPath & "PGENatures.txt")) + + + ComboBox19.Items.Clear() + + ComboBox19.Items.AddRange(IO.File.ReadAllLines(AppPath & "PGENatures.txt")) + + + ComboBox28.Items.Clear() + + ComboBox28.Items.AddRange(IO.File.ReadAllLines(AppPath & "PGENatures.txt")) + bfload() Else @@ -65,6 +80,48 @@ Public Class BattleFrontierEditor End While + LoopVar = 0 + + ListBox6.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfSlateportBattleTentTrainers", "")) = True + + + ListBox6.Items.Add(GetSlateportBattleTentTrainerName(LoopVar)) + + + LoopVar = LoopVar + 1 + + End While + + LoopVar = 0 + + ListBox9.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfVerdanturfBattleTentTrainers", "")) = True + + + ListBox9.Items.Add(GetVerdanturfBattleTentTrainerName(LoopVar)) + + + LoopVar = LoopVar + 1 + + End While + + LoopVar = 0 + + ListBox12.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfFallarborBattleTentTrainers", "")) = True + + + ListBox12.Items.Add(GetFallarborBattleTentTrainerName(LoopVar)) + + + LoopVar = LoopVar + 1 + + End While + 'LoopVar = 0 'ComboBox1.Items.Clear() @@ -93,12 +150,61 @@ Public Class BattleFrontierEditor LoopVar = 0 + ListBox4.Items.Clear() + ComboBox17.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfSlateportBattleTentPokemon", "")) = True + + ListBox4.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox17.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + LoopVar = LoopVar + 1 + End While + + LoopVar = 0 + + ListBox7.Items.Clear() + ComboBox26.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfVerdanturfBattleTentPokemon", "")) = True + + ListBox7.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox26.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + LoopVar = LoopVar + 1 + End While + + LoopVar = 0 + + ListBox10.Items.Clear() + ComboBox35.Items.Clear() + + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfFallarborBattleTentPokemon", "")) = True + + + ListBox10.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox35.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + LoopVar = LoopVar + 1 + End While + + LoopVar = 0 + + ComboBox2.Items.Clear() + ComboBox16.Items.Clear() + ComboBox25.Items.Clear() + ComboBox34.Items.Clear() + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfPokemon", "")) - 1 = True LoopVar = LoopVar + 1 ComboBox2.Items.Add(GetPokemonName(LoopVar)) + ComboBox16.Items.Add(GetPokemonName(LoopVar)) + ComboBox25.Items.Add(GetPokemonName(LoopVar)) + ComboBox34.Items.Add(GetPokemonName(LoopVar)) End While @@ -109,6 +215,21 @@ Public Class BattleFrontierEditor ComboBox6.Items.Clear() ComboBox7.Items.Clear() + ComboBox11.Items.Clear() + ComboBox12.Items.Clear() + ComboBox13.Items.Clear() + ComboBox14.Items.Clear() + + ComboBox20.Items.Clear() + ComboBox21.Items.Clear() + ComboBox22.Items.Clear() + ComboBox23.Items.Clear() + + ComboBox29.Items.Clear() + ComboBox30.Items.Clear() + ComboBox31.Items.Clear() + ComboBox32.Items.Clear() + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfAttacks", "")) + 1 = True @@ -117,6 +238,21 @@ Public Class BattleFrontierEditor ComboBox6.Items.Add(GetAttackName(LoopVar)) ComboBox7.Items.Add(GetAttackName(LoopVar)) + ComboBox11.Items.Add(GetAttackName(LoopVar)) + ComboBox12.Items.Add(GetAttackName(LoopVar)) + ComboBox13.Items.Add(GetAttackName(LoopVar)) + ComboBox14.Items.Add(GetAttackName(LoopVar)) + + ComboBox20.Items.Add(GetAttackName(LoopVar)) + ComboBox21.Items.Add(GetAttackName(LoopVar)) + ComboBox22.Items.Add(GetAttackName(LoopVar)) + ComboBox23.Items.Add(GetAttackName(LoopVar)) + + ComboBox29.Items.Add(GetAttackName(LoopVar)) + ComboBox30.Items.Add(GetAttackName(LoopVar)) + ComboBox31.Items.Add(GetAttackName(LoopVar)) + ComboBox32.Items.Add(GetAttackName(LoopVar)) + LoopVar = LoopVar + 1 @@ -125,20 +261,41 @@ Public Class BattleFrontierEditor LoopVar = 0 ComboBox3.Items.Clear() - + ComboBox15.Items.Clear() + ComboBox24.Items.Clear() + ComboBox33.Items.Clear() While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfBattlefrontierHeldItems", "")) + 1 = True ComboBox3.Items.Add(GetItemName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierHeldItems", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 2)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox15.Items.Add(GetItemName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierHeldItems", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 2)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox24.Items.Add(GetItemName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierHeldItems", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 2)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox33.Items.Add(GetItemName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierHeldItems", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 2)), 2))), System.Globalization.NumberStyles.HexNumber))) LoopVar = LoopVar + 1 End While + + 'Tab 1 ListBox1.SelectedIndex = 0 ListBox2.SelectedIndex = 0 + + 'Tab 2 + ListBox6.SelectedIndex = 0 + ListBox4.SelectedIndex = 0 + + 'Tab 3 + ListBox9.SelectedIndex = 0 + ListBox7.SelectedIndex = 0 + + 'Tab 4 + ListBox12.SelectedIndex = 0 + ListBox10.SelectedIndex = 0 + + End Sub Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged 'species @@ -247,6 +404,7 @@ Public Class BattleFrontierEditor End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), ReverseHEX(Hex((Int32.Parse((TextBox2.Text), System.Globalization.NumberStyles.HexNumber)) + &H8000000))) TextBox2.Text = Hex(((Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))), System.Globalization.NumberStyles.HexNumber))) - &H8000000) @@ -270,6 +428,7 @@ Public Class BattleFrontierEditor End While ListBox3.SelectedIndex = 0 + End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click @@ -447,4 +606,1003 @@ Public Class BattleFrontierEditor ComboBox8.SelectedIndex = indexmemory2 ListBox3.SelectedIndex = indexmemory3 End Sub + + Private Sub ListBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox6.SelectedIndexChanged + TextBox6.Text = GetSlateportBattleTentTrainerName(ListBox6.SelectedIndex) + TextBox5.Text = Hex("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + (52 * ListBox6.SelectedIndex), 4)))) + TextBox4.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000) + + ListBox5.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox4.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox5.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox4.Text, System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox5.SelectedIndex = 0 + End Sub + + Private Sub ListBox9_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox9.SelectedIndexChanged + TextBox9.Text = GetVerdanturfBattleTentTrainerName(ListBox9.SelectedIndex) + TextBox8.Text = Hex("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + (52 * ListBox9.SelectedIndex), 4)))) + TextBox7.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000) + + ListBox8.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox7.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox8.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox7.Text, System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox8.SelectedIndex = 0 + End Sub + + Private Sub ListBox12_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox12.SelectedIndexChanged + TextBox12.Text = GetFallarborBattleTentTrainerName(ListBox12.SelectedIndex) + TextBox11.Text = Hex("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + (52 * ListBox12.SelectedIndex), 4)))) + TextBox10.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000) + + ListBox11.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox10.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox11.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox10.Text, System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox11.SelectedIndex = 0 + End Sub + + Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click + Dim indexsave As Integer + indexsave = ListBox9.SelectedIndex + ChangeVerdanturfBattleTentName(ListBox9.SelectedIndex, TextBox9.Text) + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * indexsave)), ReverseHEX(Hex((Int32.Parse((TextBox8.Text), System.Globalization.NumberStyles.HexNumber))))) + Dim LoopVar As Integer + + LoopVar = 0 + + ListBox9.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfVerdanturfBattleTentTrainers", "")) = True + + + ListBox9.Items.Add(GetVerdanturfBattleTentTrainerName(LoopVar)) + + + LoopVar = LoopVar + 1 + + End While + + ListBox9.SelectedIndex = -0 + ListBox9.SelectedIndex = indexsave + End Sub + + Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click + Dim indexsave As Integer + indexsave = ListBox6.SelectedIndex + ChangeSlateportBattleTentName(ListBox6.SelectedIndex, TextBox6.Text) + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * indexsave)), ReverseHEX(Hex((Int32.Parse((TextBox5.Text), System.Globalization.NumberStyles.HexNumber))))) + Dim LoopVar As Integer + + LoopVar = 0 + + ListBox6.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfSlateportBattleTentTrainers", "")) = True + + + ListBox6.Items.Add(GetSlateportBattleTentTrainerName(LoopVar)) + + + LoopVar = LoopVar + 1 + + End While + + ListBox6.SelectedIndex = -0 + ListBox6.SelectedIndex = indexsave + End Sub + + Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click + Dim indexsave As Integer + indexsave = ListBox12.SelectedIndex + ChangeFallarborBattleTentName(ListBox12.SelectedIndex, TextBox12.Text) + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * indexsave)), ReverseHEX(Hex((Int32.Parse((TextBox11.Text), System.Globalization.NumberStyles.HexNumber))))) + Dim LoopVar As Integer + + LoopVar = 0 + + ListBox12.Items.Clear() + + While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfFallarborBattleTentTrainers", "")) = True + + + ListBox12.Items.Add(GetFallarborBattleTentTrainerName(LoopVar)) + + + LoopVar = LoopVar + 1 + + End While + + ListBox12.SelectedIndex = -0 + ListBox12.SelectedIndex = indexsave + End Sub + + Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click + + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), ReverseHEX(Hex((Int32.Parse((TextBox4.Text), System.Globalization.NumberStyles.HexNumber)) + &H8000000))) + + TextBox4.Text = Hex(((Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))), System.Globalization.NumberStyles.HexNumber))) - &H8000000) + + ListBox5.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox4.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox5.Items.Add((Val("&H" & curbytes)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox4.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox5.SelectedIndex = 0 + End Sub + + Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click + + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), ReverseHEX(Hex((Int32.Parse((TextBox7.Text), System.Globalization.NumberStyles.HexNumber)) + &H8000000))) + + TextBox7.Text = Hex(((Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))), System.Globalization.NumberStyles.HexNumber))) - &H8000000) + + ListBox8.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox7.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox8.Items.Add((Val("&H" & curbytes)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox7.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox8.SelectedIndex = 0 + End Sub + + Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click + + WriteHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), ReverseHEX(Hex((Int32.Parse((TextBox10.Text), System.Globalization.NumberStyles.HexNumber)) + &H8000000))) + + TextBox10.Text = Hex(((Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))), System.Globalization.NumberStyles.HexNumber))) - &H8000000) + + ListBox11.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox10.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox11.Items.Add((Val("&H" & curbytes)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox10.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox11.SelectedIndex = 0 + End Sub + + Private Sub ListBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedIndexChanged + GetAndDrawAnimationPokemonPic(PictureBox4, (Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox5.SelectedIndex * 2), 2))))) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox17.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox5.SelectedIndex * 2), 2)))) + End Sub + + Private Sub ListBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox8.SelectedIndexChanged + GetAndDrawAnimationPokemonPic(PictureBox6, (Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox8.SelectedIndex * 2), 2))))) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox26.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox8.SelectedIndex * 2), 2)))) + End Sub + + Private Sub ListBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox11.SelectedIndexChanged + GetAndDrawAnimationPokemonPic(PictureBox8, (Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox11.SelectedIndex * 2), 2))))) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox35.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox11.SelectedIndex * 2), 2)))) + End Sub + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click + ListBox4.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox5.SelectedIndex * 2), 2)))) + End Sub + + Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click + ListBox7.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox8.SelectedIndex * 2), 2)))) + End Sub + + Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click + ListBox10.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox11.SelectedIndex * 2), 2)))) + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + Dim indexmemory As Integer + + indexmemory = ListBox5.SelectedIndex + + WriteHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox5.SelectedIndex * 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox17.SelectedIndex), 4))) + TextBox4.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000) + ListBox5.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox4.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox5.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox4.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox5.SelectedIndex = indexmemory + End Sub + + Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click + Dim indexmemory As Integer + + indexmemory = ListBox8.SelectedIndex + + WriteHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox8.SelectedIndex * 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox17.SelectedIndex), 4))) + TextBox7.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000) + ListBox8.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox7.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox8.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox7.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox8.SelectedIndex = indexmemory + End Sub + + Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click + Dim indexmemory As Integer + + indexmemory = ListBox11.SelectedIndex + + WriteHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox11.SelectedIndex * 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox35.SelectedIndex), 4))) + TextBox10.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000) + ListBox11.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox10.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox11.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox10.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox11.SelectedIndex = indexmemory + End Sub + + Private Sub ComboBox16_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox16.SelectedIndexChanged + GetAndDrawAnimationPokemonPic(PictureBox3, ComboBox16.SelectedIndex + 1) + End Sub + + Private Sub ComboBox25_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox25.SelectedIndexChanged + GetAndDrawAnimationPokemonPic(PictureBox5, ComboBox25.SelectedIndex + 1) + End Sub + + Private Sub ComboBox34_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox34.SelectedIndexChanged + GetAndDrawAnimationPokemonPic(PictureBox7, ComboBox34.SelectedIndex + 1) + End Sub + + Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged + 'species + ComboBox16.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16)), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + + 'attacks + ComboBox14.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 2), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox13.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 4), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox12.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 6), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox11.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 8), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + + 'items + ComboBox15.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 10), 1))), System.Globalization.NumberStyles.HexNumber) + + 'Nature + ComboBox10.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 12), 1))), System.Globalization.NumberStyles.HexNumber) + + 'EVs + Dim EVSpreadIntVar As Integer + Dim EVSpreadVar As String + Dim hpbit As String + Dim attackbit As String + Dim defensebit As String + Dim speedbit As String + Dim specialattackbit As String + Dim specialdefensebit As String + + EVSpreadIntVar = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((ListBox4.SelectedIndex * 16) + 11), 1)))), System.Globalization.NumberStyles.HexNumber) + + EVSpreadVar = Convert.ToString(EVSpreadIntVar, 2) + + While Len(EVSpreadVar) < 8 + + EVSpreadVar = "0" & EVSpreadVar + + End While + + hpbit = Mid(EVSpreadVar, 8, 1) + attackbit = Mid(EVSpreadVar, 7, 1) + defensebit = Mid(EVSpreadVar, 6, 1) + speedbit = Mid(EVSpreadVar, 5, 1) + specialattackbit = Mid(EVSpreadVar, 4, 1) + specialdefensebit = Mid(EVSpreadVar, 3, 1) + + If hpbit = "0" Then + CheckedListBox2.SetItemCheckState("0", CheckState.Unchecked) + ElseIf hpbit = "1" + CheckedListBox2.SetItemCheckState("0", CheckState.Checked) + End If + + If attackbit = "0" Then + CheckedListBox2.SetItemCheckState("1", CheckState.Unchecked) + ElseIf attackbit = "1" + CheckedListBox2.SetItemCheckState("1", CheckState.Checked) + End If + + If defensebit = "0" Then + CheckedListBox2.SetItemCheckState("2", CheckState.Unchecked) + ElseIf defensebit = "1" + CheckedListBox2.SetItemCheckState("2", CheckState.Checked) + End If + + If speedbit = "0" Then + CheckedListBox2.SetItemCheckState("3", CheckState.Unchecked) + ElseIf speedbit = "1" + CheckedListBox2.SetItemCheckState("3", CheckState.Checked) + End If + + If specialattackbit = "0" Then + CheckedListBox2.SetItemCheckState("4", CheckState.Unchecked) + ElseIf specialattackbit = "1" + CheckedListBox2.SetItemCheckState("4", CheckState.Checked) + End If + + If specialdefensebit = "0" Then + CheckedListBox2.SetItemCheckState("5", CheckState.Unchecked) + ElseIf specialdefensebit = "1" + CheckedListBox2.SetItemCheckState("5", CheckState.Checked) + End If + End Sub + + Private Sub ListBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox7.SelectedIndexChanged + 'species + ComboBox25.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16)), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + + 'attacks + ComboBox23.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 2), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox22.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 4), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox21.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 6), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox20.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 8), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + + 'items + ComboBox24.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 10), 1))), System.Globalization.NumberStyles.HexNumber) + + 'Nature + ComboBox19.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 12), 1))), System.Globalization.NumberStyles.HexNumber) + + 'EVs + Dim EVSpreadIntVar As Integer + Dim EVSpreadVar As String + Dim hpbit As String + Dim attackbit As String + Dim defensebit As String + Dim speedbit As String + Dim specialattackbit As String + Dim specialdefensebit As String + + EVSpreadIntVar = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((ListBox7.SelectedIndex * 16) + 11), 1)))), System.Globalization.NumberStyles.HexNumber) + + EVSpreadVar = Convert.ToString(EVSpreadIntVar, 2) + + While Len(EVSpreadVar) < 8 + + EVSpreadVar = "0" & EVSpreadVar + + End While + + hpbit = Mid(EVSpreadVar, 8, 1) + attackbit = Mid(EVSpreadVar, 7, 1) + defensebit = Mid(EVSpreadVar, 6, 1) + speedbit = Mid(EVSpreadVar, 5, 1) + specialattackbit = Mid(EVSpreadVar, 4, 1) + specialdefensebit = Mid(EVSpreadVar, 3, 1) + + If hpbit = "0" Then + CheckedListBox3.SetItemCheckState("0", CheckState.Unchecked) + ElseIf hpbit = "1" + CheckedListBox3.SetItemCheckState("0", CheckState.Checked) + End If + + If attackbit = "0" Then + CheckedListBox3.SetItemCheckState("1", CheckState.Unchecked) + ElseIf attackbit = "1" + CheckedListBox3.SetItemCheckState("1", CheckState.Checked) + End If + + If defensebit = "0" Then + CheckedListBox3.SetItemCheckState("2", CheckState.Unchecked) + ElseIf defensebit = "1" + CheckedListBox3.SetItemCheckState("2", CheckState.Checked) + End If + + If speedbit = "0" Then + CheckedListBox3.SetItemCheckState("3", CheckState.Unchecked) + ElseIf speedbit = "1" + CheckedListBox3.SetItemCheckState("3", CheckState.Checked) + End If + + If specialattackbit = "0" Then + CheckedListBox3.SetItemCheckState("4", CheckState.Unchecked) + ElseIf specialattackbit = "1" + CheckedListBox3.SetItemCheckState("4", CheckState.Checked) + End If + + If specialdefensebit = "0" Then + CheckedListBox3.SetItemCheckState("5", CheckState.Unchecked) + ElseIf specialdefensebit = "1" + CheckedListBox3.SetItemCheckState("5", CheckState.Checked) + End If + End Sub + + Private Sub ListBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox10.SelectedIndexChanged + 'species + ComboBox34.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16)), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + + 'attacks + ComboBox32.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 2), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox31.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 4), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox30.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 6), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + ComboBox29.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 8), 2))), System.Globalization.NumberStyles.HexNumber) - 1 + + 'items + ComboBox33.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 10), 1))), System.Globalization.NumberStyles.HexNumber) + + 'Nature + ComboBox28.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 12), 1))), System.Globalization.NumberStyles.HexNumber) + + 'EVs + Dim EVSpreadIntVar As Integer + Dim EVSpreadVar As String + Dim hpbit As String + Dim attackbit As String + Dim defensebit As String + Dim speedbit As String + Dim specialattackbit As String + Dim specialdefensebit As String + + EVSpreadIntVar = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((ListBox10.SelectedIndex * 16) + 11), 1)))), System.Globalization.NumberStyles.HexNumber) + + EVSpreadVar = Convert.ToString(EVSpreadIntVar, 2) + + While Len(EVSpreadVar) < 8 + + EVSpreadVar = "0" & EVSpreadVar + + End While + + hpbit = Mid(EVSpreadVar, 8, 1) + attackbit = Mid(EVSpreadVar, 7, 1) + defensebit = Mid(EVSpreadVar, 6, 1) + speedbit = Mid(EVSpreadVar, 5, 1) + specialattackbit = Mid(EVSpreadVar, 4, 1) + specialdefensebit = Mid(EVSpreadVar, 3, 1) + + If hpbit = "0" Then + CheckedListBox4.SetItemCheckState("0", CheckState.Unchecked) + ElseIf hpbit = "1" + CheckedListBox4.SetItemCheckState("0", CheckState.Checked) + End If + + If attackbit = "0" Then + CheckedListBox4.SetItemCheckState("1", CheckState.Unchecked) + ElseIf attackbit = "1" + CheckedListBox4.SetItemCheckState("1", CheckState.Checked) + End If + + If defensebit = "0" Then + CheckedListBox4.SetItemCheckState("2", CheckState.Unchecked) + ElseIf defensebit = "1" + CheckedListBox4.SetItemCheckState("2", CheckState.Checked) + End If + + If speedbit = "0" Then + CheckedListBox4.SetItemCheckState("3", CheckState.Unchecked) + ElseIf speedbit = "1" + CheckedListBox4.SetItemCheckState("3", CheckState.Checked) + End If + + If specialattackbit = "0" Then + CheckedListBox4.SetItemCheckState("4", CheckState.Unchecked) + ElseIf specialattackbit = "1" + CheckedListBox4.SetItemCheckState("4", CheckState.Checked) + End If + + If specialdefensebit = "0" Then + CheckedListBox4.SetItemCheckState("5", CheckState.Unchecked) + ElseIf specialdefensebit = "1" + CheckedListBox4.SetItemCheckState("5", CheckState.Checked) + End If + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + Dim indexmemory As Integer + Dim indexmemory2 As Integer + Dim indexmemory3 As Integer + Dim loopvar As Integer + + indexmemory = ListBox4.SelectedIndex + indexmemory2 = ComboBox17.SelectedIndex + indexmemory3 = ListBox5.SelectedIndex + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16)), ReverseHEX(VB.Right("0000" & Hex(ComboBox16.SelectedIndex + 1), 4))) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 10), Hex(ComboBox15.SelectedIndex)) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox14.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 4), ReverseHEX(VB.Right("0000" & Hex(ComboBox13.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 6), ReverseHEX(VB.Right("0000" & Hex(ComboBox12.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 8), ReverseHEX(VB.Right("0000" & Hex(ComboBox11.SelectedIndex + 1), 4))) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox4.SelectedIndex * 16) + 12), Hex(ComboBox10.SelectedIndex)) + + Dim hpbit As String + Dim attackbit As String + Dim defensebit As String + Dim speedbit As String + Dim specialattackbit As String + Dim specialdefensebit As String + Dim evspreadwritevar As String + + If CheckedListBox2.GetItemCheckState(0) = CheckState.Unchecked Then + + hpbit = 0 + + ElseIf CheckedListBox2.GetItemCheckState(0) = CheckState.Checked Then + + hpbit = 1 + + End If + + If CheckedListBox2.GetItemCheckState(1) = CheckState.Unchecked Then + + attackbit = 0 + + ElseIf CheckedListBox2.GetItemCheckState(1) = CheckState.Checked Then + + attackbit = 1 + + End If + + If CheckedListBox2.GetItemCheckState(2) = CheckState.Unchecked Then + + defensebit = 0 + + ElseIf CheckedListBox2.GetItemCheckState(2) = CheckState.Checked Then + + defensebit = 1 + + End If + + If CheckedListBox2.GetItemCheckState(3) = CheckState.Unchecked Then + + speedbit = 0 + + ElseIf CheckedListBox2.GetItemCheckState(3) = CheckState.Checked Then + + speedbit = 1 + + End If + + If CheckedListBox2.GetItemCheckState(4) = CheckState.Unchecked Then + + specialattackbit = 0 + + ElseIf CheckedListBox2.GetItemCheckState(4) = CheckState.Checked Then + + specialattackbit = 1 + + End If + + If CheckedListBox2.GetItemCheckState(5) = CheckState.Unchecked Then + + specialdefensebit = 0 + + ElseIf CheckedListBox2.GetItemCheckState(5) = CheckState.Checked Then + + specialdefensebit = 1 + + End If + + evspreadwritevar = specialdefensebit & specialattackbit & speedbit & defensebit & attackbit & hpbit + + evspreadwritevar = Convert.ToInt32(evspreadwritevar, 2) + + WriteHEX(LoadedROM, Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((ListBox4.SelectedIndex * 16) + 11), Hex(evspreadwritevar)) + + 'Everything past here loads stuff + loopvar = 0 + + ListBox4.Items.Clear() + ComboBox17.Items.Clear() + + While loopvar < (GetString(GetINIFileLocation(), header, "NumberOfSlateportBattleTentPokemon", "")) = True + + ListBox4.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox17.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + loopvar = loopvar + 1 + End While + + TextBox4.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox6.SelectedIndex) + 48), 4))))) - &H8000000) + + ListBox5.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox4.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox5.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "SlateportBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox4.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox4.SelectedIndex = indexmemory + ComboBox17.SelectedIndex = indexmemory2 + ListBox5.SelectedIndex = indexmemory3 + End Sub + + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click + Dim indexmemory As Integer + Dim indexmemory2 As Integer + Dim indexmemory3 As Integer + Dim loopvar As Integer + + indexmemory = ListBox7.SelectedIndex + indexmemory2 = ComboBox26.SelectedIndex + indexmemory3 = ListBox8.SelectedIndex + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16)), ReverseHEX(VB.Right("0000" & Hex(ComboBox25.SelectedIndex + 1), 4))) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 10), Hex(ComboBox24.SelectedIndex)) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox23.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 4), ReverseHEX(VB.Right("0000" & Hex(ComboBox22.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 6), ReverseHEX(VB.Right("0000" & Hex(ComboBox21.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 8), ReverseHEX(VB.Right("0000" & Hex(ComboBox20.SelectedIndex + 1), 4))) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox7.SelectedIndex * 16) + 12), Hex(ComboBox19.SelectedIndex)) + + Dim hpbit As String + Dim attackbit As String + Dim defensebit As String + Dim speedbit As String + Dim specialattackbit As String + Dim specialdefensebit As String + Dim evspreadwritevar As String + + If CheckedListBox3.GetItemCheckState(0) = CheckState.Unchecked Then + + hpbit = 0 + + ElseIf CheckedListBox3.GetItemCheckState(0) = CheckState.Checked Then + + hpbit = 1 + + End If + + If CheckedListBox3.GetItemCheckState(1) = CheckState.Unchecked Then + + attackbit = 0 + + ElseIf CheckedListBox3.GetItemCheckState(1) = CheckState.Checked Then + + attackbit = 1 + + End If + + If CheckedListBox3.GetItemCheckState(2) = CheckState.Unchecked Then + + defensebit = 0 + + ElseIf CheckedListBox3.GetItemCheckState(2) = CheckState.Checked Then + + defensebit = 1 + + End If + + If CheckedListBox3.GetItemCheckState(3) = CheckState.Unchecked Then + + speedbit = 0 + + ElseIf CheckedListBox3.GetItemCheckState(3) = CheckState.Checked Then + + speedbit = 1 + + End If + + If CheckedListBox3.GetItemCheckState(4) = CheckState.Unchecked Then + + specialattackbit = 0 + + ElseIf CheckedListBox3.GetItemCheckState(4) = CheckState.Checked Then + + specialattackbit = 1 + + End If + + If CheckedListBox3.GetItemCheckState(5) = CheckState.Unchecked Then + + specialdefensebit = 0 + + ElseIf CheckedListBox3.GetItemCheckState(5) = CheckState.Checked Then + + specialdefensebit = 1 + + End If + + evspreadwritevar = specialdefensebit & specialattackbit & speedbit & defensebit & attackbit & hpbit + + evspreadwritevar = Convert.ToInt32(evspreadwritevar, 2) + + WriteHEX(LoadedROM, Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((ListBox7.SelectedIndex * 16) + 11), Hex(evspreadwritevar)) + + 'Everything past here loads stuff + loopvar = 0 + + ListBox7.Items.Clear() + ComboBox26.Items.Clear() + + While loopvar < (GetString(GetINIFileLocation(), header, "NumberOfVerdanturfBattleTentPokemon", "")) = True + + ListBox7.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox26.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + loopvar = loopvar + 1 + End While + + TextBox7.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox9.SelectedIndex) + 48), 4))))) - &H8000000) + + ListBox8.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox7.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox8.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox7.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox7.SelectedIndex = indexmemory + ComboBox26.SelectedIndex = indexmemory2 + ListBox8.SelectedIndex = indexmemory3 + End Sub + + Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click + Dim indexmemory As Integer + Dim indexmemory2 As Integer + Dim indexmemory3 As Integer + Dim loopvar As Integer + + indexmemory = ListBox10.SelectedIndex + indexmemory2 = ComboBox35.SelectedIndex + indexmemory3 = ListBox11.SelectedIndex + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16)), ReverseHEX(VB.Right("0000" & Hex(ComboBox34.SelectedIndex + 1), 4))) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 10), Hex(ComboBox33.SelectedIndex)) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox32.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 4), ReverseHEX(VB.Right("0000" & Hex(ComboBox31.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 6), ReverseHEX(VB.Right("0000" & Hex(ComboBox30.SelectedIndex + 1), 4))) + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 8), ReverseHEX(VB.Right("0000" & Hex(ComboBox29.SelectedIndex + 1), 4))) + + WriteHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox10.SelectedIndex * 16) + 12), Hex(ComboBox28.SelectedIndex)) + + Dim hpbit As String + Dim attackbit As String + Dim defensebit As String + Dim speedbit As String + Dim specialattackbit As String + Dim specialdefensebit As String + Dim evspreadwritevar As String + + If CheckedListBox4.GetItemCheckState(0) = CheckState.Unchecked Then + + hpbit = 0 + + ElseIf CheckedListBox4.GetItemCheckState(0) = CheckState.Checked Then + + hpbit = 1 + + End If + + If CheckedListBox4.GetItemCheckState(1) = CheckState.Unchecked Then + + attackbit = 0 + + ElseIf CheckedListBox4.GetItemCheckState(1) = CheckState.Checked Then + + attackbit = 1 + + End If + + If CheckedListBox4.GetItemCheckState(2) = CheckState.Unchecked Then + + defensebit = 0 + + ElseIf CheckedListBox4.GetItemCheckState(2) = CheckState.Checked Then + + defensebit = 1 + + End If + + If CheckedListBox4.GetItemCheckState(3) = CheckState.Unchecked Then + + speedbit = 0 + + ElseIf CheckedListBox4.GetItemCheckState(3) = CheckState.Checked Then + + speedbit = 1 + + End If + + If CheckedListBox4.GetItemCheckState(4) = CheckState.Unchecked Then + + specialattackbit = 0 + + ElseIf CheckedListBox4.GetItemCheckState(4) = CheckState.Checked Then + + specialattackbit = 1 + + End If + + If CheckedListBox4.GetItemCheckState(5) = CheckState.Unchecked Then + + specialdefensebit = 0 + + ElseIf CheckedListBox4.GetItemCheckState(5) = CheckState.Checked Then + + specialdefensebit = 1 + + End If + + evspreadwritevar = specialdefensebit & specialattackbit & speedbit & defensebit & attackbit & hpbit + + evspreadwritevar = Convert.ToInt32(evspreadwritevar, 2) + + WriteHEX(LoadedROM, Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((ListBox10.SelectedIndex * 16) + 11), Hex(evspreadwritevar)) + + 'Everything past here loads stuff + loopvar = 0 + + ListBox10.Items.Clear() + ComboBox35.Items.Clear() + + While loopvar < (GetString(GetINIFileLocation(), header, "NumberOfFallarborBattleTentPokemon", "")) = True + + ListBox10.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + ComboBox35.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + loopvar = loopvar + 1 + End While + + TextBox10.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox12.SelectedIndex) + 48), 4))))) - &H8000000) + + ListBox11.Items.Clear() + + Dim curbytes As String + Dim counter As Integer = 0 + + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox10.Text, System.Globalization.NumberStyles.HexNumber), 2)) + + While curbytes <> "FFFF" + + ListBox11.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(GetINIFileLocation(), header, "FallarborBattleTentPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber))) + + counter = counter + 1 + + curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox10.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2)) + + End While + + ListBox10.SelectedIndex = indexmemory + ComboBox35.SelectedIndex = indexmemory2 + ListBox11.SelectedIndex = indexmemory3 + End Sub End Class \ No newline at end of file diff --git a/GBAPokemonGameEditor/ChangeNameFunctions.vb b/GBAPokemonGameEditor/ChangeNameFunctions.vb index 2478278..7267046 100644 --- a/GBAPokemonGameEditor/ChangeNameFunctions.vb +++ b/GBAPokemonGameEditor/ChangeNameFunctions.vb @@ -163,4 +163,85 @@ Module ChangeNameFunctions End End If End Function + + Public Function ChangeSlateportBattleTentName(ByVal Index As Integer, ByVal NewName As String) + Dim offvar As Long + + offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + If header2 = "BPE" Then + If header3 = "J" Then + + Else + + FileNum = FreeFile() + FileOpen(FileNum, LoadedROM, OpenMode.Binary) + Dim PokeName As String = "xxxxxxxx" + Dim filler As Byte = "&HFF" + PokeName = NameAsc2Sapp(NewName) + FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52)) + FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName)) + + + End If + FileClose(FileNum) + ChangeSlateportBattleTentName = NewName + Else + MsgBox("What did you do? Contact Gamer2020") + End + End If + End Function + + Public Function ChangeVerdanturfBattleTentName(ByVal Index As Integer, ByVal NewName As String) + Dim offvar As Long + + offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + If header2 = "BPE" Then + If header3 = "J" Then + + Else + + FileNum = FreeFile() + FileOpen(FileNum, LoadedROM, OpenMode.Binary) + Dim PokeName As String = "xxxxxxxx" + Dim filler As Byte = "&HFF" + PokeName = NameAsc2Sapp(NewName) + FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52)) + FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName)) + + + End If + FileClose(FileNum) + ChangeVerdanturfBattleTentName = NewName + Else + MsgBox("What did you do? Contact Gamer2020") + End + End If + End Function + + Public Function ChangeFallarborBattleTentName(ByVal Index As Integer, ByVal NewName As String) + Dim offvar As Long + + offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + If header2 = "BPE" Then + If header3 = "J" Then + + Else + + FileNum = FreeFile() + FileOpen(FileNum, LoadedROM, OpenMode.Binary) + Dim PokeName As String = "xxxxxxxx" + Dim filler As Byte = "&HFF" + PokeName = NameAsc2Sapp(NewName) + FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52)) + FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName)) + + + End If + FileClose(FileNum) + ChangeFallarborBattleTentName = NewName + Else + MsgBox("What did you do? Contact Gamer2020") + End + End If + End Function End Module diff --git a/GBAPokemonGameEditor/GetNameFunctions.vb b/GBAPokemonGameEditor/GetNameFunctions.vb index 4bb85c5..744d7fc 100644 --- a/GBAPokemonGameEditor/GetNameFunctions.vb +++ b/GBAPokemonGameEditor/GetNameFunctions.vb @@ -172,6 +172,105 @@ Module GetNameFunctions GetBattleFrontierTrainerName = stringvar End Function + Public Function GetSlateportBattleTentTrainerName(ByVal Index As Integer) As String + Dim offvar As Integer + Dim stringvar As String + offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + + If header2 = "BPE" Then + If header3 = "J" Then + Else + offvar = offvar + 4 + (Index * 52) + FileNum = FreeFile() + FileOpen(FileNum, LoadedROM, OpenMode.Binary) + Dim LabelName As String = "xxxxxxxx" + + + + FileGet(FileNum, LabelName, offvar + 1) + stringvar = Sapp2Asc(LabelName, False) + While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While + stringvar = LSet(stringvar, Len(stringvar) - 1) + + End If + + FileClose(FileNum) + Else + MsgBox("What did you do?") + End + End If + + + + GetSlateportBattleTentTrainerName = stringvar + End Function + + Public Function GetVerdanturfBattleTentTrainerName(ByVal Index As Integer) As String + Dim offvar As Integer + Dim stringvar As String + offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + + If header2 = "BPE" Then + If header3 = "J" Then + Else + offvar = offvar + 4 + (Index * 52) + FileNum = FreeFile() + FileOpen(FileNum, LoadedROM, OpenMode.Binary) + Dim LabelName As String = "xxxxxxxx" + + + + FileGet(FileNum, LabelName, offvar + 1) + stringvar = Sapp2Asc(LabelName, False) + While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While + stringvar = LSet(stringvar, Len(stringvar) - 1) + + End If + + FileClose(FileNum) + Else + MsgBox("What did you do?") + End + End If + + + + GetVerdanturfBattleTentTrainerName = stringvar + End Function + + Public Function GetFallarborBattleTentTrainerName(ByVal Index As Integer) As String + Dim offvar As Integer + Dim stringvar As String + offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber) + + If header2 = "BPE" Then + If header3 = "J" Then + Else + offvar = offvar + 4 + (Index * 52) + FileNum = FreeFile() + FileOpen(FileNum, LoadedROM, OpenMode.Binary) + Dim LabelName As String = "xxxxxxxx" + + + + FileGet(FileNum, LabelName, offvar + 1) + stringvar = Sapp2Asc(LabelName, False) + While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While + stringvar = LSet(stringvar, Len(stringvar) - 1) + + End If + + FileClose(FileNum) + Else + MsgBox("What did you do?") + End + End If + + + + GetFallarborBattleTentTrainerName = stringvar + End Function + Public Function GetTrainerClass(ByVal Index As Integer) Dim offvar As Integer diff --git a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.application b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.application index 46474a0..99cb1a4 100644 --- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.application +++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.application @@ -16,7 +16,7 @@ - sj4kF8teN0wVK1GEr2Y6a5JL8zc= + /rX4zE0fVoY+ztFUUlWne/Yk1SE= diff --git a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe index 0e0ee62..63a0949 100644 Binary files a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe and b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe differ diff --git a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe.manifest b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe.manifest index 823e622..eb75391 100644 --- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe.manifest +++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe.manifest @@ -43,14 +43,14 @@ - + - SViiHhuinDBoO5WLDav7R/nx3kM= + Uox+rVA2MM8qHL9VopX54YJd3kA= diff --git a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.pdb b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.pdb index 773b840..4f59dfa 100644 Binary files a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.pdb and b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.pdb differ diff --git a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.application b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.application index 46474a0..99cb1a4 100644 --- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.application +++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.application @@ -16,7 +16,7 @@ - sj4kF8teN0wVK1GEr2Y6a5JL8zc= + /rX4zE0fVoY+ztFUUlWne/Yk1SE= diff --git a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe.manifest b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe.manifest index 823e622..eb75391 100644 --- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe.manifest +++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe.manifest @@ -43,14 +43,14 @@ - + - SViiHhuinDBoO5WLDav7R/nx3kM= + Uox+rVA2MM8qHL9VopX54YJd3kA= diff --git a/GBAPokemonGameEditor/bin/Debug/app.publish/GBAPokemonGameEditor.exe b/GBAPokemonGameEditor/bin/Debug/app.publish/GBAPokemonGameEditor.exe index 0e0ee62..63a0949 100644 Binary files a/GBAPokemonGameEditor/bin/Debug/app.publish/GBAPokemonGameEditor.exe and b/GBAPokemonGameEditor/bin/Debug/app.publish/GBAPokemonGameEditor.exe differ diff --git a/GBAPokemonGameEditor/bin/Debug/ini/roms.ini b/GBAPokemonGameEditor/bin/Debug/ini/roms.ini index 33ce01f..0f5bd14 100644 --- a/GBAPokemonGameEditor/bin/Debug/ini/roms.ini +++ b/GBAPokemonGameEditor/bin/Debug/ini/roms.ini @@ -805,7 +805,7 @@ SlateportBattleTentTrainers=5DDA14 VerdanturfBattleTentTrainers=5DE610 FallarborBattleTentTrainers=5DF084 NumberOfBattleFrontierTrainers=300 -NumberOfSlateportBattleTentTrainers=70 +NumberOfSlateportBattleTentTrainers=30 NumberOfVerdanturfBattleTentTrainers=30 NumberOfFallarborBattleTentTrainers=30 TrainerClasses=30FCD4 @@ -813,7 +813,7 @@ NumberOfTrainerClasses=65 BattleFrontierPokemon=5D97BC SlateportBattleTentPokemon=5DE02C VerdanturfBattleTentPokemon=5DEC28 -FallarborBattleTentPokemon=5DF96C +FallarborBattleTentPokemon=5DF69C NumberOfBattleFrontierPokemon=882 NumberOfSlateportBattleTentPokemon=70 NumberOfVerdanturfBattleTentPokemon=45 diff --git a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.application b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.application index 46474a0..99cb1a4 100644 --- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.application +++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.application @@ -16,7 +16,7 @@ - sj4kF8teN0wVK1GEr2Y6a5JL8zc= + /rX4zE0fVoY+ztFUUlWne/Yk1SE= diff --git a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe index 0e0ee62..63a0949 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe and b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe differ diff --git a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe.manifest b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe.manifest index 823e622..eb75391 100644 --- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe.manifest +++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe.manifest @@ -43,14 +43,14 @@ - + - SViiHhuinDBoO5WLDav7R/nx3kM= + Uox+rVA2MM8qHL9VopX54YJd3kA= diff --git a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.pdb b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.pdb index 773b840..4f59dfa 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.pdb and b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.pdb differ diff --git a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache index 3db8aef..6bea392 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache and b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache differ diff --git a/roms.ini b/roms.ini index 33ce01f..0f5bd14 100644 --- a/roms.ini +++ b/roms.ini @@ -805,7 +805,7 @@ SlateportBattleTentTrainers=5DDA14 VerdanturfBattleTentTrainers=5DE610 FallarborBattleTentTrainers=5DF084 NumberOfBattleFrontierTrainers=300 -NumberOfSlateportBattleTentTrainers=70 +NumberOfSlateportBattleTentTrainers=30 NumberOfVerdanturfBattleTentTrainers=30 NumberOfFallarborBattleTentTrainers=30 TrainerClasses=30FCD4 @@ -813,7 +813,7 @@ NumberOfTrainerClasses=65 BattleFrontierPokemon=5D97BC SlateportBattleTentPokemon=5DE02C VerdanturfBattleTentPokemon=5DEC28 -FallarborBattleTentPokemon=5DF96C +FallarborBattleTentPokemon=5DF69C NumberOfBattleFrontierPokemon=882 NumberOfSlateportBattleTentPokemon=70 NumberOfVerdanturfBattleTentPokemon=45