@verb #0:"user_created user_connected" this none this
@program #0:user_created
"Copied from The System Object (#0):user_connected by Slartibartfast (#4242) Sun May 21 18:14:16 1995 PDT";
if (callers())
  return;
endif
$mcp:(verb)(@args);
$userlist:(verb)(@args);
user = args[1];
set_task_perms(user);
try
  user.location:confunc(user);
  user:confunc();
except id (ANY)
  user:tell("Confunc failed: ", id[2], ".");
  for tb in (id[4])
    user:tell("... called from ", tb[1], ":", tb[2], ", line ", tb[6]);
  endfor
  user:tell("(End of traceback)");
endtry
.

@verb #0:"user_disconnected user_client_disconnected" this none this
@program #0:user_disconnected
if (callers())
  return;
endif
if (args[1] < #0)
  "not logged in user.  probably should do something clever here involving Carrot's no-spam hack.  --yduJ";
  return;
endif
$mcp:(verb)(@args);
$userlist:(verb)(@args);
user = args[1];
user.last_disconnect_time = time();
set_task_perms(user);
`user:disfunc() ! ANY => 0';
`user.location:disfunc(user) ! ANY => 0';
.