#include <lib.h>
#include <daemons.h>
#include <message_class.h>
#include <vision.h>
#include <medium.h>
#include <position.h>

private static mixed globaltmp, tmp;
private static string desc, smell, sound, touch;
private static int i, maxi;

void eventDescribeEnvironment(int brief){
    object env, transport;
    string *shorts;
    string altern_obvious = "";

    if(!(env = environment(this_object()))){
        this_object()->eventPrint("You are nowhere.", MSG_ROOMDESC);
        return;
    }

    if(env->GetMount() || base_name(env) == LIB_CORPSE){ 
        env = environment(environment(this_player()));
        if(!env){
            this_object()->eventPrint("You are in serious trouble. Ask an admin for help.");
            return;
        }
        i = this_object()->GetEffectiveVision(env); 
    }

    else i =  this_object()->GetEffectiveVision();
    switch( i ){
        case VISION_BLIND:
            this_object()->eventPrint("You are blind and can see nothing.");
            break;
        case VISION_TOO_DARK:
            this_object()->eventPrint("It is much too dark to see.");
            break;
        case VISION_DARK:
            this_object()->eventPrint("It is too dark to see.");
            break;
        case VISION_TOO_BRIGHT:
            this_object()->eventPrint("It is much too %^YELLOW%^bright%^RESET%^ to see.");
            break;
        case VISION_BRIGHT:
            this_object()->eventPrint("It is too %^YELLOW%^bright%^RESET%^ to see.");
            break;
    }
    if( !brief ){
        if( i == VISION_CLEAR ){
            desc = (string)env->GetObviousExits() || "";
            if(desc && desc != "")
                desc = capitalize((string)env->GetShort() || "")
                    + " [" + desc + "]\n";
            else desc = capitalize((string)env->GetShort()+"\n" || "\n");
            if(!NM_STYLE_EXITS){
                desc = capitalize((string)env->GetShort()+"\n" || "\n");
                altern_obvious = "Obvious exit$Q: "+(string)env->GetObviousExits() || "none";
            }
        }
        else desc = "\n";
        if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM ){
#ifdef MINIMAP
            if(this_object()->GetProperty("minimapping")){ 
                desc += simple_map(env)+"\n"; 
            }
#endif
#if (WIZMAP && GRID)
            if(MASTER_D->GetPerfOK() && 
                    this_object()->GetProperty("wizmapping")){ 
                desc += MAP_D->GetMap(environment(this_object()),6)+"\n"; 
            }
#endif
            desc += (string)env->GetLong();
        }
        if(functionp(tmp = (mixed)env->GetSmell("default")))
            tmp = (string)(*tmp)("default");
        smell = tmp;
        if(functionp(tmp = (mixed)env->GetListen("default")))
            tmp = (string)(*tmp)("default");
        sound = tmp;
        if( functionp(tmp = (mixed)env->GetTouch("default")) )
            tmp = evaluate(tmp, "default");
        touch = tmp;
    }
    else {
        if(i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM){
            desc = (string)env->GetShort();
            if(this_object()->GetProperty("minimapping")) desc += simple_map(env)+"\n";
            if(NM_STYLE_EXITS){
                if( (tmp = (string)env->GetObviousExits()) && tmp != "" )
                    desc += " [" + tmp + "]";
                else desc += "\n";
            }
            else altern_obvious = "Obvious exits: "+(string)env->GetObviousExits() || "none";
        }
        else desc = "\n";
    }
    if( desc ) this_object()->eventPrint(desc, MSG_ROOMDESC);
    if(sizeof(altern_obvious)){
        int quant = sizeof(env->GetExits()) + sizeof(env->GetEnters());
        if(quant > 1) altern_obvious = replace_string(altern_obvious,"$Q","s");
        else altern_obvious = replace_string(altern_obvious,"$Q","");
        this_object()->eventPrint(altern_obvious,MSG_ROOMDESC);
    }
    if( smell ) this_object()->eventPrint("%^GREEN%^" + smell, MSG_ROOMDESC);
    if( sound ) this_object()->eventPrint("%^CYAN%^" + sound, MSG_ROOMDESC);
    if( touch ) this_object()->eventPrint("%^YELLOW%^" + touch, MSG_ROOMDESC);
    desc = "";
    if( i == VISION_CLEAR ){
        mapping lying = ([]);
        shorts = map(filter(all_inventory(env),
                    function(object ob){
                    if( living(ob) ) return 0;
                    if( (int)ob->GetInvis(this_object()) && !ob->GetDoor() )
                    return 0;
                    if(ob->GetDoor() && load_object(ob->GetDoor())->GetHiddenDoor()) return 0;
                    if( (int)ob->isFreshCorpse() ) return 0;
                    return 1;
                    }), (: (string)$1->GetShort() :));
        foreach(string s in shorts){
            if( s ){
                lying[s]++;
            }
        }
        for(i=0, desc = 0, maxi = sizeof(shorts = keys(lying)); i<maxi; i++){
            string key = replace_string(shorts[i],"%^RESET%^",
                    "%^RESET%^MAGENTA%^");
            int val = lying[shorts[i]];

            if( val < 2 ){
                if( !desc ) desc = "%^MAGENTA%^" +
                    capitalize(key) + "%^RESET%^MAGENTA%^";
                else desc += key + "%^RESET%^MAGENTA%^";
            }
            else {
                if( !desc ) desc = "%^MAGENTA%^" +
                    capitalize(consolidate(val, key)) +
                        "%^RESET%^MAGENTA%^";
                else desc += consolidate(val, key) +
                    "%^RESET%^MAGENTA%^";
            }
            if( i == maxi - 1 ){
                if( maxi > 1 || val >1 )
                    desc += " are here.%^RESET%^\n";
                else desc += " is here.%^RESET%^\n";
            }
            else if( i == maxi - 2 ){
                if( maxi == 2 ){
                    desc += " and ";
                }
                else {
                    desc += ", and ";
                }
            }
            else desc += ", ";
        }
    }
    i = this_object()->GetEffectiveVision(env);
    if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM ){
        mapping lying = ([]), sitting = ([]), standing = ([]), flying = ([]);
        mapping floating = ([]), kneeling = ([]), swimming = ([]);
        mapping furniture = ([]), null = ([]);
        object mount;
        object *obs;
        string key;
        int val;
        if(this_player()) mount = this_player()->GetProperty("mount");

        obs = filter(all_inventory(env), function(object ob){
                if( (int)ob->GetInvis(this_object()) &&
                    !this_object()->GetWizVision() ) return 0;
                if( living(ob) ) return 1;
                if( (int)ob->isFreshCorpse() )
                return 1;
                }) - ({ this_object(), mount });
        maxi = sizeof(shorts = map(obs, (: 
                        ($1->GetInvis() ? "(invisible) " : "") + 
                        (string)$1->GetHealthShort() :)));
        foreach(object liv in obs){
            int envtype = environment(liv)->GetMedium();
            string s = (string)liv->GetHealthShort();
            int pos = (int)liv->GetPosition();
            if( !s ) continue;
            if(liv->GetInvis() && this_object()->GetWizVision()){
                s = "(invis) " + s;
            }
            if(liv->GetProperty("furniture")){
                s += "BEGIN"+random(999999)+"END";
            }
            if(liv->GetProperty("furniture")){ 
                furniture[s] = liv->GetProperty("furniture");
            }
            else if(!furniture[s]) furniture[s] = 0;

            if( pos == POSITION_STANDING) standing[s]++;
            else if( pos == POSITION_LYING || 
                    ((int)liv->isFreshCorpse() && envtype == MEDIUM_LAND) )
                lying[s]++;
            else if( pos == POSITION_SITTING ) sitting[s]++;
            else if( pos == POSITION_FLYING ) flying[s]++;
            else if( pos == POSITION_FLOATING ||
                    ((int)liv->isFreshCorpse() && envtype != MEDIUM_LAND) )
                floating[s]++;
            else if( pos == POSITION_SWIMMING ) swimming[s]++;
            else if( pos == POSITION_KNEELING ) kneeling[s]++;
            else if( pos == POSITION_NULL ) null[s]++;
            else lying[s]++;
        }
        if( !desc ){
            tmp = "";
        }
        else {
            tmp = desc;
        }
        desc = "";
        foreach(key, val in lying){
            globaltmp = key;
            if(grepp(key,"BEGIN")){
                sscanf(key,"%sBEGIN%*s",key);
            }

            if(lying[globaltmp]>1 && !furniture[globaltmp]){
                desc += capitalize(consolidate(val, globaltmp)) +
                    "%^RESET%^ are lying down.";
            }
            else if(lying[globaltmp]<2 && !furniture[globaltmp]){
                desc += capitalize(key) + "%^RESET%^ is lying down.";
            }
            else if(furniture[globaltmp]){
                desc += capitalize(key) + "%^RESET%^ is lying down"+
                    ((furniture[globaltmp]) ? furniture[globaltmp] : "") +".";
            }
            else if(furniture[key]){
                desc += capitalize(key) + "%^RESET%^ is lying down"+
                    ((furniture[key]) ? furniture[key] : "") +".";
            }


            else {
                desc += "wtf. i am "+key+", furniture["+globaltmp+"] is: "+furniture[globaltmp]+"\n"+
                    "  furniture["+key+"] is: "+furniture[key]+", and val is: "+val;
            }

            desc += "\n";
        }
        foreach(key, val in sitting){
            globaltmp = key;
            if(grepp(key,"BEGIN")){
                sscanf(key,"%sBEGIN%*s",key);
            }

            if(sitting[globaltmp]>1 && !furniture[globaltmp]){
                desc += capitalize(consolidate(val, globaltmp)) +
                    "%^RESET%^ are sitting down.";
            }
            else if(sitting[globaltmp]<2 && !furniture[globaltmp]){
                desc += capitalize(key) + "%^RESET%^ is sitting down.";
            }
            else if(furniture[globaltmp]){
                desc += capitalize(key) + "%^RESET%^ is sitting down"+
                    ((furniture[globaltmp]) ? furniture[globaltmp] : "") +".";
            }
            else if(furniture[key]){
                desc += capitalize(key) + "%^RESET%^ is sitting down"+
                    ((furniture[key]) ? furniture[key] : "") +".";
            }


            else {
                desc += "wtf. i am "+key+", furniture["+globaltmp+"] is: "+furniture[globaltmp]+"\n"+
                    "  furniture["+key+"] is: "+furniture[key]+", and val is: "+val;
            }
            desc += "\n";
        }
        foreach(key, val in standing){
            if(grepp(key,"BEGIN")){
                sscanf(key,"%sBEGIN%*s",key);
            }
            if( val<2 )
                desc += capitalize(key) + "%^RESET%^ is standing here.";
            else desc += capitalize(consolidate(val, key)) +
                "%^RESET%^ are standing here.";
            desc += "\n";
        }
        foreach(key, val in flying){
            if( val<2 )
                desc += capitalize(key) + "%^RESET%^ is hovering here.";
            else desc += capitalize(consolidate(val, key)) +
                "%^RESET%^ are hovering here.";
            desc += "\n";
        }
        foreach(key, val in floating){
            if( val<2 )
                desc += capitalize(key) + "%^RESET%^ is floating here.";
            else desc += capitalize(consolidate(val, key)) +
                "%^RESET%^ are floating here.";
            desc += "\n";
        }
        foreach(key, val in swimming){
            if( val<2 )
                desc += capitalize(key) + "%^RESET%^ is swimming here.";
            else desc += capitalize(consolidate(val, key)) +
                "%^RESET%^ are swimming here.";
            desc += "\n";
        }
        foreach(key, val in kneeling){
            if( val<2 )
                desc += capitalize(key) + "%^RESET%^ is kneeling here.";
            else desc += capitalize(consolidate(val, key)) +
                "%^RESET%^ are kneeling here.";
            desc += "\n";
        }
        foreach(key, val in null){
            if( val<2 )
                desc += capitalize(key) + "%^RESET%^ is here.";
            else desc += capitalize(consolidate(val, key)) +
                "%^RESET%^ are here.";
            desc += "\n";
        }
    }
    if( tmp ){
        desc = tmp + desc;
    }
    if(this_player() && transport = this_player()->GetProperty("mount")){
        string mount_inv = "Nothing";
        string *mount_stuffs = ({});
        object *mount_obs = filter( all_inventory(transport),
                (: ( (($1->GetInvis()) && this_object()->GetWizVision() )
                     || !($1->GetInvis()) ) 
                 && !($1 == this_player()) :));
        if(sizeof(mount_obs)){
            foreach(object element in mount_obs){
                mount_stuffs += ({ element->GetShort() });
            }
            mount_inv = conjunction(mount_stuffs);
        }
        if(!sizeof(desc)) desc = "";
        if(inherits(LIB_VEHICLE,transport)){
            string tmpdesc = transport->GetVehicleInterior();
            if(!tmpdesc || !sizeof(tmpdesc)){ 
                desc += "\nYou are riding in "+
                    transport->GetPlainShort()+".";
            }
            else desc += "\n"+tmpdesc;
            desc += "\nHere you see: "+mount_inv+".";
        }
        else {
            desc += "\nYou are riding on "+
                transport->GetPlainShort()+".";
            desc += "\nOn "+transport->GetPlainShort()+
                " you see: "+mount_inv+".";
        }
    }
    if( sizeof(desc) ){
        if(check_string_length(desc)) this_object()->eventPrint(desc + "\n", MSG_ROOMDESC);
        else print_long_string(this_player(), desc);
    }
}