/* Cleaning up.
* Wonderflug, 96.
*/
int bury(string str,object x)
{
object me;
object *target;
int counter,i;
if(x)
me = x;
else
me = this_player();
if (!str || str == "")
str = "corpse";
if("/global/omiq.c"->flag_in_progress()){
tell_object(me,"You can't bury during capture the flag.\n");
return 0;
}
if(me->query_dead())
{
tell_object(me,"You, a disembodied ghost, expect to bury your own "
"corpse ?.\nCyric pats you on the head and tells you: Nice try.\n ");
return 1;
}
target = all_inventory(environment(me));
counter = 0;
for (i=0;i<sizeof(target);i++)
if( target[i]->query_corpse() )
{
target[i]->dest_me(); // Allow them to clean up themselves.
counter++;
}
if (counter)
tell_object(me,"You bury the corpse"+(counter == 1?"":"s")+
" deep within the earth.\n");
else
tell_object(me,"You can't find the corpse!\n");
return 1;
}
string help()
{
return
"\nSyntax: bury\n\n"
"This command buries all the corpses in the room. Anything in the "
"corpses gets buried with them.\n\n";
}