Tweaked weather colors and chances

This commit is contained in:
JappaWakka 2023-01-17 19:27:15 +01:00
parent 02aef02183
commit 686cef84fe
2 changed files with 20 additions and 11 deletions

View File

@ -107,16 +107,18 @@
BasicEffect.DiffuseColor = New Vector3(1) BasicEffect.DiffuseColor = New Vector3(1)
Else Else
Select Case Screen.Level.World.CurrentMapWeather Select Case Screen.Level.World.CurrentMapWeather
Case World.Weathers.Clear, World.Weathers.Sunny Case World.Weathers.Clear
BasicEffect.DiffuseColor = New Vector3(1) BasicEffect.DiffuseColor = New Vector3(1)
Case World.Weathers.Sunny
BasicEffect.DiffuseColor = New Vector3(1.5, 1.3, 1.3)
Case World.Weathers.Rain Case World.Weathers.Rain
BasicEffect.DiffuseColor = New Vector3(0.4, 0.4, 0.7) BasicEffect.DiffuseColor = New Vector3(0.4, 0.4, 0.7)
Case World.Weathers.Snow Case World.Weathers.Snow
BasicEffect.DiffuseColor = New Vector3(0.8) BasicEffect.DiffuseColor = New Vector3(0.9)
Case World.Weathers.Underwater Case World.Weathers.Underwater
BasicEffect.DiffuseColor = New Vector3(0.1, 0.3, 0.9) BasicEffect.DiffuseColor = New Vector3(0.1, 0.3, 0.9)
Case World.Weathers.Fog Case World.Weathers.Fog
BasicEffect.DiffuseColor = New Vector3(0.7, 0.7, 0.8) BasicEffect.DiffuseColor = New Vector3(0.7, 0.7, 0.7)
Case World.Weathers.Sandstorm Case World.Weathers.Sandstorm
BasicEffect.DiffuseColor = New Vector3(0.8, 0.5, 0.2) BasicEffect.DiffuseColor = New Vector3(0.8, 0.5, 0.2)
Case World.Weathers.Ash Case World.Weathers.Ash

View File

@ -399,23 +399,30 @@ endsub:
Return Weathers.Snow Return Weathers.Snow
End If End If
Case Seasons.Spring Case Seasons.Spring
If r < 45 Then If r < 70 Then
Return Weathers.Clear Return Weathers.Clear
ElseIf r >= 45 And r < 95 Then ElseIf r >= 70 And r < 90 Then
Return Weathers.Rain Return Weathers.Rain
Else Else
Return Weathers.Snow Return Weathers.Snow
End If End If
Case Seasons.Summer Case Seasons.Summer
If r < 90 Then If r < 60 Then
Return Weathers.Clear Return Weathers.Clear
ElseIf r >= 60 And r < 95 Then
Select Case Screen.Level.DayTime
Case DayTimes.Day, DayTimes.Morning
Return Weathers.Sunny
Case Else
Return Weathers.Clear
End Select
Else Else
Return Weathers.Rain Return Weathers.Rain
End If End If
Case Seasons.Fall Case Seasons.Fall
If r < 50 Then If r < 60 Then
Return Weathers.Clear Return Weathers.Clear
ElseIf r >= 50 And r < 85 Then ElseIf r >= 60 And r < 90 Then
Return Weathers.Rain Return Weathers.Rain
Else Else
Return Weathers.Snow Return Weathers.Snow
@ -547,13 +554,13 @@ endsub:
Case Weathers.Rain, Weathers.Thunderstorm Case Weathers.Rain, Weathers.Thunderstorm
Screen.Effect.DiffuseColor = New Vector3(0.4, 0.4, 0.7) Screen.Effect.DiffuseColor = New Vector3(0.4, 0.4, 0.7)
Case Weathers.Snow Case Weathers.Snow
Screen.Effect.DiffuseColor = New Vector3(0.8) Screen.Effect.DiffuseColor = New Vector3(0.9, 0.9, 0.9)
Case Weathers.Underwater Case Weathers.Underwater
Screen.Effect.DiffuseColor = New Vector3(0.1, 0.3, 0.9) Screen.Effect.DiffuseColor = New Vector3(0.1, 0.3, 0.9)
Case Weathers.Sunny Case Weathers.Sunny
Screen.Effect.DiffuseColor = New Vector3(1.6, 1.3, 1.3) Screen.Effect.DiffuseColor = New Vector3(1.5, 1.3, 1.3)
Case Weathers.Fog Case Weathers.Fog
Screen.Effect.DiffuseColor = New Vector3(0.5, 0.5, 0.6) Screen.Effect.DiffuseColor = New Vector3(0.7, 0.7, 0.7)
Case Weathers.Sandstorm Case Weathers.Sandstorm
Screen.Effect.DiffuseColor = New Vector3(0.8, 0.5, 0.2) Screen.Effect.DiffuseColor = New Vector3(0.8, 0.5, 0.2)
Case Weathers.Ash Case Weathers.Ash