function banner(text)
{
	if (_applet) {
		echo @text
	} else {
		message driver: @text
	}
}

function delay2play(delaytime, defaultbanner)
{
    if not delaytime {
        delaytime = 10
    }
    banner("One hand to move, two to zoom")
    spinState = script("show state/spin"); spin off
    orientState == script("show moveto")
    original = orientState
    time = 5
    while (time > 0) {
      delay 5
      time = time - 5
      if (script("show moveto") != orientState){
        time = delaytime
        orientState == script("show moveto")
      }
    }
    banner(defaultbanner)
    script inline @original
    script inline @spinState
}

set echo top center
font echo 32
color echo yellow

banner("Cyclohexane and Benzene")
hide hydrogen
spin x 40
delay 5
spacefill on
delay 5
hide none
delay 5

hide all
spacefill 23%
model 2
moveto 1.0 { 995 20 94 26.02} 5.0 23.05 26.26 {0.0 0.0 0.0} 3.6843593 {0 0 0} 0 0 0 3.0 0.0 0.0;
hide hydrogen
banner("Benzene atoms lie in a plane")
moveto 1.0 { -348 -908 235 3.05} 180.0 0.2 -13.28 {2.7000167 1.6659498E-5 0.0} 10.545738 {0 0 0} 0 0 0 3.0 0.0 0.0;
spin x 40
delay 5
hide none
delay2play(5,"")
moveto 1.0 { 995 20 94 26.02} 5.0 23.05 26.26 {0.0 0.0 0.0} 3.6843593 {0 0 0} 0 0 0 3.0 0.0 0.0;
hide all
delay 0.1
spacefill 23%
moveto 1.0 { 966 -191 175 105.1} 5.0 -21.78 27.27 {0.0 0.0 0.0} 3.6843593 {0 0 0} 0 0 0 3.0 0.0 0.0;
model 1
hide hydrogen
banner("Cyclohexane atoms do not")
moveto 1.0 { 931 -271 244 93.99} 200.0 0.24 -14.0 {-4.4000006 0.09999446 -6.0929193E-7} 10.538417 {0 0 0} 0 0 0 3.0 0.0 0.0;
spin x 40
delay 5
display displayed or (H11, H18, H9, H8, H13, H15)
delay 5
hide none
delay 5
isosurface plane {C1 and 1.1}{C4 and 1.1}{C5 and 1.1}
spin x 40
delay 5
spin off
delay2play(2,"")
isosurface off
moveto 1.0 { 966 -191 175 105.1} 5.0 -21.78 27.27 {0.0 0.0 0.0} 3.6843593 {0 0 0} 0 0 0 3.0 0.0 0.0

model 0
center visible
zoom 100