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

Merge pull request #4 from armindojr/master

Browse Source 
Fork fork to branch for analyzation and future implementation
This commit is contained in:
RenegadeRaven
2022-11-13 11:51:12 -06:00
committed by GitHub
parent cc89e35df4 eb4e6bf703
commit f9e9f55e77
34 changed files with 4416 additions and 750 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
PKMG5DC.sln
View File

@@ -1,20 +1,24 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.28010.2041
# Visual Studio Version 17
VisualStudioVersion = 17.0.32112.339
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PKMG5DC", "PKMG5DC\PKMG5DC.vbproj", "{82FE1063-3E51-4717-BA32-AEB77F873E0A}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|x64 = Debug|x64
Release|Any CPU = Release|Any CPU
Release|x64 = Release|x64
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{82FE1063-3E51-4717-BA32-AEB77F873E0A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{82FE1063-3E51-4717-BA32-AEB77F873E0A}.Debug|Any CPU.Build.0 = Debug|Any CPU
{82FE1063-3E51-4717-BA32-AEB77F873E0A}.Debug|x64.ActiveCfg = Debug|Any CPU
{82FE1063-3E51-4717-BA32-AEB77F873E0A}.Release|Any CPU.ActiveCfg = Release|Any CPU
{82FE1063-3E51-4717-BA32-AEB77F873E0A}.Release|Any CPU.Build.0 = Release|Any CPU
{82FE1063-3E51-4717-BA32-AEB77F873E0A}.Release|x64.ActiveCfg = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE

77
PKMG5DC/About.Designer.vb generated
View File

@@ -22,8 +22,7 @@ Partial Class About
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(About))
Me.lb_Description = New System.Windows.Forms.Label()
Me.lb_Includes = New System.Windows.Forms.Label()
Me.lklb_Ndstool = New System.Windows.Forms.LinkLabel()
@@ -31,19 +30,18 @@ Partial Class About
Me.lklb_12distro = New System.Windows.Forms.LinkLabel()
Me.lb_Source = New System.Windows.Forms.Label()
Me.lklb_Source = New System.Windows.Forms.LinkLabel()
Me.Label1 = New System.Windows.Forms.Label()
Me.lb_AppVersion = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Timer1
'
Me.Timer1.Interval = 10000
'
'lb_Description
'
Me.lb_Description.AutoSize = True
Me.lb_Description.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lb_Description.Location = New System.Drawing.Point(-1, 12)
Me.lb_Description.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.lb_Description.Location = New System.Drawing.Point(13, 32)
Me.lb_Description.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_Description.Name = "lb_Description"
Me.lb_Description.Size = New System.Drawing.Size(276, 60)
Me.lb_Description.Size = New System.Drawing.Size(340, 72)
Me.lb_Description.TabIndex = 0
Me.lb_Description.Text = "This program builds Distribution ROMs for Gen 5 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Pokémon games. With a copy of t" &
"he Liberty Ticket" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Distribution ROM and a .pgf event file, you can " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "make a Dist" &
@@ -52,18 +50,20 @@ Partial Class About
'lb_Includes
'
Me.lb_Includes.AutoSize = True
Me.lb_Includes.Location = New System.Drawing.Point(13, 106)
Me.lb_Includes.Location = New System.Drawing.Point(13, 141)
Me.lb_Includes.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_Includes.Name = "lb_Includes"
Me.lb_Includes.Size = New System.Drawing.Size(160, 13)
Me.lb_Includes.Size = New System.Drawing.Size(201, 16)
Me.lb_Includes.TabIndex = 1
Me.lb_Includes.Text = "This program contains copies of:"
'
'lklb_Ndstool
'
Me.lklb_Ndstool.AutoSize = True
Me.lklb_Ndstool.Location = New System.Drawing.Point(105, 138)
Me.lklb_Ndstool.Location = New System.Drawing.Point(13, 170)
Me.lklb_Ndstool.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lklb_Ndstool.Name = "lklb_Ndstool"
Me.lklb_Ndstool.Size = New System.Drawing.Size(41, 13)
Me.lklb_Ndstool.Size = New System.Drawing.Size(51, 16)
Me.lklb_Ndstool.TabIndex = 2
Me.lklb_Ndstool.TabStop = True
Me.lklb_Ndstool.Text = "ndstool"
@@ -71,9 +71,10 @@ Partial Class About
'lklb_armips
'
Me.lklb_armips.AutoSize = True
Me.lklb_armips.Location = New System.Drawing.Point(107, 166)
Me.lklb_armips.Location = New System.Drawing.Point(13, 202)
Me.lklb_armips.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lklb_armips.Name = "lklb_armips"
Me.lklb_armips.Size = New System.Drawing.Size(37, 13)
Me.lklb_armips.Size = New System.Drawing.Size(48, 16)
Me.lklb_armips.TabIndex = 3
Me.lklb_armips.TabStop = True
Me.lklb_armips.Text = "armips"
@@ -81,9 +82,10 @@ Partial Class About
'lklb_12distro
'
Me.lklb_12distro.AutoSize = True
Me.lklb_12distro.Location = New System.Drawing.Point(42, 197)
Me.lklb_12distro.Location = New System.Drawing.Point(13, 235)
Me.lklb_12distro.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lklb_12distro.Name = "lklb_12distro"
Me.lklb_12distro.Size = New System.Drawing.Size(195, 13)
Me.lklb_12distro.Size = New System.Drawing.Size(243, 16)
Me.lklb_12distro.TabIndex = 4
Me.lklb_12distro.TabStop = True
Me.lklb_12distro.Text = "Pokémon Duodecuple Distribution hack"
@@ -91,34 +93,59 @@ Partial Class About
'lb_Source
'
Me.lb_Source.AutoSize = True
Me.lb_Source.Location = New System.Drawing.Point(13, 290)
Me.lb_Source.Location = New System.Drawing.Point(13, 357)
Me.lb_Source.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_Source.Name = "lb_Source"
Me.lb_Source.Size = New System.Drawing.Size(72, 13)
Me.lb_Source.Size = New System.Drawing.Size(89, 16)
Me.lb_Source.TabIndex = 5
Me.lb_Source.Text = "Source Code:"
'
'lklb_Source
'
Me.lklb_Source.AutoSize = True
Me.lklb_Source.Location = New System.Drawing.Point(92, 289)
Me.lklb_Source.Location = New System.Drawing.Point(110, 357)
Me.lklb_Source.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lklb_Source.Name = "lklb_Source"
Me.lklb_Source.Size = New System.Drawing.Size(40, 13)
Me.lklb_Source.Size = New System.Drawing.Size(48, 16)
Me.lklb_Source.TabIndex = 6
Me.lklb_Source.TabStop = True
Me.lklb_Source.Text = "GitHub"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(209, 357)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(84, 16)
Me.Label1.TabIndex = 5
Me.Label1.Text = "App Version:"
'
'lb_AppVersion
'
Me.lb_AppVersion.AutoSize = True
Me.lb_AppVersion.Location = New System.Drawing.Point(301, 357)
Me.lb_AppVersion.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_AppVersion.Name = "lb_AppVersion"
Me.lb_AppVersion.Size = New System.Drawing.Size(0, 16)
Me.lb_AppVersion.TabIndex = 7
'
'About
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(275, 365)
Me.ClientSize = New System.Drawing.Size(405, 382)
Me.Controls.Add(Me.lb_AppVersion)
Me.Controls.Add(Me.lklb_Source)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lb_Source)
Me.Controls.Add(Me.lklb_12distro)
Me.Controls.Add(Me.lklb_armips)
Me.Controls.Add(Me.lklb_Ndstool)
Me.Controls.Add(Me.lb_Includes)
Me.Controls.Add(Me.lb_Description)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "About"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "About"
@@ -126,8 +153,6 @@ Partial Class About
Me.PerformLayout()
End Sub
Friend WithEvents Timer1 As Timer
Friend WithEvents lb_Description As Label
Friend WithEvents lb_Includes As Label
Friend WithEvents lklb_Ndstool As LinkLabel
@@ -135,4 +160,6 @@ Partial Class About
Friend WithEvents lklb_12distro As LinkLabel
Friend WithEvents lb_Source As Label
Friend WithEvents lklb_Source As LinkLabel
Friend WithEvents Label1 As Label
Friend WithEvents lb_AppVersion As Label
End Class

1279
PKMG5DC/About.resx
View File

File diff suppressed because it is too large Load Diff

9
PKMG5DC/About.vb
View File

@@ -1,19 +1,20 @@
Public Class About
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
lb_AppVersion.Text = Application.ProductVersion
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklb_Ndstool.LinkClicked
Process.Start("https://gbatemp.net/download/nintendo-ds-rom-tool-ndstool.29352/")
End Sub
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklb_armips.LinkClicked
Process.Start("http://aerie.wingdreams.net/?page_id=6")
End Sub
Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklb_12distro.LinkClicked
Process.Start("https://gbatemp.net/threads/pokemon-duodecuple-distribution-hack.285080/")
End Sub
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklb_Source.LinkClicked
Process.Start("https://github.com/PlasticJustice/PKMG5DC")
End Sub

14
PKMG5DC/App.config
View File

@@ -1,22 +1,22 @@
<?xml version="1.0" encoding="utf-8" ?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="PKMG5DC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="PKMG5DC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<connectionStrings />
<connectionStrings/>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup>
<userSettings>
<PKMG5DC.My.MySettings>
<setting name="ticket" serializeAs="String">
<value />
<value/>
</setting>
<setting name="Region" serializeAs="String">
<value>0</value>
</setting>
</PKMG5DC.My.MySettings>
</userSettings>
</configuration>
</configuration>

3
PKMG5DC/Common.vb
View File

@@ -1,5 +1,4 @@
Imports System.Text
Module Common
Module Common
Public Sub ReadIni()
With Main5.mySettings
.Filename = Main5.Local & "\settings.ini"

2
PKMG5DC/Essentials/IniFile.vb
View File

@@ -1,8 +1,6 @@
'https://www.codeproject.com/Articles/17161/A-NET-Class-for-Creating-Reading-Editing-INI-Files
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class IniFile

4
PKMG5DC/Essentials/SettingsFile.vb
View File

@@ -1,6 +1,4 @@
Imports System.Text
Imports System.IO
Imports Newtonsoft.Json
Imports System.IO
Imports Newtonsoft.Json.Linq
Module SettingsFile
Dim Settings As JObject

76
PKMG5DC/Event/Card5.vb
View File

@@ -1,6 +1,6 @@
'Card Class
Public Class Card5
Public Data(&H16CF) As Byte
Public Data(&H222F) As Byte
Public Sub New()
Unknown14 = &H14
@@ -63,6 +63,15 @@ Public Class Card5
GameCompatibilities(n) = CByte((GameCompatibilities(n) And Not (1 << 7)) Or If(value, 1 << 7, 0))
End Set
End Property
Public Property EventTitle(n As Byte) As String
Get
Return GetString(Data, &H60 + &H4 + (n * &H2D0), 48)
End Get
Set(value As String)
SetString(value, 24).CopyTo(Data, &H60 + &H4 + (n * &H2D0))
End Set
End Property
'00
Public Property EventText(n As Byte) As String '0x1F8
Get
@@ -101,60 +110,97 @@ Public Class Card5
End Property
Public Property StartYears(n As Byte) As UShort
Get
Return BitConverter.ToUInt16(Data, &H1684 + (n * &H8))
Dim year As UShort = BitConverter.ToUInt16(Data, &H21C4 + (n * &H8))
If year = 0 Then
year = Date.Today.Year
End If
Return year
End Get
Set(ByVal value As UShort)
BitConverter.GetBytes(value).CopyTo(Data, &H1684 + (n * &H8))
BitConverter.GetBytes(value).CopyTo(Data, &H21C4 + (n * &H8))
End Set
End Property
Public Property StartMonths(n As Byte) As Byte
Get
Return Data(&H1686 + (n * &H8))
Dim month As UShort = Data(&H21C6 + (n * &H8))
If month = 0 Then
month = Date.Today.Month
End If
Return month
End Get
Set(ByVal value As Byte)
Data(&H1686 + (n * &H8)) = value
Data(&H21C6 + (n * &H8)) = value
End Set
End Property
Public Property StartDays(n As Byte) As Byte
Get
Return Data(&H1687 + (n * &H8))
Dim day As UShort = Data(&H21C7 + (n * &H8))
If day = 0 Then
day = Date.Today.Day
End If
Return day
End Get
Set(ByVal value As Byte)
Data(&H1687 + (n * &H8)) = value
Data(&H21C7 + (n * &H8)) = value
End Set
End Property
Public Property EndYears(n As Byte) As UShort
Get
Return BitConverter.ToUInt16(Data, &H1688 + (n * &H8))
Dim year As UShort = BitConverter.ToUInt16(Data, &H21C8 + (n * &H8))
If year = 0 Then
year = Date.Today.Year
End If
Return year
End Get
Set(ByVal value As UShort)
BitConverter.GetBytes(value).CopyTo(Data, &H1688 + (n * &H8))
BitConverter.GetBytes(value).CopyTo(Data, &H21C8 + (n * &H8))
End Set
End Property
Public Property EndMonths(n As Byte) As Byte
Get
Return Data(&H168A + (n * &H8))
Dim month As UShort = Data(&H21CA + (n * &H8))
If month = 0 Then
month = Date.Today.Month
End If
Return month
End Get
Set(ByVal value As Byte)
Data(&H168A + (n * &H8)) = value
Data(&H21CA + (n * &H8)) = value
End Set
End Property
Public Property EndDays(n As Byte) As Byte
Get
Return Data(&H168B + (n * &H8))
Dim day As UShort = Data(&H21CB + (n * &H8))
If day = 0 Then
day = Date.Today.Day
End If
Return day
End Get
Set(ByVal value As Byte)
Data(&H168B + (n * &H8)) = value
Data(&H21CB + (n * &H8)) = value
End Set
End Property
'00 for 0x5C
'14 ????
Public Property Unknown14 As Byte
Get
Return Data(&H16C8)
Return Data(&H2228)
End Get
Set(value As Byte)
Data(&H16C8) = value
Data(&H2228) = value
End Set
End Property
'00 00 00 00 00 00 00

6
PKMG5DC/Event/PGF.vb
View File

@@ -437,7 +437,7 @@
End Property
'FF FF
'00 00
Public Property RecieveDay As Byte
Public Property ReceiveDay As Byte
Get
Return Data(&HAC)
End Get
@@ -445,7 +445,7 @@
Data(&HAC) = value
End Set
End Property
Public Property RecieveMonth As Byte
Public Property ReceiveMonth As Byte
Get
Return Data(&HAD)
End Get
@@ -453,7 +453,7 @@
Data(&HAD) = value
End Set
End Property
Public Property RecieveYear As UShort
Public Property ReceiveYear As UShort
Get
Return BitConverter.ToUInt16(Data, &HAE)
End Get

810
PKMG5DC/Main5.Designer.vb generated
View File

