diff --git a/Gen5 Distribution Creator/Form1.Designer.vb b/Gen5 Distribution Creator/Form1.Designer.vb
index ccae1de..2bd2b0f 100644
--- a/Gen5 Distribution Creator/Form1.Designer.vb	
+++ b/Gen5 Distribution Creator/Form1.Designer.vb	
@@ -56,6 +56,7 @@ Partial Class Form1
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
@@ -82,7 +83,7 @@ Partial Class Form1
         '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(345, 24)
+        Me.Button1.Location = New System.Drawing.Point(287, 24)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(75, 23)
         Me.Button1.TabIndex = 2
@@ -96,7 +97,7 @@ Partial Class Form1
         Me.Label2.Location = New System.Drawing.Point(13, 28)
         Me.Label2.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(330, 17)
+        Me.Label2.Size = New System.Drawing.Size(268, 17)
         Me.Label2.TabIndex = 3
         Me.Label2.Text = "Open .pgf ------->"
         Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -332,6 +333,7 @@ Partial Class Form1
         Me.Button2.TabIndex = 8
         Me.Button2.Text = "Save Text"
         Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.Visible = False
         '
         'Button3
         '
@@ -398,11 +400,21 @@ Partial Class Form1
         Me.Button5.Text = "?"
         Me.Button5.UseVisualStyleBackColor = True
         '
+        'Button6
+        '
+        Me.Button6.Location = New System.Drawing.Point(368, 24)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(51, 23)
+        Me.Button6.TabIndex = 16
+        Me.Button6.Text = "Custom"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(834, 450)
+        Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.Label6)
@@ -466,4 +478,5 @@ Partial Class Form1
     Friend WithEvents Label6 As Label
     Friend WithEvents Label7 As Label
     Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
 End Class
