var9 is targ=queen bee
inst
	new: simp bee_ 4 0 5000 0
	setv cls2 2 17 6
	setv attr 67
	setv size 40
	setv rest 100
	slim
	tick 10
	setv ov01 var9
endm

* Script  9 TIMER
scrp 2 17 6 9
	doif ov00 eq 0
		setv var0 ov01
		enum 2 17 5
			setv var1 posl
			setv var2 post
			doif targ eq var0
				targ ownr
				setv ov02 var1
				setv ov03 var2
			endi
		next
		targ ownr
		gsub move
		gsub home
	endi
	doif ov00 eq 1
		gsub touc
		doif ov09 eq 1
			targ ov01
			addv ov10 5
			addv ov11 1
			kill ownr
		endi
		gsub home
	endi
	doif ov06 gt 0
		anim [01R]
	endi
	doif ov06 lt 0
		anim [23R]
	endi
	setv velx ov06
	setv vely ov07
	subr move
		doif velx lt 0
			rndv var0 -3 1
		else
			doif velx gt 0
				rndv var0 -1 3
			else
				doif velx eq 0
					rndv var0 -3 3
				endi
			endi
		endi
		doif vely lt 0
			rndv var1 -3 1
		else
			doif vely gt 0
				rndv var1 -1 3
			else
				doif vely eq 0
					rndv var1 -3 3
				endi
			endi
		endi
		setv var2 flor
		subv var2 posb
		doif var2 lt 30
			subv var1 4
		endi
		addv ov06 var0
		addv ov07 var1
		doif ov06 gt 5
			setv ov06 6
		endi
		doif ov06 lt -5
			setv ov06 -6
		endi
		doif ov07 gt 5
			setv ov07 6
		endi
		doif ov07 lt -5
			setv ov07 -6
		endi
	retn
	subr home
		setv var0 ov02
		setv var1 ov03
		addv var0 20
		addv var1 20
		subv var0 posl
		subv var1 posb
		doif var0 lt 0
			doif velx ge 0
				rndv var9 2 4
				subv ov06 var9
			else
				addv ov06 -1
			endi
		endi
		doif var0 gt 0
			doif velx le 0
				rndv var9 2 4
				addv ov06 var9
			else
				addv ov06 1
			endi
		endi
		doif var1 lt 0
			doif vely ge 0
				rndv var9 2 4
				subv ov07 var9
			else
				addv ov07 -1
			endi
		endi
		doif var1 gt 0
			doif vely le 0
				rndv var9 2 4
				addv ov07 var9
			else
				addv ov07 1
			endi
		endi
	retn
	subr touc
		setv var0 ov02
		addv var0 50
		setv var1 ov03
		addv var1 100
		setv var2 0
		setv var3 0
		doif posl ge ov02
			doif posl le var0
				setv var2 1
			endi
		endi
		doif posb ge ov03
			doif posb le var1
				setv var3 1
			endi
		endi
		andv var2 var3
		doif var2 eq 1
			setv ov09 1
		endi
	retn
endm
