/*    /lib/events/show.c
 *    From the Dead Souls LPC Library
 *    Responds to people looking at things on objects
 *    Created by Descartes of Borg 930616
 *    Version: @(#) look.c 1.8@(#)
 *    Last modified: 96/12/31
 */

#include <function.h>
#include <lib.h>
#include <vision.h>

private mixed   ExternalDesc = 0;
private int     Invisible    = 0;
private static string  look_globalval;
static function f;
//private mapping Items        = ([]);
mapping Items        = ([]);

// abstract methods
string GetShort();
// end abstract methods

varargs string GetExternalDesc(object who) {
    string openstate;

    if(this_object()->CanClose()){
	if(this_object()->GetClosed()) openstate = " It is closed.";
	else openstate = " It is open.";
    }
    else openstate = "";

    if( !ExternalDesc ) {
	return "";
    }
    if( functionp(ExternalDesc) ) {
	if( functionp(ExternalDesc) & FP_OWNER_DESTED ) {
	    return "";
	}
	return evaluate(ExternalDesc, who);
    }
    else if( arrayp(ExternalDesc) ) {
	return ExternalDesc[query_night()] + openstate;;
    }
    else {
	return ExternalDesc + openstate;
    }
}

string SetExternalDesc(string desc) {
    return (ExternalDesc = desc);
}

varargs int GetInvis(object ob) {
    if( !ob ) {
	ob = (this_player() || previous_object());
    }
    if( functionp(Invisible) ) {
	return evaluate(Invisible, ob);
    }
    else return Invisible;
}

mixed SetInvis(mixed val) {
    if( !val || intp(val) ) {
	if(!val || val == 0){
	    Invisible = 0;
	    if(sizeof(get_livings(environment(this_object()),2))){
		foreach(object ob in get_livings(environment(this_object()),2)){
		    ob->CheckEncounter();
		}
	    }
	    return 1;
	}
	return (Invisible = val);
    }
    else if( functionp(val) && !Invisible ) {
	return (Invisible = val);
    }
    else {
	return Invisible;
    }
}

varargs mixed AddItem(mixed item, mixed val) {
    if( objectp(item) ) {
	item->eventMove(this_object());
	return 1;
    }
    if( functionp(val) || stringp(val) || arrayp(val) ) {
	if( stringp(item) ) {
	    Items[item] = val;
	}
	else if( arrayp(item) ) {
	    map(item, (: AddItem($1, $(val)) :));
	    return val;
	}
	else {
	    error("Bad argument 1 to AddItem().\n");
	}
    }
    else error("Bad argument 2 to AddItem().\n");
    return (Items[item]);
}

//TMI2 back-compat hack
mixed AddItem_func(mixed foo){
    foreach(mixed key, mixed val in foo){
	look_globalval = val;
	AddItem(key, (: look_globalval :) );
    }
    return foo;
}

mixed SetItem_func(mixed foo){
    foreach(mixed key, mixed val in foo){
	look_globalval = val;
	//f =  call_other(this_object(), look_globalval);
	f =  functionify(look_globalval);
	//AddItem(key,  (: look_globalval :) );
	call_other( this_object(), ({ "AddItem", key,  (: f :) }) );
	//call_out( AddItem, 1, key, (: look_globalval :) );
    }
    return foo;
}


varargs mixed GetItem(string item, object who) {
    mixed val = mapping_member(Items, item);

    if( !val ) {
	return 0;
    }
    if( stringp(val) || arrayp(val)) {
	return Items[val];
    }
    else if( functionp(val) ) {
	if( functionp(val) & FP_OWNER_DESTED ) {
	    return "An error occurred evaulating a function pointer.";
	}
	return evaluate(val, who, item);
    }
    else {
	return 0;
    }
}

string array GetItems() {
    return keys(Items);
}

mapping GetItemsMap(){
    return copy(Items);
}

mapping RemoveItem(mixed item) {
    if( !stringp(item) ) {
	if( !arrayp(item) ) {
	    error("Bad argument 1 to RemoveItem().\n");
	}
	map(item, (: RemoveItem($1) :));
	return copy(Items);
    }
    map_delete(Items, item);
    return copy(Items);
}