diff --git a/Gen5 Distribution Creator/Form1.vb b/Gen5 Distribution Creator/Form1.vb
index 0200f70..d067efe 100644
--- a/Gen5 Distribution Creator/Form1.vb	
+++ b/Gen5 Distribution Creator/Form1.vb	
@@ -75,7 +75,7 @@ Make sure you put the new lines(ENTER key)"
     Private Sub build()
         System.IO.Directory.CreateDirectory(apppath & "\cards\")
         save(apppath & "\cards\01.bin")
-        System.IO.File.Delete(apppath & "\work.bin")
+        'System.IO.File.Delete(apppath & "\work.bin")
         System.IO.Directory.CreateDirectory(apppath & "\tools\")
         System.IO.File.Copy(My.Settings.ticket, apppath & "\tools\ticket.nds")
         System.IO.File.WriteAllText(apppath & "\tools\12distro.asm", My.Resources._12distro1)
@@ -101,7 +101,7 @@ Make sure you put the new lines(ENTER key)"
 #End Region
 
     Private Sub Form1_Close(sender As Object, e As EventArgs) Handles MyBase.Closing
-        System.IO.File.Delete(apppath & "\work.bin")
+        'System.IO.File.Delete(apppath & "\work.bin")
     End Sub
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 1:
@@ -139,8 +139,9 @@ Make sure you put the new lines(ENTER key)"
 #Else
         Size = New Size(452, 489)
 #End If
-        System.IO.File.WriteAllBytes(apppath & "/work.bin", My.Resources.data)
-        open(apppath & "/work.bin")
+        Button4.Location = New Point(296, 296)
+        'System.IO.File.WriteAllBytes(apppath & "/work.bin", My.Resources.data)
+        'open(apppath & "/work.bin")
         initial()
         dt = True
         RadioButton1.PerformClick()
@@ -149,9 +150,14 @@ Make sure you put the new lines(ENTER key)"
         CheckBox2.Checked = True
         CheckBox3.Checked = True
         CheckBox4.Checked = True
-        save(apppath & "\work.bin")
+        'save(apppath & "\work.bin")
     End Sub
     Private Sub initial()
+        Dim st As String = Nothing
+        For n = 0 To 17503 Step 1
+            st = st & "0"
+        Next n
+        RichTextBox1.Text = st
         RichTextBox1.Text = RichTextBox1.Text.Remove(1, 1)
         RichTextBox1.Text = RichTextBox1.Text.Insert(1, "1")
         Dim f As Integer = RichTextBox1.Text.Length - 16
@@ -159,7 +165,7 @@ Make sure you put the new lines(ENTER key)"
         RichTextBox1.Text = RichTextBox1.Text.Insert(f, "14")
         RichTextBox1.Text = RichTextBox1.Text.Remove(1438, 2)
         RichTextBox1.Text = RichTextBox1.Text.Insert(1438, "02")
-        save(apppath & "/work.bin")
+        'save(apppath & "/work.bin")
         DateTimePicker1.Value = System.DateTime.Today
         DateTimePicker2.Value = System.DateTime.Today
         lim()
@@ -170,7 +176,7 @@ Make sure you put the new lines(ENTER key)"
         Next i
         RichTextBox1.Text = RichTextBox1.Text.Remove(424, mx)
         RichTextBox1.Text = RichTextBox1.Text.Insert(424, ft)
-        save(apppath & "\work.bin")
+        'save(apppath & "\work.bin")
     End Sub
     Private Function lted(ByVal int As Integer)
         Dim s As String
@@ -315,9 +321,8 @@ Make sure you put the new lines(ENTER key)"
             Label4.Enabled = False
             t = DateTimePicker1.Value
             t2 = DateTimePicker2.Value
-            DateTimePicker1.Value = "1/1/1753"
-            'DateTimePicker2.Value = "12/31/9998"
-            DateTimePicker2.Value = "31/12/9998"
+            DateTimePicker1.Value = New DateTime(1753, 1, 1)
+            DateTimePicker2.Value = New DateTime(9998, 12, 31)
             DateTimePicker1.Enabled = False
             DateTimePicker2.Enabled = False
         ElseIf CheckBox5.Checked = False Then
@@ -419,6 +424,14 @@ Make sure you put the new lines(ENTER key)"
                 ft = ft & "F"
             Next n
 
+            RichTextBox1.Text = RichTextBox1.Text.Remove(424, mx)
+            RichTextBox1.Text = RichTextBox1.Text.Insert(424, ft)
+        Else
+            Dim ft As String = ""
+            Dim mx As Integer = 1012
+            For i = 0 To mx - 1 Step 1
+                ft = ft & "F"
+            Next i
             RichTextBox1.Text = RichTextBox1.Text.Remove(424, mx)
             RichTextBox1.Text = RichTextBox1.Text.Insert(424, ft)
         End If
@@ -471,6 +484,10 @@ Make sure you put the new lines(ENTER key)"
             TextBox1.ForeColor = Color.Black
         End If
     End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Form3.ShowDialog()
+    End Sub
 #End Region
 
 End Class
\ No newline at end of file
diff --git a/Gen5 Distribution Creator/Form3.Designer.vb b/Gen5 Distribution Creator/Form3.Designer.vb
index 4cc6e3f..b25b9cc 100644
--- a/Gen5 Distribution Creator/Form3.Designer.vb	
+++ b/Gen5 Distribution Creator/Form3.Designer.vb	
@@ -22,10 +22,57 @@ Partial Class Form3
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
+        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.RadioButton14 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton13 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton10 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton11 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton12 = New System.Windows.Forms.RadioButton()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.RadioButton7 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton8 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton9 = New System.Windows.Forms.RadioButton()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.RadioButton6 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton5 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton4 = New System.Windows.Forms.RadioButton()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton2 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.Button2 = New System.Windows.Forms.Button()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        Me.GroupBox7.SuspendLayout()
+        Me.GroupBox6.SuspendLayout()
+        Me.GroupBox5.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
         Me.SuspendLayout()
         '
         'Label2
@@ -51,8 +98,9 @@ Partial Class Form3
         '
         'RichTextBox1
         '
-        Me.RichTextBox1.Location = New System.Drawing.Point(466, 26)
+        Me.RichTextBox1.Location = New System.Drawing.Point(492, 26)
         Me.RichTextBox1.Name = "RichTextBox1"
+        Me.RichTextBox1.ReadOnly = True
         Me.RichTextBox1.Size = New System.Drawing.Size(357, 412)
         Me.RichTextBox1.TabIndex = 6
         Me.RichTextBox1.Text = ""
@@ -61,17 +109,432 @@ Partial Class Form3
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
         '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(24, 65)
+        Me.TextBox1.MaxLength = 36
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(224, 20)
+        Me.TextBox1.TabIndex = 9
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(24, 52)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 13)
+        Me.Label1.TabIndex = 10
+        Me.Label1.Text = "Card Title:"
+        '
+        'NumericUpDown1
+        '
+        Me.NumericUpDown1.Location = New System.Drawing.Point(254, 65)
+        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {65535, 0, 0, 0})
+        Me.NumericUpDown1.Name = "NumericUpDown1"
+        Me.NumericUpDown1.Size = New System.Drawing.Size(60, 20)
+        Me.NumericUpDown1.TabIndex = 11
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(254, 52)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(46, 13)
+        Me.Label3.TabIndex = 12
+        Me.Label3.Text = "Card ID:"
+        '
+        'NumericUpDown2
+        '
+        Me.NumericUpDown2.Location = New System.Drawing.Point(10, 82)
+        Me.NumericUpDown2.Name = "NumericUpDown2"
+        Me.NumericUpDown2.Size = New System.Drawing.Size(39, 20)
+        Me.NumericUpDown2.TabIndex = 13
+        Me.ToolTip1.SetToolTip(Me.NumericUpDown2, "If set to 0, the level will be random.")
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(9, 69)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(36, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "Level:"
+        Me.ToolTip1.SetToolTip(Me.Label4, "If set to 0, the level will be random.")
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.GroupBox7)
+        Me.GroupBox1.Controls.Add(Me.GroupBox6)
+        Me.GroupBox1.Controls.Add(Me.GroupBox5)
+        Me.GroupBox1.Controls.Add(Me.GroupBox4)
+        Me.GroupBox1.Controls.Add(Me.GroupBox3)
+        Me.GroupBox1.Controls.Add(Me.GroupBox2)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.NumericUpDown2)
+        Me.GroupBox1.Location = New System.Drawing.Point(12, 101)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(448, 261)
+        Me.GroupBox1.TabIndex = 15
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Pokémon Details"
+        '
+        'GroupBox7
+        '
+        Me.GroupBox7.Controls.Add(Me.ComboBox1)
+        Me.GroupBox7.Controls.Add(Me.CheckBox7)
+        Me.GroupBox7.Location = New System.Drawing.Point(134, 156)
+        Me.GroupBox7.Name = "GroupBox7"
+        Me.GroupBox7.Size = New System.Drawing.Size(118, 91)
+        Me.GroupBox7.TabIndex = 17
+        Me.GroupBox7.TabStop = False
+        Me.GroupBox7.Text = "Nature"
+        Me.ToolTip1.SetToolTip(Me.GroupBox7, "Choose which IVs will be taken from the .pk5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Those left unchecked will be random" &
+        "ly generated" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "upon gift receival.")
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Items.AddRange(New Object() {"Adamant", "Bashful", "Bold", "Brave", "Calm", "Careful", "Docile", "Gentle", "Hardy", "Hasty", "Impish", "Jolly", "Lax", "Lonely", "Mild", "Modest", "Naive", "Naughty", "Quiet", "Quirky", "Rash", "Relaxed", "Sassy", "Serious", "Timid"})
+        Me.ComboBox1.Location = New System.Drawing.Point(12, 51)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(96, 21)
+        Me.ComboBox1.TabIndex = 6
+        '
+        'CheckBox7
+        '
+        Me.CheckBox7.AutoSize = True
+        Me.CheckBox7.Location = New System.Drawing.Point(24, 22)
+        Me.CheckBox7.Name = "CheckBox7"
+        Me.CheckBox7.Size = New System.Drawing.Size(66, 17)
+        Me.CheckBox7.TabIndex = 5
+        Me.CheckBox7.Text = "Random"
+        Me.CheckBox7.UseVisualStyleBackColor = True
+        '
+        'GroupBox6
+        '
+        Me.GroupBox6.Controls.Add(Me.CheckBox6)
+        Me.GroupBox6.Controls.Add(Me.CheckBox5)
+        Me.GroupBox6.Controls.Add(Me.CheckBox4)
+        Me.GroupBox6.Controls.Add(Me.CheckBox3)
+        Me.GroupBox6.Controls.Add(Me.CheckBox2)
+        Me.GroupBox6.Controls.Add(Me.CheckBox1)
+        Me.GroupBox6.Location = New System.Drawing.Point(10, 156)
+        Me.GroupBox6.Name = "GroupBox6"
+        Me.GroupBox6.Size = New System.Drawing.Size(118, 91)
+        Me.GroupBox6.TabIndex = 16
+        Me.GroupBox6.TabStop = False
+        Me.GroupBox6.Text = "Set IVs (from .pk5)"
+        Me.ToolTip1.SetToolTip(Me.GroupBox6, "Choose which IVs will be taken from the .pk5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Those left unchecked will be random" &
+        "ly generated" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "upon gift receival.")
+        '
+        'CheckBox6
+        '
+        Me.CheckBox6.AutoSize = True
+        Me.CheckBox6.Location = New System.Drawing.Point(53, 65)
+        Me.CheckBox6.Name = "CheckBox6"
+        Me.CheckBox6.Size = New System.Drawing.Size(47, 17)
+        Me.CheckBox6.TabIndex = 5
+        Me.CheckBox6.Text = "SPE"
+        Me.CheckBox6.UseVisualStyleBackColor = True
+        '
+        'CheckBox5
+        '
+        Me.CheckBox5.AutoSize = True
+        Me.CheckBox5.Location = New System.Drawing.Point(53, 42)
+        Me.CheckBox5.Name = "CheckBox5"
+        Me.CheckBox5.Size = New System.Drawing.Size(47, 17)
+        Me.CheckBox5.TabIndex = 4
+        Me.CheckBox5.Text = "SpD"
+        Me.CheckBox5.UseVisualStyleBackColor = True
+        '
+        'CheckBox4
+        '
+        Me.CheckBox4.AutoSize = True
+        Me.CheckBox4.Location = New System.Drawing.Point(53, 19)
+        Me.CheckBox4.Name = "CheckBox4"
+        Me.CheckBox4.Size = New System.Drawing.Size(46, 17)
+        Me.CheckBox4.TabIndex = 3
+        Me.CheckBox4.Text = "SpA"
+        Me.CheckBox4.UseVisualStyleBackColor = True
+        '
+        'CheckBox3
+        '
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Location = New System.Drawing.Point(6, 65)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(47, 17)
+        Me.CheckBox3.TabIndex = 2
+        Me.CheckBox3.Text = "DEF"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Location = New System.Drawing.Point(6, 42)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(47, 17)
+        Me.CheckBox2.TabIndex = 1
+        Me.CheckBox2.Text = "ATK"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(6, 19)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(41, 17)
+        Me.CheckBox1.TabIndex = 0
+        Me.CheckBox1.Text = "HP"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'GroupBox5
+        '
+        Me.GroupBox5.Controls.Add(Me.RadioButton14)
+        Me.GroupBox5.Controls.Add(Me.RadioButton13)
+        Me.GroupBox5.Controls.Add(Me.RadioButton10)
+        Me.GroupBox5.Controls.Add(Me.RadioButton11)
+        Me.GroupBox5.Controls.Add(Me.RadioButton12)
+        Me.GroupBox5.Location = New System.Drawing.Point(10, 111)
+        Me.GroupBox5.Name = "GroupBox5"
+        Me.GroupBox5.Size = New System.Drawing.Size(428, 39)
+        Me.GroupBox5.TabIndex = 18
+        Me.GroupBox5.TabStop = False
+        Me.GroupBox5.Text = "Ability Slot"
+        '
+        'RadioButton14
+        '
+        Me.RadioButton14.AutoSize = True
+        Me.RadioButton14.Location = New System.Drawing.Point(310, 15)
+        Me.RadioButton14.Name = "RadioButton14"
+        Me.RadioButton14.Size = New System.Drawing.Size(111, 17)
+        Me.RadioButton14.TabIndex = 4
+        Me.RadioButton14.TabStop = True
+        Me.RadioButton14.Text = "Random (with HA)"
+        Me.RadioButton14.UseVisualStyleBackColor = True
+        '
+        'RadioButton13
+        '
+        Me.RadioButton13.AutoSize = True
+        Me.RadioButton13.Location = New System.Drawing.Point(239, 15)
+        Me.RadioButton13.Name = "RadioButton13"
+        Me.RadioButton13.Size = New System.Drawing.Size(65, 17)
+        Me.RadioButton13.TabIndex = 3
+        Me.RadioButton13.TabStop = True
+        Me.RadioButton13.Text = "Random"
+        Me.RadioButton13.UseVisualStyleBackColor = True
+        '
+        'RadioButton10
+        '
+        Me.RadioButton10.AutoSize = True
+        Me.RadioButton10.Location = New System.Drawing.Point(10, 15)
+        Me.RadioButton10.Name = "RadioButton10"
+        Me.RadioButton10.Size = New System.Drawing.Size(61, 17)
+        Me.RadioButton10.TabIndex = 2
+        Me.RadioButton10.TabStop = True
+        Me.RadioButton10.Text = "Ability 1"
+        Me.RadioButton10.UseVisualStyleBackColor = True
+        '
+        'RadioButton11
+        '
+        Me.RadioButton11.AutoSize = True
+        Me.RadioButton11.Location = New System.Drawing.Point(77, 15)
+        Me.RadioButton11.Name = "RadioButton11"
+        Me.RadioButton11.Size = New System.Drawing.Size(61, 17)
+        Me.RadioButton11.TabIndex = 1
+        Me.RadioButton11.TabStop = True
+        Me.RadioButton11.Text = "Ability 2"
+        Me.RadioButton11.UseVisualStyleBackColor = True
+        '
+        'RadioButton12
+        '
+        Me.RadioButton12.AutoSize = True
+        Me.RadioButton12.Location = New System.Drawing.Point(144, 15)
+        Me.RadioButton12.Name = "RadioButton12"
+        Me.RadioButton12.Size = New System.Drawing.Size(89, 17)
+        Me.RadioButton12.TabIndex = 0
+        Me.RadioButton12.TabStop = True
+        Me.RadioButton12.Text = "Hidden Ability"
+        Me.RadioButton12.UseVisualStyleBackColor = True
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.RadioButton7)
+        Me.GroupBox4.Controls.Add(Me.RadioButton8)
+        Me.GroupBox4.Controls.Add(Me.RadioButton9)
+        Me.GroupBox4.Location = New System.Drawing.Point(55, 66)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(302, 39)
+        Me.GroupBox4.TabIndex = 17
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Shininess"
+        '
+        'RadioButton7
+        '
+        Me.RadioButton7.AutoSize = True
+        Me.RadioButton7.Location = New System.Drawing.Point(20, 15)
+        Me.RadioButton7.Name = "RadioButton7"
+        Me.RadioButton7.Size = New System.Drawing.Size(83, 17)
+        Me.RadioButton7.TabIndex = 2
+        Me.RadioButton7.TabStop = True
+        Me.RadioButton7.Text = "Never Shiny"
+        Me.RadioButton7.UseVisualStyleBackColor = True
+        '
+        'RadioButton8
+        '
+        Me.RadioButton8.AutoSize = True
+        Me.RadioButton8.Location = New System.Drawing.Point(109, 15)
+        Me.RadioButton8.Name = "RadioButton8"
+        Me.RadioButton8.Size = New System.Drawing.Size(88, 17)
+        Me.RadioButton8.TabIndex = 1
+        Me.RadioButton8.TabStop = True
+        Me.RadioButton8.Text = "Can be Shiny"
+        Me.RadioButton8.UseVisualStyleBackColor = True
+        '
+        'RadioButton9
+        '
+        Me.RadioButton9.AutoSize = True
+        Me.RadioButton9.Location = New System.Drawing.Point(203, 15)
+        Me.RadioButton9.Name = "RadioButton9"
+        Me.RadioButton9.Size = New System.Drawing.Size(87, 17)
+        Me.RadioButton9.TabIndex = 0
+        Me.RadioButton9.TabStop = True
+        Me.RadioButton9.Text = "Always Shiny"
+        Me.RadioButton9.UseVisualStyleBackColor = True
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.RadioButton6)
+        Me.GroupBox3.Controls.Add(Me.RadioButton5)
+        Me.GroupBox3.Controls.Add(Me.RadioButton4)
+        Me.GroupBox3.Location = New System.Drawing.Point(227, 21)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(211, 39)
+        Me.GroupBox3.TabIndex = 16
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "OT Gender"
+        '
+        'RadioButton6
+        '
+        Me.RadioButton6.AutoSize = True
+        Me.RadioButton6.Location = New System.Drawing.Point(136, 15)
+        Me.RadioButton6.Name = "RadioButton6"
+        Me.RadioButton6.Size = New System.Drawing.Size(70, 17)
+        Me.RadioButton6.TabIndex = 2
+        Me.RadioButton6.TabStop = True
+        Me.RadioButton6.Text = "Recipient"
+        Me.RadioButton6.UseVisualStyleBackColor = True
+        '
+        'RadioButton5
+        '
+        Me.RadioButton5.AutoSize = True
+        Me.RadioButton5.Location = New System.Drawing.Point(71, 15)
+        Me.RadioButton5.Name = "RadioButton5"
+        Me.RadioButton5.Size = New System.Drawing.Size(59, 17)
+        Me.RadioButton5.TabIndex = 1
+        Me.RadioButton5.TabStop = True
+        Me.RadioButton5.Text = "Female"
+        Me.RadioButton5.UseVisualStyleBackColor = True
+        '
+        'RadioButton4
+        '
+        Me.RadioButton4.AutoSize = True
+        Me.RadioButton4.Location = New System.Drawing.Point(17, 15)
+        Me.RadioButton4.Name = "RadioButton4"
+        Me.RadioButton4.Size = New System.Drawing.Size(48, 17)
+        Me.RadioButton4.TabIndex = 0
+        Me.RadioButton4.TabStop = True
+        Me.RadioButton4.Text = "Male"
+        Me.RadioButton4.UseVisualStyleBackColor = True
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.RadioButton3)
+        Me.GroupBox2.Controls.Add(Me.RadioButton2)
+        Me.GroupBox2.Controls.Add(Me.RadioButton1)
+        Me.GroupBox2.Location = New System.Drawing.Point(10, 21)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(211, 39)
+        Me.GroupBox2.TabIndex = 15
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Gender"
+        '
+        'RadioButton3
+        '
+        Me.RadioButton3.AutoSize = True
+        Me.RadioButton3.Location = New System.Drawing.Point(136, 15)
+        Me.RadioButton3.Name = "RadioButton3"
+        Me.RadioButton3.Size = New System.Drawing.Size(65, 17)
+        Me.RadioButton3.TabIndex = 2
+        Me.RadioButton3.TabStop = True
+        Me.RadioButton3.Text = "Random"
+        Me.RadioButton3.UseVisualStyleBackColor = True
+        '
+        'RadioButton2
+        '
+        Me.RadioButton2.AutoSize = True
+        Me.RadioButton2.Location = New System.Drawing.Point(71, 15)
+        Me.RadioButton2.Name = "RadioButton2"
+        Me.RadioButton2.Size = New System.Drawing.Size(59, 17)
+        Me.RadioButton2.TabIndex = 1
+        Me.RadioButton2.TabStop = True
+        Me.RadioButton2.Text = "Female"
+        Me.RadioButton2.UseVisualStyleBackColor = True
+        '
+        'RadioButton1
+        '
+        Me.RadioButton1.AutoSize = True
+        Me.RadioButton1.Location = New System.Drawing.Point(17, 15)
+        Me.RadioButton1.Name = "RadioButton1"
+        Me.RadioButton1.Size = New System.Drawing.Size(48, 17)
+        Me.RadioButton1.TabIndex = 0
+        Me.RadioButton1.TabStop = True
+        Me.RadioButton1.Text = "Male"
+        Me.RadioButton1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.Location = New System.Drawing.Point(170, 385)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(102, 36)
+        Me.Button2.TabIndex = 16
+        Me.Button2.Text = "Finish"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'Form3
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(834, 450)
+        Me.ClientSize = New System.Drawing.Size(860, 450)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.RichTextBox1)
         Me.Name = "Form3"
