@prog tess-begin-lock.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	trigger @ "holder" getpropstr atoi dbref
	"_tess-player" over over prop-exists? not if pop pop 1 exit then
	getpropstr atoi dbref
	dup player? not if pop 1 exit then
	trigger @ "parent" getpropstr atoi dbref swap
	do
		over over dbcmp if
			"Someone is already playing tess." say pop pop 0 exit
		then
		location dup not if pop pop 1 exit then
	loop
;
.
c
q