
to titanic
go-straight
play-aladdin
if sensor-1 [stop-motion play-beethoven shoot-people break]
end
to go-straight
all-wheels on thisway
end
to all-wheels
a,
end
to play-aladdin
loop [
note 78 6 note 76 5 note 79 5 note 78 5 note 74 6 note 69 8
wait 3 note 78 5 note 76 4 note 79 7 note 78 5 note 74 5
note 78 7 note 76 7 wait 2 note 76 5 note 75 5 note 78 5
note 76 5 note 73 5 note 76 5 note 74 5 note 73 5 note 74 5
note 71 5 note 73 5 note 76 5 note 74 5 note 69 5 repeat 2
[note 78 4 note 79 5 note 83 5 note 81 7] note 76 5 note 79 5
note 78 5 note 78 5 wait 2 note 78 5 note 79 5 note 81 5
note 85 5 note 83 5 note 81 5 note 74 5 note 85 5 note 83 5
note 81 5 note 74 5 note 78 5 note 76 5 note 74 5 note 71 5
note 74 5 note 76 5 wait 2
]
end
to sensor-1
output switch 7
end
to stop-motion
all-wheels off
end
to play-beethoven
loop [
repeat 3 [note 90 (1) ]
note 86 (7)
repeat 3 [note 88 (1) ]
note 85 (7)
repeat 3 [note 90 (1) ]
note 86 (1)
repeat 3 [note 91 (1) ]
note 90 (1)
repeat 3 [note 98 (1) ]
note 95 (2)
repeat [note 90 (1)]
note 85 (1)
repeat 3 [note 91 (1) ]
note 88 (1)
repeat 3 [note 100 (1) ]
note 97 (2)
]
end
to shoot-people
wait 30
shooters onfor 50
end
to shooters
b,
end
to break
wait 80
pusher onfor 70
end