mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-10-01 13:39:08 -05:00
Source Code Uploaded!
Finally got around to uploading the source code. There are still things to be done. Once a couple of things are fixed a released will be made. In the mean time people that know how to compile the program can do so but make sure to adhere to the license.
This commit is contained in:
Gamer2020
22
GBAPokemonGameEditor.sln
Normal file
22
GBAPokemonGameEditor.sln
Normal file
@@ -0,0 +1,22 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 2013
|
||||
VisualStudioVersion = 12.0.21005.1
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GBAPokemonGameEditor", "GBAPokemonGameEditor\GBAPokemonGameEditor.vbproj", "{FB471B62-6663-4CEA-BC71-1DF4817B877F}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|x86 = Debug|x86
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{FB471B62-6663-4CEA-BC71-1DF4817B877F}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{FB471B62-6663-4CEA-BC71-1DF4817B877F}.Debug|x86.Build.0 = Debug|x86
|
||||
{FB471B62-6663-4CEA-BC71-1DF4817B877F}.Release|x86.ActiveCfg = Release|x86
|
||||
{FB471B62-6663-4CEA-BC71-1DF4817B877F}.Release|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
GBAPokemonGameEditor.suo
Normal file
BIN
GBAPokemonGameEditor.suo
Normal file
Binary file not shown.
BIN
GBAPokemonGameEditor.v12.suo
Normal file
BIN
GBAPokemonGameEditor.v12.suo
Normal file
Binary file not shown.
152
GBAPokemonGameEditor/AbilityEdit.Designer.vb
generated
Normal file
152
GBAPokemonGameEditor/AbilityEdit.Designer.vb
generated
Normal file
@@ -0,0 +1,152 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class AbilityEdit
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.ListBox1)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 13)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(145, 170)
|
||||
Me.GroupBox1.TabIndex = 2
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Ability Selection"
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.Location = New System.Drawing.Point(6, 19)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(130, 134)
|
||||
Me.ListBox1.TabIndex = 1
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.Button1)
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(12, 189)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(144, 88)
|
||||
Me.GroupBox2.TabIndex = 3
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Name"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(5, 47)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(130, 28)
|
||||
Me.Button1.TabIndex = 2
|
||||
Me.Button1.Text = "Rename"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(6, 21)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(129, 20)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.TextBox3)
|
||||
Me.GroupBox3.Controls.Add(Me.Button2)
|
||||
Me.GroupBox3.Controls.Add(Me.TextBox2)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(163, 13)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(210, 170)
|
||||
Me.GroupBox3.TabIndex = 4
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Description"
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(12, 57)
|
||||
Me.TextBox3.Multiline = True
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.ReadOnly = True
|
||||
Me.TextBox3.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Me.TextBox3.Size = New System.Drawing.Size(174, 96)
|
||||
Me.TextBox3.TabIndex = 2
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(115, 19)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(71, 22)
|
||||
Me.Button2.TabIndex = 1
|
||||
Me.Button2.Text = "Repoint"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(12, 22)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(90, 20)
|
||||
Me.TextBox2.TabIndex = 0
|
||||
'
|
||||
'AbilityEdit
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(385, 302)
|
||||
Me.Controls.Add(Me.GroupBox3)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "AbilityEdit"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Ability Editor"
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
End Class
|
||||
120
GBAPokemonGameEditor/AbilityEdit.resx
Normal file
120
GBAPokemonGameEditor/AbilityEdit.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
90
GBAPokemonGameEditor/AbilityEdit.vb
Normal file
90
GBAPokemonGameEditor/AbilityEdit.vb
Normal file
@@ -0,0 +1,90 @@
|
||||
Public Class AbilityEdit
|
||||
Dim AbilityDesc As Integer
|
||||
|
||||
Private Sub AbilityEdit_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
|
||||
MainFrm.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub AbilityEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim loopvar As Integer
|
||||
|
||||
loopvar = 0
|
||||
|
||||
ListBox1.Items.Clear()
|
||||
|
||||
While loopvar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfAbilities", "")) = True
|
||||
|
||||
ListBox1.Items.Add(GetAbilityName(loopvar))
|
||||
|
||||
|
||||
loopvar = loopvar + 1
|
||||
|
||||
|
||||
|
||||
End While
|
||||
|
||||
ListBox1.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
|
||||
AbilityDesc = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AbilityDescriptionTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
TextBox1.Text = GetAbilityName(ListBox1.SelectedIndex)
|
||||
|
||||
TextBox2.Text = ((ReverseHEX(ReadHEX(LoadedROM, (AbilityDesc) + (ListBox1.SelectedIndex * 4), 4))) - &H8000000)
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim DexDescp As String = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
|
||||
|
||||
FileGet(FileNum, DexDescp, Int32.Parse(((TextBox2.Text)), System.Globalization.NumberStyles.HexNumber) + 1, True)
|
||||
DexDescp = Sapp2Asc(DexDescp)
|
||||
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
|
||||
DexDescp = Replace(DexDescp, "\n", vbCrLf)
|
||||
DexDescp = Replace(RTrim$(DexDescp), "\", "")
|
||||
TextBox3.Text = DexDescp
|
||||
TextBox3.MaxLength = Len(DexDescp)
|
||||
|
||||
FileClose(FileNum)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
ChangeAbilityName(ListBox1.SelectedIndex, TextBox1.Text)
|
||||
|
||||
Dim loopvar As Integer
|
||||
|
||||
loopvar = 0
|
||||
|
||||
ListBox1.Items.Clear()
|
||||
|
||||
While loopvar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfAbilities", "")) = True
|
||||
|
||||
ListBox1.Items.Add(GetAbilityName(loopvar))
|
||||
|
||||
|
||||
loopvar = loopvar + 1
|
||||
|
||||
|
||||
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
WriteHEX(LoadedROM, (AbilityDesc) + (ListBox1.SelectedIndex * 4), ReverseHEX(Hex(Val("&H" & (TextBox2.Text)) + &H8000000)))
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim DexDescp As String = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
|
||||
|
||||
FileGet(FileNum, DexDescp, Int32.Parse(((TextBox2.Text)), System.Globalization.NumberStyles.HexNumber) + 1, True)
|
||||
DexDescp = Sapp2Asc(DexDescp)
|
||||
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
|
||||
DexDescp = Replace(DexDescp, "\n", vbCrLf)
|
||||
DexDescp = Replace(RTrim$(DexDescp), "\", "")
|
||||
TextBox3.Text = DexDescp
|
||||
TextBox3.MaxLength = Len(DexDescp)
|
||||
|
||||
FileClose(FileNum)
|
||||
End Sub
|
||||
End Class
|
||||
178
GBAPokemonGameEditor/AboutBox1.Designer.vb
generated
Normal file
178
GBAPokemonGameEditor/AboutBox1.Designer.vb
generated
Normal file
@@ -0,0 +1,178 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class AboutBox1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel
|
||||
Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents LabelProductName As System.Windows.Forms.Label
|
||||
Friend WithEvents LabelVersion As System.Windows.Forms.Label
|
||||
Friend WithEvents LabelCompanyName As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBoxDescription As System.Windows.Forms.TextBox
|
||||
Friend WithEvents OKButton As System.Windows.Forms.Button
|
||||
Friend WithEvents LabelCopyright As System.Windows.Forms.Label
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutBox1))
|
||||
Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
|
||||
Me.LogoPictureBox = New System.Windows.Forms.PictureBox()
|
||||
Me.LabelProductName = New System.Windows.Forms.Label()
|
||||
Me.LabelVersion = New System.Windows.Forms.Label()
|
||||
Me.LabelCopyright = New System.Windows.Forms.Label()
|
||||
Me.LabelCompanyName = New System.Windows.Forms.Label()
|
||||
Me.TextBoxDescription = New System.Windows.Forms.TextBox()
|
||||
Me.OKButton = New System.Windows.Forms.Button()
|
||||
Me.TableLayoutPanel.SuspendLayout()
|
||||
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TableLayoutPanel
|
||||
'
|
||||
Me.TableLayoutPanel.ColumnCount = 2
|
||||
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
|
||||
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.0!))
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5)
|
||||
Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 9)
|
||||
Me.TableLayoutPanel.Name = "TableLayoutPanel"
|
||||
Me.TableLayoutPanel.RowCount = 6
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.Size = New System.Drawing.Size(396, 258)
|
||||
Me.TableLayoutPanel.TabIndex = 0
|
||||
'
|
||||
'LogoPictureBox
|
||||
'
|
||||
Me.LogoPictureBox.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image)
|
||||
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
|
||||
Me.LogoPictureBox.Name = "LogoPictureBox"
|
||||
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 6)
|
||||
Me.LogoPictureBox.Size = New System.Drawing.Size(124, 252)
|
||||
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.LogoPictureBox.TabIndex = 0
|
||||
Me.LogoPictureBox.TabStop = False
|
||||
'
|
||||
'LabelProductName
|
||||
'
|
||||
Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelProductName.Location = New System.Drawing.Point(136, 0)
|
||||
Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 17)
|
||||
Me.LabelProductName.Name = "LabelProductName"
|
||||
Me.LabelProductName.Size = New System.Drawing.Size(257, 17)
|
||||
Me.LabelProductName.TabIndex = 0
|
||||
Me.LabelProductName.Text = "Product Name"
|
||||
Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'LabelVersion
|
||||
'
|
||||
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelVersion.Location = New System.Drawing.Point(136, 25)
|
||||
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 17)
|
||||
Me.LabelVersion.Name = "LabelVersion"
|
||||
Me.LabelVersion.Size = New System.Drawing.Size(257, 17)
|
||||
Me.LabelVersion.TabIndex = 0
|
||||
Me.LabelVersion.Text = "Version"
|
||||
Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'LabelCopyright
|
||||
'
|
||||
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelCopyright.Location = New System.Drawing.Point(136, 50)
|
||||
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 17)
|
||||
Me.LabelCopyright.Name = "LabelCopyright"
|
||||
Me.LabelCopyright.Size = New System.Drawing.Size(257, 17)
|
||||
Me.LabelCopyright.TabIndex = 0
|
||||
Me.LabelCopyright.Text = "Copyright"
|
||||
Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'LabelCompanyName
|
||||
'
|
||||
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelCompanyName.Location = New System.Drawing.Point(136, 75)
|
||||
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 17)
|
||||
Me.LabelCompanyName.Name = "LabelCompanyName"
|
||||
Me.LabelCompanyName.Size = New System.Drawing.Size(257, 17)
|
||||
Me.LabelCompanyName.TabIndex = 0
|
||||
Me.LabelCompanyName.Text = "Company Name"
|
||||
Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'TextBoxDescription
|
||||
'
|
||||
Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TextBoxDescription.Location = New System.Drawing.Point(136, 103)
|
||||
Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3)
|
||||
Me.TextBoxDescription.Multiline = True
|
||||
Me.TextBoxDescription.Name = "TextBoxDescription"
|
||||
Me.TextBoxDescription.ReadOnly = True
|
||||
Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Me.TextBoxDescription.Size = New System.Drawing.Size(257, 123)
|
||||
Me.TextBoxDescription.TabIndex = 0
|
||||
Me.TextBoxDescription.TabStop = False
|
||||
Me.TextBoxDescription.Text = resources.GetString("TextBoxDescription.Text")
|
||||
'
|
||||
'OKButton
|
||||
'
|
||||
Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.OKButton.Location = New System.Drawing.Point(318, 232)
|
||||
Me.OKButton.Name = "OKButton"
|
||||
Me.OKButton.Size = New System.Drawing.Size(75, 23)
|
||||
Me.OKButton.TabIndex = 0
|
||||
Me.OKButton.Text = "&OK"
|
||||
'
|
||||
'AboutBox1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.CancelButton = Me.OKButton
|
||||
Me.ClientSize = New System.Drawing.Size(414, 276)
|
||||
Me.Controls.Add(Me.TableLayoutPanel)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "AboutBox1"
|
||||
Me.Padding = New System.Windows.Forms.Padding(9)
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "AboutBox1"
|
||||
Me.TableLayoutPanel.ResumeLayout(False)
|
||||
Me.TableLayoutPanel.PerformLayout()
|
||||
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
615
GBAPokemonGameEditor/AboutBox1.resx
Normal file
615
GBAPokemonGameEditor/AboutBox1.resx
Normal file
@@ -0,0 +1,615 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="LogoPictureBox.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAHgAAAEGCAIAAAAhWcaAAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAcOdJREFUeF7tvQdY
|
||||
lVe6Pc7z/O69czOJihE4vdF7Oxx6FwXFrtixd+yIKIKNImClSxdQsSv23luMMcaYXkwyiTF1MtW5Mzr/
|
||||
/9rfe9h+nAOIGZNoZs7zPjyIR4R11ll7vWXvbSGvkCsqFYoqhbJGqapTqRvU6q1qzXaNbrdOt09ne8jW
|
||||
9pit3Uk7uzN29ufs7c8LgU9O29uftLc7Zmd32M5uv53dPjvb3ba2O2xtt9nabrW1bbC1rbfV5mnVo9UK
|
||||
b0VWVtZrr7325z//+a9//evf/va3//u///v73//+j3/848GDBw8fPvyn8Pj/fu0PCwZ0hUJZqVRVqVTV
|
||||
KnWNWrNJo6nTaDdrdY063XadbpfOdq+t3UE7uyN2QBb4MpQRpwSsjwtfx982mWG9yda21labq1WPUiu8
|
||||
FLm5uW+99daf/vSnv/zlL/fv3/93g9sCKIPRBLS6Ws2ArtFoa7XaOq2uXqdr0NluEUi63dZ2ly2Yy/h7
|
||||
yM7uqB2DmEcz1nZ77Gx3ini9yVZXo9NV6zTZGtUwldxVXlxc/Nlnn/0bws2AfoRydTPKtVrdJh2LOh1E
|
||||
gEnBZluGeGMz4nsFxEFkSAdARwBrvAAkI7vMsK7S6Sp1mqUa1QCV3Fa+ZcuWP/zhD/9WcFsAZWWVkc7g
|
||||
sqaW0fkRynW2tjw44iA4tJg4zhEHyghAzyUbTyC9Jl4D6wqdrlynnq9WxiiTkpJOnjzJ4f7Va7eFskKp
|
||||
qlSpq9TQDU21IBqbjEA/gtgEbhPEsQbuFlSlSUCZgi+PeBPg3cCxLtfpNup0xTr1ZLXCX7Fq1ar3339f
|
||||
DDfWSZOl8texTFooS5XKcoY1Q7lGi9DV6lhs0rUOtDnBSVLA8Z220Ggj4gAd0EOyyYqYYF2m05XqtJla
|
||||
1RCV3EHe2Nj4+9//HnBzZ/LrsyUWyrVK1QaVukStLlNrKjTaKq22mmENDrYIMakfS3BICiEOYeHLI16P
|
||||
umYNAa9LdboSgdpz1cpI5eLFi2/cuAG4//jHP7ZlS55ralsoc5XKPKUqT6Veq9YUaLQlWm2ZlolpJXML
|
||||
8GcdQhxiYq7gsB+QFAANi82tSH1LrIt1uiIdHLdqBPMkDQ0N33333Q8//EBwi4X7eXfcFspspSpHpV6l
|
||||
VuepNas1CO06rW4D4xoTUyCORQxLWU3HOG4CN0QD0gETggDWfHmstWXflniN/6hQpy3QqueplVHKJUuW
|
||||
3L59+/vvv+dKYu64n0dqWygzlaoslTpHDaw1uRpNnkabr9WuEQKIFwhvcBHiHeK4GG6Sb8BNwVNHLI9i
|
||||
rAt02g1aTY5GlaCSO8r37Nnz7bfftqokzym1LVQrVOpMtTpLjZwCv6d2lRa5HMOaw02IFwrsAwc7TnBz
|
||||
uMFowppbERHWIDX+I+1arXqGWhGkWL169RdffAElIU+C9P25prYA9Eq1JlPDIkujzdGyILjzBLhXNxN8
|
||||
rRZYmEjKYwhuot3EbgqOdXWzhkCsNxix1izRKOOVMrns8uXL33zzjTm1n7s6iQVQ5kBrs7TGyBbBbU7w
|
||||
9QLcIHizgj8Z3JTvkIZw20d6zbEWtAtFErmLfPv27V999dXzTm0G9CM6c6DpE4K7LYJDT4qeRE9M2A2U
|
||||
QWrCmmwfXjZgjYURvMa7h7CGjAQqNmzYcO/ePTG1YUier7zGQjlFqU5nWD+iswnc+GP7cLeU78ezG0k5
|
||||
FU+AMoU51usfYa1ZpFH2YEb7nXfe+frrr7kh4SXA50JGLIKDg2WOMkWYQjlEqZ6pbg9usZ6YyDdnd0fE
|
||||
RExtKg3ioznWWBjJ/KzRYvFQDVTJVLILFy6A2jAk8NomK+Qz7kYs6uvrCwsLU1JShg8fHhgYqPBRqOJV
|
||||
6klq7dJmvTYheDvsJu1Geg24scTBepvkO22llECZgtIZriEirI2S7STfv3//l19++dzJiMWOHTt27dq1
|
||||
W3jAva5Zs2batGk9evRQeCpUvVQo/WhXtIa4OdzN7GPOhKx3R4wgWUBSEgQ+MdFrE6wnsR4CEkg4P6yQ
|
||||
JCOUsj/jkm1x4MCBgwcPHjp06PDhw/gED1CmqakJNJ85cyZD3FeBIrJ6lpmqcCUxt95rTX13h6hNiD8W
|
||||
65ms7FdaWvr5559DRsiNoBplLtnPVAJpgaLwqVOnTgsPfHLixInjx48fPXqUcAfo4PiECRPkWrkyQqke
|
||||
YyYp7Qg3KQmoLZRNHpPEc+EmrKmsShqCpLHZhBityDy1IkSxdu1aNGval+xnB2uLK8Lj6tWr+Ijs4OLF
|
||||
i+fPnz979ixwx2vAQYeZRRWiX79+jOBDVJoFIpdi4gLFWeWPoDaJCT62i7VmoQYvfHZ29qeffiqWbHEC
|
||||
+UwtjxZvvPHGrVu38PHmzZuvv/462tXXr19/5ZVXgDtAxyoP0MF0IH7s2DHQfP369WPGjJG7yVV9Vahw
|
||||
tkhw2nLcYmqb16dMCrBEbQqOdQmrOrXg9WqtJk2jjFauWLHik08+uXv3LpwfTyC5y352sLZAg+OD5se7
|
||||
77779ttvo1cN6IE7CsSvvvoqQAfTgfi5c+dAc2gLEK+qqsKaKXeSM4syR4AbvO6IanND0k69uy2skcjw
|
||||
JRefAOt0DbpiS5cuvXPnDl8eeYmVL4/PwkSDxe+aH9A7vA3xE3/88cdA/r333uOgg+mg+bVr10Bzjjg4
|
||||
jtV/1qxZDO4+Ks08zSOs26I2GZLmylR7KyRoTnDjE+I1/hV4LcYaRZh8rSaDpTMZGRn4yWl55FZEnD3+
|
||||
4lhbwCThTQdbik/wU0LvQA2AT6B/9NFHAJ2Y/uabb3LEieNQFej45s2b0WmVu8tVg1Saxc1lKROseS2Q
|
||||
y0ir5q/VPo7AfbacAutinRZJI+c1xzpGuWzZMlAEPzm3ItQ6eEZ4bQFdQ5YFh4SP+BxuCaADeg46mA4R
|
||||
JJoT4hAWQhxL6KVLl7B4QlJqamomTZqk8FNgOokpidhom5SlKI1EXgM38ljJJuiFWZxHWHNzLQDNeA0N
|
||||
iVZmZmaCGWKsYfueEawt8LLzB5JaCJwJ6MR0orkYcUg5llDoOCSFCH7mzJmioqKhQ4eiUaKerm4Pa+5G
|
||||
WpXstnhNfRmhic4q18RrjjXWxghlXl4esOa2jyz2s4C1Bf0QeKCsjs9h++GQAD1+Pg46VA/lBaI5IU6q
|
||||
goVULCkgOOnJypUrmXAPUKGszErblNGYFbhZ+4ZqrY912URqPrOAdwOKfNxcc6xTNIpgRUFBwYcffvis
|
||||
YW2B0hc9MHWIR6ugg+lEc0Kcc5x0HJKCuhoafTAqpCfwhUjrp0+fjkYJK5u0jTUWtxbLY/utdzHWlMhw
|
||||
sSbznq+F41QYFJWVle1gTZ7vZ85lLGg5pgd+AjxaBZ1oLkYcUg6Cw8ASwfGLQcFJTzjcMN1yO7mqvwoa
|
||||
2havnwDr5peBKTv0HZMh3IQ0k5phPV2NQs22bdtMsBavjT8/1hYmL6wYdM50Mc2BOFcVLJ5EcHgVWCso
|
||||
OPTEBG5UUWABlSGCarehIU+MNcSaEnQYPm5CONYYF56gRof3yJEjHGsqifyCWJsCLcbdnOYccUi5mOD4
|
||||
NUjBTeAmMYH7RsEETSn1cLVRrM0bkrB9YovdloaISc0NH18YmwWEjWYPV6N+DR17RrBuD2gOequI0+LJ
|
||||
CU4KTnoihhvaDS+IDBPVEuTuyl5K5rU50OLmb0ewFr0AxsFJmBB0GmlhFJEa/4Wqn2ru3LlYrrnnw09I
|
||||
eSM11Hlr5mfQ6w4BbY446bgJwcml4Jfh7CbtxlKJZAdVFLjA1NRUGAN1kkBtatOIseZro4kPERs+c6xh
|
||||
QvjCyLHO1WpWaJTdldhvYI41rz39bFg/GdCEuJjg3KuAI6QnBDeJCbSblkoygrROorwp95Srx6oZ0G1h
|
||||
Df01adBwrMWqQmJtsjDSi4fvDKwXaFC8hgnBi42cC281rChUeyKsaYfHz5Cg/xigxQQXGxUy4xxuiAng
|
||||
xi8GZwIjiN8T6ySUBDkO+mfMjSSoHgEt5jVKIuSvxXNobZCaZYxUCeFZjIjUbGPHVLXcWY7+Bv53qj1R
|
||||
nQ8OivdlfgYT8i8BbUJwricEN5kTciaU6cCWwHQTtdFVGDduHGqteIMbBUQ0G2XMZYQc3ThlaZIudkSs
|
||||
BVIzrLEwymTQLsIaLzzWEvCA+jJUDPmpsX4KQLcFN18quXBDSZCwgdooDYLayGtmz56t7KlkCaSJWFOO
|
||||
DvEVak8Ma/O8vH2xpm9IGekqLRbh9PR0LBUQMbze+Enw8osN308t1k8NaA43iQlfKgE3CTcpiQm14f8w
|
||||
sIHaiCbVDGvUnqgTxqeH28Ha3FmTgDSTGt9fEaCoqKjAC4x3FaRMXOT7GUzIUwZaDLe5koBBUBK8bTm1
|
||||
8V4Gy9AlUYYq1cnqVoYrgTX0ty1SN9dAjGUQ7qzJ7bUktXqKGrsLUEZH+srNNRk+k4Xxp3B7PwnQYmfC
|
||||
4SYlwRIEapNqwwOQIcFvjl2IzPbNF7DmY5UAC4YPCyMXa94NaM2EGJ01lZyoDMJJLdRbVINVSFPh67FO
|
||||
iE3Iz7Aw/lRAmwg3KQlfJLlqkyGhFRLZIytCAWsALRphNU4MVwnjOOLOS1tYk9uj1JwEpFmpNcs1ynAl
|
||||
/CVWY25C+MJIhcyfSKx/WqBbVRKu2mIZQfIGq8uwBq+hIWJSk1hzARF3FM2xFvcHuICQUgukxtQk3B4G
|
||||
V9C+wJpssjBysX7q5b2fA2ixknBqk4xQagMZobwGLMvPz1eGKTHY2KIPSxkjOWtOahMZEZdBqD/A00UR
|
||||
qdGOwLgEOstInWhhpMq1iVg/dbf3MwHdKrUptSEZQV4Dow2swTJMazAfgsoqLzfD7VGXAAICQPnsB3Vv
|
||||
ebvLpI6K2h7Vm/iqKJBas0yDtXfdunVInSg7x2rxU2cxPyvQRG1e8oYgimUEvyolNVgeMUGgjFWyYWKO
|
||||
NXd75ED4/FirWHMBQb1JvCpSCyJHSBft5RjIgr8UZzHkrH8KAfm5gW5LRiiHxLrEl8fk5GSU38SkNpat
|
||||
K4RVkU9H0liTGa+NDoQ3B/iqKADNBKSvav78+SgrUhbDnbXY7T1FAfkFgDaREXIj3PmRy8avDa5NnToV
|
||||
ZyK0IHVzumgkNQ2gisXaJF2ErKMGIl4Vm0nNUhhfRXV1NVJzctZYJ6jk9FO4vV8MaBMZETs/ctnAGq1e
|
||||
1J7QLjFiDbywKsKB0KoIfPmwb2tYPypYk602IzX2yIwaNQrNAThreB4qOeGV/ikE5JcE2lyyqRSF35Nj
|
||||
DR8m95KzqTO+9ZF2ctCqSIdbcF63KiCw1eJVEVavWT2wGR22GrkSBARu7ycVkF8Y6I5gjTk/RajCaEI4
|
||||
qclWQzdoc4YJ1lxA+KoozhXJU0Ops7UsL9eyvBxuz0RA+EDIU0lhfnmg+fIoTtZNeI0RJGw7ZKQG0Hx3
|
||||
KSc133EkXhhNbDVWRW71xKTO1sLeoLAlFhAsyLy2J24O/Cs1kGcCaHMrAtsnxhrqiSkRSCptnDbu3uCk
|
||||
Fu/uasuBUGeAWz0xqWepMe6DQRQTB0IpzNMqWD8rQLePNXwIhoZx/IF6tpoBTUuiUK1mSk1bFhGQkfZJ
|
||||
TQUQShSb1QOTgpiGnTNnDuYI4UCo3kSrIupffEKBOl4/mtTPENDmWPO1kfx1XV0dy86RxaBfjiWRJ+UQ
|
||||
aNr83LZYG+dATEhNk5hZWswcY7QeJz1hGJzqTVQDQXmAbPW/3oV5toBuC2swC1iDZZiDRqmTAY2MnLcF
|
||||
IBcm2565gIhXRRRAypqHm8xJ3V81Y8YMNH3aXxV/NKmfOaDN10bwGhkE8gjk6CgDMWedpDYCLZSqmXpA
|
||||
NOg8LdEJhyY1kBakJk8tUg9NMiM1Rusx7sNttfmq+KNzxWcRaBOsKW+kHB2ZG4bq4Pbwfjdu/OdLIp0K
|
||||
Aqzp3ATzVZGmfkFqc6UWNq0i4wepkSXRqsgLe5Qr8mr1jyP1Mwq0ed5IWMMJIGlEm1U9VM2Abt45alwS
|
||||
xWeviLEWWz1KyilR5D5PAJoptbN869atGPShwp55rvij++XPLtBirKkeQjVVLFDwBkAEb3YGtLBzgJWZ
|
||||
gKxwUpnx7JVWHQiRWuypYT+EzIW2l2HvE6bIsIcB0/XiXFFcAPlx9uOZBtoEa6qpAmssjEgXsUfo0dZz
|
||||
Kn0Q0Di/CdQ2ERATUlP5lDqKpNQC0Dh2AAdN7t2719zq8QLIjyP1sw40x5paM+KFEbU9lJUZoyHTGElA
|
||||
oQPeQzjtkGHND8oycSDmpBYBDawxrpeWlgbbTlaPF0D+RVI/B0CbYM3FGrNOaOaClbSfzug96FhJfthe
|
||||
W0qNf0LVD+7zmtUDWxR69eqFPayweib5y79C6ucDaMKaiiFcrFGOAPXUiWo6cYjJNNJCqAed30mHSDYf
|
||||
Zt3C6hGpUdJD5cRsSQSp8fqhdfl0Sf08AU09MGqAoRKCLAaeFweBI1c0To6RTNPxy3Q4Kp3WaZa/ME+9
|
||||
sWXy0izTTKmHq0eMGPF0Sf3cAN2WWKOTiy7MI6AFmTaejwqsOalblqqNw77k88zUAz14JC/YOUmkNrcf
|
||||
P8JTP09Ai7GmLAaiifUKxSbNSo1xEoGApsOWERCQtkiN+TEkL7x22nJJVPVmPg+khv3gnponiuLqRwfL
|
||||
TM8Z0FysxQICPVUNVRmBFnJxdgQtUD4gCEg7pIa4i5dEsXpMZZO+OF6APDVPFKmpSD2BJ/J5zyXQfFoV
|
||||
bg/pIt7aeKfDC7MVj9IWrId0RD6wbovUfEmkLJEKp83egy2JAew0Sey+pkSRmoomJb2OJy/PH9AmAkIp
|
||||
DJQabQFju5aAxgHWdEg7bnkgUptVP4xLIi99tAQaZcKxY8eiy0XVD9SzqFOO2hbVqan50sEy03MJtLmA
|
||||
oLYJ+6FbJ1z9QMaDgKZbHojU5j0BkBqtW54lUjrefCoaNuGinYjOC/a4w97QqA3q1Hx+jJovHST1cww0
|
||||
FxBKYZinnqw2FqbJ4dHtGsB6v0BqvAbmpMaSiNIHVw8R0CxLDGEnJuAsGJCa6tS8+WKSvDx2SXxegTYn
|
||||
NU4OwSQqWxK5lQbQuJIHd5jgE5Aa1Q/hCDJx8kIbjYxbnalCLZJp1AhHjhyJyTGcJGCekT/Rkvh8A22y
|
||||
KuLAEHWK2hToEwKvodSofpgnL7QkckPd0uSxwqlWjqMBzX2euMvVEfV4joE2XxXR9EOblc5gZ9IBdT7O
|
||||
rkKyA9aHhNth2loSST0oc2mpHkjHoR5YEuHz+JJI06dPpB7PN9DAmuflWJrw+6PRBa9mLHcQ0Lhq6rRw
|
||||
rRc8NS2JraoHZS5UNRWdEgrvgZ3V2L8vXhJpIhJdiI53Xp57oGkOmBebwD6U34x3ZkCaATSu9TorXOt1
|
||||
UFgSzbtcpB48czGR6Zksc8F+UCyJ1LqlzotJlvhY9XjugRaviiA1eIchc7vtwu07HGjcWHfWnik1lsRW
|
||||
1QPeA8W8ttTDR4GDR5AlovTBs8RWDXU73uNXArSY1Ci8YXrxEdBn7O0vCAFSw+e1pR4o5lHV1EymcRgu
|
||||
jmnF4YqUJaJHLjbUXD3az1x+DUCbkBrH16JIzZJvXJgG6Thj73DBwemCEyP14Wb1MNlZDvWoEA6LbE2m
|
||||
cT5Anz590GfghppPM9GIHtWY2lcPdtTPY832s/8EsVLj3Y0yBTMeSFUA9Fl7xwuOrhddATfz1G2ph4nJ
|
||||
E7lpjKzLdaw7/q+ox68EaCI19RXBL2QZcGlMlE8woEFnj0sewBrsbk89uMlruR5SgSknJ4fUgyZsnlQ9
|
||||
LKAszz5hO/ITEqmpfIq1C/sEyETj7lZA7H3Z2+uSFyM1qYfY5IlO5WxTpvuo0Asm9TD3Hnw+rx31YED/
|
||||
OtSDPDX5PJQmMA7JLm6FiRaA9rns43fFz+2im1E9Wq17VIpkumXaoh7POrbYfiBWDxTzzDOXtsBk5979
|
||||
aoCmBi5NJfTu3RtdQWgF/AZ0AygHXg0E3GxJRDrelskT5+KitEWTopGpZTgWijIXTK2js4MtkZS5UCuA
|
||||
V01bff9ZUEW1I+/NZ/854iURxTygQyuh5yXPgKsBoa+EAmvoNUvHTUweVw+xTLe8RQLXTGAHNdQD1Suo
|
||||
h3krgKqmbSmERTt/9+wja/4TclKDfcieoRtAFgId9EpQ5KuREdciADrUgw00mck0OzUIbprSFrP1EIM1
|
||||
8+bNw1n81Aowr5q2b/IY0L8y9aAlEe9rtALsjzCB9r3sCzp3v9495noMqM28x147Vp42O6eJuWkUPVpL
|
||||
W9QJatygApnmVVO00DBxap4itirFFk/Uj3kuOM6XxEGDBjmUOUCgDVcM4HKv6736vNYHnzDvgRSxVZmG
|
||||
m6at+mb5IcbPIiMjMZbHTR56LiYyzTu25kBZPFE/5rkAmqsHpnvtF9mTboDO/W70G/T6oNjrsYCemTzI
|
||||
tLjhwmWa1kOU8VoaD5yLiPUQ1+Nyk0cDY+KObTsyzc6Pbn+5fC7AFf+Q3FADFN1wHfwGdAP4AuVhbwwb
|
||||
cGMA1IPJdFtuup310JNdj/bjZNqigzWR5wtuUg8YA3WQGrBCLnq/1jvhZkLirURgjT9CptnA2GPXw5bG
|
||||
A94cZkYs0zTvQTIt7gOYy7QFr4ngJ/uVGWq8kWUKWcCegOhXo6Ebo26Nmnh74tg3x0Ks4flYH0C4Cc20
|
||||
D4D1EGU8Mh4tgUb7Bt2yffv2cZnuuJu2oHP2fmVLIpdpNEcMxQYgO+TmkPG3x894e8a0t6cNfn0wM3no
|
||||
A2A9NDu3EE0AZjyorSUqLbHhx1HqgQMH4kYxctM0LWZe9Gg1NbGgJuOvb0kk9Vi+fLlvmi/oPPLWyKlv
|
||||
T53/7nzEmDfHMJk+0sZ6iCYAjAc5PBOgp6nDw8NxexsaLtxN84aLGEnztMXix83dPPuSTcU8HILqOdYT
|
||||
dB735rjZ78xe/P7itA/SQOqoV6NQb2J98XaMh5nDw71RHh4eO3fuhEzzdi2GPXBYED9/oq20xeLHzd08
|
||||
F0AjEUPr2rmnM+g8+a3JKe+lrPhwReZHmcnvJsNQIztn+WGrQFNby8zhoXGD5i/OUmkrbeHroXkOaIH6
|
||||
k/gokI4Pkz3jWJPJQ9FH56kbe3PszLdngsu5H+euubMm44MMOBCsh60bD9yNQQ7PHGgUpj3ZrXMm6yH2
|
||||
ueCoMT5oSgueibOwaHWY7NdRZiKZxrWjiScSwWJwecMnG0o+Lcm9kzvh9gSWtsB4mDg8Slt4xaNlzkK7
|
||||
LnCwFtZD3F1AUzXUBOBlPLLL5uuhBT+M7F/ZCfNssptkesCAAYnbE9M/SAeXK35XUfNFTfGnxbPenoW8
|
||||
nCXiJg6PgMaQGC8tmVjpaCUG1LEeivNDPtFLJ0/QfgATslpwdyJeNH8dAkImD2cJjigdkfNxTulnpZvv
|
||||
bt5xb0ftF7Vp76chbWGJeKsOD1a6DaDJSmPEVJwfiic9uIUzBZoWTeoUkKf+ERs0nllGA2i80xOyE9Z/
|
||||
sh747r63++DXB3fe2wnckZSjBdOmlW4rZ0lQDRs2jIwHdVswJ9YR42HBT9h7usdTPCPQg1bFxcX9F/Qv
|
||||
/135ti+3HfnmyKnvTh36+lDBJwUDXx/IHB5KS+3kLGbJIQYZMHqAsUduPGikhtpa3FaYF58t6IhO8alv
|
||||
vyZSA2iUlnpP6l33Rd3+r/ef+f7MlR+u4GP159XIyFnFo1Wga4RB3taycMybde/eHUDDePC2VkcK0+zO
|
||||
2Z/ieIpnhNGQadTpo4dGQy5OfHsCKFOA3ZNuT0L/heUsZgetY2iaDdO0CnSSGlfWo30jLkzTTub2HZ4F
|
||||
+mA/6aFNvyziABqN1JBeIZCLS7+/xIEGu2E80OVixdLWgGYzj8jCzaRDM1fj6+uLM0O4w6MhsVYbtWIr
|
||||
baFWe+L1EW96/jWtivhVYQn8Qv1INHhAqVPfS8X0AUsOza8OQPOwLaAXatzd3QlocaP2saUlCw+PaShx
|
||||
4WUxObSJyqfPWlUPwD32YdIEQCrh4eshRhmfg93LP1yOkRo2nd4q0OizUF2ppY/G1c2Ojo4AulUrLR6a
|
||||
NslZLEJDG5ydE3CzksnB1T/RWahiFPDWwTKC2R+MtWEyEZfG4rYQvOpIMbDgBAUFeXl5OTk5abValUol
|
||||
Fx74BH/EF/FXeEJ0dHT//v3xT3ByP2wc2h+4ABflHlgp/M5YCfHA/+Lo4nj595fFAayRjmPMg2XhrV2G
|
||||
wTZbtAa0dqlWp9NhgW21hsedG+9p8d8XQG8ODCywt++OFJ724opPfXtax0bi+8ADwRLh+kwcJpyQkACY
|
||||
PF1dekaEJg7qN3/S2JwFczZmLd1euOZYbdmVnQ23D+++c+bQvSun/vDahftvvvL3t68/fPc1BD7BH/FF
|
||||
/BWecLup8Up92bGi3O2ZizYmT8ueNHJeQp/RMWE9/bw9He2QfOM/wsTty91eztucV3+x/uRnJy99d4nF
|
||||
95fWfrzWcMnAGM1PEhPtBGgT6BVatVoNoNvKWUyKpS2ABtZ6/XKNxhdFRWoZmJ98z++U6uDihlYk3iLg
|
||||
Fw5Qg8O3t9X1CA+dOnLoqpS5W9blnm+sAUx/f/vVf75341+N25f/+drph5cPPTyz6+HxLQ8PVD/cVfxw
|
||||
y+q/VS3/KHf2uZQxDeP7zQ12HRfmGeGuUysl0QOixy4Yu3Tj0pSmFMNpg26HcP4EwuQKLmw+bJXRmVqF
|
||||
QgGgzYulIChtA2g1OQSjtwix2dt7nlLpAIFv9eT7jpywhxcT41Lg7OTJk+10uj4x0Qsmj6/IXn52S80X
|
||||
F4//q4C285K88+o/b57/57XjDy80PTyx7eGhmoe7GdYPalY+KE97UJR8d9HQ+6vG3c8c9fGCfsfGRxX3
|
||||
N8wKc4l2U1hKftMpplO3kd1kC2XqIjVd6cw20NXYsl2eZO8yhRApNRQMWmeeHIq3IPKqtJjRjaGhWwlu
|
||||
d/dJuL8K8078mpLHnnyPpQnucOPGjRi2dHN2GtGvDzi7v6Lo49OHfkJkzUF/9/o/b1365/WTDy8dZNQ+
|
||||
Uvdwb9nDbese1OU8qFx6d9nY+2unCliPvL90yF+X9P9ravwf50e/MtajMl47N1AS7dTZ2uZ/OkV2shpj
|
||||
Jc+QYzstfLQmT6PJ1mhXNmNNiKMkLQBNySGfeQQ7Wy3/PwI6LGxbaOgjrF1cRmJFavXke/E1JVgq8X9g
|
||||
Zw7+174x0cvnzNhXtuGTs0d+VnBN4H772j/fuNCM9U6GdVP5w52FDzfn381Nul86//76GffzJt7PHn1/
|
||||
2dC/pg/8Y0rPe3MC7k73uTvZ4+5E1ytDHUp6KKforQy2L/6X5f/r2rurZIJEtYTdmcZiJQsG+komHZBE
|
||||
eGLKwmljS1tAcyttAaBFWG8NCqp0chqIY375yfe0klIRFQTHd0fL3dnRYeyQASUrllzbs+WXBJewBsSg
|
||||
8+vngPI/rx59ePGAUa8P1jxs2vhgR8GX61PuV6ff35hyv2D2/TVTGLVXjvhzev97yeF3Z/nfnSZgPcHl
|
||||
s/HOd8Y5fzjGqTFeszDQJsahc9du/9MlvIvNKBvVIhUuy2GIL9VgMcSBjwCaZ+HYVGtS7jBvaAHo7SKs
|
||||
GbUDA4sdHeNxfxWKUnSaIbBGOxLLmqOD/bghgyqyl715aPeDd5gT+MlRxoLJeHrKiOC5vQ/P7Hx4ctvD
|
||||
41tZHNv88FjDw6P1jL+Iw5seHqp9yPCtfLhv48PdJQ93Fv2jce29DSn3Ny2/X7n4flny/cLZTEZyx/95
|
||||
5fCv0nrcBdazg+5O19+d7AleM6zHOr+f6PTuaKe3RzruidcuDpT0sO/ctev/WEZZSsZJ4KPhL3EcLdZD
|
||||
5Cx87oDKHe3UlSzQ1TXDutHff529fQ+cyY4+Am5Tl0gkA2N7rF6cDOP1lzeu/O02/Nar/2i2XE8B69fP
|
||||
sXUMqAGdxjUPajPZIlac/GDdrAerpz3InfQge/yDzDEPViY+WDGKxfKRwiejH2QmPsga+yBnPHtO3pQH
|
||||
a2awf7JhzoPCeeyflyx8ULbo7yWp97ImM4hL5t8vmnu/YNb99dPvr57855zEr5b1+XIxsI5kWCcZ7k71
|
||||
vjvR7fPxLuD1B4lO74x0vD3C8dZwh9eHOWyJU8/xsw7SvfRfL/0/GxubVatWYZcuHB4lh5Tu8XIHHTJh
|
||||
UsCziIw80CrWnp5ZNjYGO41m1thR2zbkf37+2FdXTn3/6tk/vn7xr7eu/t+/gDWzYiBdQ+6DkpQHuZMf
|
||||
LBv+j0X9/zG35z9mRf/fjIg/Twv/w9Sw76aEfjMl9N7k0HuTQu5ODPliYsjnE0N+N4EFPsEfEV9OCsHf
|
||||
fj059Nspob+fGoZ/9Zfp4X+bEf6PpIh/zI5m33BBPL7z/YUDvkqKub8s4f6K4fezRt/PSbyfMwbx56wR
|
||||
95bFf5kW+2VqzN3kiLtzgu/O9GdYT3b/YoLLJ2OcPxptxPqN4Q43hjm8OtThWoJDYaR8tH03H6UNiqV4
|
||||
i/PyPx/wwLufz6WLW7QW0dHHBaz3EK9DQrb6+dW6u5e5u5W4u2ZoVSGrU+e9c3QPXASw/vrq6d9fP/en
|
||||
m5c41iQg7WsIY+uOAsavrLECpjGAA7gAI+D16YTgO+OCPxwb9P6YoHfHBL09JuitxKDbiUFvJgbeGh34
|
||||
xujAm60Fvo6/xXMQeDL+FQL//IOxQR+NC7ozPhjfFt8cr8SX4wI+SnD9YVrgX2YE/TUp9K9zov6a3OOv
|
||||
C3v/MbXXlwsj7i6IZIyeH353bijjNbBmku15d7zrZ2MZ1u+PciJeA2sAfXWQ/dV4h+P9PFYG2/d2lEdF
|
||||
RaWkpGDdovI/OTzKWXhDi9ZDAH1KwPpgSMhOvb7W2bnIy7Pc3686NLAeYfDJstOE56fMfffY3jtnDn9x
|
||||
gWH9w/Xzj8Ea6B/f8qB62YOcCQzZmVF/mhZOsAICYEqAAiAxlK+PCvzXg78q9DLgNbs5zPdqP+e3x/i9
|
||||
P87w0XjDpxP8704K+Hpy4LdTDXcnu4K/jMXQaEgHBT5nvGZY/26My51EZ2ANvTZiPdj+Wl/HW8N8bg71
|
||||
vjHUpyTKOdFTbS+zWbBgAcrTUA/M4dFR6lgPxecuAegzERHH/P33uLtv0vtsCjTUhQVtbo6GsKAGg0+O
|
||||
gy4qe97M947t++Ts4bsXj3/zyhnCGtkwaQjx+sHZPUxes8fjPfv3GRF4O+NdL0YWvzln6L+OaQe/w9XB
|
||||
Xmf7Ol0f6Yu4MUp/c7T+zUT9W2P83hrj/dpoh1ujHd8e7fTBGCfoMhQD6+HdSe4M5Umedye43x3n+sVY
|
||||
hvWHo5iMvDnC8fUhDq8PcH5rmM+bDGuf14f5vjbUpz7WbbrezlsjR8kIrXGUWZAf0q05/C4Gi8DAwz7e
|
||||
uwIMe8NDDkSG7osI2RkWtMUE6wB9vqNtbEbS5PePNwHrLy+dEGP9t73lf1s/+/8WD/z7zEiAC+kEuHgL
|
||||
vyOIAAe3g7g89addGuBxtp/LtRG+FK+OZAHQr470ODPM7nyC3aWh9leH2V8f4XBzpONb0IpEp4/HOkM3
|
||||
Ph/rApQRxOuPRjm9CxlJcLw90PW9Eb5vD/d9c7gv3i43hgJr3+vD9DviPecGOBhsldBuLI+8Kkc3b1kE
|
||||
+h+MDDvePfJEdMSxqPDDUWFNESG7woO3toR7c6ChwMm+X/KExNebthHWXzes+T5r0g/zev1haigDdxzA
|
||||
DWTgjvnlwRW/Whf6uZ0f4MaB5p9cHO5+Yqjt8cG2Jwfbnhpse3aI3QUB9GvDHa4Pd7g1wuGtkY4QDeAL
|
||||
lBEfj2ZYvzfU6f0E9zujfD8YqX93pP72cP2t4b6vD9O/Nkz/6jC/a8P8dvX1nhvo5G+nwnla8HwQazgQ
|
||||
UNuie+RpIU51jzwZHXE8KvxIVNj+yNA94cGNJlgHB1S4Og6b3Dv67OyEj6f3+HRc0PtjA95K9H9zlP/N
|
||||
UQE3mcIG3GARiHjqxPzR3/BcH5eLg9zNgT4/zO34ENvjg5pjsO0JAfEzg+3ODbG7ONj+aoI9nAa8HRQD
|
||||
ugHQWSQ43Rnm8Vmi/s5o/Yej/ID1OyP1b47Q3xzud2O4H8N6uOHqcMP2Pt4zAxy9dMqioiIkIpARDjRh
|
||||
fQpYR0ccjQqDjADr7QLWgpIE1ofpq8K8N7qrh8g7davu7nIhQX8xwe/SUL/Lw/yuDDdcG+F/bUTA9ZEB
|
||||
r7F4hrA+3dvp0hBPc6DPDXNtATRHfJDtiUG2pwbanh5od26g3UXYjCH28BtAHOvh7UGOd4Z5fp6o/12i
|
||||
36eJho9H+30w2u/dUX5vjTTcGmm4McLw6nDDK8MNV4YZLg83bOrlNUHv6KBWwHSLgebUhowcjQo/JEj2
|
||||
rvCA+jDfyjCv0lDPkhDPkmCPEnfteIWldkWQ7dGBvqeG6M8m6C8wuPEfAGt/c6yJ4zyEV4IFnvnqCBav
|
||||
jAi4Otz/ynD/S8NYXEAMNSDODzWcSzCcFQX+iMDX6Ql4Jp5/Wfi3+A54pfHd8G2bfwb29joRa39lqPcr
|
||||
I3wRYrjPDnNuHeiBtscGsDg+wPbEAIb4GTHi/ezfHep5Z5T+k9F+nyUaPk30u5No+CjR8P5o/3dGCW/u
|
||||
kf7XRxiusR/JQL9LQYzHYE87AH1GkA76KJaRY1FB+yL9tkb4bAr1qgz2LAv2KA3yKKHwsp+rsfJJ8lId
|
||||
7O9zYpD+zBD9+aFgt+HqMIY1Ufv6yMDXRgWKMcXXAQf99wDrTILhZILf8SF+RwbrDw7UHxBi/0BfcTQN
|
||||
8DUJkyfQv8I/PzxIf2ww+26nEvzw2uBlYC/bUP3BHraXhvlcHu5zZbjPVSEI9FNDnY4NFklHM6OPEdD9
|
||||
jQG4OeJnB9qd722LMXashO+N9IV03Bnt90mi4ZMx/h+P8f9wTMC7iQG3Rwe8McofvzVwwMt/USANfk0C
|
||||
umVEnO4efLi7f1O0365I/Y5wny2h3ptCvKqCPTcGepQFepQKUeLnvMJe2n2oo7QqxvXYIP1pUHuo38Wh
|
||||
hsuAm+kUo9iV4QGgG8F6OsEgxhR4EYL7mmNvf989QuzuQNAz8U8Q/DvQN6RXgtDf18ezMdr26GCv40O8
|
||||
TiV4nR3qfX6Y96XhDPcTCfZHB+mODtQdG2RLQXptArQYcRD8ZKzulUGeNxK83xjq89YIwO334Wi/jxP9
|
||||
74wJuDM24KOxge8nBr6TGHBrdMANhnUAYY1fvyXQgDjoSHf//dGGpig/0HlvpN/ucP3OMN/GUJ/6EO/a
|
||||
IM+KoJZwu6iHyzsrVgTZQUZODvYF3KcHI/zw8cRgRtVDg3z3D9A3Cb88wUqAEpq7+vns7OezQxTb+/pQ
|
||||
bDML/lf4RPxP8B0Q+Fb0PekFIPS3xbrWR9vu7u+B2Nvfs2mg56FBXscGe51M8GoaZLt/gPbgAN3hgboj
|
||||
A0WID7Q9KmI0B5p90tf2RKzdlcFerwz2ejWBJSxvDPd9a4Tfe6P8Pkj0/3hswMdjAz8ei+wU7ivwzdHM
|
||||
HUDKgDWo1qzRphADZURThH5fhH5PuO/OcN8doT6bQ7zrgr2qRXAzgnvazdFY6Se4KerjPPb1897d3xsW
|
||||
h/3a+Jz98vgE4btLgJUAMuLYx2fbUwzh5eEvAEFf191xU4zD9n4eO/qz2CkgjtjZ362+r3prvHpHH83u
|
||||
vpqm/tr9/bWHBgiID9Ad7Y+wpWgBdB/bk3EOlwd5AeurQ7yvDfG+PtTnJhzeCL+3RxreT4R6MKA/HheE
|
||||
7Pc9lkaw+gFUFFgLQJNQGPYJLGYRgdAzoCk43AK1G0DtR3B7AusyP9dce3lf65deXmjQ1ffyaIj33NLb
|
||||
a0u819Z4ry19vBv7eLOP8T6NfVg8TXDb+W7CG6Ii3La2p9OWvu6NiH4eiG0C6Jv7OlX1VlXHqWriVLW9
|
||||
VJt7q7fFM8T39dPu76c91E93uJ/uKIUY8Xjb070cGdAMa++rg71fSfB5dajvjeH6N0YYbo80vDM64P0x
|
||||
gR+ODUS95UPYX6HSgGQYWFt0D2jqziCGSrAgiHkwlJsjXL83XL87jFG7McS7PtirNtCzOtCzMsCjwt+j
|
||||
HOGmS1J2805wlOVHOFfGelTHeW6K86zv5dXQ22tzb+8t8d5b441w/zxY40Ut8FfUxrnUx7s39HHf3Mcd
|
||||
iG8VQK+Nt98YpyrvqaqIVVXGtkS8t2Z3vGZvH+3+PtpDfXVHxHD3sj0T79wC6CE+ryT4voqEZbjfTebw
|
||||
/N8ajSUx8H0mIEZeA2sUXiyi/HZH+u1BRABlPUULrJuB3h/hh2gC3GH6XaG+24N9tgZ51wcCbq+aAM+q
|
||||
ACDuWal3XWMnH2j9knSqp7qip0dVrEdtnGddnFcDg5thjfjZqN0Q51EcrAbK4iDEK3rrSmKVpT2UZT1V
|
||||
G3saEa8C4rHK6p6qTbEqFKB39NKg8N/UR3uwr5HgR2J1Z/u6XhrkJaiHN9TjlSE+1xJ8rw1laeFrIwyv
|
||||
jzDAcsB4vJ0Y+O6YQDAacENDgLVFhH5HhN8uCLEQLbAO1+9DPGI0UPbbH6ZH7Av13RPiszPEZ3uQ95ZA
|
||||
r4YAz00BnoDbGB72CzU2oTEaq1R/O1C7JhbU9mqV2j+pktTGuJSF60yApj+WxGqKeiqLY5ToEyI44hU9
|
||||
lZU9lFVC1PRQNcSqG+PUu3tr9sYzgh/soT3Xz+3iQE8AfXmw95UhPlcFoF8dqr8+zO/6cMONkf6vj2R5
|
||||
MlzH7dGBAtysVImwCPPdGg4Pp98Zod/NsRZUgqFsDL8mgBumx0egfCDUGE0hvnuCfXYGM7i3BnptDvSq
|
||||
D/CsE0Df5O9R7ayZLO/qPtBemhniWB3raU5tKMmWeJ+iHp5ZkW4pwc5TDU4jve37udt2d9YGOah9bNWu
|
||||
GqW9SqFRyJXoActkCHyCP+KL+Cs8AU/Dk/FP8A/xz/FN8K2Ke3huFbS7MtKhIsreHOi6eLeiWFVhjLKw
|
||||
O4uimEeIl4HjMcryGGVFjLIK0UNZ3UNVF6vaGqfeGafZG6U53c/9/ADPi4OMWF9NYNIBRhPQr43wvzHC
|
||||
H2YDWL8xKoDqtKAzSkAWWNlgJ8J8t8NaAOtweAyGsjEYefV7Q31ZCJ83her3A+gwv4MIAXEGd4jvLgHu
|
||||
RoHgQLyBws+t0EE5QtpFN9xZnhfuDGqvjnRbGOQ8Ue/Yz10X4qB2Vivd3NwwtRQXF4epogkTJmC4a9Gi
|
||||
Reif4dh3jIhgkAG3NdXW1mK4Bw8063CZREVFBcbLMQeblZWFTjE2lWCSBGM6ON4nJCQEQ4guamWooyZC
|
||||
2XW0p2phiMOa7s5iuKt7OxX2VHKgCW4ECM6iu6K0u6Ksu3JjdwZ3ZTPctd1V26J0R/q4n+zncXaA54WB
|
||||
XpeI1ABaqChxoOGgXx/JsIbl4GVxC/jiYK8aeIkwn21Y6ML1uwSs94QZ8d1DKIcIEcqwRnCsD4X5IQjx
|
||||
fSG+u5sJDsSh4FsY7t5bPZ3z1LJBnX4rU3aztLG2wuZTnKQxZcoU9Noxh4Zte8Bu06ZNABFQopOPB4oD
|
||||
eGB8Aj1QemCu0PyBVjQe5l8vKytLTk62llpjLsk/yt9aauWlk8a5qibodRlhjht62LYKNIM7WlkUrQDW
|
||||
xdGK0uiWcEcq6yNtd/Vy3R/vdrSvx6kBnucY1j5XEnxfGaoH1gD6+gh/RmoBaPAahTBgTc0gC+R48GfB
|
||||
XlXwyKE+W0HtUN+dob67ocIUAmGNQLeB9eEwPwQhTgTfHeC9w89rm49no6dHo5fXDl/fXe7u2BYy0tra
|
||||
cfDgwdg5XF5eXllZCYjBVkCMBj5HFsABPkyoYBoID/RAMVGIB7rO9MAQeKsP/gQ8GTX4oO5B2XXZiKza
|
||||
rDk5c0bNHtUzoad3sLdS8aLB/qXBHl3nB9gUNNPZyOtoZWGUAlEkBOAuaYa7PFxZH2W/Pc5lZ5zbnt5u
|
||||
B/t4HO/veWag9wWGtf6VYax0x4AeyYBmWAtAE9YIAhqBrLoiyKsmyHtzsM82LHShvruAlxCE9SO4m3kN
|
||||
GSENORxuOIII8zsSpD9s8Dng49Xk49Ok1x8wGA4GBh4KDj4cFMQiOPiIr+9GB4cJEok7pkBxcAmIDBYT
|
||||
f4EvwAWsBCWmJtCLQ/cTDww7oN+MB7ry9ECf3+TB/4qeiRNKE6YkrN62enXj6vyt+Xlb8jDnmNuQu6p+
|
||||
lTZVaznY8sXgF//X/n/tlS/EOHWe6meVHykXGM1QZhHJgrA2sjtEWd/dsTHWBdnmjl6uu3q77+vjfqS/
|
||||
56mB3ucG+14e6ncVWDNSY0lkQKNiLC7tWgS4FwV4FAe4l/gjPMoCPKuDvBqCvbdCc6EDbWHdTG2Gdajf
|
||||
wUDfg/6+h319juj1JwMCzgQHnw0LOxcaegYREnIqJOQEIjiYfUSEhp7099/s7DxHqQyOiYnBiVBQD0BM
|
||||
nAW+BCtacJgDwjwUHpjExXQvGvt4oFeEB05UNHnQ1+k5eHJAQEDK2pSCvQUb9mxYv3v9+l3r1+1ct2bH
|
||||
mrl1c+W5ckmqRDJXIpkt6Ta8W+fozi+4vaCW/2+0Y+epvlZrIh4B/QhuIB6oqI9x3tzTZUus67Y4YO0G
|
||||
rPfEexzs53V8oM/Zwb6oGF8dxsrFUA/Ga6E0j89hBFETt/B3LzK4Ffm7FxuMUSo44k2Q1zawfkTtIN99
|
||||
Bu+9Pl77fAG0/zEB34thYZfDw68IcTks7FJY2IWwsPNhYfgrFoQ+PgkPPxsScsTLK8vWdqC1tRoXcdBh
|
||||
Z+ApkCVYASUO18fMFbZ042AuDAVipyq6RPTA7hv+4F/EE/A0rJ++Qb5lh8sQpYdKSw6WIIoPFBc1FQ2u
|
||||
GSzLlcnSZNIFUul8IeZKGeIju3WO6PyC4wsOshf6OFkm+9sQysYIV5SFaOp6ONf3IKzdtsW5be/tvive
|
||||
Y08fz6a+3kcH+qC8g3IxKtGokV4f6Q9DcqG/+7GedqfjXS4O8LIwuBUi/NyKEAaAzuAuMbiXwxTDP8BI
|
||||
AG6YCjG1g333+Hvv8fXa4+mxG/oQGHg0JORkSMhpAUSgeQEQh4dfjcCWSRavCMFwR0REXGyOSxERiMuR
|
||||
kVcDAupcXeep1eFEcLqkCngRmhi4QjMfQ8B4YHwCG0YwGoiBFZMHvogH/hbPgW8ZMnFI7dna2jO1Nadr
|
||||
qk9VV52qqjpZVXG8Irg6WJGvwCSjfLFctkgmS5XJUmTSZAHu6RKbCTYvx7/8kv6lTl3/21/z0ljPl/PD
|
||||
5cC6IESxMcy2NsZ5U4xLfU+XhljXrXFu23q574j32NXHc29fLxR5Dg30OTlYDyU52c/tWC+nY3EOZ/u6
|
||||
XRoE8xeAANAFfiyANYtmrAF3qb8H8r06MbWDfHb7ee/29twNCYb+BgWBxccRpAmCSgBusJVhDXwjcdZc
|
||||
5GtRUTeEj4jrCHwxCsc4iCI6+rXu3W9ERV01GDa6uExXqYJg1LCaQb6BGuBD8w3DbRicwJgr9gPjgSFu
|
||||
PNDe5w/6CvaS4IE9A+lF6Y2vNG69unXrla1brmxpuNSAQfTKc5VOtU7KtUrFSoViqUKRoZCnM8Tli+Sy
|
||||
ZJl0hlQySYK5L8kYifVwa8sIyxecX3CQvzDQpWu6r6Qiwr6mu/OmHi51PRjQDbFuDOveHjvjPXf19YKS
|
||||
NPZw2hxl1xipa4p1Pt7X68Jgv8sJ/leH+r8y1J8B7aAc4ue2QQhzuB9R29+rUe+5zdNju17fFBCA9Q0Q
|
||||
UzCgCWuIrxBMGSAXwDoy8hUgGx39enT0G9HRt7p35/FGTMzNmBh8fBQ9etzq0ePNnj3f7t79emBgjavr
|
||||
JK02DCegJSUlwTVj8hrDbRiNxQNzKjibCw8MzGOLiskDgq4P1gPfPW/s2X1z966bu3a9vmvnjZ3br29f
|
||||
eGqhpl6jWqdSrlIqs5TKTKVyhVKxXCB4qlw2UyabIZNOkkonSCXjjYi/3Pvll9xfkr/4P0Oc5ZlB9sg2
|
||||
gXV9TwY0qL2pu2NNlH1lmLY6TFsf5bCtp+vueJ/9/XyPDdCfHuR3fojhUoL/FQFri67/+4KtLM7HeVVr
|
||||
cDPh9nUr9XKrcHOt8fHZHhDQFBTEXERw8FEhGNAhIZzRIPXJsLBTYWGnBRU+D3GAMhDW3bu/GRPzVo8e
|
||||
7/To8S5Fz54U7wiBT96LjX0/Lg7xQVzcRzEx1xAhIZt9fJY6Og5XqXzi4+MhLPCFkG90PDFRiLEgPDBn
|
||||
j0Es+ogH7ihLnJV48L2DB947sP/d/Sze2b/vrX37bu8bcGyAuk6tKlSpVqtU+SpVnkq1SqXKUSlXKhVp
|
||||
Cvk8uXymXDZNJpsik00WEJ8olY6X2vSwQVaFoSQ7SbcBDrIMP/XGMF1psLo4ULUxVFsd6VAf49rYy3t7
|
||||
L+8d8T674n329PHZ18f3cH+/kwP9zg02XEzwB7UtskIde9vaqK2DPexTm7E2stvHtdDDpdDZqdDDo0Kv
|
||||
rzMYtgUE7AoMBNYQDYZ1SMgxAWWiM2f0qfDw00KcCQ8/Fxl5ISrqcnT0NYgD+AvCEqCxsR8CTUSvXh8L
|
||||
cUeIT4T4tFevz3r2vN2z51txce/Exb3Xq9cHsbE3w8N3+Ptne3iMt7MLk0rlMHDQYqSOWD8hLJgPwgOT
|
||||
K0gR8xryjn187NidY/h49KOjiMMfHD70/iG/w36aTRp1iVpdoFavV6vXqRniq1XKHKViiUKxQKGYq1DM
|
||||
UgBu+Qy5fJpcOllqPd66i08X7MRCwvniiy927dpN1unFvrY2KwNsa7u71vVwb4j1aIj13BrnxbDu7bPT
|
||||
iLXv3r76g/38Tgz0OwushxgsCqLc1ka6DHOSyyxdXLRTCGtf1w0ezuudnda7u5f6+FRiGk+ITQbDloCA
|
||||
7YGBe4OCDgQHHwoJAdbHQ0MRDOWwMKKzEeiICMxAnYmMJKwvRUdfhSb06PE6EIyNfTcu7kMB2c969/5d
|
||||
796f9+59Nz7+bp8+iC/79LmHIPR79/60T59P+/b9tH//3w0c+LuEhM+HD/985MgvBg++FB/fGB29KjBw
|
||||
mqdnvJ2dl8FgwOBhv379fJFl3d5z6INDhz86fPTjowxuxCfH8m7laQ9pAbSmTKMp1qgL1aoClXK9Ur5a
|
||||
LsuS2SyysZ5n3W1mt65Tu3aZ1OWlcS+9mPjib0f99sVRL/2v4rfe3kG9eg0bMWLGtGnpY8bMjYzs4yyT
|
||||
jHbXFkRAQzw2x3lujvPa2strW28fYL0DcPfx3dOXYb2/n/7YAD/IiEVJd/eCaIb1FE+1TSeZvWKIh/M6
|
||||
F6d17u5F3t4b9XpwuVKvr0Y0w13v778tMHBXUFCTgPWR0NBjYWEnhADEFKcJZQI6KgpxPirqYnT05ZiY
|
||||
V3r0eK1nzzdiY9+GRADN3r0/EyC+17fv1337ftuv37f9+387YAA+fjFgwN1Bg74cPPjLhIR7w4bdGzHi
|
||||
q9Gjvxo79qvx47+aNOnr6dO/njXrm/nzv0lN/SYt7d6CBTdnzTrq7z98bPKk/e8danrv4L539u99u2n3
|
||||
7T273ty189bOHod6vFT10ourX3wx58UXM1m8tPKlTis7dVrWqfOiLp3ndu48y9JyxstdZ3R7eaa1VZKN
|
||||
dZJUMlNuPUzWtatVUlLGjBnLkpKWz5qVOXdu9vz5uZMmLYyO7mvQKJJ8HepiGdBbegFrb2C9Ld5nR7wv
|
||||
sN4twN3UV3+kv59FRU/30hiG9bpI11Hu6t/813/Z2HR3cVnp61uOaAaaYe3nV2Mw1BoM4HWdv39DYOD2
|
||||
oKA9ISEHQkOPhIUdCw8/ER5+MiLiVEQEUD4dGQmIz1IIQJ+Ljj4fHX0hOvpS9+5XevS4BrhjY9+Ii3sb
|
||||
shAffyc+/nMBawbxoEHfJSR8N3ToV8OGfTVyJMD9OjHx63Hjvpk48dvJk7+dPv3bpKRvZ8/+Ljn5u0WL
|
||||
vsvI+G7Fiu9Xrfr9mjW/z8//TKG2Kz1cffLzCyd/d/7k5+dPfXH+1N3zp4XwPWNQb9epqnSqcp2qjIWy
|
||||
RKss1irWaxTZGvlStTxNJV+okqWoZAtUsvlKhHSe0jpGGhoaB3DnzMmZNy9nwYLVCxeuWbRo3ZIlRcuW
|
||||
laJgEx7eO9ZRsyzYZUsvbwTDOt4XwbHeHufT2N3XArV5YJ0b4TrEQ2cvl0Dg+vbtK5MZnJzm+PpWUIDU
|
||||
fn4II9b+/pv8/esCAoD11uDgXSEhTWFhh8LDjwJrAB0ZSSifiYoCxGKUAfT57t0vCHEpJuZKM7tvxsW9
|
||||
1avX+7173+nT5/O+fb/q3/87YD106DejRn2TmPjd+PHfTZr0/ZQp3yclfT937g/JyT+kpv6QlvbDsmV/
|
||||
yMr6Q17eH9et+2Nx8Z8qKv48Z87WfqMTTt+9ePrLi2fuXTx779K5ry6dw8d7l1a+k6M5bqve0gw0sN4o
|
||||
YF2sVa7XKrI0iuVqebpavlgtX6SWp6o54t28JQkJUxYsyEtJWZ2aum7x4oL09OJly8oyMytzcjbl5TWs
|
||||
WbN1/PhkB7k80cu+LMZja2/vRghIvO/mWJ+6aJ9NkT61Ed51EV4WKBPPD3QKs1fBe6LkiCsDsAUIe7O6
|
||||
ddPY2g7z9t4gkNqItcFQbTDU+PvXAmsBaMTmoCBsN8J4NYasj0REYAL4ZFTU6agoBnR0NIhMwVDmQMfE
|
||||
XBSCwd2jx9WePV/t2fNGXNybvXq927v3R/Hxn/Xt+yUEZMiQ70aM+H7MmN9PmvT7qVN/mD37D8nJf1i0
|
||||
6A/p6X9YseKPq1b9ce3aPxUV/bm8/M81NX/ZuvWvcXFTM6vzzn11+dzXl89/c+WCEOfx+deX+10bpNlv
|
||||
q26wVdfYqiuFqNAhGKnXEtAaxZLmSDMiLpui6iaXgM6LFm1ISyvMyACLy1asqMrJqc3P37x27bYNG3YV
|
||||
Fu4tKWnKzq4eMmRiuJ0m2c+lJsq7KpxFZbhXVZhnTTjCw2KUt529Uo6dWLiAYN26dfBGeXl52DqABT02
|
||||
NlapjHB1XejnVyEwutJgqALW/v41AQG1SOcCA+uDggD0luDgrRivDgvbFx5+MAJTTlEnoqIwdn0mOpqw
|
||||
BpEpiM6PohlxaDcQf6Vnz+uxsa8T4vHxH/Xp8zsQfMAAsPv7xEQGd1LSD/PmMaxB5+xsBnRJyZ8rK/9S
|
||||
X/+X7OxzIT2iD394kqH8tRFlwnr/l4fczntpdtmq6wSgq4RgWNuqSnTKfK0yS6NcoVFkCJEuhAC6tJ8y
|
||||
IiJ+yZJCsHjp0tLlyyuys2tyc+vXrGksKNhVXNwEy1NRcTQr68j06QcHDTro45Np9ZJ0gK0uP8CtItSj
|
||||
MswY1QAah0+jxF5SUoKkABuyUWsH4nig8oCvjx8/3sbG3t5+lK9vgcEAoCv9/QF0dUBATWDgpsDAuqAg
|
||||
hrUANAJ7jXaGhzdFRByKjDwWFXUyOvp09+5nu3c/J0SbcAP6lhxniDdz/B1wvE8fcPweJCUhgRF88uQf
|
||||
Zs78YcECRm3AvW7dn0pL/zxwYPqcnNSz9y6fbcloAD3r9jzNcTt1o6261lZdLYSANRPrQp1yFYDWKldo
|
||||
lUspHiFuY5CPGjVLYHF5ZiaIvCk/v2Ht2u1r1uxJT98/bdqhhIQjcXHQzCPQz6CgnXh/Ayi1ephBqpjv
|
||||
4VgR6l4Z5l4Rxj5aoFuBB7IAGFI8UDLHo1R4AH080OyAZ1KrI9zdU/z9qwICgDKLwMBaYB0cXBccXB8c
|
||||
DKyxJRQbQ4E19tMR3Aejoo4JOwrM4TalthnNoSqXoSrNNIeO3xbR/B7RHKBPmcIkZfLk11y8DXWXdp36
|
||||
4vLpu5dPf3n5DEf86yshlyM0TbbqzWZAY0lcr1PmCkAv1yqXiWKpVj5dba2QYd1LTy9PTq6aPr1m9Oja
|
||||
gQMb4uK2R0TshgsIDt4bHIxPYMDgC7YAZSiq8KYvd3CYpewiGemgA8oUFih04UFtDtTg6SPKxPwjfRE7
|
||||
5aVSWweHoXp9PvJjRFBQrRAM65CQ+pCQhpCQLeB1M9bbw8N3RkTsw6aNyEgmJgLiZ5qp3R7QHHQRzR+B
|
||||
3sz0t3v3ZnalT58vIC8eHtmJ82Ye+eTy0U8uH/v08rHPLh//3eUTn18++fnllW+tVhy1l222lVXp5BU6
|
||||
eTkLBT6WaeWFWtkqrSxLK1uulWVopOksJEs0Nmka68Uayx4KR8f+4eFFwcElKMLo9RRMQiGewBRLFMlm
|
||||
UJAx8BUoKv4Wb31395UyWVxPtTrH4MKAJkCpjYTqO/WNxA0O9DhQLMYDDRH09NRqfze3aYGBlUFBNcHB
|
||||
QJkHgxuHUmBbuUDtrbR9MSxsB3YiRUbuj4o6gs0yLeFuRbXNdbxV3Js1HavoaxERRzT27sUH6w99fOHQ
|
||||
xxcPs7hkjDuXIk73e7lR93K59uUi7csF2pcLtd0KWLy8Vts1R2uZobFM01imaCwXaLokq0WhesFBYms7
|
||||
1dMz29MzR4g8b+/Vvr4b/PxK/PzKBfEE0IB4e3DwjuDgncJHRCOoHRCAbAMmbaNGM8pPIk/xdLQAxOjR
|
||||
oTuHBgd1N9DXQOmduhhUfcdHPPBH1IuxYKIXZWfX09s7NTi4VohNISFAmYJRW8DaqCTNcBPBm0DwqKij
|
||||
0dE/huBtraXOzvOHzZh06KNzhz46b4yPzx8SouB2jeKAc9catWWx2nKD2nK92nIdiy5rVV1yVZ2XKTun
|
||||
KTsvVHaeT6Hg8VKC7De/sXJ1XeLmlu7uvtTDY4WXV463d76Pz3o/vzKDoSIgYFNQUCPwhXSEhu4NDd0H
|
||||
LyB8Ar+7A38lsBtpR6WDwwxbS4kFhxjdIzSNgCaqX2hVoOKOB4rCqLijmk6ld3wFVTT8LfbVKhS2Tk6D
|
||||
9PqVBHdICOBuC3EId6MI8d0C4ocEBWcL5pNKihhx/J5qO7eCphoBaNOIO5NguU1luVFpWaC03KC0XK+0
|
||||
XMeiy2pFlyxF5zR551R55wXyzvNN47cBErm8t6vr4magMz09V/n4rNHrCyHBgm5sDgnZLvja/UgjhEzi
|
||||
oOBxD4SF7YUHE6iNbKMK7wAXl/kW0ARiMTiLvgaaGgAU5XZsJEehHWctUZUdH1Eaxh9Rhkc9Hi8AKL9w
|
||||
4UKVyg379A2G3GZ2c9BNCE56wuGGpIDjTFJEiD+xiANxR8c5I2dNaRXl6nd2aA66WW5SWZYIQDejbLlW
|
||||
2SVX0WWZAPTCVlDuNFn2G5mVnd1UV9c0N7cMd/flHh5ZXl6gM3SjFCSFr8VRYSEh2HS8PzwcECOBOCrE
|
||||
EQFosBu8xmZvSHmZXr/e1zfPAj06CAK6R+ApaAuIgS9gxXZ91NdRREdlHYVgPPAJvoKvA3eATohDweHB
|
||||
1WovV9fRBkNecDCEm+KJEN8lUhWu4/CFrbtvzmjQyt7dp/RIQ6tADzyX2HWH2rJCaVloRudsReclAp1T
|
||||
WgH6xZ5SK6tQV9dFkA7ohrv7CtBZEOgCyC7WOqyBorzhCLwsIBbiYHg4BASqjVSuKjAQT4agF+j1ay1A
|
||||
TGgFNAH6gI4RWkGAEvjiyEGU1ansiwf2KeJzlNhRbifEUZkEwUF8/EOsojNmzFCrvV1cRvv5rRLB/XjE
|
||||
xaqClTMiYq+I5iZSbrp42tlNmbhoTqsob3p3l+6Qh2WdyrK0NTovb5POkJH/dbTWaEY268YyDw/SjbV6
|
||||
fZGgzkgdIIa7YGHJxQr47qXdxyigC34X2gITDJGBYwHQaywgF2jQEZGBHSBGCwMQA1wU0XFuBNV56YGt
|
||||
iii0A3HADY5zuMFuiAlmMwS43Z2d4QJXtITbSPOWUt7WysmEpSXoWD/FTGfpD97FvmHhdZd2t0nnnW3Q
|
||||
OUfROV3eeVHrdH5poMzS0pfo7OYGOkM3sr288oRlEKgxv4G8AdmZkKBBplGBoMUfNMfXG/BuhiULDMRL
|
||||
UubvXwygDYb1FlBkwAQpQEcOVAWCBDFgxSG92GqLkzqwWQ4PfIJNitjoDPTxBHCc2I0+HsQErxNeLXw3
|
||||
rK6Y0cKpQU5O/by9F7YGtxh0cyk3sSvkESHokBe4ctJ0hrtKNWT+6qWtolzxdiNT51bpnKfosqKZzsmt
|
||||
6MYLPjYKRX+Bzmnu7rAcAHolLIePT75ev87PD4thCRAEjhAHwd1SDkG/CP4IYakKCsLfliOasS60wHsf
|
||||
igywwFAoAxpCwBEQA1bsjsNmROxppgd2JeKPhDjgxgHgeDL+CTp4eB/gdYLsQHwg3NB6eBiUqHAHoJ1d
|
||||
FI7WCwhY3zbiTF5EjgU/tynTW66iDHcXl+QeQwbsf+/UwY/O8jj00VkhzsWdGdJ1h6pLeWvq3D6dR0h/
|
||||
06UbDBl8Av4LF5cUV9dUN7fFHh7pXl7LvL1z9PrVYCgEQcAaq2J1UFC16FfD5ywErPG3DO6AgI0BAaUW
|
||||
ICMUAHJBB6CAyKAt7ffEnnHaXosHPqEHhxtPQ9+IxARSA00nJcGbg4QbioQFFlUq9Jwg3zhdz8cnrV24
|
||||
25SXZm9utOf4PRVah5zNGw5+dMY8Vr9RotjvaFmr6FIq77JB3mWdMTqvkXfOlXdeIe+UJuuUKuuULOs0
|
||||
n0LaaZ4xfhtoJZFEODpOc3Sc4eQ0E1M+gNvNbaGHxxJPz+Xe3lnwD35+a/39gXWxgHU5yAtYBXy5EeBY
|
||||
G6kNrNlB3VAA6AAgoyN9QGQ6w5GfDEa3yeNBl7rir/AEHGWHJ4P7eG24kuBtgTcHpgPICEK4CW4k8dAT
|
||||
TN7a2oa7uY3388vuAOKtuheWE2m1w8fMn3bwo9OtRtiJWMut8i7lsi6Fsi7rZV3WybqsZdF5taxzlqzT
|
||||
EmmnRdJOCx6By1F+aYzkN9Zd8c0dHKYAaycnYD3bxWWum9sCD4/Fnp5LvbzQD1mFlc1g2CAAvVEAmlAW
|
||||
A42f3JTaFkAZlIQOkFzQxmWCGMjy+0TooEo6NZ+wBt9JSaDjXEloneTCbQI3TCQqghhKQrJjbx/j7j7F
|
||||
zKJwUrT5iZtbSmBMdP2VXQc/PG0eC64ttdqntqyRdymWddkgRlnaeZW083Jpp8WSTgslneZLOs0zjRdC
|
||||
ullbB9nbT3RwmERYOzsnCUCnuLszoMFovR6MXtesHgDanM7in9xIbb0+2wIo05lrXC7MUeZnihHWYmq3
|
||||
qiQk3CZwU3qJhAhuErk+2gu46xiI29lFg+M44bAjHMdvaC3TZJSvahVlfNHjSIDlZlmXMlmXgpZ0zpN2
|
||||
zpR2SpN0SpV0WtAKyi+Ns/mN1FKtHmxvP8HeHkBPBaOdnWdhhMrdHdIBjV7h40MaDToXQXYFOqPmY6Ib
|
||||
j4DGL4VfDasUfk0LLsomckEUbvUKTBO4QW2uJHjBuAsUww0xIe3GUglngjwethJVFOSlQByHi0JVtNpA
|
||||
6LiX1zx//7VtgY739ai5k9tCediF8V13yy2rBNEQ0zlfoPOydukc2s3KKtDODihPcHCYLEgH6DwHuuHu
|
||||
vkigc6avby4EWqAz6Qan8yPdwA+PXwG/CH4d/FKYrscRNaj1s7uyxKIslot2Tsc0wZouiYaS4FuRC2wV
|
||||
bloq4UzICCJLgnyD4Mj+UcZCtwHniGJkQKm0h5S7uIzw9p7v77+Ggw5yhfWKbUs0NtwqVx9wtqyXdSlt
|
||||
Sec1ss650s4rm1Fulc5jTOg8RaDzTIHOKVgJvbyWC3TOhyM2GDidjUDjh8SPih8YPzZ++J49e6LMiRlw
|
||||
XnNG5c4Ca5r4oJSO317NVVusJO3AzXMcZJ4wlPDdWC1JT4jgUHAqEMKJo3WJoyHhDhUKtVYbAEvu6DhM
|
||||
Y++YXb+2LTqHnOhhuU3WpcJsDQSds6WdMiSdFkk6pbQiGhDrF4KgzsEiOkM3QOfZrq7JAp0zBDqv8vMz
|
||||
LoN+fvleXgvd3CY6OfXFj4cfEuOZeF/C0aJVIq48I4mj4qjxhk6Tpa+DJ73iaa3CTcJtwm6YbloqYQTJ
|
||||
d1PNhAhO/gQKLkYcpS5UxtFUmzNnjqur64wVM5rea2p6/8D+9w/t/+DIgQ+OHfjg+IEPTx788NSEy0ld
|
||||
9yosq2VdSgTRgNkwOg0pozNfA5NbAfrFkda/sbLUaoc2qzOWwelEZ1oG3d3nubhMdXFJtLcfoNNFqVRe
|
||||
crk6NDQUG0Rw9wg6UKjU85o+IUvg0o4QKu6zy31/NMriRbKtdZLDDdMNb0NGEL6br5ac4FzBxYhDVcBx
|
||||
ZPajZo06/eVpxMkvTh7/3fGjnxw9fOfwwY8O7v9gf8HNQu1+206bLDuVWHZa/3Kntd06r7XqvMYa0SnX
|
||||
ulOmTaclNp1SbTql2LR0Gvgji//VW1pZGTQatOt6q9U9VCqsXSFyuUEm85JKHW1sVOiZ6vV6cBazGJi4
|
||||
hCaAtuJNIXzfDd9uQ+Dy3QtgDLsXnI5na3Xp6zi1O8huyuApzaESFREc7hsKjtwSkgLEOcehKth6FTs4
|
||||
dvur289+dfbsPRZn7p15FF+e6XGph6xJZlNnY7XRqltxt5cLXrZcb2m5zrJzfudO2Z1eynjpxdQXf7vg
|
||||
t7+d+9vfzm4Zc377Qv8X/vul/8b533Z2dnjT+Pj44NRpzDNiqYApgnxhGgAHLeJdhc41+qi074bvCKFq
|
||||
vnjTDd+3QPtCaLQey74FifK/jnL77ObOhHw3pTmAG3qC0gohjmTHHHHonV+IX/H+4nNfnUMwrHkIoE+5
|
||||
OUV5QqnYoZBvksur5PIKubxcLt8ol5XKZEUy2RqZNEsqXSGVLpVK01lI0iWPIk3SzdANO++wRQyYTp8+
|
||||
HasxZAo7uoAvzqCCI8LwBVZpnNiDFjY6q4AY/CVNIM6KkaXmFAeXdoTQvgWLp4tyO3CTM4ER5AUTXqIi
|
||||
xLmkcMTxU9o72WdWZZ7/5vz5r1mc+/ocCwF0xLr317mecVXuUSoaFIoahaJS8QjoEplsvUyaI2VALzei
|
||||
TFjzsB5kDU2AzkKaADEK6xgLhhvDvjwcZA+UUT8AyhAKEBkvOUFM221Qx8eDOEttP9AWyOLBN4XQdhDa
|
||||
tMCAfiJ9eKInmyyVPKuk1RKGh0pUIDgUnEsKIQ7tBgTJ+ckXvr3A4psLDG4KAfQjXx4JuRSiOqhSNiqV
|
||||
tUpltRJAKyoUinKFvEwuL5SzMdFsmQzN6GUyWYZpSGdJu7l1g+xiCylYDIhxSCC2GWCvGBp1sD18RymI
|
||||
jCWOeqoELpDF4sF3MdHmJdCWGn6wUgQub1EhjbB4IuB+3JM53CZZJSc4LZgkKRzxJUuWTEubdvG7iyy+
|
||||
ZWFEXAAdMfDVgZrjGvVOtapepapRKauUykqlskKp2KhQlCgU6xTyHLkcB1wvl8uXymVLZcZoRhzj5bRl
|
||||
BkKBB9py+B9xoQOWBIgyJzKGA+hEf0AMfEFbUgMsHli0+RYm8V4bWCkYKr4XBBs+8B79OYBuS0/EZROS
|
||||
FI442ISpfUw3G+8++O6SEfFm0JNuJ9metdXs0ai3qNW1anWNWlWlUlWqVBUqZZlSWaBU5CkUOQrsVZEv
|
||||
k7NY2iKk46RWaivIBSgMOYb/hSLDqGEWDpt5se5hlghagc4RenXUsyZ8wVkiLFZs2sKEeg7WcCAL2tIu
|
||||
G6w0BC5tAcEKhPfozwo0Id4qwXmhCojjl0yYlLDvzX2Xv7+MwA0TxqALJ767lPNhjvt5d+1+raZRgz0p
|
||||
BLS6igWAVhWrVGtVylylMtu4RUWxTCEObA2SBEhQvIVKAF+wGBDjPEC8urhgBNYCE0XQCjpcHhBDc0Fe
|
||||
4EtqQLCKNy/xziqqzXxnDcCFs4KdxQoEVfwFgG6V4Dy9xG/Yf3R/mLlH16YIcHPQ6z6vC7gSoDuk0+7Q
|
||||
ahuECf4ajaaahbpCrS5Tqzeo2eaUHJUqU4W9QCyWtwhpfynmNwEuljvgCxYDYtIKWAuky5BjugqLGta4
|
||||
BAr4AlwsGyAssRWulGAlziIXI2SxqgNZAhfOCnYWaz5U8ZcE2hxxqGGf4X02X9x85fdXECa31OCPuFis
|
||||
+7Xutidsdbt02q04mlyr3aTV1rDQVGk05RpNkUa9Wq3OVauyVaoVrYRiskLiIIFiQIhhKiAU5N7wNoJB
|
||||
puO3YdGolQqIIbggL/BFMRLgcimgrUq0QwmwIhfjyGKlAbhYdagLiDUfqvhMAE2Ig0fxQ+Prz9cTyiZB
|
||||
oA+4McDutJ3tXltdo07XoNPV6XSbdLpaHcO6Qqsp0ajXqtX5avUqtTpLrV5pGrgcQRYiwxWbwBcPCAXq
|
||||
ahjqhFYQkfmtvRAKYjHaRsCXdJakgGNKe5MIVjGyWGkIXOr/UaPqWQEaKRa4XH+h3uRSKzHco2+Ntjtn
|
||||
Z7vfVre9BcrsVrwqrbZMi0sINas1mlx2rYcms0WoMxnoiv4KXFWP0WQ8CGJoBYgMg8zvgqSZABq7gETQ
|
||||
QABJAYeVeta8bd0qsrwLiDUfj2cCaPyqAxIHMMUQXdBm8vmUt6bggmm7A3bsYjzcyEv3eQvXAelwNz3u
|
||||
PS7U4qJYdnlKjinKBLpqokpmJ4NBhhYTxERkcm90WS8UGXaCrleCZwCLwV+SWoBLOkBsFROWOGuCLK8g
|
||||
Ue79ywONX3vo5KHY1toOynPemeNy0cXukIAyruOlO6Y5yhU6dhFQG9fx0qVAmgUaub8cw8eAGMPgdKoN
|
||||
Fl66XoyjDMcGl0aXWEF/6apv4Esle6onizGlzjVxltqqdBMaL2w8uoflx+UgT+Vf4RfAijRmzpimt5ra
|
||||
QRk31LM7vHHjMS4QM0e5UqfDxfQ4dIWutso2vRiPgFbEKrAxBxBTyYJmaOmiTaQhMHDIlfkFmjQQAKGg
|
||||
244JYg5o+7C2lWn/YozG8oJMYUbGjOOfHG8H5UXvLzJFGaJBXMa9VlU6div9OiYarV5MTyirhqpkMhkd
|
||||
z0SFITqHhW7ZBMpI8OiOXs5loEytaroTQVxJpjzgSWtEvwzQWNCd3Z1T16a2AzH+Cih7XvK0OyLisjnK
|
||||
uIWXRMPsVnpCWT1ZLXeWwyzzCjKhzC8kFOuy+Nq7p3tv5i8ANFxqUFRQbl1u+ygbFQMo427HRkGXmxdA
|
||||
I5fLhCt425fmeRqFQYE6Bj8iC4pBKCOxRlUIlSCYZX69MQwcv3KaFjfxXSr/imD+rEDjDYi1qO/IvhVH
|
||||
K9pHGavfI8VoiTLuHmSKsVGnK3jcApihUUYrUWvmKNPqRzfkofyG2gX8MooVqFGIL+ymCyc6crNgx6H/
|
||||
+YBGZoU678SUiftu7Wsf5alvTWUeQ7z6cTMHlAUzxy7fJS6bXQvL7x5U9WG30vN9UKjD0fV4VIcjaTa5
|
||||
QZruqnm6okEvxs8ENOoG+iB9RnEGsrv2UU68lYhbpJmT4x7jR6GsHqqWqWTIrcXSDJtBtx+jPI/EBEWi
|
||||
Vi8UfLqi8TMBDclDsot8ZOPhje1DfPK7kwNfH4hL0Y1ZCTm5tlBu9Z7S5ns01WPUckfjAgigycyJpRnV
|
||||
ZKR/dMcuakPI/R57RWbHVaLVZ/60jMbbE+5iTuYcHErSPsoNdxtirsfYn7G32y/KSpo9BtNlsWK0a5nV
|
||||
U9UKDwVKoOIF0ESa4ZpNbo1GyeInEg0jozeWrPgpIjc7efDAnlF9I3Lqs059caL9WHY73eu0h3y/RLZF
|
||||
Iq21kVbYSMttpGU20lIWkmJrSYG1ZJ21ZJW1zUorm+VWNkutbJZY2aS1ElYTXu7q2jkmJjhxVP8xo/uP
|
||||
HTNw/NhBkyYMmTxx6PSpw2cljZ47e1zK/ImLFk7NWDJjxdLZOZnz81ctWJOfumFtWuGG9OKCjJLCpaVF
|
||||
y8qKlz9dWH4SRqN04Kn3nJc977FEBs1hMHARut1RO7s9drbbzOoYlJXw1a9dLmtg5oIU6JtwLvMFEBkg
|
||||
STNcM6SZbpunSVq6Q+xpXczdlsJYiF+38tKVFBVlmc2RVbkRkY2oKkfkVFXkVFesQtRU5hqjKq+WRf6m
|
||||
6vz0tKTY2LD+iX037F53+u5J0/jy5GlRHPr8QN8r8aoTCvkumbxBKq+Vyiul8gqpvFwq38hCViqRFUlk
|
||||
6yWyPIk0SyJdKZEul0gzJNJ0iYwi41FIZ9lY+XfrFdd97pwp8+ZOnT9vekpyUurCWUvS5i7NWJC5YlFu
|
||||
TvraNSuLCnPLy9bWVhdu2bxxx7aqvbvrDjRtPXJox/Fju0+e2HvmVNPZMwfPnz148fzhi+ePXLpw9NLF
|
||||
o5cvHrt86fiVyyeuIq6cfOXKqWtXT1975fSrr5x59drZ66+ee+3V869dP3/jtQuvv3bx9RuXbt649Mbr
|
||||
l9+4eeXWzau33rj65q1X3rx17akxGnVbdCti+sdk1WShkdq+IuNvSz4twcl3rYgyrxbxDJtnJW07Oc0i
|
||||
jTJKidFCbuawAPI8m3ITLICYZeWuGQUNFD9NpPlppSfmvH4KjF6dt3jk8L4efm4zV8zYcWNbK0Tm1G6m
|
||||
8+QbE51POcqbpPJGqWyTVFbdTGTO5RKJrFAiWyeR5tpIs2yMXE5nXKYQM1o6z8YqpFt0dNjc2ZPnzgad
|
||||
pyXPn7FwQVLaojnpS5JXLFuYk52Wn7e8YENWaXF+VcX6+k0ljVvKd++s3ben/tCBxqOHd5zgdD594NzZ
|
||||
gxfOHXq2GI3KAIqc3v7eM5fP3HZt22NZjCds+3Jbvxv97C/YM6eM3NpMlJnBAJdR+URNjqpFdBG66Ap0
|
||||
8eeaxRpld2ViYiIKRtwyk5nDUsEzQLIZdDW0uKDBy0YdnFf+0SbvRzI6JzN5xLA+Tu4O4+aPqTi+sT0W
|
||||
i5R61s0kjzNuigMy+TaprE4iq5bIKqSycqlMUGQWZVJZsURWIJGtlkizBS6vsJEus+FENmG0dC7jclRk
|
||||
8OxZk+bMngJ1ZtK8YMaiVEjzvGUZKVmZi/Nyl65fu7K4MLdi45oaSHND2XYmzZv279t8+OC2Y0d2gs6n
|
||||
Tuw9fbrp7On9UOfz5w49E4xGCQb9Y/9Q/9krZ2+9vLUjLMZzYJNBZIcLDkisje5iS8t8hJc9YTCoit9u
|
||||
5ZPV8lOYLmMqmbgsTkyomkGTAlQCFduMnzo3aT1h6aDrKFyfMWPaqKjIwKDuAbOzZjZcrjt990RzmLmL
|
||||
ln5j/GtjmSLvFxTZSGSJrFwi2yiRgcIIGAyIMgzGOoksFwYDomwjXW4jXQouUzxSZ+PnM2ysDC/HxITP
|
||||
njmJ6Dx/7rQFydMXpsyENC+DzViZuio7fe3qFQUbsjeW5ldXbmioK27cUrFrB5Pmg/u3HD28/diRHSeP
|
||||
MzrDbJw53XTuzIFfktFwnWjLOzg5oOGUvzn/1O9OdZDFeNqqj1cxa3GupSKLE2uU8MWivL5ZlNvulbAS
|
||||
80w1/DLmP8UegyYQicuoGVEDED88SqCUZ9MWP7HNoCpoxzc5/GiBZkWlthi9LGMmkqugAO/AKP9p6ZPL
|
||||
jpacuntCHO0zuviDwthLPdTHlfI9UvlWWAuJrAqK3ExkxmUWUu6UTUWZc9mU0ZKx1t3cu8bHx8xMmgg6
|
||||
CzZjyoL501JTZi5eNDsjff6K5bAZS1bnL92wDjYjr7JiXd2mIrjmndur9uzadKBpi+A0th8/ugt0Pn1y
|
||||
7+mT+6DOZ8/s/1kZjbIhjASELzg6eOqiqUX7is7dO9dxCuOZu+/tHnVrFOuMHLeza2ouXFDfWtS6NhIZ
|
||||
Hb/S5soysr68NhslxnbJGFbHwEyiCZfhMUy4TOV8cBmFZrLMtF1V3J36ebj8qNaRnTkPdYD43pGeHk4B
|
||||
EX5j5yXmbVl14L0mY4GiJZE5qc0Zvf3TxpHXhkOOma/YLpU1SGQ1ElmliMgCixmRS2ykxTbSDRLpmpbu
|
||||
4pEot8Jom35WL6sthyb0nZk0YdbMiZDmuXMmJ8+btjBlBuPyknkrl6dkZy7Oz1u6fl1mSdGqCiED3Fxf
|
||||
ur2xctfO2qa9kGYkgdtgnI8f3XnqxB7EmVP7WDb4MzAaG+G8A7wTJiakFaRtOrvpsfXiVtm976t9E29P
|
||||
1F/R258SipwoJcMgi31Fc773qKla1ly8f5xTZgYjQ4MqPurLaP2J6xiU+5FfpoFPGpUz4bJ5p/Xn5LKR
|
||||
0ShKNL2zt73qWruMLv+wbNDVAc4nHeUHpPIdEsbi2pYsbpZjI5GLQGQb6RobidgmZ5jwt8UfJdNtrIJe
|
||||
Dgk2TJ44UuDyhDmzJs1jXJ66cMGMxang8twVy4jLGetgmYtyysvW1FRtaGAZYAWkudk1MzrDaZw4xtUZ
|
||||
fuPnYvQT6a/4yWvurMEkHOvsQYtRRG6XxS0UmbpQHSAy9bDRXeV9P9qog9YfmlLULqHcD2OfdPBIq1zm
|
||||
lbmnuDPqSR2IxWOLxSZmY+cn26e+Ntn/nJ/imEy2RyLbKpHV2chqbJgWkzWmaJZjRmTIMYi83ka6GkS2
|
||||
lmRaS1bYSJDvtUtk2GdriLLWckD/2KTp45JmjDNyee7k5PnTUMpYnDqLcXlpSnZWM5cLczaWrq6pQjWj
|
||||
eOuWjTsaK3fvYtJ86MCWwwfhNIx0BqOhzoLfeCYZnXcnb/Drg70ve9ufZr6YJXjbhdEhOApujUVabJRj
|
||||
dEaocEEDGLAW7dYujBNcyPpilZh64aJMNz3x7TqoL2NsATU5dLJpyIgfPCI+EuNZ4LJRox/L6Px3cofg
|
||||
4uDT7vKjUkbhRom0zgZ9EFmljazcRrZRiDJESxaTryiwka61kebZMBavBJGtJcusJRnWkiU2CCnCmPi1
|
||||
+MRmlFU3z67RkcFTpyQmTR9r5PLsifPAZaPHmJWRPo/pctai/NwMoZSRXV4GLq+rqy3aygrNlbt31jTt
|
||||
qT/QtBl0PnKIjDMzG/DOQjb4bDD67PdnV99ZDTscdDWIVdqOiVTYnMItWfxIjuErULXAVByfC2hjmIhX
|
||||
45i7GKiSO8gxKM6dsliUMfhCBoPa2Kgv8zO36DQoyv3Mp7medILrSSX4sc9vodElHxRNuzEl+kKE00kH
|
||||
+ZFm/tbbSGtspFXNrbyNQjePUViI0uZPwOhSQY4LBTnO53JsLVluLVkKFoujFUbbjLPq5vdycLDfmMQh
|
||||
06clzpg2ZibT5fFzZk+aP2fKgmTkfklLFs9emj5v5YqFq7IXr85D7reiuHBV+cbV1UyXwWVY5gpwed+e
|
||||
uv376g8yOsNpNB47wsoaJ46hUMf8xi/D6NLPSue+Mxf+IeBqABtAPmHH9HefkNHBC7fKX1C4LRaj9lbc
|
||||
XEemTA+l5DYmPFsQebAKE3I4DoiILN4GTFkfPwiRzpokg4EJI5oVpzO3zI93eer7gh/L3DZ7hvIjEtle
|
||||
iQwWGB1oIm+liLzN/CUWG0NoTjMu45MSa6MWrxO02GgqmlmcbkJk/sdHjLZJtOqm7xoY4DtqxMBpU0eD
|
||||
y9DlmUnj5syaICR+U1MWTF+cOnNJ2pzlS5MzVy5clZO2Jn9ZwXoh99uYX1Np5PK2reW7djDL3LQXbcDN
|
||||
B/dvPnKwUcgDt5E6/8KMboW5VJEwD2FYlgfrg5CjQLEC1pi0uMMspoIy8j25vZxu2jMnMp2bio4fnDLt
|
||||
QaODEDErjh42JvKpiEGDzOZnbv2km4KflNoWUnC2VdqaUZimLIQyhbW00Fq63lq6hs1aMEeBgBCTo2iT
|
||||
xSJ2p9lYD+z2sotlWKj/2MQhjMhTRwuiPHY2RHkWMxgL5k9NXTgjbREzGCuXL8jOhMFIX7dmeeGGzNJi
|
||||
tEuYX26oK9raAF1GAxBcRqGZChponWxFHGV0hjob/cYvzehWyWuuwtQBIQrDTnAh5o6i7baeSbsPyZ4y
|
||||
XIlzGrCZ0sRa8Hs6OZFRvuDnpvKDECHKHTnZ7ElJ95M+36KF+BKLibnNwQaFiqwlhcKs0GprSY6VJFMI
|
||||
mGKyEx2hsGA5bCZZdQvv2lXSJS42YsrkkVOnjAKXZ0CUZ4ydNWPc7JkT5s2ZlDx/SmrK9EWpM9MhysuS
|
||||
s1YszGWinCEYDCR+uVUVa2pr0C4hj1G+i1WZqwUuQ5oZnck4M+/8jDLaXIJpsqKc5XVsGJmrMA3LdsBO
|
||||
PPIV8wQ5dpJjjx/2nXE5Fp/HDmtBh4XTSdbiA4DF56a2L8rPlC6L3yIWLfhbYmMkL8265VvbrLKyybRi
|
||||
E28rrCTLrSTLrCQZVpJ0K0maVUtf3Ja7sLaZYWXV8+Wutl1CQvxGjOg3ZRKIPHLalFHTp41OEpwyRHnu
|
||||
nInJ8yYvTJ62aGFSetrs5UvhlBesyl6Un7dk3ZplgijnlDODgcSvYHN9UeOWsh3b4DGQ/lVDmpv2om+C
|
||||
JLDh4P4GoazBvPOzx2gSX05eWAjoL/XueGmC7PDj8joTLcYknKqfSu4mx5k52N1HLBZfTs0PGUGyh8E4
|
||||
nNDAt7fTSdacyFS+MDk39amcBvWT6nILRkvWW0tgHvKsbXIE5grkZRObNLSZYWWTbhzaZCwWR4tMrwWj
|
||||
rSd06xbVtaumS1Cgb8KQ3pMnDp8yacTUySOng8hTE2dMF9zFrPHzQOT5UxYumLYoFUSetSxjbubylJys
|
||||
1PzctLVrlhasX1lSlFVemltZsXpTNfp+BVvq0cZmXN65vRK6TNK8fy+SwDpwWVBnJtDPKKONzCXzwMUX
|
||||
5H1cOtfq6JB6khpzQ3JbOQ4gRe+8VRajjoyeiPjuBn6xAG2/ph3u/GhaMZFpS6W4e/3MirLJe8WC0ZYz
|
||||
t5m8rY4et8Nom9lWVv1e7urVxdnZLjoyaPSIAZMmDuNEhiLPgCJPHzN75tg5syfMmztxAYicMj0NRF4y
|
||||
e1mGoMhZC/Ny0tatXrph/fLiwqyykpxKiHLV2k01MMuFWxtKtm0t29EILqOUYbQZjM776g7sgzrDbDz7
|
||||
jP5RzOV0xni9qjcTYlzzhGOfOIXpwDJ+wwsdqEUsplsF0BOh00YwRkRHNdA5AuSRyVrw2gUnMlokz075
|
||||
4on03aJV8j6W0dZTunXr1bWrR5cuXTqFhvgNGdxr4rihk8YPnTRh+ORJw6dOHgFrMX3qqBnTR89KGjtn
|
||||
1rh5syfOnzt54YKpixZOX7I4KWMJsxZZK5JXZXNFXl5UkFlWgvJFXnXlmtrqdQ0Q5Ybixs3EZUxlVOze
|
||||
waR5725yzahpYH7uOWJ0G1OarUowjAR2OylDlHItO0cWRxGJUzuiMN0DBSGGL+b3FPF7dOhmddTeMKcs
|
||||
lmNULWiTOz9HQHwk+/NLZM76DjHaesLLjL9eXSxtOvv6uMX2CBs9sv+EcQkTxidMHJ/A5HjSMLB4+lTG
|
||||
4qQZibOSxsyeNW7u7Anz505KSZ6cmjJtySLBIGfMXbl8fnZmSm72otV5S9avzShYj3wPRM6p2Liqqnx1
|
||||
bdXa+k0bttQXbt1cBC5vbyQul4PLu3dW7mV0Rq0Z8StitCZVox6rVvVSKXwU6N3ROch0Jif0lySYHyVL
|
||||
Z0YShfnJcHRyGebsUT5GK4S0GIU3MhWovWHfPckx+Qq0RegogVb3uT+RID6DT27BaOukblbDunaLtoT4
|
||||
Wko6u7rahwTr+/aJHjdm0PixgyeMGzxh/JCJExImN1N42hTGYgjxzOlgsaDFcyYkz5uYkjxl0cJpaakz
|
||||
BHc8e+XyeVkrkemlrs5dvHZ1+vq1S4s2rCgpyiwvBZFzqytW11avrasVRFng8rYt0OXSHY1l4PIu0Hln
|
||||
5R7mNKqeb0bDNqgTmPllzFXLHnsOMj+Wk/OX8jqoMHrSRGE6HI4OL+O3QaEVQic/mbCYLiHhN2SYHNjw
|
||||
DHLzx/1IFg52Gh9v14hwQ98+UYkj+48TNuYZyQv+jgd/h0KCp0waNm3K8GmCl0gChWckwhRjz968OeMF
|
||||
CjNHsThVcBTpM5cvnQMWZzMWL1ydu2hNfpogx8tLCleWFWdtLMUeL1iLfIHI6xs2wSkXbG2AWS4Gl7c3
|
||||
Mi7v2FYGLu/aAacB4/yrYDTqZ3RrJD9hml8fyU/rFZ+DTMee0smcdLghnRxJKswpzIUYvhiVCjpci6wx
|
||||
v0pH7I75nPLzkuk9Ka8tJowfPHH8EOwtncTEd+iUiYy8UyeDvIL+TgN/Rwn8HTNn1th5c8Ylz5uwYB55
|
||||
ialpqdPSF88AhSHEK5bNzVo5PydrQW7OwvzcxWtWp61fk1G4fllxIeR45cYSzF3AV+TVVEKR19TVMFHe
|
||||
XLdhM0S5obBxC7jM6Exc3rkNTmPjr43RyNmgth0/B5mOPcXEJvEXNTY6fw9NPK7CmK+gAw35hVt0vhY5
|
||||
Cn6Vzq+exS2qd9OnjpgxDTFyJk53T0Iilzhn1pi5s8fOI/1ldYlJCxeAv1PSFk1bsnh6+pKkZemzViyd
|
||||
k8m8xLycrORVoPCq1DV5oPCSDesyCjcsLSpYXlIMFqP2BjnGNlu2r7a2ajWIXF+7rn7TenB5S4Ogy8xj
|
||||
FG/bWrKdhVGdf52Mhtt9onOQUSNGUQKHPNH5kSTBZCT4EXzioyLFQvxrdRQd0WuL+XNhG8YvmD8hJXli
|
||||
6oJJixZOXrywmbxpM5amz1q+dNaKZbMzl8/NBn8zwd+UvFXMS6xlKpy2YW16wXr44mXFBStKicVljMVV
|
||||
bL84FDlvUzWqyWvqa9fCXWyuY1zeXL9B4HJhI9I/Uud/B0Y/6TnI4qN66QhJOj+S38knVuF/Zwqb1qOX
|
||||
LpmxLCNpecbMFUtnrVyGLA7iK5AX4pu9IDc7JT934eq81LX5i9atXiyo8BLsOSzasLSkcHlpEXzxyo2l
|
||||
WRVliBx29kF5bjVOPYAiV+fX1cBdMC4jiMtb6hGoyZE6/5sx+knPQRbrr9hF8A7ev5WX6Ig6G+ejcVRM
|
||||
Xk5y3qoFOIhlde7CNXnwD6kCeaG/TIKJv0UFy0qLQOEVZezEGpzpgQM9wGLhHA/j8R3GUzuMXK41crlh
|
||||
E4oYsMz/9oymW3s7fg6yybGn4gNPO/7y/hs+02I9o21awboliML16UUbMoqEc4WEYCzG6UJMiEvoWJqs
|
||||
io1ZghYbz6FhR9GITqBhHqMGfnlN3X8YbXICzZOeg/yLj84/p+8Gi+KCpQiisEBeFtgg3ny+Eh2uxHxF
|
||||
R85U+g+j2zxTqa3jpX+tVbRf6g1hwSksYvGPPyXsP4z+yU8J+6WY8rz8vz/yTKW2zr37D6P/w+hfmPr/
|
||||
YfTPdbrBL/xC/9v89/9h9H8Y/esi+38Y/R9G/7oY/f8DPTxUq2GibSkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TextBoxDescription.Text" xml:space="preserve">
|
||||
<value>Description :
|
||||
|
||||
(At runtime, the labels' text will be replaced with the application's assembly information.
|
||||
Customize the application's assembly information in the Application pane of Project Designer.)</value>
|
||||
</data>
|
||||
</root>
|
||||
26
GBAPokemonGameEditor/AboutBox1.vb
Normal file
26
GBAPokemonGameEditor/AboutBox1.vb
Normal file
@@ -0,0 +1,26 @@
|
||||
Public NotInheritable Class AboutBox1
|
||||
|
||||
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
' Set the title of the form.
|
||||
Dim ApplicationTitle As String
|
||||
If My.Application.Info.Title <> "" Then
|
||||
ApplicationTitle = My.Application.Info.Title
|
||||
Else
|
||||
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
|
||||
End If
|
||||
Me.Text = String.Format("About {0}", ApplicationTitle)
|
||||
' Initialize all of the text displayed on the About Box.
|
||||
' TODO: Customize the application's assembly information in the "Application" pane of the project
|
||||
' properties dialog (under the "Project" menu).
|
||||
Me.LabelProductName.Text = My.Application.Info.ProductName
|
||||
Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
|
||||
Me.LabelCopyright.Text = My.Application.Info.Copyright
|
||||
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
|
||||
Me.TextBoxDescription.Text = My.Application.Info.Description
|
||||
End Sub
|
||||
|
||||
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
198
GBAPokemonGameEditor/AddOrRemovePrograms.Designer.vb
generated
Normal file
198
GBAPokemonGameEditor/AddOrRemovePrograms.Designer.vb
generated
Normal file
@@ -0,0 +1,198 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class AddOrRemovePrograms
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AddOrRemovePrograms))
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(259, 205)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(81, 23)
|
||||
Me.Button1.TabIndex = 0
|
||||
Me.Button1.Text = "Exit"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(172, 205)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(81, 23)
|
||||
Me.Button2.TabIndex = 1
|
||||
Me.Button2.Text = "Save"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Checked = True
|
||||
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(18, 209)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(126, 17)
|
||||
Me.CheckBox1.TabIndex = 2
|
||||
Me.CheckBox1.Text = "End program on exit?"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.ListBox1)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 24)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(132, 116)
|
||||
Me.GroupBox1.TabIndex = 4
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Programs"
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.Items.AddRange(New Object() {"Program 1", "Program 2", "Program 3", "Program 4", "Program 5", "Program 6", "Program 7", "Program 8", "Program 9", "Program 10", "Program 11", "Program 12", "Program 13", "Program 14", "Program 15", "Program 16", "Program 17", "Program 18", "Program 19", "Program 20"})
|
||||
Me.ListBox1.Location = New System.Drawing.Point(6, 21)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(115, 82)
|
||||
Me.ListBox1.TabIndex = 4
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.Button3)
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox2)
|
||||
Me.GroupBox2.Controls.Add(Me.Label2)
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox2.Controls.Add(Me.Label1)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(162, 24)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(178, 116)
|
||||
Me.GroupBox2.TabIndex = 5
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Details"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Location = New System.Drawing.Point(132, 48)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(25, 21)
|
||||
Me.Button3.TabIndex = 4
|
||||
Me.Button3.Text = "..."
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(51, 49)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(106, 20)
|
||||
Me.TextBox2.TabIndex = 3
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(7, 52)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(32, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Path:"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(51, 18)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(106, 20)
|
||||
Me.TextBox1.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(7, 21)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Name:"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label3.Location = New System.Drawing.Point(9, 156)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(328, 15)
|
||||
Me.Label3.TabIndex = 6
|
||||
Me.Label3.Text = "The program must be restarted in order to show the changes."
|
||||
Me.Label3.Visible = False
|
||||
'
|
||||
'AddOrRemovePrograms
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(352, 240)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "AddOrRemovePrograms"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Add or Remove Programs"
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
End Class
|
||||
141
GBAPokemonGameEditor/AddOrRemovePrograms.resx
Normal file
141
GBAPokemonGameEditor/AddOrRemovePrograms.resx
Normal file
@@ -0,0 +1,141 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAQAAEABADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAA
|
||||
AAClxXMAc4z3AEpjzgA6UrUAADprAMXOewB7hFIAOkIhAO+MxQCtUpQAAAAAAAAAAAAAAAAASkpKAP//
|
||||
/wAAAAAAqqqqqqqqqqqqqqqqqqqqqqqqqqr/qqqqqqqq/6qqqqqqqqqvM/qqqqqqrzP6qqqqqqqqpDM0
|
||||
qqqqqkMzSqqqqqqqqqRTNEqqqqRDNUqqqqqqqqqkUzNKqqqkMzVKqqqqqqqqpFUzRKqqRDNVSqqqqqqq
|
||||
qqpFNDSkSkNDVKpEqqqqqq//QiQ0QzRDQiSqQ0qqqqr2Zv9DNDMzQzQkqkNKqqqvZVV28j/d3fMjSqdi
|
||||
R6qqp1FRVXH/RET/E0p2ckV6qqdREVVx9EiETxSkNnJFeqqnVRV3qkNI5DSqQ0V0p3qqqnUVeqQyJEIj
|
||||
R0NFeqqqqqp2FmdCIREREiRiR6qqqqqqp3JmcRFP9BEXckqqqqqqqqqndnQfZmbxQzRKqqqqqqqqqqd3
|
||||
RmmGZKREqqqqqqqqqqqqpD/5j/NKqqqqqqqqqqqqqqT++Y/vSqqqqqqqqqqqqkRD9VmFXzREqqqqqqqq
|
||||
qqQzQiVZhVIkM0qqqqqqqqpDVUIlWZVSJFU0qqqqqqqqQRJCIlVVIiQhFKqqqqqqqqRERCIlUiJEREqq
|
||||
qqqqqqqqqqQiEREiSqqqqqqqqqqqqqqqQhERJKqqqqqqqqqqqqqqqqQxE0qqqqqqqqqqqqqqqqqqpEqq
|
||||
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqr//////z/8//4f+H/+D/B//gfgf/4H
|
||||
4H/+A8B//wJAz/gAAMfwAADH4AABg+AAAQHgAAIB4DAMCfBgAB/wAAA/+AAAf/4AAH//gAj//+AH///g
|
||||
B///AAD//gAAf/wAAD/8AAA//gAAf//gB///8A////gf///+f////////////w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
80
GBAPokemonGameEditor/AddOrRemovePrograms.vb
Normal file
80
GBAPokemonGameEditor/AddOrRemovePrograms.vb
Normal file
@@ -0,0 +1,80 @@
|
||||
Public Class AddOrRemovePrograms
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
If CheckBox1.Checked = True Then
|
||||
End
|
||||
End If
|
||||
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath" & ListBox1.SelectedIndex, TextBox2.Text)
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName" & ListBox1.SelectedIndex, TextBox1.Text)
|
||||
Label3.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub AddOrRemovePrograms_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
ListBox1.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
OpenFileDialog1.FileName = ""
|
||||
OpenFileDialog1.CheckFileExists = True
|
||||
|
||||
' Check to ensure that the selected path exists. Dialog box displays
|
||||
' a warning otherwise.
|
||||
OpenFileDialog1.CheckPathExists = True
|
||||
|
||||
' Get or set default extension. Doesn't include the leading ".".
|
||||
OpenFileDialog1.DefaultExt = "exe"
|
||||
|
||||
' Return the file referenced by a link? If False, simply returns the selected link
|
||||
' file. If True, returns the file linked to the LNK file.
|
||||
OpenFileDialog1.DereferenceLinks = True
|
||||
|
||||
' Just as in VB6, use a set of pairs of filters, separated with "|". Each
|
||||
' pair consists of a description|file spec. Use a "|" between pairs. No need to put a
|
||||
' trailing "|". You can set the FilterIndex property as well, to select the default
|
||||
' filter. The first filter is numbered 1 (not 0). The default is 1.
|
||||
OpenFileDialog1.Filter = _
|
||||
"(*.exe)|*.exe|All files (*.*)|*.*"
|
||||
|
||||
OpenFileDialog1.Multiselect = False
|
||||
|
||||
' Restore the original directory when done selecting
|
||||
' a file? If False, the current directory changes
|
||||
' to the directory in which you selected the file.
|
||||
' Set this to True to put the current folder back
|
||||
' where it was when you started.
|
||||
' The default is False.
|
||||
'.RestoreDirectory = False
|
||||
|
||||
' Show the Help button and Read-Only checkbox?
|
||||
OpenFileDialog1.ShowHelp = False
|
||||
OpenFileDialog1.ShowReadOnly = False
|
||||
|
||||
' Start out with the read-only check box checked?
|
||||
' This only make sense if ShowReadOnly is True.
|
||||
OpenFileDialog1.ReadOnlyChecked = False
|
||||
|
||||
OpenFileDialog1.Title = "Select Program:"
|
||||
|
||||
' Only accept valid Win32 file names?
|
||||
OpenFileDialog1.ValidateNames = True
|
||||
|
||||
|
||||
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
|
||||
TextBox2.Text = OpenFileDialog1.FileName
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
|
||||
TextBox1.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName" & ListBox1.SelectedIndex, "")
|
||||
TextBox2.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath" & ListBox1.SelectedIndex, "")
|
||||
End Sub
|
||||
End Class
|
||||
6
GBAPokemonGameEditor/App.config
Normal file
6
GBAPokemonGameEditor/App.config
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
795
GBAPokemonGameEditor/AttackEditor.Designer.vb
generated
Normal file
795
GBAPokemonGameEditor/AttackEditor.Designer.vb
generated
Normal file
@@ -0,0 +1,795 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class AttackEditor
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AttackEditor))
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.ComboBox8 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox7 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.TextBox7 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox6 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox5 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.BasePower = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Effects = New System.Windows.Forms.ComboBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.TextBox10 = New System.Windows.Forms.TextBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.TextBox11 = New System.Windows.Forms.TextBox()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox6 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.TextBox8 = New System.Windows.Forms.TextBox()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.TextBox9 = New System.Windows.Forms.TextBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox5 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.AnimationPointer = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox12 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox13 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.GroupBox5.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.ComboBox3)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 23)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(137, 58)
|
||||
Me.GroupBox1.TabIndex = 23
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Attack Selection:"
|
||||
'
|
||||
'ComboBox3
|
||||
'
|
||||
Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox3.FormattingEnabled = True
|
||||
Me.ComboBox3.Location = New System.Drawing.Point(6, 19)
|
||||
Me.ComboBox3.Name = "ComboBox3"
|
||||
Me.ComboBox3.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox3.TabIndex = 23
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.Button1)
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(12, 87)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(137, 83)
|
||||
Me.GroupBox2.TabIndex = 24
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Rename Attack"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(6, 45)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(120, 32)
|
||||
Me.Button1.TabIndex = 1
|
||||
Me.Button1.Text = "Rename"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(6, 21)
|
||||
Me.TextBox1.MaxLength = 12
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(120, 20)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(170, 28)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(468, 394)
|
||||
Me.TabControl1.TabIndex = 25
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox3)
|
||||
Me.TabPage1.Controls.Add(Me.Button2)
|
||||
Me.TabPage1.Controls.Add(Me.Label10)
|
||||
Me.TabPage1.Controls.Add(Me.TextBox7)
|
||||
Me.TabPage1.Controls.Add(Me.TextBox6)
|
||||
Me.TabPage1.Controls.Add(Me.Label9)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox6)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox5)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox4)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox3)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox2)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox1)
|
||||
Me.TabPage1.Controls.Add(Me.TextBox5)
|
||||
Me.TabPage1.Controls.Add(Me.Label8)
|
||||
Me.TabPage1.Controls.Add(Me.ComboBox2)
|
||||
Me.TabPage1.Controls.Add(Me.Label7)
|
||||
Me.TabPage1.Controls.Add(Me.TextBox4)
|
||||
Me.TabPage1.Controls.Add(Me.Label6)
|
||||
Me.TabPage1.Controls.Add(Me.TextBox3)
|
||||
Me.TabPage1.Controls.Add(Me.Label5)
|
||||
Me.TabPage1.Controls.Add(Me.TextBox2)
|
||||
Me.TabPage1.Controls.Add(Me.Label4)
|
||||
Me.TabPage1.Controls.Add(Me.ComboBox1)
|
||||
Me.TabPage1.Controls.Add(Me.Label3)
|
||||
Me.TabPage1.Controls.Add(Me.BasePower)
|
||||
Me.TabPage1.Controls.Add(Me.Label2)
|
||||
Me.TabPage1.Controls.Add(Me.Effects)
|
||||
Me.TabPage1.Controls.Add(Me.Label1)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(460, 368)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Attack Data"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.ComboBox8)
|
||||
Me.GroupBox3.Controls.Add(Me.ComboBox7)
|
||||
Me.GroupBox3.Controls.Add(Me.Label19)
|
||||
Me.GroupBox3.Controls.Add(Me.Label18)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(21, 225)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(179, 74)
|
||||
Me.GroupBox3.TabIndex = 27
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Extras"
|
||||
'
|
||||
'ComboBox8
|
||||
'
|
||||
Me.ComboBox8.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox8.FormattingEnabled = True
|
||||
Me.ComboBox8.Items.AddRange(New Object() {"Physical", "Special", "Status"})
|
||||
Me.ComboBox8.Location = New System.Drawing.Point(77, 44)
|
||||
Me.ComboBox8.Name = "ComboBox8"
|
||||
Me.ComboBox8.Size = New System.Drawing.Size(93, 21)
|
||||
Me.ComboBox8.TabIndex = 3
|
||||
'
|
||||
'ComboBox7
|
||||
'
|
||||
Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox7.FormattingEnabled = True
|
||||
Me.ComboBox7.Items.AddRange(New Object() {"0", "1", "2"})
|
||||
Me.ComboBox7.Location = New System.Drawing.Point(77, 16)
|
||||
Me.ComboBox7.Name = "ComboBox7"
|
||||
Me.ComboBox7.Size = New System.Drawing.Size(94, 21)
|
||||
Me.ComboBox7.TabIndex = 2
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.Location = New System.Drawing.Point(7, 44)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(52, 13)
|
||||
Me.Label19.TabIndex = 1
|
||||
Me.Label19.Text = "Category:"
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(7, 19)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(68, 13)
|
||||
Me.Label18.TabIndex = 0
|
||||
Me.Label18.Text = "Effect Table:"
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(376, 204)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(67, 20)
|
||||
Me.Button2.TabIndex = 26
|
||||
Me.Button2.Text = "Repoint"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(284, 232)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(63, 13)
|
||||
Me.Label10.TabIndex = 25
|
||||
Me.Label10.Text = "Description:"
|
||||
'
|
||||
'TextBox7
|
||||
'
|
||||
Me.TextBox7.Location = New System.Drawing.Point(287, 257)
|
||||
Me.TextBox7.Multiline = True
|
||||
Me.TextBox7.Name = "TextBox7"
|
||||
Me.TextBox7.Size = New System.Drawing.Size(147, 74)
|
||||
Me.TextBox7.TabIndex = 24
|
||||
'
|
||||
'TextBox6
|
||||
'
|
||||
Me.TextBox6.Location = New System.Drawing.Point(287, 204)
|
||||
Me.TextBox6.Name = "TextBox6"
|
||||
Me.TextBox6.Size = New System.Drawing.Size(83, 20)
|
||||
Me.TextBox6.TabIndex = 23
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(284, 185)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(99, 13)
|
||||
Me.Label9.TabIndex = 22
|
||||
Me.Label9.Text = "Description Pointer:"
|
||||
'
|
||||
'CheckBox6
|
||||
'
|
||||
Me.CheckBox6.AutoSize = True
|
||||
Me.CheckBox6.Location = New System.Drawing.Point(287, 162)
|
||||
Me.CheckBox6.Name = "CheckBox6"
|
||||
Me.CheckBox6.Size = New System.Drawing.Size(150, 17)
|
||||
Me.CheckBox6.TabIndex = 21
|
||||
Me.CheckBox6.Text = "Is affected by King's Rock"
|
||||
Me.CheckBox6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox5
|
||||
'
|
||||
Me.CheckBox5.AutoSize = True
|
||||
Me.CheckBox5.Location = New System.Drawing.Point(287, 139)
|
||||
Me.CheckBox5.Name = "CheckBox5"
|
||||
Me.CheckBox5.Size = New System.Drawing.Size(159, 17)
|
||||
Me.CheckBox5.TabIndex = 20
|
||||
Me.CheckBox5.Text = "Is affected by Bright Powder"
|
||||
Me.CheckBox5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox4
|
||||
'
|
||||
Me.CheckBox4.AutoSize = True
|
||||
Me.CheckBox4.Location = New System.Drawing.Point(287, 116)
|
||||
Me.CheckBox4.Name = "CheckBox4"
|
||||
Me.CheckBox4.Size = New System.Drawing.Size(127, 17)
|
||||
Me.CheckBox4.TabIndex = 19
|
||||
Me.CheckBox4.Text = "Is affected by Snatch"
|
||||
Me.CheckBox4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox3
|
||||
'
|
||||
Me.CheckBox3.AutoSize = True
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(287, 93)
|
||||
Me.CheckBox3.Name = "CheckBox3"
|
||||
Me.CheckBox3.Size = New System.Drawing.Size(147, 17)
|
||||
Me.CheckBox3.TabIndex = 18
|
||||
Me.CheckBox3.Text = "Is affected by Magic Coat"
|
||||
Me.CheckBox3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(287, 69)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(127, 17)
|
||||
Me.CheckBox2.TabIndex = 17
|
||||
Me.CheckBox2.Text = "Is affected by Protect"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(287, 46)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(98, 17)
|
||||
Me.CheckBox1.TabIndex = 16
|
||||
Me.CheckBox1.Text = "Makes Contact"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox5
|
||||
'
|
||||
Me.TextBox5.Location = New System.Drawing.Point(110, 197)
|
||||
Me.TextBox5.Name = "TextBox5"
|
||||
Me.TextBox5.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox5.TabIndex = 15
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(18, 200)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "Priority:"
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.Items.AddRange(New Object() {"Selected target ", "Depends on the attack ", "2", "3", "Random target ", "5", "6", "7", "Both foes", "9", "10", "11", "12", "13", "14", "15", "User", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "Both foes and partner", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "Opponent field"})
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(110, 172)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(161, 21)
|
||||
Me.ComboBox2.TabIndex = 13
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(18, 175)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label7.TabIndex = 12
|
||||
Me.Label7.Text = "Target:"
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.Location = New System.Drawing.Point(110, 146)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox4.TabIndex = 11
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(18, 149)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(86, 13)
|
||||
Me.Label6.TabIndex = 10
|
||||
Me.Label6.Text = "Effect Accuracy:"
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(110, 120)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox3.TabIndex = 9
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(18, 123)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(24, 13)
|
||||
Me.Label5.TabIndex = 8
|
||||
Me.Label5.Text = "PP:"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(110, 94)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox2.TabIndex = 7
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(18, 97)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label4.TabIndex = 6
|
||||
Me.Label4.Text = "Accuracy:"
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Items.AddRange(New Object() {"Normal", "Fighting", "Flying", "Poison", "Ground", "Rock", "Bug", "Ghost", "Steel", "???", "Fire", "Water", "Grass", "Electric", "Psychic", "Ice", "Dragon", "Dark"})
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(110, 65)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(161, 21)
|
||||
Me.ComboBox1.TabIndex = 5
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(18, 73)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(34, 13)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "Type:"
|
||||
'
|
||||
'BasePower
|
||||
'
|
||||
Me.BasePower.Location = New System.Drawing.Point(110, 40)
|
||||
Me.BasePower.Name = "BasePower"
|
||||
Me.BasePower.Size = New System.Drawing.Size(40, 20)
|
||||
Me.BasePower.TabIndex = 3
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(18, 47)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Base Power:"
|
||||
'
|
||||
'Effects
|
||||
'
|
||||
Me.Effects.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Effects.FormattingEnabled = True
|
||||
Me.Effects.Items.AddRange(New Object() {"No Effect", "Puts target to sleep", "Poisons target", "Absorbs half of inflicted damage", "Burns Targer", "Freezes target", "Paralyzes target", "User Faints", "Absorbs half damage on sleeping target", "Mirror Move", "Raises user's Attack", "Raises user's Defense", "Raises user's Speed", "Raises user's Special Attack", "Raises user's Special Defense", "15", "Raises user's Evasion", "Attack Never Misses", "Lowers opponent's Attack", "Lowers opponent's Defense", "Lowers opponent's Speed", "Lowers opponent's Special Attack", "Lowers opponent's Special Defense", "Lowers opponent's Accuracy", "Lowers opponent's Evasion", "Haze", "Bide", "Thrash/Petal Dance/Outrage", "Opponent's Pokemon forced out", "Happens 2-5 times", "Conversion", "May cause flinching", "Recover half of maximum HP", "Badly poison target", "Pay Day", "Light screen", "may freeze, paralyze, or burn", "Rest", "1-hit KO", "Two turns plus high critical hit ratio", "Cuts target's HP in half", "Always do 40", "Bind/Fire Spin/Clamp/Whirlpool effect", "High critical hit ratio", "Hits twice", "If miss, then user receives 1/8 of damage it would have dealt", "Stops stat changes", "Raises user's critical-hit ratio", "1/4 Recoil", "Confuses Target", "sharply raises users Attack", "sharply raises users Defense", "sharply raises users Speed", "sharply raises users Special Attack", "sharply raises users Special Defense", "55", "56", "Transform", "Sharply reduces foe's Attack", "Sharply reduces foe's Defense", "Sharply reduces foe's Speed", "Sharply reduces foe's Special Attack", "Sharply reduces fow's Special Defense", "63", "64", "Reflect", "Poisons target", "Paralyzes target", "Lower opponent's Attack", "Lower opponent's Defense", "Lower opponent's Speed", "Lower opponent's Special Attack", "Lower opponent's Special Defense", "Lower opponent's Accuracy", "74", "Two-Turn may cause Flinching", "May confuse target", "Two-Turn may cause Poison", "Doesn't miss, User goes second", "Substitute", "Immobile next turn", "Raises user attack everytime user is hit", "Mimic", "Metronome", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255"})
|
||||
Me.Effects.Location = New System.Drawing.Point(110, 16)
|
||||
Me.Effects.Name = "Effects"
|
||||
Me.Effects.Size = New System.Drawing.Size(333, 21)
|
||||
Me.Effects.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(18, 19)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Effect:"
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.GroupBox5)
|
||||
Me.TabPage2.Controls.Add(Me.TextBox13)
|
||||
Me.TabPage2.Controls.Add(Me.TextBox12)
|
||||
Me.TabPage2.Controls.Add(Me.TextBox8)
|
||||
Me.TabPage2.Controls.Add(Me.Label13)
|
||||
Me.TabPage2.Controls.Add(Me.TextBox9)
|
||||
Me.TabPage2.Controls.Add(Me.Label14)
|
||||
Me.TabPage2.Controls.Add(Me.ComboBox5)
|
||||
Me.TabPage2.Controls.Add(Me.Label12)
|
||||
Me.TabPage2.Controls.Add(Me.ComboBox4)
|
||||
Me.TabPage2.Controls.Add(Me.Label11)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(460, 368)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Contest Data"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox10
|
||||
'
|
||||
Me.TextBox10.Location = New System.Drawing.Point(103, 71)
|
||||
Me.TextBox10.Name = "TextBox10"
|
||||
Me.TextBox10.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox10.TabIndex = 19
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(11, 74)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(29, 13)
|
||||
Me.Label16.TabIndex = 18
|
||||
Me.Label16.Text = "Jam:"
|
||||
'
|
||||
'TextBox11
|
||||
'
|
||||
Me.TextBox11.Location = New System.Drawing.Point(103, 45)
|
||||
Me.TextBox11.Name = "TextBox11"
|
||||
Me.TextBox11.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox11.TabIndex = 17
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(11, 48)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label17.TabIndex = 16
|
||||
Me.Label17.Text = "Appeal:"
|
||||
'
|
||||
'ComboBox6
|
||||
'
|
||||
Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox6.FormattingEnabled = True
|
||||
Me.ComboBox6.Items.AddRange(New Object() {"The appeal effect of this move is constant.", "Prevents the user from being startled.", "Startles the previous appealer by the jam effect.", "Startles all previous appealers by the jam effect.", "Affects appealers other than startling them.", "Appeal effect may change.", "The appeal order changes for the next round. "})
|
||||
Me.ComboBox6.Location = New System.Drawing.Point(103, 17)
|
||||
Me.ComboBox6.Name = "ComboBox6"
|
||||
Me.ComboBox6.Size = New System.Drawing.Size(323, 21)
|
||||
Me.ComboBox6.TabIndex = 15
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(11, 20)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label15.TabIndex = 14
|
||||
Me.Label15.Text = "Effect:"
|
||||
'
|
||||
'TextBox8
|
||||
'
|
||||
Me.TextBox8.Location = New System.Drawing.Point(109, 105)
|
||||
Me.TextBox8.Name = "TextBox8"
|
||||
Me.TextBox8.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox8.TabIndex = 13
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(17, 108)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label13.TabIndex = 12
|
||||
Me.Label13.Text = "Combos:"
|
||||
'
|
||||
'TextBox9
|
||||
'
|
||||
Me.TextBox9.Location = New System.Drawing.Point(109, 79)
|
||||
Me.TextBox9.Name = "TextBox9"
|
||||
Me.TextBox9.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox9.TabIndex = 11
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(17, 82)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label14.TabIndex = 10
|
||||
Me.Label14.Text = "Combo Identifiers:"
|
||||
'
|
||||
'ComboBox5
|
||||
'
|
||||
Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox5.FormattingEnabled = True
|
||||
Me.ComboBox5.Items.AddRange(New Object() {"Cool", "Beauty", "Cute", "Smart", "Tough"})
|
||||
Me.ComboBox5.Location = New System.Drawing.Point(109, 42)
|
||||
Me.ComboBox5.Name = "ComboBox5"
|
||||
Me.ComboBox5.Size = New System.Drawing.Size(323, 21)
|
||||
Me.ComboBox5.TabIndex = 7
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(17, 49)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(34, 13)
|
||||
Me.Label12.TabIndex = 6
|
||||
Me.Label12.Text = "Type:"
|
||||
'
|
||||
'ComboBox4
|
||||
'
|
||||
Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox4.FormattingEnabled = True
|
||||
Me.ComboBox4.Items.AddRange(New Object() {"A highly appealing move.", "After this move, the user is more easily startled.", "Makes a great appeal, but allows no more to the end.", "Can be repeatedly used without boring the JUDGE.", "Can avoid being startled by others once.", "Can avoid being startled by others.", "Can avoid being startled by others a little.", "After this move, the user is less likely to be startled.", "Slightly startles the POKeMON in front.", "Slightly startles those that have made appeals.", "Startles the POKeMON that appealed before the user.", "Startles all POKeMON that have done their appeals.", "Badly startles the POKeMON in front.", "Badly startles those that have made appeals.", "Startles the POKeMON that appealed before the user.", "Startles all POKeMON that have done their appeals.", "Shifts the JUDGE's attention from others.", "Startles the POKeMON that has the JUDGE's attention.", "Jams the others, and misses one turn of appeals.", "Startles POKeMON that made a same-type appeal.", "Badly startles POKeMON that made COOL appeals.", "Badly startles POKeMON that made BEAUTY appeals.", "Badly startles POKeMON that made CUTE appeals.", "Badly startles POKeMON that made SMART appeals.", "Badly startles POKeMON that made TOUGH appeals.", "Makes one POKeMON after the user nervous. ", "Makes all POKeMON after the user nervous. ", "Worsens the condition of those that made appeals.", "Badly startles POKeMON in.good condition.", "The appeal works great if performed first.", "The appeal works great if performed last.", "Makes the appeal as good as those before it.", "Makes the appeal as good as the one before it. ", "The appeal works better the later it is performed.", "The appeal's quality varies depending on its timing.", "Works well if it's the same type as the one before.", "Works well if different in type than the one before.", "Affected by how well the.appeal in front goes.", "Ups the user's condition.", "Helps prevent nervousness.", "The appeal works well if the user's condition is good.", "The next appeal can be made earlier next turn.", "The next appeal can be made later next turn.", "Makes the next turn's order more easily scrambled.", "Scrambles the order of appeals on the next turn.", "An appeal that excites the audience in any CONTEST.", "Badly startles all POKeMON that made good appeals.", "The appeal works best the more the crowd is excited.", "Temporarily stops the crowd from growing excited."})
|
||||
Me.ComboBox4.Location = New System.Drawing.Point(109, 15)
|
||||
Me.ComboBox4.Name = "ComboBox4"
|
||||
Me.ComboBox4.Size = New System.Drawing.Size(323, 21)
|
||||
Me.ComboBox4.TabIndex = 3
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(17, 18)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(77, 13)
|
||||
Me.Label11.TabIndex = 2
|
||||
Me.Label11.Text = "Description ID:"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Location = New System.Drawing.Point(18, 279)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(120, 33)
|
||||
Me.Button3.TabIndex = 26
|
||||
Me.Button3.Text = "Save"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.Button4)
|
||||
Me.GroupBox4.Controls.Add(Me.AnimationPointer)
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(12, 180)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(137, 83)
|
||||
Me.GroupBox4.TabIndex = 27
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Animation Pointer"
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Location = New System.Drawing.Point(6, 45)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(121, 30)
|
||||
Me.Button4.TabIndex = 1
|
||||
Me.Button4.Text = "Repoint"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'AnimationPointer
|
||||
'
|
||||
Me.AnimationPointer.Location = New System.Drawing.Point(6, 20)
|
||||
Me.AnimationPointer.Name = "AnimationPointer"
|
||||
Me.AnimationPointer.Size = New System.Drawing.Size(121, 20)
|
||||
Me.AnimationPointer.TabIndex = 0
|
||||
'
|
||||
'TextBox12
|
||||
'
|
||||
Me.TextBox12.Location = New System.Drawing.Point(155, 105)
|
||||
Me.TextBox12.Name = "TextBox12"
|
||||
Me.TextBox12.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox12.TabIndex = 20
|
||||
'
|
||||
'TextBox13
|
||||
'
|
||||
Me.TextBox13.Location = New System.Drawing.Point(201, 105)
|
||||
Me.TextBox13.Name = "TextBox13"
|
||||
Me.TextBox13.Size = New System.Drawing.Size(40, 20)
|
||||
Me.TextBox13.TabIndex = 21
|
||||
'
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.Controls.Add(Me.Button5)
|
||||
Me.GroupBox5.Controls.Add(Me.Label15)
|
||||
Me.GroupBox5.Controls.Add(Me.ComboBox6)
|
||||
Me.GroupBox5.Controls.Add(Me.Label17)
|
||||
Me.GroupBox5.Controls.Add(Me.TextBox10)
|
||||
Me.GroupBox5.Controls.Add(Me.TextBox11)
|
||||
Me.GroupBox5.Controls.Add(Me.Label16)
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(6, 138)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(448, 138)
|
||||
Me.GroupBox5.TabIndex = 22
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Move Effect"
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.Location = New System.Drawing.Point(306, 91)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(120, 33)
|
||||
Me.Button5.TabIndex = 20
|
||||
Me.Button5.Text = "Save Effect"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'AttackEditor
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(650, 434)
|
||||
Me.Controls.Add(Me.GroupBox4)
|
||||
Me.Controls.Add(Me.Button3)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "AttackEditor"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Attack Editor"
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.GroupBox5.ResumeLayout(False)
|
||||
Me.GroupBox5.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents Effects As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents BasePower As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label17 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ComboBox8 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label19 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents AnimationPointer As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox13 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
End Class
|
||||
138
GBAPokemonGameEditor/AttackEditor.resx
Normal file
138
GBAPokemonGameEditor/AttackEditor.resx
Normal file
@@ -0,0 +1,138 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAQAAEABADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAA
|
||||
AAClxXMAc4z3AEpjzgA6UrUAADprAMXOewB7hFIAOkIhAO+MxQCtUpQAAAAAAAAAAAAAAAAASkpKAP//
|
||||
/wAAAAAAqqqqqqqqqqqqqqqqqqqqqqqqqqr/qqqqqqqq/6qqqqqqqqqvM/qqqqqqrzP6qqqqqqqqpDM0
|
||||
qqqqqkMzSqqqqqqqqqRTNEqqqqRDNUqqqqqqqqqkUzNKqqqkMzVKqqqqqqqqpFUzRKqqRDNVSqqqqqqq
|
||||
qqpFNDSkSkNDVKpEqqqqqq//QiQ0QzRDQiSqQ0qqqqr2Zv9DNDMzQzQkqkNKqqqvZVV28j/d3fMjSqdi
|
||||
R6qqp1FRVXH/RET/E0p2ckV6qqdREVVx9EiETxSkNnJFeqqnVRV3qkNI5DSqQ0V0p3qqqnUVeqQyJEIj
|
||||
R0NFeqqqqqp2FmdCIREREiRiR6qqqqqqp3JmcRFP9BEXckqqqqqqqqqndnQfZmbxQzRKqqqqqqqqqqd3
|
||||
RmmGZKREqqqqqqqqqqqqpD/5j/NKqqqqqqqqqqqqqqT++Y/vSqqqqqqqqqqqqkRD9VmFXzREqqqqqqqq
|
||||
qqQzQiVZhVIkM0qqqqqqqqpDVUIlWZVSJFU0qqqqqqqqQRJCIlVVIiQhFKqqqqqqqqRERCIlUiJEREqq
|
||||
qqqqqqqqqqQiEREiSqqqqqqqqqqqqqqqQhERJKqqqqqqqqqqqqqqqqQxE0qqqqqqqqqqqqqqqqqqpEqq
|
||||
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqr//////z/8//4f+H/+D/B//gfgf/4H
|
||||
4H/+A8B//wJAz/gAAMfwAADH4AABg+AAAQHgAAIB4DAMCfBgAB/wAAA/+AAAf/4AAH//gAj//+AH///g
|
||||
B///AAD//gAAf/wAAD/8AAA//gAAf//gB///8A////gf///+f////////////w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
320
GBAPokemonGameEditor/AttackEditor.vb
Normal file
320
GBAPokemonGameEditor/AttackEditor.vb
Normal file
@@ -0,0 +1,320 @@
|
||||
Public Class AttackEditor
|
||||
Dim AttackDesc As Integer
|
||||
Dim AttackData As Integer
|
||||
Dim AttackAni As Integer
|
||||
Dim ContestMoveData As Integer
|
||||
Dim ContestMoveEffectData As Integer
|
||||
|
||||
Private Sub AttackEditor_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
|
||||
MainFrm.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub AttackEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
Dim LoopVar As Integer
|
||||
LoopVar = 1
|
||||
|
||||
ComboBox3.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfAttacks", "")) + 1 = True
|
||||
|
||||
|
||||
ComboBox3.Items.Add(GetAttackName(LoopVar))
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
End While
|
||||
ComboBox3.SelectedIndex = 0
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
|
||||
Dim blah As Integer
|
||||
Dim binarythebitch As String
|
||||
AttackDesc = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AttackDescriptionTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
AttackData = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AttackData", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
AttackAni = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AttackAnimationTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
AnimationPointer.Text = Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, (AttackAni) + (ComboBox3.SelectedIndex * 4) + 4, 4))) - &H8000000)
|
||||
|
||||
TextBox1.Text = GetAttackName(ComboBox3.SelectedIndex + 1)
|
||||
|
||||
TextBox6.Text = Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, (AttackDesc) + (ComboBox3.SelectedIndex * 4), 4))) - &H8000000)
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim DexDescp As String = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
|
||||
|
||||
FileGet(FileNum, DexDescp, Int32.Parse(((TextBox6.Text)), System.Globalization.NumberStyles.HexNumber) + 1, True)
|
||||
DexDescp = Sapp2Asc(DexDescp)
|
||||
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
|
||||
DexDescp = Replace(DexDescp, "\n", vbCrLf)
|
||||
DexDescp = Replace(RTrim$(DexDescp), "\", "")
|
||||
TextBox7.Text = DexDescp
|
||||
TextBox7.MaxLength = Len(DexDescp)
|
||||
|
||||
FileClose(FileNum)
|
||||
|
||||
Effects.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
BasePower.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 1) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox1.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 2) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox2.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 3) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox3.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 4) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox4.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 5) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox2.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 6) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox5.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 7) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox7.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 9) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox8.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 10) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
Dim bita As String
|
||||
Dim bitb As String
|
||||
Dim bitc As String
|
||||
Dim bitd As String
|
||||
Dim bite As String
|
||||
Dim bitf As String
|
||||
|
||||
blah = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((AttackData) + 12 + 8) + (ComboBox3.SelectedIndex * 12), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
binarythebitch = Convert.ToString(blah, 2)
|
||||
|
||||
While Len(binarythebitch) < 8
|
||||
|
||||
binarythebitch = "0" & binarythebitch
|
||||
|
||||
End While
|
||||
|
||||
bita = Mid(binarythebitch, 8, 1)
|
||||
|
||||
bitb = Mid(binarythebitch, 7, 1)
|
||||
|
||||
bitc = Mid(binarythebitch, 6, 1)
|
||||
|
||||
bitd = Mid(binarythebitch, 5, 1)
|
||||
|
||||
bite = Mid(binarythebitch, 4, 1)
|
||||
|
||||
bitf = Mid(binarythebitch, 3, 1)
|
||||
|
||||
If bita = 0 Then
|
||||
CheckBox1.Checked = False
|
||||
ElseIf bita = 1 Then
|
||||
CheckBox1.Checked = True
|
||||
End If
|
||||
|
||||
If bitb = 0 Then
|
||||
CheckBox2.Checked = False
|
||||
ElseIf bitb = 1 Then
|
||||
CheckBox2.Checked = True
|
||||
End If
|
||||
|
||||
If bitc = 0 Then
|
||||
CheckBox3.Checked = False
|
||||
ElseIf bitc = 1 Then
|
||||
CheckBox3.Checked = True
|
||||
End If
|
||||
|
||||
If bitd = 0 Then
|
||||
CheckBox4.Checked = False
|
||||
ElseIf bitd = 1 Then
|
||||
CheckBox4.Checked = True
|
||||
End If
|
||||
|
||||
If bite = 0 Then
|
||||
CheckBox5.Checked = False
|
||||
ElseIf bite = 1 Then
|
||||
CheckBox5.Checked = True
|
||||
End If
|
||||
|
||||
If bitf = 0 Then
|
||||
CheckBox6.Checked = False
|
||||
ElseIf bitf = 1 Then
|
||||
CheckBox6.Checked = True
|
||||
End If
|
||||
|
||||
If header2 = "AXP" Or header2 = "AXV" Or header2 = "BPE" Then
|
||||
ComboBox4.Enabled = True
|
||||
ComboBox5.Enabled = True
|
||||
TextBox9.Enabled = True
|
||||
TextBox8.Enabled = True
|
||||
ComboBox6.Enabled = True
|
||||
TextBox11.Enabled = True
|
||||
TextBox10.Enabled = True
|
||||
TextBox12.Enabled = True
|
||||
TextBox13.Enabled = True
|
||||
Button5.Enabled = True
|
||||
ContestMoveData = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "ContestMoveData", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
ContestMoveEffectData = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "ContestMoveEffectData", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
|
||||
ComboBox4.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveData) + 8 + 0) + (ComboBox3.SelectedIndex * 8), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox5.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveData) + 8 + 1) + (ComboBox3.SelectedIndex * 8), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox9.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveData) + 8 + 2) + (ComboBox3.SelectedIndex * 8), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox8.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveData) + 8 + 3) + (ComboBox3.SelectedIndex * 8), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox12.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveData) + 8 + 4) + (ComboBox3.SelectedIndex * 8), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox13.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveData) + 8 + 5) + (ComboBox3.SelectedIndex * 8), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
ComboBox6.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveEffectData) + 0) + (ComboBox4.SelectedIndex * 4), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox11.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveEffectData) + 1) + (ComboBox4.SelectedIndex * 4), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox10.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveEffectData) + 2) + (ComboBox4.SelectedIndex * 4), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Else
|
||||
ComboBox4.Enabled = False
|
||||
ComboBox5.Enabled = False
|
||||
TextBox9.Enabled = False
|
||||
TextBox8.Enabled = False
|
||||
TextBox12.Enabled = False
|
||||
TextBox13.Enabled = False
|
||||
ComboBox6.Enabled = False
|
||||
TextBox11.Enabled = False
|
||||
TextBox10.Enabled = False
|
||||
Button5.Enabled = False
|
||||
|
||||
ComboBox4.SelectedIndex = -1
|
||||
ComboBox5.SelectedIndex = -1
|
||||
TextBox9.Text = ""
|
||||
TextBox8.Text = ""
|
||||
TextBox12.Text = ""
|
||||
TextBox13.Text = ""
|
||||
ComboBox6.SelectedIndex = -1
|
||||
TextBox11.Text = ""
|
||||
TextBox10.Text = ""
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Dim tempy As Integer
|
||||
tempy = ComboBox3.SelectedIndex
|
||||
|
||||
ChangeAttackName(ComboBox3.SelectedIndex + 1, TextBox1.Text)
|
||||
|
||||
Dim LoopVar As Integer
|
||||
|
||||
LoopVar = 1
|
||||
|
||||
ComboBox3.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfAttacks", "")) + 1 = True
|
||||
|
||||
|
||||
ComboBox3.Items.Add(GetAttackName(LoopVar))
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
End While
|
||||
|
||||
ComboBox3.SelectedIndex = tempy
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12) + (ComboBox3.SelectedIndex * 12), Hex(Effects.SelectedIndex))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 1) + (ComboBox3.SelectedIndex * 12), Hex(BasePower.Text))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 2) + (ComboBox3.SelectedIndex * 12), Hex(ComboBox1.SelectedIndex))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 3) + (ComboBox3.SelectedIndex * 12), Hex(TextBox2.Text))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 4) + (ComboBox3.SelectedIndex * 12), Hex(TextBox3.Text))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 5) + (ComboBox3.SelectedIndex * 12), Hex(TextBox4.Text))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 6) + (ComboBox3.SelectedIndex * 12), Hex(ComboBox2.SelectedIndex))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 7) + (ComboBox3.SelectedIndex * 12), Hex(TextBox5.Text))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 9) + (ComboBox3.SelectedIndex * 12), Hex(ComboBox7.SelectedIndex))
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 10) + (ComboBox3.SelectedIndex * 12), Hex(ComboBox8.SelectedIndex))
|
||||
|
||||
Dim bita As String
|
||||
Dim bitb As String
|
||||
Dim bitc As String
|
||||
Dim bitd As String
|
||||
Dim bite As String
|
||||
Dim bitf As String
|
||||
Dim thingtowrite As String
|
||||
|
||||
If CheckBox1.Checked = False Then
|
||||
bita = 0
|
||||
ElseIf CheckBox1.Checked = True Then
|
||||
bita = 1
|
||||
End If
|
||||
|
||||
If CheckBox2.Checked = False Then
|
||||
bitb = 0
|
||||
ElseIf CheckBox2.Checked = True Then
|
||||
bitb = 1
|
||||
End If
|
||||
|
||||
If CheckBox3.Checked = False Then
|
||||
bitc = 0
|
||||
ElseIf CheckBox3.Checked = True Then
|
||||
bitc = 1
|
||||
End If
|
||||
|
||||
If CheckBox4.Checked = False Then
|
||||
bitd = 0
|
||||
ElseIf CheckBox4.Checked = True Then
|
||||
bitd = 1
|
||||
End If
|
||||
|
||||
If CheckBox5.Checked = False Then
|
||||
bite = 0
|
||||
ElseIf CheckBox5.Checked = True Then
|
||||
bite = 1
|
||||
End If
|
||||
|
||||
If CheckBox6.Checked = False Then
|
||||
bitf = 0
|
||||
ElseIf CheckBox6.Checked = True Then
|
||||
bitf = 1
|
||||
End If
|
||||
thingtowrite = bitf & bite & bitd & bitc & bitb & bita
|
||||
thingtowrite = Convert.ToInt32(thingtowrite, 2)
|
||||
|
||||
WriteHEX(LoadedROM, ((AttackData) + 12 + 8) + (ComboBox3.SelectedIndex * 12), Hex(thingtowrite))
|
||||
|
||||
If header2 = "AXP" Or header2 = "AXV" Or header2 = "BPE" Then
|
||||
WriteHEX(LoadedROM, ((ContestMoveData) + 8 + 0) + (ComboBox3.SelectedIndex * 8), Hex(ComboBox4.SelectedIndex))
|
||||
WriteHEX(LoadedROM, ((ContestMoveData) + 8 + 1) + (ComboBox3.SelectedIndex * 8), Hex(ComboBox5.SelectedIndex))
|
||||
WriteHEX(LoadedROM, ((ContestMoveData) + 8 + 2) + (ComboBox3.SelectedIndex * 8), Hex(TextBox9.Text))
|
||||
WriteHEX(LoadedROM, ((ContestMoveData) + 8 + 3) + (ComboBox3.SelectedIndex * 8), Hex(TextBox8.Text))
|
||||
WriteHEX(LoadedROM, ((ContestMoveData) + 8 + 4) + (ComboBox3.SelectedIndex * 8), Hex(TextBox12.Text))
|
||||
WriteHEX(LoadedROM, ((ContestMoveData) + 8 + 5) + (ComboBox3.SelectedIndex * 8), Hex(TextBox13.Text))
|
||||
|
||||
Else
|
||||
'Does nothing for these games.
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
WriteHEX(LoadedROM, (AttackDesc) + (0) + (ComboBox3.SelectedIndex * 4), ReverseHEX(Hex(Int32.Parse(((TextBox6.Text)), System.Globalization.NumberStyles.HexNumber) + &H8000000)))
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim DexDescp As String = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
|
||||
|
||||
FileGet(FileNum, DexDescp, Int32.Parse(((TextBox6.Text)), System.Globalization.NumberStyles.HexNumber) + 1, True)
|
||||
DexDescp = Sapp2Asc(DexDescp)
|
||||
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
|
||||
DexDescp = Replace(DexDescp, "\n", vbCrLf)
|
||||
DexDescp = Replace(RTrim$(DexDescp), "\", "")
|
||||
TextBox7.Text = DexDescp
|
||||
TextBox7.MaxLength = Len(DexDescp)
|
||||
|
||||
FileClose(FileNum)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
||||
WriteHEX(LoadedROM, (AttackAni) + (4) + (ComboBox3.SelectedIndex * 4), ReverseHEX(Hex(Int32.Parse(((AnimationPointer.Text)), System.Globalization.NumberStyles.HexNumber) + &H8000000)))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
|
||||
|
||||
ComboBox6.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveEffectData) + 0) + (ComboBox4.SelectedIndex * 4), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox11.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveEffectData) + 1) + (ComboBox4.SelectedIndex * 4), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
TextBox10.Text = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, ((ContestMoveEffectData) + 2) + (ComboBox4.SelectedIndex * 4), 1)))), System.Globalization.NumberStyles.HexNumber)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
||||
'WriteHEX(LoadedROM, ((ContestMoveEffectData) + 0) + (ComboBox4.SelectedIndex * 4), Hex(ComboBox6.SelectedIndex))
|
||||
' WriteHEX(LoadedROM, ((ContestMoveEffectData) + 1) + (ComboBox4.SelectedIndex * 4), Hex(TextBox11.Text))
|
||||
'WriteHEX(LoadedROM, ((ContestMoveEffectData) + 2) + (ComboBox4.SelectedIndex * 4), Hex(TextBox10.Text))
|
||||
MsgBox("disabled till I double check it works")
|
||||
End Sub
|
||||
End Class
|
||||
472
GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb
generated
Normal file
472
GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb
generated
Normal file
@@ -0,0 +1,472 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class BattleFrontierEditor
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.ComboBox7 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox6 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox5 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.ListBox2 = New System.Windows.Forms.ListBox()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.ComboBox8 = New System.Windows.Forms.ComboBox()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.ListBox3 = New System.Windows.Forms.ListBox()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage4)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(7, 7)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(564, 450)
|
||||
Me.TabControl1.TabIndex = 0
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox4)
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox3)
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox2)
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox1)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(556, 424)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Battle Frontier"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.Button5)
|
||||
Me.GroupBox4.Controls.Add(Me.Label6)
|
||||
Me.GroupBox4.Controls.Add(Me.PictureBox1)
|
||||
Me.GroupBox4.Controls.Add(Me.ComboBox7)
|
||||
Me.GroupBox4.Controls.Add(Me.ComboBox6)
|
||||
Me.GroupBox4.Controls.Add(Me.ComboBox5)
|
||||
Me.GroupBox4.Controls.Add(Me.ComboBox4)
|
||||
Me.GroupBox4.Controls.Add(Me.ComboBox3)
|
||||
Me.GroupBox4.Controls.Add(Me.ComboBox2)
|
||||
Me.GroupBox4.Controls.Add(Me.Label5)
|
||||
Me.GroupBox4.Controls.Add(Me.Label4)
|
||||
Me.GroupBox4.Controls.Add(Me.ListBox2)
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(12, 232)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(526, 186)
|
||||
Me.GroupBox4.TabIndex = 5
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Pokemon Data"
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.Location = New System.Drawing.Point(396, 153)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button5.TabIndex = 13
|
||||
Me.Button5.Text = "Save"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(347, 23)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(46, 13)
|
||||
Me.Label6.TabIndex = 12
|
||||
Me.Label6.Text = "Attacks:"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(242, 51)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(64, 64)
|
||||
Me.PictureBox1.TabIndex = 11
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'ComboBox7
|
||||
'
|
||||
Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox7.FormattingEnabled = True
|
||||
Me.ComboBox7.Location = New System.Drawing.Point(350, 126)
|
||||
Me.ComboBox7.Name = "ComboBox7"
|
||||
Me.ComboBox7.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox7.TabIndex = 10
|
||||
'
|
||||
'ComboBox6
|
||||
'
|
||||
Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox6.FormattingEnabled = True
|
||||
Me.ComboBox6.Location = New System.Drawing.Point(350, 99)
|
||||
Me.ComboBox6.Name = "ComboBox6"
|
||||
Me.ComboBox6.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox6.TabIndex = 9
|
||||
'
|
||||
'ComboBox5
|
||||
'
|
||||
Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox5.FormattingEnabled = True
|
||||
Me.ComboBox5.Location = New System.Drawing.Point(350, 72)
|
||||
Me.ComboBox5.Name = "ComboBox5"
|
||||
Me.ComboBox5.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox5.TabIndex = 8
|
||||
'
|
||||
'ComboBox4
|
||||
'
|
||||
Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox4.FormattingEnabled = True
|
||||
Me.ComboBox4.Location = New System.Drawing.Point(350, 39)
|
||||
Me.ComboBox4.Name = "ComboBox4"
|
||||
Me.ComboBox4.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox4.TabIndex = 7
|
||||
'
|
||||
'ComboBox3
|
||||
'
|
||||
Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox3.FormattingEnabled = True
|
||||
Me.ComboBox3.Location = New System.Drawing.Point(209, 121)
|
||||
Me.ComboBox3.Name = "ComboBox3"
|
||||
Me.ComboBox3.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox3.TabIndex = 6
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(209, 26)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox2.TabIndex = 5
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(155, 121)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label5.TabIndex = 4
|
||||
Me.Label5.Text = "Held Item:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(155, 29)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label4.TabIndex = 3
|
||||
Me.Label4.Text = "Species:"
|
||||
'
|
||||
'ListBox2
|
||||
'
|
||||
Me.ListBox2.FormattingEnabled = True
|
||||
Me.ListBox2.Location = New System.Drawing.Point(24, 14)
|
||||
Me.ListBox2.Name = "ListBox2"
|
||||
Me.ListBox2.Size = New System.Drawing.Size(120, 95)
|
||||
Me.ListBox2.TabIndex = 2
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.PictureBox2)
|
||||
Me.GroupBox3.Controls.Add(Me.Button4)
|
||||
Me.GroupBox3.Controls.Add(Me.ComboBox8)
|
||||
Me.GroupBox3.Controls.Add(Me.Button3)
|
||||
Me.GroupBox3.Controls.Add(Me.Button2)
|
||||
Me.GroupBox3.Controls.Add(Me.ListBox3)
|
||||
Me.GroupBox3.Controls.Add(Me.TextBox2)
|
||||
Me.GroupBox3.Controls.Add(Me.Label3)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(329, 15)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(219, 211)
|
||||
Me.GroupBox3.TabIndex = 4
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Trainer Pokemon"
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(136, 95)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(64, 64)
|
||||
Me.PictureBox2.TabIndex = 12
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Location = New System.Drawing.Point(134, 163)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(75, 35)
|
||||
Me.Button4.TabIndex = 6
|
||||
Me.Button4.Text = "Change Pokemon"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ComboBox8
|
||||
'
|
||||
Me.ComboBox8.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox8.FormattingEnabled = True
|
||||
Me.ComboBox8.Location = New System.Drawing.Point(9, 163)
|
||||
Me.ComboBox8.Name = "ComboBox8"
|
||||
Me.ComboBox8.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox8.TabIndex = 5
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Location = New System.Drawing.Point(136, 45)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(75, 44)
|
||||
Me.Button3.TabIndex = 4
|
||||
Me.Button3.Text = "Edit Pokemon"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(136, 16)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button2.TabIndex = 3
|
||||
Me.Button2.Text = "Repoint"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ListBox3
|
||||
'
|
||||
Me.ListBox3.FormattingEnabled = True
|
||||
Me.ListBox3.Location = New System.Drawing.Point(10, 45)
|
||||
Me.ListBox3.Name = "ListBox3"
|
||||
Me.ListBox3.Size = New System.Drawing.Size(120, 95)
|
||||
Me.ListBox3.TabIndex = 2
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(55, 19)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(75, 20)
|
||||
Me.TextBox2.TabIndex = 1
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(6, 22)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label3.TabIndex = 0
|
||||
Me.Label3.Text = "Pointer:"
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.Button1)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox1)
|
||||
Me.GroupBox2.Controls.Add(Me.Label2)
|
||||
Me.GroupBox2.Controls.Add(Me.Label1)
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(138, 15)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(180, 164)
|
||||
Me.GroupBox2.TabIndex = 3
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Trainer data"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(50, 99)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "Save"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox1.Enabled = False
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(66, 45)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(100, 21)
|
||||
Me.ComboBox1.TabIndex = 5
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(6, 51)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label2.TabIndex = 4
|
||||
Me.Label2.Text = "Class:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "Name:"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(66, 19)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
|
||||
Me.TextBox1.TabIndex = 2
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.ListBox1)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(6, 15)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(114, 164)
|
||||
Me.GroupBox1.TabIndex = 1
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Trainers"
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.Location = New System.Drawing.Point(6, 19)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(97, 134)
|
||||
Me.ListBox1.TabIndex = 0
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(707, 424)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Slateport Battle Tent"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Size = New System.Drawing.Size(707, 424)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "Verdanturf Battle Tent"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage4
|
||||
'
|
||||
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage4.Name = "TabPage4"
|
||||
Me.TabPage4.Size = New System.Drawing.Size(707, 424)
|
||||
Me.TabPage4.TabIndex = 3
|
||||
Me.TabPage4.Text = "Fallarbor Battle Tent"
|
||||
Me.TabPage4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BattleFrontierEditor
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(579, 469)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "BattleFrontierEditor"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Battle Frontier Editor"
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
|
||||
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ComboBox7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents ComboBox8 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
End Class
|
||||
120
GBAPokemonGameEditor/BattleFrontierEditor.resx
Normal file
120
GBAPokemonGameEditor/BattleFrontierEditor.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
301
GBAPokemonGameEditor/BattleFrontierEditor.vb
Normal file
301
GBAPokemonGameEditor/BattleFrontierEditor.vb
Normal file
@@ -0,0 +1,301 @@
|
||||
Imports VB = Microsoft.VisualBasic
|
||||
|
||||
Public Class BattleFrontierEditor
|
||||
|
||||
Private Sub BattleFrontierEditor_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
|
||||
MainFrm.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub BattleFrontierEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
If header2 = "BPE" Then
|
||||
bfload()
|
||||
|
||||
Else
|
||||
MsgBox("This ROM is not supported!!!")
|
||||
End
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
|
||||
TextBox1.Text = GetBattleFrontierTrainerName(ListBox1.SelectedIndex)
|
||||
'ComboBox1.SelectedIndex = CInt("&H" & (ReverseHEX(ReadHEX(LoadedROM, (GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")) + (52 * ListBox1.SelectedIndex), 1))))
|
||||
TextBox2.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)
|
||||
|
||||
ListBox3.Items.Clear()
|
||||
|
||||
Dim curbytes As String
|
||||
Dim counter As Integer = 0
|
||||
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox2.Text, System.Globalization.NumberStyles.HexNumber), 2))
|
||||
|
||||
While curbytes <> "FFFF"
|
||||
|
||||
ListBox3.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
counter = counter + 1
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox2.Text, System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2))
|
||||
|
||||
End While
|
||||
|
||||
ListBox3.SelectedIndex = 0
|
||||
|
||||
End Sub
|
||||
Private Sub bfload()
|
||||
|
||||
Dim LoopVar As Integer
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
ListBox1.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfBattleFrontierTrainers", "")) = True
|
||||
|
||||
|
||||
ListBox1.Items.Add(GetBattleFrontierTrainerName(LoopVar))
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
End While
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
ComboBox1.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfTrainerClasses", "")) + 1 = True
|
||||
|
||||
|
||||
ComboBox1.Items.Add(GetTrainerClass(LoopVar))
|
||||
LoopVar = LoopVar + 1
|
||||
End While
|
||||
|
||||
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
ListBox2.Items.Clear()
|
||||
ComboBox8.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfBattleFrontierPokemon", "")) = True
|
||||
|
||||
ListBox2.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
ComboBox8.Items.Add(LoopVar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
End While
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfPokemon", "")) - 1 = True
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
ComboBox2.Items.Add(GetPokemonName(LoopVar))
|
||||
|
||||
End While
|
||||
|
||||
LoopVar = 1
|
||||
|
||||
ComboBox4.Items.Clear()
|
||||
ComboBox5.Items.Clear()
|
||||
ComboBox6.Items.Clear()
|
||||
ComboBox7.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfAttacks", "")) + 1 = True
|
||||
|
||||
|
||||
ComboBox4.Items.Add(GetAttackName(LoopVar))
|
||||
ComboBox5.Items.Add(GetAttackName(LoopVar))
|
||||
ComboBox6.Items.Add(GetAttackName(LoopVar))
|
||||
ComboBox7.Items.Add(GetAttackName(LoopVar))
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
End While
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
ComboBox3.Items.Clear()
|
||||
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfBattlefrontierHeldItems", "")) + 1 = True
|
||||
|
||||
|
||||
ComboBox3.Items.Add(GetItemName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, ((Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierHeldItems", "")), System.Globalization.NumberStyles.HexNumber)) + (LoopVar * 2)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
End While
|
||||
ListBox1.SelectedIndex = 0
|
||||
ListBox2.SelectedIndex = 0
|
||||
End Sub
|
||||
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
|
||||
'species
|
||||
ComboBox2.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16)), 2))) - 1, System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
'attacks
|
||||
ComboBox4.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 2), 2))) - 1, System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox5.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 4), 2))) - 1, System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox6.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 6), 2))) - 1, System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox7.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 8), 2))) - 1, System.Globalization.NumberStyles.HexNumber)
|
||||
'items
|
||||
ComboBox3.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 10), 1))), System.Globalization.NumberStyles.HexNumber)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Dim indexsave As Integer
|
||||
indexsave = ListBox1.SelectedIndex
|
||||
ChangeBattleFrontierTrainerName(ListBox1.SelectedIndex, TextBox1.Text)
|
||||
|
||||
Dim LoopVar As Integer
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
ListBox1.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfBattleFrontierTrainers", "")) = True
|
||||
|
||||
|
||||
ListBox1.Items.Add(GetBattleFrontierTrainerName(LoopVar))
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
End While
|
||||
|
||||
ListBox1.SelectedIndex = -0
|
||||
ListBox1.SelectedIndex = indexsave
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
WriteHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), ReverseHEX(Hex((Int32.Parse((TextBox2.Text), System.Globalization.NumberStyles.HexNumber)) + &H8000000)))
|
||||
|
||||
TextBox2.Text = Hex(((Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))), System.Globalization.NumberStyles.HexNumber))) - &H8000000)
|
||||
|
||||
ListBox3.Items.Clear()
|
||||
|
||||
Dim curbytes As String
|
||||
Dim counter As Integer = 0
|
||||
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox2.Text, System.Globalization.NumberStyles.HexNumber), 2))
|
||||
|
||||
While curbytes <> "FFFF"
|
||||
|
||||
ListBox3.Items.Add((Val("&H" & curbytes)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
counter = counter + 1
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox2.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2))
|
||||
|
||||
End While
|
||||
|
||||
ListBox3.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
ListBox2.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox3.SelectedIndex * 2), 2))))
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
|
||||
GetAndDrawAnimationPokemonPic(PictureBox1, ComboBox2.SelectedIndex + 1)
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged
|
||||
GetAndDrawAnimationPokemonPic(PictureBox2, (Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + ((Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox3.SelectedIndex * 2), 2))))) * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
ComboBox8.SelectedIndex = Val("&H" & (ReverseHEX(ReadHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox3.SelectedIndex * 2), 2))))
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
||||
Dim indexmemory As Integer
|
||||
|
||||
indexmemory = ListBox3.SelectedIndex
|
||||
|
||||
WriteHEX(LoadedROM, ("&H" & Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)) + (ListBox3.SelectedIndex * 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox8.SelectedIndex), 4)))
|
||||
TextBox2.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)
|
||||
ListBox3.Items.Clear()
|
||||
|
||||
Dim curbytes As String
|
||||
Dim counter As Integer = 0
|
||||
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox2.Text, System.Globalization.NumberStyles.HexNumber), 2))
|
||||
|
||||
While curbytes <> "FFFF"
|
||||
|
||||
ListBox3.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
counter = counter + 1
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox2.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2))
|
||||
|
||||
End While
|
||||
|
||||
ListBox3.SelectedIndex = indexmemory
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
||||
Dim indexmemory As Integer
|
||||
Dim indexmemory2 As Integer
|
||||
Dim indexmemory3 As Integer
|
||||
Dim loopvar As Integer
|
||||
|
||||
indexmemory = ListBox2.SelectedIndex
|
||||
indexmemory2 = ComboBox8.SelectedIndex
|
||||
indexmemory3 = ListBox3.SelectedIndex
|
||||
|
||||
WriteHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16)), ReverseHEX(VB.Right("0000" & Hex(ComboBox2.SelectedIndex + 1), 4)))
|
||||
|
||||
WriteHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 10), Hex(ComboBox3.SelectedIndex))
|
||||
|
||||
WriteHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 2), ReverseHEX(VB.Right("0000" & Hex(ComboBox4.SelectedIndex + 1), 4)))
|
||||
WriteHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 4), ReverseHEX(VB.Right("0000" & Hex(ComboBox5.SelectedIndex + 1), 4)))
|
||||
WriteHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 6), ReverseHEX(VB.Right("0000" & Hex(ComboBox6.SelectedIndex + 1), 4)))
|
||||
WriteHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (ListBox2.SelectedIndex * 16) + 8), ReverseHEX(VB.Right("0000" & Hex(ComboBox7.SelectedIndex + 1), 4)))
|
||||
|
||||
'Everything past here loads stuff
|
||||
LoopVar = 0
|
||||
|
||||
ListBox2.Items.Clear()
|
||||
ComboBox8.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfBattleFrontierPokemon", "")) = True
|
||||
|
||||
ListBox2.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
ComboBox8.Items.Add(loopvar & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (loopvar * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
End While
|
||||
|
||||
TextBox2.Text = Hex((("&H" & (ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber) + ((52 * ListBox1.SelectedIndex) + 48), 4))))) - &H8000000)
|
||||
|
||||
ListBox3.Items.Clear()
|
||||
|
||||
Dim curbytes As String
|
||||
Dim counter As Integer = 0
|
||||
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(TextBox2.Text, System.Globalization.NumberStyles.HexNumber), 2))
|
||||
|
||||
While curbytes <> "FFFF"
|
||||
|
||||
ListBox3.Items.Add((Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber)) & " - " & GetPokemonName(Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, (Int32.Parse(((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierPokemon", ""))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((curbytes), System.Globalization.NumberStyles.HexNumber) * 16)), 2))), System.Globalization.NumberStyles.HexNumber)))
|
||||
|
||||
counter = counter + 1
|
||||
|
||||
curbytes = ReverseHEX(ReadHEX(LoadedROM, Int32.Parse((TextBox2.Text), System.Globalization.NumberStyles.HexNumber) + (counter * 2), 2))
|
||||
|
||||
End While
|
||||
|
||||
ListBox2.SelectedIndex = indexmemory
|
||||
ComboBox8.SelectedIndex = indexmemory2
|
||||
ListBox3.SelectedIndex = indexmemory3
|
||||
End Sub
|
||||
End Class
|
||||
101
GBAPokemonGameEditor/ChangeNameFunctions.vb
Normal file
101
GBAPokemonGameEditor/ChangeNameFunctions.vb
Normal file
@@ -0,0 +1,101 @@
|
||||
Option Strict Off
|
||||
Option Explicit Off
|
||||
|
||||
Module ChangeNameFunctions
|
||||
|
||||
Public Function ChangePokemonName(ByVal Index As Integer, ByVal NewName As String)
|
||||
Dim offvar As Long
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "PokemonNames", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim PokeName As String = "xxxxxxxxxx"
|
||||
Dim filler As Byte = "&HFF"
|
||||
PokeName = NameAsc2Sapp(NewName)
|
||||
FilePut(FileNum, PokeName, offvar + 1 + (11 * Index))
|
||||
FilePut(FileNum, filler, offvar + 1 + (11 * Index) + Len(NewName))
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
ChangePokemonName = NewName
|
||||
End Function
|
||||
|
||||
Public Function ChangeAttackName(ByVal Index As Integer, ByVal NewName As String)
|
||||
Dim offvar As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AttackNames", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim PokeName As String = "xxxxxxxxxxxxx"
|
||||
Dim filler As Byte = "&HFF"
|
||||
PokeName = NameAsc2Sapp(NewName)
|
||||
FilePut(FileNum, PokeName, offvar + 1 + (13 * Index))
|
||||
FilePut(FileNum, filler, offvar + 1 + (13 * Index) + Len(NewName))
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
ChangeAttackName = NewName
|
||||
End Function
|
||||
|
||||
Public Function ChangeAbilityName(ByVal Index As Integer, ByVal NewName As String)
|
||||
Dim offvar As Long
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AbilityNames", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim PokeName As String = "xxxxxxxxxxxxxx"
|
||||
Dim filler As Byte = "&HFF"
|
||||
PokeName = NameAsc2Sapp(NewName)
|
||||
FilePut(FileNum, PokeName, offvar + 1 + (13 * Index))
|
||||
FilePut(FileNum, filler, offvar + 1 + (13 * Index) + Len(NewName))
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
ChangeAbilityName = NewName
|
||||
End Function
|
||||
|
||||
Public Function ChangeBattleFrontierTrainerName(ByVal Index As Integer, ByVal NewName As String)
|
||||
Dim offvar As Long
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
If header2 = "BPE" Then
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim PokeName As String = "xxxxxxxx"
|
||||
Dim filler As Byte = "&HFF"
|
||||
PokeName = NameAsc2Sapp(NewName)
|
||||
FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
|
||||
FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
ChangeBattleFrontierTrainerName = NewName
|
||||
Else
|
||||
MsgBox("What did you do? Contact Gamer2020")
|
||||
End
|
||||
End If
|
||||
End Function
|
||||
End Module
|
||||
314
GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj
Normal file
314
GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj
Normal file
@@ -0,0 +1,314 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>
|
||||
</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{FB471B62-6663-4CEA-BC71-1DF4817B877F}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>GBAPokemonGameEditor.My.MyApplication</StartupObject>
|
||||
<RootNamespace>GBAPokemonGameEditor</RootNamespace>
|
||||
<AssemblyName>GBAPokemonGameEditor</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile>
|
||||
</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>
|
||||
<UpdateUrl>http://gamer2020.0xrh.net/programs/GBAPokemonGameEditor/</UpdateUrl>
|
||||
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
|
||||
<WebPage>publish.htm</WebPage>
|
||||
<ApplicationRevision>1</ApplicationRevision>
|
||||
<ApplicationVersion>1.3.0.1</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<PublishWizardCompleted>true</PublishWizardCompleted>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>GBAPokemonGameEditor.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>GBAPokemonGameEditor.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestCertificateThumbprint>13C6A769C2B526F891205B34DDF055245096F5E5</ManifestCertificateThumbprint>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestKeyFile>GBAPokemonGameEditor_TemporaryKey.pfx</ManifestKeyFile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<GenerateManifests>true</GenerateManifests>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<SignManifests>false</SignManifests>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>Icon.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<TargetZone>LocalIntranet</TargetZone>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="ICSharpCode.SharpZipLib, Version=0.86.0.518, Culture=neutral, PublicKeyToken=1b03e6acf1164f73, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>bin\Debug\ICSharpCode.SharpZipLib.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Runtime.Remoting" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AbilityEdit.Designer.vb">
|
||||
<DependentUpon>AbilityEdit.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="AbilityEdit.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="AboutBox1.Designer.vb">
|
||||
<DependentUpon>AboutBox1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="AboutBox1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="AddOrRemovePrograms.Designer.vb">
|
||||
<DependentUpon>AddOrRemovePrograms.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="AddOrRemovePrograms.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="AttackEditor.Designer.vb">
|
||||
<DependentUpon>AttackEditor.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="AttackEditor.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BattleFrontierEditor.Designer.vb">
|
||||
<DependentUpon>BattleFrontierEditor.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BattleFrontierEditor.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ChangeNameFunctions.vb" />
|
||||
<Compile Include="GetImageFunctions.vb" />
|
||||
<Compile Include="GetNameFunctions.vb" />
|
||||
<Compile Include="HexFunctions.vb" />
|
||||
<Compile Include="InputAttacks.Designer.vb">
|
||||
<DependentUpon>InputAttacks.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="InputAttacks.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="JamboHackEvos.Designer.vb">
|
||||
<DependentUpon>JamboHackEvos.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="JamboHackEvos.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="LZ77.vb" />
|
||||
<Compile Include="INI.vb" />
|
||||
<Compile Include="MainFrm.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="MainFrm.Designer.vb">
|
||||
<DependentUpon>MainFrm.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="mMain.vb" />
|
||||
<Compile Include="modSearchFreeSpace.vb" />
|
||||
<Compile Include="modTextSapp.vb" />
|
||||
<Compile Include="movetutor2.Designer.vb">
|
||||
<DependentUpon>movetutor2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="movetutor2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</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>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="PointerOffsetFunctions.vb" />
|
||||
<Compile Include="PokedexOrderEditor.Designer.vb">
|
||||
<DependentUpon>PokedexOrderEditor.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="PokedexOrderEditor.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Pokemonedit.Designer.vb">
|
||||
<DependentUpon>Pokemonedit.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Pokemonedit.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="RSEStarterEditor.Designer.vb">
|
||||
<DependentUpon>RSEStarterEditor.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="RSEStarterEditor.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="AbilityEdit.resx">
|
||||
<DependentUpon>AbilityEdit.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="AboutBox1.resx">
|
||||
<DependentUpon>AboutBox1.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="AddOrRemovePrograms.resx">
|
||||
<DependentUpon>AddOrRemovePrograms.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="AttackEditor.resx">
|
||||
<DependentUpon>AttackEditor.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BattleFrontierEditor.resx">
|
||||
<DependentUpon>BattleFrontierEditor.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="InputAttacks.resx">
|
||||
<DependentUpon>InputAttacks.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="JamboHackEvos.resx">
|
||||
<DependentUpon>JamboHackEvos.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="MainFrm.resx">
|
||||
<DependentUpon>MainFrm.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="movetutor2.resx">
|
||||
<DependentUpon>movetutor2.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="PokedexOrderEditor.resx">
|
||||
<DependentUpon>PokedexOrderEditor.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Pokemonedit.resx">
|
||||
<DependentUpon>Pokemonedit.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="RSEStarterEditor.resx">
|
||||
<DependentUpon>RSEStarterEditor.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="App.config" />
|
||||
<None Include="My Project\app.manifest">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include=".NETFramework,Version=v4.0,Profile=Client">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Microsoft .NET Framework 4 Client Profile %28x86 and x64%29</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="Icon.ico" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
14
GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj.user
Normal file
14
GBAPokemonGameEditor/GBAPokemonGameEditor.vbproj.user
Normal file
@@ -0,0 +1,14 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\|C:\Users\Gamer2020\Desktop\Test\|C:\Users\Gamer2020\Desktop\Pub\|http://gamer2020.0xrh.net/programs/GBAPokemonGameEditor/|C:\Users\Gamer2020\Desktop\</PublishUrlHistory>
|
||||
<InstallUrlHistory />
|
||||
<SupportUrlHistory />
|
||||
<UpdateUrlHistory />
|
||||
<BootstrapperUrlHistory />
|
||||
<ErrorReportUrlHistory />
|
||||
<FallbackCulture>en-US</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
<ProjectView>ShowAllFiles</ProjectView>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
468
GBAPokemonGameEditor/GetImageFunctions.vb
Normal file
468
GBAPokemonGameEditor/GetImageFunctions.vb
Normal file
@@ -0,0 +1,468 @@
|
||||
Imports System
|
||||
Imports System.IO
|
||||
|
||||
Module GetImageFunctions
|
||||
|
||||
Public Function DrawBlockToTile(ByVal Destination As Bitmap, ByVal Source As Bitmap, ByVal BlockNum As Integer, ByVal yflip As Integer, ByVal xflip As Integer, ByVal Tile As Integer, ByVal section As Integer) As Bitmap
|
||||
Dim Output As Bitmap = Destination
|
||||
Dim PixelColor As Color
|
||||
|
||||
Dim HeightLoop As Integer
|
||||
Dim HeightCounter As Integer
|
||||
|
||||
Dim TileAgain As Integer
|
||||
|
||||
Dim xdes As Integer
|
||||
Dim ydes As Integer
|
||||
Dim xsrc As Integer
|
||||
Dim ysrc As Integer
|
||||
Dim x As Integer
|
||||
Dim y As Integer
|
||||
|
||||
'For destination
|
||||
|
||||
|
||||
HeightLoop = Tile
|
||||
HeightCounter = 0
|
||||
|
||||
While HeightLoop > 7
|
||||
|
||||
HeightLoop = HeightLoop - 8
|
||||
HeightCounter = HeightCounter + 1
|
||||
|
||||
End While
|
||||
|
||||
ydes = (HeightCounter * 16) '+ (section * 8)
|
||||
|
||||
xdes = ((Tile - (HeightCounter * 8)) * 16) '+ (section * 8)
|
||||
|
||||
If section = 1 Then
|
||||
xdes = xdes + 8
|
||||
ElseIf section = 2 Then
|
||||
ydes = ydes + 8
|
||||
ElseIf section = 3 Then
|
||||
xdes = xdes + 8
|
||||
ydes = ydes + 8
|
||||
End If
|
||||
|
||||
'For the source
|
||||
If BlockNum < 512 Then
|
||||
|
||||
TileAgain = BlockNum
|
||||
|
||||
Else
|
||||
|
||||
TileAgain = BlockNum - 512
|
||||
|
||||
End If
|
||||
|
||||
HeightLoop = TileAgain
|
||||
HeightCounter = 0
|
||||
|
||||
While HeightLoop > 15
|
||||
|
||||
HeightLoop = HeightLoop - 16
|
||||
HeightCounter = HeightCounter + 1
|
||||
|
||||
End While
|
||||
|
||||
ysrc = HeightCounter * 8
|
||||
|
||||
xsrc = (TileAgain - (HeightCounter * 16)) * 8
|
||||
|
||||
|
||||
If xflip = 0 And yflip = 0 Then
|
||||
|
||||
For x = 0 To 7
|
||||
For y = 0 To 7
|
||||
PixelColor = Source.GetPixel((xsrc) + x, (ysrc) + y)
|
||||
|
||||
Output.SetPixel((xdes) + x, (ydes) + y, PixelColor)
|
||||
|
||||
Next y
|
||||
|
||||
Next x
|
||||
End If
|
||||
|
||||
If xflip = 1 And yflip = 0 Then
|
||||
|
||||
For x = 0 To 7
|
||||
For y = 0 To 7
|
||||
PixelColor = Source.GetPixel((xsrc) + x, (ysrc) + y)
|
||||
|
||||
Output.SetPixel((xdes + 7) - x, (ydes) + y, PixelColor)
|
||||
|
||||
Next y
|
||||
|
||||
Next x
|
||||
End If
|
||||
|
||||
If xflip = 0 And yflip = 1 Then
|
||||
|
||||
For x = 0 To 7
|
||||
For y = 0 To 7
|
||||
PixelColor = Source.GetPixel((xsrc) + x, (ysrc) + y)
|
||||
|
||||
Output.SetPixel((xdes) + x, (ydes + 7) - y, PixelColor)
|
||||
|
||||
Next y
|
||||
|
||||
Next x
|
||||
End If
|
||||
|
||||
If xflip = 1 And yflip = 1 Then
|
||||
|
||||
For x = 0 To 7
|
||||
For y = 0 To 7
|
||||
PixelColor = Source.GetPixel((xsrc) + x, (ysrc) + y)
|
||||
|
||||
Output.SetPixel((xdes + 7) - x, (ydes + 7) - y, PixelColor)
|
||||
|
||||
Next y
|
||||
|
||||
Next x
|
||||
End If
|
||||
DrawBlockToTile = Output
|
||||
End Function
|
||||
|
||||
Public Sub GetAndDrawItemPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ItemIMGData", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ItemIMGData", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) + 4 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 24, 24, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub GetAndDrawFrontPokemonPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "PokemonFrontSprites", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "PokemonNormalPal", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 64, 64, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub GetAndDrawBackPokemonPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "PokemonBackSprites", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "PokemonShinyPal", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 64, 64, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub GetAndDrawAnimationPokemonPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "PokemonAnimations", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "PokemonNormalPal", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 64, 128, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub GetAndDrawShadowAnimationPokemonPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ShadowFronts", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ShadowPals", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 64, 128, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub GetAndDrawBackShadowPokemonPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ShadowBacks", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ShadowPals", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 64, 64, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub GetAndDrawShadowFrontPokemonPic(ByVal picBox As PictureBox, ByVal index As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ShadowFronts", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon front sprites, + 8 = Bulbasaur.
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "ShadowPals", ""), System.Globalization.NumberStyles.HexNumber) + (index * 8) 'Pointer to Pokemon normal palettes, + 8 = Bulbasaur.
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Image)
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
fs.Position = pOffset
|
||||
pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Palette15)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 64, 64, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function LoadPalette(ByVal Bits() As Byte) As Color()
|
||||
Dim Temp As UShort
|
||||
Dim Colors(15) As Color
|
||||
Dim C1 As Byte
|
||||
Dim C2 As Byte
|
||||
Dim R As UShort, G As UShort, B As UShort
|
||||
Dim i As Byte
|
||||
|
||||
For i = 0 To &H1F Step 2
|
||||
C1 = Bits(i)
|
||||
C2 = Bits(i + 1)
|
||||
Temp = C2 * &H100 + C1
|
||||
|
||||
R = (Temp And &H1F) * &H8
|
||||
G = (Temp And &H3E0) / &H4
|
||||
B = (Temp And &H7C00) / &H80
|
||||
|
||||
Colors(i / 2) = Color.FromArgb(&HFF, R, G, B)
|
||||
Next
|
||||
|
||||
LoadPalette = Colors
|
||||
End Function
|
||||
|
||||
Public Function LoadSprite(ByRef Bits() As Byte, ByVal Palette() As Color, Optional ByVal Width As Integer = 64, Optional ByVal Height As Integer = 64, Optional ByVal ShowBackColor As Boolean = True) As Bitmap
|
||||
On Error GoTo ErrorHandle
|
||||
Dim x1 As Integer, y1 As Integer
|
||||
Dim x2 As Integer, y2 As Integer
|
||||
Dim bmpTiles As New Bitmap(Width, Height)
|
||||
Dim Temp As Byte
|
||||
Dim i As Integer
|
||||
|
||||
For y1 = 0 To Height - 8 Step 8
|
||||
For x1 = 0 To Width - 8 Step 8
|
||||
For y2 = 0 To 7
|
||||
For x2 = 0 To 7 Step 2
|
||||
Temp = Bits(i)
|
||||
If ShowBackColor = True Then
|
||||
bmpTiles.SetPixel(x1 + x2 + 1, y1 + y2, Palette((Temp And &HF0) / &H10))
|
||||
bmpTiles.SetPixel(x1 + x2, y1 + y2, Palette(Temp And &HF))
|
||||
Else
|
||||
|
||||
' If Temp And &HF0 <> 0 Then
|
||||
If Palette((Temp And &HF0) / &H10) <> Palette(0) Then
|
||||
|
||||
|
||||
'MsgBox(Temp And &HF0)
|
||||
' MsgBox("hit")
|
||||
bmpTiles.SetPixel(x1 + x2 + 1, y1 + y2, Palette((Temp And &HF0) / &H10))
|
||||
|
||||
End If
|
||||
If Palette((Temp And &HF)) <> Palette(0) Then
|
||||
' If Temp And &HF <> 0 Then
|
||||
' MsgBox("hit")
|
||||
|
||||
bmpTiles.SetPixel(x1 + x2, y1 + y2, Palette((Temp And &HF)))
|
||||
|
||||
End If
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
Next
|
||||
Next
|
||||
Next
|
||||
|
||||
LoadSprite = bmpTiles
|
||||
ErrorHandle:
|
||||
End Function
|
||||
|
||||
Public Sub GetAndDrawPokemonIconPic(ByVal picBox As PictureBox, ByVal index As Integer, ByVal palindex As Integer)
|
||||
Dim sOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "IconPointerTable", ""), System.Globalization.NumberStyles.HexNumber) + (4 + (index * 4))
|
||||
Dim pOffset As Integer = Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "IconPals", ""), System.Globalization.NumberStyles.HexNumber) + (palindex * 32)
|
||||
Dim Temp(&HFFF) As Byte
|
||||
Dim Image(&HFFFF) As Byte
|
||||
Dim Palette15(&HFFF) As Byte
|
||||
Dim Palette32() As Color
|
||||
Dim bSprite As Bitmap
|
||||
Using fs As New FileStream(LoadedROM, FileMode.Open, FileAccess.Read)
|
||||
Using r As New BinaryReader(fs)
|
||||
fs.Position = sOffset
|
||||
sOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = sOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
'LZ77UnComp(Temp, Image)
|
||||
Image = Temp
|
||||
|
||||
ReDim Temp(&HFFF)
|
||||
'fs.Position = pOffset
|
||||
'pOffset = r.ReadInt32 - &H8000000
|
||||
fs.Position = pOffset
|
||||
r.Read(Temp, 0, &HFFF)
|
||||
'LZ77UnComp(Temp, Palette15)
|
||||
|
||||
Palette32 = LoadPalette(Temp)
|
||||
End Using
|
||||
End Using
|
||||
|
||||
|
||||
bSprite = LoadSprite(Image, Palette32, 32, 64, GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0"))
|
||||
picBox.Image = bSprite
|
||||
picBox.Refresh()
|
||||
|
||||
End Sub
|
||||
End Module
|
||||
206
GBAPokemonGameEditor/GetNameFunctions.vb
Normal file
206
GBAPokemonGameEditor/GetNameFunctions.vb
Normal file
@@ -0,0 +1,206 @@
|
||||
Option Strict Off
|
||||
Option Explicit Off
|
||||
|
||||
Module GetNameFunctions
|
||||
|
||||
Public Function GetAbilityName(ByVal Index As Integer)
|
||||
Dim offvar As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AbilityNames", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim AbilityName As String = "xxxxxxxxxxxxxx"
|
||||
FileGet(FileNum, AbilityName, offvar + 1 + (13 * Index))
|
||||
b$ = Sapp2Asc(AbilityName, False)
|
||||
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
b$ = LSet(b$, Len(b$) - 1)
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
GetAbilityName = b$
|
||||
End Function
|
||||
|
||||
Public Function GetItemName(ByVal Index As Integer)
|
||||
Dim offvar As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "ItemData", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim ItemName As String = "xxxxxxxxxxxxxx"
|
||||
FileGet(FileNum, ItemName, offvar + 1 + (44 * Index))
|
||||
b$ = Sapp2Asc(ItemName, False)
|
||||
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
b$ = LSet(b$, Len(b$) - 1)
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
GetItemName = b$
|
||||
End Function
|
||||
|
||||
Public Function GetPokemonName(ByVal Index As Integer)
|
||||
Dim offvar As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "PokemonNames", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim JapPokeName As String = "xxxxxx"
|
||||
FileGet(FileNum, JapPokeName, offvar + 1 + (6 * Index))
|
||||
b$ = Sapp2Asc(JapPokeName, True)
|
||||
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
b$ = LSet(b$, Len(b$) - 1)
|
||||
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim PokeName As String = "xxxxxxxxxxx"
|
||||
FileGet(FileNum, PokeName, offvar + 1 + (11 * Index))
|
||||
b$ = Sapp2Asc(PokeName, False)
|
||||
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
b$ = LSet(b$, Len(b$) - 1)
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
GetPokemonName = b$
|
||||
End Function
|
||||
|
||||
Public Function GetMapLabelName(ByVal Index As Integer) As String
|
||||
Dim offvar As Integer
|
||||
Dim stringvar As String
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "MapLabelData", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header2 = "BPR" Or header2 = "BPG" Then
|
||||
offvar = "&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offvar + (4 * Index), 4))) - &H8000000)
|
||||
Else
|
||||
|
||||
offvar = "&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offvar + (8 * Index), 4))) - &H8000000)
|
||||
End If
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
'FileNum = FreeFile()
|
||||
'FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
'Dim JapPokeName As String = "xxxxxx"
|
||||
'FileGet(FileNum, JapPokeName, offvar + 1 + (6 * Index))
|
||||
'b$ = Sapp2Asc(JapPokeName, True)
|
||||
'While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
'b$ = LSet(b$, Len(b$) - 1)
|
||||
stringvar = "not supported"
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim LabelName As String = "xxxxxxxxxxxxxxxxxxxxxx"
|
||||
|
||||
|
||||
|
||||
FileGet(FileNum, LabelName, offvar + 1)
|
||||
stringvar = Sapp2Asc(LabelName, False)
|
||||
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
||||
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
GetMapLabelName = stringvar
|
||||
End Function
|
||||
|
||||
Public Function GetAttackName(ByVal Index As Integer)
|
||||
Dim offvar As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "AttackNames", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim AbilityName As String = "xxxxxxxxxxxxx"
|
||||
'MsgBox("dim abilityname")
|
||||
FileGet(FileNum, AbilityName, offvar + 1 + (13 * Index))
|
||||
'MsgBox("filget")
|
||||
b$ = Sapp2Asc(AbilityName, False)
|
||||
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
b$ = LSet(b$, Len(b$) - 1)
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
GetAttackName = b$
|
||||
End Function
|
||||
|
||||
Public Function GetBattleFrontierTrainerName(ByVal Index As Integer) As String
|
||||
Dim offvar As Integer
|
||||
Dim stringvar As String
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header2 = "BPE" Then
|
||||
If header3 = "J" Then
|
||||
Else
|
||||
offvar = offvar + 4 + (Index * 52)
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim LabelName As String = "xxxxxxxx"
|
||||
|
||||
|
||||
|
||||
FileGet(FileNum, LabelName, offvar + 1)
|
||||
stringvar = Sapp2Asc(LabelName, False)
|
||||
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
||||
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
||||
|
||||
End If
|
||||
|
||||
FileClose(FileNum)
|
||||
Else
|
||||
MsgBox("What did you do?")
|
||||
End
|
||||
End If
|
||||
|
||||
|
||||
|
||||
GetBattleFrontierTrainerName = stringvar
|
||||
End Function
|
||||
|
||||
Public Function GetTrainerClass(ByVal Index As Integer)
|
||||
Dim offvar As Integer
|
||||
|
||||
offvar = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "TrainerClasses", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header3 = "J" Then
|
||||
|
||||
Else
|
||||
|
||||
FileNum = FreeFile()
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
Dim Name As String = "xxxxxxxxxxxxx"
|
||||
FileGet(FileNum, Name, offvar + 1 + (13 * Index))
|
||||
b$ = Sapp2Asc(Name, False)
|
||||
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
||||
b$ = LSet(b$, Len(b$) - 1)
|
||||
|
||||
|
||||
End If
|
||||
FileClose(FileNum)
|
||||
GetTrainerClass = b$
|
||||
End Function
|
||||
End Module
|
||||
93
GBAPokemonGameEditor/HexFunctions.vb
Normal file
93
GBAPokemonGameEditor/HexFunctions.vb
Normal file
@@ -0,0 +1,93 @@
|
||||
Option Strict Off
|
||||
Option Explicit On
|
||||
Module HexFunctions
|
||||
' ------------------------------------------------
|
||||
' ----------------------------------------------------
|
||||
' --------------------------------------------------------
|
||||
' |----------HEX Editing Functions by: Darthatron----------|
|
||||
' --------------------------------------------------------
|
||||
' |--When using these functions I must be credited fully.--|
|
||||
' |--Check on Darthatron.Com for updates of this function--|
|
||||
' |--as these are merely the BETA forms and may need some--|
|
||||
' |--updates. If you find any bugs, please email them to:--|
|
||||
' |--info@darthatron.com, thankyou: Regards, Darthatron.--|
|
||||
' --------------------------------------------------------
|
||||
' ----------------------------------------------------
|
||||
' ------------------------------------------------
|
||||
' ------------------------------------------------
|
||||
' ----------You can't handle the truth!!----------
|
||||
' ------------------------------------------------
|
||||
' ------------------------------------------------
|
||||
' ----------------------------------------------------
|
||||
' --------------------------------------------------------
|
||||
' |----------Update 001: Sunday 18th May 2008----------|
|
||||
' --------------------------------------------------------
|
||||
' |----Pretty much just fixed the WriteHEX Function, it----|
|
||||
' |----------should be reasonably faster now. :)----------|
|
||||
' --------------------------------------------------------
|
||||
' ----------------------------------------------------
|
||||
' ------------------------------------------------
|
||||
|
||||
Public Function ReverseHEX(ByRef HEXData As String) As String
|
||||
Dim iNum As Integer
|
||||
Dim HEXHolder As String
|
||||
If Len(HEXData) / 2 <> Int(Len(HEXData) / 2) Then HEXData = "0" & HEXData
|
||||
|
||||
For iNum = 0 To Len(HEXData) + 1
|
||||
If Len(HEXData) <= 1 Then GoTo EndNow
|
||||
HEXHolder = HEXHolder & Right(HEXData, 2)
|
||||
HEXData = Left(HEXData, Len(HEXData) - 2)
|
||||
Next iNum
|
||||
EndNow:
|
||||
ReverseHEX = HEXHolder
|
||||
End Function
|
||||
|
||||
Public Function ReadHEX(ByRef FilePath As String, ByRef Start As Integer, ByRef Length As Integer) As String
|
||||
On Error GoTo ErrHandle
|
||||
Dim iFile As Integer
|
||||
Dim bytHex As Byte
|
||||
Dim sHex As String
|
||||
Dim i As Integer
|
||||
Start = Start + 1
|
||||
iFile = FreeFile
|
||||
sHex = ""
|
||||
i = 0
|
||||
FileOpen(iFile, FilePath, OpenMode.Binary)
|
||||
For i = Start To (Start + Length - 1)
|
||||
'UPGRADE_WARNING: Get was upgraded to FileGet and has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
|
||||
FileGet(iFile, bytHex, i)
|
||||
sHex = sHex & Right("00" & Hex(bytHex), 2)
|
||||
Next i
|
||||
FileClose(iFile)
|
||||
ReadHEX = sHex
|
||||
Exit Function
|
||||
ErrHandle:
|
||||
MsgBox(Err.Description, MsgBoxStyle.OKOnly, "Error: " & Err.Number)
|
||||
End Function
|
||||
|
||||
Public Function WriteHEX(ByRef FilePath As String, ByRef Start As Integer, ByRef Data As String) As Object
|
||||
On Error GoTo ErrHandle
|
||||
Dim iFile As Integer
|
||||
Dim sPost As Integer
|
||||
Dim bytHex As Byte
|
||||
Start = Start + 1
|
||||
iFile = FreeFile
|
||||
sPost = 0
|
||||
|
||||
If Len(Data) <> Int(Len(Data) / 2) * 2 Then Data = "0" & Data
|
||||
|
||||
FileOpen(iFile, FilePath, OpenMode.Binary)
|
||||
|
||||
Do While Len(Data) > 0
|
||||
bytHex = Int32.Parse((Mid(Data, 1, 2)), System.Globalization.NumberStyles.HexNumber)
|
||||
'UPGRADE_WARNING: Put was upgraded to FilePut and has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
|
||||
FilePut(iFile, bytHex, Start + sPost)
|
||||
Data = Right(Data, Len(Data) - 2)
|
||||
sPost = sPost + 1
|
||||
Loop
|
||||
FileClose(iFile)
|
||||
Exit Function
|
||||
ErrHandle:
|
||||
MsgBox(Err.Description, MsgBoxStyle.OKOnly, "Error: " & Err.Number)
|
||||
End Function
|
||||
End Module
|
||||
45
GBAPokemonGameEditor/INI.vb
Normal file
45
GBAPokemonGameEditor/INI.vb
Normal file
@@ -0,0 +1,45 @@
|
||||
Module INI
|
||||
Private Declare Ansi Function GetPrivateProfileString _
|
||||
Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
|
||||
(ByVal lpApplicationName As String, _
|
||||
ByVal lpKeyName As String, ByVal lpDefault As String, _
|
||||
ByVal lpReturnedString As System.Text.StringBuilder, _
|
||||
ByVal nSize As Integer, ByVal lpFileName As String) _
|
||||
As Integer
|
||||
Private Declare Ansi Function WritePrivateProfileString _
|
||||
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
|
||||
(ByVal lpApplicationName As String, _
|
||||
ByVal lpKeyName As String, ByVal lpString As String, _
|
||||
ByVal lpFileName As String) As Integer
|
||||
Private Declare Ansi Function GetPrivateProfileInt _
|
||||
Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
|
||||
(ByVal lpApplicationName As String, _
|
||||
ByVal lpKeyName As String, ByVal nDefault As Integer, _
|
||||
ByVal lpFileName As String) As Integer
|
||||
Private Declare Ansi Function FlushPrivateProfileString _
|
||||
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
|
||||
(ByVal lpApplicationName As Integer, _
|
||||
ByVal lpKeyName As Integer, ByVal lpString As Integer, _
|
||||
ByVal lpFileName As String) As Integer
|
||||
|
||||
Public Function GetString(ByVal strFilename As String, ByVal Section As String, _
|
||||
ByVal Key As String, ByVal [Default] As String) As String
|
||||
Dim intCharCount As Integer
|
||||
Dim objResult As New System.Text.StringBuilder(256)
|
||||
intCharCount = GetPrivateProfileString(Section, Key, _
|
||||
[Default], objResult, objResult.Capacity, strFilename)
|
||||
If intCharCount > 0 Then GetString = _
|
||||
Left(objResult.ToString, intCharCount)
|
||||
End Function
|
||||
|
||||
Public Function WriteString(ByVal strFilename As String, ByVal Section As String, _
|
||||
ByVal Key As String, ByVal Value As String)
|
||||
WritePrivateProfileString(Section, Key, Value, strFilename)
|
||||
Flush(strFilename)
|
||||
End Function
|
||||
|
||||
Private Sub Flush(ByVal thing As String)
|
||||
FlushPrivateProfileString(0, 0, 0, thing)
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
BIN
GBAPokemonGameEditor/Icon.ico
Normal file
BIN
GBAPokemonGameEditor/Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
112
GBAPokemonGameEditor/InputAttacks.Designer.vb
generated
Normal file
112
GBAPokemonGameEditor/InputAttacks.Designer.vb
generated
Normal file
@@ -0,0 +1,112 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class InputAttacks
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(18, 25)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(66, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Offset (Hex):"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(18, 49)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(97, 13)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = "Number of attacks:"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(121, 22)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(73, 20)
|
||||
Me.TextBox1.TabIndex = 2
|
||||
Me.TextBox1.Text = "0"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(121, 49)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(24, 20)
|
||||
Me.TextBox2.TabIndex = 3
|
||||
Me.TextBox2.Text = "1"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(198, 68)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(77, 25)
|
||||
Me.Button1.TabIndex = 4
|
||||
Me.Button1.Text = "Insert"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(21, 73)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(86, 17)
|
||||
Me.CheckBox1.TabIndex = 5
|
||||
Me.CheckBox1.Text = "Jambo Hack"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'InputAttacks
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(277, 98)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.TextBox2)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "InputAttacks"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Insert attacks at offset"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
End Class
|
||||
120
GBAPokemonGameEditor/InputAttacks.resx
Normal file
120
GBAPokemonGameEditor/InputAttacks.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
30
GBAPokemonGameEditor/InputAttacks.vb
Normal file
30
GBAPokemonGameEditor/InputAttacks.vb
Normal file
@@ -0,0 +1,30 @@
|
||||
Public Class InputAttacks
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Dim looper As Integer
|
||||
If CheckBox1.Checked = True Then
|
||||
looper = 0
|
||||
|
||||
While looper < TextBox2.Text
|
||||
|
||||
WriteHEX(LoadedROM, ("&H" & TextBox1.Text) + (looper * 3), "010001")
|
||||
|
||||
looper = looper + 1
|
||||
End While
|
||||
WriteHEX(LoadedROM, ("&H" & TextBox1.Text) + (looper * 3), GetString(AppPath & "ini\roms.ini", header, "JamboLearnableMovesTerm", ""))
|
||||
Me.Close()
|
||||
ElseIf CheckBox1.Checked = False Then
|
||||
looper = 0
|
||||
|
||||
While looper < TextBox2.Text
|
||||
|
||||
WriteHEX(LoadedROM, ("&H" & TextBox1.Text) + (looper * 2), "0102")
|
||||
|
||||
looper = looper + 1
|
||||
End While
|
||||
WriteHEX(LoadedROM, ("&H" & TextBox1.Text) + (looper * 2), "FFFF")
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
369
GBAPokemonGameEditor/JamboHackEvos.Designer.vb
generated
Normal file
369
GBAPokemonGameEditor/JamboHackEvos.Designer.vb
generated
Normal file
@@ -0,0 +1,369 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class JamboHackEvos
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.GroupBox17 = New System.Windows.Forms.GroupBox()
|
||||
Me.EvoItemPic = New System.Windows.Forms.PictureBox()
|
||||
Me.EvoPokePic = New System.Windows.Forms.PictureBox()
|
||||
Me.EvoLevel = New System.Windows.Forms.TextBox()
|
||||
Me.EvoItem = New System.Windows.Forms.ComboBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.EvoTypes = New System.Windows.Forms.ComboBox()
|
||||
Me.EvoSlots = New System.Windows.Forms.ListBox()
|
||||
Me.EvoPKMNames = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox19 = New System.Windows.Forms.GroupBox()
|
||||
Me.PKMNames = New System.Windows.Forms.ComboBox()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox17.SuspendLayout()
|
||||
CType(Me.EvoItemPic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.EvoPokePic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox19.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox17
|
||||
'
|
||||
Me.GroupBox17.Controls.Add(Me.ComboBox3)
|
||||
Me.GroupBox17.Controls.Add(Me.Label5)
|
||||
Me.GroupBox17.Controls.Add(Me.TextBox2)
|
||||
Me.GroupBox17.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox17.Controls.Add(Me.Label4)
|
||||
Me.GroupBox17.Controls.Add(Me.Label3)
|
||||
Me.GroupBox17.Controls.Add(Me.ComboBox2)
|
||||
Me.GroupBox17.Controls.Add(Me.Label2)
|
||||
Me.GroupBox17.Controls.Add(Me.Label1)
|
||||
Me.GroupBox17.Controls.Add(Me.PictureBox2)
|
||||
Me.GroupBox17.Controls.Add(Me.ComboBox1)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoItemPic)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoPokePic)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoLevel)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoItem)
|
||||
Me.GroupBox17.Controls.Add(Me.Label16)
|
||||
Me.GroupBox17.Controls.Add(Me.Label15)
|
||||
Me.GroupBox17.Controls.Add(Me.Label14)
|
||||
Me.GroupBox17.Controls.Add(Me.Label13)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoTypes)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoSlots)
|
||||
Me.GroupBox17.Controls.Add(Me.EvoPKMNames)
|
||||
Me.GroupBox17.Location = New System.Drawing.Point(10, 116)
|
||||
Me.GroupBox17.Name = "GroupBox17"
|
||||
Me.GroupBox17.Size = New System.Drawing.Size(613, 232)
|
||||
Me.GroupBox17.TabIndex = 9
|
||||
Me.GroupBox17.TabStop = False
|
||||
Me.GroupBox17.Text = "Evolutions"
|
||||
'
|
||||
'EvoItemPic
|
||||
'
|
||||
Me.EvoItemPic.Location = New System.Drawing.Point(354, 81)
|
||||
Me.EvoItemPic.Name = "EvoItemPic"
|
||||
Me.EvoItemPic.Size = New System.Drawing.Size(24, 24)
|
||||
Me.EvoItemPic.TabIndex = 10
|
||||
Me.EvoItemPic.TabStop = False
|
||||
'
|
||||
'EvoPokePic
|
||||
'
|
||||
Me.EvoPokePic.Location = New System.Drawing.Point(191, 81)
|
||||
Me.EvoPokePic.Name = "EvoPokePic"
|
||||
Me.EvoPokePic.Size = New System.Drawing.Size(64, 64)
|
||||
Me.EvoPokePic.TabIndex = 9
|
||||
Me.EvoPokePic.TabStop = False
|
||||
'
|
||||
'EvoLevel
|
||||
'
|
||||
Me.EvoLevel.Location = New System.Drawing.Point(450, 19)
|
||||
Me.EvoLevel.Name = "EvoLevel"
|
||||
Me.EvoLevel.Size = New System.Drawing.Size(25, 20)
|
||||
Me.EvoLevel.TabIndex = 8
|
||||
'
|
||||
'EvoItem
|
||||
'
|
||||
Me.EvoItem.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.EvoItem.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.EvoItem.FormattingEnabled = True
|
||||
Me.EvoItem.Location = New System.Drawing.Point(354, 54)
|
||||
Me.EvoItem.Name = "EvoItem"
|
||||
Me.EvoItem.Size = New System.Drawing.Size(121, 21)
|
||||
Me.EvoItem.TabIndex = 7
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(397, 22)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(36, 13)
|
||||
Me.Label16.TabIndex = 6
|
||||
Me.Label16.Text = "Level:"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(318, 54)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(30, 13)
|
||||
Me.Label15.TabIndex = 5
|
||||
Me.Label15.Text = "Item:"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(133, 54)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label14.TabIndex = 4
|
||||
Me.Label14.Text = "Evolve to:"
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(133, 22)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label13.TabIndex = 3
|
||||
Me.Label13.Text = "Condition:"
|
||||
'
|
||||
'EvoTypes
|
||||
'
|
||||
Me.EvoTypes.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.EvoTypes.FormattingEnabled = True
|
||||
Me.EvoTypes.Items.AddRange(New Object() {"None", "Happiness", "Happiness (Day)", "Happiness (Night)", "Level", "Trade", "Trade w/ Item", "Item", "Atk > Def", "Atk = Def", "Atk < Def", "High Personality", "Low Personality", "Allow Pokemon Creation", "Create Extra Pokemon", "Max Beauty", "level up in certain map", "level up on certain map name", "level up while knowing a certain attack", "level up at night while holding a certain item", "level up with a specific other species of pokémon in the party", "level up above a certain level as male", "level up above a certain level as female", "level up during day holding a specific item", "trade with another specific species"})
|
||||
Me.EvoTypes.Location = New System.Drawing.Point(191, 22)
|
||||
Me.EvoTypes.Name = "EvoTypes"
|
||||
Me.EvoTypes.Size = New System.Drawing.Size(200, 21)
|
||||
Me.EvoTypes.TabIndex = 2
|
||||
'
|
||||
'EvoSlots
|
||||
'
|
||||
Me.EvoSlots.FormattingEnabled = True
|
||||
Me.EvoSlots.Items.AddRange(New Object() {"Evolution 1", "Evolution 2", "Evolution 3", "Evolution 4", "Evolution 5"})
|
||||
Me.EvoSlots.Location = New System.Drawing.Point(7, 19)
|
||||
Me.EvoSlots.Name = "EvoSlots"
|
||||
Me.EvoSlots.Size = New System.Drawing.Size(120, 69)
|
||||
Me.EvoSlots.TabIndex = 1
|
||||
'
|
||||
'EvoPKMNames
|
||||
'
|
||||
Me.EvoPKMNames.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.EvoPKMNames.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.EvoPKMNames.FormattingEnabled = True
|
||||
Me.EvoPKMNames.Location = New System.Drawing.Point(191, 54)
|
||||
Me.EvoPKMNames.Name = "EvoPKMNames"
|
||||
Me.EvoPKMNames.Size = New System.Drawing.Size(121, 21)
|
||||
Me.EvoPKMNames.TabIndex = 0
|
||||
'
|
||||
'GroupBox19
|
||||
'
|
||||
Me.GroupBox19.Controls.Add(Me.PKMNames)
|
||||
Me.GroupBox19.Location = New System.Drawing.Point(10, 33)
|
||||
Me.GroupBox19.Name = "GroupBox19"
|
||||
Me.GroupBox19.Size = New System.Drawing.Size(130, 66)
|
||||
Me.GroupBox19.TabIndex = 10
|
||||
Me.GroupBox19.TabStop = False
|
||||
Me.GroupBox19.Text = "Pokemon Selection"
|
||||
'
|
||||
'PKMNames
|
||||
'
|
||||
Me.PKMNames.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.PKMNames.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.PKMNames.FormattingEnabled = True
|
||||
Me.PKMNames.Location = New System.Drawing.Point(6, 28)
|
||||
Me.PKMNames.Name = "PKMNames"
|
||||
Me.PKMNames.Size = New System.Drawing.Size(118, 21)
|
||||
Me.PKMNames.TabIndex = 7
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(175, 33)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(64, 64)
|
||||
Me.PictureBox1.TabIndex = 11
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(288, 38)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(127, 43)
|
||||
Me.Button1.TabIndex = 12
|
||||
Me.Button1.Text = "Save"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(481, 81)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(64, 64)
|
||||
Me.PictureBox2.TabIndex = 12
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(481, 54)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox1.TabIndex = 11
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(481, 22)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label1.TabIndex = 13
|
||||
Me.Label1.Text = "Species Requirement"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(133, 158)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label2.TabIndex = 14
|
||||
Me.Label2.Text = "Map name:"
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(191, 158)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox2.TabIndex = 15
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(402, 155)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(31, 13)
|
||||
Me.Label3.TabIndex = 16
|
||||
Me.Label3.Text = "Map:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(318, 155)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label4.TabIndex = 17
|
||||
Me.Label4.Text = "Bank:"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(354, 155)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(32, 20)
|
||||
Me.TextBox1.TabIndex = 18
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(439, 155)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(36, 20)
|
||||
Me.TextBox2.TabIndex = 19
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(133, 184)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label5.TabIndex = 20
|
||||
Me.Label5.Text = "Attack:"
|
||||
'
|
||||
'ComboBox3
|
||||
'
|
||||
Me.ComboBox3.FormattingEnabled = True
|
||||
Me.ComboBox3.Location = New System.Drawing.Point(191, 184)
|
||||
Me.ComboBox3.Name = "ComboBox3"
|
||||
Me.ComboBox3.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox3.TabIndex = 21
|
||||
'
|
||||
'JamboHackEvos
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(635, 393)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.PictureBox1)
|
||||
Me.Controls.Add(Me.GroupBox17)
|
||||
Me.Controls.Add(Me.GroupBox19)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Name = "JamboHackEvos"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "JamboHackEvos"
|
||||
Me.GroupBox17.ResumeLayout(False)
|
||||
Me.GroupBox17.PerformLayout()
|
||||
CType(Me.EvoItemPic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.EvoPokePic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox19.ResumeLayout(False)
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents GroupBox17 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents EvoItemPic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents EvoPokePic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents EvoLevel As System.Windows.Forms.TextBox
|
||||
Friend WithEvents EvoItem As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents EvoTypes As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents EvoSlots As System.Windows.Forms.ListBox
|
||||
Friend WithEvents EvoPKMNames As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents PKMNames As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
End Class
|
||||
120
GBAPokemonGameEditor/JamboHackEvos.resx
Normal file
120
GBAPokemonGameEditor/JamboHackEvos.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
1156
GBAPokemonGameEditor/JamboHackEvos.vb
Normal file
1156
GBAPokemonGameEditor/JamboHackEvos.vb
Normal file
File diff suppressed because it is too large
Load Diff
141
GBAPokemonGameEditor/LZ77.vb
Normal file
141
GBAPokemonGameEditor/LZ77.vb
Normal file
@@ -0,0 +1,141 @@
|
||||
Module LZ77
|
||||
Public LastStructSize As Integer
|
||||
|
||||
Public Function Inc(ByVal variable As Long, Optional ByVal value As Integer = 1)
|
||||
Inc = variable
|
||||
variable = variable + value
|
||||
End Function
|
||||
|
||||
Private Function Dec(ByVal Source As Long)
|
||||
Dec = Source
|
||||
Source = Source - 1
|
||||
End Function
|
||||
|
||||
'Decompress LZ77 data with the below function.
|
||||
Public Function LZ77UnComp(ByVal Source() As Byte, ByVal Dest() As Byte) As Integer
|
||||
On Error Resume Next
|
||||
Dim header As Integer
|
||||
header = (Source(0) Or (Source(1) * CInt(256)) Or (Source(2) * CInt(2 ^ 16)) Or (Source(3) * CInt(2 ^ 24)))
|
||||
Dim i As Integer
|
||||
Dim j As Integer
|
||||
Dim xIn As Integer = 4
|
||||
Dim xOut As Integer = 0
|
||||
Dim length As Integer
|
||||
Dim Offset As Integer
|
||||
Dim windowOffset As Integer
|
||||
Dim xLen As Integer = header \ 256
|
||||
Dim retLen As Integer = xLen
|
||||
Dim d As Byte
|
||||
Dim data As Integer
|
||||
retLen = xLen
|
||||
Do While xLen > 0
|
||||
d = Source(xIn)
|
||||
xIn = xIn + 1
|
||||
For i = 0 To 7
|
||||
If (d And &H80) <> 0 Then
|
||||
data = ((Source(xIn) * (2 ^ 8)) Or Source(xIn + 1))
|
||||
|
||||
xIn = xIn + 2
|
||||
length = (data \ 4096) + 3 '(2 ^ 12)) + 3
|
||||
Offset = (data And &HFFF)
|
||||
windowOffset = xOut - Offset - 1
|
||||
For j = 0 To length - 1
|
||||
dest(xOut) = dest(windowOffset)
|
||||
xOut = xOut + 1
|
||||
windowOffset = windowOffset + 1
|
||||
|
||||
xLen = xLen - 1
|
||||
If xLen = 0 Then
|
||||
LZ77UnComp = retLen
|
||||
Exit Function
|
||||
End If
|
||||
Next j
|
||||
Else
|
||||
dest(xOut) = Source(xIn)
|
||||
xOut = xOut + 1
|
||||
xIn = xIn + 1
|
||||
|
||||
xLen = xLen - 1
|
||||
If xLen = 0 Then
|
||||
LZ77UnComp = retLen
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
d = (d * 2) Mod 256
|
||||
Next i
|
||||
Loop
|
||||
LZ77UnComp = retLen
|
||||
LastStructSize = xIn
|
||||
End Function
|
||||
|
||||
'Compress data to the LZ77 format with the below function.
|
||||
Public Function LZ77Comp(ByVal decmpsize As Integer, ByVal Source() As Byte, ByVal dest() As Byte) As Integer
|
||||
Dim i As Integer
|
||||
Dim j As Integer
|
||||
Dim xIn As Integer
|
||||
Dim xOut As Integer
|
||||
|
||||
Dim length As Integer
|
||||
Dim Offset As Integer
|
||||
Dim tmplen As Integer
|
||||
Dim tmpoff As Integer
|
||||
Dim tmpxin As Integer
|
||||
Dim tmpxout As Integer
|
||||
Dim bufxout As Integer
|
||||
Dim ctrl As Byte
|
||||
Dim xdata(0 To 7, 0 To 1) As Byte
|
||||
On Error GoTo endme
|
||||
dest(0) = &H10 'unknown byte?
|
||||
dest(1) = (decmpsize Mod 256)
|
||||
dest(2) = ((decmpsize \ 256) Mod 256)
|
||||
dest(3) = ((decmpsize \ (2 ^ 16)) Mod 256)
|
||||
|
||||
Do While (decmpsize > tmpxin)
|
||||
ctrl = 0
|
||||
For i = 7 To 0 Step -1
|
||||
If (xIn < &H1000) Then
|
||||
j = xIn
|
||||
Else
|
||||
j = &H1000
|
||||
End If
|
||||
length = 0
|
||||
Offset = 0
|
||||
Do While (j > 1)
|
||||
tmpxin = xIn
|
||||
tmpxout = (xIn - j)
|
||||
Do While Source(Inc(tmpxin)) = Source(Inc(tmpxout))
|
||||
If (tmpxin >= decmpsize) Then Exit Do
|
||||
Loop
|
||||
tmplen = (tmpxin - xIn - 1)
|
||||
tmpoff = (tmpxin - tmpxout - 1)
|
||||
If (tmplen > length) Then
|
||||
length = tmplen
|
||||
Offset = tmpoff
|
||||
End If
|
||||
If (length >= &H12) Then Exit Do
|
||||
Inc(j, -1)
|
||||
Loop
|
||||
If (length >= 3) Then
|
||||
ctrl = ctrl Or (1 * (2 ^ i))
|
||||
If (length >= &H12) Then length = &H12
|
||||
xdata(i, 0) = (((length - 3) * (2 ^ 4)) Or (Offset \ 256))
|
||||
xdata(i, 1) = (Offset Mod 256)
|
||||
Inc(xIn, length)
|
||||
Inc(bufxout, 2)
|
||||
Else
|
||||
xdata(i, 0) = Source(Inc(xIn))
|
||||
Inc(bufxout)
|
||||
End If
|
||||
Next i
|
||||
dest(Inc(xOut) + 4) = ctrl
|
||||
For i = 7 To 0 Step -1
|
||||
dest(Inc(xOut) + 4) = xdata(i, 0)
|
||||
If ((ctrl And &H80) <> 0) Then dest(Inc(xOut) + 4) = xdata(i, 1)
|
||||
ctrl = (ctrl * 2) Mod 256
|
||||
If (decmpsize < tmpxin) Then Exit For
|
||||
Next i
|
||||
Loop
|
||||
endme:
|
||||
LZ77Comp = xOut + 4
|
||||
End Function
|
||||
End Module
|
||||
705
GBAPokemonGameEditor/MainFrm.Designer.vb
generated
Normal file
705
GBAPokemonGameEditor/MainFrm.Designer.vb
generated
Normal file
@@ -0,0 +1,705 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class MainFrm
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AddOrRemoveProgramsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TransparentBackgroundsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DisablePokemonImageLoadingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Jambo51MoveTableHackToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.HelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EditRomsiniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.fileOpenDialog = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Button24 = New System.Windows.Forms.Button()
|
||||
Me.Button25 = New System.Windows.Forms.Button()
|
||||
Me.Button26 = New System.Windows.Forms.Button()
|
||||
Me.Button27 = New System.Windows.Forms.Button()
|
||||
Me.Button28 = New System.Windows.Forms.Button()
|
||||
Me.Button29 = New System.Windows.Forms.Button()
|
||||
Me.Button30 = New System.Windows.Forms.Button()
|
||||
Me.Button31 = New System.Windows.Forms.Button()
|
||||
Me.Button32 = New System.Windows.Forms.Button()
|
||||
Me.Button33 = New System.Windows.Forms.Button()
|
||||
Me.Button34 = New System.Windows.Forms.Button()
|
||||
Me.Button35 = New System.Windows.Forms.Button()
|
||||
Me.Button36 = New System.Windows.Forms.Button()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.Button47 = New System.Windows.Forms.Button()
|
||||
Me.Button48 = New System.Windows.Forms.Button()
|
||||
Me.Button49 = New System.Windows.Forms.Button()
|
||||
Me.Button50 = New System.Windows.Forms.Button()
|
||||
Me.Button51 = New System.Windows.Forms.Button()
|
||||
Me.Button42 = New System.Windows.Forms.Button()
|
||||
Me.Button43 = New System.Windows.Forms.Button()
|
||||
Me.Button44 = New System.Windows.Forms.Button()
|
||||
Me.Button45 = New System.Windows.Forms.Button()
|
||||
Me.Button46 = New System.Windows.Forms.Button()
|
||||
Me.Button37 = New System.Windows.Forms.Button()
|
||||
Me.Button38 = New System.Windows.Forms.Button()
|
||||
Me.Button39 = New System.Windows.Forms.Button()
|
||||
Me.Button40 = New System.Windows.Forms.Button()
|
||||
Me.Button41 = New System.Windows.Forms.Button()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.TabPage3.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.SettingsToolStripMenuItem, Me.HelpToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(457, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'FileToolStripMenuItem
|
||||
'
|
||||
Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OpenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ExitToolStripMenuItem})
|
||||
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
|
||||
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
|
||||
Me.FileToolStripMenuItem.Text = "&File"
|
||||
'
|
||||
'OpenToolStripMenuItem
|
||||
'
|
||||
Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
|
||||
Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
|
||||
Me.OpenToolStripMenuItem.Text = "&Open"
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(100, 6)
|
||||
'
|
||||
'ExitToolStripMenuItem
|
||||
'
|
||||
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
|
||||
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
|
||||
Me.ExitToolStripMenuItem.Text = "E&xit"
|
||||
'
|
||||
'SettingsToolStripMenuItem
|
||||
'
|
||||
Me.SettingsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddOrRemoveProgramsToolStripMenuItem, Me.TransparentBackgroundsToolStripMenuItem, Me.DisablePokemonImageLoadingToolStripMenuItem, Me.Jambo51MoveTableHackToolStripMenuItem, Me.UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem})
|
||||
Me.SettingsToolStripMenuItem.Name = "SettingsToolStripMenuItem"
|
||||
Me.SettingsToolStripMenuItem.Size = New System.Drawing.Size(61, 20)
|
||||
Me.SettingsToolStripMenuItem.Text = "&Settings"
|
||||
'
|
||||
'AddOrRemoveProgramsToolStripMenuItem
|
||||
'
|
||||
Me.AddOrRemoveProgramsToolStripMenuItem.Name = "AddOrRemoveProgramsToolStripMenuItem"
|
||||
Me.AddOrRemoveProgramsToolStripMenuItem.Size = New System.Drawing.Size(654, 22)
|
||||
Me.AddOrRemoveProgramsToolStripMenuItem.Text = "Add or Remove Programs"
|
||||
'
|
||||
'TransparentBackgroundsToolStripMenuItem
|
||||
'
|
||||
Me.TransparentBackgroundsToolStripMenuItem.Name = "TransparentBackgroundsToolStripMenuItem"
|
||||
Me.TransparentBackgroundsToolStripMenuItem.Size = New System.Drawing.Size(654, 22)
|
||||
Me.TransparentBackgroundsToolStripMenuItem.Text = "Transparent backgrounded images"
|
||||
'
|
||||
'DisablePokemonImageLoadingToolStripMenuItem
|
||||
'
|
||||
Me.DisablePokemonImageLoadingToolStripMenuItem.Name = "DisablePokemonImageLoadingToolStripMenuItem"
|
||||
Me.DisablePokemonImageLoadingToolStripMenuItem.Size = New System.Drawing.Size(654, 22)
|
||||
Me.DisablePokemonImageLoadingToolStripMenuItem.Text = "Disable Pokemon Image loading"
|
||||
'
|
||||
'Jambo51MoveTableHackToolStripMenuItem
|
||||
'
|
||||
Me.Jambo51MoveTableHackToolStripMenuItem.Name = "Jambo51MoveTableHackToolStripMenuItem"
|
||||
Me.Jambo51MoveTableHackToolStripMenuItem.Size = New System.Drawing.Size(654, 22)
|
||||
Me.Jambo51MoveTableHackToolStripMenuItem.Text = "Use Jambo51's move table hack (If you don't know what it is don't use it. Your RO" & _
|
||||
"M will break! I warned you...)"
|
||||
'
|
||||
'UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem
|
||||
'
|
||||
Me.UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.Name = "UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem"
|
||||
Me.UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.Size = New System.Drawing.Size(654, 22)
|
||||
Me.UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.Text = "Use Jambo51's TM/HM extension hack. (If you don't know what this is don't use it." & _
|
||||
")"
|
||||
'
|
||||
'HelpToolStripMenuItem
|
||||
'
|
||||
Me.HelpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EditRomsiniToolStripMenuItem, Me.ToolStripMenuItem6, Me.AboutToolStripMenuItem})
|
||||
Me.HelpToolStripMenuItem.Name = "HelpToolStripMenuItem"
|
||||
Me.HelpToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
|
||||
Me.HelpToolStripMenuItem.Text = "&Help"
|
||||
'
|
||||
'EditRomsiniToolStripMenuItem
|
||||
'
|
||||
Me.EditRomsiniToolStripMenuItem.Name = "EditRomsiniToolStripMenuItem"
|
||||
Me.EditRomsiniToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
|
||||
Me.EditRomsiniToolStripMenuItem.Text = "Edit roms.ini"
|
||||
'
|
||||
'ToolStripMenuItem6
|
||||
'
|
||||
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(137, 6)
|
||||
'
|
||||
'AboutToolStripMenuItem
|
||||
'
|
||||
Me.AboutToolStripMenuItem.Enabled = False
|
||||
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
|
||||
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
|
||||
Me.AboutToolStripMenuItem.Text = "About"
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.Label2)
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(12, 27)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(253, 63)
|
||||
Me.GroupBox4.TabIndex = 10
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Game Loaded"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(6, 25)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(241, 27)
|
||||
Me.Label2.TabIndex = 0
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Location = New System.Drawing.Point(271, 32)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(166, 52)
|
||||
Me.Button4.TabIndex = 1
|
||||
Me.Button4.Text = "Load ROM"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'fileOpenDialog
|
||||
'
|
||||
Me.fileOpenDialog.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.Enabled = False
|
||||
Me.Button5.Location = New System.Drawing.Point(2, 6)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button5.TabIndex = 14
|
||||
Me.Button5.Text = "Move Tutor Editor"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Enabled = False
|
||||
Me.Button6.Location = New System.Drawing.Point(90, 6)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button6.TabIndex = 15
|
||||
Me.Button6.Text = "Pokedex Order Editor"
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.Enabled = False
|
||||
Me.Button7.Location = New System.Drawing.Point(177, 6)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button7.TabIndex = 16
|
||||
Me.Button7.Text = "Pokemon Editor"
|
||||
Me.Button7.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button24
|
||||
'
|
||||
Me.Button24.Enabled = False
|
||||
Me.Button24.Location = New System.Drawing.Point(2, 68)
|
||||
Me.Button24.Name = "Button24"
|
||||
Me.Button24.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button24.TabIndex = 34
|
||||
Me.Button24.Text = "RSE Starter Editor"
|
||||
Me.Button24.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage
|
||||
Me.Button24.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button25
|
||||
'
|
||||
Me.Button25.Enabled = False
|
||||
Me.Button25.Location = New System.Drawing.Point(264, 6)
|
||||
Me.Button25.Name = "Button25"
|
||||
Me.Button25.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button25.TabIndex = 35
|
||||
Me.Button25.Text = "Attack Editor"
|
||||
Me.Button25.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button26
|
||||
'
|
||||
Me.Button26.Enabled = False
|
||||
Me.Button26.Location = New System.Drawing.Point(351, 6)
|
||||
Me.Button26.Name = "Button26"
|
||||
Me.Button26.Size = New System.Drawing.Size(79, 55)
|
||||
Me.Button26.TabIndex = 36
|
||||
Me.Button26.Text = "Ability Editor"
|
||||
Me.Button26.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button27
|
||||
'
|
||||
Me.Button27.Enabled = False
|
||||
Me.Button27.Location = New System.Drawing.Point(3, 7)
|
||||
Me.Button27.Name = "Button27"
|
||||
Me.Button27.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button27.TabIndex = 37
|
||||
Me.Button27.Text = "Add Program"
|
||||
Me.Button27.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button28
|
||||
'
|
||||
Me.Button28.Enabled = False
|
||||
Me.Button28.Location = New System.Drawing.Point(90, 7)
|
||||
Me.Button28.Name = "Button28"
|
||||
Me.Button28.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button28.TabIndex = 38
|
||||
Me.Button28.Text = "Add Program"
|
||||
Me.Button28.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button29
|
||||
'
|
||||
Me.Button29.Enabled = False
|
||||
Me.Button29.Location = New System.Drawing.Point(177, 7)
|
||||
Me.Button29.Name = "Button29"
|
||||
Me.Button29.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button29.TabIndex = 39
|
||||
Me.Button29.Text = "Add Program"
|
||||
Me.Button29.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button30
|
||||
'
|
||||
Me.Button30.Enabled = False
|
||||
Me.Button30.Location = New System.Drawing.Point(264, 7)
|
||||
Me.Button30.Name = "Button30"
|
||||
Me.Button30.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button30.TabIndex = 40
|
||||
Me.Button30.Text = "Add Program"
|
||||
Me.Button30.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button31
|
||||
'
|
||||
Me.Button31.Enabled = False
|
||||
Me.Button31.Location = New System.Drawing.Point(351, 7)
|
||||
Me.Button31.Name = "Button31"
|
||||
Me.Button31.Size = New System.Drawing.Size(79, 55)
|
||||
Me.Button31.TabIndex = 41
|
||||
Me.Button31.Text = "Add Program"
|
||||
Me.Button31.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button32
|
||||
'
|
||||
Me.Button32.Enabled = False
|
||||
Me.Button32.Location = New System.Drawing.Point(90, 68)
|
||||
Me.Button32.Name = "Button32"
|
||||
Me.Button32.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button32.TabIndex = 42
|
||||
Me.Button32.Text = "Pokedex Data Editor"
|
||||
Me.Button32.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button33
|
||||
'
|
||||
Me.Button33.Enabled = False
|
||||
Me.Button33.Location = New System.Drawing.Point(177, 68)
|
||||
Me.Button33.Name = "Button33"
|
||||
Me.Button33.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button33.TabIndex = 43
|
||||
Me.Button33.Text = "Battle Frontier Editor (Emerald)"
|
||||
Me.Button33.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button34
|
||||
'
|
||||
Me.Button34.Enabled = False
|
||||
Me.Button34.Location = New System.Drawing.Point(264, 68)
|
||||
Me.Button34.Name = "Button34"
|
||||
Me.Button34.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button34.TabIndex = 44
|
||||
Me.Button34.Text = "Button34"
|
||||
Me.Button34.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button35
|
||||
'
|
||||
Me.Button35.Enabled = False
|
||||
Me.Button35.Location = New System.Drawing.Point(351, 68)
|
||||
Me.Button35.Name = "Button35"
|
||||
Me.Button35.Size = New System.Drawing.Size(79, 55)
|
||||
Me.Button35.TabIndex = 45
|
||||
Me.Button35.Text = "Button35"
|
||||
Me.Button35.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button36
|
||||
'
|
||||
Me.Button36.Enabled = False
|
||||
Me.Button36.Location = New System.Drawing.Point(2, 129)
|
||||
Me.Button36.Name = "Button36"
|
||||
Me.Button36.Size = New System.Drawing.Size(80, 55)
|
||||
Me.Button36.TabIndex = 46
|
||||
Me.Button36.Text = "Button36"
|
||||
Me.Button36.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(6, 96)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(444, 279)
|
||||
Me.TabControl1.TabIndex = 47
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.Button6)
|
||||
Me.TabPage2.Controls.Add(Me.Button36)
|
||||
Me.TabPage2.Controls.Add(Me.Button5)
|
||||
Me.TabPage2.Controls.Add(Me.Button35)
|
||||
Me.TabPage2.Controls.Add(Me.Button7)
|
||||
Me.TabPage2.Controls.Add(Me.Button34)
|
||||
Me.TabPage2.Controls.Add(Me.Button24)
|
||||
Me.TabPage2.Controls.Add(Me.Button33)
|
||||
Me.TabPage2.Controls.Add(Me.Button25)
|
||||
Me.TabPage2.Controls.Add(Me.Button32)
|
||||
Me.TabPage2.Controls.Add(Me.Button26)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(436, 253)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Internal Programs"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.Controls.Add(Me.Button47)
|
||||
Me.TabPage3.Controls.Add(Me.Button48)
|
||||
Me.TabPage3.Controls.Add(Me.Button49)
|
||||
Me.TabPage3.Controls.Add(Me.Button50)
|
||||
Me.TabPage3.Controls.Add(Me.Button51)
|
||||
Me.TabPage3.Controls.Add(Me.Button42)
|
||||
Me.TabPage3.Controls.Add(Me.Button43)
|
||||
Me.TabPage3.Controls.Add(Me.Button44)
|
||||
Me.TabPage3.Controls.Add(Me.Button45)
|
||||
Me.TabPage3.Controls.Add(Me.Button46)
|
||||
Me.TabPage3.Controls.Add(Me.Button37)
|
||||
Me.TabPage3.Controls.Add(Me.Button38)
|
||||
Me.TabPage3.Controls.Add(Me.Button39)
|
||||
Me.TabPage3.Controls.Add(Me.Button40)
|
||||
Me.TabPage3.Controls.Add(Me.Button41)
|
||||
Me.TabPage3.Controls.Add(Me.Button27)
|
||||
Me.TabPage3.Controls.Add(Me.Button28)
|
||||
Me.TabPage3.Controls.Add(Me.Button29)
|
||||
Me.TabPage3.Controls.Add(Me.Button30)
|
||||
Me.TabPage3.Controls.Add(Me.Button31)
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Size = New System.Drawing.Size(436, 253)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "External Programs"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button47
|
||||
'
|
||||
Me.Button47.Enabled = False
|
||||
Me.Button47.Location = New System.Drawing.Point(3, 190)
|
||||
Me.Button47.Name = "Button47"
|
||||
Me.Button47.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button47.TabIndex = 52
|
||||
Me.Button47.Text = "Add Program"
|
||||
Me.Button47.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button48
|
||||
'
|
||||
Me.Button48.Enabled = False
|
||||
Me.Button48.Location = New System.Drawing.Point(90, 190)
|
||||
Me.Button48.Name = "Button48"
|
||||
Me.Button48.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button48.TabIndex = 53
|
||||
Me.Button48.Text = "Add Program"
|
||||
Me.Button48.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button49
|
||||
'
|
||||
Me.Button49.Enabled = False
|
||||
Me.Button49.Location = New System.Drawing.Point(177, 190)
|
||||
Me.Button49.Name = "Button49"
|
||||
Me.Button49.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button49.TabIndex = 54
|
||||
Me.Button49.Text = "Add Program"
|
||||
Me.Button49.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button50
|
||||
'
|
||||
Me.Button50.Enabled = False
|
||||
Me.Button50.Location = New System.Drawing.Point(264, 190)
|
||||
Me.Button50.Name = "Button50"
|
||||
Me.Button50.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button50.TabIndex = 55
|
||||
Me.Button50.Text = "Add Program"
|
||||
Me.Button50.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button51
|
||||
'
|
||||
Me.Button51.Enabled = False
|
||||
Me.Button51.Location = New System.Drawing.Point(351, 190)
|
||||
Me.Button51.Name = "Button51"
|
||||
Me.Button51.Size = New System.Drawing.Size(79, 55)
|
||||
Me.Button51.TabIndex = 56
|
||||
Me.Button51.Text = "Add Program"
|
||||
Me.Button51.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button42
|
||||
'
|
||||
Me.Button42.Enabled = False
|
||||
Me.Button42.Location = New System.Drawing.Point(3, 129)
|
||||
Me.Button42.Name = "Button42"
|
||||
Me.Button42.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button42.TabIndex = 47
|
||||
Me.Button42.Text = "Add Program"
|
||||
Me.Button42.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button43
|
||||
'
|
||||
Me.Button43.Enabled = False
|
||||
Me.Button43.Location = New System.Drawing.Point(90, 129)
|
||||
Me.Button43.Name = "Button43"
|
||||
Me.Button43.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button43.TabIndex = 48
|
||||
Me.Button43.Text = "Add Program"
|
||||
Me.Button43.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button44
|
||||
'
|
||||
Me.Button44.Enabled = False
|
||||
Me.Button44.Location = New System.Drawing.Point(177, 129)
|
||||
Me.Button44.Name = "Button44"
|
||||
Me.Button44.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button44.TabIndex = 49
|
||||
Me.Button44.Text = "Add Program"
|
||||
Me.Button44.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button45
|
||||
'
|
||||
Me.Button45.Enabled = False
|
||||
Me.Button45.Location = New System.Drawing.Point(264, 129)
|
||||
Me.Button45.Name = "Button45"
|
||||
Me.Button45.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button45.TabIndex = 50
|
||||
Me.Button45.Text = "Add Program"
|
||||
Me.Button45.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button46
|
||||
'
|
||||
Me.Button46.Enabled = False
|
||||
Me.Button46.Location = New System.Drawing.Point(351, 129)
|
||||
Me.Button46.Name = "Button46"
|
||||
Me.Button46.Size = New System.Drawing.Size(79, 55)
|
||||
Me.Button46.TabIndex = 51
|
||||
Me.Button46.Text = "Add Program"
|
||||
Me.Button46.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button37
|
||||
'
|
||||
Me.Button37.Enabled = False
|
||||
Me.Button37.Location = New System.Drawing.Point(3, 68)
|
||||
Me.Button37.Name = "Button37"
|
||||
Me.Button37.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button37.TabIndex = 42
|
||||
Me.Button37.Text = "Add Program"
|
||||
Me.Button37.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button38
|
||||
'
|
||||
Me.Button38.Enabled = False
|
||||
Me.Button38.Location = New System.Drawing.Point(90, 68)
|
||||
Me.Button38.Name = "Button38"
|
||||
Me.Button38.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button38.TabIndex = 43
|
||||
Me.Button38.Text = "Add Program"
|
||||
Me.Button38.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button39
|
||||
'
|
||||
Me.Button39.Enabled = False
|
||||
Me.Button39.Location = New System.Drawing.Point(177, 68)
|
||||
Me.Button39.Name = "Button39"
|
||||
Me.Button39.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button39.TabIndex = 44
|
||||
Me.Button39.Text = "Add Program"
|
||||
Me.Button39.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button40
|
||||
'
|
||||
Me.Button40.Enabled = False
|
||||
Me.Button40.Location = New System.Drawing.Point(264, 68)
|
||||
Me.Button40.Name = "Button40"
|
||||
Me.Button40.Size = New System.Drawing.Size(81, 55)
|
||||
Me.Button40.TabIndex = 45
|
||||
Me.Button40.Text = "Add Program"
|
||||
Me.Button40.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button41
|
||||
'
|
||||
Me.Button41.Enabled = False
|
||||
Me.Button41.Location = New System.Drawing.Point(351, 68)
|
||||
Me.Button41.Name = "Button41"
|
||||
Me.Button41.Size = New System.Drawing.Size(79, 55)
|
||||
Me.Button41.TabIndex = 46
|
||||
Me.Button41.Text = "Add Program"
|
||||
Me.Button41.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(436, 253)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Patchers and Expanders"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 381)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(433, 37)
|
||||
Me.GroupBox1.TabIndex = 48
|
||||
Me.GroupBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(155, 16)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(148, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Copyright © 2014 Gamer2020"
|
||||
'
|
||||
'MainFrm
|
||||
'
|
||||
Me.AllowDrop = True
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(457, 422)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.Controls.Add(Me.Button4)
|
||||
Me.Controls.Add(Me.GroupBox4)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "MainFrm"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "GBA Pokémon Game Editor"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage3.ResumeLayout(False)
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents HelpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents fileOpenDialog As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button7 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button24 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button25 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button26 As System.Windows.Forms.Button
|
||||
Friend WithEvents SettingsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents TransparentBackgroundsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Jambo51MoveTableHackToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents DisablePokemonImageLoadingToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Button27 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button28 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button29 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button30 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button31 As System.Windows.Forms.Button
|
||||
Friend WithEvents AddOrRemoveProgramsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Button32 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button33 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button34 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button35 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button36 As System.Windows.Forms.Button
|
||||
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents EditRomsiniToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents Button47 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button48 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button49 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button50 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button51 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button42 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button43 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button44 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button45 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button46 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button37 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button38 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button39 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button40 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button41 As System.Windows.Forms.Button
|
||||
|
||||
End Class
|
||||
144
GBAPokemonGameEditor/MainFrm.resx
Normal file
144
GBAPokemonGameEditor/MainFrm.resx
Normal file
@@ -0,0 +1,144 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<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="fileOpenDialog.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="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAQAAEABADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAA
|
||||
AAClxXMAc4z3AEpjzgA6UrUAADprAMXOewB7hFIAOkIhAO+MxQCtUpQAAAAAAAAAAAAAAAAASkpKAP//
|
||||
/wAAAAAAqqqqqqqqqqqqqqqqqqqqqqqqqqr/qqqqqqqq/6qqqqqqqqqvM/qqqqqqrzP6qqqqqqqqpDM0
|
||||
qqqqqkMzSqqqqqqqqqRTNEqqqqRDNUqqqqqqqqqkUzNKqqqkMzVKqqqqqqqqpFUzRKqqRDNVSqqqqqqq
|
||||
qqpFNDSkSkNDVKpEqqqqqq//QiQ0QzRDQiSqQ0qqqqr2Zv9DNDMzQzQkqkNKqqqvZVV28j/d3fMjSqdi
|
||||
R6qqp1FRVXH/RET/E0p2ckV6qqdREVVx9EiETxSkNnJFeqqnVRV3qkNI5DSqQ0V0p3qqqnUVeqQyJEIj
|
||||
R0NFeqqqqqp2FmdCIREREiRiR6qqqqqqp3JmcRFP9BEXckqqqqqqqqqndnQfZmbxQzRKqqqqqqqqqqd3
|
||||
RmmGZKREqqqqqqqqqqqqpD/5j/NKqqqqqqqqqqqqqqT++Y/vSqqqqqqqqqqqqkRD9VmFXzREqqqqqqqq
|
||||
qqQzQiVZhVIkM0qqqqqqqqpDVUIlWZVSJFU0qqqqqqqqQRJCIlVVIiQhFKqqqqqqqqRERCIlUiJEREqq
|
||||
qqqqqqqqqqQiEREiSqqqqqqqqqqqqqqqQhERJKqqqqqqqqqqqqqqqqQxE0qqqqqqqqqqqqqqqqqqpEqq
|
||||
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqr//////z/8//4f+H/+D/B//gfgf/4H
|
||||
4H/+A8B//wJAz/gAAMfwAADH4AABg+AAAQHgAAIB4DAMCfBgAB/wAAA/+AAAf/4AAH//gAj//+AH///g
|
||||
B///AAD//gAAf/wAAD/8AAA//gAAf//gB///8A////gf///+f////////////w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
756
GBAPokemonGameEditor/MainFrm.vb
Normal file
756
GBAPokemonGameEditor/MainFrm.vb
Normal file
@@ -0,0 +1,756 @@
|
||||
Option Strict Off
|
||||
Option Explicit On
|
||||
Imports System.IO
|
||||
Imports System.Windows.Forms.Application
|
||||
Imports System.Net
|
||||
|
||||
|
||||
Public Class MainFrm
|
||||
|
||||
Private Sub MainFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
On Error Resume Next
|
||||
|
||||
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0") = "0" Then
|
||||
|
||||
TransparentBackgroundsToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "MoveTableHack", "0") = "1" Then
|
||||
|
||||
Jambo51MoveTableHackToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "jamboTMextensionHack", "0") = "1" Then
|
||||
|
||||
UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "DisablePKMImages", "0") = "1" Then
|
||||
|
||||
DisablePokemonImageLoadingToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath0", "") <> "" Then
|
||||
|
||||
Button27.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName0", "")
|
||||
Button27.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath1", "") <> "" Then
|
||||
|
||||
Button28.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName1", "")
|
||||
Button28.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath2", "") <> "" Then
|
||||
|
||||
Button29.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName2", "")
|
||||
Button29.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath3", "") <> "" Then
|
||||
|
||||
Button30.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName3", "")
|
||||
Button30.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath4", "") <> "" Then
|
||||
|
||||
Button31.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName4", "")
|
||||
Button31.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath5", "") <> "" Then
|
||||
|
||||
Button37.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName5", "")
|
||||
Button37.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath6", "") <> "" Then
|
||||
|
||||
Button38.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName6", "")
|
||||
Button38.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath7", "") <> "" Then
|
||||
|
||||
Button39.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName7", "")
|
||||
Button39.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath8", "") <> "" Then
|
||||
|
||||
Button40.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName8", "")
|
||||
Button40.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath9", "") <> "" Then
|
||||
|
||||
Button41.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName9", "")
|
||||
Button41.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath10", "") <> "" Then
|
||||
|
||||
Button42.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName10", "")
|
||||
Button42.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath11", "") <> "" Then
|
||||
|
||||
Button43.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName11", "")
|
||||
Button43.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath12", "") <> "" Then
|
||||
|
||||
Button44.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName12", "")
|
||||
Button44.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath13", "") <> "" Then
|
||||
|
||||
Button45.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName13", "")
|
||||
Button45.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath14", "") <> "" Then
|
||||
|
||||
Button46.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName14", "")
|
||||
Button46.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath15", "") <> "" Then
|
||||
|
||||
Button47.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName15", "")
|
||||
Button47.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath16", "") <> "" Then
|
||||
|
||||
Button48.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName16", "")
|
||||
Button48.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath17", "") <> "" Then
|
||||
|
||||
Button49.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName17", "")
|
||||
Button49.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath18", "") <> "" Then
|
||||
|
||||
Button50.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName18", "")
|
||||
Button50.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath19", "") <> "" Then
|
||||
|
||||
Button51.Text = GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramName19", "")
|
||||
Button51.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
If (My.Application.CommandLineArgs.Count > 0) Then
|
||||
|
||||
|
||||
' MessageBox.Show(My.Application.CommandLineArgs(0))
|
||||
|
||||
If IO.Path.GetExtension(My.Application.CommandLineArgs(0)) = ".gba" Or IO.Path.GetExtension(My.Application.CommandLineArgs(0)) = ".GBA" Then
|
||||
|
||||
LoadedROM = My.Application.CommandLineArgs(0)
|
||||
|
||||
HandleOpenedROM()
|
||||
Else
|
||||
|
||||
MessageBox.Show("File must end with a .gba extension.")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MainFrm_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
Dim MyFiles() As String
|
||||
|
||||
|
||||
' Assign the files to an array.
|
||||
MyFiles = e.Data.GetData(DataFormats.FileDrop)
|
||||
|
||||
If MyFiles.Length > 1 Then
|
||||
MessageBox.Show("One file only please...")
|
||||
End If
|
||||
|
||||
'MessageBox.Show(MyFiles.Length)
|
||||
|
||||
' MessageBox.Show(IO.Path.GetExtension(MyFiles(0)))
|
||||
|
||||
If IO.Path.GetExtension(MyFiles(0)) = ".gba" Or IO.Path.GetExtension(MyFiles(0)) = ".GBA" Then
|
||||
|
||||
LoadedROM = MyFiles(0)
|
||||
|
||||
HandleOpenedROM()
|
||||
Else
|
||||
|
||||
MessageBox.Show("File must end with a .gba extension.")
|
||||
|
||||
End If
|
||||
|
||||
' Loop through the array and add the files to the list.
|
||||
'For i = 0 To MyFiles.Length - 1
|
||||
'ListBox1.Items.Add(MyFiles(i))
|
||||
'Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MainFrm_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.All
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
|
||||
fileOpenDialog.FileName = ""
|
||||
fileOpenDialog.CheckFileExists = True
|
||||
|
||||
' Check to ensure that the selected path exists. Dialog box displays
|
||||
' a warning otherwise.
|
||||
fileOpenDialog.CheckPathExists = True
|
||||
|
||||
' Get or set default extension. Doesn't include the leading ".".
|
||||
fileOpenDialog.DefaultExt = "GBA"
|
||||
|
||||
' Return the file referenced by a link? If False, simply returns the selected link
|
||||
' file. If True, returns the file linked to the LNK file.
|
||||
fileOpenDialog.DereferenceLinks = True
|
||||
|
||||
' Just as in VB6, use a set of pairs of filters, separated with "|". Each
|
||||
' pair consists of a description|file spec. Use a "|" between pairs. No need to put a
|
||||
' trailing "|". You can set the FilterIndex property as well, to select the default
|
||||
' filter. The first filter is numbered 1 (not 0). The default is 1.
|
||||
fileOpenDialog.Filter = _
|
||||
"(*.gba)|*.gba*"
|
||||
|
||||
fileOpenDialog.Multiselect = False
|
||||
|
||||
' Restore the original directory when done selecting
|
||||
' a file? If False, the current directory changes
|
||||
' to the directory in which you selected the file.
|
||||
' Set this to True to put the current folder back
|
||||
' where it was when you started.
|
||||
' The default is False.
|
||||
'.RestoreDirectory = False
|
||||
|
||||
' Show the Help button and Read-Only checkbox?
|
||||
fileOpenDialog.ShowHelp = False
|
||||
fileOpenDialog.ShowReadOnly = False
|
||||
|
||||
' Start out with the read-only check box checked?
|
||||
' This only make sense if ShowReadOnly is True.
|
||||
fileOpenDialog.ReadOnlyChecked = False
|
||||
|
||||
fileOpenDialog.Title = "Select ROM to open:"
|
||||
|
||||
' Only accept valid Win32 file names?
|
||||
fileOpenDialog.ValidateNames = True
|
||||
|
||||
|
||||
If fileOpenDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
|
||||
LoadedROM = fileOpenDialog.FileName
|
||||
|
||||
HandleOpenedROM()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub HandleOpenedROM()
|
||||
FileNum = FreeFile()
|
||||
|
||||
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
||||
'Opens the ROM as binary
|
||||
FileGet(FileNum, header, &HAD, True)
|
||||
header2 = Mid(header, 1, 3)
|
||||
header3 = Mid(header, 4, 1)
|
||||
FileClose(FileNum)
|
||||
|
||||
If header2 = "BPR" Or header2 = "BPG" Or header2 = "BPE" Or header2 = "AXP" Or header2 = "AXV" Then
|
||||
If header3 = "J" Then
|
||||
Label2.Text = ""
|
||||
LoadedROM = ""
|
||||
Button5.Enabled = False
|
||||
Button6.Enabled = False
|
||||
Button7.Enabled = False
|
||||
Button25.Enabled = False
|
||||
Button26.Enabled = False
|
||||
Button32.Enabled = False
|
||||
Button33.Enabled = False
|
||||
MessageBox.Show("I haven't added Jap support out of pure lazziness. I will though if it get's highly Demanded.")
|
||||
Else
|
||||
|
||||
Label2.Text = header & " - " & GetString(AppPath & "ini\roms.ini", header, "ROMName", "")
|
||||
|
||||
Button5.Enabled = True
|
||||
Button6.Enabled = True
|
||||
Button7.Enabled = True
|
||||
Button25.Enabled = True
|
||||
Button26.Enabled = True
|
||||
Button24.Enabled = True
|
||||
Button32.Enabled = True
|
||||
Button33.Enabled = True
|
||||
End If
|
||||
Else
|
||||
Label2.Text = ""
|
||||
LoadedROM = ""
|
||||
Button5.Enabled = False
|
||||
Button6.Enabled = False
|
||||
Button7.Enabled = False
|
||||
Button25.Enabled = False
|
||||
Button26.Enabled = False
|
||||
Button24.Enabled = False
|
||||
Button32.Enabled = False
|
||||
Button33.Enabled = False
|
||||
MessageBox.Show("Not one of the Pokemon games...")
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
||||
OpenToolStripMenuItem.PerformClick()
|
||||
End Sub
|
||||
|
||||
Private Sub UpdateRomsiniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
Dim result1 As DialogResult = MessageBox.Show("Download and replace your current roms.ini?", "Update?", MessageBoxButtons.YesNo)
|
||||
|
||||
If result1 = DialogResult.Yes Then
|
||||
Dim wc As New WebClient
|
||||
wc.DownloadFile("http://gamer2020.0xrh.net/programs/GBAPokemonGameEditor/ini.zip", "ini.zip")
|
||||
|
||||
'ExtractArchive(AppPath & "ini.zip", AppPath)
|
||||
|
||||
System.IO.File.Delete(AppPath & "ini.zip")
|
||||
|
||||
MessageBox.Show("roms.ini updated!")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
|
||||
End
|
||||
End Sub
|
||||
|
||||
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
|
||||
'AboutBox1.ShowDialog()
|
||||
If System.IO.File.Exists(AppPath & "license.rtf") = True Then
|
||||
Process.Start(AppPath & "license.rtf")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
||||
'Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
movetutor2.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
|
||||
'Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
PokedexOrderEditor.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
|
||||
' Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Pokemonedit.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub TransparentBackgroundsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransparentBackgroundsToolStripMenuItem.Click
|
||||
If TransparentBackgroundsToolStripMenuItem.CheckState = CheckState.Checked Then
|
||||
|
||||
TransparentBackgroundsToolStripMenuItem.CheckState = CheckState.Unchecked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "1")
|
||||
|
||||
ElseIf TransparentBackgroundsToolStripMenuItem.CheckState = CheckState.Unchecked Then
|
||||
|
||||
TransparentBackgroundsToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "TransparentImages", "0")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
'Me.Visible = False
|
||||
AttackEditor.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
Private Sub Jambo51MoveTableHackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jambo51MoveTableHackToolStripMenuItem.Click
|
||||
If Jambo51MoveTableHackToolStripMenuItem.CheckState = CheckState.Checked Then
|
||||
|
||||
Jambo51MoveTableHackToolStripMenuItem.CheckState = CheckState.Unchecked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "MoveTableHack", "0")
|
||||
|
||||
ElseIf Jambo51MoveTableHackToolStripMenuItem.CheckState = CheckState.Unchecked Then
|
||||
|
||||
Jambo51MoveTableHackToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "MoveTableHack", "1")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
|
||||
'Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
AbilityEdit.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
Private Sub DisablePokemonImageLoadingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisablePokemonImageLoadingToolStripMenuItem.Click
|
||||
If DisablePokemonImageLoadingToolStripMenuItem.CheckState = CheckState.Checked Then
|
||||
|
||||
DisablePokemonImageLoadingToolStripMenuItem.CheckState = CheckState.Unchecked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "DisablePKMImages", "0")
|
||||
|
||||
ElseIf DisablePokemonImageLoadingToolStripMenuItem.CheckState = CheckState.Unchecked Then
|
||||
|
||||
DisablePokemonImageLoadingToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "DisablePKMImages", "1")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.Click
|
||||
If UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.CheckState = CheckState.Checked Then
|
||||
|
||||
UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.CheckState = CheckState.Unchecked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "jamboTMextensionHack", "0")
|
||||
|
||||
ElseIf UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.CheckState = CheckState.Unchecked Then
|
||||
|
||||
UseJambo51sTMHMExtensionHackIfYouDontKnowWhatThisIsDontUseItToolStripMenuItem.CheckState = CheckState.Checked
|
||||
|
||||
WriteString(AppPath & "GBAPGESettings.ini", "Settings", "jamboTMextensionHack", "1")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub AddOrRemoveProgramsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddOrRemoveProgramsToolStripMenuItem.Click
|
||||
AddOrRemovePrograms.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath0", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath0", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath1", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath1", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath2", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath2", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath3", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath3", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath4", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath4", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
|
||||
'Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
RSEStarterEditor.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
|
||||
'Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
' ShadowPass.Show()
|
||||
MsgBox("Not added yet!")
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
|
||||
'Me.Visible = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
BattleFrontierEditor.Show()
|
||||
Me.Cursor = Cursors.Arrow
|
||||
End Sub
|
||||
|
||||
Private Sub EditRomsiniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditRomsiniToolStripMenuItem.Click
|
||||
Process.Start(AppPath & "ini\roms.ini")
|
||||
End Sub
|
||||
|
||||
Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath5", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath5", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath6", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath6", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath7", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath7", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath8", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath8", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath9", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath9", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath10", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath10", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath11", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath11", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath12", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath12", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath13", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath13", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath14", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath14", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath15", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath15", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath16", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath16", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button49_Click(sender As Object, e As EventArgs) Handles Button49.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath17", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath17", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath18", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath18", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button51_Click(sender As Object, e As EventArgs) Handles Button51.Click
|
||||
If LoadedROM = "" Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath19", "") & """", vbNormalFocus)
|
||||
Else
|
||||
|
||||
|
||||
If System.IO.File.Exists(LoadedROM) = True Then
|
||||
Shell("""" & GetString(AppPath & "GBAPGESettings.ini", "Settings", "ProgramPath19", "") & """" & " " & """" & LoadedROM & """", vbNormalFocus)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
38
GBAPokemonGameEditor/My Project/Application.Designer.vb
generated
Normal file
38
GBAPokemonGameEditor/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.18408
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.GBAPokemonGameEditor.MainFrm
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
GBAPokemonGameEditor/My Project/Application.myapp
Normal file
10
GBAPokemonGameEditor/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-16"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>MainFrm</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
GBAPokemonGameEditor/My Project/AssemblyInfo.vb
Normal file
35
GBAPokemonGameEditor/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("GBAPokemonGameEditor")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("0xRH")>
|
||||
<Assembly: AssemblyProduct("GBAPokemonGameEditor")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 0xRH 2013")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("37ac1def-95e9-42a7-9fb3-8eb293460f73")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.3.0.1")>
|
||||
<Assembly: AssemblyFileVersion("1.3.0.1")>
|
||||
63
GBAPokemonGameEditor/My Project/Resources.Designer.vb
generated
Normal file
63
GBAPokemonGameEditor/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.18408
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
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.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("GBAPokemonGameEditor.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
117
GBAPokemonGameEditor/My Project/Resources.resx
Normal file
117
GBAPokemonGameEditor/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
73
GBAPokemonGameEditor/My Project/Settings.Designer.vb
generated
Normal file
73
GBAPokemonGameEditor/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.18408
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.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"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.GBAPokemonGameEditor.My.MySettings
|
||||
Get
|
||||
Return Global.GBAPokemonGameEditor.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
GBAPokemonGameEditor/My Project/Settings.settings
Normal file
7
GBAPokemonGameEditor/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
47
GBAPokemonGameEditor/My Project/app.manifest
Normal file
47
GBAPokemonGameEditor/My Project/app.manifest
Normal file
@@ -0,0 +1,47 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC Manifest Options
|
||||
If you want to change the Windows User Account Control level replace the
|
||||
requestedExecutionLevel node with one of the following.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
Specifying requestedExecutionLevel node will disable file and registry virtualization.
|
||||
If you want to utilize File and Registry Virtualization for backward
|
||||
compatibility then delete the requestedExecutionLevel node.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
<applicationRequestMinimum>
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
<PermissionSet ID="Custom" SameSite="site" Unrestricted="true" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- A list of all Windows versions that this application is designed to work with. Windows will automatically select the most compatible environment.-->
|
||||
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
</application>
|
||||
</compatibility>
|
||||
<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
</asmv1:assembly>
|
||||
11
GBAPokemonGameEditor/PointerOffsetFunctions.vb
Normal file
11
GBAPokemonGameEditor/PointerOffsetFunctions.vb
Normal file
@@ -0,0 +1,11 @@
|
||||
Module PointerOffsetFunctions
|
||||
|
||||
'Don't even know if these work. Was going to write pointer functions but never did. - Gamer2020
|
||||
Public Function Pointer2Offset(ByVal Pointer As String)
|
||||
Pointer2Offset = (ReverseHEX((Pointer)) - &H8000000)
|
||||
End Function
|
||||
|
||||
Public Function Offset2Pointer(ByVal Offset As Long)
|
||||
Offset2Pointer = ReverseHEX(Offset) + &H8000000
|
||||
End Function
|
||||
End Module
|
||||
131
GBAPokemonGameEditor/PokedexOrderEditor.Designer.vb
generated
Normal file
131
GBAPokemonGameEditor/PokedexOrderEditor.Designer.vb
generated
Normal file
File diff suppressed because one or more lines are too long
230
GBAPokemonGameEditor/PokedexOrderEditor.resx
Normal file
230
GBAPokemonGameEditor/PokedexOrderEditor.resx
Normal file
@@ -0,0 +1,230 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAMyYAAAEAGACAGAAAFgAAACgAAAAzAAAATAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABaYmJaYmJaYmIAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAABaYmKcrGqcrGqcrGpaYmIAAAAAAAAAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABaYmJaYmJaYmL/xaRaYmJaYmIA
|
||||
AAAAAAAAAAAAAAAAAAD/AAD/AAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAABaYmJaYmJaYmJaYmJBpL1BpL3/xaRaYmK9vb1aYmIAAAAAAAAAAAD/AAD/AAD/AAD/AAD/
|
||||
AAD/AAD/AAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABaYmKcrGpaYmJBpL0p9vYp9vYp
|
||||
9vZBpL1aYmK9vb1aYmIAAAAAAAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQFBQUEp9vYp9vZBQUFBQUFBQUFaYmK9vb1BYtVBYtUBAQEBAQEBAQEA
|
||||
AAD/AAD/AAD/AAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQFBQUFBQUEp9vYp
|
||||
9vZBQUH/xaT/xaScrGpBQUH///9BYtVBYtVBQUEBAQEBAQEAAAAAAAD/AAD/AAAAAAAAAAAAAAD/AAD/
|
||||
AAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQFBQUH/xaRBQUFBQUFBQUFBQUH/xaT/xaT/xaScrGr///9BYtVB
|
||||
YtVBQUEBAQEBAQEBAQEAAAAAAAD/AAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQE5
|
||||
Qag5Qag5Qag5Qag5Qag5QagxMUkxMUkxMUk5Qag5Qag5Qag5Qag5Qag5Qag5Qag5Qag5Qag5Qag5QahB
|
||||
QUFBQUGcrGqcrGqcrGqcrGpBQUFBQUH/xaT/xaT///9BYtVBYtVBQUEBAQEBAQEBAQEBAQEBAQEAAAAA
|
||||
AAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQE5Qag5Qag5Qag5Qag5Qag5QagxMUkxMUkx
|
||||
MUk5Qag5Qag5Qag5Qag5Qag5Qag5Qag5Qag5Qag5QahBQUGcrGqcrGr/xaRBQUFBYtWcrGqcrGqcrGpB
|
||||
QUH///8plPYplPZBYtVBQUFBQUEBAQEBAQEBAQEBAQEAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAA
|
||||
AAABAQEBAQEBAQE5Qag5Qag5Qag5Qag5Qag5QagxMUkxMUkxMUk5Qag5Qag5Qag5Qag5Qag5Qag5Qag5
|
||||
Qag5QahBQUGcrGr/xaT/xaT/xaRBQUFBYtX/xaScrGqcrGr///8plPYplPYplPZBQUGcrGpBQUFBQUFB
|
||||
QUEBAQEBAQEAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQE5Qag5Qag5QahBeehB
|
||||
eehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBQUH/xaT/xaT/xaT/xaT///9B
|
||||
QUH/xaT/xaScrGq9vb0plPYplPZBYtVBQUGcrGqcrGpBQUGcrGpBQUEBAQEAAAAAAAAAAAAAAAD/AAD/
|
||||
AAAAAAAAAAAAAAAAAAABAQEBAQEBAQE5Qag5QahBeehBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBQUFBYtX/xaT/xaT/xaT/xaT/xaT/xaT/xaScrGpBYtUplPZBYtVBQUGc
|
||||
rGr/xaScrGpBQUGcrGqcrGpBQUEAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQE5
|
||||
QahBeehBeehBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBQUH/
|
||||
xaT/xaT/xaT/xaT/xaT/xaT/xaRBQUFBYtVBQUFBQUHwkKBBQUH/xaT/xaScrGpBQUGcrGpBQUEAAAAA
|
||||
AAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQFBeehBeehBeehBeehBeehBeegxMUkxMUkx
|
||||
MUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBQUH/xaT/xaT/xaT/xaT/xaT/xaScrGpBQUFB
|
||||
QUE5Qag5QajwkKBBQUH/xaT/xaT/xaScrGqcrGpBQUEAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAA
|
||||
AAABAQEBAQEBAQFhOUFhOUFhOUFhOUFhOUFhOUExMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBQUH/xaT/xaT/xaScrGpBQUFBQUE5Qag5Qag5Qag5QajwkKDwkKBBQUH/xaT/xaT/
|
||||
xaRBQUEBAQEAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQFhOUFhOUFhOUFhOUFh
|
||||
OUFhOUExMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBQUFBQUFBQUFB
|
||||
QUE5Qag5Qag5Qag5Qag5Qag5QajwkKDwkKDwkKBBQUFBQUFBQUEBAQEBAQEAAAAAAAAAAAAAAAD/AAD/
|
||||
AAAAAAAAAAAAAAAAAAABAQEBAQEBAQG4UWm4UWm4UWlhOUFhOUFhOUExMUkxMUkxMUlBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeeg5Qag5Qag5Qag5Qag5Qag5QajwkKDw
|
||||
kKDwkKBhOUFhOUFhOUEBAQEBAQEAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAABAQEBAQEBAQG4
|
||||
UWm4UWm4UWlhOUFhOUFhOUExMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeeg5Qag5Qag5Qag5Qag5QajwkKDwkKDwkKBhOUFhOUFhOUEBAQEBAQEAAAAA
|
||||
AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAAAAABAQEBAQEBAQG4UWm4UWm4UWlhOUFhOUFhOUExMUkxMUkx
|
||||
MUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeeg5Qag5
|
||||
Qag5Qag5QahhOUFhOUFhOUEBAQEBAQEBAQEBAQEBAQEAAAAAAAAAAAD/AAD/AAD/AAD/AAAAAAAAAAAA
|
||||
AAABAQEBAQEBAQFBeehBeehBeehBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeeg5Qag5Qag5QahhOUFhOUFhOUEBAQEBAQEB
|
||||
AQEBAQEBAQEAAAAAAAAAAAAAAAD/AAD/AAAAAAAAAAAAAAAAAAABAQEBAQEBAQFBeehBeehBeehBeehB
|
||||
eehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBeeg5Qag5QahhOUFhOUFhOUEBAQEBAQEBAQEBAQEBAQFaYmJaYmJaYmIAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAABAQEBAQEBAQFBeehBeehBeehBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeeg5QahaYmJa
|
||||
YmJaYmJaYmJaYmJaYmJaYmJaYmL///9KnHv///9aYmIAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQG4
|
||||
UWm4UWm4UWlBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehaYmJaYmJKnHtKnHtKnHtKnHtKnHtKnHtaYmJKnHtKnHtK
|
||||
nHtKnHtaYmIAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQG4UWm4UWm4UWlBeehBeehBeegxMUkxMUkx
|
||||
MUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
QUFKnHtKzZxKzZxKzZxBQUEpSub///9KzZxKnHtaYmJKnHtKnHtKnHtaYmIAAAAAAAAAAAAAAAAAAAAA
|
||||
AAABAQEBAQEBAQG4UWm4UWm4UWlBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBQUFKnHtKzZxKzZxKzZxKzZxBQUEpSub/////
|
||||
//9KzZxKnHtaYmJKnHtaYmJKnHtaYmJaYmJaYmIAAAAAAAAAAAABAQEBAQEBAQFBeehBeehBeehBeehB
|
||||
eehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBQUFKzZxKzZxKzZxKzZxKnHtKzZxBQUFBQUFKzZxKzZxKnHtKnHtKnHtKnHtKnHtBQUFK
|
||||
nHu9vb1BQUEAAAAAAAABAQEBAQEBAQFBeehBeehBeehBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBQUFBQUFKnHtKzZxKzZxK
|
||||
zZxKnHtKzZxKzZxKzZxKzZxBQUFKnHtBQUFBQUFBQUFKnHtKnHtKnHtBQUEAAAAAAAABAQEBAQEBAQFB
|
||||
eehBeehBeehBeehBeehBeegxMUkxMUkxMUlBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeehBeehBeehBeehBQUFBQUFKnHtKzZxKzZxKzZxKzZxKzZxKzZxKzZxKzZxKzZxBQUFK
|
||||
nHtKnHtaYmJBQUFBQUFKnHtBQUEAAAAAAAABAQEBAQEBAQE5Qag5Qag5QagxMUkxMUkxMUkxMUkxMUkx
|
||||
MUkxMUkxMUkxMUkxMUkxMUkxMUk5Qag5Qag5Qag5Qag5Qag5QagxMUkxMUkxMUkxMUkxMUkxMUk5QahB
|
||||
QUFKzZxKzZxKnHtKzZxKnHtKnHtKzZxKnHtBQUFBQUFBQUFKnHtKnHtKnHtaYmJKnHtBQUEAAAAAAAAA
|
||||
AAABAQEBAQEBAQE5Qag5Qag5QagxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUk5Qag5
|
||||
Qag5Qag5Qag5Qag5QagxMUkxMUkxMUkxMUkxMUkxMUk5Qag5QahBQUFKzZxKzZxKzZxKzZxKnHtKnHtB
|
||||
QUFKnHtaYmJKnHtKnHtKnHtKnHtaYmJKnHtKnHtBQUEAAAAAAAABAQEBAQEBAQE5Qag5Qag5QagxMUkx
|
||||
MUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUk5Qag5Qag5Qag5Qag5Qag5QagxMUkxMUkxMUkx
|
||||
MUkxMUkxMUk5Qag5QahBQUFKzZxKzZxKzZxKnHtBQUFBQUFKnHtKnHtaYmJKnHtKnHtKnHtKnHtaYmJK
|
||||
nHtKnHtBQUEAAAAAAAABAQEBAQEBAQFBeehBeehBeeg5Qag5Qag5QahBeehBeehBeeg5Qag5Qag5QahB
|
||||
eehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeeg5Qag5Qag5QahBeehBeehBQUFKzZxBQUFB
|
||||
QUFBQUFKnHtaYmJKnHtKnHtKnHtaYmJKnHtKnHtaYmJKnHtKnHtKnHtBQUEAAAAAAAABAQEBAQEBAQFB
|
||||
eehBeehBeeg5Qag5Qag5QahBeehBeehBeeg5Qag5Qag5QahBeehBeehBeehBeehBeehBeehBeehBeehB
|
||||
eehBeehBeehBeeg5Qag5Qag5QahBeehBeehBeehBQUEBAQEBAQFBQUFKnHtKnHtaYmJKnHtKnHtaYmJK
|
||||
nHtaYmJKnHtKnHtKnHtBQUEAAAAAAAAAAAABAQEBAQEBAQFBeehBeehBeeg5Qag5Qag5QahBeehBeehB
|
||||
eeg5Qag5Qag5QahBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeehBeeg5Qag5Qag5QahBeehB
|
||||
eehBeegBAQEBAQEBAQEAAABBQUFBQUFKnHtaYmJKnHtaYmJKnHtaYmJKnHtBQUFBQUEAAAAAAAAAAAAA
|
||||
AAAAAAABAQEBAQExMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkx
|
||||
MUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkBAQEAAAAAAAAAAAAAAAAAAABB
|
||||
QUFBQUFBQUFKnHtKzZxKnHtBQUEAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQExMUkxMUkxMUkxMUkx
|
||||
MUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkx
|
||||
MUkxMUkxMUkxMUkxMUkxMUkBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAABBQUFKzZxKzZxKzZxBQUEAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkx
|
||||
MUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkxMUkAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAABBQUFBQUFBQUEAAAAAAAAAAAAAAAAAAAAAAAAAAAD////+P9/gAP//
|
||||
//wfn+AA////+B8f4AD////ADgHgAP///4AOAOAA4AAAAAEc4ADgAAAAAZzgAIAAAAAA3OAAAAAAAAA8
|
||||
4AAAAAAAADzgAAAAAAAAPOAAAAAAAAA84AAAAAAAADzgAAAAAAAAPOAAAAAAAAA84AAAAAAAADzgAAAA
|
||||
AAAAPOAAAAAAAAAgAAAAAAAAADAgAAAAAAAAOGAAAAAAAAA84AAAAAAAAAfgAAAAAAAAA+AAAAAAAAAD
|
||||
4AAAAAAAAAPgAAAAAAAAAGAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAYAAAAAAAAAAgAAAA
|
||||
AAAAACAAAAAAAAAAIAAAAAAAAABgAAAAAAAIAOAAgAAAAD4D4ACAAAAAP4PgAOAAAAB/x+AA
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
50
GBAPokemonGameEditor/PokedexOrderEditor.vb
Normal file
50
GBAPokemonGameEditor/PokedexOrderEditor.vb
Normal file
@@ -0,0 +1,50 @@
|
||||
Imports VB = Microsoft.VisualBasic
|
||||
|
||||
Public Class PokedexOrderEditor
|
||||
Dim Offset1 As Integer
|
||||
Dim Offset2 As Integer
|
||||
Private Sub PokedexOrderEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
' MessageBox.Show((GetString(AppPath & "ini\roms.ini", header, "NumberOfPokemon", "")) - 2)
|
||||
|
||||
Offset1 = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "NationalDexTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
Offset2 = Int32.Parse((GetString(AppPath & "ini\roms.ini", header, "SecondDexTable", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
Dim LoopVar As Integer
|
||||
|
||||
ListBox1.Items.Clear()
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfPokemon", "")) - 1 = True
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
ListBox1.Items.Add(GetPokemonName(LoopVar))
|
||||
|
||||
End While
|
||||
|
||||
ListBox1.SelectedIndex = 0
|
||||
|
||||
Me.Cursor = Cursors.Arrow
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
|
||||
i = ListBox1.SelectedIndex
|
||||
|
||||
'makes i be the list index so that the location of the pokemon's dex number can be calculated
|
||||
|
||||
ListBox2.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Offset1 + (i * 2), 2))), System.Globalization.NumberStyles.HexNumber)
|
||||
'loads the pokemon's dex number into the listbox
|
||||
ListBox3.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Offset2 + (i * 2), 2))), System.Globalization.NumberStyles.HexNumber)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
i = ListBox1.SelectedIndex
|
||||
'makes i be the list index so that the location of the pokemon's dex number can be calculated
|
||||
WriteHEX(LoadedROM, Offset1 + (i * 2), ReverseHEX(VB.Right("0000" & Hex(ListBox2.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset2 + (i * 2), ReverseHEX(VB.Right("0000" & Hex(ListBox3.SelectedIndex), 4)))
|
||||
End Sub
|
||||
End Class
|
||||
1738
GBAPokemonGameEditor/Pokemonedit.Designer.vb
generated
Normal file
1738
GBAPokemonGameEditor/Pokemonedit.Designer.vb
generated
Normal file
File diff suppressed because one or more lines are too long
192
GBAPokemonGameEditor/Pokemonedit.resx
Normal file
192
GBAPokemonGameEditor/Pokemonedit.resx
Normal file
@@ -0,0 +1,192 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<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="fileOpenDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>274, 17</value>
|
||||
</metadata>
|
||||
<metadata name="FolderBrowserDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>405, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAAAAAAAACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAwAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWlpaWlpaWlpaW
|
||||
lpaWlpaWlpaWlpYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAACWlpbLy8vLy8vLy8uWlpaWlpaWlpaWlpbLy8uWlpaWlpaWlpaWlpYAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWlpbLy8vLy8vL
|
||||
y8uWlpbLy8uWlpaWlpbLy8uWlpaWlpaWlpbLy8uWlpaWlpYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAACWlpbLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8uWlpbL
|
||||
y8uWlpaWlpaWlpbLy8uWlpYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWlpb////L
|
||||
y8vLy8vLy8v////////Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8uWlpbLy8uWlpbLy8uWlpYAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWlpb////////////Ly8v////////Ly8vLy8vLy8v////L
|
||||
y8vLy8vLy8vLy8vLy8vLy8vLy8uWlpaWlpaWlpbLy8uWlpYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAD////////////////////////////////Ly8v////////////////Ly8vLy8vLy8vLy8vLy8uWlpbL
|
||||
y8uWlpaWlpaWlpYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWlpb/////////////////////////////
|
||||
///////////////////////////Ly8vLy8vLy8vLy8vLy8vLy8uWlpaWlpaWlpaWlpYAAAAAAAAAAAAA
|
||||
AAAAAAAAAAD///////////////////////////////////////////////8AAAAAAAAAAAD////////L
|
||||
y8v////Ly8vLy8vLy8uWlpaWlpaWlpbLy8uWlpYAAAAAAAAAAAAAAAAAAAD/////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAD////Ly8vLy8vLy8vLy8vLy8vLy8vLy8uW
|
||||
lpaWlpYAAAAAAAAAAAAAAAAAAAD///////////////////////////////////8AAAAAAAAAAAD////B
|
||||
wcHBwcEAAAAAAAAAAAD////Ly8vLy8vLy8vLy8vLy8uWlpaWlpaWlpYAAAAAAAAAAAAAAAD/////////
|
||||
//////////////////////////8AAAAAAAD///////8AAAAAAAAAAADBwcHBwcEAAAAAAAD////Ly8vL
|
||||
y8vLy8vLy8vLy8uWlpbLy8uWlpYAAAAAAAAAAAD///////////////////////////////////8AAAAA
|
||||
AAD///8AAADBwcH///////8AAADBwcEAAAAAAAD////////Ly8v////////Ly8vLy8v///+WlpYAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADBwcH///////////////8AAADB
|
||||
wcEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABVVVVVVVUAAAAAAAAA
|
||||
AAAAAAAAAAAAAAD///8AAADBwcH///////////////8AAADBwcEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAABVVVVVVVVVVVVVVVUAAAAAAAAAAAAAAAAAAAD///8AAADBwcHBwcH/
|
||||
///////BwcEAAAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP9mZv9m
|
||||
Zv9mZv9mZv8AAP8AAP8AAP8AAP8AAAAAAAD///8AAADBwcHBwcHBwcEAAAD///8AAAAAAAAAAP8AAP8A
|
||||
AP8AAMwAAP8AAP8AAMwAAP8AAJkAAAAAAAAAAAAAAP8AAP9mZv9mZv9mZv9mZv8AAP8AAP8AAP8AAAAA
|
||||
AAD///////8AAAAAAAAAAAD///////8AAAAAAAAAAP8AAP8AAMwAAMwAAMwAAMwAAMwAAMwAAJkAAAAA
|
||||
AAAAAAAAAAAAAP+Zmf+Zmf9mZv9mZv////8AAP8AAP8AAP8AAAAAAAAAAAD///////////8AAAAAAAAA
|
||||
AAAAAP8AAP8AAP8AAP8AAMwAAP8AAMwAAMwAAP8AAAAAAAAAAAAAAAAAAAAAAP+Zmf+Zmf////9mZv9m
|
||||
Zv////8AAP8AAP8AAP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8AAP8AAP8AAP8AAP8AAP8AAMwAAMwA
|
||||
AMwAAP8AAAAAAAAAAAAAAAAAAAAAAP8AAP////////////9mZv9mZv////8AAP8AAP8AAP8AAP8AAAAA
|
||||
AAAAAAAAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAMwAAMwAAP8AAJkAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AP9mZv////////9mZv9mZv9mZv9mZv8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8A
|
||||
AP8AAMwAAMwAAMwAAJkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////////9mZv9mZv9mZv9m
|
||||
Zv9mZv9mZv8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAMwAAP8AAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAP8AAP////////////////9mZv9mZv9mZv9mZv9mZv9mZv9mZv9mZv8AAP8A
|
||||
AP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8AAP//
|
||||
//////////////9mZv9mZv9mZv9mZv9mZv9mZv9mZv9mZv8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8AAP9mZv////////9mZv9mZv9mZv9mZv9m
|
||||
Zv9mZv9mZv8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAP8AAP9mZv9mZv9mZv9mZv9mZv8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8A
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8AAP8A
|
||||
AP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8AAP8AAP8AAP8AAP8AAP8AAP8A
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAD///////Af//+AA///AAH//AAAf/gAAD/wAAAf4AAAD+AAAA/AAAAHgAAAA4AA
|
||||
AAOAAAADAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAYAAAAOAAAADgAAAA8AAAAfgAAAP4AAAD/AA
|
||||
AB/4AAA//AAAf/8AAf//gAP///Af/w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
2307
GBAPokemonGameEditor/Pokemonedit.vb
Normal file
2307
GBAPokemonGameEditor/Pokemonedit.vb
Normal file
File diff suppressed because it is too large
Load Diff
203
GBAPokemonGameEditor/RSEStarterEditor.Designer.vb
generated
Normal file
203
GBAPokemonGameEditor/RSEStarterEditor.Designer.vb
generated
Normal file
@@ -0,0 +1,203 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class RSEStarterEditor
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RSEStarterEditor))
|
||||
Me.Starter1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Starter3 = New System.Windows.Forms.ComboBox()
|
||||
Me.Starter2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Opponent = New System.Windows.Forms.ComboBox()
|
||||
Me.OpoPic = New System.Windows.Forms.PictureBox()
|
||||
Me.Start1Pic = New System.Windows.Forms.PictureBox()
|
||||
Me.Start2Pic = New System.Windows.Forms.PictureBox()
|
||||
Me.Start3Pic = New System.Windows.Forms.PictureBox()
|
||||
Me.StarterLevel = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.OpponentLevel = New System.Windows.Forms.TextBox()
|
||||
CType(Me.OpoPic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Start1Pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Start2Pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Start3Pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Starter1
|
||||
'
|
||||
Me.Starter1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Starter1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Starter1.FormattingEnabled = True
|
||||
Me.Starter1.Location = New System.Drawing.Point(12, 242)
|
||||
Me.Starter1.Name = "Starter1"
|
||||
Me.Starter1.Size = New System.Drawing.Size(118, 21)
|
||||
Me.Starter1.TabIndex = 8
|
||||
'
|
||||
'Starter3
|
||||
'
|
||||
Me.Starter3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Starter3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Starter3.FormattingEnabled = True
|
||||
Me.Starter3.Location = New System.Drawing.Point(260, 242)
|
||||
Me.Starter3.Name = "Starter3"
|
||||
Me.Starter3.Size = New System.Drawing.Size(118, 21)
|
||||
Me.Starter3.TabIndex = 9
|
||||
'
|
||||
'Starter2
|
||||
'
|
||||
Me.Starter2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Starter2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Starter2.FormattingEnabled = True
|
||||
Me.Starter2.Location = New System.Drawing.Point(136, 242)
|
||||
Me.Starter2.Name = "Starter2"
|
||||
Me.Starter2.Size = New System.Drawing.Size(118, 21)
|
||||
Me.Starter2.TabIndex = 10
|
||||
'
|
||||
'Opponent
|
||||
'
|
||||
Me.Opponent.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Opponent.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Opponent.FormattingEnabled = True
|
||||
Me.Opponent.Location = New System.Drawing.Point(136, 95)
|
||||
Me.Opponent.Name = "Opponent"
|
||||
Me.Opponent.Size = New System.Drawing.Size(118, 21)
|
||||
Me.Opponent.TabIndex = 11
|
||||
'
|
||||
'OpoPic
|
||||
'
|
||||
Me.OpoPic.Location = New System.Drawing.Point(161, 25)
|
||||
Me.OpoPic.Name = "OpoPic"
|
||||
Me.OpoPic.Size = New System.Drawing.Size(64, 64)
|
||||
Me.OpoPic.TabIndex = 12
|
||||
Me.OpoPic.TabStop = False
|
||||
'
|
||||
'Start1Pic
|
||||
'
|
||||
Me.Start1Pic.Location = New System.Drawing.Point(39, 161)
|
||||
Me.Start1Pic.Name = "Start1Pic"
|
||||
Me.Start1Pic.Size = New System.Drawing.Size(64, 64)
|
||||
Me.Start1Pic.TabIndex = 13
|
||||
Me.Start1Pic.TabStop = False
|
||||
'
|
||||
'Start2Pic
|
||||
'
|
||||
Me.Start2Pic.Location = New System.Drawing.Point(161, 161)
|
||||
Me.Start2Pic.Name = "Start2Pic"
|
||||
Me.Start2Pic.Size = New System.Drawing.Size(64, 64)
|
||||
Me.Start2Pic.TabIndex = 14
|
||||
Me.Start2Pic.TabStop = False
|
||||
'
|
||||
'Start3Pic
|
||||
'
|
||||
Me.Start3Pic.Location = New System.Drawing.Point(282, 161)
|
||||
Me.Start3Pic.Name = "Start3Pic"
|
||||
Me.Start3Pic.Size = New System.Drawing.Size(64, 64)
|
||||
Me.Start3Pic.TabIndex = 15
|
||||
Me.Start3Pic.TabStop = False
|
||||
'
|
||||
'StarterLevel
|
||||
'
|
||||
Me.StarterLevel.Location = New System.Drawing.Point(222, 270)
|
||||
Me.StarterLevel.Name = "StarterLevel"
|
||||
Me.StarterLevel.Size = New System.Drawing.Size(32, 20)
|
||||
Me.StarterLevel.TabIndex = 16
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(133, 273)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(36, 13)
|
||||
Me.Label1.TabIndex = 17
|
||||
Me.Label1.Text = "Level:"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(260, 294)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(118, 34)
|
||||
Me.Button1.TabIndex = 18
|
||||
Me.Button1.Text = "Save"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(133, 126)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(36, 13)
|
||||
Me.Label2.TabIndex = 20
|
||||
Me.Label2.Text = "Level:"
|
||||
'
|
||||
'OpponentLevel
|
||||
'
|
||||
Me.OpponentLevel.Location = New System.Drawing.Point(222, 123)
|
||||
Me.OpponentLevel.Name = "OpponentLevel"
|
||||
Me.OpponentLevel.Size = New System.Drawing.Size(32, 20)
|
||||
Me.OpponentLevel.TabIndex = 19
|
||||
'
|
||||
'RSEStarterEditor
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(386, 340)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.OpponentLevel)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.StarterLevel)
|
||||
Me.Controls.Add(Me.Start3Pic)
|
||||
Me.Controls.Add(Me.Start2Pic)
|
||||
Me.Controls.Add(Me.Start1Pic)
|
||||
Me.Controls.Add(Me.OpoPic)
|
||||
Me.Controls.Add(Me.Opponent)
|
||||
Me.Controls.Add(Me.Starter2)
|
||||
Me.Controls.Add(Me.Starter3)
|
||||
Me.Controls.Add(Me.Starter1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "RSEStarterEditor"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "RSE Starter Editor"
|
||||
CType(Me.OpoPic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Start1Pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Start2Pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Start3Pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Starter1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Starter3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Starter2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Opponent As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents OpoPic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Start1Pic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Start2Pic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Start3Pic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents StarterLevel As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents OpponentLevel As System.Windows.Forms.TextBox
|
||||
End Class
|
||||
131
GBAPokemonGameEditor/RSEStarterEditor.resx
Normal file
131
GBAPokemonGameEditor/RSEStarterEditor.resx
Normal file
@@ -0,0 +1,131 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAQAAEABAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAA
|
||||
AAClxXMAtdb/AJTF/wBzlN4AQkJ7ACHW/wAQnN4ACDprAGNS5gAxAMUAGQBjAEpjnAAxMWsAGQAxAP//
|
||||
/wAAAAAA/////////////////////////+7v//////RLu7tE////QzMzMzNP//9DMzMzM0///0RERERE
|
||||
T///QzM0MzNP//9DIiQjM09P/7IiKyIjv0//O7u7u7v/P/8y//////8v/0P//////y//9DL////y////
|
||||
SzMyIz///////////////wAA+B8AAOAHAADABwAAwAMAAIADAACAAQAAgAAAAIAEAACABAAAgAwAAMf8
|
||||
AADB+AAA4AEAAPADAAD//wAA
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
122
GBAPokemonGameEditor/RSEStarterEditor.vb
Normal file
122
GBAPokemonGameEditor/RSEStarterEditor.vb
Normal file
@@ -0,0 +1,122 @@
|
||||
Option Strict Off
|
||||
Option Explicit On
|
||||
Imports System.IO.Directory
|
||||
Imports System.Windows.Forms.Application
|
||||
Imports System.Net
|
||||
Imports VB = Microsoft.VisualBasic
|
||||
|
||||
Public Class RSEStarterEditor
|
||||
|
||||
|
||||
|
||||
Private Sub RSEStarterEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim LoopVar As Integer
|
||||
|
||||
LoopVar = 0
|
||||
|
||||
Starter1.Items.Clear()
|
||||
Starter2.Items.Clear()
|
||||
Starter3.Items.Clear()
|
||||
Opponent.Items.Clear()
|
||||
|
||||
While LoopVar < (GetString(AppPath & "ini\roms.ini", header, "NumberOfPokemon", "")) - 1 = True
|
||||
|
||||
|
||||
LoopVar = LoopVar + 1
|
||||
|
||||
Starter1.Items.Add(GetPokemonName(LoopVar))
|
||||
Starter2.Items.Add(GetPokemonName(LoopVar))
|
||||
Starter3.Items.Add(GetPokemonName(LoopVar))
|
||||
Opponent.Items.Add(GetPokemonName(LoopVar))
|
||||
|
||||
End While
|
||||
|
||||
If header2 = "BPE" Then
|
||||
|
||||
If ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber), 4) = "90214900" Then
|
||||
|
||||
Opponent.SelectedIndex = 288 - 1
|
||||
|
||||
Else
|
||||
|
||||
Opponent.SelectedIndex = ((Int32.Parse(((ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber), 1))), System.Globalization.NumberStyles.HexNumber) + (Int32.Parse((ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, 1)), System.Globalization.NumberStyles.HexNumber))) - 1)
|
||||
End If
|
||||
|
||||
Starter1.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber), 2))), System.Globalization.NumberStyles.HexNumber) - 1
|
||||
Starter2.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, 2))), System.Globalization.NumberStyles.HexNumber) - 1
|
||||
Starter3.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 4, 2))), System.Globalization.NumberStyles.HexNumber) - 1
|
||||
|
||||
OpponentLevel.Text = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemonLevel", ""), System.Globalization.NumberStyles.HexNumber), 1))), System.Globalization.NumberStyles.HexNumber)
|
||||
StarterLevel.Text = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemonLevel", ""), System.Globalization.NumberStyles.HexNumber), 1))), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
|
||||
|
||||
ElseIf header2 = "AXV" Or header2 = "AXP" Then
|
||||
|
||||
If ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber), 4) = "8F214900" Then
|
||||
|
||||
Opponent.SelectedIndex = 286 - 1
|
||||
|
||||
Else
|
||||
|
||||
Opponent.SelectedIndex = (Int32.Parse((ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber), 1)), System.Globalization.NumberStyles.HexNumber) + Int32.Parse((ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, 1)), System.Globalization.NumberStyles.HexNumber)) - 1
|
||||
|
||||
End If
|
||||
|
||||
Starter1.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber), 2))), System.Globalization.NumberStyles.HexNumber) - 1
|
||||
Starter2.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, 2))), System.Globalization.NumberStyles.HexNumber) - 1
|
||||
Starter3.SelectedIndex = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 4, 2))), System.Globalization.NumberStyles.HexNumber) - 1
|
||||
|
||||
OpponentLevel.Text = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemonLevel", ""), System.Globalization.NumberStyles.HexNumber), 1))), System.Globalization.NumberStyles.HexNumber)
|
||||
StarterLevel.Text = Int32.Parse((ReverseHEX(ReadHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemonLevel", ""), System.Globalization.NumberStyles.HexNumber), 1))), System.Globalization.NumberStyles.HexNumber)
|
||||
Else
|
||||
MsgBox("Not supported. Use a script editor.")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Opponent_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Opponent.SelectedIndexChanged
|
||||
GetAndDrawFrontPokemonPic(OpoPic, Opponent.SelectedIndex + 1)
|
||||
End Sub
|
||||
|
||||
Private Sub Starter1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Starter1.SelectedIndexChanged
|
||||
GetAndDrawFrontPokemonPic(Start1Pic, Starter1.SelectedIndex + 1)
|
||||
End Sub
|
||||
|
||||
Private Sub Starter2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Starter2.SelectedIndexChanged
|
||||
GetAndDrawFrontPokemonPic(Start2Pic, Starter2.SelectedIndex + 1)
|
||||
End Sub
|
||||
|
||||
Private Sub Starter3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Starter3.SelectedIndexChanged
|
||||
GetAndDrawFrontPokemonPic(Start3Pic, Starter3.SelectedIndex + 1)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
If Opponent.SelectedIndex + 1 > 510 Then
|
||||
MsgBox("This pokemon can not be selected as what you ecounter. The number is too high. ASM hack the value in.")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If Opponent.SelectedIndex + 1 > 255 Then
|
||||
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber), "FF")
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 1, "21")
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, Hex(Opponent.SelectedIndex - 255 + 1))
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 3, "31")
|
||||
|
||||
ElseIf Opponent.SelectedIndex + 1 < 255 Then
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber), Hex(Opponent.SelectedIndex + 1))
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 1, "21")
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, "00")
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 3, "31")
|
||||
|
||||
End If
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterEncounterPokemonLevel", ""), System.Globalization.NumberStyles.HexNumber), Hex(OpponentLevel.Text))
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemonLevel", ""), System.Globalization.NumberStyles.HexNumber), Hex(StarterLevel.Text))
|
||||
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber), ReverseHEX(VB.Right("0000" & Hex(Starter1.SelectedIndex + 1), 4)))
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 2, ReverseHEX(VB.Right("0000" & Hex(Starter2.SelectedIndex + 1), 4)))
|
||||
WriteHEX(LoadedROM, Int32.Parse(GetString(AppPath & "ini\roms.ini", header, "StarterPokemon", ""), System.Globalization.NumberStyles.HexNumber) + 4, ReverseHEX(VB.Right("0000" & Hex(Starter3.SelectedIndex + 1), 4)))
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
5
GBAPokemonGameEditor/bin/Debug/GBAPGESettings.ini
Normal file
5
GBAPokemonGameEditor/bin/Debug/GBAPGESettings.ini
Normal file
@@ -0,0 +1,5 @@
|
||||
[Settings]
|
||||
TransparentImages=0
|
||||
MoveTableHack=0
|
||||
DisablePKMImages=0
|
||||
jamboTMextensionHack=0
|
||||
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
BIN
GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe
Normal file
BIN
GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe
Normal file
Binary file not shown.
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
1066
GBAPokemonGameEditor/bin/Debug/ini/roms.ini
Normal file
1066
GBAPokemonGameEditor/bin/Debug/ini/roms.ini
Normal file
File diff suppressed because it is too large
Load Diff
74
GBAPokemonGameEditor/mMain.vb
Normal file
74
GBAPokemonGameEditor/mMain.vb
Normal file
@@ -0,0 +1,74 @@
|
||||
Imports System.IO
|
||||
|
||||
|
||||
|
||||
Module mMain
|
||||
|
||||
Public LoadedROM As String
|
||||
Public AppPath As String = System.AppDomain.CurrentDomain.BaseDirectory() & IIf(Right(System.AppDomain.CurrentDomain.BaseDirectory(), 1) = "\", "", "\")
|
||||
Public i As Integer
|
||||
Public FileNum As Integer
|
||||
Public header As String = "xxxx"
|
||||
Public header2 As String
|
||||
Public header3 As String
|
||||
Public lwut As String
|
||||
Public SkipVar As Integer
|
||||
Public x As Integer
|
||||
|
||||
'For Map Edit
|
||||
Public Point2MapBankPointers As String
|
||||
Public MapBankPointers As String
|
||||
Public HeaderPointer As String
|
||||
Public MapBank As String
|
||||
Public MapNumber As String
|
||||
Public BankOffset As String
|
||||
Public HeaderOffset As String
|
||||
Public MapData As String
|
||||
Public Const TileSetSize As Integer = 16
|
||||
Public Const TileSize As Integer = 8 'constant used for tile sizes.
|
||||
Public Const TileWidth As Integer = 8
|
||||
Public Const TilesPerRow As Integer = 16
|
||||
|
||||
'These are all the buffers for creating the graphics for the tilesets.
|
||||
Public TilesBackbuffer As Bitmap
|
||||
Public TilesetMapBackbuffer As Bitmap
|
||||
Public TilesGraphics As Graphics
|
||||
Public TilesetMapGraphics As Graphics
|
||||
Public TilesBackbuffer2 As Bitmap
|
||||
Public TilesetMapBackbuffer2 As Bitmap
|
||||
Public TilesGraphics2 As Graphics
|
||||
Public TilesetMapGraphics2 As Graphics
|
||||
|
||||
'These are variables for keeping track of which tile is selected in the tile editor
|
||||
Public TileEditorTilesCurrentTile As Integer
|
||||
Public TileEditorTilesetCurrentTile As Integer
|
||||
|
||||
'These are arrays that keep track of which tiles go where.
|
||||
'There are two because I am using two picture boxes.
|
||||
'I do not know how to draw two images and over lay them to the same picturebox.
|
||||
'I figured it would be easier to just overlay to pictureboxes.
|
||||
'I just noticed that pictureboxes have a background image... Hmm...
|
||||
Public TilesetBottomLayer As Integer(,)
|
||||
Public TilesetTopLayer As Integer(,)
|
||||
Public TilesetHeight As Integer
|
||||
Public TilesetWidth As Integer
|
||||
|
||||
'These are the buffers for the actual tileset and it's buffers.
|
||||
Public TilesetBackbuffer As Bitmap
|
||||
Public MapBackbuffer As Bitmap
|
||||
Public TilesetGraphics As Graphics
|
||||
Public MapGraphics As Graphics
|
||||
|
||||
'This keeps track of current tiles in the map editor.
|
||||
Public MapEditorTilesetCurrentTile As Integer
|
||||
Public MapEditorMapCurrentTile As Integer
|
||||
|
||||
'This keeps track of the images for the map.
|
||||
'The Map variable is very important cause it is the one used for saving.
|
||||
Public Map As Integer(,)
|
||||
Public MapTiles1 As Integer(,)
|
||||
Public MapTiles2 As Integer(,)
|
||||
|
||||
|
||||
|
||||
End Module
|
||||
136
GBAPokemonGameEditor/modSearchFreeSpace.vb
Normal file
136
GBAPokemonGameEditor/modSearchFreeSpace.vb
Normal file
@@ -0,0 +1,136 @@
|
||||
Option Explicit On
|
||||
Imports VB = Microsoft.VisualBasic
|
||||
|
||||
Module modSearchFreeSpace
|
||||
|
||||
|
||||
'06/22/2013 - This code has been ported to VB.Net by Gamer2020
|
||||
|
||||
' Copyright © 2009 HackMew
|
||||
' ------------------------------
|
||||
' Feel free to create derivate works from it, as long as you clearly give me credits of my code and
|
||||
' make available the source code of derivative programs or programs where you used parts of my code.
|
||||
' Redistribution is allowed at the same conditions.
|
||||
|
||||
'Private Const sMyName As String = "modSearchFreeSpace"
|
||||
|
||||
'This function wasn't working so I made my own.
|
||||
'Private Declare Sub RtlFillMemory Lib "kernel32" (ByVal pDest As Byte, ByVal nLen As Long, ByVal Fill As Byte)
|
||||
|
||||
Public Function SearchFreeSpace(ByVal FileName As String, ByVal FreeSpaceByte As Byte, ByVal NeededBytes As Long, Optional ByVal StartOffset As Long = 0&, Optional ByVal ChunkSize As Long = 65536, Optional ByVal Accuracy As Byte = 0) As Long
|
||||
'Const sThis As String = "SearchFreeSpace"
|
||||
Dim iFileNum As Long
|
||||
Dim lFileLen As Long
|
||||
Dim lOffset As Long
|
||||
Dim lIncrement As Long
|
||||
Dim bBuffer() As Byte
|
||||
Dim bSearch() As Byte
|
||||
Dim i As Long
|
||||
Dim loopy As Integer
|
||||
|
||||
|
||||
|
||||
On Error GoTo LocalHandler
|
||||
|
||||
' Check if NeededBytes and ChunkSize
|
||||
' are higher than zero
|
||||
If (NeededBytes + ChunkSize) Then
|
||||
|
||||
' Set the increment
|
||||
lIncrement = ChunkSize \ (CLng(Accuracy) + 1&)
|
||||
|
||||
' Allocate the buffer and the search pattern
|
||||
ReDim bBuffer(ChunkSize - 1&)
|
||||
ReDim bSearch(NeededBytes - 1&)
|
||||
|
||||
' Fill the search pattern with the
|
||||
' FreeSpaceByte when it's not 0
|
||||
'This function wasn't working so I made my own.
|
||||
|
||||
'If FreeSpaceByte Then
|
||||
'RtlFillMemory(bSearch(0), NeededBytes, FreeSpaceByte)
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
loopy = 0
|
||||
|
||||
'just a simple loop to fill the buffer.
|
||||
While loopy < NeededBytes
|
||||
|
||||
bSearch(loopy) = bSearch(loopy) & FreeSpaceByte
|
||||
|
||||
loopy = loopy + 1
|
||||
|
||||
End While
|
||||
|
||||
' Get the next free number
|
||||
iFileNum = FreeFile()
|
||||
|
||||
' Open the file
|
||||
'Open FileName For Binary As iFileNum
|
||||
FileOpen(iFileNum, FileName, OpenMode.Binary)
|
||||
' Get the file length
|
||||
lFileLen = LOF(iFileNum)
|
||||
|
||||
' Ensure the file is not empty
|
||||
If lFileLen Then
|
||||
|
||||
' Check if the StartOffset is valid
|
||||
If (lFileLen - StartOffset) Then
|
||||
|
||||
' Loop through the file
|
||||
For i = 0& To (lFileLen - StartOffset) \ ChunkSize
|
||||
|
||||
' Get a file chunk at the current offset
|
||||
'Get #iFileNum, StartOffset + 1&, bBuffer
|
||||
FileGet(iFileNum, bBuffer, StartOffset + 1&)
|
||||
|
||||
' Search the needed space
|
||||
'lOffset = InStrB(bBuffer, bSearch)
|
||||
lOffset = InStr(bBuffer(0), bSearch(0))
|
||||
|
||||
' Was there enough space?
|
||||
If lOffset Then
|
||||
|
||||
' Yeah, stop searching
|
||||
lOffset = lOffset + StartOffset - 1&
|
||||
Exit For
|
||||
|
||||
End If
|
||||
|
||||
' Increment the offset
|
||||
StartOffset = StartOffset + lIncrement
|
||||
|
||||
Next i
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
FileClose(iFileNum)
|
||||
|
||||
' Make sure the offset isn't past the EOF
|
||||
If lOffset < lFileLen Then
|
||||
SearchFreeSpace = lOffset
|
||||
End If
|
||||
|
||||
End If
|
||||
Exit Function
|
||||
|
||||
LocalHandler:
|
||||
|
||||
'insert error handler here
|
||||
|
||||
'Select Case GlobalHandler(sThis, sMyName)
|
||||
' Case vbRetry
|
||||
' Resume
|
||||
' Case vbAbort
|
||||
' Quit()
|
||||
' Case Else
|
||||
' Resume Next
|
||||
' End Select
|
||||
|
||||
End Function
|
||||
|
||||
End Module
|
||||
1089
GBAPokemonGameEditor/modTextSapp.vb
Normal file
1089
GBAPokemonGameEditor/modTextSapp.vb
Normal file
File diff suppressed because it is too large
Load Diff
529
GBAPokemonGameEditor/movetutor2.Designer.vb
generated
Normal file
529
GBAPokemonGameEditor/movetutor2.Designer.vb
generated
Normal file
@@ -0,0 +1,529 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class movetutor2
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.ComboBox16 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox15 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox14 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox13 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox12 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox11 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox10 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox9 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox8 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox7 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox6 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox5 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.Combo16 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo15 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo14 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo13 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo12 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo11 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo10 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo9 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo8 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo7 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo6 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo5 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo4 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo3 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Combo1 = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox16)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox15)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox14)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox13)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox12)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox11)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox10)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox9)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox8)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox7)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox6)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox5)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox4)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox3)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox2)
|
||||
Me.GroupBox2.Controls.Add(Me.ComboBox1)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(294, 12)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(276, 249)
|
||||
Me.GroupBox2.TabIndex = 17
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Emerald Only"
|
||||
'
|
||||
'ComboBox16
|
||||
'
|
||||
Me.ComboBox16.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox16.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox16.Enabled = False
|
||||
Me.ComboBox16.FormattingEnabled = True
|
||||
Me.ComboBox16.Location = New System.Drawing.Point(144, 218)
|
||||
Me.ComboBox16.Name = "ComboBox16"
|
||||
Me.ComboBox16.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox16.TabIndex = 15
|
||||
'
|
||||
'ComboBox15
|
||||
'
|
||||
Me.ComboBox15.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox15.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox15.Enabled = False
|
||||
Me.ComboBox15.FormattingEnabled = True
|
||||
Me.ComboBox15.Location = New System.Drawing.Point(144, 191)
|
||||
Me.ComboBox15.Name = "ComboBox15"
|
||||
Me.ComboBox15.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox15.TabIndex = 14
|
||||
'
|
||||
'ComboBox14
|
||||
'
|
||||
Me.ComboBox14.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox14.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox14.Enabled = False
|
||||
Me.ComboBox14.FormattingEnabled = True
|
||||
Me.ComboBox14.Location = New System.Drawing.Point(144, 164)
|
||||
Me.ComboBox14.Name = "ComboBox14"
|
||||
Me.ComboBox14.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox14.TabIndex = 13
|
||||
'
|
||||
'ComboBox13
|
||||
'
|
||||
Me.ComboBox13.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox13.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox13.Enabled = False
|
||||
Me.ComboBox13.FormattingEnabled = True
|
||||
Me.ComboBox13.Location = New System.Drawing.Point(144, 137)
|
||||
Me.ComboBox13.Name = "ComboBox13"
|
||||
Me.ComboBox13.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox13.TabIndex = 12
|
||||
'
|
||||
'ComboBox12
|
||||
'
|
||||
Me.ComboBox12.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox12.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox12.Enabled = False
|
||||
Me.ComboBox12.FormattingEnabled = True
|
||||
Me.ComboBox12.Location = New System.Drawing.Point(144, 110)
|
||||
Me.ComboBox12.Name = "ComboBox12"
|
||||
Me.ComboBox12.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox12.TabIndex = 11
|
||||
'
|
||||
'ComboBox11
|
||||
'
|
||||
Me.ComboBox11.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox11.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox11.Enabled = False
|
||||
Me.ComboBox11.FormattingEnabled = True
|
||||
Me.ComboBox11.Location = New System.Drawing.Point(144, 83)
|
||||
Me.ComboBox11.Name = "ComboBox11"
|
||||
Me.ComboBox11.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox11.TabIndex = 10
|
||||
'
|
||||
'ComboBox10
|
||||
'
|
||||
Me.ComboBox10.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox10.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox10.Enabled = False
|
||||
Me.ComboBox10.FormattingEnabled = True
|
||||
Me.ComboBox10.Location = New System.Drawing.Point(144, 56)
|
||||
Me.ComboBox10.Name = "ComboBox10"
|
||||
Me.ComboBox10.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox10.TabIndex = 9
|
||||
'
|
||||
'ComboBox9
|
||||
'
|
||||
Me.ComboBox9.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox9.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox9.Enabled = False
|
||||
Me.ComboBox9.FormattingEnabled = True
|
||||
Me.ComboBox9.Location = New System.Drawing.Point(144, 29)
|
||||
Me.ComboBox9.Name = "ComboBox9"
|
||||
Me.ComboBox9.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox9.TabIndex = 8
|
||||
'
|
||||
'ComboBox8
|
||||
'
|
||||
Me.ComboBox8.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox8.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox8.Enabled = False
|
||||
Me.ComboBox8.FormattingEnabled = True
|
||||
Me.ComboBox8.Location = New System.Drawing.Point(6, 218)
|
||||
Me.ComboBox8.Name = "ComboBox8"
|
||||
Me.ComboBox8.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox8.TabIndex = 7
|
||||
'
|
||||
'ComboBox7
|
||||
'
|
||||
Me.ComboBox7.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox7.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox7.Enabled = False
|
||||
Me.ComboBox7.FormattingEnabled = True
|
||||
Me.ComboBox7.Location = New System.Drawing.Point(6, 191)
|
||||
Me.ComboBox7.Name = "ComboBox7"
|
||||
Me.ComboBox7.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox7.TabIndex = 6
|
||||
'
|
||||
'ComboBox6
|
||||
'
|
||||
Me.ComboBox6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox6.Enabled = False
|
||||
Me.ComboBox6.FormattingEnabled = True
|
||||
Me.ComboBox6.Location = New System.Drawing.Point(6, 164)
|
||||
Me.ComboBox6.Name = "ComboBox6"
|
||||
Me.ComboBox6.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox6.TabIndex = 5
|
||||
'
|
||||
'ComboBox5
|
||||
'
|
||||
Me.ComboBox5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox5.Enabled = False
|
||||
Me.ComboBox5.FormattingEnabled = True
|
||||
Me.ComboBox5.Location = New System.Drawing.Point(6, 137)
|
||||
Me.ComboBox5.Name = "ComboBox5"
|
||||
Me.ComboBox5.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox5.TabIndex = 4
|
||||
'
|
||||
'ComboBox4
|
||||
'
|
||||
Me.ComboBox4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox4.Enabled = False
|
||||
Me.ComboBox4.FormattingEnabled = True
|
||||
Me.ComboBox4.Location = New System.Drawing.Point(6, 110)
|
||||
Me.ComboBox4.Name = "ComboBox4"
|
||||
Me.ComboBox4.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox4.TabIndex = 3
|
||||
'
|
||||
'ComboBox3
|
||||
'
|
||||
Me.ComboBox3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox3.Enabled = False
|
||||
Me.ComboBox3.FormattingEnabled = True
|
||||
Me.ComboBox3.Location = New System.Drawing.Point(6, 83)
|
||||
Me.ComboBox3.Name = "ComboBox3"
|
||||
Me.ComboBox3.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox3.TabIndex = 2
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox2.Enabled = False
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(6, 56)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox2.TabIndex = 1
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox1.Enabled = False
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(6, 29)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
|
||||
Me.ComboBox1.TabIndex = 0
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(449, 267)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(121, 25)
|
||||
Me.Button2.TabIndex = 16
|
||||
Me.Button2.Text = "Save"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.Combo16)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo15)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo14)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo13)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo12)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo11)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo10)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo9)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo8)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo7)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo6)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo5)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo4)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo3)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo2)
|
||||
Me.GroupBox1.Controls.Add(Me.Combo1)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(271, 249)
|
||||
Me.GroupBox1.TabIndex = 15
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Move Tutor Moves"
|
||||
'
|
||||
'Combo16
|
||||
'
|
||||
Me.Combo16.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo16.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo16.Enabled = False
|
||||
Me.Combo16.FormattingEnabled = True
|
||||
Me.Combo16.Location = New System.Drawing.Point(142, 218)
|
||||
Me.Combo16.Name = "Combo16"
|
||||
Me.Combo16.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo16.TabIndex = 15
|
||||
'
|
||||
'Combo15
|
||||
'
|
||||
Me.Combo15.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo15.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo15.Enabled = False
|
||||
Me.Combo15.FormattingEnabled = True
|
||||
Me.Combo15.Location = New System.Drawing.Point(142, 191)
|
||||
Me.Combo15.Name = "Combo15"
|
||||
Me.Combo15.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo15.TabIndex = 14
|
||||
'
|
||||
'Combo14
|
||||
'
|
||||
Me.Combo14.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo14.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo14.Enabled = False
|
||||
Me.Combo14.FormattingEnabled = True
|
||||
Me.Combo14.Location = New System.Drawing.Point(142, 164)
|
||||
Me.Combo14.Name = "Combo14"
|
||||
Me.Combo14.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo14.TabIndex = 13
|
||||
'
|
||||
'Combo13
|
||||
'
|
||||
Me.Combo13.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo13.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo13.Enabled = False
|
||||
Me.Combo13.FormattingEnabled = True
|
||||
Me.Combo13.Location = New System.Drawing.Point(142, 137)
|
||||
Me.Combo13.Name = "Combo13"
|
||||
Me.Combo13.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo13.TabIndex = 12
|
||||
'
|
||||
'Combo12
|
||||
'
|
||||
Me.Combo12.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo12.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo12.Enabled = False
|
||||
Me.Combo12.FormattingEnabled = True
|
||||
Me.Combo12.Location = New System.Drawing.Point(142, 110)
|
||||
Me.Combo12.Name = "Combo12"
|
||||
Me.Combo12.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo12.TabIndex = 11
|
||||
'
|
||||
'Combo11
|
||||
'
|
||||
Me.Combo11.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo11.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo11.Enabled = False
|
||||
Me.Combo11.FormattingEnabled = True
|
||||
Me.Combo11.Location = New System.Drawing.Point(142, 83)
|
||||
Me.Combo11.Name = "Combo11"
|
||||
Me.Combo11.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo11.TabIndex = 10
|
||||
'
|
||||
'Combo10
|
||||
'
|
||||
Me.Combo10.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo10.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo10.Enabled = False
|
||||
Me.Combo10.FormattingEnabled = True
|
||||
Me.Combo10.Location = New System.Drawing.Point(142, 56)
|
||||
Me.Combo10.Name = "Combo10"
|
||||
Me.Combo10.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo10.TabIndex = 9
|
||||
'
|
||||
'Combo9
|
||||
'
|
||||
Me.Combo9.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo9.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo9.Enabled = False
|
||||
Me.Combo9.FormattingEnabled = True
|
||||
Me.Combo9.Location = New System.Drawing.Point(142, 29)
|
||||
Me.Combo9.Name = "Combo9"
|
||||
Me.Combo9.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo9.TabIndex = 8
|
||||
'
|
||||
'Combo8
|
||||
'
|
||||
Me.Combo8.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo8.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo8.Enabled = False
|
||||
Me.Combo8.FormattingEnabled = True
|
||||
Me.Combo8.Location = New System.Drawing.Point(6, 218)
|
||||
Me.Combo8.Name = "Combo8"
|
||||
Me.Combo8.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo8.TabIndex = 7
|
||||
'
|
||||
'Combo7
|
||||
'
|
||||
Me.Combo7.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo7.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo7.Enabled = False
|
||||
Me.Combo7.FormattingEnabled = True
|
||||
Me.Combo7.Location = New System.Drawing.Point(6, 191)
|
||||
Me.Combo7.Name = "Combo7"
|
||||
Me.Combo7.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo7.TabIndex = 6
|
||||
'
|
||||
'Combo6
|
||||
'
|
||||
Me.Combo6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo6.Enabled = False
|
||||
Me.Combo6.FormattingEnabled = True
|
||||
Me.Combo6.Location = New System.Drawing.Point(6, 164)
|
||||
Me.Combo6.Name = "Combo6"
|
||||
Me.Combo6.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo6.TabIndex = 5
|
||||
'
|
||||
'Combo5
|
||||
'
|
||||
Me.Combo5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo5.Enabled = False
|
||||
Me.Combo5.FormattingEnabled = True
|
||||
Me.Combo5.Location = New System.Drawing.Point(6, 137)
|
||||
Me.Combo5.Name = "Combo5"
|
||||
Me.Combo5.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo5.TabIndex = 4
|
||||
'
|
||||
'Combo4
|
||||
'
|
||||
Me.Combo4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo4.Enabled = False
|
||||
Me.Combo4.FormattingEnabled = True
|
||||
Me.Combo4.Location = New System.Drawing.Point(6, 110)
|
||||
Me.Combo4.Name = "Combo4"
|
||||
Me.Combo4.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo4.TabIndex = 3
|
||||
'
|
||||
'Combo3
|
||||
'
|
||||
Me.Combo3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo3.Enabled = False
|
||||
Me.Combo3.FormattingEnabled = True
|
||||
Me.Combo3.Location = New System.Drawing.Point(6, 83)
|
||||
Me.Combo3.Name = "Combo3"
|
||||
Me.Combo3.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo3.TabIndex = 2
|
||||
'
|
||||
'Combo2
|
||||
'
|
||||
Me.Combo2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo2.Enabled = False
|
||||
Me.Combo2.FormattingEnabled = True
|
||||
Me.Combo2.Location = New System.Drawing.Point(6, 56)
|
||||
Me.Combo2.Name = "Combo2"
|
||||
Me.Combo2.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo2.TabIndex = 1
|
||||
'
|
||||
'Combo1
|
||||
'
|
||||
Me.Combo1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.Combo1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.Combo1.Enabled = False
|
||||
Me.Combo1.FormattingEnabled = True
|
||||
Me.Combo1.Location = New System.Drawing.Point(6, 29)
|
||||
Me.Combo1.Name = "Combo1"
|
||||
Me.Combo1.Size = New System.Drawing.Size(121, 21)
|
||||
Me.Combo1.TabIndex = 0
|
||||
'
|
||||
'movetutor2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(583, 302)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "movetutor2"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Move Tutor Editor"
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ComboBox16 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox15 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox14 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox13 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox12 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox11 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox10 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox9 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox8 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Combo16 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo15 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo14 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo13 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo12 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo11 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo10 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo9 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo8 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Combo1 As System.Windows.Forms.ComboBox
|
||||
End Class
|
||||
120
GBAPokemonGameEditor/movetutor2.resx
Normal file
120
GBAPokemonGameEditor/movetutor2.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
308
GBAPokemonGameEditor/movetutor2.vb
Normal file
308
GBAPokemonGameEditor/movetutor2.vb
Normal file
@@ -0,0 +1,308 @@
|
||||
Option Strict Off
|
||||
Option Explicit Off
|
||||
Imports VB = Microsoft.VisualBasic
|
||||
Public Class movetutor2
|
||||
|
||||
|
||||
Dim Offset As Integer
|
||||
'Dim Offset2 As Long
|
||||
|
||||
Private Sub movetutor2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
If header2 = "BPR" Or header2 = "BPG" Or header2 = "BPE" Then
|
||||
|
||||
Combo1.Enabled = True 'enables the combo boxes
|
||||
Combo2.Enabled = True
|
||||
Combo3.Enabled = True
|
||||
Combo4.Enabled = True
|
||||
Combo5.Enabled = True
|
||||
Combo6.Enabled = True
|
||||
Combo7.Enabled = True
|
||||
Combo8.Enabled = True
|
||||
Combo9.Enabled = True
|
||||
Combo10.Enabled = True
|
||||
Combo11.Enabled = True
|
||||
Combo12.Enabled = True
|
||||
Combo13.Enabled = True
|
||||
Combo14.Enabled = True
|
||||
Combo15.Enabled = True
|
||||
Combo16.Enabled = True
|
||||
|
||||
If header2 = "BPE" Then
|
||||
|
||||
ComboBox1.Enabled = True 'enables the ComboBox boxes
|
||||
ComboBox2.Enabled = True
|
||||
ComboBox3.Enabled = True
|
||||
ComboBox4.Enabled = True
|
||||
ComboBox5.Enabled = True
|
||||
ComboBox6.Enabled = True
|
||||
ComboBox7.Enabled = True
|
||||
ComboBox8.Enabled = True
|
||||
ComboBox9.Enabled = True
|
||||
ComboBox10.Enabled = True
|
||||
ComboBox11.Enabled = True
|
||||
ComboBox12.Enabled = True
|
||||
ComboBox13.Enabled = True
|
||||
ComboBox14.Enabled = True
|
||||
ComboBox15.Enabled = True
|
||||
ComboBox16.Enabled = True
|
||||
End If
|
||||
|
||||
Button2.Enabled = True
|
||||
|
||||
Combo1.Items.Clear() 'Clears the combo boxes
|
||||
Combo2.Items.Clear()
|
||||
Combo3.Items.Clear()
|
||||
Combo4.Items.Clear()
|
||||
Combo5.Items.Clear()
|
||||
Combo6.Items.Clear()
|
||||
Combo7.Items.Clear()
|
||||
Combo8.Items.Clear()
|
||||
Combo9.Items.Clear()
|
||||
Combo10.Items.Clear()
|
||||
Combo11.Items.Clear()
|
||||
Combo12.Items.Clear()
|
||||
Combo13.Items.Clear()
|
||||
Combo14.Items.Clear()
|
||||
Combo15.Items.Clear()
|
||||
Combo16.Items.Clear()
|
||||
|
||||
ComboBox1.Items.Clear()
|
||||
ComboBox2.Items.Clear()
|
||||
ComboBox3.Items.Clear()
|
||||
ComboBox4.Items.Clear()
|
||||
ComboBox5.Items.Clear()
|
||||
ComboBox6.Items.Clear()
|
||||
ComboBox7.Items.Clear()
|
||||
ComboBox8.Items.Clear()
|
||||
ComboBox9.Items.Clear()
|
||||
ComboBox10.Items.Clear()
|
||||
ComboBox11.Items.Clear()
|
||||
ComboBox12.Items.Clear()
|
||||
ComboBox13.Items.Clear()
|
||||
ComboBox14.Items.Clear()
|
||||
ComboBox15.Items.Clear()
|
||||
ComboBox16.Items.Clear()
|
||||
|
||||
Offset = Int32.Parse((GetString("ini\roms.ini", header, "MoveTutorAttacks", "")), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
|
||||
Dim loopything As String = 0
|
||||
|
||||
Dim curattack As String
|
||||
|
||||
While loopything < (Val(GetString("ini\roms.ini", header, "NumberOfAttacks", "")) + 1)
|
||||
|
||||
|
||||
curattack = GetAttackName(loopything)
|
||||
|
||||
Combo1.Items.Add(curattack) 'adds the attacks to the comboboxes
|
||||
Combo2.Items.Add(curattack)
|
||||
Combo3.Items.Add(curattack)
|
||||
Combo4.Items.Add(curattack)
|
||||
Combo5.Items.Add(curattack)
|
||||
Combo6.Items.Add(curattack)
|
||||
Combo7.Items.Add(curattack)
|
||||
Combo8.Items.Add(curattack)
|
||||
Combo9.Items.Add(curattack)
|
||||
Combo10.Items.Add(curattack)
|
||||
Combo11.Items.Add(curattack)
|
||||
Combo12.Items.Add(curattack)
|
||||
Combo13.Items.Add(curattack)
|
||||
Combo14.Items.Add(curattack)
|
||||
Combo15.Items.Add(curattack)
|
||||
Combo16.Items.Add(curattack)
|
||||
|
||||
If header2 = "BPE" Then
|
||||
|
||||
ComboBox1.Items.Add(curattack)
|
||||
ComboBox2.Items.Add(curattack)
|
||||
ComboBox3.Items.Add(curattack)
|
||||
ComboBox4.Items.Add(curattack)
|
||||
ComboBox5.Items.Add(curattack)
|
||||
ComboBox6.Items.Add(curattack)
|
||||
ComboBox7.Items.Add(curattack)
|
||||
ComboBox8.Items.Add(curattack)
|
||||
ComboBox9.Items.Add(curattack)
|
||||
ComboBox10.Items.Add(curattack)
|
||||
ComboBox11.Items.Add(curattack)
|
||||
ComboBox12.Items.Add(curattack)
|
||||
ComboBox13.Items.Add(curattack)
|
||||
ComboBox14.Items.Add(curattack)
|
||||
ComboBox15.Items.Add(curattack)
|
||||
ComboBox16.Items.Add(curattack)
|
||||
End If
|
||||
loopything = loopything + 1
|
||||
End While
|
||||
|
||||
|
||||
Combo1.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo2.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 1, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo3.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 3, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo4.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 5, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo5.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 7, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo6.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 9, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo7.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 11, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo8.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 13, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo9.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 15, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo10.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 17, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo11.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 19, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo12.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 21, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo13.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 23, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo14.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 25, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo15.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 27, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
Combo16.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 29, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
If header2 = "BPE" Then
|
||||
|
||||
ComboBox1.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 31, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox2.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 33, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox3.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 35, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox4.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 37, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox5.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 39, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox6.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 41, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox7.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 43, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox8.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 45, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox9.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 47, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox10.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 49, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox11.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 51, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox12.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 53, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox13.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 55, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox14.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 57, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox15.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 59, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
ComboBox16.SelectedIndex = Int32.Parse(((ReverseHEX(ReadHEX(LoadedROM, Offset + 61, 2)))), System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.Arrow
|
||||
'MainFrm.Visible = False
|
||||
|
||||
Else
|
||||
Label2:
|
||||
'If the ROM is not supported this code will run
|
||||
Combo1.Enabled = False
|
||||
Combo2.Enabled = False
|
||||
Combo3.Enabled = False
|
||||
Combo4.Enabled = False
|
||||
Combo5.Enabled = False
|
||||
Combo6.Enabled = False
|
||||
Combo7.Enabled = False
|
||||
Combo8.Enabled = False
|
||||
Combo9.Enabled = False
|
||||
Combo10.Enabled = False
|
||||
Combo11.Enabled = False
|
||||
Combo12.Enabled = False
|
||||
Combo13.Enabled = False
|
||||
Combo14.Enabled = False
|
||||
Combo15.Enabled = False
|
||||
Combo16.Enabled = False
|
||||
|
||||
Button2.Enabled = False
|
||||
|
||||
Combo1.Items.Clear() 'Clears the combo boxes
|
||||
Combo2.Items.Clear()
|
||||
Combo3.Items.Clear()
|
||||
Combo4.Items.Clear()
|
||||
Combo5.Items.Clear()
|
||||
Combo6.Items.Clear()
|
||||
Combo7.Items.Clear()
|
||||
Combo8.Items.Clear()
|
||||
Combo9.Items.Clear()
|
||||
Combo10.Items.Clear()
|
||||
Combo11.Items.Clear()
|
||||
Combo12.Items.Clear()
|
||||
Combo13.Items.Clear()
|
||||
Combo14.Items.Clear()
|
||||
Combo15.Items.Clear()
|
||||
Combo16.Items.Clear()
|
||||
|
||||
ComboBox1.Enabled = False
|
||||
ComboBox2.Enabled = False
|
||||
ComboBox3.Enabled = False
|
||||
ComboBox4.Enabled = False
|
||||
ComboBox5.Enabled = False
|
||||
ComboBox6.Enabled = False
|
||||
ComboBox7.Enabled = False
|
||||
ComboBox8.Enabled = False
|
||||
ComboBox9.Enabled = False
|
||||
ComboBox10.Enabled = False
|
||||
ComboBox11.Enabled = False
|
||||
ComboBox12.Enabled = False
|
||||
ComboBox13.Enabled = False
|
||||
ComboBox14.Enabled = False
|
||||
ComboBox15.Enabled = False
|
||||
ComboBox16.Enabled = False
|
||||
|
||||
ComboBox1.Items.Clear()
|
||||
ComboBox2.Items.Clear()
|
||||
ComboBox3.Items.Clear()
|
||||
ComboBox4.Items.Clear()
|
||||
ComboBox5.Items.Clear()
|
||||
ComboBox6.Items.Clear()
|
||||
ComboBox7.Items.Clear()
|
||||
ComboBox8.Items.Clear()
|
||||
ComboBox9.Items.Clear()
|
||||
ComboBox10.Items.Clear()
|
||||
ComboBox11.Items.Clear()
|
||||
ComboBox12.Items.Clear()
|
||||
ComboBox13.Items.Clear()
|
||||
ComboBox14.Items.Clear()
|
||||
ComboBox15.Items.Clear()
|
||||
ComboBox16.Items.Clear()
|
||||
|
||||
MsgBox("Unsupported ROM!")
|
||||
'Lets the person know the ROM isn't supported.
|
||||
End
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
If header3 = "J" Then
|
||||
MessageBox.Show("Support for this language has not been added yet!")
|
||||
End
|
||||
|
||||
Else
|
||||
|
||||
WriteHEX(LoadedROM, Offset - 1, ReverseHEX(VB.Right("0000" & Hex(Combo1.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 2, ReverseHEX(VB.Right("0000" & Hex(Combo2.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 4, ReverseHEX(VB.Right("0000" & Hex(Combo3.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 6, ReverseHEX(VB.Right("0000" & Hex(Combo4.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 8, ReverseHEX(VB.Right("0000" & Hex(Combo5.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 10, ReverseHEX(VB.Right("0000" & Hex(Combo6.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 12, ReverseHEX(VB.Right("0000" & Hex(Combo7.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 14, ReverseHEX(VB.Right("0000" & Hex(Combo8.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 16, ReverseHEX(VB.Right("0000" & Hex(Combo9.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 18, ReverseHEX(VB.Right("0000" & Hex(Combo10.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 20, ReverseHEX(VB.Right("0000" & Hex(Combo11.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 22, ReverseHEX(VB.Right("0000" & Hex(Combo12.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 24, ReverseHEX(VB.Right("0000" & Hex(Combo13.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 26, ReverseHEX(VB.Right("0000" & Hex(Combo14.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 28, ReverseHEX(VB.Right("0000" & Hex(Combo15.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 30, ReverseHEX(VB.Right("0000" & Hex(Combo16.SelectedIndex), 4)))
|
||||
|
||||
If header2 = "BPE" Then
|
||||
WriteHEX(LoadedROM, Offset - 1 + 32, ReverseHEX(VB.Right("0000" & Hex(ComboBox1.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 34, ReverseHEX(VB.Right("0000" & Hex(ComboBox2.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 36, ReverseHEX(VB.Right("0000" & Hex(ComboBox3.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 38, ReverseHEX(VB.Right("0000" & Hex(ComboBox4.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 40, ReverseHEX(VB.Right("0000" & Hex(ComboBox5.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 42, ReverseHEX(VB.Right("0000" & Hex(ComboBox6.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 44, ReverseHEX(VB.Right("0000" & Hex(ComboBox7.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 46, ReverseHEX(VB.Right("0000" & Hex(ComboBox8.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 48, ReverseHEX(VB.Right("0000" & Hex(ComboBox9.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 50, ReverseHEX(VB.Right("0000" & Hex(ComboBox10.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 52, ReverseHEX(VB.Right("0000" & Hex(ComboBox11.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 54, ReverseHEX(VB.Right("0000" & Hex(ComboBox12.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 56, ReverseHEX(VB.Right("0000" & Hex(ComboBox13.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 58, ReverseHEX(VB.Right("0000" & Hex(ComboBox14.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 60, ReverseHEX(VB.Right("0000" & Hex(ComboBox15.SelectedIndex), 4)))
|
||||
WriteHEX(LoadedROM, Offset - 1 + 62, ReverseHEX(VB.Right("0000" & Hex(ComboBox16.SelectedIndex), 4)))
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,122 @@
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MainFrm.resources
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Resources.resources
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AboutBox1.resources
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MapEdit.resources
|
||||
C:\Users\Gamer2020\Desktop\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PokedexOrderEditor.resources
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AboutBox1.resources
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MapEdit.resources
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MainFrm.resources
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Resources.resources
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PokedexOrderEditor.resources
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Henry\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AboutBox1.resources
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MapEdit.resources
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MainFrm.resources
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Resources.resources
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PokedexOrderEditor.resources
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Pokemonedit.resources
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\Desktop\Pokemon Game Editor\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AboutBox1.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MapEdit.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MainFrm.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Resources.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PointerConverter.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PokedexOrderEditor.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Pokemonedit.resources
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\Desktop\Map Editor Work\Program files\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AboutBox1.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AttackEditor.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.InputAttacks.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.JamboHackEvos.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.JamboPass.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MapEdit.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MainFrm.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Resources.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PointerConverter.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PokedexOrderEditor.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Pokemonedit.resources
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Owner\Desktop\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AbilityEdit.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AboutBox1.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AddOrRemovePrograms.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.AttackEditor.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.BattleFrontierEditor.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.InputAttacks.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.JamboHackEvos.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.JamboPass.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MapEdit.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.MainFrm.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Resources.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PointerConverter.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.PokedexOrderEditor.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.Pokemonedit.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.RSEStarterEditor.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.xml
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.pdb
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.ShadowEditor.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.ShadowPass.resources
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.TrustInfo.xml
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe.manifest
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.application
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.vbprojResolveAssemblyReference.cache
|
||||
C:\Users\Gamer2020\sources\PokemonGameEditor\GBAPokemonGameEditor\GBAPokemonGameEditor\obj\x86\Debug\GBAPokemonGameEditor.vbproj.GenerateResource.Cache
|
||||
C:\Users\Gamer2020\PokemonGameEditor\GBAPokemonGameEditor\bin\Debug\GBAPokemonGameEditor.exe.config
|
||||
Binary file not shown.
Reference in New Issue
Block a user