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]
	slim
endm

* Script  1 Activate(1)
scrp 2 16 2 1
	setv thrt 200
	setv var8 from
	setv var0 5
	reps 5
		mvby var0 0
		negv var0
		mvby var0 0
		negv var0
		subv var0 1
	repe
	setv var0 posx
	setv var1 posy
	setv var9 ownr
	inst
	reps 5
		new: simp bee_ 4 0 5000 0
		setv cls2 2 17 2
		setv attr 71
		bhvr 1 15
		setv size 40
		mvto var0 var1
		slim
		tick 10
		setv ov01 var9
		setv ov05 1000
		mesg writ targ 0
	repe
	slow
	targ ownr
	subv ov10 10
	tick 10
	setv actv 0
endm

* Script  9 TIMER
scrp 2 16 2 9
	doif thrt gt 100
		subv thrt 10
	endi
	tick 500
	setv var0 0
	enum 2 17 2
		doif ov01 eq ownr
			addv var0 1
		endi
	next
	targ ownr
	doif var0 lt 3
		setv var1 posx
		setv var2 posy
		setv var9 ownr
		inst
		new: simp bee_ 4 0 5000 0
		setv cls2 2 17 2
		setv attr 71
		bhvr 1 15
		setv size 40
		setv rest 100
		mvto var1 var2
		slim
		tick 10
		setv ov01 var9
		setv ov05 1000
		slow
		subv ov10 10
	endi
	targ ownr
	doif ov10 ge 80
		base 18
		anim [01234R]
	else
		doif ov10 ge 60
			base 12
			anim [01234R]
		else
			doif ov10 ge 20
				base 6
				anim [012345R]
			else
				base 0
				anim [01234R]
			endi
		endi
	endi
	doif ov11 ge 20
		addv ov10 1
		subv ov11 4
	else
		doif ov11 lt 0
			subv ov10 1
			addv ov11 4
		endi
	endi
	doif ov10 le 0
		setv var0 0
		enum 2 16 2
			addv var0 1
		next
		doif var0 le 3
			setv var1 posx
			setv var2 posy
			inst
			new: simp bee_ 8 4 5000 0
			setv cls2 2 17 5
			setv attr 67
			setv size 40
			setv rest 100
			mvto var1 var2
			slim
			tick 10
			setv var9 targ
			reps 20
				new: simp bee_ 4 0 5000 0
				setv cls2 2 17 6
				setv attr 67
				setv size 40
				setv rest 100
				mvto var1 var2
				slim
				tick 10
				setv ov01 var9
			repe
		endi
		enum 2 17 2
			doif ov01 eq ownr
				mesg wrt+ targ 120 0 0 0
			endi
		next
		targ ownr
		kill targ
	endi
endm
