* Script  6 Colission
scrp 2 20 1 6
	snde rabb
endm

* Script  9 TIMER
scrp 2 20 1 9
	lock
	doif ov01 eq 0
		gsub cpop
		doif var0 ge 12
			gsub out_
		endi
		stop
	endi
	doif ov01 eq 1
		addv ov03 1
		doif ov03 ge 30
			gsub crea
			doif var0 eq 1
				setv ov01 2
				stop
			endi
			gsub cpop
			doif var0 le 8
				setv ov01 2
				stop
			endi
			setv ov03 0
			setv var1 0
			setv var2 0
			loop
				gsub sele
				addv var1 1
				doif var0 eq 1
					setv var2 1
				endi
				doif var1 ge 10
					setv var2 1
				endi
			untl var2 eq 1
			doif var0 eq 0
				setv ov01 2
				stop
			endi
		endi
		setv var7 ov02
		setv var8 posx
		gsub relx
		gsub absv
		doif var9 le 15
			setv ov03 30
			gsub tchk
			doif var0 eq 1
				gsub bend
				gsub pick
				gsub stan
				gsub eat_
				gsub kill
			endi
		else
			setv var7 posx
			setv var8 ov02
			gsub relx
			doif var9 lt 0
				setv ov00 0
			else
				setv ov00 1
			endi
			gsub jmpd
		endi
		stop
	endi
	doif ov01 eq 2
		setv var7 posx
		setv var8 ov10
		gsub relx
		doif var9 lt -15
			setv ov00 0
			gsub jmpd
			stop
		endi
		doif var9 gt 15
			setv ov00 1
			gsub jmpd
			stop
		endi
		gsub in__
		stop
	endi
	subr cpop
		setv var0 0
		esee 2 23 1
		doif ov01 eq 0
			addv var0 1
		endi
	next
retn
subr out_
	doif ov00 eq 0
		base 22
		anim [012345678]
		over
	else
		base 31
		anim [012345678]
		over
	endi
	snde rabb
	setv ov01 1
	setv ov03 30
	tick 10
retn
subr sele
	inst
	setv var0 0
	setv var7 ov10
	star 2 23 1
	doif targ ne 0
		doif ov00 ge 2
			doif ov01 eq 0
				setv var8 posx
				gsub relx
				gsub absv
				doif var9 le 400
					setv var0 1
				endi
			endi
		endi
	endi
	targ ownr
	setv ov02 var8
	slow
retn
subr tchk
	setv var0 0
	etch 2 23 1
	doif ov01 eq 0
		setv var0 1
	endi
next
retn
subr bend
	doif ov00 eq 0
		base 0
		anim [0123]
		over
	else
		base 8
		anim [0123]
		over
	endi
	wait 10
retn
subr pick
	setv var0 0
	etch 2 23 1
	doif var0 eq 0
		doif ov01 eq 0
			doif relx ge -15
				doif relx le 15
					mesg writ targ 4
					setv var0 1
				endi
			endi
		endi
	endi
next
retn
subr stan
	doif ov00 eq 0
		base 0
		anim [33221100]
		over
	else
		base 8
		anim [33221100]
		over
	endi
retn
subr eat_
	setv var0 0
	etch 2 23 1
	doif tcar eq ownr
		setv var0 1
	endi
next
doif var0 eq 1
	sndl chwp
	doif ov00 eq 0
		base 0
	else
		base 8
	endi
	anim [01010101010]
	over
	stpc
endi
retn
subr kill
	etch 2 23 1
	doif tcar eq ownr
		kill targ
	endi
next
retn
subr jmpd
	doif ov00 eq 0
		base 0
		anim [0123]
		over
		setv velx -8
		setv vely -30
		base 0
		anim [45670]
	else
		base 8
		anim [0123]
		over
		setv velx 8
		setv vely -30
		base 8
		anim [45670]
	endi
	stim sign 10 9 100 0 42 100 0 0 0 0 0 0
retn
subr in__
	base 40
	anim [0123456789]
	over
	base 50
	anim [01234]
	over
	base 0
	pose 55
	setv ov01 0
	tick 100
retn
subr crea
	inst
	setv var0 0
	setv rnge 200
	star 4 0 0
	doif targ ne 0
		setv var0 1
	endi
	targ ownr
	setv rnge 2000
	slow
retn
subr absv
	doif var9 lt 0
		negv var9
	endi
retn
subr relx
	setv var9 var8
	subv var9 var7
	doif var9 gt 4176
		subv var0 8352
	endi
	doif var9 lt -4176
		addv var0 8352
	endi
retn
endm

