@verb #100:"run" this none this rxdo #55
@program #100:"run" this none this
":run(priority, object, verb, args, perms, player)  Schedules a verb to be called by perms with traceback going to player."
if (!caller_perms().wizard && (caller_perms() != args[5] || !(args[6] in {player, caller_perms()})))
  raise(E_PERM)
elseif (value_bytes(this.heap) >= this.heap_size_limit)
  raise(E_QUOTA, "Help!  Too many tasks running!")
endif
oldplayer = player
{priority, object, verb, newargs, perms, player} = args
this.heap = $lazy_heap_utils:insert(this.heap, {args, callers(1), task_id()})
spies = this.spies
if (!queue_info(this))
  set_task_perms(this)
  fork (0)
    this:go()
  endfork
endif
notify_list = {tostr("[", this, "]: Task ", object, ":", verb, "(", `toliteral(newargs)[2..$ - 1] ! E_RANGE => ""', ") started by ", $su:nn(oldplayer)), tostr("[", this, "]: Using perms of ", $su:nn(perms), " and player ", $su:nn(player)), tostr("[", this, "]: Priority is ", priority), tostr("[", this, "]: Callers: ", toliteral(`this:task_stack(task_id()) ! ANY' || callers())), tostr("[", this, "]")}
for wizzen in (spies)
  wizzen:tell(notify_list)
endfor
"Last modified by Cecil (#7407) on Wed Jan 23 11:00:39 2002 MST."
.