* 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

