@prog stash.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 match
	dup ok? not if pop pop "Can't stash that" say exit then
	swap moveto
	"Done." say
;
.
c
q