@prog offline-save.muf
1 9999 d
1 i
: say me @ swap notify ;
: log-show
	prog owner ".offline.log.#" getpropstr atoi
	"Total: " over intostr strcat say
	dup not if pop exit then
	1 swap 1 for
		intostr ".offline.log." over strcat prog owner swap
		getpropstr ": " swap strcat strcat say
	loop
;
: log-clear
	0 prog owner propfirst begin while
		dup ".offline." 9 strncmp not if
			dup ".offline.loc" strcmp if
				dup -4 rotate rot 1 + -3 rotate
			then
		then
		pop propnext
	loop
	dup if
		1 swap 1 for pop
			"Clearing " over strcat say
			prog owner swap remove_prop
		loop
	else
		pop
	then
;
: main
	trigger @ name "log-show" strcmp not if log-show exit then
	trigger @ name "log-clear" strcmp not if log-clear exit then
	prog owner awake? if pop exit then
	prog owner
	dup ".offline.loc" getpropstr atoi dbref over location over dbcmp
	if
		pop pop
	else
		moveto
	then
	prog owner ".offline.log.#" over over
	getpropstr atoi 1 + dup -4 rotate intostr 0 addprop
	intostr ".offline.log." swap strcat prog owner swap rot 0 addprop
;
.
c
q