mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-05-27 19:08:05 -05:00
adc0696c32
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.
30 lines
986 B
VB.net
30 lines
986 B
VB.net
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 |