diff --git a/.vs/GBAPokemonGameEditor/v14/.suo b/.vs/GBAPokemonGameEditor/v14/.suo index c65557f..f70eb48 100644 Binary files a/.vs/GBAPokemonGameEditor/v14/.suo and b/.vs/GBAPokemonGameEditor/v14/.suo differ diff --git a/GBAPokemonGameEditor/PokedexDataEditor.Designer.vb b/GBAPokemonGameEditor/PokedexDataEditor.Designer.vb index e6063c1..9f0a94d 100644 --- a/GBAPokemonGameEditor/PokedexDataEditor.Designer.vb +++ b/GBAPokemonGameEditor/PokedexDataEditor.Designer.vb @@ -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 diff --git a/GBAPokemonGameEditor/PokedexDataEditor.vb b/GBAPokemonGameEditor/PokedexDataEditor.vb index 6a5048a..6b2133f 100644 --- a/GBAPokemonGameEditor/PokedexDataEditor.vb +++ b/GBAPokemonGameEditor/PokedexDataEditor.vb @@ -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 \ No newline at end of file diff --git a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application index 29ef084..544e1bd 100644 --- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application +++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.application @@ -16,7 +16,7 @@ - eeix/XNm/75UjBZUSC4PG7KtJJc= + KCm6IVPtpwPGiZHbxzn/crEcBsE= diff --git a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe index 0f9ae6a..e194ac3 100644 Binary files a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe and b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe differ diff --git a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest index f6a6bcd..9d86e03 100644 --- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest +++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.exe.manifest @@ -43,14 +43,14 @@ - + - jvsSD/+8xa66jZyMoocFI2ZoJWU= + xnces9SFD/9C7+QwCSpF4Sv/bhQ= diff --git a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb index 8ffe4af..32833f9 100644 Binary files a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb and b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.pdb differ diff --git a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application index 29ef084..544e1bd 100644 --- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application +++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.application @@ -16,7 +16,7 @@ - eeix/XNm/75UjBZUSC4PG7KtJJc= + KCm6IVPtpwPGiZHbxzn/crEcBsE= diff --git a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest index f6a6bcd..9d86e03 100644 --- a/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest +++ b/GBAPokemonGameEditor/bin/Debug/PokemonGameEditor.vshost.exe.manifest @@ -43,14 +43,14 @@ - + - jvsSD/+8xa66jZyMoocFI2ZoJWU= + xnces9SFD/9C7+QwCSpF4Sv/bhQ= diff --git a/GBAPokemonGameEditor/bin/Debug/app.publish/PokemonGameEditor.exe b/GBAPokemonGameEditor/bin/Debug/app.publish/PokemonGameEditor.exe index 0f9ae6a..e194ac3 100644 Binary files a/GBAPokemonGameEditor/bin/Debug/app.publish/PokemonGameEditor.exe and b/GBAPokemonGameEditor/bin/Debug/app.publish/PokemonGameEditor.exe differ diff --git a/GBAPokemonGameEditor/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache b/GBAPokemonGameEditor/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache index 9c40fb6..9c63a80 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache and b/GBAPokemonGameEditor/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache index cad7b40..ce2522b 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache and b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache differ diff --git a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application index 29ef084..544e1bd 100644 --- a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application +++ b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.application @@ -16,7 +16,7 @@ - eeix/XNm/75UjBZUSC4PG7KtJJc= + KCm6IVPtpwPGiZHbxzn/crEcBsE= diff --git a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe index 0f9ae6a..e194ac3 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe and b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe differ diff --git a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest index f6a6bcd..9d86e03 100644 --- a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest +++ b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.exe.manifest @@ -43,14 +43,14 @@ - + - jvsSD/+8xa66jZyMoocFI2ZoJWU= + xnces9SFD/9C7+QwCSpF4Sv/bhQ= diff --git a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb index 8ffe4af..32833f9 100644 Binary files a/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb and b/GBAPokemonGameEditor/obj/x86/Debug/PokemonGameEditor.pdb differ