@@ -27,52 +27,65 @@ Partial Class Main5
Me.lklb_Update = New System.Windows.Forms.LinkLabel()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.tsmi_Options = New System.Windows.Forms.ToolStripMenuItem()
Me.tscb_Region = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmi_About = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.HoverInfo = New System.Windows.Forms.ToolTip(Me.components)
Me.pb_Donate = New System.Windows.Forms.PictureBox()
Me.gb_GameComp = New System.Windows.Forms.GroupBox()
Me.cb_White2 = New System.Windows.Forms.CheckBox()
Me.cb_Black2 = New System.Windows.Forms.CheckBox()
Me.cb_White = New System.Windows.Forms.CheckBox()
Me.cb_Black = New System.Windows.Forms.CheckBox()
Me.gb_Region = New System.Windows.Forms.GroupBox()
Me.cb_Region = New System.Windows.Forms.ComboBox()
Me.lklb_Author = New System.Windows.Forms.LinkLabel()
Me.lb_By = New System.Windows.Forms.Label()
Me.bt_Build = New System.Windows.Forms.Button()
Me.bt_PGF = New System.Windows.Forms.Button()
Me.gb_DateLimit = New System.Windows.Forms.GroupBox()
Me.bt_ResetDate = New System.Windows.Forms.Button()
Me.cb_MaxLimit = New System.Windows.Forms.CheckBox()
Me.bt_SetDate = New System.Windows.Forms.Button()
Me.lb_End = New System.Windows.Forms.Label()
Me.lb_Start = New System.Windows.Forms.Label()
Me.EndDatePicker = New System.Windows.Forms.DateTimePicker()
Me.StartDatePicker = New System.Windows.Forms.DateTimePicker()
Me.lb_EventMsg = New System.Windows.Forms.Label()
Me.rtb_EventMsg = New System.Windows.Forms.RichTextBox()
Me.lklb_Author = New System.Windows.Forms.LinkLabel()
Me.lb_By = New System.Windows.Forms.Label()
Me.gb_Region = New System.Windows.Forms.GroupBox()
Me.bt_ResetRegion = New System.Windows.Forms.Button()
Me.cb_Region = New System.Windows.Forms.ComboBox()
Me.bt_SetRegion = New System.Windows.Forms.Button()
Me.bt_Custom = New System.Windows.Forms.Button()
Me.lb_PGF = New System.Windows.Forms.Label()
Me.bt_PGF = New System.Windows.Forms.Button()
Me.tc_Cards = New System.Windows.Forms.TabControl()
Me.tp_Add = New System.Windows.Forms.TabPage()
Me.pnl_EditCard = New System.Windows.Forms.Panel()
Me.bt_Build = New System.Windows.Forms.Button()
Me.gb_GameComp = New System.Windows.Forms.GroupBox()
Me.bt_ResetCompatibility = New System.Windows.Forms.Button()
Me.cb_White2 = New System.Windows.Forms.CheckBox()
Me.cb_Black2 = New System.Windows.Forms.CheckBox()
Me.bt_SetCompatibility = New System.Windows.Forms.Button()
Me.cb_White = New System.Windows.Forms.CheckBox()
Me.cb_Black = New System.Windows.Forms.CheckBox()
Me.lb_EventMsg = New System.Windows.Forms.Label()
Me.rtb_EventTitle = New System.Windows.Forms.RichTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.cb_Cards = New System.Windows.Forms.ComboBox()
Me.gb_Main = New System.Windows.Forms.GroupBox()
Me.gb_Text = New System.Windows.Forms.GroupBox()
Me.lb_CharCountNumber = New System.Windows.Forms.Label()
Me.lb_CharCount = New System.Windows.Forms.Label()
Me.bt_ResetEventMsg = New System.Windows.Forms.Button()
Me.bt_SetEventMsg = New System.Windows.Forms.Button()
Me.gb_Cards = New System.Windows.Forms.GroupBox()
Me.bt_ClearForm = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.pb_Donate, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gb_GameComp.SuspendLayout()
Me.gb_Region.SuspendLayout()
Me.gb_DateLimit.SuspendLayout()
Me.tc_Cards.SuspendLayout()
Me.tp_Add.SuspendLayout()
Me.pnl_EditCard.SuspendLayout()
Me.gb_Region.SuspendLayout()
Me.gb_GameComp.SuspendLayout()
Me.gb_Main.SuspendLayout()
Me.gb_Text.SuspendLayout()
Me.gb_Cards.SuspendLayout()
Me.SuspendLayout()
'
'lklb_Update
'
Me.lklb_Update.AutoSize = True
Me.lklb_Update.Location = New System.Drawing.Point(1, 4)
Me.lklb_Update.Location = New System.Drawing.Point(8, 9)
Me.lklb_Update.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lklb_Update.Name = "lklb_Update"
Me.lklb_Update.Size = New System.Drawing.Size(116, 13)
Me.lklb_Update.Size = New System.Drawing.Size(145, 16)
Me.lklb_Update.TabIndex = 6
Me.lklb_Update.TabStop = True
Me.lklb_Update.Text = "New Update Available!"
@@ -82,40 +95,27 @@ Partial Class Main5
'
Me.MenuStrip1.BackColor = System.Drawing.Color.Transparent
Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmi_Options})
Me.MenuStrip1.Location = New System.Drawing.Point(113, 0)
Me.MenuStrip1.Location = New System.Drawing.Point(151, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(69, 24)
Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip1.Size = New System.Drawing.Size(82, 28)
Me.MenuStrip1.Stretch = False
Me.MenuStrip1.TabIndex = 29
Me.MenuStrip1.Text = "MenuStrip1"
'
'tsmi_Options
'
Me.tsmi_Options.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tscb_Region, Me.ToolStripSeparator1, Me.tsmi_About, Me.ToolStripMenuItem2})
Me.tsmi_Options.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmi_About, Me.ToolStripMenuItem2})
Me.tsmi_Options.Name = "tsmi_Options"
Me.tsmi_Options.Size = New System.Drawing.Size(61, 20)
Me.tsmi_Options.Size = New System.Drawing.Size(75, 24)
Me.tsmi_Options.Text = "Options"
'
'tscb_Region
'
Me.tscb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.tscb_Region.DropDownWidth = 170
Me.tscb_Region.FlatStyle = System.Windows.Forms.FlatStyle.Standard
Me.tscb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.tscb_Region.Name = "tscb_Region"
Me.tscb_Region.Size = New System.Drawing.Size(130, 23)
Me.tscb_Region.ToolTipText = "Default Region"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(187, 6)
'
'tsmi_About
'
Me.tsmi_About.Name = "tsmi_About"
Me.tsmi_About.Size = New System.Drawing.Size(190, 22)
Me.tsmi_About.Size = New System.Drawing.Size(224, 26)
Me.tsmi_About.Text = "About"
'
'ToolStripMenuItem2
@@ -125,7 +125,7 @@ Partial Class Main5
Me.ToolStripMenuItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(215, 22)
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(224, 26)
Me.ToolStripMenuItem2.Text = " Donate"
Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
@@ -135,173 +135,20 @@ Partial Class Main5
Me.pb_Donate.BackgroundImage = CType(resources.GetObject("pb_Donate.BackgroundImage"), System.Drawing.Image)
Me.pb_Donate.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pb_Donate.Cursor = System.Windows.Forms.Cursors.Hand
Me.pb_Donate.Location = New System.Drawing.Point(218, 3)
Me.pb_Donate.Location = New System.Drawing.Point(641, 9)
Me.pb_Donate.Margin = New System.Windows.Forms.Padding(4)
Me.pb_Donate.Name = "pb_Donate"
Me.pb_Donate.Size = New System.Drawing.Size(80, 22)
Me.pb_Donate.Size = New System.Drawing.Size(107, 27)
Me.pb_Donate.TabIndex = 32
Me.pb_Donate.TabStop = False
'
'gb_GameComp
'
Me.gb_GameComp.Controls.Add(Me.cb_White2)
Me.gb_GameComp.Controls.Add(Me.cb_Black2)
Me.gb_GameComp.Controls.Add(Me.cb_White)
Me.gb_GameComp.Controls.Add(Me.cb_Black)
Me.gb_GameComp.Location = New System.Drawing.Point(6, 67)
Me.gb_GameComp.Name = "gb_GameComp"
Me.gb_GameComp.Size = New System.Drawing.Size(142, 66)
Me.gb_GameComp.TabIndex = 33
Me.gb_GameComp.TabStop = False
Me.gb_GameComp.Text = "Game Compatibility"
'
'cb_White2
'
Me.cb_White2.AutoSize = True
Me.cb_White2.Location = New System.Drawing.Point(73, 41)
Me.cb_White2.Name = "cb_White2"
Me.cb_White2.Size = New System.Drawing.Size(63, 17)
Me.cb_White2.TabIndex = 3
Me.cb_White2.Text = "White 2"
Me.cb_White2.UseVisualStyleBackColor = True
'
'cb_Black2
'
Me.cb_Black2.AutoSize = True
Me.cb_Black2.Location = New System.Drawing.Point(12, 41)
Me.cb_Black2.Name = "cb_Black2"
Me.cb_Black2.Size = New System.Drawing.Size(62, 17)
Me.cb_Black2.TabIndex = 2
Me.cb_Black2.Text = "Black 2"
Me.cb_Black2.UseVisualStyleBackColor = True
'
'cb_White
'
Me.cb_White.AutoSize = True
Me.cb_White.Location = New System.Drawing.Point(73, 18)
Me.cb_White.Name = "cb_White"
Me.cb_White.Size = New System.Drawing.Size(54, 17)
Me.cb_White.TabIndex = 1
Me.cb_White.Text = "White"
Me.cb_White.UseVisualStyleBackColor = True
'
'cb_Black
'
Me.cb_Black.AutoSize = True
Me.cb_Black.Location = New System.Drawing.Point(12, 18)
Me.cb_Black.Name = "cb_Black"
Me.cb_Black.Size = New System.Drawing.Size(53, 17)
Me.cb_Black.TabIndex = 0
Me.cb_Black.Text = "Black"
Me.cb_Black.UseVisualStyleBackColor = True
'
'gb_Region
'
Me.gb_Region.Controls.Add(Me.cb_Region)
Me.gb_Region.Location = New System.Drawing.Point(6, 139)
Me.gb_Region.Name = "gb_Region"
Me.gb_Region.Size = New System.Drawing.Size(142, 41)
Me.gb_Region.TabIndex = 34
Me.gb_Region.TabStop = False
Me.gb_Region.Text = "Region"
'
'cb_Region
'
Me.cb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Region.FormattingEnabled = True
Me.cb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.cb_Region.Location = New System.Drawing.Point(6, 14)
Me.cb_Region.Name = "cb_Region"
Me.cb_Region.Size = New System.Drawing.Size(130, 21)
Me.cb_Region.TabIndex = 35
'
'gb_DateLimit
'
Me.gb_DateLimit.Controls.Add(Me.cb_MaxLimit)
Me.gb_DateLimit.Controls.Add(Me.lb_End)
Me.gb_DateLimit.Controls.Add(Me.lb_Start)
Me.gb_DateLimit.Controls.Add(Me.EndDatePicker)
Me.gb_DateLimit.Controls.Add(Me.StartDatePicker)
Me.gb_DateLimit.Location = New System.Drawing.Point(155, 67)
Me.gb_DateLimit.Name = "gb_DateLimit"
Me.gb_DateLimit.Size = New System.Drawing.Size(117, 113)
Me.gb_DateLimit.TabIndex = 35
Me.gb_DateLimit.TabStop = False
Me.gb_DateLimit.Text = "Date Limit"
'
'cb_MaxLimit
'
Me.cb_MaxLimit.AutoSize = True
Me.cb_MaxLimit.Location = New System.Drawing.Point(12, 89)
Me.cb_MaxLimit.Name = "cb_MaxLimit"
Me.cb_MaxLimit.Size = New System.Drawing.Size(95, 17)
Me.cb_MaxLimit.TabIndex = 4
Me.cb_MaxLimit.Text = "Auto Max Limit"
Me.cb_MaxLimit.UseVisualStyleBackColor = True
'
'lb_End
'
Me.lb_End.AutoSize = True
Me.lb_End.Location = New System.Drawing.Point(8, 51)
Me.lb_End.Name = "lb_End"
Me.lb_End.Size = New System.Drawing.Size(29, 13)
Me.lb_End.TabIndex = 3
Me.lb_End.Text = "End:"
'
'lb_Start
'
Me.lb_Start.AutoSize = True
Me.lb_Start.Location = New System.Drawing.Point(8, 16)
Me.lb_Start.Name = "lb_Start"
Me.lb_Start.Size = New System.Drawing.Size(32, 13)
Me.lb_Start.TabIndex = 2
Me.lb_Start.Text = "Start:"
'
'EndDatePicker
'
Me.EndDatePicker.CustomFormat = "yyyy/MM/dd"
Me.EndDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.EndDatePicker.Location = New System.Drawing.Point(8, 64)
Me.EndDatePicker.Name = "EndDatePicker"
Me.EndDatePicker.Size = New System.Drawing.Size(102, 20)
Me.EndDatePicker.TabIndex = 1
Me.EndDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'StartDatePicker
'
Me.StartDatePicker.CustomFormat = "yyyy/MM/dd"
Me.StartDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.StartDatePicker.Location = New System.Drawing.Point(8, 29)
Me.StartDatePicker.Name = "StartDatePicker"
Me.StartDatePicker.Size = New System.Drawing.Size(102, 20)
Me.StartDatePicker.TabIndex = 0
Me.StartDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'lb_EventMsg
'
Me.lb_EventMsg.AutoSize = True
Me.lb_EventMsg.Location = New System.Drawing.Point(30, 183)
Me.lb_EventMsg.Name = "lb_EventMsg"
Me.lb_EventMsg.Size = New System.Drawing.Size(84, 13)
Me.lb_EventMsg.TabIndex = 37
Me.lb_EventMsg.Text = "Event Message:"
'
'rtb_EventMsg
'
Me.rtb_EventMsg.Location = New System.Drawing.Point(30, 196)
Me.rtb_EventMsg.MaxLength = 252
Me.rtb_EventMsg.Name = "rtb_EventMsg"
Me.rtb_EventMsg.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
Me.rtb_EventMsg.Size = New System.Drawing.Size(223, 97)
Me.rtb_EventMsg.TabIndex = 36
Me.rtb_EventMsg.Text = ""
Me.rtb_EventMsg.WordWrap = False
'
'lklb_Author
'
Me.lklb_Author.AutoSize = True
Me.lklb_Author.Location = New System.Drawing.Point(15, 434)
Me.lklb_Author.Location = New System.Drawing.Point(31, 607)
Me.lklb_Author.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lklb_Author.Name = "lklb_Author"
Me.lklb_Author.Size = New System.Drawing.Size(47, 13)
Me.lklb_Author.Size = New System.Drawing.Size(58, 16)
Me.lklb_Author.TabIndex = 40
Me.lklb_Author.TabStop = True
Me.lklb_Author.Text = "Regnum"
@@ -309,121 +156,464 @@ Partial Class Main5
'lb_By
'
Me.lb_By.AutoSize = True
Me.lb_By.Location = New System.Drawing.Point(1, 434)
Me.lb_By.Location = New System.Drawing.Point(12, 607)
Me.lb_By.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_By.Name = "lb_By"
Me.lb_By.Size = New System.Drawing.Size(18, 13)
Me.lb_By.Size = New System.Drawing.Size(22, 16)
Me.lb_By.TabIndex = 41
Me.lb_By.Text = "by"
'
'bt_Custom
'
Me.bt_Custom.Font = New System.Drawing.Font("Microsoft Sans Serif", 32.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Document, CType(0, Byte))
Me.bt_Custom.Location = New System.Drawing.Point(6, 6)
Me.bt_Custom.Name = "bt_Custom"
Me.bt_Custom.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.bt_Custom.Size = New System.Drawing.Size(130, 23)
Me.bt_Custom.TabIndex = 44
Me.bt_Custom.Text = "Custom"
Me.bt_Custom.UseVisualStyleBackColor = True
'
'lb_PGF
'
Me.lb_PGF.AutoEllipsis = True
Me.lb_PGF.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lb_PGF.Location = New System.Drawing.Point(6, 38)
Me.lb_PGF.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
Me.lb_PGF.Name = "lb_PGF"
Me.lb_PGF.Size = New System.Drawing.Size(266, 17)
Me.lb_PGF.TabIndex = 43
Me.lb_PGF.Text = "▲▲▲ Open .pgf"
Me.lb_PGF.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'bt_PGF
'
Me.bt_PGF.Location = New System.Drawing.Point(142, 6)
Me.bt_PGF.Name = "bt_PGF"
Me.bt_PGF.Size = New System.Drawing.Size(130, 23)
Me.bt_PGF.TabIndex = 42
Me.bt_PGF.Text = "Open .pgf"
Me.bt_PGF.UseVisualStyleBackColor = True
'
'tc_Cards
'
Me.tc_Cards.Controls.Add(Me.tp_Add)
Me.tc_Cards.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tc_Cards.ItemSize = New System.Drawing.Size(21, 18)
Me.tc_Cards.Location = New System.Drawing.Point(8, 27)
Me.tc_Cards.Name = "tc_Cards"
Me.tc_Cards.Padding = New System.Drawing.Point(2, 3)
Me.tc_Cards.SelectedIndex = 0
Me.tc_Cards.Size = New System.Drawing.Size(286, 341)
Me.tc_Cards.TabIndex = 45
'
'tp_Add
'
Me.tp_Add.Controls.Add(Me.pnl_EditCard)
Me.tp_Add.Location = New System.Drawing.Point(4, 22)
Me.tp_Add.Name = "tp_Add"
Me.tp_Add.Padding = New System.Windows.Forms.Padding(3)
Me.tp_Add.Size = New System.Drawing.Size(278, 315)
Me.tp_Add.TabIndex = 1
Me.tp_Add.Text = " +"
Me.tp_Add.UseVisualStyleBackColor = True
'
'pnl_EditCard
'
Me.pnl_EditCard.Controls.Add(Me.lb_EventMsg)
Me.pnl_EditCard.Controls.Add(Me.gb_GameComp)
Me.pnl_EditCard.Controls.Add(Me.bt_Custom)
Me.pnl_EditCard.Controls.Add(Me.gb_Region)
Me.pnl_EditCard.Controls.Add(Me.rtb_EventMsg)
Me.pnl_EditCard.Controls.Add(Me.lb_PGF)
Me.pnl_EditCard.Controls.Add(Me.gb_DateLimit)
Me.pnl_EditCard.Controls.Add(Me.bt_PGF)
Me.pnl_EditCard.Location = New System.Drawing.Point(0, 0)
Me.pnl_EditCard.Name = "pnl_EditCard"
Me.pnl_EditCard.Size = New System.Drawing.Size(278, 315)
Me.pnl_EditCard.TabIndex = 45
'
'bt_Build
'
Me.bt_Build.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.bt_Build.Location = New System.Drawing.Point(95, 380)
Me.bt_Build.Location = New System.Drawing.Point(204, 546)
Me.bt_Build.Margin = New System.Windows.Forms.Padding(4)
Me.bt_Build.Name = "bt_Build"
Me.bt_Build.Size = New System.Drawing.Size(128, 46)
Me.bt_Build.Size = New System.Drawing.Size(171, 57)
Me.bt_Build.TabIndex = 46
Me.bt_Build.Text = "Build Event ROM"
Me.bt_Build.UseVisualStyleBackColor = True
'
'bt_PGF
'
Me.bt_PGF.Location = New System.Drawing.Point(189, 33)
Me.bt_PGF.Margin = New System.Windows.Forms.Padding(4)
Me.bt_PGF.Name = "bt_PGF"
Me.bt_PGF.Size = New System.Drawing.Size(173, 28)
Me.bt_PGF.TabIndex = 42
Me.bt_PGF.Text = "Open .pgf"
Me.bt_PGF.UseVisualStyleBackColor = True
'
'gb_DateLimit
'
Me.gb_DateLimit.Controls.Add(Me.bt_ResetDate)
Me.gb_DateLimit.Controls.Add(Me.cb_MaxLimit)
Me.gb_DateLimit.Controls.Add(Me.bt_SetDate)
Me.gb_DateLimit.Controls.Add(Me.lb_End)
Me.gb_DateLimit.Controls.Add(Me.lb_Start)
Me.gb_DateLimit.Controls.Add(Me.EndDatePicker)
Me.gb_DateLimit.Controls.Add(Me.StartDatePicker)
Me.gb_DateLimit.Location = New System.Drawing.Point(9, 352)
Me.gb_DateLimit.Margin = New System.Windows.Forms.Padding(4)
Me.gb_DateLimit.Name = "gb_DateLimit"
Me.gb_DateLimit.Padding = New System.Windows.Forms.Padding(4)
Me.gb_DateLimit.Size = New System.Drawing.Size(355, 139)
Me.gb_DateLimit.TabIndex = 35
Me.gb_DateLimit.TabStop = False
Me.gb_DateLimit.Text = "Date Limit"
'
'bt_ResetDate
'
Me.bt_ResetDate.Location = New System.Drawing.Point(181, 92)
Me.bt_ResetDate.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_ResetDate.Name = "bt_ResetDate"
Me.bt_ResetDate.Size = New System.Drawing.Size(73, 41)
Me.bt_ResetDate.TabIndex = 49
Me.bt_ResetDate.Text = "Reset"
Me.bt_ResetDate.UseVisualStyleBackColor = True
'
'cb_MaxLimit
'
Me.cb_MaxLimit.AutoSize = True
Me.cb_MaxLimit.Location = New System.Drawing.Point(127, 65)
Me.cb_MaxLimit.Margin = New System.Windows.Forms.Padding(4)
Me.cb_MaxLimit.Name = "cb_MaxLimit"
Me.cb_MaxLimit.Size = New System.Drawing.Size(114, 20)
Me.cb_MaxLimit.TabIndex = 4
Me.cb_MaxLimit.Text = "Auto Max Limit"
Me.cb_MaxLimit.UseVisualStyleBackColor = True
'
'bt_SetDate
'
Me.bt_SetDate.Location = New System.Drawing.Point(100, 91)
Me.bt_SetDate.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_SetDate.Name = "bt_SetDate"
Me.bt_SetDate.Size = New System.Drawing.Size(73, 41)
Me.bt_SetDate.TabIndex = 48
Me.bt_SetDate.Text = "Set"
Me.bt_SetDate.UseVisualStyleBackColor = True
'
'lb_End
'
Me.lb_End.AutoSize = True
Me.lb_End.Location = New System.Drawing.Point(188, 18)
Me.lb_End.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_End.Name = "lb_End"
Me.lb_End.Size = New System.Drawing.Size(34, 16)
Me.lb_End.TabIndex = 3
Me.lb_End.Text = "End:"
'
'lb_Start
'
Me.lb_Start.AutoSize = True
Me.lb_Start.Location = New System.Drawing.Point(32, 18)
Me.lb_Start.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_Start.Name = "lb_Start"
Me.lb_Start.Size = New System.Drawing.Size(37, 16)
Me.lb_Start.TabIndex = 2
Me.lb_Start.Text = "Start:"
'
'EndDatePicker
'
Me.EndDatePicker.CustomFormat = "yyyy/MM/dd"
Me.EndDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.EndDatePicker.Location = New System.Drawing.Point(188, 34)
Me.EndDatePicker.Margin = New System.Windows.Forms.Padding(4)
Me.EndDatePicker.Name = "EndDatePicker"
Me.EndDatePicker.Size = New System.Drawing.Size(135, 22)
Me.EndDatePicker.TabIndex = 1
Me.EndDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'StartDatePicker
'
Me.StartDatePicker.CustomFormat = "yyyy/MM/dd"
Me.StartDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.StartDatePicker.Location = New System.Drawing.Point(32, 34)
Me.StartDatePicker.Margin = New System.Windows.Forms.Padding(4)
Me.StartDatePicker.Name = "StartDatePicker"
Me.StartDatePicker.Size = New System.Drawing.Size(135, 22)
Me.StartDatePicker.TabIndex = 0
Me.StartDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'rtb_EventMsg
'
Me.rtb_EventMsg.Location = New System.Drawing.Point(7, 95)
Me.rtb_EventMsg.Margin = New System.Windows.Forms.Padding(4)
Me.rtb_EventMsg.MaxLength = 252
Me.rtb_EventMsg.Name = "rtb_EventMsg"
Me.rtb_EventMsg.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
Me.rtb_EventMsg.Size = New System.Drawing.Size(337, 122)
Me.rtb_EventMsg.TabIndex = 36
Me.rtb_EventMsg.Text = resources.GetString("rtb_EventMsg.Text")
Me.rtb_EventMsg.WordWrap = False
'
'gb_Region
'
Me.gb_Region.Controls.Add(Me.bt_ResetRegion)
Me.gb_Region.Controls.Add(Me.cb_Region)
Me.gb_Region.Controls.Add(Me.bt_SetRegion)
Me.gb_Region.Location = New System.Drawing.Point(8, 130)
Me.gb_Region.Margin = New System.Windows.Forms.Padding(4)
Me.gb_Region.Name = "gb_Region"
Me.gb_Region.Padding = New System.Windows.Forms.Padding(4)
Me.gb_Region.Size = New System.Drawing.Size(355, 102)
Me.gb_Region.TabIndex = 34
Me.gb_Region.TabStop = False
Me.gb_Region.Text = "Region"
'
'bt_ResetRegion
'
Me.bt_ResetRegion.Location = New System.Drawing.Point(181, 49)
Me.bt_ResetRegion.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_ResetRegion.Name = "bt_ResetRegion"
Me.bt_ResetRegion.Size = New System.Drawing.Size(73, 41)
Me.bt_ResetRegion.TabIndex = 49
Me.bt_ResetRegion.Text = "Reset"
Me.bt_ResetRegion.UseVisualStyleBackColor = True
'
'cb_Region
'
Me.cb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Region.FormattingEnabled = True
Me.cb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.cb_Region.Location = New System.Drawing.Point(8, 17)
Me.cb_Region.Margin = New System.Windows.Forms.Padding(4)
Me.cb_Region.Name = "cb_Region"
Me.cb_Region.Size = New System.Drawing.Size(337, 24)
Me.cb_Region.TabIndex = 35
'
'bt_SetRegion
'
Me.bt_SetRegion.Location = New System.Drawing.Point(100, 48)
Me.bt_SetRegion.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_SetRegion.Name = "bt_SetRegion"
Me.bt_SetRegion.Size = New System.Drawing.Size(73, 41)
Me.bt_SetRegion.TabIndex = 48
Me.bt_SetRegion.Text = "Set"
Me.bt_SetRegion.UseVisualStyleBackColor = True
'
'bt_Custom
'
Me.bt_Custom.Font = New System.Drawing.Font("Microsoft Sans Serif", 32.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Document, CType(0, Byte))
Me.bt_Custom.Location = New System.Drawing.Point(8, 33)
Me.bt_Custom.Margin = New System.Windows.Forms.Padding(4)
Me.bt_Custom.Name = "bt_Custom"
Me.bt_Custom.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.bt_Custom.Size = New System.Drawing.Size(173, 28)
Me.bt_Custom.TabIndex = 44
Me.bt_Custom.Text = "Custom"
Me.bt_Custom.UseVisualStyleBackColor = True
'
'gb_GameComp
'
Me.gb_GameComp.Controls.Add(Me.bt_ResetCompatibility)
Me.gb_GameComp.Controls.Add(Me.cb_White2)
Me.gb_GameComp.Controls.Add(Me.cb_Black2)
Me.gb_GameComp.Controls.Add(Me.bt_SetCompatibility)
Me.gb_GameComp.Controls.Add(Me.cb_White)
Me.gb_GameComp.Controls.Add(Me.cb_Black)
Me.gb_GameComp.Location = New System.Drawing.Point(9, 240)
Me.gb_GameComp.Margin = New System.Windows.Forms.Padding(4)
Me.gb_GameComp.Name = "gb_GameComp"
Me.gb_GameComp.Padding = New System.Windows.Forms.Padding(4)
Me.gb_GameComp.Size = New System.Drawing.Size(355, 105)
Me.gb_GameComp.TabIndex = 33
Me.gb_GameComp.TabStop = False
Me.gb_GameComp.Text = "Game Compatibility"
'
'bt_ResetCompatibility
'
Me.bt_ResetCompatibility.Location = New System.Drawing.Point(181, 50)
Me.bt_ResetCompatibility.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_ResetCompatibility.Name = "bt_ResetCompatibility"
Me.bt_ResetCompatibility.Size = New System.Drawing.Size(73, 41)
Me.bt_ResetCompatibility.TabIndex = 49
Me.bt_ResetCompatibility.Text = "Reset"
Me.bt_ResetCompatibility.UseVisualStyleBackColor = True
'
'cb_White2
'
Me.cb_White2.AutoSize = True
Me.cb_White2.Location = New System.Drawing.Point(249, 22)
Me.cb_White2.Margin = New System.Windows.Forms.Padding(4)
Me.cb_White2.Name = "cb_White2"
Me.cb_White2.Size = New System.Drawing.Size(73, 20)
Me.cb_White2.TabIndex = 3
Me.cb_White2.Text = "White 2"
Me.cb_White2.UseVisualStyleBackColor = True
'
'cb_Black2
'
Me.cb_Black2.AutoSize = True
Me.cb_Black2.Location = New System.Drawing.Point(168, 22)
Me.cb_Black2.Margin = New System.Windows.Forms.Padding(4)
Me.cb_Black2.Name = "cb_Black2"
Me.cb_Black2.Size = New System.Drawing.Size(73, 20)
Me.cb_Black2.TabIndex = 2
Me.cb_Black2.Text = "Black 2"
Me.cb_Black2.UseVisualStyleBackColor = True
'
'bt_SetCompatibility
'
Me.bt_SetCompatibility.Location = New System.Drawing.Point(100, 49)
Me.bt_SetCompatibility.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_SetCompatibility.Name = "bt_SetCompatibility"
Me.bt_SetCompatibility.Size = New System.Drawing.Size(73, 41)
Me.bt_SetCompatibility.TabIndex = 48
Me.bt_SetCompatibility.Text = "Set"
Me.bt_SetCompatibility.UseVisualStyleBackColor = True
'
'cb_White
'
Me.cb_White.AutoSize = True
Me.cb_White.Location = New System.Drawing.Point(97, 22)
Me.cb_White.Margin = New System.Windows.Forms.Padding(4)
Me.cb_White.Name = "cb_White"
Me.cb_White.Size = New System.Drawing.Size(63, 20)
Me.cb_White.TabIndex = 1
Me.cb_White.Text = "White"
Me.cb_White.UseVisualStyleBackColor = True
'
'cb_Black
'
Me.cb_Black.AutoSize = True
Me.cb_Black.Location = New System.Drawing.Point(16, 22)
Me.cb_Black.Margin = New System.Windows.Forms.Padding(4)
Me.cb_Black.Name = "cb_Black"
Me.cb_Black.Size = New System.Drawing.Size(63, 20)
Me.cb_Black.TabIndex = 0
Me.cb_Black.Text = "Black"
Me.cb_Black.UseVisualStyleBackColor = True
'
'lb_EventMsg
'
Me.lb_EventMsg.AutoSize = True
Me.lb_EventMsg.Location = New System.Drawing.Point(7, 79)
Me.lb_EventMsg.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_EventMsg.Name = "lb_EventMsg"
Me.lb_EventMsg.Size = New System.Drawing.Size(104, 16)
Me.lb_EventMsg.TabIndex = 37
Me.lb_EventMsg.Text = "Event Message:"
'
'rtb_EventTitle
'
Me.rtb_EventTitle.BackColor = System.Drawing.Color.White
Me.rtb_EventTitle.Location = New System.Drawing.Point(7, 37)
Me.rtb_EventTitle.Margin = New System.Windows.Forms.Padding(4)
Me.rtb_EventTitle.MaxLength = 24
Me.rtb_EventTitle.Name = "rtb_EventTitle"
Me.rtb_EventTitle.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
Me.rtb_EventTitle.Size = New System.Drawing.Size(337, 34)
Me.rtb_EventTitle.TabIndex = 45
Me.rtb_EventTitle.Text = "Input Event Title Here."
Me.rtb_EventTitle.WordWrap = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(7, 21)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 16)
Me.Label1.TabIndex = 46
Me.Label1.Text = "Event Title"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(-195, 71)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(106, 16)
Me.Label3.TabIndex = 47
Me.Label3.Text = "Event File Name"
'
'cb_Cards
'
Me.cb_Cards.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Cards.FormattingEnabled = True
Me.cb_Cards.Location = New System.Drawing.Point(7, 22)
Me.cb_Cards.Margin = New System.Windows.Forms.Padding(4)
Me.cb_Cards.MaxDropDownItems = 6
Me.cb_Cards.MaxLength = 12
Me.cb_Cards.Name = "cb_Cards"
Me.cb_Cards.Size = New System.Drawing.Size(337, 24)
Me.cb_Cards.TabIndex = 36
'
'gb_Main
'
Me.gb_Main.Controls.Add(Me.gb_Text)
Me.gb_Main.Controls.Add(Me.gb_Cards)
Me.gb_Main.Controls.Add(Me.Label3)
Me.gb_Main.Controls.Add(Me.bt_PGF)
Me.gb_Main.Controls.Add(Me.gb_DateLimit)
Me.gb_Main.Controls.Add(Me.gb_Region)
Me.gb_Main.Controls.Add(Me.gb_GameComp)
Me.gb_Main.Controls.Add(Me.bt_Custom)
Me.gb_Main.Location = New System.Drawing.Point(11, 38)
Me.gb_Main.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.gb_Main.Name = "gb_Main"
Me.gb_Main.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.gb_Main.Size = New System.Drawing.Size(737, 502)
Me.gb_Main.TabIndex = 47
Me.gb_Main.TabStop = False
Me.gb_Main.Text = "Distribution ROM"
'
'gb_Text
'
Me.gb_Text.Controls.Add(Me.lb_CharCountNumber)
Me.gb_Text.Controls.Add(Me.lb_CharCount)
Me.gb_Text.Controls.Add(Me.rtb_EventMsg)
Me.gb_Text.Controls.Add(Me.lb_EventMsg)
Me.gb_Text.Controls.Add(Me.bt_ResetEventMsg)
Me.gb_Text.Controls.Add(Me.rtb_EventTitle)
Me.gb_Text.Controls.Add(Me.bt_SetEventMsg)
Me.gb_Text.Controls.Add(Me.Label1)
Me.gb_Text.Location = New System.Drawing.Point(371, 68)
Me.gb_Text.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.gb_Text.Name = "gb_Text"
Me.gb_Text.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.gb_Text.Size = New System.Drawing.Size(355, 277)
Me.gb_Text.TabIndex = 51
Me.gb_Text.TabStop = False
Me.gb_Text.Text = "Event"
'
'lb_CharCountNumber
'
Me.lb_CharCountNumber.AutoSize = True
Me.lb_CharCountNumber.Location = New System.Drawing.Point(316, 79)
Me.lb_CharCountNumber.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_CharCountNumber.Name = "lb_CharCountNumber"
Me.lb_CharCountNumber.Size = New System.Drawing.Size(14, 16)
Me.lb_CharCountNumber.TabIndex = 51
Me.lb_CharCountNumber.Text = "0"
Me.lb_CharCountNumber.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lb_CharCount
'
Me.lb_CharCount.AutoSize = True
Me.lb_CharCount.Location = New System.Drawing.Point(240, 79)
Me.lb_CharCount.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lb_CharCount.Name = "lb_CharCount"
Me.lb_CharCount.Size = New System.Drawing.Size(73, 16)
Me.lb_CharCount.TabIndex = 50
Me.lb_CharCount.Text = "Char count:"
'
'bt_ResetEventMsg
'
Me.bt_ResetEventMsg.Location = New System.Drawing.Point(176, 224)
Me.bt_ResetEventMsg.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_ResetEventMsg.Name = "bt_ResetEventMsg"
Me.bt_ResetEventMsg.Size = New System.Drawing.Size(73, 41)
Me.bt_ResetEventMsg.TabIndex = 49
Me.bt_ResetEventMsg.Text = "Reset"
Me.bt_ResetEventMsg.UseVisualStyleBackColor = True
'
'bt_SetEventMsg
'
Me.bt_SetEventMsg.Location = New System.Drawing.Point(97, 224)
Me.bt_SetEventMsg.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.bt_SetEventMsg.Name = "bt_SetEventMsg"
Me.bt_SetEventMsg.Size = New System.Drawing.Size(73, 41)
Me.bt_SetEventMsg.TabIndex = 48
Me.bt_SetEventMsg.Text = "Set"
Me.bt_SetEventMsg.UseVisualStyleBackColor = True
'
'gb_Cards
'
Me.gb_Cards.Controls.Add(Me.cb_Cards)
Me.gb_Cards.Location = New System.Drawing.Point(8, 68)
Me.gb_Cards.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.gb_Cards.Name = "gb_Cards"
Me.gb_Cards.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.gb_Cards.Size = New System.Drawing.Size(355, 55)
Me.gb_Cards.TabIndex = 50
Me.gb_Cards.TabStop = False
Me.gb_Cards.Text = "Cards Selected"
'
'bt_ClearForm
'
Me.bt_ClearForm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.bt_ClearForm.Location = New System.Drawing.Point(382, 546)
Me.bt_ClearForm.Margin = New System.Windows.Forms.Padding(4)
Me.bt_ClearForm.Name = "bt_ClearForm"
Me.bt_ClearForm.Size = New System.Drawing.Size(171, 57)
Me.bt_ClearForm.TabIndex = 48
Me.bt_ClearForm.Text = "Clear Form"
Me.bt_ClearForm.UseVisualStyleBackColor = True
'
'Main5
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(302, 450)
Me.ClientSize = New System.Drawing.Size(756, 634)
Me.Controls.Add(Me.bt_ClearForm)
Me.Controls.Add(Me.gb_Main)
Me.Controls.Add(Me.bt_Build)
Me.Controls.Add(Me.tc_Cards)
Me.Controls.Add(Me.lklb_Author)
Me.Controls.Add(Me.lklb_Update)
Me.Controls.Add(Me.lb_By)
Me.Controls.Add(Me.pb_Donate)
Me.Controls.Add(Me.lklb_Update)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Main5"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "PKMG5DC"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.pb_Donate, System.ComponentModel.ISupportInitialize).EndInit()
Me.gb_GameComp.ResumeLayout(False)
Me.gb_GameComp.PerformLayout()
Me.gb_Region.ResumeLayout(False)
Me.gb_DateLimit.ResumeLayout(False)
Me.gb_DateLimit.PerformLayout()
Me.tc_Cards.ResumeLayout(False)
Me.tp_Add.ResumeLayout(False)
Me.pnl_EditCard.ResumeLayout(False)
Me.pnl_EditCard.PerformLayout()
Me.gb_Region.ResumeLayout(False)
Me.gb_GameComp.ResumeLayout(False)
Me.gb_GameComp.PerformLayout()
Me.gb_Main.ResumeLayout(False)
Me.gb_Main.PerformLayout()
Me.gb_Text.ResumeLayout(False)
Me.gb_Text.PerformLayout()
Me.gb_Cards.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -432,34 +622,46 @@ Partial Class Main5
Friend WithEvents lklb_Update As LinkLabel
Friend WithEvents HoverInfo As ToolTip
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents tsmi_Options As ToolStripMenuItem
Friend WithEvents pb_Donate As PictureBox
Friend WithEvents lklb_Author As LinkLabel
Friend WithEvents lb_By As Label
Friend WithEvents bt_Build As Button
Friend WithEvents cb_Cards As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents Label1 As Label
Friend WithEvents rtb_EventTitle As RichTextBox
Friend WithEvents lb_EventMsg As Label
Friend WithEvents gb_GameComp As GroupBox
Friend WithEvents cb_White2 As CheckBox
Friend WithEvents cb_Black2 As CheckBox
Friend WithEvents cb_White As CheckBox
Friend WithEvents cb_Black As CheckBox
Friend WithEvents bt_Custom As Button
Friend WithEvents gb_Region As GroupBox
Friend WithEvents cb_Region As ComboBox
Friend WithEvents rtb_EventMsg As RichTextBox
Friend WithEvents gb_DateLimit As GroupBox
Friend WithEvents cb_MaxLimit As CheckBox
Friend WithEvents lb_End As Label
Friend WithEvents lb_Start As Label
Friend WithEvents EndDatePicker As DateTimePicker
Friend WithEvents StartDatePicker As DateTimePicker
Friend WithEvents lb_EventMsg As Label
Friend WithEvents rtb_EventMsg As RichTextBox
Friend WithEvents lklb_Author As LinkLabel
Friend WithEvents lb_By As Label
Friend WithEvents bt_Custom As Button
Friend WithEvents lb_PGF As Label
Friend WithEvents bt_PGF As Button
Friend WithEvents tc_Cards As TabControl
Friend WithEvents tp_Add As TabPage
Friend WithEvents pnl_EditCard As Panel
Friend WithEvents bt_Build As Button
Friend WithEvents gb_Main As GroupBox
Friend WithEvents bt_SetEventMsg As Button
Friend WithEvents bt_ResetEventMsg As Button
Friend WithEvents bt_ResetDate As Button
Friend WithEvents bt_SetDate As Button
Friend WithEvents gb_Cards As GroupBox
Friend WithEvents gb_Text As GroupBox
Friend WithEvents bt_ResetCompatibility As Button
Friend WithEvents bt_SetCompatibility As Button
Friend WithEvents bt_ResetRegion As Button
Friend WithEvents bt_SetRegion As Button
Friend WithEvents lb_CharCountNumber As Label
Friend WithEvents lb_CharCount As Label
Friend WithEvents tsmi_Options As ToolStripMenuItem
Friend WithEvents tsmi_About As ToolStripMenuItem
Friend WithEvents tscb_Region As ToolStripComboBox
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents bt_ClearForm As Button
End Class

