/*    /lib/events/look_in.c
 *    From the Dead Souls Object Library
 *    Something that can be seen in
 *    Created by Descartes of Borg 961222
 *    Version :@(#) look_in.c 1.2@(#)
 *    Last modified: 96/12/31
 */

#include <function.h>

private string InternalDesc = 0;
int    Opacity = 100;

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

string GetInternalDesc() {
    mixed val = InternalDesc;

    if( arrayp(val) ) {
	val = val[query_night()];
    }
    if( stringp(val) ) {
	return val;
    }
    else if( functionp(val) ) {
	if( functionp(val) & FP_OWNER_DESTED ) {
	    return "Error evaluating internal description.";
	}
	return evaluate(val, this_player());
    }
}

string SetInternalDesc(string str) {
    return (InternalDesc = str);
}

int GetOpacity() {
    return Opacity;
}

int SetOpacity(int x) {
    Opacity = x;
    parse_refresh();
    return Opacity;
}

varargs mixed CanShowInterior(object who, object target) {
    int x;
    if(!who) who = this_player();

    if( environment() != this_player()  && environment(this_player()) !=
      environment()) {
	return "#You don't have that!";
    }

    if(living()) {
	//write("You can't look inside of a living being.");
	//return 1;
	return "You can't look inside of a living being.";
    }

    if( target ) {
	x = 66;
    }
    else {
	x = 33;
    }
    if( this_object()->GetClosed() && this_object()->GetOpacity() > x ) {
	return 0;
    }
    return 1;
}

varargs mixed eventShowInterior(object who, object target) {
    object here,me,imhere,dabei;
    string this,str;
    here=environment(this_object());
    me=this_object();
    this=me->GetKeyName();
    str=me->GetInternalDesc();
    imhere=present(this,environment(who));
    dabei=present(this,who);

    if( target ) {
	//return target->eventShow(who);
	return "well, well, well.";
    }

    if(!imhere && !dabei) {
	who->eventPrint("That is not here.");
	return 0;
    }

    if( !str || str == "" ) {
	return 0;
    }
    if(!inherits("/lib/comp/surface",this_object())) environment(who)->eventPrint(who->GetName() + " looks inside " +
	  GetShort() + ".", who);
    who->eventPrint(str);

}

mixed direct_look_in_obj() {
    if(inherits("/lib/comp/surface",this_object())) return 0;
    return CanShowInterior(this_player());
}

mixed direct_look_inside_obj() {
    if(inherits("/lib/comp/surface",this_object())) return 0;
    return CanShowInterior(this_player());
}

mixed indirect_look_at_obj_word_obj(object target) {
    if( environment(target) != this_object() ) {
	return "#That is not in there.";
    }
    return CanShowInterior(this_player(), target);
}

mixed inventory_visible() {
    if( GetOpacity() > 33 ) {
	return 0;
    }
    else {
	return 1;
    }
}