Updating Readme!

GBAPokemonGameEditor/PokemonAdder.Designer.vb

@@ -40,8 +40,14 @@ Partial Class PokemonAdder
         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
         Me.SuspendLayout()
         '
         'TabControl1
@@ -193,8 +199,8 @@ Partial Class PokemonAdder
         Me.LinkLabel1.Size = New System.Drawing.Size(265, 69)
         Me.LinkLabel1.TabIndex = 1
         Me.LinkLabel1.TabStop = True
-        Me.LinkLabel1.Text = "To remain consistent with what other people may have already done this tool uses " &
-    "the research from the folowing thread: http://www.pokecommunity.com/showthread.p" &
+        Me.LinkLabel1.Text = "To remain consistent with what other people may have already done this tool uses " & _
+    "the research from the folowing thread: http://www.pokecommunity.com/showthread.p" & _
     "hp?t=318569"
         '
         'CheckBox1
@@ -211,6 +217,11 @@ Partial Class PokemonAdder
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.CheckBox3)
+        Me.TabPage2.Controls.Add(Me.TextBox4)
+        Me.TabPage2.Controls.Add(Me.Label8)
+        Me.TabPage2.Controls.Add(Me.Label9)
+        Me.TabPage2.Controls.Add(Me.Button2)
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
@@ -219,6 +230,53 @@ Partial Class PokemonAdder
         Me.TabPage2.Text = "Emerald"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'CheckBox3
+        '
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Checked = True
+        Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox3.Location = New System.Drawing.Point(18, 110)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(100, 17)
+        Me.CheckBox3.TabIndex = 18
+        Me.CheckBox3.Text = "Delete Old data"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(171, 38)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(48, 20)
+        Me.TextBox4.TabIndex = 17
+        Me.TextBox4.Text = "335"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(15, 41)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(140, 13)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "Number of Pokemon to add:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(15, 16)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(146, 13)
+        Me.Label9.TabIndex = 15
+        Me.Label9.Text = "Number of Pokemon in ROM:"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(206, 249)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 14
+        Me.Button2.Text = "Add"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'PokemonAdder
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -234,6 +292,8 @@ Partial Class PokemonAdder
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -255,4 +315,9 @@ Partial Class PokemonAdder
     Friend WithEvents Label7 As Label
     Friend WithEvents Label6 As Label
     Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
+    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Button2 As System.Windows.Forms.Button
 End Class

GBAPokemonGameEditor/PokemonAdder.vb

@@ -1592,4 +1592,97 @@ Public Class PokemonAdder
 
     End Sub
 
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        'Declare buffers I will use for adding stuff.
+
+        Dim countervar As Integer
+
+        Dim PokemonNamesBuffer As String
+        Dim PokemonNamesNewOffset As String
+
+        Dim PokemonDataBuffer As String
+        Dim PokemonDataNewOffset As String
+
+        Dim PokemonAttackDataBuffer As String
+        Dim PokemonAttackDataNewOffset As String
+
+        Dim PokemonFrontSpriteTableBuffer As String
+        Dim PokemonFrontSpriteTableNewOffset As String
+
+        Dim PokemonBackSpriteTableBuffer As String
+        Dim PokemonBackSpriteTableNewOffset As String
+
+        Dim PokemonNormalPalTableBuffer As String
+        Dim PokemonNormalPalTableNewOffset As String
+
+        Dim PokemonShinyPalTableBuffer As String
+        Dim PokemonShinyPalTableNewOffset As String
+
+        Dim PokemonPlayerYTableBuffer As String
+        Dim PokemonPlayerYTableNewOffset As String
+
+        Dim PokemonEnemyYTableBuffer As String
+        Dim PokemonEnemyYTableNewOffset As String
+
+        Dim PokemonAltitudeTableBuffer As String
+        Dim PokemonAltitudeTableNewOffset As String
+
+        Dim PokemonIconTableBuffer As String
+        Dim PokemonIconTableNewOffset As String
+
+        Dim PokemonIconPalTableBuffer As String
+        Dim PokemonIconPalTableNewOffset As String
+
+        Dim PokemonNatDexTableBuffer As String
+        Dim PokemonNatDexTableNewOffset As String
+
+        Dim PokemonSecDexTableBuffer As String
+        Dim PokemonSecDexTableNewOffset As String
+
+        Dim PokedexDataBuffer As String
+        Dim PokedexDataNewOffset As String
+
+        Dim TMCompatabilityBuffer As String
+        Dim TMCompatabilityBufferNewOffset As String
+
+        Dim MoveTutorCompatabilityBuffer As String
+        Dim MoveTutorCompatabilityBufferNewOffset As String
+
+        Dim EvolutionDataBuffer As String
+        Dim EvolutionDataNewOffset As String
+
+        Dim PokemonItemAnimationTableBuffer As String
+        Dim PokemonItemAnimationTableNewOffset As String
+
+        Dim CryTableBuffer As String
+        Dim CryTableNewOffset As String
+
+        Dim CryTable2Buffer As String
+        Dim CryTable2NewOffset As String
+
+        Dim CryConversionTableBuffer As String
+        Dim CryConversionTableNewOffset As String
+
+        Dim PokemonFootPrintTableBuffer As String
+        Dim PokemonFootPrintTableNewOffset As String
+
+        If System.IO.File.Exists((LoadedROM).Substring(0, LoadedROM.Length - 4) & ".ini") = True Then
+
+            MsgBox("An INI for this ROM has been detected! Values will be updated as needed.")
+
+        Else
+
+            MsgBox("INI not found! One will now be created for this ROM in the same location as the ROM. Keep the ini with the ROM so that PGE can know the location of the data.")
+
+            File.Copy(AppPath & "ini\roms.ini", (LoadedROM).Substring(0, LoadedROM.Length - 4) & ".ini", True)
+
+
+        End If
+
+        Me.Cursor = Cursors.WaitCursor
+        Me.Text = "Please Wait..."
+        Me.Refresh()
+
+    End Sub
 End Class

README.md

@@ -1,3 +1,6 @@
+Please use the lastest beta!
+=================
+
 ![alt tag](https://raw.githubusercontent.com/Gamer2020/PokemonGameEditor/master/Screenshots/PGEBANNER.png)
 
 Pokemon Game Editor, commonly know as PGE, is an all in one tool started in 2010 by Gamer2020 for hacking the Game Boy Advanced Pokemon games. The program continues to evolve over the years and has had 60,000+ downloads. It has even inspired several copycat programs hence the slogan "Accept no Imitations!" was adopted. The program is currently developed in VB.Net with Visual Studio 2015.