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

Added 3 new commands. More info below: 

@Pokemon.AddSteps(PokemonIndex, StepsToAdd)
@Pokemon.SetSteps(PokemonIndex, StepsToSet)
<Pokemon.GetSteps(PokemonIndex)>
This commit is contained in:
jianmingyong 2017-01-09 00:40:10 +08:00
parent ed80bafb42
commit e435227959
2 changed files with 27 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

@ -585,6 +585,7 @@
End If
Case "sendtostorage"
' @Pokemon.SendToStorage(PokeIndex, [BoxIndex])
Dim Data() As String = argument.Split(CChar(","))
If Data.Length = 1 Then
@ -689,6 +690,24 @@
Core.Player.PokedexData = Pokedex.ChangeEntry(Core.Player.PokedexData, Pokemon.Number, pokedexType)
End If
End If
Case "addsteps"
' @Pokemon.AddSteps(PokemonIndex, StepsToAdd)
Dim Index As Integer = int(argument.GetSplit(0, ","))
Dim StepsToAdd As Integer = int(argument.GetSplit(1, ","))
If Core.Player.Pokemons.Count - 1 >= Index Then
Core.Player.Pokemons(Index).EggSteps += StepsToAdd
End If
Case "setsteps"
' @Pokemon.SetSteps(PokemonIndex, StepsToSet)
Dim Index As Integer = int(argument.GetSplit(0, ","))
Dim StepsToSet As Integer = int(argument.GetSplit(1, ","))
If Core.Player.Pokemons.Count - 1 >= Index Then
Core.Player.Pokemons(Index).EggSteps = StepsToSet
End If
End Select
IsReady = True

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb
View File

@ -415,6 +415,14 @@
End If
Return sheet & "|" & CStr(pos.X * 32) & "|" & CStr(pos.Y * 32) & "|" & CStr(size.Width) & "|" & CStr(size.Height)
Case "getsteps"
' <Pokemon.GetSteps(PokemonIndex)>
Dim index As Integer = int(argument.GetSplit(0))
If Core.Player.Pokemons.Count - 1 >= index Then
Return Core.Player.Pokemons(index).EggSteps
End If
End Select
Return DEFAULTNULL
End Function