* Script  1 Activate(1)
scrp 2 13 17 1
	stim shou 0 255 0 0 36 20 42 20 44 20 45 20
	doif carr ne 0
		anim [012]
	endi
	setv actv 0
	rndv var0 1 7
	doif var0 eq 1
		snde gui1
	endi
	doif var0 eq 2
		snde gui2
	endi
	doif var0 eq 3
		snde gui3
	endi
	doif var0 eq 4
		snde gui4
	endi
	doif var0 eq 5
		snde gui5
	endi
	doif var0 eq 6
		snde gui6
	endi
	doif var0 eq 7
		snde gui7
	endi
endm

* Script  4 Picked up
scrp 2 13 17 4
	tick 5
endm

* Script  5 Dropped
scrp 2 13 17 5
	tick 0
	base 0
	pose 0
endm

* Script  9 TIMER
scrp 2 13 17 9
	doif carr ne pntr
		targ carr
		doif dirn eq 2
			targ ownr
			base 0
			pose 1
		else
			doif dirn eq 3
				targ ownr
				base 3
				pose 1
			endi
		endi
	endi
endm
