Doggy Burglar Alarm
30 September 1998
to doggy
waituntil [and (light5 > 48) (light5 < 52)]
talkto "lampa on
tone 80 5
tone 90 4
talkto "motorb setright onfor 9
talkto "motorb setleft onfor 9
talkto "lampa off
end |
Different Design
9-25-98
We used the sensor to make noise.
When you slide different colors and textures past the sensor the program
made different noises.
to lc
waituntil [light5 < 90]
tone 50 30
waituntil [light5 < 60]
tone 80 30
end
to noise
repeat 100 [make "n light5
tone :n 1]
end
to garage
waituntil [light5 < 90]
tone 50 3
tto "motorb setleft
onfor 10
wait 70
tone 80 1 wait 1 tone 50 1
waituntil [light5 < 90]
tto "motorb setright
onfor 10
tone 80 10
end |
Haunted House Ride October 98
to pop
tto "bones up setpower 4 onfor 3.2 wait 6
tto "bones down onfor 3
end
to 2pop
waituntil [touch4] pop wait 6 pop
end
to move
launch [waituntil [light5 > 43 ] tto "lamph flash 10 2 ]
tto "motore setright onfor 40 2pop
wait 3
tto "motore setleft onfor 40
flash 0 0
stopall
end
to lighton
forever [ifelse light5 > 42 [tto "lamph on] [tto "lamph off]]
end
|
