* 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

