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

