Improved weather chances per season

This commit is contained in:
JappaWakka 2021-10-01 18:12:25 +02:00
parent 9271d9b629
commit 700016dceb

View File

@ -381,34 +381,34 @@ endsub:
Select Case Season Select Case Season
Case Seasons.Winter Case Seasons.Winter
If r < 20 Then If r < 30 Then
Return Weathers.Rain
ElseIf r >= 20 And r < 50 Then
Return Weathers.Clear Return Weathers.Clear
ElseIf r >= 30 And r < 40 Then
Return Weathers.Rain
Else Else
Return Weathers.Snow Return Weathers.Snow
End If End If
Case Seasons.Spring Case Seasons.Spring
If r < 5 Then If r < 45 Then
Return Weathers.Snow Return Weathers.Clear
ElseIf r >= 5 And r < 40 Then ElseIf r >= 45 And r < 95 Then
Return Weathers.Rain Return Weathers.Rain
Else Else
Return Weathers.Clear Return Weathers.Snow
End If End If
Case Seasons.Summer Case Seasons.Summer
If r < 10 Then If r < 90 Then
Return Weathers.Rain
Else
Return Weathers.Clear Return Weathers.Clear
Else
Return Weathers.Rain
End If End If
Case Seasons.Fall Case Seasons.Fall
If r < 5 Then If r < 50 Then
Return Weathers.Snow Return Weathers.Clear
ElseIf r >= 5 And r < 80 Then ElseIf r >= 50 And r < 85 Then
Return Weathers.Rain Return Weathers.Rain
Else Else
Return Weathers.Clear Return Weathers.Snow
End If End If
End Select End Select