/* /lib/drop.c
* From the Dead Souls Object Library
* Makes an object something which can be dropped
* Created by Descartes of Borg 960113
* Version: @(#) drop.c 1.2@(#)
* Last modified: 96/12/22
*/
#include <function.h>
private mixed PreventDrop = 0;
// abstract methods
string GetDefiniteShort();
mixed eventMove(mixed dest);
// end abstract methods
mixed GetPreventDrop() {
return PreventDrop;
}
mixed SetPreventDrop(mixed val) {
if(!intp(val) && !stringp(val) && !functionp(val) && !objectp(val) ) {
error("Bad argument 1 to SetPreventDrop().\n");
}
return (PreventDrop = val);
}
mixed CanDrop(object who) {
if( !PreventDrop ) {
return 1;
}
if( intp(PreventDrop) ) {
return 0;
}
if( stringp(PreventDrop) ) {
return PreventDrop;
}
if( objectp(PreventDrop) ) {
if( PreventDrop == who ) {
return capitalize(GetDefiniteShort()) +
" simply will not leave your grasp.";
}
else {
return 1;
}
}
else {
if( functionp(PreventDrop) & FP_OWNER_DESTED ) {
return "There is a problem with a functional.";
}
return evaluate(PreventDrop, who);
}
}
mixed eventDrop(object who) {
mixed tmp;
if( who != environment() ) {
return 0;
}
tmp = eventMove(environment(who));
if( !tmp ) {
who->eventPrint("Something prevents you from dropping "
+ GetDefiniteShort() + ".");
return 1;
}
if( tmp != 1 ) {
return tmp;
}
send_messages("drop", "$agent_name $agent_verb $target_name.",
who, this_object(), environment(who));
return 1;
}
mixed direct_drop_obj(object target) {
if( environment() != this_player() ) {
return "#You don't have that to drop.";
}
return CanDrop(this_player());
}
