#include <lib.h>
#include <modules.h>
#include <daemons.h>
#include <rooms.h>

int eventGetArray(string str);
int eventDoAddition(string str);

string globalstr, globalstr2, temporary, func, v2, repstr;
object target;
string *NewArr = ({});
string *array_val = ({});
mapping InvMap = ([]);

mixed gmake(string str) {
    string thingy, filename, val, dir, area_dir;
    string creation;
    string *legal_dirs;
    object template;

    if(sscanf(str, "%s %s %s",thingy, val, filename) == 3) true();
    else if(sscanf(str,"%s %s",thingy, filename) !=2) thingy = str;
    switch(thingy){
    case "item" : creation = "thing"; dir = "obj";break;
    case "book" : creation = "book"; dir = "obj";break;
    case "thing" : creation = "thing"; dir = "obj";break;
    case "weap" : creation = "weapon"; dir = "weap";break;
    case "weapon" : creation = "weapon"; dir = "weap";break;
    case "armor" : creation = "armor"; dir = "armor";break;
    case "arm" : creation = "armor"; dir = "armor";break;
    case "chair" : creation = "chair"; dir = "obj";break;
    case "bed" : creation = "bed"; dir = "obj";break;
    case "storage" : creation = "container"; dir = "obj";break;
    case "container" : creation = "container"; dir = "obj";break;
    case "table" : creation = "table"; dir = "obj";break;
    case "door" : creation = "door"; dir = "doors";break;
    case "barkeep" : creation = "barkeep"; dir = "npc";break;
    case "vendor" : creation = "vendor"; dir = "npc";break;
    case "trainer" : creation = "trainer"; dir = "npc";break;
    case "npc" : creation = "npc"; dir = "npc";break;
    case "mob" : creation = "npc"; dir = "npc";break;
    case "mon" : creation = "npc"; dir = "npc";break;
    case "monst" : creation = "npc"; dir = "npc";break;
    case "monster" : creation = "npc"; dir = "npc";break;
    case "meal" : creation = "meal"; dir = "meals";break;
    case "food" : creation = "meal"; dir = "meals";break;
    case "drink" : creation = "drink"; dir = "meals";break;
    case "worn" : creation = "worn_storage"; dir = "armor";break;
    case "wornstorage" : creation = "worn_storage"; dir = "armor";break;
    case "worn_storage" : creation = "worn_storage"; dir = "armor";break;
    default : true();
    }

    legal_dirs = ({"meals","doors", "obj","armor","weap","npc"});
    if(member_array(dir, legal_dirs) == -1) {
	write("That is not a valid argument. You may create the following: room, npc, "+
	  "door, weapon, armor, container, item, table, chair, bed, meal, worn_storage.");
	return 1;
    }

    else if(!filename || filename == ""){
	write("You must specify a filename. For example: create "+creation+
	  " "+thingy+"_14.c");
	write("or: create "+thingy+" /realms/my_name/area/"+dir+"/my_first_"+creation+".c");
	return 1;
    }

    if(last(filename,2) != ".c") filename += ".c";

    if(!this_player()->query_cwd()){
	write("You have no current working directory. Please type: cd\nthen try again.");
	return 1;
    }

    if(grepp(filename,"/") && directory_exists(path_prefix(filename)) &&
      check_privs(this_player(), filename)){
	write("Ok, using yer filename: "+filename);
    }
    else if(last_string_element(this_player()->query_cwd(),"/") == dir &&
      check_privs(this_player(), this_player()->query_cwd())){
	write("Using your cwd: "+this_player()->query_cwd()+"/"+filename);
	filename = this_player()->query_cwd()+"/"+filename;
    }
    else if(this_player()->query_cwd() != "/" &&
      member_array(dir,get_dir(this_player()->query_cwd()+"/")) != -1 &&
      check_privs(this_player(), this_player()->query_cwd()+"/"+dir)){
	write("Using your cwd plus "+dir+": "+this_player()->query_cwd()+"/"+dir+"/"+filename);
	filename = this_player()->query_cwd()+"/"+dir+"/"+filename;
    }
    else if(member_array(dir,get_dir(path_prefix(this_player()->query_cwd())+"/")) != -1 &&
      check_privs(this_player(), path_prefix(this_player()->query_cwd())+"/"+dir)){
	write("Using your cwd plus ../"+dir+": "+path_prefix(this_player()->query_cwd())+"/"+dir+"/"+filename);
	filename = path_prefix(this_player()->query_cwd())+"/"+dir+"/"+filename;
    }
    else { 
	area_dir = homedir(this_player())+"/area";
	write("I'm going to go with the appropriate area directory: "+area_dir+"/"+dir+"/"+
	  replace_string(filename,"/",""));
	filename = area_dir+"/"+dir+"/"+replace_string(filename,"/","");

    }

    creation = "/obj/"+creation+".c";
    if(file_exists(creation) && cp(creation,filename)) true();
    else {
	write("Creation failed.");
	return 1;
    }

    if(thingy != "door") {
	template = new(filename);
	template->eventMove(environment(this_player()));
	write("You wave your hand mysteriously and "+template->GetShort()+" materializes!");
	say(this_player()->GetCapName()+" waves "+possessive(this_player())+" hand mysteriously and "+template->GetShort()+" materializes!");
    }

    else {
	write("You wave your hand mysteriously and a new door begins to materialize.");
	say(this_player()->GetCapName()+" waves "+possessive(this_player())+" hand mysteriously and a new door begins to materialize.");
	this_object()->eventCreateDoor(val, filename);
    }
    return 1;
}

