* 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
