* 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
