* 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

