inst
	new: simp bee_ 8 4 5000 0
	setv cls2 2 17 5
	setv attr 67
	setv size 40
	setv rest 100
	slim
	tick 10
endm

* Script  9 TIMER
scrp 2 17 5 9
	doif rtyp eq 2
		setv size 0
		setv ov07 -5
		doif ov11 eq 1
			setv ov11 0
		endi
		setv vely ov07
		stop
	endi
	setv size 40
	doif ov00 eq 0
		loop
			rndv ov10 -1 1
		untl ov10 ne 0
		rndv ov11 -1 1
		setv ov06 ov10
		mulv ov06 3
		setv ov07 ov11
		mulv ov07 3
		setv ov00 1
		tick 20
		setv ov01 10
		setv velx ov06
		setv vely ov07
		doif ov06 gt 0
			anim [0123R]
		endi
		doif ov06 lt 0
			anim [4567R]
		endi
		stop
	endi
	doif ov00 eq 1
		gsub move
		subv ov01 1
		doif ov01 le 0
			setv rnge 1000
			setv var0 0
			esee 2 3 9
				setv var0 1
				setv var1 posl
				setv var2 post
			next
			targ ownr
			doif var0 eq 1
				setv ov02 var1
				setv ov03 var2
				setv ov00 2
				setv ov10 0
				setv ov11 0
			else
				setv ov01 10
			endi
		endi
		setv velx ov06
		setv vely ov07
		doif ov06 gt 0
			anim [0123R]
		endi
		doif ov06 lt 0
			anim [4567R]
		endi
	endi
	doif ov00 eq 2
		doif ov09 eq 1
			setv ov00 3
			setv velx 0
			setv vely 0
			stop
		endi
		gsub move
		gsub home
		gsub touc
		setv velx ov06
		setv vely ov07
		doif ov06 gt 0
			anim [0123R]
		endi
		doif ov06 lt 0
			anim [4567R]
		endi
	endi
	doif ov00 eq 3
		setv var0 posl
		setv var1 post
		subv var0 20
		subv var1 20
		inst
		new: simp hiv3 24 0 200 0
		setv cls2 2 16 2
		setv attr 199
		bhvr 1 1
		setv ov10 10
		base 0
		anim [012345R]
		mvto var0 var1
		slim
		setv var2 targ
		enum 2 17 6
			doif ov01 eq ownr
				setv ov02 var0
				setv ov03 var1
				setv ov00 1
				setv ov01 var2
			endi	
		next
		tick 50
		kill ownr
	endi
	subr touc
		setv var0 ov02
		addv var0 50
		setv var1 ov03
		addv var1 50
		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
			setv velx 0
			setv vely 0
		endi
	retn
	subr home
		setv var0 ov02
		setv var1 ov03
		subv var0 posl
		subv var1 posb
		doif var0 lt 0
			doif velx ge 0
				subv ov06 3
			else
				setv ov06 -2
			endi
		endi
		doif var0 gt 0
			doif velx le 0
				addv ov06 3
			else
				setv ov06 2
			endi
		endi
		doif var1 lt 0
			doif vely ge 0
				subv ov07 3
			else
				setv ov07 -2
			endi
		endi
		doif var1 gt 0
			doif vely le 0
				addv ov07 3
			else
				setv ov07 2
			endi
		endi
	retn
	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
		setv var9 obst 2
		doif var9 lt 20
			addv var1 4
		endi
		addv var0 ov10
		addv var1 ov11
		addv ov06 var0
		addv ov07 var1
		doif ov06 gt 5
			setv ov06 5
		endi
		doif ov06 lt -5
			setv ov06 -5
		endi
		doif ov07 gt 5
			setv ov07 5
		endi
		doif ov07 lt -5
			setv ov07 -5
		endi
	retn
endm
