* Script  6 Colission
scrp 2 21 2 6
	doif wall eq 3
		rndv var0 0 6
		pose var0
		doif ov10 ne 0
			setv ov10 0
		endi
	endi
	doif wall eq 2
		tick 5
	endi
	doif wall eq 0
		negv ov11
	endi
	doif wall eq 1
		negv ov11
	endi
endm

* Script  9 TIMER
scrp 2 21 2 9
	doif ov00 eq 0
		doif ov10 eq 0
			doif grav eq 0
				doif lite ge 100
					doif intr ge 20
						rndv var0 30 80
						doif intr le var0
							setv rnge 1000
							setv var9 0
							esee 2 15 1
							addv var9 1
						next
						targ ownr
						doif var9 gt 12
							setv ov00 1
							pose 16
							tick 2000
							stop
						endi
						pose 0
						setv var0 posl
						setv var1 post
						subv var0 32
						subv var1 56
						setv var2 ov09
						inst
						new: simp cact 31 0 900 0
						setv cls2 2 15 1
						setv attr 196
						bhvr 1 9
						mvto var0 var1
						slim
						rndv var0 500 1500
						tick var0
						rndv ov03 2 4
						setv ov00 0
						setv ov02 var2
					endi
				endi
			endi
		endi
		addv ontr 10
		targ ownr
		kill ownr
	endi
	doif ov10 ne 0
		rndv var0 1 5
		mulv var0 ov11
		setv velx var0
		rndv var1 -7 -2
		setv vely var1
		subv ov10 1
		doif ov10 eq 0
			tick 100
		endi
	endi
endi
doif ov00 eq 1
	pose 16
	addv ov01 1
	doif ov01 ge 20
		kill ownr
	endi
	setv rnge 1000
	setv var0 0
	esee 2 21 2
	addv var0 1
next
targ ownr
doif var0 ge 20
	kill ownr
endi
setv var0 0
esee 2 15 1
addv var0 1
next
targ ownr
doif var0 lt 12
	setv ov00 0
	rndv var1 50 200
	tick var1
endi
endi
endm

* Script 
scrp 2 21 2 12
	snde chwp
	stim writ from 30 255 0 0 73 50 235 5 37 50 0 0
	kill ownr
endm

