tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
P3D/World/SkyDome.vb
View File

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

23
P3D/World/World.vb
View File

@ -399,23 +399,30 @@ endsub:
Return Weathers.Snow
End If
Case Seasons.Spring
If r < 45 Then
If r < 70 Then
Return Weathers.Clear
ElseIf r >= 45 And r < 95 Then
ElseIf r >= 70 And r < 90 Then
Return Weathers.Rain
Else
Return Weathers.Snow
End If
Case Seasons.Summer
If r < 90 Then
If r < 60 Then
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
Return Weathers.Rain
End If
Case Seasons.Fall
If r < 50 Then
If r < 60 Then
Return Weathers.Clear
ElseIf r >= 50 And r < 85 Then
ElseIf r >= 60 And r < 90 Then
Return Weathers.Rain
Else
Return Weathers.Snow
@ -547,13 +554,13 @@ endsub:
Case Weathers.Rain, Weathers.Thunderstorm
Screen.Effect.DiffuseColor = New Vector3(0.4, 0.4, 0.7)
Case Weathers.Snow
Screen.Effect.DiffuseColor = New Vector3(0.8)
Screen.Effect.DiffuseColor = New Vector3(0.9, 0.9, 0.9)
Case Weathers.Underwater
Screen.Effect.DiffuseColor = New Vector3(0.1, 0.3, 0.9)
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
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
Screen.Effect.DiffuseColor = New Vector3(0.8, 0.5, 0.2)
Case Weathers.Ash