-        Me.Text = "Form3"
+        Me.Text = "PGF Creator"
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.GroupBox7.ResumeLayout(False)
+        Me.GroupBox7.PerformLayout()
+        Me.GroupBox6.ResumeLayout(False)
+        Me.GroupBox6.PerformLayout()
+        Me.GroupBox5.ResumeLayout(False)
+        Me.GroupBox5.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
@@ -79,4 +542,41 @@ Partial Class Form3
     Friend WithEvents Button1 As Button
     Friend WithEvents RichTextBox1 As RichTextBox
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents Label3 As Label
+    Friend WithEvents NumericUpDown2 As NumericUpDown
+    Friend WithEvents ToolTip1 As ToolTip
+    Friend WithEvents Label4 As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents RadioButton3 As RadioButton
+    Friend WithEvents RadioButton2 As RadioButton
+    Friend WithEvents RadioButton1 As RadioButton
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents RadioButton6 As RadioButton
+    Friend WithEvents RadioButton5 As RadioButton
+    Friend WithEvents RadioButton4 As RadioButton
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents RadioButton7 As RadioButton
+    Friend WithEvents RadioButton8 As RadioButton
+    Friend WithEvents RadioButton9 As RadioButton
+    Friend WithEvents GroupBox5 As GroupBox
+    Friend WithEvents RadioButton14 As RadioButton
+    Friend WithEvents RadioButton13 As RadioButton
+    Friend WithEvents RadioButton10 As RadioButton
+    Friend WithEvents RadioButton11 As RadioButton
+    Friend WithEvents RadioButton12 As RadioButton
+    Friend WithEvents GroupBox6 As GroupBox
+    Friend WithEvents CheckBox6 As CheckBox
+    Friend WithEvents CheckBox5 As CheckBox
+    Friend WithEvents CheckBox4 As CheckBox
+    Friend WithEvents CheckBox3 As CheckBox
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents GroupBox7 As GroupBox
+    Friend WithEvents CheckBox7 As CheckBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Button2 As Button
 End Class
