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 Switch & EndRound for Custom Moves

This commit is contained in:
JappaWakka 2022-12-26 13:05:22 +01:00
parent a0ee905c85
commit 8338c385ee
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
P3D/Pokemon/Attacks/AttackSpecialFunctions.vb
View File

@ -108,6 +108,35 @@
Message = f.GetSplit(2, ",")
End If
BattleScreen.Battle.FaintPokemon(Not Target, BattleScreen, Message)
Case "switch"
Dim Target As Boolean = CBool(f.GetSplit(1, ","))
Dim SwitchTo As Integer = CInt(f.GetSplit(2, ","))
Dim Message As String = ""
If f.Split(CChar(",")).Count > 3 Then
Message = f.GetSplit(3, ",")
End If
If Target = True Then
If f.GetSplit(2, ",").StartsWith("~+") Then
SwitchTo = BattleScreen.OppPokemonIndex + CInt(f.GetSplit(2, ",").Remove(0, 2))
End If
If f.GetSplit(2, ",").StartsWith("~-") Then
SwitchTo = BattleScreen.OppPokemonIndex - CInt(f.GetSplit(2, ",").Remove(0, 2))
End If
BattleScreen.Battle.SwitchOutOpp(BattleScreen, SwitchTo, Message)
Else
If f.GetSplit(2, ",").StartsWith("~+") Then
SwitchTo = BattleScreen.OwnPokemonIndex + CInt(f.GetSplit(2, ",").Remove(0, 2))
End If
If f.GetSplit(2, ",").StartsWith("~-") Then
SwitchTo = BattleScreen.OwnPokemonIndex - CInt(f.GetSplit(2, ",").Remove(0, 2))
End If
BattleScreen.Battle.SwitchOutOwn(BattleScreen, SwitchTo, -1, Message)
End If
Case "endround"
Dim Type As Integer = CInt(f.GetSplit(1, ","))
BattleScreen.Battle.EndRound(BattleScreen, Type)
Case Else
fSub = CInt(f.GetSplit(1, ",")).Clamp(0, 100).ToString
End Select