* 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
