@prog guest-disconnect.muf
1 999 d
1 i
( todo: reset all flags, reset @desc. )
$def chown-ok "o"
$def my-getlink dup program? if owner else getlink then
: main
	me @ name 5 strcut pop "Guest" strcmp if exit then
	prog "pages" getpropstr dup if
		atoi dbref "page" me @ int intostr strcat remove_prop
	else
		pop
	then
	begin me @ contents dup while
		dup my-getlink dup me @ dbcmp if
			pop prog "dump" getpropstr atoi dbref
			over over addlink
		then
		moveto
	loop
	pop
	me @ nextowned
	begin dup while
		dup ok? if
			dup chown-ok set nextowned
		else
			pop #-1
		then
	loop
	pop
;
.
c
q