@prog mazelock.muf
1 999 d
1 i
: set-failure
	trigger @ prog rot getpropstr setfail
;
: nothing-there "_nothing" set-failure ;
: misconfigured "_misconfigured" set-failure ;
: barred "_barred" set-failure ;
: nopriv "_nopriv" set-failure ;
: main
	trigger @ "_dir" getpropstr
	(dir)
	loc @ swap "_" swap strcat getpropstr
	dup not if pop nothing-there 0 exit then
	(linkto[/lock])
	"/" explode dup 2 > if mpop misconfigured 0 exit then
	([lock linkto 2 | linkto 1])
	1 - if
		(lock linkto)
		swap atoi dbref me @ swap passlock? not if pop barred 0 exit then
	then
	(linkto)
	atoi dbref
	dup owner loc @ owner dbcmp not if pop nopriv 0 exit then
	trigger @ dup unlink swap addlink 1 exit
;
.
c
q