* Script  4 Picked up
scrp 2 21 6 4
	base 16
	pose 0
	tick 0
endm

* Script  6 Colission
scrp 2 21 6 6
	doif wall eq 3
		base 24
		anim [012]
		setv ov00 1
		rndv var0 100 200
		tick var0
	endi
endm

* Script  9 TIMER
scrp 2 21 6 9
	doif ov00 eq 0
		inst
		doif velx lt 0
			doif vely lt 0
				doif pose lt 4
					setv var0 pose
					addv var0 1
					pose var0
				endi
			else
				doif vely gt 0
					doif pose lt 4
						pose 4
					endi
					doif pose lt 8
						setv var0 pose
						addv var0 1
						pose var0
					endi
				endi
			endi
		endi
		doif velx gt 0
			doif vely lt 0
				doif pose lt 12
					setv var0 pose
					addv var0 1
					pose var0
				endi
			else
				doif vely gt 0
					doif pose lt 12
						pose 12
					endi
					doif pose lt 15
						setv var0 pose
						addv var0 1
						pose var0
					endi
				endi
			endi
		endi
		doif velx eq 0
			base 16
			anim [01234567R]
		endi
	endi
	doif ov00 eq 1
		doif carr eq 0
			doif lite ge 100
				doif intr gt 0
					doif intr lt 50
						inst
						setv rnge 500
						setv var9 0
						esee 2 15 4
						addv var9 1
					next
					doif var9 ge 10
						setv ov00 2
						tick 2000
						stop
					endi
					targ ownr
					setv var0 posl
					setv var1 post
					subv var0 27
					subv var1 43
					new: simp cac2 13 0 900 0
					setv cls2 2 15 4
					setv attr 196
					bhvr 1 15
					setv ov00 0
					rndv ov01 1 3
					mvto var0 var1
					tick 100
					slim
					slow
				endi
			endi
		endi
		addv ontr 5
		targ ownr
		kill targ
	endi
endi
doif ov00 eq 2
	doif carr eq 0
		setv rnge 500
		setv var9 0
		esee 2 21 6
		addv var9 1
	next
	doif var9 ge 10
		kill ownr
	endi
	setv var9 0
	esee 2 15 4
	addv var9 1
next
doif var9 lt 10
	inst
	targ ownr
	setv var0 posl
	setv var1 post
	subv var0 27
	subv var1 43
	new: simp cac2 13 0 900 0
	setv cls2 2 15 4
	setv attr 196
	bhvr 1 15
	setv ov00 0
	rndv ov01 1 3
	mvto var0 var1
	tick 100
	slim
	slow
	targ ownr
	kill targ
endi
endi
endi
endm

