* Script  6 Colission
scrp 2 21 1 6
	doif wall eq 3
		anim [89]
	endi
	doif wall eq 0
		negv ov11
		negv ov12
	endi
	doif wall eq 1
		negv ov11
		negv ov12
	endi
endm

* Script  9 TIMER
scrp 2 21 1 9
	doif ov00 eq 0
		doif ov10 ne 0
			doif carr eq 0
				doif grav eq 0
					snde pop1
					rndv var0 ov11 ov12
					rndv var1 -50 -40
					setv velx var0
					setv vely var1
					subv ov10 1
					anim [012345678R]
				endi
			endi
		endi
		doif ov10 eq 0
			doif grav eq 0
				setv rnge 500
				setv var9 0
				esee 2 24 1
				addv var9 1
			next
			targ ownr
			doif var9 lt 5
				doif intr ge 90
					doif intr le 180
						setv var9 ov09
						setv var0 posl
						setv var1 post
						subv var0 24
						subv var1 70
						base 9
						anim [012345]
						over
						inst
						new: simp pear 57 0 1000 0
						setv cls2 2 24 1
						setv attr 196
						bhvr 1 15
						mvto var0 var1
						slim
						setv grav 1
						rndv var8 30 100
						tick var8
						rndv ov03 1 2
						rndv ov02 2 5
						setv ov03 var9
						targ ownr
						kill targ
					else
						addv ontr 5
						kill ownr
					endi
				else
					addv ontr 5
					kill ownr
				endi
			else
				setv ov00 1
				tick 1500
				pose 15
			endi
		endi
	endi
endi
doif ov00 eq 1
	addv ov05 1
	doif ov05 ge 100
		kill ownr
	endi
	doif sean ge 0
		doif sean lt 3
			setv var9 0
			esee 2 24 1
			addv var9 1
		next
		targ ownr
		doif var9 lt 5
			setv ov00 0
			pose 2
			rndv var0 20 100
			tick var0
		endi
	endi
endi
endi
endm

* Script 
scrp 2 21 1 12
	snde chwp
	stim writ from 0 255 0 0 73 60 74 40 37 30 0 0
	kill ownr
endm

