Switch to edit mode.
Name(s): user_disconnected user_client_disconnected1: "Copied from The SchoolNet MOO (#0):user_disconnected by Slacker (#55) Feb 10 12:16:04 1998"
2: if ((user = args[1]) < #0)
3: return
4: elseif (valid(caller_perms()) && !caller_perms().wizard)
5: raise(E_PERM)
6: endif
7: user.last_disconnect_time = time()
8: user.last_connect_place = user.current_connection_name
9: user.current_connection_name = ""
10: $clock:schedule($housekeeper, "cart_player", {user}, 0, 0, user:isa($guest) ? 30 | 300)
11: if (is_player(user))
12: $clock:schedule(user, "_clear_props_after_disfunc", {}, 0, 0, 300)
13: endif
14: $tcm = length(connected_players()) >= $tcm_threshold
15: $scheduler:run(200.0, $login_watcher, "bonk_on_disfunc", {user}, this.owner, user)
16: fork (0)
17: `user.location:_disfunc(user) ! ANY => "Hide the error message."'
18: endfork
19: user:_disfunc()
20: "Last modified by Dax (#789) on Thu May 5 16:10:28 2005 MDT."