* Script  1 Activate(1)
scrp 2 15 1 1
	doif ov00 eq 1
		setv thrt 200
		base 9
		pose 3
		over
		stim writ from 50 255 0 0 18 100 235 50 0 0 0 0
		anim [3210]
		over
		base 0
	endi
	setv actv 0
endm

* Script  9 TIMER
scrp 2 15 1 9
	setv thrt 100
	doif ov03 le 0
		setv ov00 4
	endi
	doif ov00 eq 4
		doif pose eq 9
			pose 22
		else
			doif pose ge 22
				doif pose lt 30
					setv var0 pose
					addv var0 1
					pose var0
				else
					kill ownr
				endi
			else
				pose 22
			endi
		endi
	endi
	doif ov00 eq 0
		doif sean ne 3
			doif tmod eq 0
				doif pose lt 9
					setv var0 pose
					addv var0 1
					pose var0
				else
					setv ov00 1
				endi
			endi
		endi
	endi
	doif ov00 eq 1
		doif tmod eq 4
			rndv var0 100 300
			tick var0
			setv ov00 2
		endi
	endi
	doif ov00 eq 2
		tick 100
		doif pose lt 13
			setv var0 pose
			addv var0 1
			pose var0
		else
			inst
			pose 14
			setv var0 posl
			setv var1 post
			addv var0 20
			addv var1 10
			setv var3 ov02
			new: simp cact 17 15 3100 0
			setv cls2 2 21 2
			setv attr 195
			bhvr 0 67
			setv aero 1
			setv rest 100
			setv accg 2
			setv size 30
			rndv var2 1 4
			tick var2
			setv ov09 var3
			rndv var2 -1 1
			doif ov09 gt 1
				addv ov09 var2
			endi
			setv ov10 ov09
			loop
				rndv ov11 -1 1
			untl ov11 ne 0
			mvto var0 var1
			rndv var9 0 1
			slow
			doif var9 eq 0
				snde pop3
			else
				snde pop4
			endi
			slim
			anim [0123456R]
			targ ownr
			setv ov00 3
			subv ov03 1
		endi
	endi
	doif ov00 eq 3
		wait 100
		doif pose ne 9
			pose 9
		else
			setv ov00 1
			rndv var0 500 1500
			tick var0
		endi
	endi
endm

