@prog savehost.muf
1 999 d
1 i
: keepcount (holder-room tagstr countstr -- )
	"." rot strcat "." strcat
	3 pick over getpropstr atoi
	dup not if
		pop dup 1 create
		dup 5 pick addlink
		dup 5 pick moveto
		4 rotate rot 3 pick int intostr 0 addprop
	else
		dbref swap pop rot pop
	then
	( countstr obj )
	swap
	( holder-object string )
	over ".last" 3 pick 0 addprop
	over ".when" systime ctime 0 addprop
	".#-" over strcat 3 pick swap
	over over getpropstr atoi 1 + intostr 0 addprop
	pop pop
;
: main
(
	me @ name "Souris" strcmp if exit then
)
	prog ".holder" getpropstr atoi
	dup not if pop exit then
	dbref
	me @ int intostr me @ "*host" getpropstr
	3 pick over 4 pick keepcount
	keepcount
;
.
c
q