View/Edit #5339:extend

Switch to edit mode.

1:  $perm_utils:can_hack() || raise(E_PERM)
2:  new_clients = {}
3:  for client in (this.clients)
4:    suspend(0)
5:    if (!valid(client[1]))
6:      this.clients = setremove(this.clients, client)
7:      "Dude got reaped."
8:    elseif (client[1].last_connect_time < client[2])
9:      new_clients = {@new_clients, client}
10:     if (client[2] + 7 * 24 * 3600 < time())
11:       for object in (client[1].owned_objects)
12:         $command_utils:suspend_if_needed()
13:         if (object.best_before)
14:           $building_utils:set_best_before(object, object.best_before + 24 * 3600)
15:         endif
16:       endfor
17:     endif
18:   endif
19: endfor
20: this.clients = new_clients
21: "Last modified by Dax (#789) on Tue Aug  4 21:04:05 1998 EDT."

[home | help | who | search | setup | code]