* Script  1 Activate(1)
scrp 2 9 2 1
	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 30
	reps 5
		anim [01234567]
		inst
		new: simp pear 16 33 3000 0
		setv cls2 2 21 1
		setv attr 195
		bhvr 0 67
		setv aero 2
		setv size 20
		setv rest 100
		setv accg 5
		setv puhl -1 12 22
		rndv ov10 1 3
		setv ov09 ov10
		loop
			rndv ov01 -1 1
		untl ov01 ne 0
		setv ov11 ov01
		mulv ov11 10
		setv ov12 ov01
		mulv ov12 2
		mvto var0 var1
		slow
		rndv var9 -50 -30
		rndv var8 -30 30
		setv vely var9
		setv velx var8
		slim
		setv grav 1
		rndv var9 10 30
		tick var9
		anim [012345678R]
		targ ownr
		anim [6543210]
		snde laun
		over
	repe
	setv attr 199
	setv actv 0
endm

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