Update Hurricane.vb

This commit is contained in:
Capt_Segis 2016-09-10 21:01:02 -05:00 committed by GitHub
parent 5f8abe3eb3
commit 8349f4881c

View File

@ -64,18 +64,22 @@
End If End If
End Sub 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 Public Overrides Function GetUseAccEvasion(own As Boolean, BattleScreen As BattleScreen) As Boolean
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then
Return False Return False
End If Else
Return True 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 End If
Return Me.Accuracy
End Function End Function
End Class End Class