diff --git a/Gen5 Distribution Creator/Form3.resx b/Gen5 Distribution Creator/Form3.resx
index 33c7f67..631b9d4 100644
--- a/Gen5 Distribution Creator/Form3.resx	
+++ b/Gen5 Distribution Creator/Form3.resx	
@@ -120,4 +120,10 @@
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>159, 17</value>
+  </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>159, 17</value>
+  </metadata>
 </root>
\ No newline at end of file
diff --git a/Gen5 Distribution Creator/Form3.vb b/Gen5 Distribution Creator/Form3.vb
index 4cbe5ae..4894cd3 100644
--- a/Gen5 Distribution Creator/Form3.vb	
+++ b/Gen5 Distribution Creator/Form3.vb	
@@ -1,18 +1,53 @@
 Public Class Form3
 #Region "Variables"
-    Dim pid As String
-    Dim dex As String
-    Dim item As String
     Dim tid As String
     Dim sid As String
-    Dim exp As String
-    Dim fsp As String
-    Dim abl As String
-    Dim mark As String
-    Dim lang As String
-    Dim ev As String
+    Dim ori As String
+    Dim rib As String
+    Dim ball As String
+    Dim item As String
     Dim moves As String
+    Dim dex As String
+    Dim lang As String
+    Dim nick As String
+    Dim nat As String
+    Dim emet As String
+    Dim met As String
+    Dim bloc As String
+    Dim iv(5) As Integer '{HP, ATK, DEF, SPE, SpATK, SpDEF}
+    Dim hiv(5) As String '^
+    Dim otn As String
+    Dim otg As String
+    Dim egg As String
+
+    Dim lvl As String = "00"
+    Dim gen As String = "02"
+    Dim abl As String = "04"
+    Dim shy As String = "01"
+
+    Dim fl(1) As String
+    Dim id As Integer = 0
+
+    Dim sender As Object
+    Dim e As EventArgs
+
+    Dim st As Boolean = True
 #End Region
