Leahnaya/PokemonGameEditor
1
0
Fork 0
mirror of https://github.com/Gamer2020/PokemonGameEditor.git synced 2026-09-11 12:05:10 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Trade editor!

Browse Source 
Added a basic trade editor. I will come back and improve it.
This commit is contained in:
Gamer2020
2016-04-07 19:18:02 -04:00
parent af33bda87c
commit d44cb261c1
27 changed files with 1434 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
GBAPokemonGameEditor/GetNameFunctions.vb
View File

@@ -342,4 +342,62 @@ Module GetNameFunctions
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