* Script  6 Colission
scrp 2 21 3 6
	setv var0 posl
	setv var1 post
	doif ov00 eq 0
		doif wall eq 3
			inst
			setv ov00 1
			new: simp trif 4 41 2900 0
			setv cls2 2 1 22
			mvto var0 var1
			anim [0123]
			over
			kill targ
			targ ownr
			pose 8
			setv vely -20
			slow
		endi
	endi
endm

* Script  9 TIMER
scrp 2 21 3 9
	setv var0 posl
	setv var1 post
	subv var1 32
	subv var0 20
	doif ov00 eq 0
		anim [01234567R]
		doif vely gt 1
			inst
			setv var0 posl
			setv var1 posb
			snde pop4
			loop
				rndv var2 -5 5
			untl var2 ne 0
			mulv var2 5
			pose 8
			rndv var9 -20 -5
			setv vely var9
			setv velx var2
			setv ov00 1
			new: simp trif 4 41 2900 0
			setv cls2 2 1 22
			mvto var0 var1
			pose 1
			mesg writ targ 8
			targ ownr
			setv accg 4
			rndv var0 30 50
			tick var0
			slow
			stop
		endi
	endi
	doif ov00 eq 1
		doif grav eq 0
			doif carr eq 0
				setv var9 0
				setv rnge 500
				esee 2 24 2
				addv var9 1
			next
			doif var9 le 10
				rndv var7 10 80
				rndv var8 150 200
				doif intr ge var7
					doif intr le var8
						inst
						new: simp trif 47 0 4000 0
						setv cls2 2 24 2
						setv attr 196
						bhvr 1 67
						rndv var2 1 3
						setv ov01 var2
						mvto var0 var1
						rndv var0 100 300
						tick var0
						slow
						kill ownr
					else
						addv ontr 5
						kill ownr
					endi
				else
					addv ontr 5
					kill ownr
				endi
			else
				setv ov00 2
				rndv var0 1000 2000
				tick var0
				stop
			endi
		endi
	endi
endi
doif ov00 eq 2
	addv ov99 1
	doif ov99 ge 20
		kill ownr
	endi
	setv var9 0
	setv rnge 500
	esee 2 24 2
	addv var9 1
next
targ ownr
doif var9 le 10
	setv ov00 1
	rndv var0 100 500
	tick var0
endi
endi
endm

* Script 
scrp 2 21 3 12
	snde chwp
	stim writ from 0 255 0 0 73 50 74 50 37 50 0 0
	kill ownr
endm

