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

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

* Script 
scrp 2 25 1 12
	doif pose eq 0
		snde chwp
		pose 5
		setv ov00 3
		addv attr 16
		stim writ from 0 255 0 0 73 100 70 30 79 30 37 100
	endi
	doif pose eq 1
		snde chwp
		pose 6
		setv ov00 3
		addv attr 16
		stim writ from 0 255 0 0 73 100 70 30 79 30 37 100
	endi
endm

