
'
' Modify the selected sky
'
Local found:int = False

For Local s:TSky = EachIn GetSelection()
	
	' Switch to color/gradient mode
	s.SetMode(SKY_COLOR)	
	
	' Reset intensity
	s.SetIntensity(1.0)	

	' Set top and bottom color
	s.SetTopColor( ColorRGB(0.7,0.8,0.9) )
	s.SetBottomColor( ColorRGB(0.0,0.0,0.0) )

	' Set position and blend range of gradient
	s.SetGradientPos( 0.5 )
	s.SetGradientBlend( 0.5 )

	found = True
Next

If found = False
	Notify("Whoops!","Please select a sky entity!",False)
End If