* Script  9 TIMER
scrp 2 3 19 9
	doif ov00 eq 0
		gsub chek
		doif var0 eq 1
			wait 1
			gsub imm2
			gsub disa
			gsub ctch
		endi
	endi
	doif ov01 eq 0
		gsub chwi
	endi
	subr chek
		setv var0 0
		etch 2 18 0
		doif var0 eq 0
			doif movs eq 0
				setv var1 relx
				setv var2 rely
				doif var1 gt -50
					doif var1 lt 50
						doif var2 gt -50
							doif var2 lt 50
								setv var9 targ
								gsub immo
								setv var0 1
							endi
						endi
					endi
				endi
			endi
		endi
	next
	setv ov03 var9
retn
subr immo
	tick 0
	setv grav 0
	setv attr 0
	setv velx 0
	setv vely 0
	negv var1
	negv var2
	mvby var1 var2
	setv velx 0
	setv vely 0
retn
subr imm2
	inst
	doif xist ov03 eq 1
		targ ov03
		setv velx 0
		setv vely 0
		targ ownr
	endi
	slow
retn
subr disa
	enum 2 19 9
		setv actv 1
	next
	wait 10
retn
subr ctch
	base 0
	anim [345454R]
	setv ov00 1
	setv ov01 1
	enum 2 19 9
		mesg wrt+ targ 256 0 0 0
	next
retn
subr chwi
	setv var0 wndx
	doif var0 lt 0
		negv var0
	endi
	doif ov02 eq 0
		doif var0 ge 10
			setv ov02 1
			base 0
			anim [012121R]
		endi
	else
		doif var0 lt 10
			setv ov02 0
			base 0
			pose 0
		endi
	endi
retn
endm

