* Script  1 Activate(1)
scrp 2 9 23 1
	doif carr eq 0
		doif grav eq 0
			stim writ from 0 255 0 0 45 20 36 20 0 0 0 0
			setv attr 192
			setv var0 posl
			setv var1 posb
			addv var0 20
			subv var1 35
			reps 5
				anim [01234567]
				inst
				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
				slow
				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
				targ ownr
				anim [6543210]
				snde laun
				over
			repe
			targ ownr
			setv attr 199
		endi
	endi
	setv actv 0
endm