@verb #3512:"@gen*erics gen*erics @fert*iles fert*iles" none none none rxdo #6319
@program #3512:"@gen*erics gen*erics @fert*iles fert*iles" none none none
"generics (fertiles, fertile)"
""
"Gives an organized list of all generic items 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("fertiles", 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.f && !x:isa($accountable) && x:is_fertile_for(caller != this ? player | player.user) ! ANY')
    lines = {@lines, {x, `x:title() ! ANY => "*** Invalid ***"', `x.owner:title() ! E_INVIND => "*** Invalid ***"', x.owner}}
  endif
endfor
player:tellColumns({5, 45, 15, 5}, {"#", "Generic name", "Owned by", "#"}, @lines)
player:tell("***End of list***")
"Last modified by Cecil (#7407) on Sat Feb  9 23:14:16 2002 MST."
.