[Head]
Type=Script
Version=2.0

[Settings]
Origin=0.000n 0.000w 0.00a 0.0°

[Script]

# this script won't work. it's an example for 4 backdrops,
# changed at an interval of 300 seconds. to make it work
# select appropriate values for $world and $backdrop

var $sub, $world, $backdrop, %red, %green, %blue, %wait
$world = "xelagon"
%wait = 300
%i=0
label start
   IfInt %i > 3 %i=0
   IfInt %i = 3 $sub = "moon"
   IfInt %i = 2 $sub = "sun"
   IfInt %i = 1 $sub = "snow"
   IfInt %i = 0 $sub = "rain"
   gosub $sub
   gosub ChangeBackdrop
   wait %wait
   inc %i
goto start
End

Sub moon
   $backdrop = "moonlight"
   %red = 64 
   %green = 64
   %blue = 64
Return

Sub sun
   $backdrop = "sunny"
   %red = 200 
   %green = 200
   %blue = 128
Return

Sub snow
   $backdrop = "snowscape"
   %red = 255 
   %green = 255
   %blue = 255
Return

Sub rain
   $backdrop = "thenetherlands"
   %red = 92 
   %green = 92
   %blue = 92
Return

Sub ChangeBackdrop
   SetWorld $world
   Backdrop $backdrop
   BackdropColor %red %green %blue
   ChangeAttributes
Return