#include <lib.h>
#include <daemons.h>
#include <message_class.h>
#ifndef DISABLE_IMC2
#define DISABLE_IMC2 0
#endif
inherit LIB_ROOM;
int imud_enabled = 0;
string gname;
string *ulist = ({});
mapping umap = ([]);
void validate(){
if(!this_player() || !archp(this_player())){
error("No.");
}
}
int ReceiveObs(object ob){
string bname = base_name(ob);
umap[bname] = (umap[bname] + 1);
return 0;
}
string ReadScreen(){
string *base_names = ({});
string ret = "Top loaded objects:\n";
int rooms, npcs, meminf;
mixed *foo;
validate();
ulist = ({});
umap = ([]);
foo = objects( (: ReceiveObs($1) :) );
ulist = ({});
foreach(mixed key, mixed val in umap){
reset_eval_cost();
ulist += ({ ({ val, key }) });
}
//tc("base_names: "+identify(base_names));
ulist = sort_array(ulist, -1)[0..9];
foreach(mixed element in ulist){
ret += element[1]+" "+element[0]+"\n";
}
rooms = sizeof(objects( (: inherits(LIB_ROOM, $1) :) ) );
npcs = sizeof(objects( (: inherits(LIB_NPC, $1) :) ) );
ret += "\nTotal number of loaded objects: "+sizeof(objects())+"\n";
ret += "Loaded rooms: "+rooms+"\n";
ret += "Loaded NPC's: "+npcs+"\n\n";
ret += "Total number of connected users: "+sizeof(users())+"\n";
ret += "Pending callouts: "+sizeof(call_out_info())+"\n";
ret += "File descriptors in use: "+
(sizeof(explode(dump_file_descriptors(),"\n"))-3)+"\n";
#if 0
meminf = memory_info();
if(meminf){
ret += "Memory in use (allocated memory will be higher): "+
meminf+"\n";
}
#endif
return ret;
}
string eventReadScreen(){
validate();
return unguarded( (: ReadScreen :) );
}
mixed eventReadPrintout(){
mapping MudMap2;
string *all_dead_souls = ({});
string ret = "";
MudMap2 = INTERMUD_D->GetMudList();
if(!sizeof(MudMap2)){
write("Intermud3 link down. Stats unavailable.");
return 1;
}
foreach(string key, mixed *val in MudMap2){
if(grepp(val[5],"Dead Souls")) all_dead_souls += ({ key });
}
ret += "%^RED%^Muds, alive or dead, test or production, that tried Dead Souls:%^RESET%^\n";
foreach(string mud in all_dead_souls){
ret += mud + "\t\t" +MudMap2[mud][5] + "%^RESET%^\n";
}
ret += "\nTotal: "+sizeof(all_dead_souls);
this_player()->eventPage( explode(ret,"\n") );
return "";
}
void SetImud(int i){
if(!i) i = 0;
imud_enabled = i;
}
int GetImud(){
return imud_enabled;
}
string SignRead(){
string ret = "";
if(!INTERMUD_D->GetEnabled()){
ret += "\"I3 connection: %^BOLD%^WHITE%^DISABLED%^RESET%^, ";
}
else if(INTERMUD_D->GetConnectedStatus())
ret += "\"I3 connection: %^BOLD%^GREEN%^ONLINE%^RESET%^, ";
else ret += "\"I3 connection: %^BOLD%^RED%^OFFLINE%^RESET%^, ";
switch (IMC2_D->getonline()) {
case 1:
ret += "IMC2: %^BOLD%^GREEN%^ONLINE%^RESET%^\"";
break;
case 2:
if(!IMC2_D->GetEnabled()){
ret += "IMC2: %^BOLD%^WHITE%^DISABLED%^RESET%^\"";
}
else {
ret += "IMC2: %^BOLD%^YELLOW%^WAITING FOR ACCEPTANCE%^RESET%^\"";
}
break;
case 3:
ret += "IMC2: %^BOLD%^RED%^OFFLINE: CONNECT ERROR%^RESET%^\"";
break;
case 4:
ret += "IMC2: %^BOLD%^RED%^OFFLINE: HUB DOWN%^RESET%^\"";
break;
case 5:
ret += "IMC2: %^BOLD%^RED%^OFFLINE: BANNED%^RESET%^\"";
break;
default:
ret += "IMC2: %^BOLD%^RED%^OFFLINE%^RESET%^\"";
break;
}
return ret;
}
string LongDesc(){
string desc = "This is a polished antiseptic room composed of some "+
"white gleaming material. There is a viewscreen on a wall here, "+
"with a control panel alongside it. "+
"A long printout hangs from the panel."
"\nThe network troubleshooting room is down from here.";
desc += "\nA sign on the wall reads: "+SignRead();
return desc;
}
static void create() {
object ob;
room::create();
SetClimate("indoors");
SetAmbientLight(30);
SetShort("Arch Room");
SetLong( (: LongDesc :) );
SetItems( ([ ({"wall","walls"}) : "The walls seem composed "
"of some advanced polymer. They are extremely clean and highly "
"polished.",
"room" : "This looks like it might be the control room "
"for the mud.",
//({"screen","viewscreen"}) : "This is a display screen of some sort.",
({"screen","viewscreen"}) : (: eventReadScreen :) ,
({"printout"}) : (: eventReadPrintout :) ,
({"sign"}) : "A sign you can read.",
({"panel","control panel"}): "This seems to be the main control "
"panel for the mud. It contains a bewildering array of "
"keypads, but the most prominent feature of the control panel "
"is a metallic plate in its center, shaped in the form of a "
"human hand.",
({"camera","hal","HAL"}) : "This is the rectangular faceplate of "
"a camera mounted within the wall. On the upper end of the "
"rectangle is a stamped label. On the lower end is the lens, "
"which has at its center a glowing red light.",
({"label","stamped label"}) : "A stamped metal label. The label "
"reads: 'HAL 9000'.",
({"plate","metallic plate","identification plate"}) : "This "
"appears to be an identification plate of some sort, designed "
"to accomodate a human hand.",
"portal" : "A portal to another place." ]) );
SetExits( ([
"north" : "/domains/default/room/wiz_hall",
"down" : "/secure/room/network.c",
]) );
SetEnters( ([
]) );
SetProperties(([
"no peer" : 1,
]));
SetRead("screen", (: eventReadScreen :) );
SetRead("printout", (: eventReadPrintout :) );
SetRead("sign", (: SignRead :) );
SetListen("default", "You can faintly hear a low hum coming from the walls.");
SetListen( ({"wall","walls"}), "You hear a low throbbing sound, as if from machinery.");
SetInventory( ([
"/secure/obj/arch_board" : 1,
]) );
}
int CanReceive(object ob) {
if( !archp(ob) && base_name(ob) != "/secure/obj/arch_board"){
message("info","The arch room is available only to "+
"admins, sorry.",ob);
return 0;
}
return 1;
}
void init(){
::init();
}
