* Script  1 Activate(1)
scrp 2 9 1 1
	doif carr eq 0
		doif grav eq 0
			stim writ from 0 255 0 0 36 30 45 30 0 0 0 0
			setv attr 192
			setv var0 posl
			setv var1 posb
			addv var0 20
			subv var1 20
			reps 5
				inst
				anim [01234567]
				new: simp cact 17 15 3100 0
				setv cls2 2 21 2
				setv attr 195
				bhvr 0 67
				setv aero 1
				setv size 30
				setv rest 100
				setv accg 2
				tick 3
				rndv ov09 10 100
				loop
					rndv ov11 -1 1
				untl ov11 ne 0
				setv ov10 ov09
				mvto var0 var1
				slim
				setv grav 1
				rndv var9 -70 -20
				setv vely var9
				anim [0123456R]
				slow
				targ ownr
				anim [6543210]
				rndv var9 0 1
				doif var9 eq 0
					snde pop3
				else
					snde pop4
				endi
				over
			repe
			setv attr 199
		endi
	endi
	setv actv 0
endm

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