mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-07-16 16:49:32 -05:00
44ed51532c
You can now have an ini that is separate from your Roms.ini! This is good for working with multiple roms since you wont have to edit the Roms.ini every time. All you need to do is have an ini with the same name as the ROM in the same folder. Example: FireRed.gba FireRed.ini
49 lines
2.0 KiB
VB.net
49 lines
2.0 KiB
VB.net
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
|
|
|
|
Offset1 = Int32.Parse((GetString(GetINIFileLocation(), header, "NationalDexTable", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
Offset2 = Int32.Parse((GetString(GetINIFileLocation(), header, "SecondDexTable", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
Dim LoopVar As Integer
|
|
|
|
ListBox1.Items.Clear()
|
|
|
|
LoopVar = 0
|
|
|
|
While LoopVar < (GetString(GetINIFileLocation(), 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 |