/* /lib/events/dig_with.c
* From the Dead Souls Object Library
* handles functions to allow something to dig
* Created by Descartes of Borg 951030
* Version: @(#) dig_with.c 1.3@(#)
* Last modified: 97/01/01
*/
#include <function.h>
varargs mixed CanBuryWith(object who, object what){
int fp = functionp(environment(who)->GetBury());
if( !fp || (fp & FP_OWNER_DESTED) ){
return "This is not a very good place for burying.";
}
return 1;
}
varargs mixed CanDigWith(object who, object what){
if( what ){ // the parser will trigger CanDig() there
return 1;
}
else {
int fp = functionp(environment(who)->GetDig());
if( !fp || (fp & FP_OWNER_DESTED) ){
return "This is not a very good place for that kind of digging.";
}
return 1;
}
}
mixed eventBuryWith(object who, object what){
mixed tmp = environment(who)->eventBuryItem(who, this_object(), what);
if( tmp == 1 ){
return tmp;
}
else {
who->eventPrint(tmp || "The burial did not work well.");
}
return 1;
}
varargs mixed eventDigWith(object who, object what){
object target;
mixed tmp;
if( what ){
target = what;
}
else {
target = environment(who);
}
tmp = target->eventDig(who, this_object());
if( tmp == 1 ){
return tmp;
}
else {
who->eventPrint(tmp || "The digging did not work so well.");
return 1;
}
}
mixed direct_bury_str_with_obj(string str){
if( environment() != this_player() ){
return "#You must have it to dig with it!";
}
return CanBuryWith(this_player());
}
mixed direct_dig_with_obj(){
if( environment() != this_player() ){
return "#You must have it to dig with it!";
}
return CanDigWith(this_player());
}
mixed direct_dig_str_with_obj(string what){
if( environment() != this_player() ){
return "#You must have it to dig with it!";
}
if( remove_article(lower_case(what)) != "hole" ){
return "Dig a what?";
}
return CanDigWith(this_player());
}
mixed indirect_bury_obj_with_obj(object what){
if( environment() != this_player() ){
return "#You must have it to bury with it!";
}
return CanBuryWith(this_player(), what);
}
mixed indirect_dig_obj_with_obj(object what){
if( environment() != this_player() ){
return "#You must have it to dig with it!";
}
return CanDigWith(this_player(), what);
}
