global [songon]
to start
curtain
house
play-song
end
to curtain
waituntil [ switch 7 ] a, onfor 110
end
to house
b, setpower 3 on thatway c, on thisway waituntil [(sensor 1) > 150] c, off waituntil [(sensor 0) > 150] b, off
end
to play-song
setsongon 1
beethoven
end
to stop-song
setsongon 0
end
to beethoven
loop[
wait 6
play_note 90 5 1
play_note 90 4 1
play_note 87 1 1
play_note 88 2 1
play_note 90 3 1
play_note 87 4 2
play_note 87 1 1
play_note 87 2 1
play_note 85 3 1
play_note 83 4 2
play_note 87 1 1
play_note 87 2 1
play_note 85 3 1
play_note 83 4 4
play_note 90 5 1
play_note 90 4 1
play_note 87 1 1
play_note 88 2 1
play_note 90 3 1
play_note 93 3 1
play_note 92 3 1
play_note 90 5 1
]
end
to play_note :frequency :duration :wait
if songon
[note :frequency :duration
wait :wait]
if ( switch 8 ) [ a, thatway onfor 80
stop-song ]
end
Return to Wizard of Oz Introduction and Table of contents