Leahnaya/PokemonGameEditor
1
0
Fork 0
mirror of https://github.com/Gamer2020/PokemonGameEditor.git synced 2026-08-22 10:24:24 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Pokedex Data editor improved!

Browse Source 
You can now edit the descriptions in the Pokemon Dara editor!
This commit is contained in:
Gamer2020
2016-01-25 00:06:54 -05:00
parent 906b77a62b
commit 6ce2fd178d
16 changed files with 369 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/GBAPokemonGameEditor/v14/.suo
View File

Binary file not shown.

36
GBAPokemonGameEditor/PokedexDataEditor.Designer.vb generated
View File

@@ -59,6 +59,8 @@ Partial Class PokedexDataEditor
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.GroupBox3.SuspendLayout()
@@ -104,6 +106,8 @@ Partial Class PokedexDataEditor
'
'GroupBox6
'
Me.GroupBox6.Controls.Add(Me.Label2)
Me.GroupBox6.Controls.Add(Me.Label1)
Me.GroupBox6.Controls.Add(Me.Button4)
Me.GroupBox6.Controls.Add(Me.Description2)
Me.GroupBox6.Controls.Add(Me.Description1)
@@ -113,13 +117,12 @@ Partial Class PokedexDataEditor
Me.GroupBox6.Controls.Add(Me.Label6)
Me.GroupBox6.Location = New System.Drawing.Point(237, 170)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(348, 157)
Me.GroupBox6.Size = New System.Drawing.Size(387, 262)
Me.GroupBox6.TabIndex = 17
Me.GroupBox6.TabStop = False
'
'Button4
'
Me.Button4.Enabled = False
Me.Button4.Location = New System.Drawing.Point(9, 123)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(95, 24)
@@ -129,11 +132,11 @@ Partial Class PokedexDataEditor
'
'Description2
'
Me.Description2.Location = New System.Drawing.Point(110, 86)
Me.Description2.Location = New System.Drawing.Point(110, 144)
Me.Description2.Multiline = True
Me.Description2.Name = "Description2"
Me.Description2.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.Description2.Size = New System.Drawing.Size(217, 61)
Me.Description2.Size = New System.Drawing.Size(261, 81)
Me.Description2.TabIndex = 5
Me.Description2.WordWrap = False
'
@@ -143,13 +146,12 @@ Partial Class PokedexDataEditor
Me.Description1.Multiline = True
Me.Description1.Name = "Description1"
Me.Description1.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.Description1.Size = New System.Drawing.Size(217, 61)
Me.Description1.Size = New System.Drawing.Size(261, 81)
Me.Description1.TabIndex = 4
Me.Description1.WordWrap = False
'
'Button1
'
Me.Button1.Enabled = False
Me.Button1.Location = New System.Drawing.Point(9, 93)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(95, 24)
@@ -404,11 +406,29 @@ Partial Class PokedexDataEditor
Me.Button3.Text = "Save"
Me.Button3.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(110, 104)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(43, 13)
Me.Label1.TabIndex = 7
Me.Label1.Text = "Length:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(110, 228)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Length:"
'
'PokedexDataEditor
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(597, 347)
Me.ClientSize = New System.Drawing.Size(633, 444)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.GroupBox6)
Me.Controls.Add(Me.GroupBox3)
@@ -467,4 +487,6 @@ Partial Class PokedexDataEditor
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Offset_1 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
End Class

355
GBAPokemonGameEditor/PokedexDataEditor.vb
View File