14
PKMG5DC/Main5.resx
View File

@@ -123,11 +123,14 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="HoverInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="pb_Donate.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAFAAAAAWCAYAAABXEBvcAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMS41ZEdYUgAABn5JREFUWEftl3tU
vAAADrwBlbxySQAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMS41ZEdYUgAABn5JREFUWEftl3tU
VEUcx69kL7VIUdJTHv8p3yIIIqCJjzTRo4hmkMcMMR4LooC8QhcQFpDloYI8BGF5LA8TgYUFXURRSaEk
kwRJAUVQsofHMsEg7/yamV02idmDeOwfYc75nr0zv99v7v197m9m9nKaGkrQn44yFkfyxx3q0Vmfx6g6
CNDFsMEhkivJudShDqUviSAsVFj6b3Bw7niUvSqLrwpCqE0GqL1kcAszwCx4PntlFkqe97YKE7uhRANT
@@ -157,6 +160,15 @@
EwxmESYFK64SRipc7IYy9EYiqUkYOvFpxxBIrIv4RD9u8xBJjcPgkOEIFab+G2QZjkXphq583vJSJF/f
jo5bd2OoMCiEc+Xl6++ivOVylGawDYMbq8Lyn8Zx/wCJ2xrGBkXjxAAAAABJRU5ErkJggg==
</value>
</data>
<data name="rtb_EventMsg.Text" xml:space="preserve">
<value>Input Event Text Here.
This textbox is sized perfectly, so what fits in
this box is all you can fit. A maximum of 7
lines, max 36 characters per line, and a
maximum of 252 characters total.
Make sure you put the new lines(ENTER key)</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

