From 8349f4881ccb274108396e1241eadc544fdde6d1 Mon Sep 17 00:00:00 2001 From: Capt_Segis Date: Sat, 10 Sep 2016 21:01:02 -0500 Subject: [PATCH] Update Hurricane.vb --- .../Pokemon/Attacks/Flying/Hurricane.vb | 22 +++++++++++-------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/2.5DHero/2.5DHero/Pokemon/Attacks/Flying/Hurricane.vb b/2.5DHero/2.5DHero/Pokemon/Attacks/Flying/Hurricane.vb index 3a803659d..8648e8215 100644 --- a/2.5DHero/2.5DHero/Pokemon/Attacks/Flying/Hurricane.vb +++ b/2.5DHero/2.5DHero/Pokemon/Attacks/Flying/Hurricane.vb @@ -64,20 +64,24 @@ End If End Sub + Public Overrides Function GetAccuracy(own As Boolean, BattleScreen As BattleScreen) As Integer + If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then + Return 100 + ElseIf BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then + Return 50 + Else + Return Me.Accuracy + End If + End Function + Public Overrides Function GetUseAccEvasion(own As Boolean, BattleScreen As BattleScreen) As Boolean If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then Return False + Else + Return True End If - Return True - End Function - - Public Overrides Function GetAccuracy(own As Boolean, BattleScreen As BattleScreen) As Integer - If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then - Return 50 - End If - Return Me.Accuracy End Function End Class -End Namespace \ No newline at end of file +End Namespace