374
@verb #909:"@fkids" any none none rxdo #6612
@program #909:"@fkids" any none none
"@fkids [object]"
"     Shows all fertile children of the given object."
"     Coded by Diopter (#894) on River MOO."
this:update_usage(verb, player)
thing = player:my_match_object(dobjstr)
if ($command_utils:object_match_failed(thing, dobjstr))
  return
endif
if (!thing.f)
  player:tell("-- note: ", $su:nn(thing), " is not fertile.")
endif
kids = children(thing)
count = length(kids)
player:tell("-- ", $su:nn(thing), " has ", count, " kid", count == 1 ? "" | "s", ".")
fcount = 0
for k in (kids)
  $command_utils:suspend_if_needed()
  if (k.f)
    player:tell($su:nn(k))
    fcount = fcount + 1
  endif
endfor
player:tell("-- ", $su:nn(thing), " has ", fcount, " fertile kid", fcount == 1 ? "" | "s", ".")
"Last modified by Dax (#789) on Sat May 16 14:19:36 1998 EDT."
.

0