* Script  9 TIMER
scrp 2 19 6 9
	stim shou 100 255 0 0 27 100 25 50 0 0 0 0
	setv rnge 700
	setv var0 0
	esee 4 1 0
	setv var0 1
next
targ ownr
doif var0 eq 1
	setv thrt 255
	snde gon3
	pose 1
	enum 2 19 7
		pose 1
	next
	stim shou 100 255 0 0 27 200 25 100 0 0 0 0
else
	setv thrt 20
	targ ownr
	pose 0
	enum 2 19 7
		pose 0
	next
endi
targ ownr
endm

scrp 2 19 9 256
	base 9
	anim [012R]
	setv vely 2
	loop
		wait 1
	untl posy ge 370
	setv vely 0
	base 3
	setv velx 2
	loop
		wait 1
	untl posx ge 2068
	setv velx 0
	base 9
	setv vely 2
	loop
		wait 1
	untl posy ge 411
	setv vely 0
	wait 30
	etch 2 18 0
	doif attr eq 0
		kill targ
	endi
next
enum 2 3 19
	base 0
	doif ov02 eq 0
		pose 0
	else
		anim [012121R]
	endi
	setv ov01 0
	setv ov03 0
next
base 6
setv vely -2
loop
	wait 1
untl posy le 370
setv vely 0
base 0
setv velx -2
loop
	wait 1
untl posl le 1937
setv velx 0
base 6
setv vely -2
loop
	wait 1
untl post le 304
setv vely 0
base 9
pose 0
enum 2 3 19
	setv ov00 0
next
setv actv 0
endm


