* Script  1 Activate(1)
scrp 2 9 28 1
	doif movs eq 0
		doif grav eq 0
			setv attr 196
			gsub open
			gsub spea
			gsub clos
			setv attr 199
		endi
	endi
	setv actv 0
	subr open
		enum 2 1 55
			mesg writ targ 5
			mvto 4300 640
		next
		base 0
		anim [1234567]
		over
	retn
	subr spea
		base 7
		anim [01234567R]
		setv var0 posx
		subv var0 10
		setv var1 posy
		wait 10
		enum 3 3 11
			mesg wrt+ targ 256 var0 var1 0
		next
		wait 200
	retn
	subr clos
		base 0
		anim [6543210]
		over
		mesg wrt+ ownr 256 0 0 0
	retn
endm

* Script  4 Picked up
scrp 2 9 28 4
	enum 2 1 55
		mvto 4300 640
	next
endm

* Script  5 Dropped
scrp 2 9 28 5
	loop
		wait 1
	untl grav eq 0
	mesg wrt+ ownr 256 0 0 0
endm

scrp 2 9 28 256
	setv var0 posl
	setv var1 post
	addv var0 50
	subv var1 40
	enum 2 1 55
		mvto var0 var1
	next
endm

