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
1 changed files with 13 additions and 9 deletions

View File

@ -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
End Namespace