Scott Siegel
Programmer and Design Expert
The Lakeview School
Denville NJ 07834-3419
Copyright - All rights Reserved - Don't take this code!!

to start
tto [t1 t2] repeat 20 [fd 125 setsh [Froger] fd 1 wait 1 setsh [Frog] wait 1 ]
wait 20 page2
end

to king
hidetext
tto [t1] seth 360 repeat 10 [fd 10 wait 3 setsh [Froger] fd 2 wait 2 setsh [Frog]]
tto [t4] seth 90 tto [t3] seth 270
tto [t3 t4] repeat 5 [fd 40 wait 5] showtext wait 30
tto [t1] setpos [ 4 -156] tto [t4] setpos [-291 21]
tto [t3] setpos [296 25] page3

end

to killship
tto [t1 t2 t3 t4 t5 t6 t7 t8 t9 t10]
tto [t1] setpos [-119 138 ] tto [t2] setpos [74 147] tto [ t3] setpos [54 104 ] tto [t4] setpos [25 120 ] tto [t5] setpos[-249 38]
tto [t6] setpos [-248 16] tto [ t7] setpos [-266 17] tto [ t8] setpos [-175 123] tto [ t9] setpos [154 -82]
tto [t10] setpos [ 161 -100] tto [t1] st tto [t5 t6 t7 t9 t10]
hidetext
tto [t5 t6 t7] seth 90 repeat 10 [ fd 50 wait 2] ht
tto [t9 t10] seth 270 repeat 5 [fd 50 wait 2] ht showtext
tto [ t1 t8] seth 90 repeat 5 [fd 10 wait 1]
tto [t2 t3 t4] seth 270 repeat 5 [ fd 20 wait 1] hidetext
tto [t1] ht wait 50
tto [t1] setpos [-119 138 ] tto [t2] setpos [74 147] tto [ t3] setpos [54 104 ] tto [t4] setpos [25 120 ] tto [t5] setpos[-249 38]
tto [t6] setpos [-248 16] tto [ t7] setpos [-266 17] tto [ t8] setpos [-175 123] tto [ t9] setpos [154 -82]
tto [t10] setpos [ 161 -100] tto [t1] st tto [t5 t6 t7 t9 t10] st page4
end

to king2
tto [t3] setpos [ 4 -156]
tto [t2] setpos [-291 21]
tto [t1] setpos [296 25]
wait 50
page5
end

to attack
tto [t15] ht
setpospg5
hidetext
tto [t9] setpos [-310 -89] tto [t8] setpos [-313 -42] tto [t3] setpos[-268 13] tto [t4] setpos[-266 -3] tto [t5] setpos[-267 -16]
tto [t6] setpos[-266 -32] tto [t1] setpos [-331 4] tto [t7] setpos [-328 -11] tto [t11] setpos [206 -99] tto [t14] setpos [218 -45]
tto [t13] setpos [202 -11] tto [t10] setpos [162 -1] tto [t2] setpos [190 22] tto [t12] setpos [200 -76]
tto [t1 t3 t4 t5 t6 t7 t8 t9]
seth 90 repeat 20 [ fd 20 wait 2]
tto [t11 t14 t13 t10 t2 t12] ht
showtext
tto [t15] st
tto [ t1 t3 t4 t5 t6 t7 t8 t9] seth 270 repeat 5 [fd 50 wait 2]
wait 10
page6
end

to setpospg5
tto [t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14] st
tto [t9] setpos [-310 -89] tto [t8] setpos [-313 -42] tto [t3] setpos[-268 13] tto [t4] setpos[-266 -3] tto [t5] setpos[-267 -16]
tto [t6] setpos[-266 -32] tto [t1] setpos [-331 4] tto [t7] setpos [-328 -11]
tto [t11] setpos [206 -99]
tto [t14] setpos [218 -45]
tto [t13] setpos [202 -11]
tto [t10] setpos [162 -1]
tto [t2] setpos [190 22]
tto [t12] setpos [200 -76]
end

to ending
tto [ t1 t2 t3 t4 t5 t6 t7 t8 t9]
repeat 10 [ fd slider1 set size 5-15]
end

to all
start page2 king page3 killship page4 king2 page5 setpospg5 attack page6 wait 25 page7 wait 35 page1
end