* Script  1 Activate(1)
scrp 2 9 3 1
	doif carr eq 0
		doif grav eq 0
			stim writ from 0 255 0 0 45 30 36 30 0 0 0 0
			setv attr 192
			setv var0 posl
			setv var1 posb
			addv var0 20
			subv var1 20
			reps 5
				anim [01234567]
				inst
				new: simp trif 9 32 3000 0
				setv cls2 2 21 3
				bhvr 0 67
				setv attr 195
				setv accg 3
				setv rest 100
				setv aero 3
				setv size 15
				setv ov00 0
				mvto var0 var1
				rndv var9 -50 -35
				setv vely var9
				rndv var2 -5 5
				setv velx var2
				setv grav 1
				slim
				tick 10
				slow
				targ ownr
				anim [6543210]
				snde laun
				over
			repe
			setv attr 199
		endi
	endi
	setv actv 0
endm

* Script  6 Colission
scrp 2 9 3 6
	doif wall eq 3
		snde drp3
	endi
endm
