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

Add @Pokemon.SendToStorage() More Info below: 

Usage:
@Pokemon.SendToStorage(PokeIndex)
@Pokemon.SendToStorage(PokeIndex, BoxIndex)

BoxIndex is the selected box you wish to dump into. They start from 0.
This commit is contained in:
jianmingyong 2016-11-12 03:04:58 +08:00
parent 00c481f5d4
commit 7eac4b34ef
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -583,6 +583,25 @@
If Core.Player.Pokemons.Count - 1 >= PokemonIndex And Core.Player.Pokemons.Count < 6 Then If Core.Player.Pokemons.Count - 1 >= PokemonIndex And Core.Player.Pokemons.Count < 6 Then
Core.Player.Pokemons.Add(Core.Player.Pokemons(PokemonIndex)) Core.Player.Pokemons.Add(Core.Player.Pokemons(PokemonIndex))
End If End If
Case "sendtostorage"
' @Pokemon.SendToStorage(PokeIndex, [BoxIndex])
Dim Data() As String = argument.Split(CChar(","))
If Data.Length = 1 Then
Dim PokemonIndex As Integer = int(Data(0))
If Core.Player.Pokemons.Count - 1 >= PokemonIndex Then
StorageSystemScreen.DepositPokemon(Core.Player.Pokemons(PokemonIndex))
Core.Player.Pokemons.RemoveAt(PokemonIndex)
End If
ElseIf Data.Length = 2 Then
Dim PokemonIndex As Integer = int(Data(0))
If Core.Player.Pokemons.Count - 1 >= PokemonIndex Then
StorageSystemScreen.DepositPokemon(Core.Player.Pokemons(PokemonIndex), int(Data(1)))
Core.Player.Pokemons.RemoveAt(PokemonIndex)
End If
End If
End Select End Select
IsReady = True IsReady = True