* 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

