@prog say.muf
1 999 d
1 i
: main
	trigger @ "_sayformat" getpropstr
	dup not if pop me @ "_sayformat" getpropstr then
	dup not if pop prog "_sayformat" getpropstr then
	dup not if pop "says, \"%m\"" then
	swap "%m" subst me @ name " " strcat swap strcat
	loc @ swap #-1 swap notify_except
;
.
c
q