460
@verb #7407:"fohelp" any any any rxdo #7407
@program #7407:"fohelp" any any any
for fo in (this.features)
  if (a = argstr in (vbs = `is_clear_property(fo, "feature_verbs") ? verbs(fo) | fo.feature_verbs ! E_PROPNF => verbs(fo)') || strsub(argstr, " ", "-") in vbs || strsub(argstr, " ", "_") in vbs)
    if (docs = $help_utils:verb_documentation(fo, vbs[a]))
      return player:tell({tostr("Showing help on ", fo, ":", vbs[a]), "------------", "", @docs})
    elseif (!is_clear_property(fo, "help_msg"))
      return player:tell({"Showing help on " + $string_utils:nn(fo), "------------", "", @fo:msg_help()})
    else
      return player:tell({tostr("Showing help for ", fo, ":", vbs[a]), "------------", "", "This verb has not been documented.", player:isa($prog) ? tostr("Try typing @list ", fo, ":", vbs[a], " instead.") | tostr("Try contacting the owner, ", $string_utils:nn(fo.owner), ", for assistance.")})
    endif
  endif
  $command_utils:suspend_if_needed()
endfor
player:tell("No help on \"", argstr, "\" is available.")
"Last modified by Cecil (#7407) on Thu Mar 29 12:33:32 2001 MST."
.

0