#include <network.h>
mapping reply, notes;

string mssp_reply(){
    string *k;
    int i;
    string ret, ip = query_intermud_ip();
    string intermud = "";
   
    if(find_object(INTERMUD_D)) intermud += "i3";
    if(find_object(IMC2_D)){
        if(sizeof(intermud)) intermud += "\t";
        intermud += "IMC2";
    }
    if(!sizeof(intermud)) intermud = "0";

    reply = ([
            "NAME"             : mud_name(),
            "PLAYERS"          : itoa(sizeof(users())),
            "UPTIME"           : itoa(time() - uptime()),
            "PORT"             : itoa(query_host_port()),
            "CODEBASE"         : mudlib()+" "+mudlib_version(),
            "CONTACT"          : ADMIN_EMAIL,
            "WHO"              : implode(map(filter(users(),
            (: (environment($1) && !($1->GetInvis())) :)), 
            (: $1->GetCapName():)), "\t"),
            "HOSTNAME"         : ip,
            "DESCRIPTION"      : "A fun mud!",
            "CREATED"          : itoa(local_time()[5]),
            "ICON"             : "http://"+ip+":"+PORT_HTTP+"/favicon.ico",
            "IP"               : ip,
            "LANGUAGE"         : "English",
            "LOCATION"         : "United States",
            "MINIMUM AGE"      : "13",
            "WEBSITE"          : "http://"+ip+":"+PORT_HTTP,
            "FAMILY"           : "LPMud",
            "GENRE"            : "Adventure",
            "SUBGENRE"         : "Adventure",
            "GAMEPLAY"         : "Adventure",
            "GAMESYSTEM"       : "Custom",
            "INTERMUD"         : intermud,
            "STATUS"           : "Alpha",
            "AREAS"            : "7",
            "HELPFILES"        : "N/A",
            "MOBILES"          : "150",
            "OBJECTS"          : "300",
            "ROOMS"            : "300",
            "RESETS"           : "N/A",
            "MUDPROGS"         : "N/A",
            "MUDTRIGS"         : "N/A",
            "CLASSES"          : "5",
            "LEVELS"           : "300",
            "RACES"            : "72",
            "SKILLS"           : "N/A",
            "DBSIZE"           : "N/A",
            "EXITS"            : "N/A",
            "EXTRA DESCRIPTIONS" : "N/A",
            "ADULT MATERIAL"   : "0",
            "MULTICLASSING"    : "0",
            "PLAYER CITIES"    : "0",
            "PLAYER CLANS"     : "0",
            "PLAYER CRAFTING"  : "0",
            "PLAYER GUILDS"    : "0",
            "EQUIPMENT SYSTEM" : "N/A",
            "MULTIPLAYING"     : "Full",
            "PLAYERKILLING"    : "Full",
            "QUEST SYSTEM"     : "Automated\tIntegrated",
            "ROLEPLAYING"      : "None",
            "TRAINING SYSTEM"  : "Skill",
            "WORLD ORIGINALITY": "Mostly Original",
            "ANSI"             : "1",
            "MCCP"             : "0",
            "SSL"              : "0",
            "MCP"              : "0",
            "MSP"              : "0",
            "MXP"              : "0",
            "PUEBLO"           : "0",
            "VT100"            : "0",
            "XTERM 256 COLORS" : "0",
            "PAY TO PLAY"      : "0",
            "PAY FOR PERKS"    : "0",
            "HIRING BUILDERS"  : "1",
            "HIRING CODERS"    : "1",
            ]);

    notes = ([
            "FAMILY-NOTES"           : "descendant of Nightmare",
            "HELPFILES-NOTES"        : "each command, and hundreds of other docs",
            "MOBILES-NOTES"          : "npc's can be cloned, so there can be thousands",
            "OBJECTS-NOTES"          : "objects can be cloned, so there can be thousands",
            "ROOMS-NOTES"            : "areas have generated rooms, could be millions",
            "RESETS-NOTES"           : "doesn't apply, LPMud",
            "MUDPROGS-NOTES"         : "doesn't apply, LPMud",
            "MUDTRIGS-NOTES"         : "doesn't apply, LPMud",
            "RACES-NOTES"            : "not all are playable",
            "SKILLS-NOTES"           : "many, but not like Diku",
            ]);

    ret = "MSSP-REPLY-START\r\n";
    k = keys(reply);

#ifdef __DSLIB__
    k = sort_array(k, -1);
#endif

    for(i = (sizeof(k) - 1); i > -1; i--){
        ret += k[i];
        ret += "\t";
        ret += reply[k[i]];
        ret += "\r\n";
    }

    k = keys(notes);

#ifdef __DSLIB__
    k = sort_array(k, -1);
#endif

    for(i = (sizeof(k) - 1); i > -1; i--){
        ret += k[i];
        ret += "\t";
        ret += notes[k[i]];
        ret += "\r\n";
    }

    ret += "MSSP-REPLY-END\r\n";

    return ret;
}

mapping mssp_map(){
    string text = mssp_reply();
    mapping ret = ([]), tmp = add_maps(reply, notes);
    foreach(mixed key, mixed val in tmp){
        if(undefinedp(val)) continue;
        if(grepp(val, "\t")){
            ret[key] = explode(val, "\t");
        }
        else ret[key] = val;
    }
    return ret;
}