/* /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>
#include <message_class.h>
#include <daemons.h>
// abstract methods
int AddCarriedMass(int amount);
string GetShort();
// end abstract methods
mixed CanGetFrom(object who, object item){
int check = GUARD_D->CheckGet(who, this_object());
if(!check){
who->eventPrint("You can't get it.", MSG_SYSTEM);
return 0;
}
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() || "that") +" 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(!clonep(container)) return "#wat";
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);
}