mapping SetItems(mapping items) {
    foreach(mixed key, mixed val in items){
	AddItem(key, val);
    }
    return copy(Items);
}

//TMI2 compat hack
mapping SetItem_desc(mapping items) {
    return SetItems(items);
}

varargs string GetLong(string str) {
    if( str && Items[str] ) {
	return GetItem(str);
    }
    else {
	return GetExternalDesc();
    }
}

string SetLong(string str) {
    return SetExternalDesc(str);
}

varargs mixed eventShow(object who, string component) {
    mixed desc;

    if( component ) {
	component = remove_article(lower_case(component));
	desc = GetItem(component, who);
	environment(who)->eventPrint(who->GetName() + " looks at the " +
	  component + " on " + GetShort() + ".",
	  ({ who, this_object() }));
    }
    else {
	desc = GetExternalDesc(who);
	environment(who)->eventPrint(who->GetName() + " looks at " +
	  GetShort() + ".",
	  ({ who, this_object() }));
    }

    if((!inherits(LIB_SIT,this_object()) && !inherits(LIB_LIE,this_object())) ||
      (!sizeof(this_object()->GetLiers()) && !sizeof(this_object()->GetSitters()))){
	if(inherits(LIB_SURFACE,this_object()) ||
	  this_object()->GetOpacity() < 33){
	    (functionp(desc) ? evaluate(desc) : who->eventPrint(desc));
	    this_object()->eventShowInterior(who);
	}
	else (functionp(desc) ? evaluate(desc) : who->eventPrint(desc));
    }
    else (functionp(desc) ? evaluate(desc) : who->eventPrint(desc));
    return 1;
}

mixed direct_look_obj() {
    object env = environment();
    if(!this_object()->GetInvis()){
	if( env != this_player() && env != environment(this_player()) ) {
	    return "#Perhaps \"look at "+this_object()->GetKeyName()+
	    " on\" something?"; 
	}
    }
    return 1;
}

mixed direct_look_at_obj() {
    return direct_look_obj();
}

mixed direct_look_at_obj_on_obj(object target, object ob,mixed arg, mixed arg2) {
    if(!ob) ob=environment(target);
    //tc("arg: "+identify(arg),"cyan");
    //tc("arg2: "+identify(arg2),"cyan");
    //tc("ob: "+identify(ob),"cyan");
    //tc("target: "+identify(target),"cyan");
    if((inherits(LIB_SIT,ob) && sizeof(ob->GetSitters())) ||
      (inherits(LIB_LIE,ob) && sizeof(ob->GetLiers()))){
	write("There appears to be someone blocking your view.");
	//tc("gamma","yellow");
	return 0;
    }

    if(ob->GetInvis()){
	return "#There is no "+arg+" on "+arg2+" here.";
    }

    if(!target->GetInvis()){
	if((inherits(LIB_SURFACE,ob) || living(ob)) && 
	  environment(target) == ob){
	    if(this_player()->GetEffectiveVision() == VISION_CLEAR){
		return target->GetExternalDesc();
	    }
	    else return "#You can't quite make out its details.";
	}
    }
    if( environment(target) != ob || target->GetInvis() ) {
	//tc("omega","red");
	return "#There is no " + arg + " on " + ob->GetShort() + ".";
    }
    return 1;
}

mixed direct_look_at_obj_word_obj() {
    return direct_look_obj();
}

mixed direct_look_at_str_on_obj(string str, object target) {
    object dingus;
    str = remove_article(lower_case(str));
    //tc("eh","cyan");
    if((inherits(LIB_SIT,target) && sizeof(target->GetSitters())) ||
      (inherits(LIB_LIE,target) && sizeof(target->GetLiers()))){
	write("There appears to be someone blocking your view.");
	return 0;
    }

    if((inherits(LIB_SURFACE,target) || living(target)) && dingus = present(str, target)){
	if(this_player()->GetEffectiveVision() == VISION_CLEAR){
	    return dingus->GetExternalDesc();
	}
	else return "#You can't quite make out its details.";
    }
    if( !Items[str] ) {
	return "#There is no " + str + " on " + GetShort() + ".";
    }
    return 1;
}


