/* /lib/get.c
* from the Dead Souls Object Library
* handles the picking up of objects
* created by Descartes of Borg 960114
* Version: @(#) get.c 1.3@(#)
* Last Modified: 96/12/21
*/
#include <message_class.h>
#include <daemons.h>
private mixed PreventGet;
// abstract methods
int GetMass();
mixed GetProperty(string key);
string GetShort();
string GetKeyName();
mixed eventMove(mixed dest);
// end abstract methods
mixed GetPreventGet(){
return PreventGet;
}
mixed SetPreventGet(mixed val){
return (PreventGet = val);
}
mixed CanGet(object who){
int check = GUARD_D->CheckGet(who, this_object());
if(!check){
who->eventPrint("You are unable to get it.", MSG_SYSTEM);
return 0;
}
if( !((int)who->CanCarry(GetMass())) ) return "It is too heavy for you!";
if( !PreventGet && !GetProperty("keep") ) return 1;
if( stringp(GetProperty("keep")) ){
if( (string)who->GetKeyName() == GetProperty("keep") ){
if( !PreventGet ) return 1;
}
else return "Mystical forces prevent you from getting " + this_object()->GetShort() + ".";
}
if( intp(PreventGet) ) return 0;
if( stringp(PreventGet) ) return PreventGet;
if( objectp(PreventGet) ){
if( PreventGet == who )
return capitalize(this_object()->GetShort()) + " simply will not be taken.";
else return 1;
}
else{
return evaluate(PreventGet, who);
}
}
mixed eventGet(object who){
if( !eventMove(who) ){
who->eventPrint("You fail to get it.");
return 1;
}
who->eventPrint("You get " + this_object()->GetShort() + ".");
environment(who)->eventPrint((string)who->GetName() + " gets " +
this_object()->GetShort() + ".", who);
return 1;
}
static void create(){
PreventGet = 0;
}
mixed direct_get_obj(object target){
if(environment() == this_player())
return "#You're already holding it.";
if( environment() != environment(this_player()) ){
string str = this_object()->GetShort();
if( !str ) str = "It";
else str = capitalize(str);
return "#You may need to get closer to it. Perhaps \"get "+this_object()->GetKeyName()+
" from\" something?";
}
return CanGet(this_player());
}
mixed direct_get_obj_out_of_obj(object target, object src){
object env;
string str;
env = environment();
if( !(str = this_object()->GetShort()) ) str = "It";
else str = capitalize(str);
if( env==this_player() || env ==environment(this_player()) || living(env) ){
return "#You can't do that right now.";
}
return CanGet(this_player());
}
mixed direct_get_obj_from_obj(object target, object src){
return direct_get_obj_out_of_obj(target, src);
}
mixed direct_get_obj_obj(object target, object src){
return direct_get_obj_out_of_obj(target, src);
}
