@verb #3512:"features findf*eatures @findf*eatures" none none none rxdo #6319
@program #3512:"features findf*eatures @findf*eatures" none none none
"features (findfeatures)"
""
"Displays an organized list of all features on the MOO."
if ($tcm)
  return player:tell("I'm sorry, this verb is not available in Tick Conservation Mode.  Please read `help TCM' to learn more.")
endif
this:update_usage("features", player)
number = name = owner = owenernum = lines = {}
caller != this && player:tell("Searching...(this might take a while)")
for x in [#0..max_object()]
  if (is_player(x) || x:isa($trash))
    continue
  endif
  $command_utils:suspend_if_needed()
  if (`x:feature_ok() ! ANY' || `x.feature_ok ! E_PROPNF')
    lines = {@lines, {x, `x:title() ! E_INVIND => "*** Invalid ***"', `x.owner:title() ! E_INVIND => "*** Invalid ***"', x.owner}}
  endif
endfor
player:tellColumns({5, 30, 30, 5}, {"#", "Feature Object Name", "Owned by", "#"}, @lines)
player:tell("***End of list***")
"Last modified by Raptor (#6319) on Tue May 11 00:08:11 1999 MDT."
.