#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());
}