From 21e7514070383cf78809f6dd94fa858d69133229 Mon Sep 17 00:00:00 2001 From: CaptainSegis Date: Thu, 19 Jan 2017 17:54:26 -0500 Subject: [PATCH] Fixed cloud nine interaction with Hail/Sandstorm --- 2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb b/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb index ddbc5ee71..ff6d8a4eb 100644 --- a/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb +++ b/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb @@ -4627,7 +4627,7 @@ 'Sandstorm If .FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then If .OwnPokemon.Type1.Type <> Element.Types.Ground And .OwnPokemon.Type2.Type <> Element.Types.Ground And .OwnPokemon.Type1.Type <> Element.Types.Steel And .OwnPokemon.Type2.Type <> Element.Types.Steel And .OwnPokemon.Type1.Type <> Element.Types.Rock And .OwnPokemon.Type2.Type <> Element.Types.Rock Then - Dim sandAbilities() As String = {"sand veil", "sand rush", "sand force", "overcoat", "magic guard"} + Dim sandAbilities() As String = {"sand veil", "sand rush", "sand force", "overcoat", "magic guard", "cloud nine"} If sandAbilities.Contains(.OwnPokemon.Ability.Name.ToLower()) = False Then If .OwnPokemon.HP > 0 Then Dim sandHP As Integer = CInt(.OwnPokemon.MaxHP / 16) @@ -4640,7 +4640,7 @@ 'Hailstorm If .FieldEffects.Weather = BattleWeather.WeatherTypes.Hailstorm Then If .OwnPokemon.Type1.Type <> Element.Types.Ice And .OwnPokemon.Type2.Type <> Element.Types.Ice Then - Dim hailAbilities() As String = {"ice body", "snow cloak", "overcoat", "magic guard"} + Dim hailAbilities() As String = {"ice body", "snow cloak", "overcoat", "magic guard", "cloud nine"} If hailAbilities.Contains(.OwnPokemon.Ability.Name.ToLower()) = False Then If .OwnPokemon.HP > 0 Then Dim hailHP As Integer = CInt(.OwnPokemon.MaxHP / 16)