@verb #26:"HELP" any none none rdo #60
@program #26:"HELP" any none none
"HELP [ <topic> ]"
"    The HELP command gives help info."
this = $code_utils:verb_location()
if (args && this:has_verb(args[1]))
  text = $help_utils:fetch_verb(this, args[1], 0)
  for line in (text)
    player:tell("214-", line)
  endfor
  player:tell("214-View the source at \"", $www.url, toint(this), ":", args[1], "\"")
else
  verbs = $su:explode($su:from_list(verbs(this), " "))
  player:tell("214-The following commands are available:")
  for v in (verbs)
    if (verb_args(this, v)[3] == "none")
      "This is a command verb"
      player:tell("214-  ", v)
    endif
  endfor
  player:tell("214-For more info use \"HELP <topic>\"")
  player:tell("214-Or view the source at \"", $www.url, toint(this), ":\"")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:30 2005 MDT."
.