+    Private Function lted(ByVal int As String, ByVal b As Integer)
+        Dim s As String = Nothing
+        Dim s2 As String = Nothing
+        If int.Length < b Then
+            s = "0" & int
+        Else
+            s = int
+        End If
+        If b = 8 Then
+            s2 = s.Skip(6).ToArray() & s.Remove(6, 2).ToArray().Skip(4).ToArray() & s.Remove(4, 4).ToArray().Skip(2).ToArray() & s.Remove(2, 6).ToArray()
+        ElseIf b = 4 Then
+            s2 = s.Skip(2).ToArray() & s.Remove(2, 2).ToArray()
+        End If
+        Return s2
+    End Function
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         OpenFileDialog1.Filter = "Gen 5 PKM Files (*.pk5)|*.pk5|All files (*.*)|*.*"
         OpenFileDialog1.ShowDialog()
@@ -20,15 +55,384 @@
         Dim Fn() As String = myFile.Split("\")
         Dim fn2 As String = Fn(UBound(Fn))
         Label2.Text = fn2
-        RichTextBox1.Text = RichTextBox1.Text.Remove(8, 408)
+
+        'RichTextBox1.Text = RichTextBox1.Text.Remove(8, 408)
 
         Dim myBytes As Byte() = My.Computer.FileSystem.ReadAllBytes(myFile)
         Dim txtTemp As New System.Text.StringBuilder()
         For Each myByte As Byte In myBytes
             txtTemp.Append(myByte.ToString("X2"))
         Next
-        RichTextBox1.Text = RichTextBox1.Text.Insert(8, txtTemp.ToString())
-        RichTextBox1.Text = RichTextBox1.Text.Remove(352, 8)
-        RichTextBox1.Text = RichTextBox1.Text.Insert(352, "00000000")
+        RichTextBox1.Text = txtTemp.ToString()
+
+        store()
+        RichTextBox1.Text = Nothing
+        construct()
+
+        GroupBox1.Enabled = True
+        TextBox1.Enabled = True
+        NumericUpDown1.Enabled = True
+        Label1.Enabled = True
+        Label3.Enabled = True
+        checks()
+        'RichTextBox1.Text = RichTextBox1.Text.Insert(8, txtTemp.ToString())
+        'RichTextBox1.Text = RichTextBox1.Text.Remove(352, 8)
+        'RichTextBox1.Text = RichTextBox1.Text.Insert(352, "00000000")
+    End Sub
+    Private Function tgh(ByVal int As Integer, ByVal suplen As Integer)
+        Dim gh As String = Hex(int)
+        If gh.Length < suplen Then
+            For i = 0 To suplen - gh.Length - 1 Step 1
+                gh = "0" & gh
+            Next i
+        End If
+        Return gh
+    End Function
+    Private Sub checks()
+        If otg = "00" Then
+            RadioButton4.PerformClick()
+        ElseIf otg = "01" Then
+            RadioButton5.PerformClick()
+        End If
+        If fl(0) = "1" Then
+            RadioButton3.PerformClick()
+            RadioButton1.Enabled = False
+            RadioButton2.Enabled = False
+        ElseIf fl(1) = "0" And fl(0) = "0" Then
+            RadioButton1.Enabled = True
+            RadioButton2.Enabled = True
+            RadioButton1.PerformClick()
+        ElseIf fl(1) = "1" And fl(0) = "0" Then
+            RadioButton1.Enabled = True
+            RadioButton2.Enabled = True
+            RadioButton2.PerformClick()
+        End If
+        Dim at As Integer = Convert.ToInt32(nat, 16)
+        ComboBox1.SelectedIndex = at
+        RadioButton8.PerformClick()
+        RadioButton13.PerformClick()
+        CheckBox1.Checked = True
+        CheckBox2.Checked = True
+        CheckBox3.Checked = True
+        CheckBox4.Checked = True
+        CheckBox5.Checked = True
+        CheckBox6.Checked = True
+    End Sub
+    Private Sub construct()
+        If CheckBox1.Checked = True Then
+            hiv(0) = tgh(iv(0), 2)
+        ElseIf CheckBox1.Checked = False Then
+            hiv(0) = "FF"
+        End If
+        If CheckBox2.Checked = True Then
+            hiv(1) = tgh(iv(1), 2)
+        ElseIf CheckBox2.Checked = False Then
+            hiv(1) = "FF"
+        End If
+        If CheckBox3.Checked = True Then
+            hiv(2) = tgh(iv(2), 2)
+        ElseIf CheckBox3.Checked = False Then
+            hiv(2) = "FF"
+        End If
+        If CheckBox6.Checked = True Then
+            hiv(3) = tgh(iv(3), 2)
+        ElseIf CheckBox6.Checked = False Then
+            hiv(3) = "FF"
+        End If
+        If CheckBox4.Checked = True Then
+            hiv(4) = tgh(iv(4), 2)
+        ElseIf CheckBox4.Checked = False Then
+            hiv(4) = "FF"
+        End If
+        If CheckBox5.Checked = True Then
+            hiv(5) = tgh(iv(5), 2)
+        ElseIf CheckBox5.Checked = False Then
+            hiv(5) = "FF"
+        End If
+        Dim sat As String = Nothing
+        If CheckBox7.Checked = True Then
+            sat = "FF"
+            ComboBox1.Enabled = False
+        ElseIf CheckBox7.Checked = False Then
+            sat = nat
+            ComboBox1.Enabled = True
+        End If
+
+        RichTextBox1.Text = tid & sid & ori & "000000" & "00000000" & rib & ball & "00" & item & moves & dex & "00" & lang &
+            nick & sat & gen & abl & shy & emet & met & lvl & "000000000000" & hiv(0) & hiv(1) & hiv(2) & hiv(3) & hiv(4) &
+            hiv(5) & "00" & otn & otg & lvl & egg & "000000"
+        'Dim ft As String = Nothing
+        Dim mx As Integer = 148
+        For i = 0 To mx - 2 Step 1
+            'ft = ft & "F"
+            RichTextBox1.Text = RichTextBox1.Text & "F"
+        Next i
+        'RichTextBox1.Text = RichTextBox1.Text & ft
+        Dim hid As String = Hex(id)
+        If hid.Length < 4 Then
+            For i = 0 To 4 - hid.Length - 1 Step 1
+                hid = "0" & hid
+            Next i
+        End If
+        RichTextBox1.Text = RichTextBox1.Text & "0000" & "00000000" & lted(hid, 4) & "44" & "01" & "01" &
+            "0000000000000000000000000000000000000000000000"
+        st = False
+        TextBox1_TextChanged(sender, e)
+    End Sub
+    Private Sub store()
+        tid = RichTextBox1.Text.Remove(28).ToArray().Skip(24).ToArray()
+        sid = RichTextBox1.Text.Remove(32).ToArray().Skip(28).ToArray()
+        ori = RichTextBox1.Text.Remove(192).ToArray().Skip(190).ToArray()
+        rib = RichTextBox1.Text.Remove(80).ToArray().Skip(76).ToArray()
+        ball = RichTextBox1.Text.Remove(264).ToArray().Skip(262).ToArray()
+        item = RichTextBox1.Text.Remove(24).ToArray().Skip(20).ToArray()
+        moves = RichTextBox1.Text.Remove(96).ToArray().Skip(80).ToArray()
+        dex = RichTextBox1.Text.Remove(20).ToArray().Skip(16).ToArray()
+        lang = RichTextBox1.Text.Remove(48).ToArray().Skip(46).ToArray()
+        nick = RichTextBox1.Text.Remove(188).ToArray().Skip(144).ToArray()
+        nat = RichTextBox1.Text.Remove(132).ToArray().Skip(130).ToArray()
+        emet = RichTextBox1.Text.Remove(256).ToArray().Skip(252).ToArray()
+        met = RichTextBox1.Text.Remove(260).ToArray().Skip(256).ToArray()
+        'lvl = RichTextBox1.Text.Remove().ToArray().Skip().ToArray()
+        bloc = RichTextBox1.Text.Remove(120).ToArray().Skip(112).ToArray()
+        Dim bl As String = lted(bloc, 8)
+        Dim bi As Integer = Convert.ToInt32(bl, 16)
+        Dim bb As String = Convert.ToString(bi, 2)
+        If bb.Length < 32 Then
+            For i = 0 To 32 - bb.Length - 1 Step 1
+                bb = "0" & bb
+            Next i
+        End If
+        iv(0) = Convert.ToInt32(bb.Skip(27).ToArray(), 2)
+        iv(1) = Convert.ToInt32(bb.Remove(27).ToArray().Skip(22).ToArray(), 2)
+        iv(2) = Convert.ToInt32(bb.Remove(22).ToArray().Skip(17).ToArray(), 2)
+        iv(3) = Convert.ToInt32(bb.Remove(17).ToArray().Skip(12).ToArray(), 2)
+        iv(4) = Convert.ToInt32(bb.Remove(12).ToArray().Skip(7).ToArray(), 2)
+        iv(5) = Convert.ToInt32(bb.Remove(7).ToArray().Skip(2).ToArray(), 2)
+        egg = "0" & bb.Remove(3).ToArray().Skip(1).ToArray()
+        otn = RichTextBox1.Text.Remove(240).ToArray().Skip(208).ToArray()
+        Dim o As String = RichTextBox1.Text.Remove(266).ToArray().Skip(264).ToArray()
+        Dim oi As Integer = Convert.ToInt32(o, 16)
+        Dim ob As String = Convert.ToString(oi, 2)
+        If ob.Length < 8 Then
+            For i = 0 To 8 - ob.Length - 1 Step 1
+                ob = "0" & ob
+            Next i
+        End If
+        otg = "0" & ob.Remove(1)
+        Debug.Print(ob)
+
+        Dim wf As String = RichTextBox1.Text.Remove(130).ToArray().Skip(128).ToArray()
+        Dim wi As Integer = Convert.ToInt32(wf, 16)
+        Dim wb As String = Convert.ToString(wi, 2)
+        If wb.Length < 8 Then
+            For i = 0 To 8 - wb.Length - 1 Step 1
+                wb = "0" & wb
+            Next i
+        End If
+        fl(1) = Convert.ToInt32(wb.Remove(7).ToArray().Skip(6).ToArray(), 2)
+        fl(0) = Convert.ToInt32(wb.Remove(6).ToArray().Skip(5).ToArray(), 2)
+    End Sub
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        If st = False Then
+            If TextBox1.Text <> "" Then
+                Dim ch As Char() = TextBox1.Text.ToCharArray
+                Dim ft As String = Nothing
+                Dim n As Integer = 0
+                For n = 0 To UBound(ch) Step 1
+                    Dim t As String = Hex(Asc(ch(n)))
+                    If t.Length < 2 Then
+                        t = "0" & t
+                    End If
+                    ft = ft & t & "00"
+                Next n
+                'If ft.Contains("0A00") Then
+                '    ft = ft.Replace("0A00", "FEFF")
+                'End If
+                Dim mx As Integer = 148
+                Dim mn As Integer = ft.Length
+                Dim req As Integer = mx - mn
+
+                For n = 0 To req - 1 Step 1
+                    ft = ft & "F"
+                Next n
+
+                RichTextBox1.Text = RichTextBox1.Text.Remove(192, mx)
+                RichTextBox1.Text = RichTextBox1.Text.Insert(192, ft)
+            Else
+                Dim ft As String = ""
+                Dim mx As Integer = 148
+                For i = 0 To mx - 1 Step 1
+                    ft = ft & "F"
+                Next i
+                RichTextBox1.Text = RichTextBox1.Text.Remove(192, mx)
+                RichTextBox1.Text = RichTextBox1.Text.Insert(192, ft)
+            End If
+        End If
+    End Sub
+
+    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
+        id = NumericUpDown1.Value
+        construct()
+    End Sub
+    Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown2.ValueChanged
+        lvl = Hex(NumericUpDown2.Value)
+        If lvl.Length < 2 Then
+            lvl = "0" & lvl
+        End If
+        construct()
+    End Sub
+
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
+        If RadioButton1.Checked = True Then
+            gen = "00"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
+        If RadioButton2.Checked = True Then
+            gen = "01"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
+        If RadioButton3.Checked = True Then
+            gen = "02"
+        End If
+        construct()
+    End Sub
+
+    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
+        If RadioButton4.Checked = True Then
+            otg = "00"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
+        If RadioButton5.Checked = True Then
+            otg = "01"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
+        If RadioButton6.Checked = True Then
+            otg = "03"
+        End If
+        construct()
+    End Sub
+
+    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged
+        If RadioButton7.Checked = True Then
+            shy = "00"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.CheckedChanged
+        If RadioButton8.Checked = True Then
+            shy = "01"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton9_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton9.CheckedChanged
+        If RadioButton9.Checked = True Then
+            shy = "02"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton10_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton10.CheckedChanged
+        If RadioButton10.Checked = True Then
+            abl = "00"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton11_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton11.CheckedChanged
+        If RadioButton11.Checked = True Then
+            abl = "01"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton12_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton12.CheckedChanged
+        If RadioButton12.Checked = True Then
+            abl = "02"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton13_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton13.CheckedChanged
+        If RadioButton13.Checked = True Then
+            abl = "03"
+        End If
+        construct()
+    End Sub
+    Private Sub RadioButton14_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton14.CheckedChanged
+        If RadioButton14.Checked = True Then
+            abl = "04"
+        End If
+        construct()
+    End Sub
+
+    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+#If DEBUG Then
+        Size = New Size(876, 489)
+#Else
+        Size = New Size(488, 489)
+#End If
+        GroupBox1.Enabled = False
+        TextBox1.Enabled = False
+        NumericUpDown1.Enabled = False
+        Label1.Enabled = False
+        Label3.Enabled = False
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        construct()
+    End Sub
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+        construct()
+    End Sub
+    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
+        construct()
+    End Sub
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
+        construct()
+    End Sub
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
+        construct()
+    End Sub
+    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
+        construct()
+    End Sub
+
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        nat = tgh(ComboBox1.SelectedIndex, 2)
+        construct()
+    End Sub
+
+    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
+        construct()
+    End Sub
+    Public Sub New()
+        InitializeComponent()
+        TextBox1.Text = "Custom"
+        TextBox1.ForeColor = Color.Gray
+    End Sub
+    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.Leave
+        If TextBox1.Text = Nothing Then
+            TextBox1.Text = "Custom"
+            TextBox1.ForeColor = Color.Gray
+        End If
+    End Sub
+    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.Enter
+        If TextBox1.Text = "Custom" Then
+            TextBox1.Text = Nothing
+            TextBox1.ForeColor = Color.Black
+        End If
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Form1.RichTextBox1.Text = Form1.RichTextBox1.Text.Remove(8, 408)
+        Form1.RichTextBox1.Text = Form1.RichTextBox1.Text.Insert(8, RichTextBox1.Text)
+        Form1.RichTextBox1.Text = Form1.RichTextBox1.Text.Remove(352, 8)
+        Form1.RichTextBox1.Text = Form1.RichTextBox1.Text.Insert(352, "00000000")
+        Form1.Label2.Text = NumericUpDown1.Value & " - " & TextBox1.Text & " (Custom)"
+        Close()
     End Sub
 End Class
\ No newline at end of file
diff --git a/Gen5 Distribution Creator/My Project/Application.Designer.vb b/Gen5 Distribution Creator/My Project/Application.Designer.vb
index 76ba2e1..cbf4923 100644
--- a/Gen5 Distribution Creator/My Project/Application.Designer.vb	
+++ b/Gen5 Distribution Creator/My Project/Application.Designer.vb	
@@ -13,15 +13,15 @@ Option Explicit On
 
 
 Namespace My
-
+    
     'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
     ' or if you encounter build errors in this file, go to the Project Designer
     ' (go to Project Properties or double-click the My Project node in
     ' Solution Explorer), and make changes on the Application tab.
     '
     Partial Friend Class MyApplication
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Public Sub New()
             MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
             Me.IsSingleInstance = false
@@ -29,8 +29,8 @@ Namespace My
             Me.SaveMySettingsOnExit = true
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
             Me.MainForm = Global.Gen5_Distribution_Creator.Form1
         End Sub
diff --git a/Gen5 Distribution Creator/My Project/Application.myapp b/Gen5 Distribution Creator/My Project/Application.myapp
index 7b0c597..fbb5858 100644
--- a/Gen5 Distribution Creator/My Project/Application.myapp	
+++ b/Gen5 Distribution Creator/My Project/Application.myapp	
@@ -6,6 +6,5 @@
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>
+</MyApplicationData>
\ No newline at end of file
diff --git a/Gen5 Distribution Creator/My Project/AssemblyInfo.vb b/Gen5 Distribution Creator/My Project/AssemblyInfo.vb
index 8c11a22..ae5add6 100644
--- a/Gen5 Distribution Creator/My Project/AssemblyInfo.vb	
+++ b/Gen5 Distribution Creator/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.1.0")>
-<Assembly: AssemblyFileVersion("1.0.1.0")>
+<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>
diff --git a/Gen5 Distribution Creator/My Project/Resources.Designer.vb b/Gen5 Distribution Creator/My Project/Resources.Designer.vb
index 7dbb53b..95d2dc5 100644
--- a/Gen5 Distribution Creator/My Project/Resources.Designer.vb	
+++ b/Gen5 Distribution Creator/My Project/Resources.Designer.vb	
@@ -172,16 +172,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Looks up a localized resource of type System.Byte[].
-        '''</summary>
-        Friend ReadOnly Property data() As Byte()
-            Get
-                Dim obj As Object = ResourceManager.GetObject("data", resourceCulture)
-                Return CType(obj,Byte())
-            End Get
-        End Property
-        
         '''<summary>
         '''  Looks up a localized resource of type System.Byte[].
         '''</summary>
diff --git a/Gen5 Distribution Creator/My Project/Resources.resx b/Gen5 Distribution Creator/My Project/Resources.resx
index 2d220b1..651e11e 100644
--- a/Gen5 Distribution Creator/My Project/Resources.resx	
+++ b/Gen5 Distribution Creator/My Project/Resources.resx	
@@ -124,9 +124,6 @@
   <data name="armips_readme" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\armips readme.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
   </data>
-  <data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\data.bin;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="ndstool" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ndstool.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
diff --git a/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.exe b/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.exe
index 54562a4..b30f9ac 100644
Binary files a/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.exe and b/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.exe differ
diff --git a/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb b/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb
index 01f2708..af3cc21 100644
Binary files a/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb and b/Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb differ
diff --git a/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.exe b/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.exe
index 2bbcbd4..cd3da81 100644
Binary files a/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.exe and b/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.exe differ
diff --git a/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.pdb b/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.pdb
index 1faa4d5..f5f4b94 100644
Binary files a/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.pdb and b/Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.pdb differ
diff --git a/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.exe b/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.exe
index 5ff7130..c869fc9 100644
Binary files a/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.exe and b/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.exe differ
diff --git a/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb b/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb
index a63926b..a356261 100644
Binary files a/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb and b/Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb differ
diff --git a/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt b/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt
index 88dd72a..08c1070 100644
--- a/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt	
+++ b/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt	
@@ -22,3 +22,4 @@ C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Debug\Gen5 Dist
 C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Debug\Gen5 Distribution Creator.vbproj.CoreCompileInputs.cache
 C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Debug\Gen 5 Pokémon Distribution ROM Creator.exe
 C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Debug\Gen 5 Pokémon Distribution ROM Creator.pdb
+C:\Users\Kochen Family\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Debug\Gen5_Distribution_Creator.Form3.resources
diff --git a/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.GenerateResource.cache b/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.GenerateResource.cache
index 419d158..7b22177 100644
Binary files a/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.GenerateResource.cache and b/Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.GenerateResource.cache differ
diff --git a/Gen5 Distribution Creator/obj/Debug/Gen5_Distribution_Creator.Resources.resources b/Gen5 Distribution Creator/obj/Debug/Gen5_Distribution_Creator.Resources.resources
index cfb7d62..8462c0b 100644
Binary files a/Gen5 Distribution Creator/obj/Debug/Gen5_Distribution_Creator.Resources.resources and b/Gen5 Distribution Creator/obj/Debug/Gen5_Distribution_Creator.Resources.resources differ
diff --git a/Gen5 Distribution Creator/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/Gen5 Distribution Creator/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
index 5991a1b..cad7781 100644
Binary files a/Gen5 Distribution Creator/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/Gen5 Distribution Creator/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ
diff --git a/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.exe b/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.exe
index 0814357..09976bf 100644
Binary files a/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.exe and b/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.exe differ
diff --git a/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.pdb b/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.pdb
index 86ea05e..999df16 100644
Binary files a/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.pdb and b/Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.pdb differ
diff --git a/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt b/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt
index ee6052d..b7a6622 100644
--- a/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt	
+++ b/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt	
@@ -22,3 +22,4 @@ C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Release\Gen5 Di
 C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Release\Gen5 Distribution Creator.vbproj.CoreCompileInputs.cache
 C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Release\Gen 5 Pokémon Distribution ROM Creator.exe
 C:\Users\Nick\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Release\Gen 5 Pokémon Distribution ROM Creator.pdb
+C:\Users\Kochen Family\source\repos\PKMG5DC\Gen5 Distribution Creator\obj\Release\Gen5_Distribution_Creator.Form3.resources
diff --git a/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.GenerateResource.cache b/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.GenerateResource.cache
index 16ee70a..549f8f7 100644
Binary files a/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.GenerateResource.cache and b/Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.GenerateResource.cache differ
diff --git a/Gen5 Distribution Creator/obj/Release/Gen5_Distribution_Creator.Resources.resources b/Gen5 Distribution Creator/obj/Release/Gen5_Distribution_Creator.Resources.resources
index cfb7d62..8462c0b 100644
Binary files a/Gen5 Distribution Creator/obj/Release/Gen5_Distribution_Creator.Resources.resources and b/Gen5 Distribution Creator/obj/Release/Gen5_Distribution_Creator.Resources.resources differ
diff --git a/Gen5 Distribution Creator/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/Gen5 Distribution Creator/obj/Release/TempPE/My Project.Resources.Designer.vb.dll
index 1680ef5..c0fdfec 100644
Binary files a/Gen5 Distribution Creator/obj/Release/TempPE/My Project.Resources.Designer.vb.dll and b/Gen5 Distribution Creator/obj/Release/TempPE/My Project.Resources.Designer.vb.dll differ