* Script  1 Activate(1)
scrp 2 13 14 1
	snde pgn2
	doif ov00 eq 0
		base 5
		anim [40]
		setv var0 posl
		addv var0 25
		etch 4 0 0
		doif posl le var0
			snde pgun
			stim writ targ 0 255 0 0 18 100 0 0 0 0 0 0
			rndv var9 10 255
			injr -1 var9
			setv velx -50
			setv vely -20
			doif from ne targ
				stim writ from 0 255 0 0 36 100 45 50 25 20 0 0
			endi
		endi
	next
	targ ownr
	wait 5
	anim [1234567]
	over
	base 0
	anim [01234R]
endi
doif ov00 eq 1
	base 18
	anim [40]
	setv var0 posr
	addv var0 25
	etch 4 0 0
	doif posr ge var0
		snde pgun
		stim writ targ 0 255 0 0 18 100 0 0 0 0 0 0
		rndv var9 10 255
		injr -1 var9
		setv velx 50
		setv vely -20
		doif from ne targ
			stim writ from 0 255 0 0 36 100 45 50 25 20 0 0
		endi
	endi
next
targ ownr
wait 5
anim [1234567]
over
base 13
anim [01234R]
endi
setv actv 0
endm

* Script  4 Picked up
scrp 2 13 14 4
	setv thrt 200
	tick 5
	doif from eq pntr
		setv ov01 posl
	endi
endm

* Script  5 Dropped
scrp 2 13 14 5
	setv thrt 50
	tick 0
endm

* Script  9 TIMER
scrp 2 13 14 9
	doif carr eq pntr
		setv var0 posl
		subv var0 ov01
		doif var0 gt 0
			setv ov00 1
			base 13
			anim [01234R]
		endi
		doif var0 lt 0
			setv ov00 0
			base 0
			anim [01234R]
		endi
		setv ov01 posl
	else
		targ carr
		doif dirn eq 2
			targ ownr
			setv ov00 1
			base 13
			anim [01234R]
		else
			doif dirn eq 3
				targ ownr
				setv ov00 0
				base 0
				anim [01234R]
			endi
		endi
	endi
endm

