* Script  1 Activate(1)
scrp 2 15 4 1
	doif ov00 ne 0
		stim writ from 50 255 0 0 18 100 0 0 0 0 0 0
	endi
	setv actv 0
endm

* Script  2 Activate(2)
scrp 2 15 4 2
	doif ov00 ne 0
		stim writ from 50 255 0 0 18 100 0 0 0 0 0 0
	endi
	setv actv 0
endm

* Script  9 TIMER
scrp 2 15 4 9
	doif ov00 eq 0
		doif pose lt 6
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 1
			rndv var0 800 1500
			tick var0
		endi
	endi
	doif ov00 eq 1
		doif ov01 le 0
			setv ov00 3
			stop
		endi
		doif sean eq 0
			doif tmod eq 4
				setv ov00 2
			endi
		endi
	endi
	doif ov00 eq 2
		setv var0 posx
		setv var1 posy
		inst
		rndv var9 2 5
		reps var9
			new: simp cac2 27 13 4100 0
			setv cls2 2 21 6
			setv attr 195
			setv aero 1
			setv accg 2
			setv rest 100
			setv size 30
			mvto var0 var1
			slim
			rndv vely -40 -20
			loop
				rndv velx -7 7
			untl velx ne 0
			mulv velx 4
			doif velx lt 0
				pose 1
			else
				pose 9
			endi
			tick 5
		repe
		slow
		targ ownr
		subv ov01 1
		setv ov00 1
	endi
	doif ov00 eq 3
		doif pose lt 12
			setv var0 pose
			addv var0 1
			pose var0
		else
			kill targ
		endi
	endi
endm
