@prog GlobalSayRedirect.MUF
1 99999 d
1 i
( Redirection for say global. Has an emergency backup )
: cmd-say
 #0 "say" rmatch dup int 1 < if pop #0 else
   getlink dup int 1 < if pop #0 then
 then
 dup int 0 > if call exit then
 pop
 "You say, \"%m\"" over "%m" subst .tell
 me @ name " says, \"%m\"" strcat swap "%m" subst
 loc @ me @ rot notify_except
;
11 lines displayed.
.
c
q
@register #me GlobalSayRedirect.MUF=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=2
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called say.serv.1-11.muf
@propset $tmp/prog1=str:/_filter:33255
@propset $tmp/prog1=str:/_make_say:33314
@propset $tmp/prog1=str:/_message:Both function and server have been upgraded. Type say ##help and say ##changes
@propset $tmp/prog1=str:/_version:Extended say vv 1.11b[3.03] by Warwick on FurryMUCK