@verb #5335:"bonk_on_confunc bonk_on_disfunc bonk_on_reconfunc" this none this rxdo #55
@program #5335:"bonk_on_confunc bonk_on_disfunc bonk_on_reconfunc" this none this
if (args[1]:isa($project) || args[1]:isa($webber) || !caller_perms().wizard || args[1]:isa($system_player))
  return
endif
cp = connected_players()
"Then we can drop perms."
set_task_perms($no_one)
"It might have been funny the first time, but it's been done now. These jokes should have a suicide switch."
"if (ctime()[5..10] == \"Apr  1\")"
"  \"April Fool's hack!\";"
"  args[1] = players()[random($)];"
"endif"
for x in (cp)
  y = listiassoc(x, this.monitoring)
  ret = 0
  if (x in this.users)
    if (!y)
      ret = 1
    else
      if (this.monitoring[y][2])
        if (!!(#-1 in this.monitoring[y][3]) + !!(args[1] in this.monitoring[y][3]) == 1)
          ret = 1
        endif
      endif
    endif
    try
      if (ret)
        if (verb == "bonk_on_confunc")
          msg = "msg_connect"
        elseif (verb == "bonk_on_reconfunc")
          msg = "msg_reconnect"
        elseif (verb == "bonk_on_disfunc")
          msg = "msg_disconnect"
        endif
        $scheduler:run(30.0, x, "tell", {strsub(x:has_property(msg) || ((loc = x:has_verb(msg)) && loc[1] == x) ? x:(msg)(args[1]) | this:(msg)(), "%n", args[1].name)}, $no_one, $no_one)
      endif
    except (ANY)
      "doh..."
    endtry
  endif
endfor
for y in (this.hooks)
  if (!this:cleanup_hook(@y))
    $scheduler:run(10.0, this, "do_funky_bonk", {y[1], y[2], {@args, verb}}, $no_one, $no_one)
    "    $scheduler:run(10.0, y[1], y[2], {@args, verb}, $no_one, $no_one);"
  endif
  "Above if structure added by Cecil to correct for dead hooked objects."
endfor
"Thanks to Daryl for customizable connect/disconnect messages."
"Removed facility for people to have annoying :title verbs. - whiz"
"Last modified by Lao-Tzu (#8084) on Tue Aug 20 09:48:30 2002 MDT."
.