* 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
