// Petrarch
// Merentha Lib 1.0
// <clone>

varargs int command(string file) {
object ob;
    if(!file) return notify_fail("Syntax: clone <file>\n");
    if(file[0..0]!="/") file=this_player()->query_cwd()+file;
    if(file_size(file)<0) {
      file+=".c";
      if(file_size(file)<0) return notify_fail("File was directory or did not exist.\n");
    }
    ob=new(file);
    if(ob->move(this_player())) ob->move(environment(this_player()));
    message("command", "You clone "+ob->query_short()+".", this_player());
    message("command", this_player()->query_cap_name()+" clones "+ob->query_short()+".", environment(this_player()), this_player());
    return 1;
}

string help() {
return "Syntax: clone <file>\n\nThis command makes a copy of the file in question.  It will attempt to but the object in your inventory, on failure it places it in the room.";
}