/*    /lib/events/get_from.c
 *    From the Dead Souls Object Library
 *    Handles get from/put in
 *    Created by Descartes of Borg 961221
 *    Version: @(#) get_from.c 1.1@(#)
 *    Last modified: 96/12/22
 */

#include <lib.h>

// abstract methods
int AddCarriedMass(int amount);
string GetShort();
// end abstract methods

mixed CanGetFrom(object who, object item) {

    if( !item ) {
	return 0;
    }
    if( environment(item) != this_object() ) {
	return 0;
    }
    if( environment(item) != this_object() ) {
	item = present(item->GetKeyName(),this_object());
	if(!item) return 0;
    }

    if( (environment() != environment(this_player())) &&
      (environment() != this_player()) ) {
	return "#" + capitalize(GetShort()) + " is not in reach.";
    }
    return 1;
}

mixed CanPutInto(object who, object item) {
    object env;

    if((inherits(LIB_SIT,item) && sizeof(item->GetSitters())) ||
      (inherits(LIB_LIE,item) && sizeof(item->GetLiers()))){
	write("There appears to be someone in your way.");
	return 0;
    }

    if( item == this_object() ) {
	return "#You cannot change the laws of physics.";
    }
    env = environment();
    if( env != this_player() && env != environment(this_player()) ) {
	return "#It is not within reach.";
    }

    if( this_object()->GetClosed() ){
	return "#It's closed!";
    }
    return 1;
}

mixed CanPutOnto(object who, object item) {
    object env;

    if((inherits(LIB_SIT,item) && sizeof(item->GetSitters())) ||
      (inherits(LIB_LIE,item) && sizeof(item->GetLiers()))){
	write("There appears to be someone preventing your access.");
	return 0;
    }

    if(!inherits( LIB_SURFACE, item ) ){
	return "#That isn't a load-bearing surface.";
    }
    if( item == this_object() ) {
	return "#You cannot change the laws of physics.";
    }
    env = environment();
    if( env != this_player() && env != environment(this_player()) ) {
	return "#It is not within reach.";
    }
    return 1;
}


mixed eventGetFrom(object who, object array what) {
    object array fin = ({});
    string array shorts;
    mapping mp = ([]);
    string msg;
    int i, maxi;

    if((inherits(LIB_SIT,this_object()) && sizeof(this_object()->GetSitters())) || 
      (inherits(LIB_LIE,this_object()) && sizeof(this_object()->GetLiers()))){
	write("There appears to be someone on there.");
	return 0;
    }

    foreach(object ob in what ) {
	if( environment(ob) != this_object() ) {
	    continue;
	}
	if( ob->CanGet(who) != 1 ) {
	    write("It would appear you can't get "+ob->GetShort()+" right now.");
	    continue;
	}
	if( !who->CanCarry(ob->GetMass()) ) {
	    write("It seems you can't carry it.");
	    continue;
	}
	if( !ob->eventMove(who) ) {
	    who->eventPrint("You have a problem getting " +
	      ob->GetShort() + ".");
	    continue;
	}
	AddCarriedMass( -(ob->GetMass()) );
	fin += ({ ob });
    }
    what = fin;
    if( !(maxi = sizeof(what)) ) {
	return 0;
    }
    shorts = map(what, (: (string)$1->GetShort() :));
    for(i=0; i<maxi; i++) {
	mp[shorts[i]]++;
    }
    maxi = sizeof(shorts = keys(mp));
    for(i=0, msg = ""; i<maxi; i++) {
	if( mp[shorts[i]] < 2 ) {
	    msg += shorts[i] + "%^RESET%^";
	}
	else {
	    msg += consolidate(mp[shorts[i]], shorts[i]) +  "%^RESET%^";
	}
	if( i == maxi-2 ) {
	    msg += ", and ";
	}
	else if( i != maxi-1 ) {
	    msg += ", ";
	}
    }
    send_messages("get", "$agent_name $agent_verb " + msg +
      " from $target_name.", who, this_object(), environment(who));
    return 1;
}

mixed eventPutInto(object who, object what) {
    return what->eventPut(who, this_object());
}

mixed eventPutOnto(object who, object what) {
    if((inherits(LIB_SIT,this_object()) && sizeof(this_object()->GetSitters())) ||
      (inherits(LIB_LIE,this_object()) && sizeof(this_object()->GetLiers()))){
	write("There appears to be someone in the way of that.");
	return 0;
    }
    return what->eventPut(who, this_object()," onto ");
}


int inventory_accessible() {
    return 1;
}

int inventory_visible() {
    return 1;
}

mixed indirect_get_obj_from_obj(object item, object container) {
    if(!item){
	return 0;
    }

    if(environment(item) != this_object()) return 0;

    return CanGetFrom(this_player(), item);
}

mixed indirect_get_obj_out_of_obj(object item, object container) {
    return indirect_get_obj_from_obj(item, container);
}

mixed indirect_get_obj_obj(object item, object container) {
    return indirect_get_obj_from_obj(item, container);
}

mixed indirect_get_obs_from_obj(object array items, object storage) {
    if( !items ) {
	return (storage == this_object());
    }
    return 1;
}

mixed indirect_get_obs_out_of_obj(object array items, object storage) {
    return indirect_get_obs_from_obj(items, storage);
}

mixed indirect_get_obs_obj(object array items, object storage) {
    return indirect_get_obs_from_obj(items, storage);
}

mixed indirect_put_obj_word_obj(object what, string word, object storage) {
    if( !what ) {
	return (storage == this_object());
    }
    return CanPutInto(this_player(), what);
}

mixed indirect_put_obj_obj(object what, string word, object storage) {
    return indirect_put_obj_word_obj(what, word, storage);
}

mixed indirect_put_obs_word_obj(object *items, string wrd, object storage) {
    if( !items ) {
	return (storage == this_object());
    }
    return 1;
}

mixed indirect_put_obs_obj(object *items, string wrd, object storage) {
    return indirect_put_obs_word_obj(items, wrd, storage);
}