From 82fa8630f73fafa1a4c4d0f84ceb6481c5030fb8 Mon Sep 17 00:00:00 2001 From: TheOmegaGhost Date: Sat, 23 Nov 2019 02:20:02 -0200 Subject: [PATCH] Missing part of last commit --- P3D/Battle/BattleSystemV2/Battle.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/P3D/Battle/BattleSystemV2/Battle.vb b/P3D/Battle/BattleSystemV2/Battle.vb index e660a1550..e8942011f 100644 --- a/P3D/Battle/BattleSystemV2/Battle.vb +++ b/P3D/Battle/BattleSystemV2/Battle.vb @@ -4327,9 +4327,14 @@ Case "cloud nine" ChangeWeather(own, own, BattleWeather.WeatherTypes.Clear, 0, BattleScreen, "", "cloudnine") Case "intimidate" - If Not op.Ability.Name.ToLower() = "Oblivious" Or Not op.Ability.Name.ToLower() = "Inner Focus" Or Not op.Ability.Name.ToLower() = "Own Tempo" Or Not op.Ability.Name.ToLower() = "Scrappy" Then + If op.Ability.Name.ToLower() = "oblivious" Or op.Ability.Name.ToLower() = "inner focus" Or op.Ability.Name.ToLower() = "own tempo" Or op.Ability.Name.ToLower() = "scrappy" Then + .BattleQuery.Add(New TextQueryObject("Intimidate's effect was prevented!")) + Else LowerStat(Not own, own, BattleScreen, "Attack", 1, p.GetDisplayName() & "'s Intimidate cuts " & op.GetDisplayName() & "'s attack!", "intimidate") End If + If op.Ability.Name.ToLower() = "rattled" Then + RaiseStat(Not own, Not own, BattleScreen, "Speed", 1, op.GetDisplayName() & "'s Rattled affected it's clairaudience.", "rattled") + End If Case "trace" If op.Ability.Name.ToLower() <> "multitype" And op.Ability.Name.ToLower() <> "illusion" Then p.Ability = op.Ability