Added Snowball and Cell Battery battle effects

This commit is contained in:
TheOmegaGhost 2019-09-30 19:34:52 -03:00
parent f5fb2495ee
commit 8e1c0733aa
1 changed files with 18 additions and 0 deletions

View File

@ -2298,6 +2298,24 @@
End If End If
End If 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 Select
End If End If
End If End If