/* /lib/drop.c
* From the Dead Souls Mud 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 <lib.h>
#include <function.h>
#include ROOMS_H
private mixed PreventDrop = 0;
private mixed DestructOnDrop = 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);
}
int GetDestructOnDrop(){
return DestructOnDrop;
}
int SetDestructOnDrop(int val){
return (DestructOnDrop = 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;
}
if(DestructOnDrop) tmp = eventMove(ROOM_FURNACE);
else 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));
if(DestructOnDrop) tell_room(environment(who),capitalize(this_object()->GetShort())+" vanishes in a flash of light!");
return 1;
}
mixed direct_drop_obj(object target){
if( environment() != this_player() ){
return "#You don't have that to drop.";
}
return CanDrop(this_player());
}
