tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-25 14:54:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

replace [] with «» for output/input of pokemon data

Browse Source
This commit is contained in:
darkfire006 2019-10-06 22:24:08 -05:00
parent efa001061f
commit e13fce85b0
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -33,7 +33,7 @@
argument = argument.Remove(0, argument.IndexOf("{")) argument = argument.Remove(0, argument.IndexOf("{"))
Dim p As Pokemon = Pokemon.GetPokemonByData(argument.Replace("§", ",")) Dim p As Pokemon = Pokemon.GetPokemonByData(argument.Replace("§", ",").Replace("«", "[").Replace("»", "]"))
Core.Player.Pokemons.Insert(insertIndex, p) Core.Player.Pokemons.Insert(insertIndex, p)
Dim pokedexType As Integer = 2 Dim pokedexType As Integer = 2
@ -710,7 +710,7 @@
argument = argument.Remove(0, argument.IndexOf("{")) argument = argument.Remove(0, argument.IndexOf("{"))
Dim p As Pokemon = Pokemon.GetPokemonByData(argument.Replace("§", ",")) Dim p As Pokemon = Pokemon.GetPokemonByData(argument.Replace("§", ",").Replace("«", "[").Replace("»", "]"))
StorageSystemScreen.DepositPokemon(p, insertIndex) StorageSystemScreen.DepositPokemon(p, insertIndex)
Dim pokedexType As Integer = 2 Dim pokedexType As Integer = 2

8
P3D/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb
View File

@ -16,7 +16,7 @@
Return Core.Player.Pokemons(index).Number Return Core.Player.Pokemons(index).Number
Case "data" Case "data"
Dim index As Integer = int(argument.GetSplit(0)) Dim index As Integer = int(argument.GetSplit(0))
Return Core.Player.Pokemons(index).GetSaveData().Replace(",", "§") Return Core.Player.Pokemons(index).GetSaveData().Replace(",", "§").Replace("[", "«").Replace("]", "»")
Case "level" Case "level"
Dim index As Integer = int(argument.GetSplit(0)) Dim index As Integer = int(argument.GetSplit(0))
Return Core.Player.Pokemons(index).Level Return Core.Player.Pokemons(index).Level
@ -274,16 +274,16 @@
Next Next
End If End If
Return FrontierSpawner.GetPokemon(level, pokemon_class, IDPreset).GetSaveData().Replace(",", "§") Return FrontierSpawner.GetPokemon(level, pokemon_class, IDPreset).GetSaveData().Replace(",", "§").Replace("[", "«").Replace("]", "»")
Case "spawnwild" Case "spawnwild"
Return Spawner.GetPokemon(Screen.Level.LevelFile, CType(int(argument), Spawner.EncounterMethods)).GetSaveData().Replace(",", "§") Return Spawner.GetPokemon(Screen.Level.LevelFile, CType(int(argument), Spawner.EncounterMethods)).GetSaveData().Replace(",", "§").Replace("[", "«").Replace("]", "»")
Case "spawn" Case "spawn"
Dim ID As Integer = int(argument.GetSplit(0)) Dim ID As Integer = int(argument.GetSplit(0))
Dim level As Integer = int(argument.GetSplit(1)) Dim level As Integer = int(argument.GetSplit(1))
Dim p As Pokemon = Pokemon.GetPokemonByID(ID) Dim p As Pokemon = Pokemon.GetPokemonByID(ID)
p.Generate(level, True) p.Generate(level, True)
Return p.GetSaveData().Replace(",", "§") Return p.GetSaveData().Replace(",", "§").Replace("[", "«").Replace("]", "»")
Case "otmatch" Case "otmatch"
' Arguments: has: returns boolean, ID: returns Pokédex number, Name: returns name, maxhits: returns the maximum number of equal chars. ' Arguments: has: returns boolean, ID: returns Pokédex number, Name: returns name, maxhits: returns the maximum number of equal chars.