@prog fetch.muf
1 999 d
1 i
: wizard? "w" flag? ;
: prop-exists? getpropstr ;
: say me @ swap notify ;
: main
	trigger @ "_closet" getpropstr atoi
	dup not if
		pop "No closet set" say exit
	then
	dbref
	trigger @ owner over owner over dbcmp swap wizard? or not if
		dup "_closet-public" prop-exists? not if
			pop "Permission denied." say exit
		then
	then
	swap rmatch
	dup ok? not if pop "Can't get that" say exit then
	me @ moveto
	"Done." say
;
.
c
q