* Script  9 TIMER
scrp 2 9 14 9
	tick 10
	doif ov00 eq 1
		gsub wout
		setv ov00 2
		setv ov01 0
		base 9
		anim [123210R]
		stop
	endi
	doif ov00 eq 2
		gsub ctch
		doif var0 eq 1
			setv ov00 3
			setv ov02 1
		else
			addv ov01 1
			doif ov01 ge 50
				setv ov00 3
			endi
		endi
		stop
	endi
	doif ov00 eq 3
		gsub w_in
		setv ov00 0
		tick 0
		doif ov02 eq 1
			inst
			targ tcar
			setv ov00 2
			tick 1
			slow
		else
			inst
			targ tcar
			setv actv 0
			slow
		endi
		stop
	endi
	doif ov00 eq 4
		tick 0
		etch 2 20 3
			doif tcar eq ownr
				mesg writ targ 5
			endi
		next
		wait 10
		setv ov02 0
		stop
	endi
	subr wout
		base 0
		sndl dog1
		anim [123456789]
		over
		stpc
	retn
	subr ctch
		setv var0 0
		etch 2 20 3
		doif rely ge 106
			doif rely le 126
				mesg writ targ 4
					setv var0 1
				endi
			endi
		next
	retn
	subr w_in
		base 0
		sndl dog1
		anim [876543210]
		over
		stpc
	retn
endm
