: check_total
	1 begin dup "_msg" swap intostr strcat
	4 pick location swap getpropstr while
		1 + repeat
	1 -
;
: main
	pop online
	begin dup while
		over location "_message-count" getpropstr
		dup not if
			pop check_total
		else
			atoi dbref
		then
		dup if
			random swap % 1 +
			"_msg" swap intostr strcat
			3 pick location swap getpropstr
			3 pick swap notify
		else
			pop
		then
		swap pop 1 - repeat
		pop random 300 % 60 + prog "" queue
;