tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-20 12:24:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

create @pokemon.removeattackid(int,int)

Browse Source
This commit is contained in:
darkfire006 2019-10-06 22:49:06 -05:00
parent e13fce85b0
commit 65a577c375
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -169,6 +169,20 @@
p.Attacks.RemoveAt(attackIndex) p.Attacks.RemoveAt(attackIndex)
End If End If
End If End If
Case "removeattackid"
Dim Index As Integer = int(argument.GetSplit(0, ","))
Dim attackId As Integer = int(argument.GetSplit(1, ","))
If Core.Player.Pokemons.Count - 1 >= Index Then
Dim p As Pokemon = Core.Player.Pokemons(Index)
For a = 0 To (p.Attacks.Count - 1)
If p.Attacks(a).ID = attackId Then
p.Attacks.RemoveAt(a)
Exit For
End If
Next
End If
Case "clearattacks" Case "clearattacks"
Dim Index As Integer = int(argument) Dim Index As Integer = int(argument)