From 8e1c0733aae2a6ce8bd2ac5416cf1a87d327346f Mon Sep 17 00:00:00 2001 From: TheOmegaGhost Date: Mon, 30 Sep 2019 19:34:52 -0300 Subject: [PATCH] Added Snowball and Cell Battery battle effects --- P3D/Battle/BattleSystemV2/Battle.vb | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/P3D/Battle/BattleSystemV2/Battle.vb b/P3D/Battle/BattleSystemV2/Battle.vb index 2427e30b2..4326ed5ae 100644 --- a/P3D/Battle/BattleSystemV2/Battle.vb +++ b/P3D/Battle/BattleSystemV2/Battle.vb @@ -2298,6 +2298,24 @@ End If End If End If + Case "snowball" + If moveUsed.Type.Type = Element.Types.Ice Then + If AllDamage > 0 And op.StatAttack < 6 Then + If RemoveHeldItem(Not own, Not own, BattleScreen, "-1", "item:snowball") = True Then + BattleScreen.BattleQuery.Add(New TextQueryObject(op.GetDisplayName() & "'s Snowball was consumed!")) + BattleScreen.Battle.RaiseStat(Not own, Not own, BattleScreen, "Attack", 1, "", "item:snowball") + End If + End If + End If + Case "cell battery" + If moveUsed.Type.Type = Element.Types.Electric Then + If AllDamage > 0 And op.StatAttack < 6 Then + If RemoveHeldItem(Not own, Not own, BattleScreen, "-1", "item:cell battery") = True Then + BattleScreen.BattleQuery.Add(New TextQueryObject(op.GetDisplayName() & "'s Cell Battery was consumed!")) + BattleScreen.Battle.RaiseStat(Not own, Not own, BattleScreen, "Attack", 1, "", "item:cell battery") + End If + End If + End If End Select End If End If