#include <lib.h>
#include <daemons.h>
#include <modules.h>
#include <rooms.h>
#include <commands.h>
inherit LIB_VERB;
static void create() {
verb::create();
SetVerb("dest");
SetRules("OBS");
SetErrorMessage("dest what?");
SetHelp("Syntax: <dest OBJ>\n\n"
"Destroy an object.\n"
"\nSee also: zap");
}
mixed can_dest_obj(string str){
if(!builderp(this_player())) return "This command is only available to builders and creators.";
else return 1;
}
mixed can_dest_str(string str){
if(!creatorp(this_player())){
return "Object not found.";
}
return can_dest_obj(str);
}
mixed do_dest_obj(object ob){
string name;
if(base_name(ob) == LIB_DUMMY) {
write(capitalize(ob->GetShort())+" isn't a normal destable item. It remains in place.");
return 1;
}
if(archp(ob) && !archp(this_player())){
write("You can't dest an admin.");
tell_player(ob, this_player()->GetName()+" just tried to dest you.");
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(ob), homedir(this_player()))){
write("As a builder, you can only dest items that you created.");
return 1;
}
if(!living(ob)) name = ob->GetShort();
else name = ob->GetName();
write("You dest "+name+".");
say( this_player()->GetMessage( "dest", ob ) );
ob->eventDestruct();
if(ob) destruct(ob);
return 1;
}
mixed do_dest_obs(object *obs) {
foreach(object ob in obs){
if(!interactive(ob)) do_dest_obj(ob);
}
write("Desting complete.");
return 1;
}
mixed do_dest_str(string str){
object ob;
string tmp;
if(last(str,2) == "_D"){
tmp = DEFINES_D->GetDefine(str);
if(!undefinedp(tmp)) str = tmp;
}
tmp = str;
if(!file_exists(tmp)) tmp += ".c";
if(!file_exists(tmp)) {
tmp = this_player()->query_cwd()+"/"+str;
}
if(!file_exists(tmp)) tmp += ".c";
if(!file_exists(tmp)){
write("Object not found.");
return 1;
}
ob = find_object(tmp);
if(!ob){
write("Object is not loaded.");
return 1;
}
write("ob: "+identify(ob));
ob->eventDestruct();
if(ob) destruct(ob);
if(ob){
write("Destruct failed.");
return 1;
}
write(str+" destructed.");
return 1;
}
