2d3
@verb #76:"do_command" this none this rxdo #55
@program #76:"do_command" this none this
caller in {this, #-1} || raise(E_PERM)
player:isa(this.connection_class) || raise(E_PERM)
try
  fork (0)
    for x in (this.spies)
      x:notify(tostr("[", player, "]> ", $html_utils:literal_text(argstr)))
    endfor
  endfork
except (E_QUOTA)
  "well, forking failed... instead, take a short breath, do it inline, and then continue processing this command.  safer.  cooperative multitasking gooooo."
  for x in (this.spies)
    x:notify(tostr("[", player, "]> ", $html_utils:literal_text(argstr)))
  endfor
endtry
return player:do_command(@args)
"Last modified by Cecil (#7407) on Sun Oct 27 00:09:02 2002 MDT."
.

0