tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

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("{"))
Dim p As Pokemon = Pokemon.GetPokemonByData(argument.Replace("§", ","))
Dim p As Pokemon = Pokemon.GetPokemonByData(argument.Replace("§", ",").Replace("«", "[").Replace("»", "]"))
Core.Player.Pokemons.Insert(insertIndex, p)
Dim pokedexType As Integer = 2
@ -710,7 +710,7 @@
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)
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
Case "data"
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"
Dim index As Integer = int(argument.GetSplit(0))
Return Core.Player.Pokemons(index).Level
@ -274,16 +274,16 @@
Next
End If
Return FrontierSpawner.GetPokemon(level, pokemon_class, IDPreset).GetSaveData().Replace(",", "§")
Return FrontierSpawner.GetPokemon(level, pokemon_class, IDPreset).GetSaveData().Replace(",", "§").Replace("[", "«").Replace("]", "»")
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"
Dim ID As Integer = int(argument.GetSplit(0))
Dim level As Integer = int(argument.GetSplit(1))
Dim p As Pokemon = Pokemon.GetPokemonByID(ID)
p.Generate(level, True)
Return p.GetSaveData().Replace(",", "§")
Return p.GetSaveData().Replace(",", "§").Replace("[", "«").Replace("]", "»")
Case "otmatch"
' Arguments: has: returns boolean, ID: returns Pokédex number, Name: returns name, maxhits: returns the maximum number of equal chars.