Leahnaya/PKMG5DC
1
0
Fork 0
mirror of https://github.com/RenegadeRaven/PKMG5DC.git synced 2026-09-09 02:55:31 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added PGF Creator

Browse Source
This commit is contained in:
Regnum
2018-10-09 23:02:35 -05:00
parent 38de63065f
commit e69e103a1e
26 changed files with 978 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Gen5 Distribution Creator/Form1.Designer.vb generated
View File

@@ -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

37
Gen5 Distribution Creator/Form1.vb
View File

@@ -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

506
Gen5 Distribution Creator/Form3.Designer.vb generated
View File

@@ -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

6
Gen5 Distribution Creator/Form3.resx
View File

@@ -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>

430
Gen5 Distribution Creator/Form3.vb
View File

@@ -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

10
Gen5 Distribution Creator/My Project/Application.Designer.vb generated
View File

@@ -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

3
Gen5 Distribution Creator/My Project/Application.myapp
View File

@@ -6,6 +6,5 @@
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
</MyApplicationData>

4
Gen5 Distribution Creator/My Project/AssemblyInfo.vb
View File

@@ -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")>

10
Gen5 Distribution Creator/My Project/Resources.Designer.vb generated
View File

@@ -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>

3
Gen5 Distribution Creator/My Project/Resources.resx
View File

@@ -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>

BIN
Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.exe
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/bin/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.exe
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/bin/Release/Gen 5 Pokémon Distribution ROM Creator.pdb
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.exe
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Debug/Gen 5 Pokémon Distribution ROM Creator.pdb
View File

Binary file not shown.

1
Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt
View File

@@ -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

BIN
Gen5 Distribution Creator/obj/Debug/Gen5 Distribution Creator.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Debug/Gen5_Distribution_Creator.Resources.resources
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.exe
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Release/Gen 5 Pokémon Distribution ROM Creator.pdb
View File

Binary file not shown.

1
Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.FileListAbsolute.txt
View File

@@ -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

BIN
Gen5 Distribution Creator/obj/Release/Gen5 Distribution Creator.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Release/Gen5_Distribution_Creator.Resources.resources
View File

Binary file not shown.

BIN
Gen5 Distribution Creator/obj/Release/TempPE/My Project.Resources.Designer.vb.dll
View File

Binary file not shown.