* Script  4 Picked up
scrp 2 25 6 4
	doif ov00 eq 0
		setv var9 ov01
		enum 2 4 4
			doif unid eq var9
				setv ov02 1
			endi
		next
		targ ownr
		setv ov00 1
	endi
	doif pose eq 1
		pose 0
	endi
endm

* Script  6 Colission
scrp 2 25 6 6
	doif wall eq 3
		doif pose eq 0
			pose 1
		endi
	endi
endm

* Script  9 TIMER
scrp 2 25 6 9
	doif ov00 eq 0
		rndv var0 -1 1
		mulv var0 5
		setv velx var0
		setv ov00 1
		setv var9 ov01
		etch 2 4 4
			doif unid eq var9
				setv ov02 1
			endi
			targ ownr
		next
		rndv var0 200 300
		tick var0
		stop
	endi
	doif ov00 eq 1
		doif carr eq 0
			doif pose lt 5
				setv var0 pose
				addv var0 1
				pose var0
				rndv var0 100 300
				tick var0
				doif pose gt 3
					setv attr 64
					bhvr 0 0
				endi
			else
				setv ov00 2
			endi
		endi
	endi
	doif ov00 eq 3
		doif pose ge 6
			doif pose lt 10
				setv attr 194
				bhvr 0 0
				setv var0 pose
				addv var0 1
				pose var0
			else
				setv ov00 2
			endi
		endi
	endi
	doif ov00 eq 2
		doif intr ge 70
			doif intr le 100
				doif carr eq 0
					setv rnge 500
					esee 2 4 4
						addv var9 1
					next
					targ ownr
					doif var9 lt 10
						inst
						setv var0 posl
						setv var1 post
						rndv var4 15 25
						subv var1 var4
						new: simp nuts 32 0 1000 0
						setv cls2 2 4 4
						setv attr 68
						bhvr 0 0
						setv size 50
						setv ov00 0
						mvto var0 var1
						rndv var0 100 150
						tick var0
					endi
					kill ownr
				endi
			endi
		else
			kill ownr
		endi
	endi
endm

* Script 
scrp 2 25 6 12
	doif pose eq 0
		snde chwp
		pose 6
		setv ov00 3
		stim writ targ 0 255 0 0 73 100 70 30 37 80 0 0
	endi
	doif pose eq 1
		snde chwp
		pose 6
		setv ov00 3
		stim writ targ 0 255 0 0 73 100 70 30 37 80 0 0
	endi
endm
