2d1
@verb #9982:"bonk" this none this rxd #9982
@program #9982:"bonk" this none this
"Copied from Simpleton (#3252):bonk Nov 12 18:17:33 2002"
"Copied from Anon (#3152):bonk Nov 12 18:14:23 2002"
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
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>")
.

0