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

Fix cloud nine, part 2

This commit is contained in:
CaptainSegis 2017-01-19 17:57:33 -05:00
parent 21e7514070
commit 6fa8578aea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb
View File

@ -5356,7 +5356,7 @@
'Sandstorm 'Sandstorm
If .FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then If .FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then
If .OppPokemon.Type1.Type <> Element.Types.Ground And .OppPokemon.Type2.Type <> Element.Types.Ground And .OppPokemon.Type1.Type <> Element.Types.Steel And .OppPokemon.Type2.Type <> Element.Types.Steel And .OppPokemon.Type1.Type <> Element.Types.Rock And .OppPokemon.Type2.Type <> Element.Types.Rock Then If .OppPokemon.Type1.Type <> Element.Types.Ground And .OppPokemon.Type2.Type <> Element.Types.Ground And .OppPokemon.Type1.Type <> Element.Types.Steel And .OppPokemon.Type2.Type <> Element.Types.Steel And .OppPokemon.Type1.Type <> Element.Types.Rock And .OppPokemon.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(.OppPokemon.Ability.Name.ToLower()) = False Then If sandAbilities.Contains(.OppPokemon.Ability.Name.ToLower()) = False Then
If .OppPokemon.HP > 0 Then If .OppPokemon.HP > 0 Then
Dim sandHP As Integer = CInt(.OppPokemon.MaxHP / 16) Dim sandHP As Integer = CInt(.OppPokemon.MaxHP / 16)
@ -5369,7 +5369,7 @@
'Hailstorm 'Hailstorm
If .FieldEffects.Weather = BattleWeather.WeatherTypes.Hailstorm Then If .FieldEffects.Weather = BattleWeather.WeatherTypes.Hailstorm Then
If .OppPokemon.Type1.Type <> Element.Types.Ice And .OppPokemon.Type2.Type <> Element.Types.Ice Then If .OppPokemon.Type1.Type <> Element.Types.Ice And .OppPokemon.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(.OppPokemon.Ability.Name.ToLower()) = False Then If hailAbilities.Contains(.OppPokemon.Ability.Name.ToLower()) = False Then
If .OppPokemon.HP > 0 Then If .OppPokemon.HP > 0 Then
Dim hailHP As Integer = CInt(.OppPokemon.MaxHP / 16) Dim hailHP As Integer = CInt(.OppPokemon.MaxHP / 16)