#include <lib.h>
void help();
inherit LIB_DAEMON;
int cmd(string str) {
object ob, env;
string which, what, nom, ret;
if(sscanf(str,"%s %s",which, what) != 2){
help();
return 1;
}
str = which;
switch(str){
case "weap" : str = "weap";break;
case "weapons" : str = "weap";break;
case "weapon" : str = "weap";break;
case "ob" : str = "obj";break;
case "obs" : str = "obj";break;
case "objs" : str = "obj";break;
case "objects" : str = "obj";break;
case "meals" : str = "meal";break;
case "npcs" : str = "npc";break;
case "mob" : str = "npc";break;
case "mobs" : str = "npc";break;
case "mon" : str = "npc";break;
case "monster" : str = "npc";break;
case "monsters" : str = "npc";break;
case "rooms" : str = "room";break;
case "arm" : str = "armor";break;
case "armors" : str = "armor";break;
}
env = environment(this_player());
if(!env || strsrch(base_name(env), homedir(this_player()))){
if(creatorp(this_player())){
write("You are a creator. Use the clone command.");
}
else {
write("You can only do this while in your area.");
}
return 1;
}
if(str == "room"){
write("Rooms can't be cloned. Try: areagoto");
return 1;
}
str = homedir(this_player()) + "/area/" + str + "/" + what;
if(last(str,2) != ".c") str += ".c";
write("File selected: "+str);
if(!file_exists(str)){
write(str + " does not exist!");
return 1;
}
if( ret = catch(ob = new(str)) ){
write("Error in cloning object: " + ret);
return 1;
}
if(!ob){
write("Failed to clone file: " + str);
return 1;
}
if( !((int)ob->eventMove(this_player())) &&
!((int)ob->eventMove(environment(this_player()))) ) {
write("Failed to properly move the object.");
return 1;
}
nom = ob->GetShort();
if( !(ret = (string)this_player()->GetMessage("clone", ob)) )
ret = (string)this_player()->GetName() + " clones " + nom + ".";
say(ret);
write("You clone " + nom + " ( " + str + " ).");
return 1;
}
void help() {
message("help", "Syntax: areaclone [ npc | weapon | armor | obj ] <name>\n\n"
"Allows a builder to bring into existence a copy of one of "
"her creations. To see the available items, use the arealist "
"command.\n\n"
"See also: arealist, areagoto",
this_player());
}
