@prog echo.filter
1 99999 d
1 i
( Echo filter.  By Warwick on FurryMUCK 26/9/92
  For rooms only.  Simply repeats the last word of the message
  in brackets. Only 'rooms only' by way of example for that sort of thing.
  .
  @set here=_say_filter:nnnn   {whatever this program's numbner is.}
)
: echo ( db ch message -- db ch message' 0 )
    dup not if 0 exit then
    3 pick room? not if
        pop pop pop
        "FILTER MESSAGE: Echo filter may only be used on a room." "" 1
        exit
    then
    dup " " rinstr strcut
    " (" over ")" strcat strcat strcat strcat
    0
;
17 lines displayed.
.
c
q
@register #me echo.filter=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=2
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called echo.filter