@verb #12:"@rm-macro @remove-macro" any none none rdo #55
@program #12:"@rm-macro @remove-macro" any none none
if (player != this)
  return $msg:mtell("huh")
endif
if (argstr == "" || argstr[1] != "!" || length(args) > 1)
  return player:tell("Syntax: ", verb, " ![macro]")
endif
for y in (this.macros)
  if (y[1] == argstr[2..$])
    this.macros = setremove(this.macros, y)
    return player:tell("Macro removed.")
  endif
endfor
player:tell("That macro does not exist.  Type @macros for a list of macros.")
"Last modified by Dax (#789) on Mon Dec 10 21:34:08 2001 MST."
.