* 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
