|
Design and Program by Wulf Vaughan
The Lakeview School Denville NJ 07834-3419
Copyright 2000
to start
tto "t1 setpos [-200 -150]
tto [t2] ht
tto [t3] setpos [-73 -116]
ht
tto [t4] setpos [-129 -114]
ht
tto [t5] setpos [-103 -129]
ht
tto [t6] setpos [-102 -141]
ht
setpos [ -100 -100 ]
tto [t1]
repeat 15 [seth 90 fd 30 wait 3]
wait 15
tto [t2]
st
setsize 10
wait 5
setsize 30
wait 5
setsize 50
wait 5
setsize 70
wait 5
setsize 100
wait 5
setsize 20
tto [t3]
st
tto [t4]
st
tto "t5
st
tto [t6] setpos [-102 -141]
st
seth 90
repeat 10 [fd 30 wait 5]
death
page2
tto "t1 setpos [-107 -71]
tto "t5 setpos [-218 -34]
tto "t1
repeat 7 [tto [t1] seth 90 fd 30 tto [t5] seth 90 fd 30 wait
5]
ahhhhhh
page3
wait 30
tto "t1
setsh "goleft
setpos [245 -25]
seth 270
repeat 10 [fd 40 wait 5]
ok
seth 90
tto "t1
setsh "goright
repeat 10 [fd 40 wait 5]
page4
tto [t2 t3 t4]
ht
tto [t1]
setpos [-137 33]
st
tto [t2] setsh "car
st
tto [t3] setsh "car2
st
tto [t4] setsh "jeep
st
ohno
tto [t1] seth 90 fd 70
tto [t4] setsh "boom
tto [t1]tto [t1] seth 90 fd 40 wait 5 fd 100
tto [t2] setsh "boom
tto[t1] fd 120 wait 5 tto [t3] setsh "boom
PAGE5
tto [t1]
setsh "house
setpos [48 2]
tto [t2]
ht
seth 135
setpos [-110 103]
tto [t3]
setsh "minion
ht
seth 135
setpos [-110 103]
tto[t4]
setsh "minion
ht
seth 135
setpos [-110 103]
tto[t5]
setsh "minion
setpos [-110 103]
seth 135
fd 120
tto [t2]
setsh "minion st
fd 140
tto [t3]
setsh "minion st
fd 100
tto [t4]
setsh "minion st
wait 5
fd 130
wait 5
tto [t2]
setsh "boom
tto [t3]
setsh "boom
tto [t4]
setsh "boom
tto [t1]
setsh "boom
tto [t5] setsh "boom
wait 30
page6
tto [t2]
ht
tto [t5]
setpos [-127 -93]
setsh [ha]
repeat 6 [fd 30 wait 5]
setsh [backbutt]
tto [t4]
setpos[-122 -38]
setsh [ha]
repeat 6 [fd 30 wait 5]
setsh [backbutt]
tto [t7]
setpos[-116 -40]
setsh [ha]
repeat 6 [fd 30 wait 5]
setsh [backbutt]
tto [t2]
setpos [126 -78]
setsh [genade]
st
seth 270
repeat 13 [fd 20 wait 5]
setsh [butt]
page7
tto [t1]
setpos [-51 -15]
tto [t3]
ht
tto [t1]
repeat 7 [fd 20 wait 5]
tto [t3]
st
setsize 90
wait 9
setsh [butt]
tto [t2]
wait 5
setsh [boom]
tto [t1]
setsh [butt]
wait 5
tto[t1] setsh [goright]
tto[t3] setsh [mew]
tto[t2] setsh [bum]
page1
tto "t1 setpos [-200 -150]
tto [t2] ht
tto [t3] setpos [-73 -116]
ht
tto [t4] setpos [-129 -114]
ht
tto [t5] setpos [-103 -129]
ht
tto [t6] setpos [-102 -141]
ht
setpos [ -100 -100 ]
end
|