* Script  9 TIMER
scrp 2 17 1 9
	setv var0 0
	doif rtyp eq 2
		setv var0 1
	endi
	subv ov07 1
	doif ov07 le 0
		setv var0 1
	endi
	doif var0 eq 1
		tick 0
		enum 2 11 0
			doif tcar eq ownr
				mesg writ targ 5
			endi
		next
		targ ownr
		base 0
		pose 14
		wait 100
		kill ownr
		stop
	endi
	doif ov04 eq 0
		setv var0 0
		enum 2 11 0
			doif var0 eq 0
				doif touc ownr targ eq 1
					doif movs eq 0
						mesg writ targ 4
						setv var0 1
					endi
				endi
			endi
		next
		targ ownr
		doif var0 eq 1
			setv ov04 1
		endi
		rndv var0 0 99
		doif var0 eq 0
			gsub turn
		endi
		gsub chkp
		gsub move
		stop
	endi
	doif ov04 eq 1
		setv var0 ov03
		subv var0 posr
		doif var0 gt 4176
			subv var0 8352
		endi
		doif var0 lt -4176
			addv var0 8352
		endi
		setv var1 ov02
		subv var1 posl
		doif var1 gt 4176
			subv var1 8352
		endi
		doif var1 lt -4176
			addv var1 8352
		endi
		doif var0 lt 0
			setv ov00 0
			gsub move
			stop
		endi
		doif var1 gt 0
			setv ov00 1
			gsub move
			stop
		endi
		setv var0 0
		enum 2 11 0
			doif tcar eq ownr
				kill targ
				setv var0 1
			endi
		next
		targ ownr
		doif var0 eq 1
			setv var1 0
			etch 2 16 1
			doif var1 eq 0
				mesg wrt+ targ 256 0 0 0
				setv var1 1
			endi
		next
		targ ownr
	endi
	setv ov04 0
	stop
endi
doif ov04 eq 2
	tick 4
	setv var9 0
	addv ov23 1
	doif ov23 ge 10
		setv ov23 0
		setv var0 20000
		esee 4 0 0
		setv var2 relx
		doif var2 lt 0
			negv var2
		endi
		setv var3 rely
		doif var3 lt 0
			negv var3
		endi
		addv var2 var3
		doif var2 lt var0
			setv var0 var2
			setv var1 relx
		endi
	next
	doif var0 lt 20000
		doif var1 lt 0
			setv ov00 0
		else
			setv ov00 1
		endi
		doif var0 lt 100
			setv var9 1
		endi
	endi
endi
doif var9 eq 1
	setv ov05 1
	gsub move
	setv var0 0
	etch 4 0 0
	doif var0 eq 0
		stim writ targ 0 10 100 0 18 100 0 0 0 0 0 0
		setv var0 1
	endi
next
tick 10
stop
else
	gsub move
endi
endi
subr chkp
	doif posl eq ov01
		addv ov06 1
		doif ov06 ge 10
			gsub turn
			setv ov06 0
		endi
	else
		setv ov06 0
	endi
retn
subr turn
	doif ov00 eq 0
		setv ov00 1
	else
		setv ov00 0
	endi
retn
subr move
	doif obst 3 le 1
		doif obst ov00 le 5
			setv var0 3
		else
			setv var0 6
		endi
		doif ov05 eq 1
			setv var1 -25
			setv ov05 0
		else
			doif obst ov00 le 5
				setv var1 -10
			else
				setv var1 -6
			endi
		endi
		setv vely var1
		doif obst ov00 le 5
			wait 1
		endi
		doif ov00 eq 0
			base 0
			anim [0123]
			negv var0
			setv velx var0
		else
			base 7
			anim [0123]
			setv velx var0
		endi
		setv ov01 posl
	endi
retn
endm

* Script 
scrp 2 17 1 12
	stim writ from 10 255 0 0 37 10 74 10 79 10 0 0
	kill ownr
endm

