Weather render distance and color tweaks
This commit is contained in:
parent
c94f7a2b1b
commit
48d3a0505b
|
@ -110,9 +110,9 @@
|
|||
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)
|
||||
BasicEffect.DiffuseColor = New Vector3(1.2, 1.1, 1.1)
|
||||
Case World.Weathers.Rain, World.Weathers.Thunderstorm
|
||||
BasicEffect.DiffuseColor = New Vector3(0.7, 0.7, 0.8)
|
||||
Case World.Weathers.Snow
|
||||
BasicEffect.DiffuseColor = New Vector3(0.9)
|
||||
Case World.Weathers.Underwater
|
||||
|
@ -122,7 +122,7 @@
|
|||
Case World.Weathers.Sandstorm
|
||||
BasicEffect.DiffuseColor = New Vector3(0.8, 0.5, 0.2)
|
||||
Case World.Weathers.Ash
|
||||
BasicEffect.DiffuseColor = New Vector3(0.5, 0.5, 0.5)
|
||||
BasicEffect.DiffuseColor = New Vector3(0.6, 0.6, 0.6)
|
||||
Case World.Weathers.Blizzard
|
||||
BasicEffect.DiffuseColor = New Vector3(0.6, 0.6, 0.6)
|
||||
End Select
|
||||
|
|
|
@ -155,7 +155,7 @@ Public Class World
|
|||
|
||||
If Weather = Weathers.Blizzard Then
|
||||
Screen.Effect.FogStart = -40
|
||||
Screen.Effect.FogEnd = 20
|
||||
Screen.Effect.FogEnd = 18
|
||||
|
||||
Screen.Camera.FarPlane = 24
|
||||
GoTo endsub
|
||||
|
@ -552,19 +552,19 @@ endsub:
|
|||
Case Weathers.Clear
|
||||
Screen.Effect.DiffuseColor = New Vector3(1)
|
||||
Case Weathers.Rain, Weathers.Thunderstorm
|
||||
Screen.Effect.DiffuseColor = New Vector3(0.4, 0.4, 0.7)
|
||||
Screen.Effect.DiffuseColor = New Vector3(0.7, 0.7, 0.8)
|
||||
Case Weathers.Snow
|
||||
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.5, 1.3, 1.3)
|
||||
Screen.Effect.DiffuseColor = New Vector3(1.2, 1.1, 1.1)
|
||||
Case Weathers.Fog
|
||||
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
|
||||
Screen.Effect.DiffuseColor = New Vector3(0.5, 0.5, 0.5)
|
||||
Screen.Effect.DiffuseColor = New Vector3(0.6, 0.6, 0.6)
|
||||
Case Weathers.Blizzard
|
||||
Screen.Effect.DiffuseColor = New Vector3(0.6, 0.6, 0.6)
|
||||
End Select
|
||||
|
|
Loading…
Reference in New Issue