* Script  6 Colission
scrp 2 21 8 6
	doif wall eq 3
		pose 10
		tick 100
		setv ov00 1
	endi
endm

* Script  9 TIMER
scrp 2 21 8 9
	doif ov00 eq 0
		doif ov01 eq 0
			loop
				rndv ov01 -1 1
			untl ov01 ne 0
		endi
		rndv var9 1 10
		doif ov01 lt 0
			subv velx var9
			doif pose lt 5
				setv var0 pose
				addv var0 1
				pose var0
			else
				pose 6
			endi
		endi
		doif ov01 gt 0
			addv velx var9
			doif pose lt 6
				pose 9
			else
				doif pose gt 7
					setv var0 pose
					subv var0 1
					pose var0
				else
					pose 6
				endi
			endi
		endi
	endi
	doif ov00 eq 1
		setv rnge 800
		setv var9 totl 2 24 4
		doif var9 gt 10
			setv ov00 2
			rndv var0 1000 2000
			tick var0
			stop
		endi
		setv var9 totl 2 21 8
		doif var9 gt 5
			kill ownr
		endi
		rndv var8 20 70
		doif intr ge var8
			doif intr le 110
				setv var0 posl
				setv var1 post
				subv var0 22
				subv var1 33
				inst
				new: simp spro 20 0 1000 0
				setv cls2 2 24 4
				mvto var0 var1
				tick 20
				slim
				slow
			endi
		endi
		targ ownr
		kill targ
	endi
	doif ov00 eq 2
		setv var9 totl 2 24 4
		doif var9 lt 10
			setv ov00 1
			tick 10
		endi
	endi
endm
