300
@verb #12:"@set-macro" any any any rdo #55
@program #12:"@set-macro" any any any
if (player != this)
  return $msg:mtell("huh")
endif
if (length(args) < 2 || args[2] == "")
  return player:tell("Syntax:  @set-macro ![macro] [value] / [value2] / [value3] ...   (See ?macros for more information.")
endif
for y in [1..length(this.macros)]
  if (this.macros[y][1] == args[1][2..$])
    mac = ""
    for x in (args[2..$])
      mac = tostr(mac, " ", x)
    endfor
    this.macros[y][2] = $string_utils:explode(mac, "/")
    return player:tell("Value for ", args[1], " changed.")
  endif
endfor
return player:tell("That macro does not exist.  See @macros for a list of defined macros.")
"Last modified by Dax (#789) on Mon Dec 10 21:33:55 2001 MST."
.

0