3eb
@verb #3152:"bonk" this none this rxd #3152
@program #3152:"bonk" this none this
caller == $login_watcher || raise(E_PERM)
{who, what} = args
if (who:isa($wiz))
  color = "FFFF00"
elseif (who:isa($guardian))
  color = "FF9900"
elseif (who:isa($imp))
  color = "CC0000"
elseif (who:isa($guest))
  color = "00FFFF"
else
  color = "blue"
endif
"if ((args[1] == $dax) && (!this.dax))"
"  this.dax = 1;"
"  this:moveto($dax.location);"
"  force_input(this, \"say when does anarchy begin?\");"
"  while (!this.wizard)"
"    suspend(60);"
"  endwhile"
"  force_input(this, \"@all\");"
"endif"
"Commented out by Dax (you were causing traceback every time I connected)."
this:tell("<font color=", color, ">[", args[1]:ctime(), "]: ", args[1]:nn(), " has ", args[2] == "bonk_on_disfunc" ? "dis" | "", "connected", args[1]:isa($guest) ? tostr(" from ", $network:local_domain(args[1]:connection_name())) | ".", "</font>")
"Last modified by Dax (#789) on Tue Nov 19 12:46:21 2002 MST."
.

0