@verb #84:"tell_children" this none this rxdo #60
@program #84:"tell_children" this none this
{object} = args
player:tell("<H1>Children of <A HREF=\"/", toint(object), "\">", object.name, " (", object, ")</A></H1>")
kids = children(object)
player:tell("<B>", length(kids), " child", length(kids) == 1 ? ":" | (kids ? "ren:" | "ren."), "</B><BR>")
if (kids)
  info = this:children_table(object, object, kids)
  player:tellColumns(@info)
  player:tell("<BR>")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:30 2005 MDT."
.