@@ -3,12 +3,16 @@ Option Explicit Off
Imports VB = Microsoft.VisualBasic
Public Class PokedexDataEditor
Dim offset1 As Integer
Dim DexDescripLength1 As Integer
Dim DexDescripLength2 As Integer
Private Sub PokedexDataEditor_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
End Sub
Private Sub EnglishRSDescpLoad()
Description1.Text = ""
Description2.Text = ""
FileNum = FreeFile()
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
@@ -19,8 +23,11 @@ Public Class PokedexDataEditor
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
DexDescp = Replace(DexDescp, "\n", vbCrLf)
DexDescp = Replace(RTrim$(DexDescp), "\", "")
DexDescripLength1 = Len(DexDescp)
Description1.Text = DexDescp
Description1.MaxLength = Len(DexDescp)
' Description1.MaxLength = Len(DexDescp)
DexDescp = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@@ -29,14 +36,20 @@ Public Class PokedexDataEditor
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
DexDescp = Replace(DexDescp, "\n", vbCrLf)
DexDescp = Replace(RTrim$(DexDescp), "\", "")
DexDescripLength2 = Len(DexDescp)
Description2.Text = DexDescp
Description2.MaxLength = Len(DexDescp)
'Description2.MaxLength = Len(DexDescp)
FileClose(FileNum)
End Sub
Private Sub EnglishFRLGEDescpLoad()
Description1.Text = ""
Description2.Text = ""
FileNum = FreeFile()
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
@@ -47,8 +60,11 @@ Public Class PokedexDataEditor
DexDescp = Mid$(DexDescp, 1, InStr(1, DexDescp, "\x"))
DexDescp = Replace(DexDescp, "\n", vbCrLf)
DexDescp = Replace(RTrim$(DexDescp), "\", "")
DexDescripLength1 = Len(DexDescp)
Description1.Text = DexDescp
Description1.MaxLength = Len(DexDescp)
' Description1.MaxLength = Len(DexDescp)
FileClose(FileNum)
End Sub
@@ -155,40 +171,42 @@ Public Class PokedexDataEditor
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
i = ListBox1.SelectedIndex
Dim indexbuff As Integer = ListBox1.SelectedIndex
offset1 = Int32.Parse((GetString(GetINIFileLocation(), header, "PokedexData", "")), System.Globalization.NumberStyles.HexNumber)
If header2 = "AXP" Or header2 = "AXV" Then
WriteHEX(LoadedROM, offset1 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Hght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 2 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Wght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 14 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 16 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 18 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 20 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Hght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 2 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Wght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 14 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 16 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 18 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 20 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_2.Text), 4)))
ElseIf header2 = "BPR" Or header2 = "BPG" Then
WriteHEX(LoadedROM, offset1 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Hght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 2 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Wght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 14 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 16 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 18 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 20 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Hght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 2 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Wght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 14 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 16 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 18 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 20 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_2.Text), 4)))
ElseIf header2 = "BPE" Then
WriteHEX(LoadedROM, offset1 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Hght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 2 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Wght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 10 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 12 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 14 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 16 + 12 + (i * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Hght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 2 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Wght.Text), 4)))
WriteHEX(LoadedROM, offset1 + 10 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 12 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_1.Text), 4)))
WriteHEX(LoadedROM, offset1 + 14 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Scale2.Text), 4)))
WriteHEX(LoadedROM, offset1 + 16 + 12 + (indexbuff * SkipVar), ReverseHEX(VB.Right("0000" & Hex(Offset_2.Text), 4)))
End If
ChangePokedexTypeName(i, Type1.Text)
ChangePokedexTypeName(indexbuff, Type1.Text)
ListBox1.Items.Clear()
@@ -200,14 +218,303 @@ Public Class PokedexDataEditor
ListBox1.Items.Add(VB.Right("0000" & (varloop), 4) & ". " & GetPokedexTypeName(varloop))
varloop = varloop + 1
End While
ListBox1.SelectedIndex = 1
ListBox1.SelectedIndex = indexbuff
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim indexbuff As Integer = ListBox1.SelectedIndex
If header3 = "J" Then
If header2 = "AXP" Or header2 = "AXV" Then
MessageBox.Show("Support for this language has not been added yet!")
End
ElseIf header2 = "BPR" Or header2 = "BPG" Then
MessageBox.Show("Support for this language has not been added yet!")
End
ElseIf header2 = "BPE" Then
MessageBox.Show("Support for this language has not been added yet!")
End
End If
Else
If header2 = "AXP" Or header2 = "AXV" Then
WriteHEX(LoadedROM, offset1 + 4 + 12 + (indexbuff * SkipVar), ReverseHEX(Hex(Val("&H" & (VB.Right("000000" & (Pointer1.Text), 6))) + &H8000000)))
WriteHEX(LoadedROM, offset1 + 8 + 12 + (indexbuff * SkipVar), ReverseHEX(Hex(Val("&H" & (VB.Right("000000" & (Pointer2.Text), 6))) + &H8000000)))
EnglishRSDescpLoad()
ElseIf header2 = "BPR" Or header2 = "BPG" Then
WriteHEX(LoadedROM, offset1 + 4 + 12 + (indexbuff * SkipVar), ReverseHEX(Hex(Val("&H" & (VB.Right("000000" & (Pointer1.Text), 6))) + &H8000000)))
EnglishFRLGEDescpLoad()
ElseIf header2 = "BPE" Then
WriteHEX(LoadedROM, offset1 + 4 + 12 + (indexbuff * SkipVar), ReverseHEX(Hex(Val("&H" & (VB.Right("000000" & (Pointer1.Text), 6))) + &H8000000)))
EnglishFRLGEDescpLoad()
End If
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim indexbuff As Integer = ListBox1.SelectedIndex
Dim Y As String
Dim Var1 As String
Dim Var2 As String
Dim filler As Byte = &H0
If header2 = "AXP" Or header2 = "AXV" Then
If DexDescripLength1 < Len(Description1.Text) Then
Dim resultR As DialogResult = MessageBox.Show("The text for the first box will be written to free space and the pointer will be repointed. Would you like to do that?",
"Repoint?",
MessageBoxButtons.YesNo)
If (resultR = DialogResult.Yes) Then
Y = Asc2Sapp(Replace(Description1.Text, vbCrLf, "\n") & "\x")
Var1 = SearchFreeSpaceFourAligned(LoadedROM, &HFF, (Len(Y & " ")), "&H" & GetString(GetINIFileLocation(), header, "StartSearchingForSpaceOffset", "800000"))
FileNum = FreeFile()
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
FilePut(FileNum, Y & " ", "&H" & Hex(Var1 + 1), False)
FileClose(FileNum)
Pointer1.Text = Hex(Var1)
Label1.Text = "Length: " & Len(Description1.Text) & "/" & DexDescripLength1
Label1.ForeColor = Color.Black
If Len(Description1.Text) > DexDescripLength1 Then
Label1.Text = Label1.Text & " Requires repoint!"
Label1.ForeColor = Color.Red
End If
End If
Else
FileNum = FreeFile()
Var1 = ("&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offset1 + 4 + 12 + (indexbuff * SkipVar), 4))) - &H8000000)) + 1
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
Y = Asc2Sapp(Replace(Description1.Text, vbCrLf, "\n") & "\x")
FilePut(FileNum, Y, Var1, False)
FileClose(FileNum)
End If
If DexDescripLength2 < Len(Description2.Text) Then
Dim resultR2 As DialogResult = MessageBox.Show("The text for the second box will be written to free space and the pointer will be repointed. Would you like to do that?",
"Repoint?",
MessageBoxButtons.YesNo)
If (resultR2 = DialogResult.Yes) Then
Y = Asc2Sapp(Replace(Description2.Text, vbCrLf, "\n") & "\x")
Var2 = SearchFreeSpaceFourAligned(LoadedROM, &HFF, (Len(Y & " ")), "&H" & GetString(GetINIFileLocation(), header, "StartSearchingForSpaceOffset", "800000"))
FileNum = FreeFile()
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
FilePut(FileNum, Y & " ", "&H" & Hex(Var2 + 1), False)
FileClose(FileNum)
Pointer2.Text = Hex(Var2)
Label2.Text = "Length: " & Len(Description2.Text) & "/" & DexDescripLength2
Label2.ForeColor = Color.Black
If Len(Description2.Text) > DexDescripLength2 Then
Label2.Text = Label2.Text & " Requires repoint!"
Label2.ForeColor = Color.Red
End If
End If
Else
FileNum = FreeFile()
Var2 = ("&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offset1 + 8 + 12 + (indexbuff * SkipVar), 4))) - &H8000000)) + 1
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
Y = Asc2Sapp(Replace(Description2.Text, vbCrLf, "\n") & "\x")
FilePut(FileNum, Y, Var2, False)
FileClose(FileNum)
End If
Button1.PerformClick()
ElseIf header2 = "BPR" Or header2 = "BPG" Then
If DexDescripLength1 < Len(Description1.Text) Then
Dim resultBPR As DialogResult = MessageBox.Show("The text will be written to free space and the pointer will be repointed. Would you like to do that?",
"Repoint?",
MessageBoxButtons.YesNo)
If (resultBPR = DialogResult.Yes) Then
Y = Asc2Sapp(Replace(Description1.Text, vbCrLf, "\n") & "\x")
Var1 = SearchFreeSpaceFourAligned(LoadedROM, &HFF, (Len(Y & " ")), "&H" & GetString(GetINIFileLocation(), header, "StartSearchingForSpaceOffset", "800000"))
FileNum = FreeFile()
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
FilePut(FileNum, Y & " ", "&H" & Hex(Var1 + 1), False)
FileClose(FileNum)
Pointer1.Text = Hex(Var1)
Button1.PerformClick()
Label1.Text = "Length: " & Len(Description1.Text) & "/" & DexDescripLength1
Label1.ForeColor = Color.Black
If Len(Description1.Text) > DexDescripLength1 Then
Label1.Text = Label1.Text & " Requires repoint!"
Label1.ForeColor = Color.Red
End If
End If
Else
FileNum = FreeFile()
Var1 = ("&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offset1 + 4 + 12 + (indexbuff * SkipVar), 4))) - &H8000000)) + 1
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
Y = Asc2Sapp(Replace(Description1.Text, vbCrLf, "\n") & "\x")
FilePut(FileNum, Y, Var1, False)
FileClose(FileNum)
End If
ElseIf header2 = "BPE" Then
If DexDescripLength1 < Len(Description1.Text) Then
Dim resultBPE As DialogResult = MessageBox.Show("The text will be written to free space and the pointer will be repointed. Would you like to do that?",
"Repoint?",
MessageBoxButtons.YesNo)
If (resultBPE = DialogResult.Yes) Then
Y = Asc2Sapp(Replace(Description1.Text, vbCrLf, "\n") & "\x")
Var1 = SearchFreeSpaceFourAligned(LoadedROM, &HFF, (Len(Y & " ")), "&H" & GetString(GetINIFileLocation(), header, "StartSearchingForSpaceOffset", "800000"))
FileNum = FreeFile()
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
FilePut(FileNum, Y & " ", "&H" & Hex(Var1 + 1), False)
FileClose(FileNum)
Pointer1.Text = Hex(Var1)
Button1.PerformClick()
Label1.Text = "Length: " & Len(Description1.Text) & "/" & DexDescripLength1
Label1.ForeColor = Color.Black
If Len(Description1.Text) > DexDescripLength1 Then
Label1.Text = Label1.Text & " Requires repoint!"
Label1.ForeColor = Color.Red
End If
End If
Else
FileNum = FreeFile()
Var1 = ("&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offset1 + 4 + 12 + (indexbuff * SkipVar), 4))) - &H8000000)) + 1
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
Y = Asc2Sapp(Replace(Description1.Text, vbCrLf, "\n") & "\x")
FilePut(FileNum, Y, Var1, False)
FileClose(FileNum)
End If
End If
End Sub
Private Sub Description1_TextChanged(sender As Object, e As EventArgs) Handles Description1.TextChanged
Label1.Text = "Length: " & Len(Description1.Text) & "/" & DexDescripLength1
Label1.ForeColor = Color.Black
If Len(Description1.Text) > DexDescripLength1 Then
Label1.Text = Label1.Text & " Requires repoint!"
Label1.ForeColor = Color.Red
End If
End Sub
Private Sub Description2_TextChanged(sender As Object, e As EventArgs) Handles Description2.TextChanged
Label2.Text = "Length: " & Len(Description2.Text) & "/" & DexDescripLength2
Label2.ForeColor = Color.Black
If Len(Description2.Text) > DexDescripLength2 Then
Label2.Text = Label2.Text & " Requires repoint!"
Label2.ForeColor = Color.Red
End If
End Sub
End Class

2
GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application
View File

@@ -16,7 +16,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>eeix/XNm/75UjBZUSC4PG7KtJJc=</dsig:DigestValue>
<dsig:DigestValue>KCm6IVPtpwPGiZHbxzn/crEcBsE=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

BIN
GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe
View File

Binary file not shown.

4
GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest
View File

@@ -43,14 +43,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="1462784">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="1468416">
<assemblyIdentity name="PokemonGameEditor" version="3.3.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>jvsSD/+8xa66jZyMoocFI2ZoJWU=</dsig:DigestValue>
<dsig:DigestValue>xnces9SFD/9C7+QwCSpF4Sv/bhQ=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

BIN
GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb
View File

Binary file not shown.

2
GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application
View File

@@ -16,7 +16,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>eeix/XNm/75UjBZUSC4PG7KtJJc=</dsig:DigestValue>
<dsig:DigestValue>KCm6IVPtpwPGiZHbxzn/crEcBsE=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

4
GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest
View File

@@ -43,14 +43,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="1462784">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="1468416">
<assemblyIdentity name="PokemonGameEditor" version="3.3.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>jvsSD/+8xa66jZyMoocFI2ZoJWU=</dsig:DigestValue>
<dsig:DigestValue>xnces9SFD/9C7+QwCSpF4Sv/bhQ=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

BIN
GBAPokemonGameEditor/bin/Debug/app.publish/PokemonGameEditor.exe
View File

Binary file not shown.

BIN
GBAPokemonGameEditor/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache
View File

Binary file not shown.

2
GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application
View File

@@ -16,7 +16,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>eeix/XNm/75UjBZUSC4PG7KtJJc=</dsig:DigestValue>
<dsig:DigestValue>KCm6IVPtpwPGiZHbxzn/crEcBsE=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

BIN
GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe
View File

Binary file not shown.

4
GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest
View File

@@ -43,14 +43,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="1462784">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PokemonGameEditor.exe" size="1468416">
<assemblyIdentity name="PokemonGameEditor" version="3.3.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>jvsSD/+8xa66jZyMoocFI2ZoJWU=</dsig:DigestValue>
<dsig:DigestValue>xnces9SFD/9C7+QwCSpF4Sv/bhQ=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

BIN
GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb
View File

Binary file not shown.