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

Cry Standardization

Browse Source 
I used to have 'cry import all' import to the index numbers of my personal rom. It should now imports index numbers 1 to 1.
This commit is contained in:
Dreuu 2018-11-27 21:36:29 -05:00
parent 4befdc87cd
commit ba460c9019
3 changed files with 19 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

24
GBAPokemonGameEditor/Pokemonedit.Designer.vb generated
View File

@ -44,6 +44,7 @@ Partial Class Pokemonedit
Me.Button5 = New System.Windows.Forms.Button()
Me.FootPrintPointer = New System.Windows.Forms.TextBox()
Me.GroupBox16 = New System.Windows.Forms.GroupBox()
Me.Label61 = New System.Windows.Forms.Label()
Me.Button40 = New System.Windows.Forms.Button()
Me.Button22 = New System.Windows.Forms.Button()
Me.Button21 = New System.Windows.Forms.Button()
@ -286,7 +287,6 @@ Partial Class Pokemonedit
Me.Button39 = New System.Windows.Forms.Button()
Me.Button41 = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Label61 = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox26.SuspendLayout()
@ -601,6 +601,17 @@ Partial Class Pokemonedit
Me.GroupBox16.TabStop = False
Me.GroupBox16.Text = "Icons"
'
'Label61
'
Me.Label61.AutoSize = True
Me.Label61.ForeColor = System.Drawing.Color.Crimson
Me.Label61.Location = New System.Drawing.Point(18, 119)
Me.Label61.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label61.Name = "Label61"
Me.Label61.Size = New System.Drawing.Size(97, 20)
Me.Label61.TabIndex = 13
Me.Label61.Text = "Invalid Pal#: "
'
'Button40
'
Me.Button40.Location = New System.Drawing.Point(118, 195)
@ -3162,17 +3173,6 @@ Partial Class Pokemonedit
Me.CheckBox1.Text = "Efficient Imports"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Label61
'
Me.Label61.AutoSize = True
Me.Label61.ForeColor = System.Drawing.Color.Crimson
Me.Label61.Location = New System.Drawing.Point(27, 119)
Me.Label61.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label61.Name = "Label61"
Me.Label61.Size = New System.Drawing.Size(97, 20)
Me.Label61.TabIndex = 13
Me.Label61.Text = "Invalid Pal#: "
'
'Pokemonedit
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)

34
GBAPokemonGameEditor/Pokemonedit.vb
View File

@ -4217,8 +4217,6 @@ Public Class Pokemonedit
Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
FolderBrowserDialog.Description = "Select folder to import cries from:"
If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.Text = "Please wait..."
Me.UseWaitCursor = True
@ -4227,7 +4225,7 @@ Public Class Pokemonedit
Dim LoopVar As Integer
LoopVar = 440
LoopVar = 1 'Might need to be zero
Me.Enabled = False
@ -4235,32 +4233,9 @@ Public Class Pokemonedit
'CryTable2 = Int32.Parse((GetString(GetINIFileLocation(), header, "CryConversionTable", "")), System.Globalization.NumberStyles.HexNumber)
CryTable3 = Int32.Parse((GetString(GetINIFileLocation(), header, "CryTable2", "")), System.Globalization.NumberStyles.HexNumber)
While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfPokemon", "")) - 1 And 439 < LoopVar And 861 > LoopVar = True
While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfPokemon", "")) - 1 = True
'PKMNames.SelectedIndex = LoopVar
Dim convNum As Integer = LoopVar - 53
Dim validFiles As String() = GetFiles(FolderBrowserDialog.SelectedPath, "*" & convNum & "*")
If validFiles.Count > 0 Then
crynorm = New Cry With {
.Index = LoopVar
}
crynorm = ImportCry(validFiles(0), crynorm)
SaveCryNoPrompt(crynorm, CryTable, CryTable3)
End If
LoopVar = LoopVar + 1
ProgressBar.Value = (LoopVar / (GetString(GetINIFileLocation(), header, "NumberOfPokemon", ""))) * 100
QuickRefresh(ProgressBar)
End While
LoopVar = 880
While LoopVar < (GetString(GetINIFileLocation(), header, "NumberOfPokemon", "")) - 1 And 439 < LoopVar = True
Dim validFiles As String() = GetFiles(FolderBrowserDialog.SelectedPath, "*" & LoopVar & "*")
If validFiles.Count > 0 Then
@ -4281,6 +4256,11 @@ Public Class Pokemonedit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim convMons As New List(Of String)
'Sets the cry conversion number of mons in Conversions.txt
'Cry conversion number reuses the cry of one Mon for another, to save space
'Conversions.txt is just a list of x=y numbers
'Ex: set alolan muk's cry to be the same as regular muk's, assuming Mon 1024 is your alolan muk
'1024=89
If IO.File.Exists(FolderBrowserDialog.SelectedPath & "\Conversions.txt") Then
convMons.AddRange(IO.File.ReadLines(FolderBrowserDialog.SelectedPath & "\Conversions.txt"))