mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-05-09 04:41:18 -05:00
295 lines
9.8 KiB
VB.net
295 lines
9.8 KiB
VB.net
Option Strict Off
|
|
Option Explicit Off
|
|
|
|
Module ChangeNameFunctions
|
|
|
|
Public Function ChangePokedexTypeName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "PokedexData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
If header2 = "AXP" Or header2 = "AXV" Then
|
|
SkipVar = "36"
|
|
ElseIf header2 = "BPR" Or header2 = "BPG" Then
|
|
SkipVar = "36"
|
|
ElseIf header2 = "BPE" Then
|
|
SkipVar = "32"
|
|
End If
|
|
|
|
Else
|
|
If header2 = "AXP" Or header2 = "AXV" Then
|
|
SkipVar = "36"
|
|
ElseIf header2 = "BPR" Or header2 = "BPG" Then
|
|
SkipVar = "36"
|
|
ElseIf header2 = "BPE" Then
|
|
SkipVar = "32"
|
|
End If
|
|
End If
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeType As String = "xxxxxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeType = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeType, offvar + 1 + (SkipVar * Index))
|
|
FilePut(FileNum, filler, offvar + 1 + (SkipVar * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangePokedexTypeName = NewName
|
|
End Function
|
|
Public Function ChangePokemonName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "PokemonNames", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + (11 * Index))
|
|
FilePut(FileNum, filler, offvar + 1 + (11 * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangePokemonName = NewName
|
|
End Function
|
|
|
|
Public Function ChangeAttackName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Integer
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "AttackNames", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + (13 * Index))
|
|
FilePut(FileNum, filler, offvar + 1 + (13 * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeAttackName = NewName
|
|
End Function
|
|
|
|
Public Function ChangeAbilityName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "AbilityNames", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + (13 * Index))
|
|
FilePut(FileNum, filler, offvar + 1 + (13 * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeAbilityName = NewName
|
|
End Function
|
|
|
|
Public Function ChangeItemName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "ItemData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + (44 * Index))
|
|
FilePut(FileNum, filler, offvar + 1 + (44 * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeItemName = NewName
|
|
End Function
|
|
|
|
Public Function ChangeBattleFrontierTrainerName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
|
|
FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeBattleFrontierTrainerName = NewName
|
|
Else
|
|
MsgBox("What did you do? Contact Gamer2020")
|
|
End
|
|
End If
|
|
End Function
|
|
|
|
Public Function ChangeSlateportBattleTentName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
|
|
FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeSlateportBattleTentName = NewName
|
|
Else
|
|
MsgBox("What did you do? Contact Gamer2020")
|
|
End
|
|
End If
|
|
End Function
|
|
|
|
Public Function ChangeVerdanturfBattleTentName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
|
|
FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeVerdanturfBattleTentName = NewName
|
|
Else
|
|
MsgBox("What did you do? Contact Gamer2020")
|
|
End
|
|
End If
|
|
End Function
|
|
|
|
Public Function ChangeFallarborBattleTentName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Long
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
|
|
FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeFallarborBattleTentName = NewName
|
|
Else
|
|
MsgBox("What did you do? Contact Gamer2020")
|
|
End
|
|
End If
|
|
End Function
|
|
|
|
Public Function ChangeTradeNickName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Integer
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TradeData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 1 + (60 * Index))
|
|
FilePut(FileNum, filler, offvar + 1 + (60 * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeTradeNickName = NewName
|
|
End Function
|
|
|
|
Public Function ChangeTradeOTName(ByVal Index As Integer, ByVal NewName As String)
|
|
Dim offvar As Integer
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TradeData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxx"
|
|
Dim filler As Byte = "&HFF"
|
|
PokeName = NameAsc2Sapp(NewName)
|
|
FilePut(FileNum, PokeName, offvar + 43 + 1 + (60 * Index))
|
|
FilePut(FileNum, filler, offvar + 43 + 1 + (60 * Index) + Len(NewName))
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
ChangeTradeOTName = NewName
|
|
End Function
|
|
|
|
End Module
|