@verb #56:"_dispatch" this none this rxdo #55
@program #56:"_dispatch" this none this
caller == this || raise(E_PERM)
player = this
fork t (2)
  totdone = 0
  while (this.dispatch_queue)
    this:wakey()
    suspend(1)
    q = this.dispatch_queue[1]
    try
      this:funky_action(q)
    except error (ANY)
      kill_task(this.dispatch_task)
      $wiz_utils:wiz_alert(verb, "Bzzt! " + tostr(this) + ":funky_action caused an error. Auto-killing " + tostr(this) + ":dispatch to snuff this error until next time :dispatch is called. Someone please debug and fix!")
      $wiz_utils:wiz_alert(verb, tostr("The action was ", toliteral(q), " and the error was ", error[1]))
      this.funky_action_error = error
    endtry
    this.dispatch_queue = listdelete(this.dispatch_queue, 1)
    totdone = totdone + 1
    if (totdone % 100 == 0)
      this.last_commands = {@`this.last_commands[$ - 18..$] ! E_RANGE => this.last_commands', tostr("Done ", totdone, " objects, ", length(this.dispatch_queue), " left.")}
    endif
    suspend(2)
  endwhile
endfork
return t
"Last modified by Raptor (#6319) on Mon Jan 21 23:52:23 2002 MST."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:42 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:42 2002 MDT."
.