diff --git a/GBAPokemonGameEditor.v12.suo b/GBAPokemonGameEditor.v12.suo index 0835587..b97496e 100644 Binary files a/GBAPokemonGameEditor.v12.suo and b/GBAPokemonGameEditor.v12.suo differ diff --git a/GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj b/GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj index 416db13..8d121ad 100644 --- a/GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj +++ b/GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj @@ -159,12 +159,6 @@ Form - - JamboHackEvos.vb - - - Form - @@ -244,9 +238,6 @@ InputAttacks.vb - - JamboHackEvos.vb - MainFrm.vb diff --git a/GBAPokemonGameEditor/JamboHackEvos.Designer.vb b/GBAPokemonGameEditor/JamboHackEvos.Designer.vb deleted file mode 100644 index e22f91a..0000000 --- a/GBAPokemonGameEditor/JamboHackEvos.Designer.vb +++ /dev/null @@ -1,369 +0,0 @@ - _ -Partial Class JamboHackEvos - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.GroupBox17 = New System.Windows.Forms.GroupBox() - Me.EvoItemPic = New System.Windows.Forms.PictureBox() - Me.EvoPokePic = New System.Windows.Forms.PictureBox() - Me.EvoLevel = New System.Windows.Forms.TextBox() - Me.EvoItem = New System.Windows.Forms.ComboBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.Label15 = New System.Windows.Forms.Label() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.EvoTypes = New System.Windows.Forms.ComboBox() - Me.EvoSlots = New System.Windows.Forms.ListBox() - Me.EvoPKMNames = New System.Windows.Forms.ComboBox() - Me.GroupBox19 = New System.Windows.Forms.GroupBox() - Me.PKMNames = New System.Windows.Forms.ComboBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.Button1 = New System.Windows.Forms.Button() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.ComboBox2 = New System.Windows.Forms.ComboBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.Label5 = New System.Windows.Forms.Label() - Me.ComboBox3 = New System.Windows.Forms.ComboBox() - Me.GroupBox17.SuspendLayout() - CType(Me.EvoItemPic, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.EvoPokePic, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox19.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'GroupBox17 - ' - Me.GroupBox17.Controls.Add(Me.ComboBox3) - Me.GroupBox17.Controls.Add(Me.Label5) - Me.GroupBox17.Controls.Add(Me.TextBox2) - Me.GroupBox17.Controls.Add(Me.TextBox1) - Me.GroupBox17.Controls.Add(Me.Label4) - Me.GroupBox17.Controls.Add(Me.Label3) - Me.GroupBox17.Controls.Add(Me.ComboBox2) - Me.GroupBox17.Controls.Add(Me.Label2) - Me.GroupBox17.Controls.Add(Me.Label1) - Me.GroupBox17.Controls.Add(Me.PictureBox2) - Me.GroupBox17.Controls.Add(Me.ComboBox1) - Me.GroupBox17.Controls.Add(Me.EvoItemPic) - Me.GroupBox17.Controls.Add(Me.EvoPokePic) - Me.GroupBox17.Controls.Add(Me.EvoLevel) - Me.GroupBox17.Controls.Add(Me.EvoItem) - Me.GroupBox17.Controls.Add(Me.Label16) - Me.GroupBox17.Controls.Add(Me.Label15) - Me.GroupBox17.Controls.Add(Me.Label14) - Me.GroupBox17.Controls.Add(Me.Label13) - Me.GroupBox17.Controls.Add(Me.EvoTypes) - Me.GroupBox17.Controls.Add(Me.EvoSlots) - Me.GroupBox17.Controls.Add(Me.EvoPKMNames) - Me.GroupBox17.Location = New System.Drawing.Point(10, 116) - Me.GroupBox17.Name = "GroupBox17" - Me.GroupBox17.Size = New System.Drawing.Size(613, 232) - Me.GroupBox17.TabIndex = 9 - Me.GroupBox17.TabStop = False - Me.GroupBox17.Text = "Evolutions" - ' - 'EvoItemPic - ' - Me.EvoItemPic.Location = New System.Drawing.Point(354, 81) - Me.EvoItemPic.Name = "EvoItemPic" - Me.EvoItemPic.Size = New System.Drawing.Size(24, 24) - Me.EvoItemPic.TabIndex = 10 - Me.EvoItemPic.TabStop = False - ' - 'EvoPokePic - ' - Me.EvoPokePic.Location = New System.Drawing.Point(191, 81) - Me.EvoPokePic.Name = "EvoPokePic" - Me.EvoPokePic.Size = New System.Drawing.Size(64, 64) - Me.EvoPokePic.TabIndex = 9 - Me.EvoPokePic.TabStop = False - ' - 'EvoLevel - ' - Me.EvoLevel.Location = New System.Drawing.Point(450, 19) - Me.EvoLevel.Name = "EvoLevel" - Me.EvoLevel.Size = New System.Drawing.Size(25, 20) - Me.EvoLevel.TabIndex = 8 - ' - 'EvoItem - ' - Me.EvoItem.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.EvoItem.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.EvoItem.FormattingEnabled = True - Me.EvoItem.Location = New System.Drawing.Point(354, 54) - Me.EvoItem.Name = "EvoItem" - Me.EvoItem.Size = New System.Drawing.Size(121, 21) - Me.EvoItem.TabIndex = 7 - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(397, 22) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(36, 13) - Me.Label16.TabIndex = 6 - Me.Label16.Text = "Level:" - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(318, 54) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(30, 13) - Me.Label15.TabIndex = 5 - Me.Label15.Text = "Item:" - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(133, 54) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(55, 13) - Me.Label14.TabIndex = 4 - Me.Label14.Text = "Evolve to:" - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(133, 22) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(54, 13) - Me.Label13.TabIndex = 3 - Me.Label13.Text = "Condition:" - ' - 'EvoTypes - ' - Me.EvoTypes.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.EvoTypes.FormattingEnabled = True - Me.EvoTypes.Items.AddRange(New Object() {"None", "Happiness", "Happiness (Day)", "Happiness (Night)", "Level", "Trade", "Trade w/ Item", "Item", "Atk > Def", "Atk = Def", "Atk < Def", "High Personality", "Low Personality", "Allow Pokemon Creation", "Create Extra Pokemon", "Max Beauty", "level up in certain map", "level up on certain map name", "level up while knowing a certain attack", "level up at night while holding a certain item", "level up with a specific other species of pokémon in the party", "level up above a certain level as male", "level up above a certain level as female", "level up during day holding a specific item", "trade with another specific species"}) - Me.EvoTypes.Location = New System.Drawing.Point(191, 22) - Me.EvoTypes.Name = "EvoTypes" - Me.EvoTypes.Size = New System.Drawing.Size(200, 21) - Me.EvoTypes.TabIndex = 2 - ' - 'EvoSlots - ' - Me.EvoSlots.FormattingEnabled = True - Me.EvoSlots.Items.AddRange(New Object() {"Evolution 1", "Evolution 2", "Evolution 3", "Evolution 4", "Evolution 5"}) - Me.EvoSlots.Location = New System.Drawing.Point(7, 19) - Me.EvoSlots.Name = "EvoSlots" - Me.EvoSlots.Size = New System.Drawing.Size(120, 69) - Me.EvoSlots.TabIndex = 1 - ' - 'EvoPKMNames - ' - Me.EvoPKMNames.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.EvoPKMNames.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.EvoPKMNames.FormattingEnabled = True - Me.EvoPKMNames.Location = New System.Drawing.Point(191, 54) - Me.EvoPKMNames.Name = "EvoPKMNames" - Me.EvoPKMNames.Size = New System.Drawing.Size(121, 21) - Me.EvoPKMNames.TabIndex = 0 - ' - 'GroupBox19 - ' - Me.GroupBox19.Controls.Add(Me.PKMNames) - Me.GroupBox19.Location = New System.Drawing.Point(10, 33) - Me.GroupBox19.Name = "GroupBox19" - Me.GroupBox19.Size = New System.Drawing.Size(130, 66) - Me.GroupBox19.TabIndex = 10 - Me.GroupBox19.TabStop = False - Me.GroupBox19.Text = "Pokemon Selection" - ' - 'PKMNames - ' - Me.PKMNames.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.PKMNames.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.PKMNames.FormattingEnabled = True - Me.PKMNames.Location = New System.Drawing.Point(6, 28) - Me.PKMNames.Name = "PKMNames" - Me.PKMNames.Size = New System.Drawing.Size(118, 21) - Me.PKMNames.TabIndex = 7 - ' - 'PictureBox1 - ' - Me.PictureBox1.Location = New System.Drawing.Point(175, 33) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(64, 64) - Me.PictureBox1.TabIndex = 11 - Me.PictureBox1.TabStop = False - ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(288, 38) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(127, 43) - Me.Button1.TabIndex = 12 - Me.Button1.Text = "Save" - Me.Button1.UseVisualStyleBackColor = True - ' - 'PictureBox2 - ' - Me.PictureBox2.Location = New System.Drawing.Point(481, 81) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(64, 64) - Me.PictureBox2.TabIndex = 12 - Me.PictureBox2.TabStop = False - ' - 'ComboBox1 - ' - Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(481, 54) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(121, 21) - Me.ComboBox1.TabIndex = 11 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(481, 22) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(108, 13) - Me.Label1.TabIndex = 13 - Me.Label1.Text = "Species Requirement" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(133, 158) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(60, 13) - Me.Label2.TabIndex = 14 - Me.Label2.Text = "Map name:" - ' - 'ComboBox2 - ' - Me.ComboBox2.FormattingEnabled = True - Me.ComboBox2.Location = New System.Drawing.Point(191, 158) - Me.ComboBox2.Name = "ComboBox2" - Me.ComboBox2.Size = New System.Drawing.Size(121, 21) - Me.ComboBox2.TabIndex = 15 - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(402, 155) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(31, 13) - Me.Label3.TabIndex = 16 - Me.Label3.Text = "Map:" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(318, 155) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(35, 13) - Me.Label4.TabIndex = 17 - Me.Label4.Text = "Bank:" - ' - 'TextBox1 - ' - Me.TextBox1.Location = New System.Drawing.Point(354, 155) - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(32, 20) - Me.TextBox1.TabIndex = 18 - ' - 'TextBox2 - ' - Me.TextBox2.Location = New System.Drawing.Point(439, 155) - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(36, 20) - Me.TextBox2.TabIndex = 19 - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(133, 184) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(41, 13) - Me.Label5.TabIndex = 20 - Me.Label5.Text = "Attack:" - ' - 'ComboBox3 - ' - Me.ComboBox3.FormattingEnabled = True - Me.ComboBox3.Location = New System.Drawing.Point(191, 184) - Me.ComboBox3.Name = "ComboBox3" - Me.ComboBox3.Size = New System.Drawing.Size(121, 21) - Me.ComboBox3.TabIndex = 21 - ' - 'JamboHackEvos - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(635, 393) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.PictureBox1) - Me.Controls.Add(Me.GroupBox17) - Me.Controls.Add(Me.GroupBox19) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle - Me.Name = "JamboHackEvos" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "JamboHackEvos" - Me.GroupBox17.ResumeLayout(False) - Me.GroupBox17.PerformLayout() - CType(Me.EvoItemPic, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.EvoPokePic, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox19.ResumeLayout(False) - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - - End Sub - Friend WithEvents GroupBox17 As System.Windows.Forms.GroupBox - Friend WithEvents EvoItemPic As System.Windows.Forms.PictureBox - Friend WithEvents EvoPokePic As System.Windows.Forms.PictureBox - Friend WithEvents EvoLevel As System.Windows.Forms.TextBox - Friend WithEvents EvoItem As System.Windows.Forms.ComboBox - Friend WithEvents Label16 As System.Windows.Forms.Label - Friend WithEvents Label15 As System.Windows.Forms.Label - Friend WithEvents Label14 As System.Windows.Forms.Label - Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents EvoTypes As System.Windows.Forms.ComboBox - Friend WithEvents EvoSlots As System.Windows.Forms.ListBox - Friend WithEvents EvoPKMNames As System.Windows.Forms.ComboBox - Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox - Friend WithEvents PKMNames As System.Windows.Forms.ComboBox - Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox - Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox - Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents TextBox2 As System.Windows.Forms.TextBox - Friend WithEvents TextBox1 As System.Windows.Forms.TextBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents Label3 As System.Windows.Forms.Label -End Class diff --git a/GBAPokemonGameEditor/JamboHackEvos.resx b/GBAPokemonGameEditor/JamboHackEvos.resx deleted file mode 100644 index 1af7de1..0000000 --- a/GBAPokemonGameEditor/JamboHackEvos.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/GBAPokemonGameEditor/JamboHackEvos.vb b/GBAPokemonGameEditor/JamboHackEvos.vb deleted file mode 100644 index 96977c4..0000000 --- a/GBAPokemonGameEditor/JamboHackEvos.vb +++ /dev/null @@ -1,1156 +0,0 @@ - - -Public Class JamboHackEvos - Public EvoDatajj As Long - Private Sub JamboHackEvos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load - Dim LoopVar As Integer - LoopVar = 0 - - ComboBox2.Items.Clear() - - While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfMapLabels", "")) = True - - - ComboBox2.Items.Add(GetMapLabelName(LoopVar)) - - - LoopVar = LoopVar + 1 - - End While - - LoopVar = 0 - - ComboBox3.Items.Clear() - - While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfAttacks", "")) + 1 = True - - - ComboBox3.Items.Add(GetAttackName(LoopVar)) - - - LoopVar = LoopVar + 1 - - End While - - LoopVar = 0 - - PKMNames.Items.Clear() - EvoPKMNames.Items.Clear() - ComboBox1.Items.Clear() - - While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfPokemon", "")) - 1 = True - - - LoopVar = LoopVar + 1 - - PKMNames.Items.Add(GetPokemonName(LoopVar)) - EvoPKMNames.Items.Add(GetPokemonName(LoopVar)) - ComboBox1.Items.Add(GetPokemonName(LoopVar)) - - End While - - LoopVar = 0 - - ' Item1.Items.Clear() - ' Item2.Items.Clear() - EvoItem.Items.Clear() - - While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfItems", "")) = True - ' Item1.Items.Add(GetItemName(LoopVar)) - ' Item2.Items.Add(GetItemName(LoopVar)) - EvoItem.Items.Add(GetItemName(LoopVar)) - - LoopVar = LoopVar + 1 - - - - End While - - PKMNames.SelectedIndex = 0 - End Sub - - Private Sub PKMNames_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKMNames.SelectedIndexChanged - If GetString(AppPath & "GBAPGESettings.ini", "Settings", "DisablePKMImages", "0") = "0" Then - - GetAndDrawFrontPokemonPic(PictureBox1, PKMNames.SelectedIndex + 1) - End If - EvoSlots.SelectedIndex = -1 - EvoSlots.SelectedIndex = 0 - - End Sub - - Private Sub EvoSlots_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EvoSlots.SelectedIndexChanged - EvoDatajj = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "PokemonEvolutions", "")), System.Globalization.NumberStyles.HexNumber) - - EvoTypes.SelectedIndex = -1 - EvoTypes.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))), System.Globalization.NumberStyles.HexNumber) - - If EvoTypes.SelectedIndex = 0 Then - - EvoPKMNames.Enabled = False - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoPKMNames.SelectedIndex = -1 - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - ElseIf EvoTypes.SelectedIndex = 1 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))), System.Globalization.NumberStyles.HexNumber) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 2 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))), System.Globalization.NumberStyles.HexNumber) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 3 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))), System.Globalization.NumberStyles.HexNumber) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 4 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))), System.Globalization.NumberStyles.HexNumber) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))), System.Globalization.NumberStyles.HexNumber) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 5 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 6 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - - EvoItem.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - EvoItem.Enabled = True - ElseIf EvoTypes.SelectedIndex = 7 Then - - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoItem.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - EvoItem.Enabled = True - - ElseIf EvoTypes.SelectedIndex = 8 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 9 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 10 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 11 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - - ElseIf EvoTypes.SelectedIndex = 12 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 13 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoItem.SelectedIndex = -1 - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoLevel.Enabled = True - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 14 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoItem.SelectedIndex = -1 - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 15 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 16 Then - - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - TextBox1.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - TextBox2.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - TextBox1.Enabled = True - TextBox1.Enabled = True - - ElseIf EvoTypes.SelectedIndex = 17 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - - If header2 = "BPR" Or header2 = "BPG" Then - ComboBox2.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - 88 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ComboBox2.Enabled = True - - ElseIf header2 = "BPE" Then - ComboBox2.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ComboBox2.Enabled = True - ElseIf header2 = "AXP" Or header2 = "AXV" Then - ComboBox2.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ComboBox2.Enabled = True - End If - ElseIf EvoTypes.SelectedIndex = 18 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - ComboBox3.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ComboBox3.Enabled = True - ElseIf EvoTypes.SelectedIndex = 19 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoItem.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - EvoItem.Enabled = True - ElseIf EvoTypes.SelectedIndex = 20 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - ComboBox1.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ComboBox1.Enabled = True - ElseIf EvoTypes.SelectedIndex = 21 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoLevel.Enabled = True - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 22 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - - EvoLevel.Enabled = True - EvoLevel.Text = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 1)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ElseIf EvoTypes.SelectedIndex = 23 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - EvoItem.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - EvoItem.Enabled = True - ElseIf EvoTypes.SelectedIndex = 24 Then - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoItem.Enabled = False - - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - - ComboBox1.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.SelectedIndex = -1 - EvoPKMNames.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), 2)))) - 1 - EvoPKMNames.Enabled = True - ComboBox1.Enabled = True - ElseIf EvoTypes.SelectedIndex > 24 Then - EvoPKMNames.Enabled = False - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoItem.SelectedIndex = -1 - EvoLevel.Text = "" - EvoPKMNames.SelectedIndex = -1 - ComboBox1.Enabled = False - ComboBox1.SelectedIndex = -1 - ComboBox2.Enabled = False - ComboBox2.SelectedIndex = -1 - ComboBox3.Enabled = False - ComboBox3.SelectedIndex = -1 - TextBox1.Enabled = False - TextBox1.Text = "" - TextBox2.Enabled = False - TextBox2.Text = "" - End If - End Sub - - Private Sub EvoTypes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EvoTypes.SelectedIndexChanged - If EvoTypes.SelectedIndex = 0 Then - - EvoPKMNames.Enabled = False - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - - ElseIf EvoTypes.SelectedIndex = 1 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - - ElseIf EvoTypes.SelectedIndex = 2 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - - ElseIf EvoTypes.SelectedIndex = 3 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 4 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 5 Then - - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 6 Then - - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - EvoItem.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 7 Then - - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - EvoItem.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - - ElseIf EvoTypes.SelectedIndex = 8 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 9 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 10 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 11 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - - ElseIf EvoTypes.SelectedIndex = 12 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 13 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 14 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 15 Then - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 16 Then - EvoItem.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = True - TextBox2.Enabled = True - ElseIf EvoTypes.SelectedIndex = 17 Then - EvoItem.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = True - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 18 Then - EvoItem.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = True - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 19 Then - EvoItem.Enabled = True - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 20 Then - EvoItem.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = True - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 21 Then - EvoItem.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 22 Then - EvoItem.Enabled = False - EvoLevel.Enabled = True - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 23 Then - EvoItem.Enabled = True - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex = 24 Then - EvoItem.Enabled = False - EvoLevel.Enabled = False - EvoPKMNames.Enabled = True - ComboBox1.Enabled = True - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - ElseIf EvoTypes.SelectedIndex > 24 Then - EvoPKMNames.Enabled = False - EvoItem.Enabled = False - EvoPKMNames.Enabled = False - EvoLevel.Enabled = False - ComboBox1.Enabled = False - ComboBox2.Enabled = False - ComboBox3.Enabled = False - TextBox1.Enabled = False - TextBox2.Enabled = False - - End If - End Sub - - Private Sub EvoPKMNames_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EvoPKMNames.SelectedIndexChanged - If GetString(AppPath & "GBAPGESettings.ini", "Settings", "DisablePKMImages", "0") = "0" Then - - If EvoPKMNames.SelectedIndex + 1 > 0 Then - GetAndDrawFrontPokemonPic(EvoPokePic, EvoPKMNames.SelectedIndex + 1) - Else - EvoPokePic.Image = Nothing - End If - End If - End Sub - - Private Sub EvoItem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EvoItem.SelectedIndexChanged - If EvoItem.SelectedIndex > -1 Then - If header2 = "BPR" Or header2 = "BPG" Then - - GetAndDrawItemPic(EvoItemPic, EvoItem.SelectedIndex) - - ElseIf header2 = "BPE" Then - - GetAndDrawItemPic(EvoItemPic, EvoItem.SelectedIndex) - - ElseIf header2 = "AXP" Or header2 = "AXV" Then - - - - End If - - Else - EvoItemPic.Image = Nothing - End If - End Sub - - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click - EvoDatajj = Val(GetString(AppPath & "ini\roms.ini", header, "PokemonEvolutions", "")) - - - If EvoTypes.SelectedIndex = 0 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - ElseIf EvoTypes.SelectedIndex = 1 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - ElseIf EvoTypes.SelectedIndex = 2 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - ElseIf EvoTypes.SelectedIndex = 3 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - ElseIf EvoTypes.SelectedIndex = 4 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 5 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - ElseIf EvoTypes.SelectedIndex = 6 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoItem.SelectedIndex))) - - ElseIf EvoTypes.SelectedIndex = 7 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoItem.SelectedIndex))) - - ElseIf EvoTypes.SelectedIndex = 8 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 9 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 10 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 11 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - ElseIf EvoTypes.SelectedIndex = 12 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 13 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 14 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - - ElseIf EvoTypes.SelectedIndex = 15 Then - 'Writes the evolution type - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - ElseIf EvoTypes.SelectedIndex = 16 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(TextBox1.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(TextBox2.Text))) - - ElseIf EvoTypes.SelectedIndex = 17 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - If header2 = "BPR" Or header2 = "BPG" Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(ComboBox2.SelectedIndex + 88))) - ElseIf header2 = "BPE" Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(ComboBox2.SelectedIndex))) - - ElseIf header2 = "AXP" Or header2 = "AXV" Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(ComboBox2.SelectedIndex))) - - End If - - ElseIf EvoTypes.SelectedIndex = 18 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(ComboBox3.SelectedIndex)))) - ElseIf EvoTypes.SelectedIndex = 19 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoItem.SelectedIndex))) - ElseIf EvoTypes.SelectedIndex = 20 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(ComboBox1.SelectedIndex + 1))) - ElseIf EvoTypes.SelectedIndex = 21 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - ElseIf EvoTypes.SelectedIndex = 22 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoLevel.Text))) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (3) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex("00"))) - ElseIf EvoTypes.SelectedIndex = 23 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(EvoItem.SelectedIndex))) - ElseIf EvoTypes.SelectedIndex = 24 Then - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (0) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), Hex(EvoTypes.SelectedIndex)) - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (4) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(Val(EvoPKMNames.SelectedIndex) + 1))) - - WriteHEX(LoadedROM, (EvoDatajj) + (40) + (2) + ((PKMNames.SelectedIndex) * 40) + (EvoSlots.SelectedIndex * 8), ReverseHEX(Hex(ComboBox1.SelectedIndex + 1))) - ElseIf EvoTypes.SelectedIndex > 24 Then - 'nothing - End If - End Sub - - Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged - If GetString(AppPath & "GBAPGESettings.ini", "Settings", "DisablePKMImages", "0") = "0" Then - - If ComboBox1.SelectedIndex + 1 > 0 Then - GetAndDrawFrontPokemonPic(PictureBox2, ComboBox1.SelectedIndex + 1) - Else - PictureBox2.Image = Nothing - End If - End If - End Sub -End Class \ No newline at end of file diff --git a/GBAPokemonGameEditor/Pokemonedit.Designer.vb b/GBAPokemonGameEditor/Pokemonedit.Designer.vb index 95b4f7d..cfb19f5 100644 --- a/GBAPokemonGameEditor/Pokemonedit.Designer.vb +++ b/GBAPokemonGameEditor/Pokemonedit.Designer.vb @@ -109,6 +109,17 @@ Partial Class Pokemonedit Me.Clr1 = New System.Windows.Forms.ComboBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.GroupBox17 = New System.Windows.Forms.GroupBox() + Me.ComboBox3 = New System.Windows.Forms.ComboBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.ComboBox2 = New System.Windows.Forms.ComboBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.EvoBasePokePic = New System.Windows.Forms.PictureBox() Me.EvoItemPic = New System.Windows.Forms.PictureBox() Me.EvoPokePic = New System.Windows.Forms.PictureBox() @@ -135,12 +146,16 @@ Partial Class Pokemonedit Me.GroupBox22 = New System.Windows.Forms.GroupBox() Me.Button10 = New System.Windows.Forms.Button() Me.LvlUpAttPointer = New System.Windows.Forms.TextBox() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.SHVal = New System.Windows.Forms.TextBox() + Me.SHCombo1 = New System.Windows.Forms.ComboBox() + Me.SH2 = New System.Windows.Forms.RadioButton() + Me.SH1 = New System.Windows.Forms.RadioButton() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.EggType2 = New System.Windows.Forms.ComboBox() + Me.EggType1 = New System.Windows.Forms.ComboBox() Me.Button1 = New System.Windows.Forms.Button() - Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() - Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.EvolutionModeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.NormalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Jambo51HackToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.ChangePKMName = New System.Windows.Forms.Button() Me.CurPKMName = New System.Windows.Forms.TextBox() @@ -153,26 +168,6 @@ Partial Class Pokemonedit Me.Button9 = New System.Windows.Forms.Button() Me.FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog() Me.ProgressBar = New System.Windows.Forms.ProgressBar() - Me.ComboBox3 = New System.Windows.Forms.ComboBox() - Me.Label19 = New System.Windows.Forms.Label() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.Label20 = New System.Windows.Forms.Label() - Me.Label21 = New System.Windows.Forms.Label() - Me.ComboBox2 = New System.Windows.Forms.ComboBox() - Me.Label22 = New System.Windows.Forms.Label() - Me.Label23 = New System.Windows.Forms.Label() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.GroupBox11 = New System.Windows.Forms.GroupBox() - Me.SHVal = New System.Windows.Forms.TextBox() - Me.SHCombo1 = New System.Windows.Forms.ComboBox() - Me.SH2 = New System.Windows.Forms.RadioButton() - Me.SH1 = New System.Windows.Forms.RadioButton() - Me.GroupBox8 = New System.Windows.Forms.GroupBox() - Me.EggType2 = New System.Windows.Forms.ComboBox() - Me.EggType1 = New System.Windows.Forms.ComboBox() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox21.SuspendLayout() @@ -200,6 +195,7 @@ Partial Class Pokemonedit Me.GroupBox2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.GroupBox17.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EvoBasePokePic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EvoItemPic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EvoPokePic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -208,13 +204,11 @@ Partial Class Pokemonedit Me.GroupBox24.SuspendLayout() Me.GroupBox23.SuspendLayout() Me.GroupBox22.SuspendLayout() - Me.MenuStrip1.SuspendLayout() - Me.GroupBox18.SuspendLayout() - Me.GroupBox19.SuspendLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage5.SuspendLayout() Me.GroupBox11.SuspendLayout() Me.GroupBox8.SuspendLayout() + Me.GroupBox18.SuspendLayout() + Me.GroupBox19.SuspendLayout() Me.SuspendLayout() ' 'TabControl1 @@ -1083,6 +1077,99 @@ Partial Class Pokemonedit Me.GroupBox17.TabStop = False Me.GroupBox17.Text = "Evolutions" ' + 'ComboBox3 + ' + Me.ComboBox3.FormattingEnabled = True + Me.ComboBox3.Location = New System.Drawing.Point(206, 186) + Me.ComboBox3.Name = "ComboBox3" + Me.ComboBox3.Size = New System.Drawing.Size(99, 21) + Me.ComboBox3.TabIndex = 32 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(148, 186) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(41, 13) + Me.Label19.TabIndex = 31 + Me.Label19.Text = "Attack:" + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(269, 244) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(36, 20) + Me.TextBox2.TabIndex = 30 + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(184, 244) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(32, 20) + Me.TextBox1.TabIndex = 29 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(148, 244) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(35, 13) + Me.Label20.TabIndex = 28 + Me.Label20.Text = "Bank:" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(232, 244) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(31, 13) + Me.Label21.TabIndex = 27 + Me.Label21.Text = "Map:" + ' + 'ComboBox2 + ' + Me.ComboBox2.FormattingEnabled = True + Me.ComboBox2.Location = New System.Drawing.Point(206, 213) + Me.ComboBox2.Name = "ComboBox2" + Me.ComboBox2.Size = New System.Drawing.Size(99, 21) + Me.ComboBox2.TabIndex = 26 + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(148, 211) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(60, 13) + Me.Label22.TabIndex = 25 + Me.Label22.Text = "Map name:" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(379, 101) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(108, 13) + Me.Label23.TabIndex = 24 + Me.Label23.Text = "Species Requirement" + ' + 'PictureBox2 + ' + Me.PictureBox2.Location = New System.Drawing.Point(382, 153) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(64, 64) + Me.PictureBox2.TabIndex = 23 + Me.PictureBox2.TabStop = False + ' + 'ComboBox1 + ' + Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(382, 123) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(121, 21) + Me.ComboBox1.TabIndex = 22 + ' 'EvoBasePokePic ' Me.EvoBasePokePic.Location = New System.Drawing.Point(150, 19) @@ -1323,52 +1410,108 @@ Partial Class Pokemonedit Me.LvlUpAttPointer.Size = New System.Drawing.Size(68, 20) Me.LvlUpAttPointer.TabIndex = 11 ' - 'Button1 + 'TabPage5 ' - Me.Button1.Location = New System.Drawing.Point(8, 199) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(130, 41) - Me.Button1.TabIndex = 2 - Me.Button1.Text = "Save" - Me.Button1.UseVisualStyleBackColor = True + Me.TabPage5.Controls.Add(Me.GroupBox11) + Me.TabPage5.Controls.Add(Me.GroupBox8) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(592, 389) + Me.TabPage5.TabIndex = 4 + Me.TabPage5.Text = "Breed data" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'GroupBox11 + ' + Me.GroupBox11.Controls.Add(Me.SHVal) + Me.GroupBox11.Controls.Add(Me.SHCombo1) + Me.GroupBox11.Controls.Add(Me.SH2) + Me.GroupBox11.Controls.Add(Me.SH1) + Me.GroupBox11.Location = New System.Drawing.Point(157, 15) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(189, 78) + Me.GroupBox11.TabIndex = 3 + Me.GroupBox11.TabStop = False + Me.GroupBox11.Text = "Steps to hatch" + ' + 'SHVal + ' + Me.SHVal.Location = New System.Drawing.Point(102, 50) + Me.SHVal.Name = "SHVal" + Me.SHVal.Size = New System.Drawing.Size(74, 20) + Me.SHVal.TabIndex = 3 + ' + 'SHCombo1 + ' + Me.SHCombo1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.SHCombo1.FormattingEnabled = True + Me.SHCombo1.Items.AddRange(New Object() {"Instant", "1280 steps", "2560 steps", "3840 steps", "5120 steps", "6400 steps", "7680 steps", "8960 steps", "10240 steps", "20480 steps", "30720 steps"}) + Me.SHCombo1.Location = New System.Drawing.Point(102, 15) + Me.SHCombo1.Name = "SHCombo1" + Me.SHCombo1.Size = New System.Drawing.Size(74, 21) + Me.SHCombo1.TabIndex = 2 + ' + 'SH2 + ' + Me.SH2.AutoSize = True + Me.SH2.Location = New System.Drawing.Point(6, 51) + Me.SH2.Name = "SH2" + Me.SH2.Size = New System.Drawing.Size(63, 17) + Me.SH2.TabIndex = 1 + Me.SH2.TabStop = True + Me.SH2.Text = "Custom:" + Me.SH2.UseVisualStyleBackColor = True ' - 'MenuStrip1 + 'SH1 ' - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionsToolStripMenuItem}) - Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) - Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional - Me.MenuStrip1.Size = New System.Drawing.Size(754, 24) - Me.MenuStrip1.TabIndex = 5 - Me.MenuStrip1.Text = "MenuStrip1" + Me.SH1.AutoSize = True + Me.SH1.Location = New System.Drawing.Point(6, 19) + Me.SH1.Name = "SH1" + Me.SH1.Size = New System.Drawing.Size(71, 17) + Me.SH1.TabIndex = 0 + Me.SH1.TabStop = True + Me.SH1.Text = "Standard:" + Me.SH1.UseVisualStyleBackColor = True ' - 'OptionsToolStripMenuItem + 'GroupBox8 ' - Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EvolutionModeToolStripMenuItem}) - Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem" - Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(61, 20) - Me.OptionsToolStripMenuItem.Text = "Options" + Me.GroupBox8.Controls.Add(Me.EggType2) + Me.GroupBox8.Controls.Add(Me.EggType1) + Me.GroupBox8.Location = New System.Drawing.Point(12, 15) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(139, 78) + Me.GroupBox8.TabIndex = 2 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "Egg Groups" ' - 'EvolutionModeToolStripMenuItem + 'EggType2 ' - Me.EvolutionModeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NormalToolStripMenuItem, Me.Jambo51HackToolStripMenuItem}) - Me.EvolutionModeToolStripMenuItem.Name = "EvolutionModeToolStripMenuItem" - Me.EvolutionModeToolStripMenuItem.Size = New System.Drawing.Size(158, 22) - Me.EvolutionModeToolStripMenuItem.Text = "Evolution Mode" + Me.EggType2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.EggType2.FormattingEnabled = True + Me.EggType2.Items.AddRange(New Object() {"-------", "Monster", "Water 1", "Bug", "Flying", "Field", "Fairy", "Plant", "HumanShape", "Water 3", "Mineral", "Chaos", "Water 2", "Ditto", "Dragon", "Can't Breed"}) + Me.EggType2.Location = New System.Drawing.Point(6, 46) + Me.EggType2.Name = "EggType2" + Me.EggType2.Size = New System.Drawing.Size(121, 21) + Me.EggType2.TabIndex = 1 ' - 'NormalToolStripMenuItem + 'EggType1 ' - Me.NormalToolStripMenuItem.Checked = True - Me.NormalToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked - Me.NormalToolStripMenuItem.Name = "NormalToolStripMenuItem" - Me.NormalToolStripMenuItem.Size = New System.Drawing.Size(151, 22) - Me.NormalToolStripMenuItem.Text = "Normal" + Me.EggType1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.EggType1.FormattingEnabled = True + Me.EggType1.Items.AddRange(New Object() {"-------", "Monster", "Water 1", "Bug", "Flying", "Field", "Fairy", "Plant", "HumanShape", "Water 3", "Mineral", "Chaos", "Water 2", "Ditto", "Dragon", "Can't Breed"}) + Me.EggType1.Location = New System.Drawing.Point(6, 19) + Me.EggType1.Name = "EggType1" + Me.EggType1.Size = New System.Drawing.Size(121, 21) + Me.EggType1.TabIndex = 0 ' - 'Jambo51HackToolStripMenuItem + 'Button1 ' - Me.Jambo51HackToolStripMenuItem.Name = "Jambo51HackToolStripMenuItem" - Me.Jambo51HackToolStripMenuItem.Size = New System.Drawing.Size(151, 22) - Me.Jambo51HackToolStripMenuItem.Text = "Jambo51 Hack" + Me.Button1.Location = New System.Drawing.Point(8, 199) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(130, 41) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "Save" + Me.Button1.UseVisualStyleBackColor = True ' 'GroupBox18 ' @@ -1457,193 +1600,6 @@ Partial Class Pokemonedit Me.ProgressBar.TabIndex = 12 Me.ProgressBar.Visible = False ' - 'ComboBox3 - ' - Me.ComboBox3.FormattingEnabled = True - Me.ComboBox3.Location = New System.Drawing.Point(206, 186) - Me.ComboBox3.Name = "ComboBox3" - Me.ComboBox3.Size = New System.Drawing.Size(99, 21) - Me.ComboBox3.TabIndex = 32 - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(148, 186) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(41, 13) - Me.Label19.TabIndex = 31 - Me.Label19.Text = "Attack:" - ' - 'TextBox2 - ' - Me.TextBox2.Location = New System.Drawing.Point(269, 244) - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(36, 20) - Me.TextBox2.TabIndex = 30 - ' - 'TextBox1 - ' - Me.TextBox1.Location = New System.Drawing.Point(184, 244) - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(32, 20) - Me.TextBox1.TabIndex = 29 - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(148, 244) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(35, 13) - Me.Label20.TabIndex = 28 - Me.Label20.Text = "Bank:" - ' - 'Label21 - ' - Me.Label21.AutoSize = True - Me.Label21.Location = New System.Drawing.Point(232, 244) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(31, 13) - Me.Label21.TabIndex = 27 - Me.Label21.Text = "Map:" - ' - 'ComboBox2 - ' - Me.ComboBox2.FormattingEnabled = True - Me.ComboBox2.Location = New System.Drawing.Point(206, 213) - Me.ComboBox2.Name = "ComboBox2" - Me.ComboBox2.Size = New System.Drawing.Size(99, 21) - Me.ComboBox2.TabIndex = 26 - ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(148, 211) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(60, 13) - Me.Label22.TabIndex = 25 - Me.Label22.Text = "Map name:" - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(379, 101) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(108, 13) - Me.Label23.TabIndex = 24 - Me.Label23.Text = "Species Requirement" - ' - 'PictureBox2 - ' - Me.PictureBox2.Location = New System.Drawing.Point(382, 153) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(64, 64) - Me.PictureBox2.TabIndex = 23 - Me.PictureBox2.TabStop = False - ' - 'ComboBox1 - ' - Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(382, 123) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(121, 21) - Me.ComboBox1.TabIndex = 22 - ' - 'TabPage5 - ' - Me.TabPage5.Controls.Add(Me.GroupBox11) - Me.TabPage5.Controls.Add(Me.GroupBox8) - Me.TabPage5.Location = New System.Drawing.Point(4, 22) - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Size = New System.Drawing.Size(592, 389) - Me.TabPage5.TabIndex = 4 - Me.TabPage5.Text = "Breed data" - Me.TabPage5.UseVisualStyleBackColor = True - ' - 'GroupBox11 - ' - Me.GroupBox11.Controls.Add(Me.SHVal) - Me.GroupBox11.Controls.Add(Me.SHCombo1) - Me.GroupBox11.Controls.Add(Me.SH2) - Me.GroupBox11.Controls.Add(Me.SH1) - Me.GroupBox11.Location = New System.Drawing.Point(157, 15) - Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(189, 78) - Me.GroupBox11.TabIndex = 3 - Me.GroupBox11.TabStop = False - Me.GroupBox11.Text = "Steps to hatch" - ' - 'SHVal - ' - Me.SHVal.Location = New System.Drawing.Point(102, 50) - Me.SHVal.Name = "SHVal" - Me.SHVal.Size = New System.Drawing.Size(74, 20) - Me.SHVal.TabIndex = 3 - ' - 'SHCombo1 - ' - Me.SHCombo1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.SHCombo1.FormattingEnabled = True - Me.SHCombo1.Items.AddRange(New Object() {"Instant", "1280 steps", "2560 steps", "3840 steps", "5120 steps", "6400 steps", "7680 steps", "8960 steps", "10240 steps", "20480 steps", "30720 steps"}) - Me.SHCombo1.Location = New System.Drawing.Point(102, 15) - Me.SHCombo1.Name = "SHCombo1" - Me.SHCombo1.Size = New System.Drawing.Size(74, 21) - Me.SHCombo1.TabIndex = 2 - ' - 'SH2 - ' - Me.SH2.AutoSize = True - Me.SH2.Location = New System.Drawing.Point(6, 51) - Me.SH2.Name = "SH2" - Me.SH2.Size = New System.Drawing.Size(63, 17) - Me.SH2.TabIndex = 1 - Me.SH2.TabStop = True - Me.SH2.Text = "Custom:" - Me.SH2.UseVisualStyleBackColor = True - ' - 'SH1 - ' - Me.SH1.AutoSize = True - Me.SH1.Location = New System.Drawing.Point(6, 19) - Me.SH1.Name = "SH1" - Me.SH1.Size = New System.Drawing.Size(71, 17) - Me.SH1.TabIndex = 0 - Me.SH1.TabStop = True - Me.SH1.Text = "Standard:" - Me.SH1.UseVisualStyleBackColor = True - ' - 'GroupBox8 - ' - Me.GroupBox8.Controls.Add(Me.EggType2) - Me.GroupBox8.Controls.Add(Me.EggType1) - Me.GroupBox8.Location = New System.Drawing.Point(12, 15) - Me.GroupBox8.Name = "GroupBox8" - Me.GroupBox8.Size = New System.Drawing.Size(139, 78) - Me.GroupBox8.TabIndex = 2 - Me.GroupBox8.TabStop = False - Me.GroupBox8.Text = "Egg Groups" - ' - 'EggType2 - ' - Me.EggType2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.EggType2.FormattingEnabled = True - Me.EggType2.Items.AddRange(New Object() {"-------", "Monster", "Water 1", "Bug", "Flying", "Field", "Fairy", "Plant", "HumanShape", "Water 3", "Mineral", "Chaos", "Water 2", "Ditto", "Dragon", "Can't Breed"}) - Me.EggType2.Location = New System.Drawing.Point(6, 46) - Me.EggType2.Name = "EggType2" - Me.EggType2.Size = New System.Drawing.Size(121, 21) - Me.EggType2.TabIndex = 1 - ' - 'EggType1 - ' - Me.EggType1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.EggType1.FormattingEnabled = True - Me.EggType1.Items.AddRange(New Object() {"-------", "Monster", "Water 1", "Bug", "Flying", "Field", "Fairy", "Plant", "HumanShape", "Water 3", "Mineral", "Chaos", "Water 2", "Ditto", "Dragon", "Can't Breed"}) - Me.EggType1.Location = New System.Drawing.Point(6, 19) - Me.EggType1.Name = "EggType1" - Me.EggType1.Size = New System.Drawing.Size(121, 21) - Me.EggType1.TabIndex = 0 - ' 'Pokemonedit ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1657,10 +1613,8 @@ Partial Class Pokemonedit Me.Controls.Add(Me.GroupBox18) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TabControl1) - Me.Controls.Add(Me.MenuStrip1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.MainMenuStrip = Me.MenuStrip1 Me.MaximizeBox = False Me.Name = "Pokemonedit" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen @@ -1703,6 +1657,7 @@ Partial Class Pokemonedit Me.TabPage3.ResumeLayout(False) Me.GroupBox17.ResumeLayout(False) Me.GroupBox17.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EvoBasePokePic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EvoItemPic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EvoPokePic, System.ComponentModel.ISupportInitialize).EndInit() @@ -1713,18 +1668,14 @@ Partial Class Pokemonedit Me.GroupBox23.ResumeLayout(False) Me.GroupBox22.ResumeLayout(False) Me.GroupBox22.PerformLayout() - Me.MenuStrip1.ResumeLayout(False) - Me.MenuStrip1.PerformLayout() - Me.GroupBox18.ResumeLayout(False) - Me.GroupBox18.PerformLayout() - Me.GroupBox19.ResumeLayout(False) - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage5.ResumeLayout(False) Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() Me.GroupBox8.ResumeLayout(False) + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + Me.GroupBox19.ResumeLayout(False) Me.ResumeLayout(False) - Me.PerformLayout() End Sub Friend WithEvents TabControl1 As System.Windows.Forms.TabControl @@ -1800,11 +1751,6 @@ Partial Class Pokemonedit Friend WithEvents IconPointer As System.Windows.Forms.TextBox Friend WithEvents GroupBox17 As System.Windows.Forms.GroupBox Friend WithEvents EvoPKMNames As System.Windows.Forms.ComboBox - Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip - Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents EvolutionModeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents NormalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents Jambo51HackToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents EvoSlots As System.Windows.Forms.ListBox Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label diff --git a/GBAPokemonGameEditor/Pokemonedit.resx b/GBAPokemonGameEditor/Pokemonedit.resx index 434154d..8131bc1 100644 --- a/GBAPokemonGameEditor/Pokemonedit.resx +++ b/GBAPokemonGameEditor/Pokemonedit.resx @@ -117,9 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 17 - 132, 17 diff --git a/GBAPokemonGameEditor/Pokemonedit.vb b/GBAPokemonGameEditor/Pokemonedit.vb index da0a0ee..3ae3602 100644 --- a/GBAPokemonGameEditor/Pokemonedit.vb +++ b/GBAPokemonGameEditor/Pokemonedit.vb @@ -1792,10 +1792,6 @@ Public Class Pokemonedit End If End Sub - Private Sub Jambo51HackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jambo51HackToolStripMenuItem.Click - JamboHackEvos.Show() - End Sub - Private Sub MTLoad() Dim LoopVar As Integer MTattacks = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "MoveTutorAttacks", "")), System.Globalization.NumberStyles.HexNumber)