35d
@verb #1011:"@tellticks" any none none rxd #7153
@program #1011:"@tellticks" any none none
this.foo = {}
all = {@this.location.contents, this.location}
for p in (all)
  fork (0)
    start = ticks_left()
    p:tell(dobjstr)
    cost = start - ticks_left() - 2
    this.foo = {@this.foo, {cost, p}}
  endfork
endfor
fork (1)
  this.foo = $list_utils:sort_alist(this.foo)
  suspend(0)
  this:tell("---")
  for p in (this.foo)
    psymbol = is_player(p[2]) ? " *" | ""
    this:tell($string_utils:left($string_utils:name_and_number(p[2]), 50, "."), $string_utils:right(tostr(p[1]), 6, "."), psymbol)
    $command_utils:suspend_if_needed()
  endfor
  t = 0
  for p in (this.foo)
    t = t + p[1]
  endfor
  player:tell("Total: ", t, " ticks.")
  this:tell("---")
endfork
"Last modified by Dax (#789) on Sat May 16 14:19:38 1998 EDT."
.

0