@prog OldVerbs.MUF
1 99999 d
1 i
( $OldVerbs - Patch for _say and _osay.
  For luddites who can't be bothered to alter their morph settings.
  Looks for old-style verbs. {No thanks to me..}
)
: start ( db "_say/ch" -- osayt sayt )
  5 strcut swap pop
  dup "sp" strcmp not if pop " " then
  dup "def" strcmp not if pop "" then
  over over "_osay" swap strcat getpropstr
  dup not if pop me @ over "_osay" swap strcat getpropstr
    dup not if pop "says," then then
  -3 rotate
  swap over "_say" swap strcat getpropstr
  dup if swap pop else pop me @ "_say" rot strcat getpropstr
    dup not if pop "says," then then
;
16 lines displayed.
.
c
q
@register #me OldVerbs.MUF=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=2
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called OldVerbs.MUF