mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-04-17 22:16:39 -05:00
404 lines
12 KiB
VB.net
404 lines
12 KiB
VB.net
Option Strict Off
|
|
Option Explicit Off
|
|
|
|
Module GetNameFunctions
|
|
|
|
Public Function GetAbilityName(ByVal Index As Integer)
|
|
Dim offvar As Integer
|
|
Dim b As String = ""
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "AbilityNames", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim AbilityName As String = "xxxxxxxxxxxxxx"
|
|
FileGet(FileNum, AbilityName, offvar + 1 + (13 * Index))
|
|
b = Sapp2Asc(AbilityName, False)
|
|
While InStr(1, b, "\x") : b = LSet(b, Len(b) - 1) : End While
|
|
b = LSet(b, Len(b) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetAbilityName = b
|
|
End Function
|
|
|
|
Public Function GetItemName(ByVal Index As Integer)
|
|
Dim offvar As Integer
|
|
Dim b As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "ItemData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim ItemName As String = "xxxxxxxxxxxxxx"
|
|
FileGet(FileNum, ItemName, offvar + 1 + (44 * Index))
|
|
b = Sapp2Asc(ItemName, False)
|
|
While InStr(1, b, "\x") : b = LSet(b, Len(b) - 1) : End While
|
|
b = LSet(b, Len(b) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetItemName = b
|
|
End Function
|
|
|
|
Public Function GetPokemonName(ByVal Index As Integer)
|
|
Dim offvar As Integer
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "PokemonNames", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim JapPokeName As String = "xxxxxx"
|
|
FileGet(FileNum, JapPokeName, offvar + 1 + (6 * Index))
|
|
b$ = Sapp2Asc(JapPokeName, True)
|
|
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
|
b$ = LSet(b$, Len(b$) - 1)
|
|
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim PokeName As String = "xxxxxxxxxxx"
|
|
FileGet(FileNum, PokeName, offvar + 1 + (11 * Index))
|
|
b$ = Sapp2Asc(PokeName, False)
|
|
While InStr(1, b$, "\x") : b$ = LSet(b$, Len(b$) - 1) : End While
|
|
b$ = LSet(b$, Len(b$) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetPokemonName = b$
|
|
End Function
|
|
|
|
Public Function GetMapLabelName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "MapLabelData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header2 = "BPR" Or header2 = "BPG" Then
|
|
offvar = "&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offvar + (4 * Index), 4))) - &H8000000)
|
|
Else
|
|
|
|
offvar = "&H" & Hex(Val("&H" & ReverseHEX(ReadHEX(LoadedROM, offvar + (8 * Index), 4))) - &H8000000)
|
|
End If
|
|
|
|
If header3 = "J" Then
|
|
|
|
stringvar = "not supported"
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxxxxxxxxxxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetMapLabelName = stringvar
|
|
End Function
|
|
|
|
Public Function GetAttackName(ByVal Index As Integer)
|
|
Dim offvar As Integer
|
|
Dim b As String = ""
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "AttackNames", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim AttackName As String = "xxxxxxxxxxxxx"
|
|
FileGet(FileNum, AttackName, offvar + 1 + (13 * Index))
|
|
b = Sapp2Asc(AttackName, False)
|
|
While InStr(1, b, "\x") : b = LSet(b, Len(b) - 1) : End While
|
|
b = LSet(b, Len(b) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetAttackName = b
|
|
End Function
|
|
|
|
Public Function GetBattleFrontierTrainerName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "BattleFrontierTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
Else
|
|
offvar = offvar + 4 + (Index * 52)
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
End If
|
|
|
|
FileClose(FileNum)
|
|
Else
|
|
MsgBox("What did you do?")
|
|
End
|
|
End If
|
|
|
|
|
|
|
|
GetBattleFrontierTrainerName = stringvar
|
|
End Function
|
|
|
|
Public Function GetSlateportBattleTentTrainerName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
Else
|
|
offvar = offvar + 4 + (Index * 52)
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
End If
|
|
|
|
FileClose(FileNum)
|
|
Else
|
|
MsgBox("What did you do?")
|
|
End
|
|
End If
|
|
|
|
|
|
|
|
GetSlateportBattleTentTrainerName = stringvar
|
|
End Function
|
|
|
|
Public Function GetVerdanturfBattleTentTrainerName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
Else
|
|
offvar = offvar + 4 + (Index * 52)
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
End If
|
|
|
|
FileClose(FileNum)
|
|
Else
|
|
MsgBox("What did you do?")
|
|
End
|
|
End If
|
|
|
|
|
|
|
|
GetVerdanturfBattleTentTrainerName = stringvar
|
|
End Function
|
|
|
|
Public Function GetFallarborBattleTentTrainerName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header2 = "BPE" Then
|
|
If header3 = "J" Then
|
|
Else
|
|
offvar = offvar + 4 + (Index * 52)
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
End If
|
|
|
|
FileClose(FileNum)
|
|
Else
|
|
MsgBox("What did you do?")
|
|
End
|
|
End If
|
|
|
|
|
|
|
|
GetFallarborBattleTentTrainerName = stringvar
|
|
End Function
|
|
|
|
Public Function GetTrainerClass(ByVal Index As Integer)
|
|
Dim offvar As Integer
|
|
Dim b As String = ""
|
|
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TrainerClasses", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
If header3 = "J" Then
|
|
|
|
Else
|
|
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim Name As String = "xxxxxxxxxxxxx"
|
|
FileGet(FileNum, Name, offvar + 1 + (13 * Index))
|
|
b = Sapp2Asc(Name, False)
|
|
While InStr(1, b, "\x") : b = LSet(b, Len(b) - 1) : End While
|
|
b = LSet(b, Len(b) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetTrainerClass = b
|
|
End Function
|
|
|
|
Public Function GetPokedexTypeName(ByVal Index As Integer)
|
|
Dim offvar As Integer
|
|
Dim b As String = ""
|
|
|
|
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 = "xxxxxxxxxxxx"
|
|
FileGet(FileNum, PokeType, offvar + 1 + (SkipVar * Index))
|
|
b = Sapp2Asc(PokeType, False)
|
|
While InStr(1, b, "\x") : b = LSet(b, Len(b) - 1) : End While
|
|
b = LSet(b, Len(b) - 1)
|
|
|
|
|
|
End If
|
|
FileClose(FileNum)
|
|
GetPokedexTypeName = b
|
|
End Function
|
|
|
|
Public Function GetTradeNickName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TradeData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
|
|
If header3 = "J" Then
|
|
Else
|
|
offvar = offvar + 0 + (Index * 60)
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
End If
|
|
|
|
FileClose(FileNum)
|
|
|
|
|
|
|
|
GetTradeNickName = stringvar
|
|
End Function
|
|
|
|
Public Function GetTradeOTName(ByVal Index As Integer) As String
|
|
Dim offvar As Integer
|
|
Dim stringvar As String = ""
|
|
offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "TradeData", "")), System.Globalization.NumberStyles.HexNumber)
|
|
|
|
|
|
If header3 = "J" Then
|
|
Else
|
|
offvar = offvar + 43 + (Index * 60)
|
|
FileNum = FreeFile()
|
|
FileOpen(FileNum, LoadedROM, OpenMode.Binary)
|
|
Dim LabelName As String = "xxxxxxxx"
|
|
|
|
|
|
|
|
FileGet(FileNum, LabelName, offvar + 1)
|
|
stringvar = Sapp2Asc(LabelName, False)
|
|
While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
|
|
stringvar = LSet(stringvar, Len(stringvar) - 1)
|
|
|
|
End If
|
|
|
|
FileClose(FileNum)
|
|
|
|
|
|
|
|
GetTradeOTName = stringvar
|
|
End Function
|
|
End Module
|