586
PKMG5DC/Main5.vb
View File

@@ -11,38 +11,63 @@ Public Class Main5
ReadOnly langCksm As UShort() = {&H83BC, &H9D36, &H39AA, &H4418, &HE061, &HF57A} 'List of Language Checksums
ReadOnly langs As Byte() = {&H2, &H3, &H4, &H5, &H7} 'List of Language values
Public mySettings As New IniFile 'Settings.ini File
Dim pn_Settings As New Pnl_Settings 'Panel Settings
Dim doneLoad As Boolean = False 'Has Load finished?
Dim WC As New PGF 'Wondercard
Public Shared Card As New Card5 'Distro Card
Public ToolVer As String = Application.ProductVersion
Public ToolVer As String = Application.ProductVersion 'Get version
Public Shared customName As String
Dim currItem As Integer 'Selected index on combobox
Dim selectedLang(11) As Integer 'Array of selected language that will be retrieved
Dim TempCard As New Card5 'Temporary variable that store Card
Dim multipleCardsArr(11) 'Array of cards selected by user
#End Region
'Main Procedure
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckLocal()
CheckTicket()
UpdateChk()
Dim tools(,) = {{"\tools\ndstool.exe", My.Resources.ndstool}, {"\tools\extract.bat", "C:
cd " & Local & "\tools
ndstool.exe -x ..\ticket.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin"}, {"\tools\compile.bat", "C:
cd " & Local & "\tools
ndstool.exe -c ..\ticket2.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin"}, {"\tools\clean.bat", "C:
cd " & Local & "\tools
rd /S/Q data
del arm9.bin arm7.bin banner.bin header.bin"}}
Dim tools As Object = {
{"\tools\ndstool.exe", My.Resources.ndstool},
{"\tools\armips.exe", My.Resources.armips},
{"\tools\options.asm", My.Resources.optionsasm},
{"\tools\12distro.asm", My.Resources._12distroasm},
{
"\tools\firstBatch.bat",
"C:" & Environment.NewLine &
"cd " & Local & "\tools" & Environment.NewLine &
"armips.exe 12distro.asm -erroronwarning" & Environment.NewLine &
"ndstool.exe -c 12distro.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin" & Environment.NewLine &
"rd /S/Q data" & Environment.NewLine &
"del arm9.bin arm7.bin banner.bin header.bin" & Environment.NewLine &
"ndstool.exe -x 12distro.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin"
},
{
"\tools\secondBatch.bat",
"C:" & Environment.NewLine &
"cd " & Local & "\tools" & Environment.NewLine &
"ndstool.exe -c ..\ticket2.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin" & Environment.NewLine &
"rd /S/Q data" & Environment.NewLine &
"del arm9.bin arm7.bin banner.bin header.bin"
},
{
"\tools\extract.bat",
"C:" & Environment.NewLine &
"cd " & Local & "\tools" & Environment.NewLine &
"ndstool.exe -x ..\ticket.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin"
}
}
If ToolVer <> Application.ProductVersion Then Directory.Delete(Local & "\tools", True)
CheckLocal()
CreateFiles(tools)
ToolVer = Application.ProductVersion
'For i = 0 To 7
' File.WriteAllBytes(Local & "\cards\Card " & (i + 1) & ".bin", CardPiece.data)
'Next
Tp_Add_Enter(sender, e)
doneLoad = True
cb_Region.SelectedIndex = My.Settings.Region
SyncRegion()
bt_Build.Enabled = False
StateChanger(False)
End Sub
'Handles form closing
Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
WriteSettings()
End Sub
@@ -69,31 +94,30 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
MenuStrip1.Location = New Point(0, 0)
#Else
File.WriteAllText(TempPath & "\date.txt", My.Resources._date)
Dim dat As String = File.ReadAllText(TempPath & "\date.txt")
Me.Text = "PKMG5DC (" & dat & ")"
If My.Computer.Network.IsAvailable Then
Try
My.Computer.Network.DownloadFile("https://raw.githubusercontent.com/PlasticJustice/PKMG5DC/master/PKMG5DC/Resources/date.txt", TempPath & "\dt.txt")
Catch
File.WriteAllText(TempPath & "\dt.txt", " ")
End Try
Dim Reader As New IO.StreamReader(TempPath & "\dt.txt")
Dim dtt As String = Reader.ReadToEnd
Reader.Close()
File.Delete(TempPath & "\dt.txt")
If dat <> dtt Then
lklb_Update.Text = "New Update Available! " & dtt
Dim dat As String = File.ReadAllText(TempPath & "\date.txt")
Me.Text = "PKMG5DC (" & dat & ")"
If My.Computer.Network.IsAvailable Then
Try
My.Computer.Network.DownloadFile("https://raw.githubusercontent.com/PlasticJustice/PKMG5DC/master/PKMG5DC/Resources/date.txt", TempPath & "\dt.txt")
Catch
File.WriteAllText(TempPath & "\dt.txt", " ")
End Try
Dim Reader As New IO.StreamReader(TempPath & "\dt.txt")
Dim dtt As String = Reader.ReadToEnd
Reader.Close()
File.Delete(TempPath & "\dt.txt")
If dat <> dtt Then
lklb_Update.Text = "New Update Available! " & dtt
MenuStrip1.Location = New Point(175, 0)
pb_Donate.Location = New Point(119, 427)
lklb_Update.Show()
Else
lklb_Update.Hide()
MenuStrip1.Location = New Point(0, 0)
End If
Else
lklb_Update.Hide()
MenuStrip1.Location = New Point(0, 0)
End If
File.Delete(TempPath & "\date.txt")
Else
lklb_Update.Hide()
End If
File.Delete(TempPath & "\date.txt")
#End If
End Sub
@@ -102,8 +126,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If My.Computer.Network.IsAvailable Then
Process.Start("https://github.com/PlasticJustice/PKMG5DC/releases/latest")
Else
MsgBox("No Internet connection!
You can not update at the moment.", vbOKOnly, "Error 404")
MsgBox("No Internet connection!" & Environment.NewLine & "You can not update at the moment.", vbOKOnly, "Error 404")
End If
End Sub
@@ -112,8 +135,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If My.Computer.Network.IsAvailable Then
Process.Start("https://github.com/PlasticJustice")
Else
MsgBox("No Internet connection!" & "
" & "You can look me up later.", 1, "OK",,, "Error" & " 404")
MsgBox("No Internet connection!" & Environment.NewLine & "You can look me up later.", 1, "OK",,, "Error" & " 404")
End If
End Sub
@@ -123,8 +145,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If My.Computer.Network.IsAvailable Then
Process.Start("https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=UGSCC5VGSGN3E")
Else
MsgBox("No Internet connection!" & "
" & "I appreciate the gesture.", 1, "OK",,, "Error" & " 404")
MsgBox("No Internet connection!" & Environment.NewLine & "I appreciate the gesture.", 1, "OK",,, "Error" & " 404")
End If
End Sub
Private Sub Pb_Donate_MouseDown(sender As Object, e As MouseEventArgs) Handles pb_Donate.MouseDown
@@ -134,6 +155,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
pb_Donate.Image = Nothing
End Sub
#End Region
#Region "Startup"
'Creates Local Files and Folders
Private Sub CreateFolders(ByVal dirs As String())
@@ -148,6 +170,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
MsgBox(ex.Message)
End Try
End Sub
Private Sub CreateFiles(ByVal files(,))
Try
For i = 0 To UBound(files) Step 1
@@ -169,9 +192,9 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
'Checks Local Folders
Private Sub CheckLocal()
Dim locals As String() = {Local.Replace("\PKMG5DC", ""), Local, Local & "\tools"} ', Local & "\cards"}
Dim locals As String() = {Local.Replace("\PKMG5DC", ""), Local, Local & "\tools"}
CreateFolders(locals)
'*
If File.Exists(Local & "\settings.ini") Then
ReadIni()
File.Delete(Local & "\settings.ini")
@@ -179,9 +202,10 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If Not File.Exists(Local & "\settings.json") Then
WriteSettings()
End If
ReadSettings()
tscb_Region.SelectedIndex = My.Settings.Region
End Sub
'Checks for Ticket
Private Sub CheckTicket()
If My.Settings.ticket <> Nothing Then
@@ -194,6 +218,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
GetTicket()
End If
End Sub
Private Sub GetTicket()
Dim ans = MsgBox("This program requires a clean copy of the Liberty Ticket Distribution ROM. Do you have one?", 2, "Yes", "No",, "Need Liberty Ticket ROM")
Select Case ans
@@ -249,21 +274,9 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
End If
End If
End Sub
'Private Sub CheckGen()
' Dim n As String = Path.GetFileNameWithoutExtension(Process.GetCurrentProcess().MainModule.FileName)
' If n.Contains("G4") Then
' Gen = 4
' Else
' Gen = 5
' End If
'End Sub
#End Region
#Region "Menu"
Private Sub Tscb_Region_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscb_Region.SelectedIndexChanged
My.Settings.Region = tscb_Region.SelectedIndex
End Sub
#Region "Menu"
Private Sub Tsmi_About_Click(sender As Object, e As EventArgs) Handles tsmi_About.Click
About.ShowDialog()
End Sub
@@ -272,241 +285,344 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Private Sub ToolStripMenuItem2_MouseHover(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.MouseHover
ToolStripMenuItem2.DisplayStyle = ToolStripItemDisplayStyle.ImageAndText
End Sub
Private Sub ToolStripMenuItem2_MouseLeave(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.MouseLeave
ToolStripMenuItem2.DisplayStyle = ToolStripItemDisplayStyle.Image
End Sub
#End Region
#Region "Tab and Panel"
'Adds New Tab
Private Sub Tp_Add_Enter(sender As Object, e As EventArgs) Handles tp_Add.Enter
Dim DelTab As TabPage = tc_Cards.SelectedTab
Dim NewTab As New TabPage()
With NewTab
.Location = New System.Drawing.Point(4, 22)
.Name = "tp_Card" & (DelTab.TabIndex + 1)
.Padding = New System.Windows.Forms.Padding(3)
.Size = New Size(278, 315)
.TabIndex = DelTab.TabIndex
.Text = "Card " & (DelTab.TabIndex + If(doneLoad = False, 0, 1))
.UseVisualStyleBackColor = True
End With
tc_Cards.TabPages.Add(NewTab)
AddHandler NewTab.Leave, AddressOf Me.SavePanel
AddHandler NewTab.Enter, AddressOf Me.MovePanel
Card.NumberOfCards += 1
Dim NewAddTab As New TabPage()
With NewAddTab
.Location = New System.Drawing.Point(4, 22)
.Text = " +"
.Name = "tp_Add"
.Padding = New System.Windows.Forms.Padding(0)
.Size = New System.Drawing.Size(278, 315)
.TabIndex = tc_Cards.TabPages.Count - 1
.UseVisualStyleBackColor = True
End With
tc_Cards.TabPages.Remove(DelTab)
If tc_Cards.TabCount < 8 Then
tc_Cards.TabPages.Add(NewAddTab)
AddHandler NewAddTab.Enter, AddressOf Me.Tp_Add_Enter
End If
tc_Cards.SelectedTab = NewTab
cb_Region.SelectedIndex = My.Settings.Region
SyncRegion()
End Sub
'Moves the panel and load the settings
Private Sub MovePanel()
tc_Cards.SelectedTab.Controls.Add(Me.pnl_EditCard)
With pn_Settings
lb_PGF.Text = .pnl_Strings(tc_Cards.SelectedIndex)
Select Case .pnl_Strings(tc_Cards.SelectedIndex)
Case ""
EnDisAble(False)
Case Else
EnDisAble(True)
End Select
rtb_EventMsg.Text = .pnl_Strings(tc_Cards.SelectedIndex + 8)
cb_Region.SelectedIndex = .region(tc_Cards.SelectedIndex)
SyncRegion()
If .dates(tc_Cards.SelectedIndex) <> Nothing Then StartDatePicker.Value = .dates(tc_Cards.SelectedIndex)
If .dates(tc_Cards.SelectedIndex + 8) <> Nothing Then EndDatePicker.Value = .dates(tc_Cards.SelectedIndex + 8)
cb_MaxLimit.Checked = .maxLimit(tc_Cards.SelectedIndex)
End With
If doneLoad Then
cb_Black.Checked = Card.Black(tc_Cards.SelectedIndex)
cb_White.Checked = Card.White(tc_Cards.SelectedIndex)
cb_Black2.Checked = Card.Black2(tc_Cards.SelectedIndex)
cb_White2.Checked = Card.White2(tc_Cards.SelectedIndex)
End If
End Sub
'Saves Panel settings
Private Sub SavePanel()
With pn_Settings
.pnl_Strings(tc_Cards.SelectedIndex) = lb_PGF.Text
.pnl_Strings(tc_Cards.SelectedIndex + 8) = rtb_EventMsg.Text
.region(tc_Cards.SelectedIndex) = cb_Region.SelectedIndex
If doneLoad Then .dates(tc_Cards.SelectedIndex) = StartDatePicker.Value
If doneLoad Then .dates(tc_Cards.SelectedIndex + 8) = EndDatePicker.Value
.maxLimit(tc_Cards.SelectedIndex) = cb_MaxLimit.Checked
End With
End Sub
'Panel Settings
Private Class Pnl_Settings
Public pnl_Strings(15) As String
Public maxLimit(7) As Boolean
Public region(7) As Byte
Public dates(15) As Date
End Class
#End Region
#Region "Controls"
Private Sub Bt_PGF_Click(sender As Object, e As EventArgs) Handles bt_PGF.Click
OpenFile.Filter = "Gen 5 Wondercard (*.pgf)|*.pgf;*.wc5|All files (*.*)|*.*"
Dim res As DialogResult = OpenFile.ShowDialog()
If res = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
Dim myFile As String = Path.GetFileName(OpenFile.FileName)
lb_PGF.Text = myFile
WC.Data = File.ReadAllBytes(OpenFile.FileName)
With WC
.RecieveDay = 0
.RecieveMonth = 0
.RecieveYear = 0
End With
Card.Wondercards(tc_Cards.SelectedIndex) = WC.Data
WC = New PGF
End If
EnDisAble(True)
bt_Build.Enabled = True
'Check if combobox has changed and update form
Private Sub cb_Cards_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_Cards.SelectedIndexChanged
currItem = cb_Cards.SelectedIndex()
Card = multipleCardsArr(currItem)
rtb_EventTitle.Text = Card.EventTitle(0)
rtb_EventMsg.Text = Card.EventText(0)
lb_CharCountNumber.Text = rtb_EventMsg.TextLength
StartDatePicker.Value = New DateTime(Card.StartYears(0), Card.StartMonths(0), Card.StartDays(0))
EndDatePicker.Value = New DateTime(Card.EndYears(0), Card.EndMonths(0), Card.EndDays(0))
cb_MaxLimit.Checked = False
cb_Black.Checked = Card.Black(0)
cb_White.Checked = Card.White(0)
cb_Black2.Checked = Card.Black2(0)
cb_White2.Checked = Card.White2(0)
cb_Region.SelectedIndex = selectedLang(currItem)
multipleCardsArr(currItem) = Card
Card = New Card5
End Sub
Private Sub Bt_Custom_Click(sender As Object, e As EventArgs) Handles bt_Custom.Click
PGFCreator.ShowDialog()
Select Case lb_PGF.Text
Case "", Nothing
Case Else
EnDisAble(True)
bt_Build.Enabled = True
End Select
End Sub
Private Sub EnDisAble(Enable As Boolean)
'Changes enabled state of multiple buttons
Private Sub StateChanger(Enable As Boolean)
gb_Cards.Enabled = Enable
gb_GameComp.Enabled = Enable
gb_Region.Enabled = Enable
gb_DateLimit.Enabled = Enable
rtb_EventMsg.Enabled = Enable
lb_EventMsg.Enabled = Enable
gb_Text.Enabled = Enable
bt_Build.Enabled = Enable
bt_ClearForm.Enabled = Enable
End Sub
Private Sub Cb_Black_CheckedChanged(sender As Object, e As EventArgs) Handles cb_Black.CheckedChanged
Select Case cb_Black.Checked
Case True
Card.Black(tc_Cards.SelectedIndex) = True
Case False
Card.Black(tc_Cards.SelectedIndex) = False
End Select
End Sub
Private Sub Cb_White_CheckedChanged(sender As Object, e As EventArgs) Handles cb_White.CheckedChanged
Select Case cb_White.Checked
Case True
Card.White(tc_Cards.SelectedIndex) = True
Case False
Card.White(tc_Cards.SelectedIndex) = False
End Select
End Sub
Private Sub Cb_Black2_CheckedChanged(sender As Object, e As EventArgs) Handles cb_Black2.CheckedChanged
Select Case cb_Black2.Checked
Case True
Card.Black2(tc_Cards.SelectedIndex) = True
Case False
Card.Black2(tc_Cards.SelectedIndex) = False
End Select
End Sub
Private Sub Cb_White2_CheckedChanged(sender As Object, e As EventArgs) Handles cb_White2.CheckedChanged
Select Case cb_White2.Checked
Case True
Card.White2(tc_Cards.SelectedIndex) = True
Case False
Card.White2(tc_Cards.SelectedIndex) = False
End Select
'Handles PGF cards
Private Sub Bt_PGF_Click(sender As Object, e As EventArgs) Handles bt_PGF.Click
OpenFile.Multiselect = True
OpenFile.Filter = "Gen 5 Wondercard (*.pgf)|*.pgf;*.wc5|All files (*.*)|*.*"
Dim res As DialogResult = OpenFile.ShowDialog()
'Verify if user has canceled the dialog
If res = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
'Verify if user has selected more than 12 cards
If (OpenFile.FileNames.Length + cb_Cards.Items.Count) > 12 Then
MsgBox("Cannot select more than 12 cards", 1, "OK", "", "", "Error!")
Else
'Loop through all selected files
For Each element In OpenFile.FileNames
Card = New Card5
Dim myFile As String = Path.GetFileName(element)
WC.Data = File.ReadAllBytes(element)
With WC
.ReceiveDay = 0
.ReceiveMonth = 0
.ReceiveYear = 0
End With
Card.Wondercards(0) = WC.Data
Card.NumberOfCards = 1
rtb_EventTitle.Text = ""
rtb_EventMsg.Text = ""
WC = New PGF
If cb_Cards.SelectedIndex() = -1 Then
multipleCardsArr(cb_Cards.Items.Count) = Card
ElseIf cb_Cards.SelectedIndex() <> cb_Cards.Items.Count - 1 Then
multipleCardsArr(cb_Cards.Items.Count) = Card
Else
multipleCardsArr(cb_Cards.SelectedIndex() + 1) = Card
End If
cb_Cards.SelectedIndex = cb_Cards.Items.Add(myFile)
If cb_Cards.Items.Count = 12 Then
bt_PGF.Enabled = False
bt_Custom.Enabled = False
End If
Next
StateChanger(True)
End If
End If
End Sub
Private Sub Cb_Region_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_Region.SelectedIndexChanged
If doneLoad Then SyncRegion()
'Handles custom pokemon
Private Sub Bt_Custom_Click(sender As Object, e As EventArgs) Handles bt_Custom.Click
Card = New Card5
Dim res As DialogResult = PGFCreator.ShowDialog()
If res = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
Card.NumberOfCards = 1
rtb_EventTitle.Text = ""
rtb_EventMsg.Text = ""
If cb_Cards.SelectedIndex() = -1 Then
multipleCardsArr(cb_Cards.Items.Count) = Card
cb_Cards.SelectedIndex = cb_Cards.Items.Add(customName)
ElseIf cb_Cards.SelectedIndex() <> cb_Cards.Items.Count - 1 Then
multipleCardsArr(cb_Cards.Items.Count) = Card
cb_Cards.SelectedIndex = cb_Cards.Items.Add(customName)
Else
multipleCardsArr(cb_Cards.SelectedIndex() + 1) = Card
cb_Cards.SelectedIndex = cb_Cards.Items.Add(customName)
End If
If cb_Cards.Items.Count = 12 Then
bt_PGF.Enabled = False
bt_Custom.Enabled = False
End If
End If
StateChanger(True)
End Sub
'Set and reset region
Private Sub bt_SetRegion_Click(sender As Object, e As EventArgs) Handles bt_SetRegion.Click
Card = multipleCardsArr(currItem)
SyncRegion()
multipleCardsArr(currItem) = Card
End Sub
Private Sub bt_ResetRegion_Click(sender As Object, e As EventArgs) Handles bt_ResetRegion.Click
Card = multipleCardsArr(currItem)
cb_Region.SelectedIndex = 0
Card.LangChecksum(0) = langCksm(0)
Card.Language(0) = langs(0)
multipleCardsArr(currItem) = Card
End Sub
'Sync region changes
Private Sub SyncRegion()
selectedLang(currItem) = cb_Region.SelectedIndex
Select Case cb_Region.SelectedIndex
Case < 5
Card.LangChecksum(tc_Cards.SelectedIndex) = langCksm(cb_Region.SelectedIndex)
Card.Language(tc_Cards.SelectedIndex) = langs(cb_Region.SelectedIndex)
Card.LangChecksum(0) = langCksm(cb_Region.SelectedIndex)
Card.Language(0) = langs(cb_Region.SelectedIndex)
Case 5
Card.LangChecksum(tc_Cards.SelectedIndex) = langCksm(cb_Region.SelectedIndex)
Card.Language(tc_Cards.SelectedIndex) = langs(0)
Card.LangChecksum(0) = langCksm(cb_Region.SelectedIndex)
Card.Language(0) = langs(0)
Case Else
Card.LangChecksum(tc_Cards.SelectedIndex) = langCksm(cb_Region.SelectedIndex - 1)
Card.Language(tc_Cards.SelectedIndex) = langs(0)
Card.LangChecksum(0) = langCksm(cb_Region.SelectedIndex - 1)
Card.Language(0) = langs(0)
End Select
End Sub
Private Sub StartDatePicker_ValueChanged(sender As Object, e As EventArgs) Handles StartDatePicker.ValueChanged, cb_MaxLimit.CheckedChanged
If doneLoad Then
Card.StartDays(tc_Cards.SelectedIndex) = StartDatePicker.Value.Day
Card.StartMonths(tc_Cards.SelectedIndex) = StartDatePicker.Value.Month
Card.StartYears(tc_Cards.SelectedIndex) = StartDatePicker.Value.Year
End If
'Set and reset game compatibility
Private Sub bt_SetCompatibility_Click(sender As Object, e As EventArgs) Handles bt_SetCompatibility.Click
Card = multipleCardsArr(currItem)
Card.Black(0) = cb_Black.Checked
Card.White(0) = cb_White.Checked
Card.Black2(0) = cb_Black2.Checked
Card.White2(0) = cb_White2.Checked
multipleCardsArr(currItem) = Card
End Sub
Private Sub EndDatePicker_ValueChanged(sender As Object, e As EventArgs) Handles EndDatePicker.ValueChanged, cb_MaxLimit.CheckedChanged
If doneLoad Then
Card.EndDays(tc_Cards.SelectedIndex) = EndDatePicker.Value.Day
Card.EndMonths(tc_Cards.SelectedIndex) = EndDatePicker.Value.Month
Card.EndYears(tc_Cards.SelectedIndex) = EndDatePicker.Value.Year
End If
Private Sub bt_ResetCompatibility_Click(sender As Object, e As EventArgs) Handles bt_ResetCompatibility.Click
Card = multipleCardsArr(currItem)
Card.Black(0) = False
cb_Black.Checked = False
Card.White(0) = False
cb_White.Checked = False
Card.Black2(0) = False
cb_Black2.Checked = False
Card.White2(0) = False
cb_White2.Checked = False
multipleCardsArr(currItem) = Card
End Sub
'Set and reset date
Private Sub bt_SetDate_Click(sender As Object, e As EventArgs) Handles bt_SetDate.Click
Card = multipleCardsArr(currItem)
'Set Start Date if user changed anything
Card.StartDays(0) = StartDatePicker.Value.Day
Card.StartMonths(0) = StartDatePicker.Value.Month
Card.StartYears(0) = StartDatePicker.Value.Year
'Set End Date if user changed anything
Card.EndDays(0) = EndDatePicker.Value.Day
Card.EndMonths(0) = EndDatePicker.Value.Month
Card.EndYears(0) = EndDatePicker.Value.Year
multipleCardsArr(currItem) = Card
End Sub
Private Sub bt_ResetDate_Click(sender As Object, e As EventArgs) Handles bt_ResetDate.Click
Card = multipleCardsArr(currItem)
If cb_MaxLimit.Checked Then
cb_MaxLimit.Checked = False
End If
StartDatePicker.Value = Date.Today
EndDatePicker.Value = Date.Today
Card.StartDays(0) = Date.Today.Day
Card.StartMonths(0) = Date.Today.Month
Card.StartYears(0) = Date.Today.Year
Card.EndDays(0) = Date.Today.Day
Card.EndMonths(0) = Date.Today.Month
Card.EndYears(0) = Date.Today.Year
multipleCardsArr(currItem) = Card
End Sub
'Handles changes on checkbox max date
Private Sub Cb_MaxLimit_CheckedChanged(sender As Object, e As EventArgs) Handles cb_MaxLimit.CheckedChanged
'Set Min Start Date and Max End Date if user marked checkbox
Select Case cb_MaxLimit.Checked
Case True
lb_Start.Enabled = False
lb_End.Enabled = False
pn_Settings.dates(tc_Cards.SelectedIndex) = StartDatePicker.Value
pn_Settings.dates(tc_Cards.SelectedIndex + 8) = EndDatePicker.Value
StartDatePicker.Value = New DateTime(1753, 1, 1)
EndDatePicker.Value = New DateTime(9998, 12, 31)
StartDatePicker.Enabled = False
EndDatePicker.Enabled = False
bt_SetDate_Click(sender, e)
Case False
lb_Start.Enabled = True
lb_End.Enabled = True
If pn_Settings.dates(tc_Cards.SelectedIndex) <> Nothing Then StartDatePicker.Value = pn_Settings.dates(tc_Cards.SelectedIndex)
If pn_Settings.dates(tc_Cards.SelectedIndex + 8) <> Nothing Then EndDatePicker.Value = pn_Settings.dates(tc_Cards.SelectedIndex + 8)
StartDatePicker.Enabled = True
EndDatePicker.Enabled = True
End Select
End Sub
Private Sub Rtb_EventMsg_TextChanged(sender As Object, e As EventArgs) Handles rtb_EventMsg.TextChanged
Card.EventText(tc_Cards.SelectedIndex) = rtb_EventMsg.Text.Replace(vbLf, ChrW(&HFFFE))
'Update char count on Event Text rtb
Private Sub rtb_EventMsg_TextChanged(sender As Object, e As EventArgs) Handles rtb_EventMsg.TextChanged
lb_CharCountNumber.Text = rtb_EventMsg.TextLength
End Sub
'Set and reset Event text and Evend Title
Private Sub bt_SetEventMsg_Click(sender As Object, e As EventArgs) Handles bt_SetEventMsg.Click
Card = multipleCardsArr(currItem)
'Set event text if user pressed button
Card.EventTitle(0) = rtb_EventTitle.Text.Replace(vbLf, ChrW(&HFFFE))
Card.EventText(0) = rtb_EventMsg.Text.Replace(vbLf, ChrW(&HFFFE))
multipleCardsArr(currItem) = Card
End Sub
Private Sub bt_ResetEventMsg_Click(sender As Object, e As EventArgs) Handles bt_ResetEventMsg.Click
Card = multipleCardsArr(currItem)
'Reset event text if user pressed button
rtb_EventTitle.Text = "Event title here!"
rtb_EventMsg.Text = ""
Card.EventTitle(0) = "Event title here!"
Card.EventText(0) = ""
multipleCardsArr(currItem) = Card
End Sub
'Build ROM
Private Sub Bt_Build_Click(sender As Object, e As EventArgs) Handles bt_Build.Click
File.WriteAllBytes(Local & "\outputCard.bin", Card.Data)
'Loop through all selected cards
For index As Integer = 1 To cb_Cards.Items.Count
'Verify if the text inside textbox is empty then set all the bytes to FF
Card = multipleCardsArr(index - 1)
Dim text As String = Card.EventText(0)
If text.Length < 1 Or text.Contains(vbNullChar) Then
Card.EventText(0) = ""
End If
'Create binary based on selected wondercard
If index < 10 Then
File.WriteAllBytes(Local & "\0" & index & ".bin", Card.Data)
Else
File.WriteAllBytes(Local & "\" & index & ".bin", Card.Data)
End If
Next
'Edit assembly file based on user input
Dim options = File.ReadAllLines(Local & "\tools\options.asm")
options(1) = ".definelabel amount," & cb_Cards.Items.Count
File.WriteAllLines(Local & "\tools\options.asm", options)
'Decompile and compile ROM based on selected cards
Try
Process.Start(Local & "\tools\extract.bat").WaitForExit()
If File.Exists(Local & "\tools\data\data.bin") Then File.Delete(Local & "\tools\data\data.bin")
File.Copy(Local & "\outputCard.bin", Local & "\tools\data\data.bin")
Process.Start(Local & "\tools\compile.bat").WaitForExit()
Process.Start(Local & "\tools\clean.bat").WaitForExit()
Process.Start(Local & "\tools\firstBatch.bat").WaitForExit()
For index As Integer = 1 To cb_Cards.Items.Count
If index < 10 Then
File.Copy(Local & "\0" & index & ".bin", Local & "\tools\data\0" & index & ".bin")
Else
File.Copy(Local & "\" & index & ".bin", Local & "\tools\data\" & index & ".bin")
End If
Next
Process.Start(Local & "\tools\secondBatch.bat").WaitForExit()
Catch ex As Exception
MsgBox(ex.Message)
End Try
'Save generated file
SaveFile.Filter = "NDS ROM (*.nds)|*.nds|All files (*.*)|*.*"
Dim res As DialogResult = SaveFile.ShowDialog()
If res <> Windows.Forms.DialogResult.Cancel Then
If File.Exists(SaveFile.FileName) Then File.Delete(SaveFile.FileName)
File.Move(Local & "\ticket2.nds", SaveFile.FileName)
MsgBox("Your file has been saved successfully!", 1, "OK", "", "", "File saved")
End If
End Sub
'Clear selected cards and inputs
Private Sub bt_ClearForm_Click(sender As Object, e As EventArgs) Handles bt_ClearForm.Click
Card = New Card5
TempCard = New Card5
WC = New PGF
ReDim selectedLang(0 To 11)
ReDim multipleCardsArr(0 To 11)
cb_Cards.Items.Clear()
cb_Black.Checked = False
cb_White.Checked = False
cb_Black2.Checked = False
cb_White2.Checked = False
StartDatePicker.Value = Date.Today
EndDatePicker.Value = Date.Today
rtb_EventTitle.Text = "Input Event Title Here."
rtb_EventMsg.Text = "Input Event Text Here." & Environment.NewLine & Environment.NewLine & "This textbox is sized perfectly, so what fits in" & Environment.NewLine & "this box is all you can fit. A maximum of 7 " & Environment.NewLine & "lines, max 36 characters per line, and a " & Environment.NewLine & "maximum of 252 characters total." & Environment.NewLine & "Make sure you put the new lines(ENTER key)"
If bt_PGF.Enabled = False Or bt_Custom.Enabled = False Then
bt_PGF.Enabled = True
bt_Custom.Enabled = True
End If
StateChanger(False)
End Sub
#End Region
End Class

16
PKMG5DC/My Project/Application.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' O código foi gerado por uma ferramenta.
' Versão de Tempo de Execução:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
' o código for gerado novamente.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -14,10 +14,10 @@ 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.
'OBSERVAÇÃO: Esse arquivo é gerado automaticamente; não o modifique diretamente. Para fazer alterações,
' ou se você encontrar erros de compilação neste arquivo, vá para o Designer de Projeto
' (vá para Propriedades do Projeto ou clique duas vezes no nó Meu Projeto em
' Gerenciador de Soluções) e faça as alterações na guia Aplicativo.
'
Partial Friend Class MyApplication

7
PKMG5DC/My Project/AssemblyInfo.vb
View File

@@ -1,5 +1,4 @@
Imports System
Imports System.Reflection
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
@@ -31,5 +30,5 @@ Imports System.Runtime.InteropServices
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.0.0.1")>
<Assembly: AssemblyFileVersion("2.0.0.1")>
<Assembly: AssemblyVersion("2.1.0")>
<Assembly: AssemblyFileVersion("2.1.0")>

120
PKMG5DC/My Project/Resources.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' O código foi gerado por uma ferramenta.
' Versão de Tempo de Execução:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
' o código for gerado novamente.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -15,14 +15,14 @@ Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'Essa classe foi gerada automaticamente pela classe StronglyTypedResourceBuilder
'através de uma ferramenta como ResGen ou Visual Studio.
'Para adicionar ou remover um associado, edite o arquivo .ResX e execute ResGen novamente
'com a opção /str, ou recrie o projeto do VS.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
''' Uma classe de recurso de tipo de alta segurança, para pesquisar cadeias de caracteres localizadas etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -33,7 +33,7 @@ Namespace My.Resources
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
''' Retorna a instância de ResourceManager armazenada em cache usada por essa classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
@@ -47,8 +47,8 @@ Namespace My.Resources
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
''' Substitui a propriedade CurrentUICulture do thread atual para todas as
''' pesquisas de recursos que usam essa classe de recurso de tipo de alta segurança.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
@@ -61,7 +61,47 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized string similar to 2018/11/25.
''' Consulta uma cadeia de caracteres localizada semelhante a // Pokémon Duodecuple Distribution
'''// by Prof. 9
'''// Version 1.4.1 &quot;Skinless&quot;
'''//
'''// Thanks to Yellow Wood Goblin for the slot-1 read fix.
'''
'''.include options.asm
'''
'''.nds
'''.open arm7.bin,2380000h
'''
'''.org 23A6370h
'''loadhijack:
''' push r5,r14
''' bl 2007F98h
''' ldr r0,=2013900h
''' ldr r1,=2030000h
''' ldrb r1,[r1]
''' mov r1,r1,lsl 3h
''' ldr r2,[r0,r1]
''' ldr r1,=2011628h
''' ldr r3,=16D0h
''' bl 2003874h
'''
''' mov r5,0h
'''fixchecksum:
''' mov r2,2D0h
''' mul r2,r5
''' ldr r1,=201162Ch
''' add r1,r1,r2
''' ldr r2,=2CEh
''' ldr r0,=27E3 [o restante da cadeia de caracteres foi truncado]&quot;;.
'''</summary>
Friend ReadOnly Property _12distroasm() As String
Get
Return ResourceManager.GetString("_12distroasm", resourceCulture)
End Get
End Property
'''<summary>
''' Consulta uma cadeia de caracteres localizada semelhante a 2020/7/25.
'''</summary>
Friend ReadOnly Property _date() As String
Get
@@ -70,7 +110,17 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized resource of type System.Byte[].
''' Consulta um recurso localizado do tipo System.Byte[].
'''</summary>
Friend ReadOnly Property armips() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("armips", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Byte[].
'''</summary>
Friend ReadOnly Property ndstool() As Byte()
Get
@@ -80,7 +130,43 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
''' Consulta uma cadeia de caracteres localizada semelhante a // amount of wonder cards (1-12)
'''.definelabel amount,1
'''
'''// distance between names (pixels)
'''.definelabel dist,12
'''
'''// status text color
'''.definelabel test,0x7FFF
'''
'''// menu text color
'''.definelabel menu,0x7FFF
'''
'''// selected text color
'''.definelabel select,0x001F
'''
'''// text mode: 0=left, 1=center, 2=right
'''.definelabel mode,1
'''
'''// menu text x-position (pixels)
'''.definelabel mxpos,128
'''
'''// menu text y-position (pixels)
'''.definelabel mypos,0
'''
'''// x-position for status text 1 (pixels)
'''.definelabel d1xpos,128
'''
'''// y-position for [o restante da cadeia de caracteres foi truncado]&quot;;.
'''</summary>
Friend ReadOnly Property optionsasm() As String
Get
Return ResourceManager.GetString("optionsasm", resourceCulture)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ppdb() As System.Drawing.Bitmap
Get
@@ -90,7 +176,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ppdbs() As System.Drawing.Bitmap
Get

13
PKMG5DC/My Project/Resources.resx
View File

@@ -118,14 +118,20 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="armips" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\12distro\armips.exe;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\12distro\ndstool.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="optionsasm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\12distro\options.asm;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ppdb" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAFAAAAAWCAYAAABXEBvcAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMS41ZEdYUgAABn5JREFUWEftl3tU
wQAADsEBuJFr7QAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMS41ZEdYUgAABn5JREFUWEftl3tU
VEUcx69kL7VIUdJTHv8p3yIIIqCJjzTRo4hmkMcMMR4LooC8QhcQFpDloYI8BGF5LA8TgYUFXURRSaEk
kwRJAUVQsofHMsEg7/yamV02idmDeOwfYc75nr0zv99v7v197m9m9nKaGkrQn44yFkfyxx3q0Vmfx6g6
CNDFsMEhkivJudShDqUviSAsVFj6b3Bw7niUvSqLrwpCqE0GqL1kcAszwCx4PntlFkqe97YKE7uhRANT
@@ -159,12 +165,15 @@
<data name="ppdbs" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAFAAAAAWCAYAAABXEBvcAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMS41ZEdYUgAAAIlJREFUWEft1jEO
wAAADsABataJCQAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMS41ZEdYUgAAAIlJREFUWEft1jEO
gCAQRFEO6wn2/oVRJyHoIIS180/yKoHiV5a3RcSG2JRjfu4RTIZ0F1Epk5+7gCflaucOok/ZrrkDGFM+
Aq4i3gcImETAJAImETCJgEkETOJXJuGMd8x9xJjyEXCV8l1zB9CnbO3cQTwpl5+7gEqZ3ucuYjLefe6h
P1GGzkrZAYttOaZ0HtbrAAAAAElFTkSuQmCC
</value>
</data>
<data name="_12distroasm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\12distro\12distro.asm;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="_date" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\date.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>

12
PKMG5DC/My Project/Settings.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' O código foi gerado por uma ferramenta.
' Versão de Tempo de Execução:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
' o código for gerado novamente.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -15,14 +15,14 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.6.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.0.3.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#Region "Funcionalidade de salvamento automático do My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean

217
PKMG5DC/PGFCreator.Designer.vb generated
View File

@@ -23,6 +23,7 @@ Partial Class PGFCreator
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PGFCreator))
Me.lbl_PK5Name = New System.Windows.Forms.Label()
Me.btn_OpenPKM = New System.Windows.Forms.Button()
Me.gb_PKDetails = New System.Windows.Forms.GroupBox()
@@ -78,19 +79,20 @@ Partial Class PGFCreator
'
Me.lbl_PK5Name.AutoEllipsis = True
Me.lbl_PK5Name.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lbl_PK5Name.Location = New System.Drawing.Point(13, 22)
Me.lbl_PK5Name.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
Me.lbl_PK5Name.Location = New System.Drawing.Point(17, 27)
Me.lbl_PK5Name.Margin = New System.Windows.Forms.Padding(4, 4, 4, 0)
Me.lbl_PK5Name.Name = "lbl_PK5Name"
Me.lbl_PK5Name.Size = New System.Drawing.Size(282, 17)
Me.lbl_PK5Name.Size = New System.Drawing.Size(376, 21)
Me.lbl_PK5Name.TabIndex = 10
Me.lbl_PK5Name.Text = "Open .pkm ------->"
Me.lbl_PK5Name.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btn_OpenPKM
'
Me.btn_OpenPKM.Location = New System.Drawing.Point(301, 19)
Me.btn_OpenPKM.Location = New System.Drawing.Point(401, 23)
Me.btn_OpenPKM.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btn_OpenPKM.Name = "btn_OpenPKM"
Me.btn_OpenPKM.Size = New System.Drawing.Size(75, 23)
Me.btn_OpenPKM.Size = New System.Drawing.Size(100, 28)
Me.btn_OpenPKM.TabIndex = 9
Me.btn_OpenPKM.Text = "Open .pkm"
Me.btn_OpenPKM.UseVisualStyleBackColor = True
@@ -105,9 +107,11 @@ Partial Class PGFCreator
Me.gb_PKDetails.Controls.Add(Me.lbl_Natures)
Me.gb_PKDetails.Controls.Add(Me.lbl_Ability)
Me.gb_PKDetails.Controls.Add(Me.lbl_Species)
Me.gb_PKDetails.Location = New System.Drawing.Point(61, 187)
Me.gb_PKDetails.Location = New System.Drawing.Point(81, 230)
Me.gb_PKDetails.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_PKDetails.Name = "gb_PKDetails"
Me.gb_PKDetails.Size = New System.Drawing.Size(270, 230)
Me.gb_PKDetails.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_PKDetails.Size = New System.Drawing.Size(360, 283)
Me.gb_PKDetails.TabIndex = 12
Me.gb_PKDetails.TabStop = False
Me.gb_PKDetails.Text = "Pokémon Info"
@@ -116,45 +120,50 @@ Partial Class PGFCreator
'lbl_Move4
'
Me.lbl_Move4.AutoSize = True
Me.lbl_Move4.Location = New System.Drawing.Point(13, 205)
Me.lbl_Move4.Location = New System.Drawing.Point(17, 252)
Me.lbl_Move4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Move4.Name = "lbl_Move4"
Me.lbl_Move4.Size = New System.Drawing.Size(13, 13)
Me.lbl_Move4.Size = New System.Drawing.Size(14, 16)
Me.lbl_Move4.TabIndex = 7
Me.lbl_Move4.Text = "- "
'
'lbl_Move3
'
Me.lbl_Move3.AutoSize = True
Me.lbl_Move3.Location = New System.Drawing.Point(13, 180)
Me.lbl_Move3.Location = New System.Drawing.Point(17, 222)
Me.lbl_Move3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Move3.Name = "lbl_Move3"
Me.lbl_Move3.Size = New System.Drawing.Size(13, 13)
Me.lbl_Move3.Size = New System.Drawing.Size(14, 16)
Me.lbl_Move3.TabIndex = 6
Me.lbl_Move3.Text = "- "
'
'lbl_Move2
'
Me.lbl_Move2.AutoSize = True
Me.lbl_Move2.Location = New System.Drawing.Point(13, 155)
Me.lbl_Move2.Location = New System.Drawing.Point(17, 191)
Me.lbl_Move2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Move2.Name = "lbl_Move2"
Me.lbl_Move2.Size = New System.Drawing.Size(13, 13)
Me.lbl_Move2.Size = New System.Drawing.Size(14, 16)
Me.lbl_Move2.TabIndex = 5
Me.lbl_Move2.Text = "- "
'
'lbl_Move1
'
Me.lbl_Move1.AutoSize = True
Me.lbl_Move1.Location = New System.Drawing.Point(13, 130)
Me.lbl_Move1.Location = New System.Drawing.Point(17, 160)
Me.lbl_Move1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Move1.Name = "lbl_Move1"
Me.lbl_Move1.Size = New System.Drawing.Size(13, 13)
Me.lbl_Move1.Size = New System.Drawing.Size(14, 16)
Me.lbl_Move1.TabIndex = 4
Me.lbl_Move1.Text = "- "
'
'lbl_IVs
'
Me.lbl_IVs.AutoSize = True
Me.lbl_IVs.Location = New System.Drawing.Point(13, 95)
Me.lbl_IVs.Location = New System.Drawing.Point(17, 117)
Me.lbl_IVs.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_IVs.Name = "lbl_IVs"
Me.lbl_IVs.Size = New System.Drawing.Size(28, 13)
Me.lbl_IVs.Size = New System.Drawing.Size(32, 16)
Me.lbl_IVs.TabIndex = 3
Me.lbl_IVs.Text = "IVs: "
Me.HoverInfo.SetToolTip(Me.lbl_IVs, "HP/Atk/Def/SpA/SpD/Spe")
@@ -162,27 +171,30 @@ Partial Class PGFCreator
'lbl_Natures
'
Me.lbl_Natures.AutoSize = True
Me.lbl_Natures.Location = New System.Drawing.Point(13, 70)
Me.lbl_Natures.Location = New System.Drawing.Point(17, 86)
Me.lbl_Natures.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Natures.Name = "lbl_Natures"
Me.lbl_Natures.Size = New System.Drawing.Size(45, 13)
Me.lbl_Natures.Size = New System.Drawing.Size(53, 16)
Me.lbl_Natures.TabIndex = 2
Me.lbl_Natures.Text = "Nature: "
'
'lbl_Ability
'
Me.lbl_Ability.AutoSize = True
Me.lbl_Ability.Location = New System.Drawing.Point(13, 45)
Me.lbl_Ability.Location = New System.Drawing.Point(17, 55)
Me.lbl_Ability.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Ability.Name = "lbl_Ability"
Me.lbl_Ability.Size = New System.Drawing.Size(40, 13)
Me.lbl_Ability.Size = New System.Drawing.Size(49, 16)
Me.lbl_Ability.TabIndex = 1
Me.lbl_Ability.Text = "Ability: "
'
'lbl_Species
'
Me.lbl_Species.AutoSize = True
Me.lbl_Species.Location = New System.Drawing.Point(13, 20)
Me.lbl_Species.Location = New System.Drawing.Point(17, 25)
Me.lbl_Species.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Species.Name = "lbl_Species"
Me.lbl_Species.Size = New System.Drawing.Size(72, 13)
Me.lbl_Species.Size = New System.Drawing.Size(89, 16)
Me.lbl_Species.TabIndex = 0
Me.lbl_Species.Text = "Name @ Item"
'
@@ -191,9 +203,10 @@ Partial Class PGFCreator
Me.cb_CardType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_CardType.FormattingEnabled = True
Me.cb_CardType.Items.AddRange(New Object() {"Pokémon", "Item", "Pass Power"})
Me.cb_CardType.Location = New System.Drawing.Point(16, 32)
Me.cb_CardType.Location = New System.Drawing.Point(21, 39)
Me.cb_CardType.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_CardType.Name = "cb_CardType"
Me.cb_CardType.Size = New System.Drawing.Size(94, 21)
Me.cb_CardType.Size = New System.Drawing.Size(124, 24)
Me.cb_CardType.TabIndex = 13
'
'gb_Pokemon
@@ -217,9 +230,11 @@ Partial Class PGFCreator
Me.gb_Pokemon.Controls.Add(Me.cb_AbilitySlot)
Me.gb_Pokemon.Controls.Add(Me.lbl_PK5Name)
Me.gb_Pokemon.Controls.Add(Me.btn_OpenPKM)
Me.gb_Pokemon.Location = New System.Drawing.Point(16, 59)
Me.gb_Pokemon.Location = New System.Drawing.Point(21, 73)
Me.gb_Pokemon.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_Pokemon.Name = "gb_Pokemon"
Me.gb_Pokemon.Size = New System.Drawing.Size(402, 430)
Me.gb_Pokemon.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_Pokemon.Size = New System.Drawing.Size(536, 529)
Me.gb_Pokemon.TabIndex = 14
Me.gb_Pokemon.TabStop = False
Me.gb_Pokemon.Text = "Pokémon"
@@ -227,9 +242,10 @@ Partial Class PGFCreator
'cx_Origin
'
Me.cx_Origin.AutoSize = True
Me.cx_Origin.Location = New System.Drawing.Point(226, 158)
Me.cx_Origin.Location = New System.Drawing.Point(301, 194)
Me.cx_Origin.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cx_Origin.Name = "cx_Origin"
Me.cx_Origin.Size = New System.Drawing.Size(132, 17)
Me.cx_Origin.Size = New System.Drawing.Size(164, 20)
Me.cx_Origin.TabIndex = 35
Me.cx_Origin.Text = "Recipient Origin Game"
Me.cx_Origin.UseVisualStyleBackColor = True
@@ -237,9 +253,10 @@ Partial Class PGFCreator
'cx_Lang
'
Me.cx_Lang.AutoSize = True
Me.cx_Lang.Location = New System.Drawing.Point(46, 158)
Me.cx_Lang.Location = New System.Drawing.Point(61, 194)
Me.cx_Lang.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cx_Lang.Name = "cx_Lang"
Me.cx_Lang.Size = New System.Drawing.Size(122, 17)
Me.cx_Lang.Size = New System.Drawing.Size(150, 20)
Me.cx_Lang.TabIndex = 34
Me.cx_Lang.Text = "Recipient Language"
Me.cx_Lang.UseVisualStyleBackColor = True
@@ -247,9 +264,10 @@ Partial Class PGFCreator
'cx_IV
'
Me.cx_IV.AutoSize = True
Me.cx_IV.Location = New System.Drawing.Point(307, 121)
Me.cx_IV.Location = New System.Drawing.Point(409, 149)
Me.cx_IV.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cx_IV.Name = "cx_IV"
Me.cx_IV.Size = New System.Drawing.Size(84, 17)
Me.cx_IV.Size = New System.Drawing.Size(103, 20)
Me.cx_IV.TabIndex = 33
Me.cx_IV.Text = "Random IVs"
Me.cx_IV.UseVisualStyleBackColor = True
@@ -257,9 +275,10 @@ Partial Class PGFCreator
'cx_PID
'
Me.cx_PID.AutoSize = True
Me.cx_PID.Location = New System.Drawing.Point(214, 121)
Me.cx_PID.Location = New System.Drawing.Point(285, 149)
Me.cx_PID.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cx_PID.Name = "cx_PID"
Me.cx_PID.Size = New System.Drawing.Size(87, 17)
Me.cx_PID.Size = New System.Drawing.Size(106, 20)
Me.cx_PID.TabIndex = 32
Me.cx_PID.Text = "Random PID"
Me.cx_PID.UseVisualStyleBackColor = True
@@ -267,9 +286,10 @@ Partial Class PGFCreator
'lbl_Nature
'
Me.lbl_Nature.AutoSize = True
Me.lbl_Nature.Location = New System.Drawing.Point(110, 105)
Me.lbl_Nature.Location = New System.Drawing.Point(147, 129)
Me.lbl_Nature.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Nature.Name = "lbl_Nature"
Me.lbl_Nature.Size = New System.Drawing.Size(42, 13)
Me.lbl_Nature.Size = New System.Drawing.Size(50, 16)
Me.lbl_Nature.TabIndex = 31
Me.lbl_Nature.Text = "Nature:"
'
@@ -278,17 +298,19 @@ Partial Class PGFCreator
Me.cb_Nature.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Nature.FormattingEnabled = True
Me.cb_Nature.Items.AddRange(New Object() {"Random", "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.cb_Nature.Location = New System.Drawing.Point(113, 119)
Me.cb_Nature.Location = New System.Drawing.Point(151, 146)
Me.cb_Nature.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_Nature.Name = "cb_Nature"
Me.cb_Nature.Size = New System.Drawing.Size(94, 21)
Me.cb_Nature.Size = New System.Drawing.Size(124, 24)
Me.cb_Nature.TabIndex = 30
'
'lbl_Shiny
'
Me.lbl_Shiny.AutoSize = True
Me.lbl_Shiny.Location = New System.Drawing.Point(10, 105)
Me.lbl_Shiny.Location = New System.Drawing.Point(13, 129)
Me.lbl_Shiny.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Shiny.Name = "lbl_Shiny"
Me.lbl_Shiny.Size = New System.Drawing.Size(55, 13)
Me.lbl_Shiny.Size = New System.Drawing.Size(68, 16)
Me.lbl_Shiny.TabIndex = 29
Me.lbl_Shiny.Text = "Shininess:"
'
@@ -297,33 +319,37 @@ Partial Class PGFCreator
Me.cb_Shiny.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Shiny.FormattingEnabled = True
Me.cb_Shiny.Items.AddRange(New Object() {"Never Shiny", "Can be Shiny", "Always Shiny"})
Me.cb_Shiny.Location = New System.Drawing.Point(13, 119)
Me.cb_Shiny.Location = New System.Drawing.Point(17, 146)
Me.cb_Shiny.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_Shiny.Name = "cb_Shiny"
Me.cb_Shiny.Size = New System.Drawing.Size(94, 21)
Me.cb_Shiny.Size = New System.Drawing.Size(124, 24)
Me.cb_Shiny.TabIndex = 28
'
'lbl_Level
'
Me.lbl_Level.AutoSize = True
Me.lbl_Level.Location = New System.Drawing.Point(311, 59)
Me.lbl_Level.Location = New System.Drawing.Point(415, 73)
Me.lbl_Level.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Level.Name = "lbl_Level"
Me.lbl_Level.Size = New System.Drawing.Size(36, 13)
Me.lbl_Level.Size = New System.Drawing.Size(43, 16)
Me.lbl_Level.TabIndex = 23
Me.lbl_Level.Text = "Level:"
'
'nud_Level
'
Me.nud_Level.Location = New System.Drawing.Point(314, 73)
Me.nud_Level.Location = New System.Drawing.Point(419, 90)
Me.nud_Level.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.nud_Level.Name = "nud_Level"
Me.nud_Level.Size = New System.Drawing.Size(60, 20)
Me.nud_Level.Size = New System.Drawing.Size(80, 22)
Me.nud_Level.TabIndex = 22
'
'lbl_OTGender
'
Me.lbl_OTGender.AutoSize = True
Me.lbl_OTGender.Location = New System.Drawing.Point(111, 58)
Me.lbl_OTGender.Location = New System.Drawing.Point(148, 71)
Me.lbl_OTGender.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_OTGender.Name = "lbl_OTGender"
Me.lbl_OTGender.Size = New System.Drawing.Size(63, 13)
Me.lbl_OTGender.Size = New System.Drawing.Size(77, 16)
Me.lbl_OTGender.TabIndex = 27
Me.lbl_OTGender.Text = "OT Gender:"
'
@@ -332,17 +358,19 @@ Partial Class PGFCreator
Me.cb_OTGender.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_OTGender.FormattingEnabled = True
Me.cb_OTGender.Items.AddRange(New Object() {"Male", "Female", "Recipient"})
Me.cb_OTGender.Location = New System.Drawing.Point(114, 72)
Me.cb_OTGender.Location = New System.Drawing.Point(152, 89)
Me.cb_OTGender.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_OTGender.Name = "cb_OTGender"
Me.cb_OTGender.Size = New System.Drawing.Size(94, 21)
Me.cb_OTGender.Size = New System.Drawing.Size(124, 24)
Me.cb_OTGender.TabIndex = 26
'
'lbl_Gender
'
Me.lbl_Gender.AutoSize = True
Me.lbl_Gender.Location = New System.Drawing.Point(11, 58)
Me.lbl_Gender.Location = New System.Drawing.Point(15, 71)
Me.lbl_Gender.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Gender.Name = "lbl_Gender"
Me.lbl_Gender.Size = New System.Drawing.Size(45, 13)
Me.lbl_Gender.Size = New System.Drawing.Size(55, 16)
Me.lbl_Gender.TabIndex = 25
Me.lbl_Gender.Text = "Gender:"
'
@@ -351,17 +379,19 @@ Partial Class PGFCreator
Me.cb_Gender.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Gender.FormattingEnabled = True
Me.cb_Gender.Items.AddRange(New Object() {"Male", "Female", "Random"})
Me.cb_Gender.Location = New System.Drawing.Point(14, 72)
Me.cb_Gender.Location = New System.Drawing.Point(19, 89)
Me.cb_Gender.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_Gender.Name = "cb_Gender"
Me.cb_Gender.Size = New System.Drawing.Size(94, 21)
Me.cb_Gender.Size = New System.Drawing.Size(124, 24)
Me.cb_Gender.TabIndex = 24
'
'lbl_AbilitySlot
'
Me.lbl_AbilitySlot.AutoSize = True
Me.lbl_AbilitySlot.Location = New System.Drawing.Point(211, 58)
Me.lbl_AbilitySlot.Location = New System.Drawing.Point(281, 71)
Me.lbl_AbilitySlot.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_AbilitySlot.Name = "lbl_AbilitySlot"
Me.lbl_AbilitySlot.Size = New System.Drawing.Size(37, 13)
Me.lbl_AbilitySlot.Size = New System.Drawing.Size(46, 16)
Me.lbl_AbilitySlot.TabIndex = 23
Me.lbl_AbilitySlot.Text = "Ability:"
'
@@ -370,18 +400,21 @@ Partial Class PGFCreator
Me.cb_AbilitySlot.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_AbilitySlot.FormattingEnabled = True
Me.cb_AbilitySlot.Items.AddRange(New Object() {"Ability 1", "Ability 2", "Hidden Ability", "Random (w/o HA)", "Random (w/ HA)"})
Me.cb_AbilitySlot.Location = New System.Drawing.Point(214, 72)
Me.cb_AbilitySlot.Location = New System.Drawing.Point(285, 89)
Me.cb_AbilitySlot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_AbilitySlot.Name = "cb_AbilitySlot"
Me.cb_AbilitySlot.Size = New System.Drawing.Size(94, 21)
Me.cb_AbilitySlot.Size = New System.Drawing.Size(124, 24)
Me.cb_AbilitySlot.TabIndex = 22
'
'gb_Item
'
Me.gb_Item.Controls.Add(Me.lbl_Simple)
Me.gb_Item.Controls.Add(Me.cb_Item)
Me.gb_Item.Location = New System.Drawing.Point(440, 59)
Me.gb_Item.Location = New System.Drawing.Point(587, 73)
Me.gb_Item.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_Item.Name = "gb_Item"
Me.gb_Item.Size = New System.Drawing.Size(435, 430)
Me.gb_Item.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_Item.Size = New System.Drawing.Size(580, 529)
Me.gb_Item.TabIndex = 15
Me.gb_Item.TabStop = False
Me.gb_Item.Text = "Item"
@@ -390,9 +423,10 @@ Partial Class PGFCreator
'
Me.lbl_Simple.AutoSize = True
Me.lbl_Simple.ForeColor = System.Drawing.SystemColors.AppWorkspace
Me.lbl_Simple.Location = New System.Drawing.Point(161, 200)
Me.lbl_Simple.Location = New System.Drawing.Point(215, 246)
Me.lbl_Simple.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Simple.Name = "lbl_Simple"
Me.lbl_Simple.Size = New System.Drawing.Size(98, 26)
Me.lbl_Simple.Size = New System.Drawing.Size(122, 32)
Me.lbl_Simple.TabIndex = 1
Me.lbl_Simple.Text = "That's all" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Pretty simple isn't it."
Me.lbl_Simple.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -401,42 +435,47 @@ Partial Class PGFCreator
'
Me.cb_Item.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cb_Item.FormattingEnabled = True
Me.cb_Item.Location = New System.Drawing.Point(24, 18)
Me.cb_Item.Location = New System.Drawing.Point(32, 22)
Me.cb_Item.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cb_Item.Name = "cb_Item"
Me.cb_Item.Size = New System.Drawing.Size(386, 21)
Me.cb_Item.Size = New System.Drawing.Size(513, 24)
Me.cb_Item.TabIndex = 0
'
'lbl_CardID
'
Me.lbl_CardID.AutoSize = True
Me.lbl_CardID.Location = New System.Drawing.Point(355, 18)
Me.lbl_CardID.Location = New System.Drawing.Point(473, 22)
Me.lbl_CardID.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_CardID.Name = "lbl_CardID"
Me.lbl_CardID.Size = New System.Drawing.Size(46, 13)
Me.lbl_CardID.Size = New System.Drawing.Size(55, 16)
Me.lbl_CardID.TabIndex = 17
Me.lbl_CardID.Text = "Card ID:"
'
'nud_CardID
'
Me.nud_CardID.Location = New System.Drawing.Point(358, 32)
Me.nud_CardID.Location = New System.Drawing.Point(477, 39)
Me.nud_CardID.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.nud_CardID.Maximum = New Decimal(New Integer() {65535, 0, 0, 0})
Me.nud_CardID.Name = "nud_CardID"
Me.nud_CardID.Size = New System.Drawing.Size(60, 20)
Me.nud_CardID.Size = New System.Drawing.Size(80, 22)
Me.nud_CardID.TabIndex = 16
'
'lbl_CardType
'
Me.lbl_CardType.AutoSize = True
Me.lbl_CardType.Location = New System.Drawing.Point(13, 18)
Me.lbl_CardType.Location = New System.Drawing.Point(17, 22)
Me.lbl_CardType.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_CardType.Name = "lbl_CardType"
Me.lbl_CardType.Size = New System.Drawing.Size(59, 13)
Me.lbl_CardType.Size = New System.Drawing.Size(74, 16)
Me.lbl_CardType.TabIndex = 18
Me.lbl_CardType.Text = "Card Type:"
'
'btn_Done
'
Me.btn_Done.Location = New System.Drawing.Point(16, 505)
Me.btn_Done.Location = New System.Drawing.Point(21, 622)
Me.btn_Done.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btn_Done.Name = "btn_Done"
Me.btn_Done.Size = New System.Drawing.Size(402, 23)
Me.btn_Done.Size = New System.Drawing.Size(536, 28)
Me.btn_Done.TabIndex = 19
Me.btn_Done.Text = "Done"
Me.btn_Done.UseVisualStyleBackColor = True
@@ -444,55 +483,61 @@ Partial Class PGFCreator
'lbl_CardTitle
'
Me.lbl_CardTitle.AutoSize = True
Me.lbl_CardTitle.Location = New System.Drawing.Point(121, 18)
Me.lbl_CardTitle.Location = New System.Drawing.Point(161, 22)
Me.lbl_CardTitle.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_CardTitle.Name = "lbl_CardTitle"
Me.lbl_CardTitle.Size = New System.Drawing.Size(55, 13)
Me.lbl_CardTitle.Size = New System.Drawing.Size(68, 16)
Me.lbl_CardTitle.TabIndex = 21
Me.lbl_CardTitle.Text = "Card Title:"
'
'tb_CardTitle
'
Me.tb_CardTitle.Location = New System.Drawing.Point(122, 32)
Me.tb_CardTitle.Location = New System.Drawing.Point(163, 39)
Me.tb_CardTitle.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tb_CardTitle.MaxLength = 36
Me.tb_CardTitle.Name = "tb_CardTitle"
Me.tb_CardTitle.Size = New System.Drawing.Size(224, 20)
Me.tb_CardTitle.Size = New System.Drawing.Size(297, 22)
Me.tb_CardTitle.TabIndex = 20
'
'gb_Power
'
Me.gb_Power.Controls.Add(Me.nud_Power)
Me.gb_Power.Controls.Add(Me.lbl_Simple1)
Me.gb_Power.Location = New System.Drawing.Point(881, 59)
Me.gb_Power.Location = New System.Drawing.Point(1175, 73)
Me.gb_Power.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_Power.Name = "gb_Power"
Me.gb_Power.Size = New System.Drawing.Size(435, 430)
Me.gb_Power.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_Power.Size = New System.Drawing.Size(580, 529)
Me.gb_Power.TabIndex = 16
Me.gb_Power.TabStop = False
Me.gb_Power.Text = "Pass Power"
'
'nud_Power
'
Me.nud_Power.Location = New System.Drawing.Point(176, 22)
Me.nud_Power.Location = New System.Drawing.Point(235, 27)
Me.nud_Power.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.nud_Power.Maximum = New Decimal(New Integer() {65535, 0, 0, 0})
Me.nud_Power.Name = "nud_Power"
Me.nud_Power.Size = New System.Drawing.Size(60, 20)
Me.nud_Power.Size = New System.Drawing.Size(80, 22)
Me.nud_Power.TabIndex = 17
'
'lbl_Simple1
'
Me.lbl_Simple1.AutoSize = True
Me.lbl_Simple1.ForeColor = System.Drawing.SystemColors.AppWorkspace
Me.lbl_Simple1.Location = New System.Drawing.Point(161, 200)
Me.lbl_Simple1.Location = New System.Drawing.Point(215, 246)
Me.lbl_Simple1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl_Simple1.Name = "lbl_Simple1"
Me.lbl_Simple1.Size = New System.Drawing.Size(98, 26)
Me.lbl_Simple1.Size = New System.Drawing.Size(122, 32)
Me.lbl_Simple1.TabIndex = 1
Me.lbl_Simple1.Text = "That's all" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Pretty simple isn't it."
Me.lbl_Simple1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PGFCreator
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1328, 540)
Me.ClientSize = New System.Drawing.Size(1771, 665)
Me.Controls.Add(Me.gb_Power)
Me.Controls.Add(Me.lbl_CardTitle)
Me.Controls.Add(Me.tb_CardTitle)
@@ -503,6 +548,8 @@ Partial Class PGFCreator
Me.Controls.Add(Me.gb_Item)
Me.Controls.Add(Me.gb_Pokemon)
Me.Controls.Add(Me.cb_CardType)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Name = "PGFCreator"
Me.Text = "PGFCreator"
Me.gb_PKDetails.ResumeLayout(False)

1276
PKMG5DC/PGFCreator.resx
View File

File diff suppressed because it is too large Load Diff

6
PKMG5DC/PGFCreator.vb
View File

@@ -439,9 +439,9 @@ Game: " & Origin(InputPK5.Origin))
Case True
MsgBox("Missing Field",,,,, "Error")
Case Else
Main5.Card.Wondercards(Main5.tc_Cards.SelectedIndex) = WC.Data
Main5.lb_PGF.Text = nud_CardID.Value & " - " & tb_CardTitle.Text & " (Custom)"
Close()
Main5.Card.Wondercards(0) = WC.Data
Main5.customName = nud_CardID.Value & " - " & tb_CardTitle.Text & " (Custom)"
DialogResult = DialogResult.OK
End Select
End Sub
#End Region

5
PKMG5DC/PKM/Database.vb
View File

@@ -1,7 +1,4 @@
Imports System.IO
Imports System.Runtime.InteropServices
Public Class Pokemon
Public Class Pokemon
Public Property ID As Integer
Public Property Name As String
End Class

2
PKMG5DC/PKM/PKMStrings.vb
View File

@@ -6,9 +6,11 @@ Module PKMStrings
Public Function SetString(ByVal value As String, ByVal maxLength As Integer)
' value = value.Replace(vbLf, ChrW(&HFFFE))
If value.Length > maxLength Then value = value.Substring(0, maxLength)
Do While value.Length < maxLength
value &= ChrW(&HFFFF)
Loop
Dim temp As String = value & ChrW(&HFFFF)
Return Encoding.Unicode.GetBytes(temp)
End Function

32
PKMG5DC/PKMG5DC.vbproj
View File

@@ -12,11 +12,27 @@
<AssemblyName>PKMG5DC</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
<TargetFrameworkProfile />
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@@ -60,7 +76,7 @@
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
<SignManifests>false</SignManifests>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>60BE65DE8B23BD89153A729E77677150B1D8B64C</ManifestCertificateThumbprint>
@@ -103,6 +119,11 @@
<ItemGroup>
<Compile Include="Event\Card5.vb" />
<Compile Include="Common.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="PKM\Cryption.vb" />
<Compile Include="Essentials\CustomMessageBox.designer.vb">
<DependentUpon>CustomMessageBox.vb</DependentUpon>
@@ -130,11 +151,6 @@
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
@@ -202,7 +218,7 @@
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.6.1 %28x86 and x64%29</ProductName>
<ProductName>Microsoft .NET Framework 4.6.1 %28x86 e x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">

13
PKMG5DC/PKMG5DC.vbproj.user Normal file
View File

@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory>publish\</PublishUrlHistory>
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory />
<FallbackCulture>pt-BR</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

354
PKMG5DC/Resources/12distro/12distro.asm Normal file
View File

@@ -0,0 +1,354 @@
// Pok<EFBFBD>mon Duodecuple Distribution
// by Prof. 9
// Version 1.4.1 "Skinless"
//
// Thanks to Yellow Wood Goblin for the slot-1 read fix.
.include options.asm
.nds
.open arm7.bin,2380000h
.org 23A6370h
loadhijack:
push r5,r14
bl 2007F98h
ldr r0,=2013900h
ldr r1,=2030000h
ldrb r1,[r1]
mov r1,r1,lsl 3h
ldr r2,[r0,r1]
ldr r1,=2011628h
ldr r3,=16D0h
bl 2003874h
mov r5,0h
fixchecksum:
mov r2,2D0h
mul r2,r5
ldr r1,=201162Ch
add r1,r1,r2
ldr r2,=2CEh
ldr r0,=27E3558h
bl 2007318h
ldr r1,=20118FAh
mov r2,2D0h
mul r2,r5
strh r0,[r1,r2]
add r5,r5,1h
cmp r5,7h
blt fixchecksum
loadhijackexit:
mov r0,r4
pop r5,r15
buttonhijack:
push r14
ldr r1,=2030000h
ldrb r2,[r1]
ldrh r0,[r0]
tst r0,40h
beq downtest
cmp r2,0h
.ifdef amount
moveq r2,amount-1h
.else
moveq r2,0Bh
.endif
subne r2,1h
b bhdo
downtest:
tst r0,80h
beq bhexit
.ifdef amount
cmp r2,amount-1h
.else
cmp r2,0Bh
.endif
moveq r2,0h
addne r2,1h
bhdo:
strh r2,[r1]
bl displayroutine
bic r0,r0,1h
bhexit:
pop r15
displayhijack:
push r14
bl displayroutine
bl 2000C94h
pop r15
displayroutine:
push r0-r7,r14
bl 2007F98h
ldr r1,=2030000h
ldr r0,[r1,4h]
cmp r0,0h
bne skiploading
str r0,[r1]
add r1,4h
loadlanguage:
ldr r0,=languagepool
ldr r5,=27FFCE4h
ldrb r5,[r5]
cmp r5,6h
bge setenglish
ldrb r5,[r0,r5]
b loadnext
setenglish:
mov r5,0h
loadnext:
mov r0,2D0h
mul r5,r5,r0
mov r4,0h
ldr r6,=2013900h
mov r3,4Ah
loadloop:
ldr r2,[r6,r4]
add r2,r2,r5
add r2,r2,64h
push r0,r1,r2
bl 2003874h
pop r0,r1,r2
add r1,4Ah
add r4,8h
.ifdef amount
cmp r4,amount*8h
.else
cmp r4,60h
.endif
blt loadloop
clean:
ldr r0,=2030004h
ldr r1,=0FFFFh
mov r2,0h
cleanloop:
ldrh r3,[r0,r2]
cmp r3,r1
bne cleannext
mov r3,0h
strh r3,[r0,r2]
cleannext:
add r2,2h
ldr r3,=428h
cmp r2,r3
blt cleanloop
skiploading:
ldr r5,=2030004h
.ifdef mypos
mov r6,mypos
.else
mov r6,0h
.endif
mov r7,0h
displayloop:
bl 2006E04h // r0-r3
str r5,[r13]
ldr r3,=2030000h
ldrb r3,[r3]
cmp r3,r7
.ifdef select
ldreq r3,=select|8000h
.else
ldreq r3,=801Fh
.endif
.ifdef menu
ldrne r3,=menu|8000h
.else
ldrne r3,=0FFFFh
.endif
.ifdef mxpos
mov r1,mxpos
.else
mov r1,80h
.endif
mov r2,r6
mov r4,0h
str r4,[r13,4h]
bl 2002D70h // r0-r2
add r5,4Ah
.ifdef dist
add r6,dist
.else
add r6,0Ch
.endif
add r7,1h
.ifdef amount
cmp r7,amount
.else
cmp r7,0Ch
.endif
blt displayloop
exit:
pop r0-r7,r15
.pool
languagepool:
dcb 0x05,0x00,0x01,0x03,0x02,0x04
.close
.open arm9.bin,2000000h
.org 2000DECh
mov r0,1h
add r13,r13,10h
pop r4,r15
.org 20011F0h
bl displayhijack
.org 2001200h
.ifdef d1xpos
mov r5,d1xpos
.else
mov r5,80h
.endif
.org 200121Ch
.ifdef d1ypos
mov r4,d1ypos
.else
mov r4,9Ch
.endif
.org 2001244h
.ifdef d1ypos
mov r4,d1ypos
.else
mov r4,9Ch
.endif
.org 2001260h
.ifdef d1xpos
mov r6,d1xpos
.else
mov r6,80h
.endif
.org 200127Ch
.ifdef d1ypos
mov r2,d1ypos
.else
mov r2,9Ch
.endif
.org 2001294h
.ifdef d2xpos
mov r1,d2xpos
.else
mov r1,80h
.endif
.org 200129Ch
.ifdef d2ypos
mov r2,d2ypos
.else
mov r2,0B4h
.endif
.org 20012C4h
.ifdef d1ypos
mov r2,d1ypos
.else
mov r2,9Ch
.endif
.org 20012D8h
.ifdef d2xpos
mov r1,d2xpos
.else
mov r1,80h
.endif
.org 20012E4h
.ifdef d2ypos
mov r2,d2ypos
.else
mov r2,0B4h
.endif
.org 20012FCh
.ifdef text
dcd text|8000h
.else
dcd 0FFFFh
.endif
.org 2001500h
bl buttonhijack
.org 200150Ch
bl loadhijack
.org 2002E5Ch
.ifdef mode
.if mode==0
mov r7,r7
.elseif mode==2
sub r7,r7,r0
.endif
.endif
.org 200E9BCh
dcb 0x30,0x31,0x2E,0x62,0x69,0x6E,0x00,0x00,0x00 // 01.bin
.close
.open banner.bin,0h
.org 2h
dcw 8B9Fh
.org 240h
dcw 50h,6Fh,6Bh,0E9h,6Dh,6Fh,6Eh,0Ah,47h,65h,6Eh,65h
dcw 72h,61h,74h,69h,6Fh,6Eh,20h,35h,0Ah,44h,75h,6Fh
dcw 64h,65h,63h,75h,70h,6Ch,65h,20h,44h,69h,73h,74h
dcw 72h,69h,62h,75h,74h,69h,6Fh,6Eh,0h
.org 340h
dcw 50h,6Fh,6Bh,0E9h,6Dh,6Fh,6Eh,0Ah,47h,65h,6Eh,65h
dcw 72h,61h,74h,69h,6Fh,6Eh,20h,35h,0Ah,44h,75h,6Fh
dcw 64h,65h,63h,75h,70h,6Ch,65h,20h,44h,69h,73h,74h
dcw 72h,69h,62h,75h,74h,69h,6Fh,6Eh,0h
.org 440h
dcw 50h,6Fh,6Bh,0E9h,6Dh,6Fh,6Eh,0Ah,47h,65h,6Eh,65h
dcw 72h,61h,74h,69h,6Fh,6Eh,20h,35h,0Ah,44h,75h,6Fh
dcw 64h,65h,63h,75h,70h,6Ch,65h,20h,44h,69h,73h,74h
dcw 72h,69h,62h,75h,74h,69h,6Fh,6Eh,0h
.org 540h
dcw 50h,6Fh,6Bh,0E9h,6Dh,6Fh,6Eh,0Ah,47h,65h,6Eh,65h
dcw 72h,61h,74h,69h,6Fh,6Eh,20h,35h,0Ah,44h,75h,6Fh
dcw 64h,65h,63h,75h,70h,6Ch,65h,20h,44h,69h,73h,74h
dcw 72h,69h,62h,75h,74h,69h,6Fh,6Eh,0h
.org 640h
dcw 50h,6Fh,6Bh,0E9h,6Dh,6Fh,6Eh,0Ah,47h,65h,6Eh,65h
dcw 72h,61h,74h,69h,6Fh,6Eh,20h,35h,0Ah,44h,75h,6Fh
dcw 64h,65h,63h,75h,70h,6Ch,65h,20h,44h,69h,73h,74h
dcw 72h,69h,62h,75h,74h,69h,6Fh,6Eh,0h
.org 740h
dcw 50h,6Fh,6Bh,0E9h,6Dh,6Fh,6Eh,0Ah,47h,65h,6Eh,65h
dcw 72h,61h,74h,69h,6Fh,6Eh,20h,35h,0Ah,44h,75h,6Fh
dcw 64h,65h,63h,75h,70h,6Ch,65h,20h,44h,69h,73h,74h
dcw 72h,69h,62h,75h,74h,69h,6Fh,6Eh,0h
.close

160
PKMG5DC/Resources/12distro/12distro.bat Normal file
View File

@@ -0,0 +1,160 @@
cd C:\Users\armin\AppData\Local\Regnum\PKMG5DC\tools
:menu
@echo off
cls
echo Pokemon Duodecuple Distribution v1.4.1 "Skinless"
echo -------------------------------------------------
echo 1. Create a 12-distro ROM
echo 2. Extract Wonder Cards from a ROM
echo 3. Compile Wonder Cards into a ROM
echo 4. Exit
echo -------------------------------------------------
set choice=
set /p choice=?
if "%choice%"=="1" goto patch
if "%choice%"=="2" goto extract
if "%choice%"=="3" goto compile
if "%choice%"=="4" exit
goto menu
:patch
@echo off
if not exist tools\ndstool.exe goto ndstoolmissing
if not exist tools\armips.exe goto armipsmissing
if not exist tools\ticket.nds goto ticketmissing
cls
cd tools
@echo on
ndstool.exe -x ..\ticket.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin
@echo off
copy data\data.bin data\01.bin
copy data\data.bin data\02.bin
copy data\data.bin data\03.bin
copy data\data.bin data\04.bin
copy data\data.bin data\05.bin
copy data\data.bin data\06.bin
copy data\data.bin data\07.bin
copy data\data.bin data\08.bin
copy data\data.bin data\09.bin
copy data\data.bin data\10.bin
copy data\data.bin data\11.bin
copy data\data.bin data\12.bin
if not exist ..\cards\01.bin copy data\data.bin ..\cards\01.bin
if not exist ..\cards\02.bin copy data\data.bin ..\cards\02.bin
if not exist ..\cards\03.bin copy data\data.bin ..\cards\03.bin
if not exist ..\cards\04.bin copy data\data.bin ..\cards\04.bin
if not exist ..\cards\05.bin copy data\data.bin ..\cards\05.bin
if not exist ..\cards\06.bin copy data\data.bin ..\cards\06.bin
if not exist ..\cards\07.bin copy data\data.bin ..\cards\07.bin
if not exist ..\cards\08.bin copy data\data.bin ..\cards\08.bin
if not exist ..\cards\09.bin copy data\data.bin ..\cards\09.bin
if not exist ..\cards\10.bin copy data\data.bin ..\cards\10.bin
if not exist ..\cards\11.bin copy data\data.bin ..\cards\11.bin
if not exist ..\cards\12.bin copy data\data.bin ..\cards\12.bin
del data\data.bin
@echo on
armips.exe 12distro.asm -erroronwarning
if errorlevel 1 goto armipserror
ndstool.exe -c 12distro.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin
@echo off
copy 12distro.nds ..\12distro.nds
rd /S/Q data
del arm9.bin arm7.bin banner.bin header.bin
cd ..
goto menu
:extract
@echo off
if not exist tools\ndstool.exe goto ndstoolmissing
if not exist extract.nds goto extractmissing
cls
cd tools
@echo on
ndstool.exe -x ..\extract.nds -d data
@echo off
copy data\??.bin ..\??.bin
copy data\data.bin ..\data.bin
rd /S/Q data
cd ..
goto menu
:compile
@echo off
if not exist tools\ndstool.exe goto ndstoolmissing
if not exist tools\12distro.nds goto 12distromissing
cls
cd tools
@echo on
ndstool.exe -x 12distro.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin
@echo off
copy ..\cards\??.bin data\??.bin
@echo on
ndstool.exe -c ..\ticket2.nds -9 arm9.bin -7 arm7.bin -d data -t banner.bin -h header.bin
@echo off
rd /S/Q data
del arm9.bin arm7.bin banner.bin header.bin
cd ..
goto menu
:ndstoolmissing
@echo off
cls
echo Error:
echo Could not find tools\ndstool.exe.
echo.
echo Press key to continue...
pause >nul
goto menu
:armipsmissing
@echo off
cls
echo Error:
echo Could not find tools\armips.exe.
echo.
echo Press key to continue...
pause >nul
goto menu
:ticketmissing
@echo off
cls
echo Error:
echo Could not find tools\ticket.nds.
echo Put a clean Liberty Ticket distro ROM in the tools folder.
echo.
echo Press key to continue...
pause >nul
goto menu
:extractmissing
@echo off
cls
echo Error:
echo Could not find extract.nds.
echo Name the ROM you want to extract from extract.nds.
echo.
echo Press key to continue...
pause >nul
goto menu
:12distromissing
@echo off
cls
echo Error:
echo Could not find tools\12distro.nds.
echo Use option 1 to create a 12-distro ROM.
echo.
echo Press key to continue...
pause >nul
goto menu
:armipserror
@echo off
echo Error:
echo Could not patch the ROM.
echo This could be caused by erroneous settings in options.asm.
echo.
echo Press key to continue...
pause >nul
goto menu

35
PKMG5DC/Resources/12distro/options.asm Normal file
View File

@@ -0,0 +1,35 @@
// amount of wonder cards (1-12)
.definelabel amount,1
// distance between names (pixels)
.definelabel dist,12
// status text color
.definelabel test,0x7FFF
// menu text color
.definelabel menu,0x7FFF
// selected text color
.definelabel select,0x001F
// text mode: 0=left, 1=center, 2=right
.definelabel mode,1
// menu text x-position (pixels)
.definelabel mxpos,128
// menu text y-position (pixels)
.definelabel mypos,0
// x-position for status text 1 (pixels)
.definelabel d1xpos,128
// y-position for status text 1 (pixels)
.definelabel d1ypos,156
// x-position for status text 2 (pixels) (English mode only)
.definelabel d2xpos,128
// y-position for status text 2 (pixels) (English mode only)
.definelabel d2ypos,180

2
PKMG5DC/Resources/date.txt
View File

@@ -1 +1 @@
2020/7/25
2022/2/4

BIN
PKMG5DC/bin/Debug/PKMG5DC.pdb
View File

Binary file not shown.

BIN
PKMG5DC/bin/Release/PKMG5DC.pdb
View File

Binary file not shown.

4
PKMG5DC/content/ILMergeOrder.txt
View File

@@ -1,4 +0,0 @@
# this file contains the partial list of the merged assemblies in the merge order
# you can fill it from the obj\CONFIG\PROJECT.ilmerge generated on every build
# and finetune merge order to your satisfaction

2
PKMG5DC/version.json
View File

@@ -1,3 +1,3 @@
{
"version": "2.0.0.1"
"version": "2.1.0.0"
}

2
PKMG5DC/version.txt
View File

@@ -1 +1 @@
2.0.0.1
2.1.0.0