/*   /secure/cmds/player/peer.c
 *   Peer into an adjacent room wihout actually entering
 *   Blitz@Dead SoulsIV
 */

#include <lib.h>

inherit LIB_DAEMON;

string DescribeItems(mixed var);
string DescribeLiving(mixed var);

mixed cmd(string str) {
    int i;
    string file;
    object env, *livings, *items;

    if( !sizeof(str) ) return "Syntax: peer <direction>";
    switch(str){
    case "n" : str = "north";break;
    case "ne" : str = "northeast";break;
    case "nw" : str = "northwest";break;
    case "s" : str = "south";break;
    case "se" : str = "southeast";break;
    case "sw" : str = "southwest";break;
    case "e" : str = "east";break;
    case "w" : str = "west";break;
    case "u" : str = "up";break;
    case "d" : str = "down";break;
    }
    env = environment(this_player());
    if( !file = (string)env->GetExit(str) ) file = (string)env->GetEnter(str);
    if( !sizeof(file) )
	return "You cannot peer that way.";
    if( (i = this_player()->GetEffectiveVision()) > 5 )
	return "It is too bright to do that.";
    if( i < 3 )
	return "It is too dark to attempt that.";
    if( env->GetDoor(str) && ((string)env->GetDoor(str))->GetClosed() ) {
	message("my_action", sprintf("%s is blocking your view %s.",
	    (capitalize(env->GetDoor(str)->GetShort(str))), str),
	  this_player() );
	return 1;
    }
    if( !unguarded((: file_exists, file + ".c" :)) ||
      (!env = load_object(file)) ) {
	message("my_action", "It is not safe to peer "+str+"!", this_player() );
	return 1;
    }
    if(env->GetProperty("no peer")){
	return "You can't see in that direction.";
    }
    if( (i = this_player()->GetEffectiveVision(file,1)) > 5 )
	return "It is too bright in that direction.";
    else if( i < 3 )
	return "It is too dark there.";

    items = filter(all_inventory(env),
      (: !(int)$1->GetInvis(this_player()) :) );
    items = items - (livings = filter(items, (: living :)));
    message("my_action", "%^GREEN%^"
      "Peering "+str+" you see...",
      this_player() );
    message("other_action",
      (string)this_player()->GetCapName()+" peers "+str+".",
      environment(this_player()), this_player() );
    message("room_description",
      ("\n"+(string)env->GetLong(0)+"\n" || "\nA void.\n"),
      this_player() );
    if( sizeof(items) )
	message("room_inventory",
	  "%^MAGENTA%^" + DescribeItems(items) + "%^RESET%^\n",
	  this_player() );
    if( sizeof(livings) )
	message("room_inventory",
	  "%^BOLD%^%^RED%^" + DescribeLiving(livings) + "%^RESET%^",
	  this_player() );
    return 1;
}

string DescribeItems(mixed var) {
    mapping m = ([ ]);
    string *shorts, ret;
    int i, max;

    if( !arrayp(var) ) return "";
    i = sizeof( shorts = map(var, (: $1->GetShort() :)) );
    while(i--) {
	if( !sizeof(shorts[i]) ) continue;
	if( m[ shorts[i] ] ) m[ shorts[i] ]++;
	else m[ shorts[i] ] = 1;
    }
    i = max = sizeof( shorts = keys(m) );
    ret = "";
    for(i=0; i<max; i++) {
	if( m[ shorts[i] ] < 2 ) ret += shorts[i];
	else ret += consolidate(m[shorts[i]], shorts[i]);
	if( i == (max - 1) ) {
	    if( max>1 || m[ shorts[i] ] > 1 ) ret += " are here.";
	    else ret += " is here.";
	}
	else if( i == (max - 2) ) ret += ", and ";
	else ret += ", ";
    }
    return capitalize(ret);
}

string DescribeLiving(mixed var) {
    mapping m = ([ ]);
    string *shorts, ret;
    int i;
    if( !arrayp(var) ) return "";
    i = sizeof( shorts = map(var, (: $1->GetShort() :)) );
    while(i--) {
	if( !sizeof(shorts[i]) ) continue;
	if( m[ shorts[i] ] ) m[ shorts[i] ]++;
	else m[ shorts[i] ] = 1;
    }
    ret = "";
    i = sizeof( shorts = keys(m) );
    while(i--) if( m[ shorts[i] ] > 1 )
	    ret += (consolidate(m[shorts[i]], shorts[i]) + "\n");
	else ret += (shorts[i] + "\n");
    return ret;
}

void help() {
    message("help",
      "Syntax: peer <direction>\n\n"
      "Allows you to look into an adjacent room without actually "
      "entering it.  Note that light and doorways affect what you "
      "see.\n\n",
      this_player() );
}