Jean Linn
Programmer and Designer
The Lakeview School

to start
page1

tto [ t4 t5 ]
repeat 10 [ fd 20 wait 2 bk 20 ]
page2
wait 20
Evil
tto [ t4 ]
wait 10
setsh 16
wait 10
end

to Next
page2

wait 5
page3
end

to chase
page3
tto [ t5 t9 ]
setsh 13
tto [ t6 ]
setsh 14
tto [ t7 t8 ]
setsh 15
tto [ t11 ]
setpos [ 279 140 ]
seth 270
tto [ t12 ]
setpos [ 278 119 ]
seth 270
setsh 62
tto [ t4 ]
setpos [ -305 -128 ]
tto [ t3 ]
setpos [ -250 -123 ]
tto [ t2 ]
setpos [ -191 -124 ]
tto [ t1 ]
setpos [ -136 -124 ]
tto [ t10 ]
setpos [ -79 -125 ]
setsh 33
seth 90
tto [ t4 ]
repeat 200 [ fd 1 wait 1 ]
tto [ t3 ]
repeat 150 [ fd 1 wait 1 ]
tto [ t2 ]
repeat 100 [ fd 1 wait 1 ]
tto [ t1 ]
repeat 60 [ fd 1 wait 1 ]
tto [ t10 ]
repeat 190 [ fd 1 wait 1 ]
setsh 31
lt 90
repeat 60 [ fd 1 wait 1 ]
tto [ t11 t12 ]
repeat 70 [ fd 1 wait 1 ]
wait 5
tto [ t12 ]
lt 90
fd 70
tto [ t5 t6 t7 t8 t9 t10 t12 ]
wait 5
setsh 30
end

to go
page5
tto [ t5 ]
setsh 32
tto [t1 t2 t3 ]
setsize 100
tto [ t1 ]
setpos [ -266 -123 ]
setsh 42
tto [ t2 ]
setpos [-176 -109 ]
setsh 42
tto [ t3 ]
setpos [ -80 -101 ]
setsh 42
tto [ t4 ]
setpos [ 165 14 ]
repeat 5 [ fd 10 wait 1 setsh 49 fd 10 wait 1 setsh 50 fd 10 wait 1 setsh 51 ]
tto [ t3 t2 t1 ]
repeat 5 [ fd 30 wait 1 ]
tto [ t5 ]
wait 5
setsh 29
tto [ t5 ]
wait 5
setsh 44
tto [ t1 t2 t3 ]
wait 5
setsh 30
wait 1
setsize 100
wait 1
setsize 120
wait 1
setsize 140
wait 1
setsize 160
wait 5
end

to Fight!
page6

tto [ t5 ]
setpos [ 106 78 ]
ht
tto [ t6 ]
setpos [ 184 -102 ]
ht
tto [ t1 ]
setpos [ 236 -128 ]
tto [ t4 ]
setpos [ -55 -45 ]
tto [ t1 ]
setsh 43
wait 5
setsh 44
wait 5
tto [ t5 ]
appear
wait 10
tto [ t1 ]
wait 5
setsh 32
tto [ t6 ]
appear
repeat 120 [ fd 30 wait 1 ]
end