/*    /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>

private mixed   ExternalDesc = 0;
private int     Invisible    = 0;
private mapping Items        = ([]);

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

varargs string GetExternalDesc(object who) {
    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()];
    }
    else {
	return ExternalDesc;
    }
}

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( intp(val) ) {
	return (Invisible = val);
    }
    else if( functionp(val) && !Invisible ) {
	return (Invisible = val);
    }
    else {
	return Invisible;
    }
}

mixed AddItem(mixed item, mixed val) {
    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]);
}

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

    if( !val ) {
	return 0;
    }
    if( stringp(val) ) {
	return 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 if( arrayp(val) ) {
	if( sizeof(val) != 2 ) {
	    return 0;
	}
	return val[query_night()];
    }
    else {
	return 0;
    }
}

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

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

mapping SetItems(mapping items) {
    return (Items = expand_keys(items));
}

// This method should no longer be used
varargs string GetLong(string str) {
    if( str && Items[str] ) {
	return GetItem(str);
    }
    else {
	return GetExternalDesc();
    }
}

// This method should no longer be used
string SetLong(string str) {
    return SetExternalDesc(str);
}

varargs mixed eventShow(object who, string component) {
    string 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() }));
    }
    who->eventPrint(desc);
    return 1;
}

mixed direct_look_obj() {
    object env = environment();
    
    if( env != this_player() && env != environment(this_player()) ) {
	return "#You can't get to it to look at it.";
    }
    return 1;
}

mixed direct_look_at_obj() {
    return direct_look_obj();
}
 
mixed direct_look_at_obj_word_obj() {
    return direct_look_obj();
}
 
mixed direct_look_at_str_on_obj(string str, object target) {
    str = remove_article(lower_case(str));
    if( !Items[str] ) {
	return "#There is no " + str + " on " + GetShort() + ".";
    }
    return 1;
}