// Initiate intermud shutdown
int shutdown() {
mixed *packet = packet_allocate(SHUTDOWN_PACKET);
if (shutdown)
return 0; // Already in progress
packet[P_DESTINATION] = config -> routers[0][0];
packet[S_P + SHUTDOWN_DELAY] = 180;
map(available_channels(), (: listen_channel($1, 0) :) );
add_buffer(0, packet);
send_buffer(0);
call_out("dest_me", 60);
shutdown = 1;
return 1;
} /* tell() */