varargs int eventStartGenericQuestions(object ob, string tempfile, string *new_arr, string what){
    target = ob;
    temporary = tempfile;
    NewArr -= ({ 0 });
    NewArr = new_arr;
    func = what;
    write("This setting takes multiple values. If you have no more values to "+
      "enter, then enter a dot on a blank line. To cancel, enter a single q on "+
      "a blank line.");
    if(NewArr && sizeof(NewArr)) array_val = NewArr;
    else array_val = ({});
    array_val -= ({0});
    array_val -= ({"0"});
    if(sizeof(array_val))
	write("You may now enter the next value. So far, we have: "+identify(array_val));
    else write("You may now enter the next value. So far, it is blank.");
    write("If you're done entering values, enter a dot on a blank line.");

    input_to( (: eventGetArray :) );
    return 1;
}

int eventGetArray(string str){
    if(!str || str == "" || str == "."){
	write("Entries complete. Final array is: "+identify(array_val));
	NewArr = array_val;
	if(!sizeof(array_val)){
	    write("Blank array. Modification cancelled.");
	    return 1;
	}
	if(target->GetDoor() || inherits(LIB_DOOR,target)){
	    this_object()->eventReceiveId(target, NewArr);
	}
	else this_object()->eventResumeArrayMod(target, temporary, NewArr, func);
	array_val = ({});
	return 1;
    }
    else {
	array_val += ({str});
	array_val -= ({0});
	array_val -= ({"0"});
	if(sizeof(array_val)) 
	    write("You may now enter the next value. So far, we have: "+identify(array_val));
	else write("You may now enter the next value. So far, it is blank.");
	write("If you're done entering values, enter a dot on a blank line.");
	input_to( (: eventGetArray :) );
    }

    return 1;
}
int eventDeleteItem(object ob1, object ob2){
    string name, tmpname;
    mapping Inventory;

    name = base_name(ob1);
    if(!check_privs(this_player(), base_name(ob2)) ){
	write("Insufficient privileges. Addition halted.");
	return 1;
    }

    tmpname = generate_tmp();
    Inventory = this_object()->QueryMap("SetInventory",ob2);
    if(sizeof(Inventory[name])) map_delete(Inventory,name); 
    else if(sizeof(Inventory[name+".c"])) map_delete(Inventory,name+".c"); 
    map_delete(Inventory,name);
    map_delete(Inventory,name+".c");
    globalstr = tmpname;
    globalstr2 = base_name(ob2)+".c";
    unguarded( (: cp(globalstr2, globalstr) :) );
    this_object()->eventResumeMappingChange(ob2, tmpname, Inventory, "SetInventory");
    unguarded( (: rm(globalstr) :) );
    return 1;
}

int eventAddItem(object ob, string addendum){
    target = ob;
    v2 = addendum;
    if(!check_privs(this_player(), base_name(target)) || !check_privs(this_player(), addendum)){
	write("Insufficient privileges. Addition halted.");
	return 1;
    }
    this_object()->eventGeneralStuff(base_name(ob)+".c");

    InvMap = this_object()->QueryMap("SetInventory",ob);
    if(!inherits(LIB_NPC,ob)){
	write("Please enter the number of these that you want to add:");
    }
    else write("Please enter a command for the NPC to perform with this "+
	  "item. If you have no such command to enter, enter the number of "+
	  "these items you want to add:");
    input_to( (: eventDoAddition :) );
    return 1;
}

int eventDoAddition(string str){
    this_object()->GetValue("AUTOMATED",target, generate_tmp(target), v2, str, InvMap, "SetInventory");
    return 1;
}

int eventGeneralStuff(string str){
    string fpath = path_prefix(str);
    repstr = "";
    globalstr = str;
    unguarded( (: globalstr2 = read_file(globalstr) :) );
    unguarded( (: this_object()->eventAddInit(globalstr) :) );
    if(grepp(globalstr2,"./customdefs.h")){
	string j1, j2, tmppath;
	sscanf(globalstr2,"%sinclude \"%scustomdefs.h%s",j1,tmppath,j2);
	if(tmppath) repstr = absolute_path(fpath,tmppath+"customdefs.h");
	unguarded( (: globalstr2 = replace_line(globalstr2 ,({"./customdefs.h"}), "#include \""+repstr+"\"") :) );
    } 
    globalstr2 = replace_string(globalstr2,"\n\n\n","\n\n");
    globalstr2 = replace_string(globalstr2,"//funs","");
    globalstr2 = replace_string(globalstr2,"//snuf","");
    globalstr2 = replace_string(globalstr2,"//extras","");
    unguarded( (: write_file(globalstr, globalstr2, 1) :) );
    write("Indenting file...");
    unguarded( (: indent_file(globalstr) :) );
    repstr = "";
    return 1;
}

