/*    /daemon/create.c
 *    From Dead Souls LPMud
 *    Mediates requests to create and modify objects
 */

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


int eventDelete(object ob, string value);
string global1, global2, globaltmp, globalvalue;

string *base_arr = ({"set_heart_beat", "SetUnique", "SetNoClean","SetNoModify","SetProperties","SetLong","SetShort","SetItems","SetListen","SetSmell"});
string *item_arr = base_arr + ({"SetLanguage","SetRead","SetDefaultRead","SetDisableChance", "SetDamagePoints", "SetVendorType","SetNoCondition","SetMoney","SetKeyName", "SetId", "SetMass","SetCost","SetValue","SetAdjectives","SetDamagePoints","SetBaseCost" });
string *meal_arr = item_arr + ({ "SetMealType", "SetStrength"}) -({"SetDamagePoints"});
string *storage_arr = item_arr + ({"SetOpacity", "SetMaxCarry","SetInventory", "SetCanClose", "SetCanLock","SetMaxRecurse","SetLocked","SetClosed","SetKey"});
string *room_arr = base_arr - ({"SetUnique"}) + ({"SetLanguage", "SetRead", "SetDefaultRead", "SetNoObviousExits","SetDefaultExits","SetTown","SetNightLong","SetDayLong","SetClimate","SetAmbientLight","SetNightLight","SetDayLight","SetObviousExits", "SetInventory", "SetEnters"});
string *npc_arr = base_arr - ({"SetItems"}) + ({"SetNativeLanguage","SetCustomXP", "SetSpellBook", "SetCanBite", "SetWimpy","SetWimpyCommand","SetPacifist", "SetBodyComposition", "SetSleeping","SetPermitLoad", "SetAutoStand","SetCurrency","SetSkills","SetStats","SetKeyName", "SetId", "SetLevel", "SetRace", "SetClass","SetGender", "SetInventory", "SetHealthPoints","SetMaxHealthPoints", "SetAdjectives", "SetMelee", "SetPosition", "SetWanderSpeed", "SetEncounter", "SetMorality", "SetHeartBeat"});
string *barkeep_arr = npc_arr + ({"SetLocalCurrency","SetMenuItems"});
string *trainer_arr = npc_arr + ({"SetNoSpells", "AddTrainingSkills"});
string *vendor_arr = npc_arr + ({"SetLocalCurrency","SetStorageRoom","SetMaxItems","SetVendorType"});
string *armor_arr = item_arr +({"SetRestrictLimbs","SetProtection","SetArmorType"});
string *weapon_arr = item_arr + ({"SetClass","SetWeaponType","SetDamageType","SetHands"});
string *chair_arr = item_arr + ({"SetMaxSitters","SetMaxCarry","SetInventory"});
string *bed_arr = chair_arr + ({"SetMaxLiers"});
string *table_arr = storage_arr + bed_arr;
string *door_arr = ({"SetHiddenDoor", "SetLong","SetShort","SetLocked","SetClosed","SetCanLock","SetKey","SetId"});
string *book_arr = item_arr + ({"SetTitle","SetSource"});
string *worn_storage_arr = armor_arr + storage_arr;

string *all_arr = storage_arr + door_arr + room_arr + barkeep_arr + armor_arr + weapon_arr + bed_arr +meal_arr + vendor_arr +trainer_arr;


string GetSettings(string str){
    string ret;
    string *name = ({});
    ret = "";
    switch(str){
    case "room" : name = room_arr; break;
    case "npc" : name = npc_arr; break;
    case "mob" : name = npc_arr; break;
    case "barkeep" : name = barkeep_arr; break;
    case "vendor" : name = vendor_arr; break;
    case "trainer" : name = trainer_arr; break;
    case "armor" : name = armor_arr; break;
    case "armour" : name = armor_arr; break;
    case "weapon" : name = weapon_arr; break;
    case "item" : name = item_arr; break;
    case "door" : name = door_arr; break;
    case "meal" : name = meal_arr; break;
    case "storage" : name = storage_arr; break;
    case "table" : name = table_arr; break;
    case "bed" : name = bed_arr; break;
    case "chair" : name = chair_arr; break;
    case "book" : name = book_arr; break;
    case "worn storage" : name = worn_storage_arr; break;
    case "wornstorage" : name = worn_storage_arr; break;
    case "worn_storage" : name = worn_storage_arr; break;
    default : name = room_arr;
    }
    foreach(string thing in name){
	ret += thing+", ";
    }
    ret = truncate(ret,2)+".";
    return ret;
}

mapping QueryMap(string str,object ob){
    switch(str){
    case "SetItems" : return ob->GetItemsMap();break;
    case "SetSmell" : return ob->GetSmellMap();break;
    case "SetListen" : return ob->GetListenMap();break;
    case "SetInventory" : return ob->GetInventory();break;
    case "SetEnters" : return ob->GetEnterMap();break;
    case "SetMenuItems" : return ob->GetMenuItems();break;
    case "SetSpellBook" : return ob->GetSpellBook();break;
    default : return ([]);
    }

}

mixed eventModify(object ob, string str){
    string inheritance, out, tmpfile, filename, mode, metamode;
    mixed value, mixed_tmp;
    int invalid, setmap;
    mapping temp_map;
    string *p_array, *array_props, *special_map_array;;

    invalid = 1;

    inheritance = "";

    if(ob->GetDoor() && sizeof(ob->GetDoor())) {
	inheritance = "door";
	ob = load_object(ob->GetDoor());
    }

    filename = base_name(ob)+".c";
    tmpfile = generate_tmp(ob);
    special_map_array = ({ "SetProperties", "SetStats", "SetSkills"});

    if(!check_privs(this_player(),filename)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    if(!check_privs(this_player(),tmpfile)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    global1 = filename;
    global2 = filename;

    unguarded( (: global1 = replace_line(read_file(global1) ,({"customdefs.h"}), "#include \""+homedir(this_player())+"/customdefs.h\"") :) );
    global1 = replace_string(global1,"//extras","");
    global1 = replace_string(global1,"\n\n\n","\n\n");
    unguarded( (: write_file(global2, global1, 1) :) );
    global1 = filename;
    global2 = tmpfile;
    unguarded( (: cp(global1,global2) :) );

    if(inherits(LIB_ROOM,ob)) inheritance += " room";
    if(inherits(LIB_NPC,ob)) inheritance += " npc";
    if(inherits(LIB_SENTIENT,ob)) inheritance += " npc";
    if(inherits(LIB_BARKEEP,ob)) inheritance += " barkeep";
    if(inherits(LIB_VENDOR,ob)) inheritance += " vendor";
    if(inherits(LIB_TRAINER,ob)) inheritance += " trainer";
    if(inherits(LIB_WEAPON,ob)) inheritance += " weapon";
    if(inherits(LIB_ARMOR,ob)) inheritance += " armor";
    if(inherits(LIB_ITEM,ob)) inheritance += " item";
    if(inherits(LIB_STORAGE,ob)) inheritance += " storage";
    if(inherits(LIB_CHAIR,ob)) inheritance += " chair";
    if(inherits(LIB_BED,ob)) inheritance += " bed";
    if(inherits(LIB_TABLE,ob)) inheritance += " table";
    if(inherits(LIB_MEAL,ob)) inheritance += " meal";
    if(inherits(LIB_BOOK,ob)) inheritance += " book";
    if(inherits(LIB_DOOR,ob)) inheritance += " door";
    if(inherits(LIB_WORN_STORAGE,ob)) inheritance += " worn_storage";

    if(!inheritance || inheritance == ""){
	write("The object you want to modify lacks an init() function.");
	write("Please correct this by issuing the initfix command, then try again.");
	write("\nIf you are certain the object has a working init(), then");
	write("This error indicates that its library object type is not");
	write("currently supported by the Quick Creation System.");
	return 1;
    }

    if(sscanf(str,"%s %s %d",mode, metamode, value) != 3) sscanf(str,"%s %s %s",mode, metamode, value);
    if(member_array(mode,special_map_array) == -1){
	if(sscanf(str,"%s %d",mode, value) != 2) sscanf(str,"%s %s",mode, value); 
    }
    if(!value) {
	value = 0;
	if(!mode) mode = str;
    }

    if(mode == "delete") {
	if(value) mode = value;
	value = "delete";
    }

    setmap = 0;
    switch(lower_case(mode)){
    case "short" : out = "SetShort";break;
    case "setshort" : out = "SetShort";break;
    case "long" : out = "SetLong";break;
    case "setlong" : out = "SetLong";break;
    case "setnightlong" : out = "SetNightLong";break;
    case "nightlong" : out = "SetNightLong";break;
    case "daylong" : out = "SetDayLong";break;
    case "setdaylong" : out = "SetDayLong";break;
    case "climate" : out = "SetClimate";break;
    case "setclimate" : out = "SetClimate";break;
    case "light" : out = "SetAmbientLight";break;
    case "ambientlight" : out = "SetAmbientLight";break;
    case "setlight" : out = "SetAmbientLight";break;
    case "nightlight" : out = "SetNightLight";break;
    case "setnightlight" : out = "SetNightLight";break;
    case "daylight" : out = "SetDayLight";break;
    case "setdaylight" : out = "SetDayLight";break;
    case "obvious" : out = "SetObviousExits";break;
    case "setobvious" : out = "SetObviousExits";break;
    case "obviousexits" : out = "SetObviousExits";break;
    case "setobviousexits" : out = "SetObviousExits";break;
    case "town" : out = "SetTown";break;
    case "settown" : out = "SetTown";break;
    case "keyname" : out = "SetKeyName";break;
    case "setkeyname" : out = "SetKeyName";break;
    case "name" : out = "SetKeyName";break;
    case "setname" : out = "SetKeyName";break;
    case "id" : out = "SetId";break;
    case "setid" : out = "SetId";break;
    case "class" : out = "SetClass";break;
    case "setclass" : out = "SetClass";break;
    case "maxhealth" : out = "SetMaxHealthPoints";break;
    case "maxhealthpoints" : out = "SetMaxHealthPoints";break;
    case "setmaxhealth" : out = "SetMaxHealthPoints";break;
    case "setmaxhealthpoints" : out = "SetMaxHealthPoints";break;
    case "level" : out = "SetLevel";break;
    case "setlevel" : out = "SetLevel";break;
    case "race" : out = "SetRace";break;
    case "setrace" : out = "SetRace";break;
    case "health" : out = "SetHealthPoints";break;
    case "healthpoints" : out = "SetHealthPoints";break;
    case "sethealth" : out = "SetHealthPoints";break;
    case "sethealthpoints" : out = "SetHealthPoints";break;
    case "gender" : out = "SetGender";break;
    case "setgender" : out = "SetGender";break;
    case "mass" : out = "SetMass";break;
    case "setmass" : out = "SetMass";break;
    case "weight" : out = "SetMass";break;
    case "setweight" : out = "SetMass";break;
    case "cost" : out = "SetCost";break;
    case "setcost" : out = "SetCost";break;
    case "value" : out = "SetValue";break;
    case "setvalue" : out = "SetValue";break;
    case "dollarcost" : out = "SetDollarCost";break;
    case "setdollarcost" : out = "SetDollarCost";break;
    case "adjectives" : out = "SetAdjectives";break;
    case "setadjectives" : out = "SetAdjectives";break;
    case "adj" : out = "SetAdjectives";break;
    case "setadj" : out = "SetAdjectives";break;
    case "adjs" : out = "SetAdjectives";break;
    case "setadjs" : out = "SetAdjectives";break;
    case "damage" : out = "SetDamagePoints";break;
    case "setdamage" : out = "SetDamagePoints";break;
    case "damagepoints" : out = "SetDamagePoints";break;
    case "setdamagepoints" : out = "SetDamagePoints";break;
    case "restrictlimbs" : out = "SetRestrictLimbs";break;
    case "setrestrictlimbs" : out = "SetRestrictLimbs";break;
    case "protection" : out = "SetProtection";break;
    case "setprotection" : out = "SetProtection";break;
    case "setprotections" : out = "SetProtection";break;
    case "protections" : out = "SetProtection";break;
    case "armortype" : out = "SetArmorType";break;
    case "setarmortype" : out = "SetArmorType";break;
    case "weapontype" : out = "SetWeaponType";break;
    case "setweapontype" : out = "SetWeaponType";break;
    case "damagetype" : out = "SetDamageType";break;
    case "setdamagetype" : out = "SetDamageType";break;
    case "hands" : out = "SetHands";break;
    case "sethands" : out = "SetHands";break;
    case "carry" : out = "SetMaxCarry";break;
    case "maxcarry" : out = "SetMaxCarry";break;
    case "setmaxcarry" : out = "SetMaxCarry";break;
    case "closed" : out = "SetClosed";break;
    case "setclosed" : out = "SetClosed";break;
    case "locked" : out = "SetLocked";break;
    case "setlocked" : out = "SetLocked";break;
    case "canclose" : out = "SetCanClose";break;
    case "setcanclose" : out = "SetCanClose";break;
    case "canlock" : out = "SetCanLock";break;
    case "setcanlock" : out = "SetCanLock";break;
    case "key" : out = "SetKey";break;
    case "setkey" : out = "SetKey";break;
    case "recurse" : out = "SetMaxRecurse";break;
    case "maxrecurse" : out = "SetMaxRecurse";break;
    case "setmaxrecurse" : out = "SetMaxRecurse";break;
    case "sitters" : out = "SetMaxSitters";break;
    case "maxsitters" : out = "SetMaxSitters";break;
    case "setmaxsitters" : out = "SetMaxSitters";break;
    case "liers" : out = "SetMaxLiers";break;
    case "maxliers" : out = "SetMaxLiers";break;
    case "setmaxliers" : out = "SetMaxLiers";break;
    case "item" : out = "SetItems";setmap = 1;break;
    case "setitem" : out = "SetItems";setmap = 1;break;
    case "items" : out = "SetItems";setmap = 1;break;
    case "setitems" : out = "SetItems";setmap = 1;break;
    case "inventory" : out = "SetInventory";setmap = 1;break;
    case "inv" : out = "SetInventory";setmap = 1;break;
    case "setinv" : out = "SetInventory";setmap = 1;break;
    case "setinventory" : out = "SetInventory";setmap = 1;break;
    case "smell" : out = "SetSmell";setmap = 1;break;
    case "setsmell" : out = "SetSmell";setmap = 1;break;
    case "listen" : out = "SetListen";setmap = 1;break;
    case "setlisten" : out = "SetListen";setmap = 1;break;
    case "enter" : out = "SetEnters";setmap = 1;break;
    case "enters" : out = "SetEnters";setmap = 1;break;
    case "setenters" : out = "SetEnters";setmap = 1;break;
    case "setenter" : out = "SetEnters";setmap = 1;break;
    case "exit" : out = "SetExits";setmap = 1;break;
    case "exits" : out = "SetExits";setmap = 1;break;
    case "setexits" : out = "SetExits";setmap = 1;break;
    case "setexit" : out = "SetExits";setmap = 1;break;
    case "setproperty" : out = "SetProperties";break;
    case "property" : out = "SetProperties";break;
    case "setproperties" : out = "SetProperties";break;
    case "properties" : out = "SetProperties";break;
    case "props" : out = "SetProperties";break;
    case "setprops" : out = "SetProperties";break;
    case "setskill" : out = "SetSkills";break;
    case "skill" : out = "SetSkills";break;
    case "skills" : out = "SetSkills";break;
    case "setskills" : out = "SetSkills";break;
    case "setstats" : out = "SetStats";break;
    case "stats" : out = "SetStats";break;
    case "stat" : out = "SetStats";break;
    case "setstat" : out = "SetStats";break;
    case "value" : out = "SetBaseCost";break;
    case "setvalue" : out = "SetBaseCost";break;
    case "val" : out = "SetBaseCost";break;
    case "setval" : out = "SetBaseCost";break;
    case "cost" : out = "SetBaseCost";break;
    case "setcost" : out = "SetBaseCost";break;
    case "basecost" : out = "SetBaseCost";break;
    case "setbasecost" : out = "SetBaseCost";break;
    case "setcurrency" : out = "SetCurrency";break;
    case "currency" : out = "SetCurrency";break;
    case "setcurr" : out = "SetCurrency";break;
    case "curr" : out = "SetCurrency";break;
    case "setmoney" : out = "SetMoney";break;
    case "money" : out = "SetMoney";break;
    case "setnocondition" : out = "SetNoCondition";break;
    case "nocondition" : out = "SetNoCondition";break;
    case "mealtype" : out = "SetMealType";break;
    case "setmealtype" : out = "SetMealType";break;
    case "strength" : out = "SetStrength";break;
    case "setstrength" : out = "SetStrength";break;
    case "setmealstrength" : out = "SetStrength";break;
    case "mealstrength" : out = "SetStrength";break;
    case "vendor" : out = "SetVendorType";break;
    case "setvendor" : out = "SetVendorType";break;
    case "setvendortype" : out = "SetVendorType";break;
    case "vendortype" : out = "SetVendorType";break;
    case "settitle" : out = "SetTitle";break;
    case "title" : out = "SetTitle";break;
    case "source" : out = "SetSource";break;
    case "setsource" : out = "SetSource";break;
    case "melee" : out = "SetMelee";break;
    case "setmelee" : out = "SetMelee";break;
    }

    if(!out){
	switch(mode){
	case "position" : out = "SetPosition";break;
	case "setposition" : out = "SetPosition";break;
	case "autostand" : out = "SetAutoStand";break;
	case "setautostand" : out = "SetAutoStand";break;
	case "damagepoints" : out = "SetDamagePoints";break;
	case "setdamagepoints" : out = "SetDamagePoints";break;
	case "wanderspeed" : out = "SetWanderSpeed";break;
	case "setwanderspeed" : out = "SetWanderSpeed";break;
	case "encounter" : out = "SetEncounter";break;
	case "setencounter" : out = "SetEncounter";break;
	case "sethostile" : out = "SetEncounter";break;
	case "hostile" : out = "SetEncounter";break;
	case "aggressive" : out = "SetEncounter";break;
	case "setaggressive" : out = "SetEncounter";break;
	case "morality" : out = "SetMorality";break;
	case "setmorality" : out = "SetMorality";break;
	case "setheartbeat" : out = "SetHeartBeat";break;
	case "heartbeat" : out = "SetHeartBeat";break;
	case "include" : out = "include";break;
	case "inherit" : out = "inherit";break;
	case "load" : out = "SetPermitLoad";break;
	case "permitload" : out = "SetPermitLoad";break;
	case "setpermitload" : out = "SetPermitLoad";break;
	case "modify" : if(value && intp(value)) value = bool_reverse(value);out = "SetNoModify";break;
	case "setmodify" : if(value && intp(value)) value = bool_reverse(value); out = "SetNoModify";break;
	case "setnomodify" : out = "SetNoModify";break;
	case "nomodify" : out = "SetNoModify";break;
	case "open" : if(value && intp(value)) value = bool_reverse(value);out = "SetClosed";break;
	case "setopen" : if(value && intp(value)) value = bool_reverse(value);out = "SetClosed";break;
	case "sleep" : out = "SetSleeping";break;
	case "setsleep" : out = "SetSleeping";break;
	case "sleeping" : out = "SetSleeping";break;
	case "setsleeping" : out = "SetSleeping";break;
	case "disable" : out = "SetDisableChance";break;
	case "disablechance" : out = "SetDisableChance";break;
	case "setdisable" : out = "SetDisableChance";break;
	case "setdisablechance" : out = "SetDisableChance";break;
	case "noclean" : out = "SetNoClean";break;
	case "setnoclean" : out = "SetNoClean";break;
	case "bodycomp" : out = "SetBodyComposition";break;
	case "bodycomposition" : out = "SetBodyComposition";break;
	case "setbodycomposition" : out = "SetBodyComposition";break;
	case "setpacifist" : out = "SetPacifist";break;
	case "pacifist" : out = "SetPacifist";break;
	case "unique" : out = "SetUnique";break;
	case "setunique" : out = "SetUnique";break;
	case "setwimpy" : out = "SetWimpy";break;
	case "wimpy" : out = "SetWimpy";break;
	case "wimpycommand" : out = "SetWimpyCommand";break;
	case "setwimpycommand" : out = "SetWimpyCommand";break;
	case "setcanbite" : out = "SetCanBite";break;
	case "canbite" : out = "SetCanBite";break;
	case "localcurrency" : out = "SetLocalCurrency";break;
	case "setlocalcurrency" : out = "SetLocalCurrency";break;
	case "menuitems" : out = "SetMenuItems";setmap = 1;break;
	case "setmenuitems" : out = "SetMenuItems";setmap = 1;break;
	case "menu" : out = "SetMenuItems";setmap = 1;break;
	case "maxitems" : out = "SetMaxItems";break;
	case "setmaxitems" : out = "SetMaxItems";break;
	case "setstorageroom" : out = "SetStorageRoom";break;
	case "storageroom" : out = "SetStorageRoom";break;
	case "defaultread" : out = "SetDefaultRead";break;
	case "setdefaultread" : out = "SetDefaultRead";break;
	case "setread" : out = "SetRead";setmap = 1;break;
	case "read" : out = "SetRead";setmap = 1;break;
	case "language" : out = "SetLanguage";break;
	case "lang" : out = "SetLanguage";break;
	case "setlang" : out = "SetLanguage";break;
	case "setlanguage" : out = "SetLanguage";break;
	case "setspellbook" : out = "SetSpellBook";break;
	case "spellbook" : out = "SetSpellBook";break;
	case "spells" : out = "SetSpellBook";break;
	case "addtrainingskills" : out = "AddTrainingSkills";break;
	case "settrainingskills" : out = "AddTrainingSkills";break;
	case "trainingskills" : out = "AddTrainingSkills";break;
	case "training" : out = "AddTrainingSkills";break;
	case "nospells" : out = "SetNoSpells";break;
	case "setnospells" : out = "SetNoSpells";break;
	case "defaultexits" : out = "SetDefaultExits";break;
	case "setdefaultexits" : out = "SetDefaultExits";break;
	case "setnoobviousexits" : out = "SetNoObviousExits";break;
	case "noobviousexits" : out = "SetNoObviousExits";break;
	case "xp" : out = "SetCustomXP";break;
	case "setxp" : out = "SetCustomXP";break;
	case "setcustomxp" : out = "SetCustomXP";break;
	case "customxp" : out = "SetCustomXP";break;
	case "nativelanguage" : out = "SetNativeLanguage";break;
	case "setnativelanguage" : out = "SetNativeLanguage";break;
	case "heartbeat" : out = "set_heart_beat";break;
	case "setheartbeat" : out = "set_heart_beat";break;
	case "set_heart_beat" : out = "set_heart_beat";break;
	case "heart_beat" : out = "set_heart_beat";break;
	case "hiddendoor" : out = "SetHiddenDoor";break;
	case "sethiddendoor" : out = "SetHiddenDoor";break;
	case "opacity" : out = "SetOpacity";break;
	case "setopacity" : out = "SetOpacity";break;
	default : out = mode;
	}
    }
    if(!value) value = 0;

    if(value == "delete") {
	eventDelete(ob, out);
	unguarded( (: rm(global2) :) );
	return 1;
    }

    if(out == "SetExits") {
	write("SetExits is a special setting, which isn't modified like others.");
	write("To make an exit to a room, or to create a new room, type:\n");
	write("create room DIRECTION FILE");
	write("For example : create room east test_room1");
	write("To get rid of an exit, it's: delete exit DIRECTION");
	write("For example: delete exit east");
	return 1;
    }

    if(out == "SetEnters") {
	write("SetExits is a special setting, which isn't modified like others.");
	write("To make an Enter, first identify an item that already exists ");
	write("in SetItems. For example, if SetItems contains a pub:\n");
	write("create enter pub test_pub1\n");
	write("To get rid of that enter: delete enter pub");
	write("Please note that if the \"thing to be entered\" isn't already ");
	write("in SetItems, things won't work right.");
	return 1;
    }

    if(out == "SetInventory"){
	write("SetInventory is a special setting, which isn't modified like others.");
	write("To add something to something else's inventory, the \"thing ");
	write("to be added\" has to be in your environment, or carried by you.");
	write("So if you want to add a chair to your sample room:\n");
	write("home");
	write("go east");
	write("cd /domains/town/obj");
	write("clone chair");
	write("add chair to room");
	write("1\n");
	write("If you want to add a sword to your fighter: \n");
	write("clone sword");
	write("add sword to fighter");
	write("wield sword\n");
	write("To remove items from a thing's permanent inventory:");
	write("delete chair");
	write("delete sword from fighter");
	return 1;
    }

    if(out == "include" || out == "inherit"){
	this_object()->eventModHeader(ob, out,value);
	return 1;
    }


    if(grepp(inheritance,"room") && member_array(out,room_arr) != -1) invalid = 0;
    if(grepp(inheritance,"barkeep") && member_array(out,barkeep_arr) != -1) invalid = 0;
    if(grepp(inheritance,"vendor") && member_array(out,vendor_arr) != -1) invalid = 0;
    if(grepp(inheritance,"trainer") && member_array(out,trainer_arr) != -1) invalid = 0;
    if(grepp(inheritance,"npc") && member_array(out,npc_arr) != -1) invalid = 0;
    if(grepp(inheritance,"weapon") && member_array(out,weapon_arr) != -1) invalid = 0;
    if(grepp(inheritance,"armor") && member_array(out,armor_arr) != -1) invalid = 0;
    if(grepp(inheritance,"storage") && member_array(out,storage_arr) != -1) invalid = 0;
    if(grepp(inheritance,"chair") && member_array(out,chair_arr) != -1) invalid = 0;
    if(grepp(inheritance,"bed") && member_array(out,bed_arr) != -1) invalid = 0;
    if(grepp(inheritance,"table") && member_array(out,table_arr) != -1) invalid = 0;
    if(grepp(inheritance,"meal") && member_array(out,meal_arr) != -1) invalid = 0;
    if(grepp(inheritance,"door") && member_array(out,door_arr) != -1) invalid = 0;
    if(grepp(inheritance,"book") && member_array(out,book_arr) != -1) invalid = 0;
    if(grepp(inheritance,"worn_storage") && member_array(out,worn_storage_arr) != -1) invalid = 0;
    else if(grepp(inheritance,"item") && member_array(out,item_arr) != -1) invalid = 0;

    if(invalid) {
	write("Invalid Property.");
	return 1;
    }
    if(out == "SetProtection"){
	this_object()->eventStartArmorQuestions(value,ob);
	return 1;
    }

    if(out == "SetBaseCost"){
	this_object()->eventModCost(ob, metamode, value);
	return 1;
    }

    if(member_array(out,special_map_array) != -1) {
	this_object()->eventSpecialMapHandler(ob,out,metamode,value);
	return 1;
    }

    if(out == "SetMoney" || out == "SetCurrency"){
	this_object()->eventModMoney(ob, metamode, value);
	return 1;
    }

    if(setmap == 1) {
	temp_map = QueryMap(out, ob);
	temp_map = this_object()->eventStartMappingQuestions(temp_map, ob, tmpfile, out);
	return 1;
    }

    array_props = ({"AddTrainingSkills", "SetId","SetAdjectives","SetRestrictLimbs"});
    if(member_array(out,array_props) != -1){
	this_object()->eventStartGenericQuestions(ob, tmpfile, ({value}), out);
	return 1;
    }

    if(grepp(inheritance,"door") && out != "SetHiddenDoor" ){
	string cote = this_object()->eventEvaluateDoorSide(ob);
	if(cote) this_object()->eventProcessDoor(ob, out, value, cote);
	else this_object()->eventProcessDoor(ob, out, value);
	return 1;
    }

    else {
	switch(out){
	case "SetLong" : p_array = ({"SetShort","SetAmbientLight","SetDayLight","SetNightLight","create()","create ()","create"}); break;
	case "SetDayLong" : p_array = ({"SetShort","SetAmbientLight","SetDayLight","SetNightLight","SetNightLong","SetLong","create()","create ()","create"}); break;
	case "SetNightLong" : p_array = ({"SetShort","SetAmbientLight","SetDayLight","SetNightLight","SetDayLong","SetLong","create()","create ()","create"}); break;
	case "SetShort" : p_array = ({"SetAmbientLight","SetDayLight","SetNightLight","create()","create ()","create"}); break;
	case "SetHealthPoints" : p_array = ({"SetInventory","SetMaxHealhPoints","SetClass","SetRace","SetLong"});break;
	case "SetMaxHealthPoints" : p_array = ({"SetInventory","SetHealhPoints","SetClass","SetRace","SetLong"});break;
	case "SetNativeLanguage" : p_array = ({"SetRace"});break;
	case "SetSmell" : p_array = ({"SetItems","SetInventory","SetListen","SetLong","SetDayLong","SetNightLong","SetShort"});break;
	case "SetListen" : p_array = ({"SetItems","SetInventory","SetSmell","SetLong","SetDayLong","SetNightLong","SetShort"});break;
	case "SetItems" : p_array = ({"SetAmbientLight","SetDayLight","SetNightLight","create()","create ()","SetShort","SetLong","SetDayLong","SetNightLong"});break;
	case "SetAmbientLight" : p_array = ({"SetDayLight","SetNightLight","create()","create ()","SetShort","SetLong","SetDayLong","SetNightLong"});break;
	case "SetDayLight" : p_array = ({"SetAmbientLight","SetNightLight","create()","create ()","SetShort","SetLong","SetDayLong","SetNightLong"});break;
	case "SetNightLight" : p_array = ({"SetAmbientLight","SetDayLight","create()","create ()","SetShort","SetLong","SetDayLong","SetNightLong"});break;
	case "SetHiddenDoor" : p_array = ({ "SetClosed", "SetLocked" }); break;
	default : p_array = ({"SetItems","SetLong","SetDayLong","SetNightLong","SetShort"});
	}

	this_object()->eventModString(tmpfile, out, value, p_array);
    }
    mixed_tmp = reload(tmpfile);
    if(!mixed_tmp || !intp(mixed_tmp)) {
	write("This would screw up your file. Aborting modification.");
	return 1;
    }
    this_object()->eventGeneralStuff(tmpfile);
    global1 = tmpfile;
    global2 = filename;
    unguarded( (: cp(global1,global2) :) );
    reload(ob);

    rm(tmpfile);
    return MODULES_CREATE+" Done.";
}

int eventDelete(object ob, string value){
    string tmpfile, filename;
    mixed mixed_tmp;

    filename = base_name(ob)+".c";
    tmpfile = generate_tmp(ob);


    if(!check_privs(this_player(),filename)){

	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    if(!check_privs(this_player(),tmpfile)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    global1 = filename;
    global2 = tmpfile;
    unguarded( (: cp(global1,global2) :) );
    mixed_tmp = reload(tmpfile);
    if(!mixed_tmp || !intp(mixed_tmp)) {
	write("Target file is screwed up. Aborting delete.");
	return 1;
    }
    globalvalue = value;
    unguarded( (: globaltmp = remove_matching_line(read_file(global2),globalvalue,1) :) );
    unguarded( (: write_file(global2,globaltmp,1) :) );
    mixed_tmp = reload(tmpfile);
    if(!mixed_tmp || !intp(mixed_tmp)) {
	write("This change would screw up your file. Aborting delete.");
	return 1;
    }
    else unguarded( (: cp(global2, global1) :) );
    reload(ob);
    unguarded( (: rm(global2) :) );
    write("Setting deleted.");
    return 1;
}

int eventResumeArrayMod(object target, string tmpfile, string *NewArr, string func){
    string filename, ret, array_string;
    string *p_array;
    mixed mx;
    filename = base_name(target)+".c";

    if(!check_privs(this_player(),filename)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }
    global2 = tmpfile;
    global1 = filename;
    unguarded( (: cp(global1, global2) :) );
    array_string = func + "( ({";
    foreach(string foo in NewArr){
	array_string += "\""+foo+"\", ";
    }
    array_string = truncate(array_string, 2);
    array_string +=  "}) );";
    switch(func){
    case "SetId" : p_array = ({"SetName","SetKeyName","create()","create ()","SetAdjectives"});break;
    case "SetAdjectives" : p_array = ({"SetName","SetKeyName","create()","create ()","SetId"});break;
    case "SetRestrictLimbs" : p_array = ({ "SetArmorType","SetDamagePoints","SetMass"});break;
    default : p_array = ({"SetLong","SetShort","SetDayLong","SetNightLong"});
    }
    ret = remove_matching_line(read_file(tmpfile),func);
    ret = this_object()->eventAppend(ret,p_array,"\n"+array_string+"\n");
    globaltmp = ret;
    unguarded( (: write_file(global2,globaltmp,1) :) );
    this_object()->eventGeneralStuff(tmpfile);
    mx = reload(tmpfile);
    if(!mx || !intp(mx)){
	write("This change would screw up the object. Aborting.");
	return 1;
    }
    global1 = tmpfile;
    global2 = filename;
    unguarded( (: cp(global1, global2) :) );
    reload(target);
    write(func+" modification complete.");
    unguarded( (: rm(global1) :) );
    return 1;
}

int eventResumeMappingChange(object target, string tmpfile, mapping NewMap, string func){
    string map_string, filename, ret;
    mixed mx;
    string *p_array;
    map_string = this_object()->eventStringifyMap(NewMap);
    map_string = func+"("+map_string+");";
    filename = base_name(target)+".c";

    if(!check_privs(this_player(),filename)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    global2 = tmpfile;
    global1 = filename;
    unguarded( (: cp(global1, global2) :) );

    ret = remove_matching_line(read_file(tmpfile),func);
    switch(func){
    case "SetHealthPoints" : p_array = ({"SetInventory","SetMaxHealhPoints","SetClass","SetRace","SetLong"});break;
    case "SetMaxHealthPoints" : p_array = ({"SetClass","SetRace","SetHealthPoints","SetLong"});break;
    case "SetSmell" : p_array = ({"SetItems","SetInventory","SetListen","SetLong","SetDayLong","SetNightLong","SetShort"});break;
    case "SetListen" : p_array = ({"SetItems","SetInventory","SetSmell","SetLong","SetDayLong","SetNightLong","SetShort"});break;
    default : p_array = ({"SetItems","SetLong","SetDayLong","SetNightLong","SetShort"});
    }
    ret = this_object()->eventAppend(ret,p_array,"\n"+map_string+"\n");
    global1 = tmpfile;
    global2 = ret;
    unguarded( (: write_file(global1,global2,1) :) );
    mx = reload(tmpfile);
    if(!mx || !intp(mx)){
	write("This change would screw up the object. Aborting.");
	return 1;
    }
    this_object()->eventGeneralStuff(tmpfile);
    global1 = tmpfile;
    global2 = filename;
    unguarded( (: cp(global1, global2) :) );
    if(target) reload(target);
    write(func+" modification complete.");
    unguarded( (: rm(global1) :) ); 
    return 1;
}

int eventAddSettings(object ob, string tmp, mapping NewMap, string func){
    string filename, new_lines;
    filename = base_name(ob)+".c";

    if(!check_privs(this_player(),filename)){
	write("You do not have sufficient privileges to perform this action.");
	return 1;
    }
    global2 = filename;
    unguarded( (: global1 = read_file(global2) :) );

    global1 = remove_matching_line(global1, func , 1);
    global2 = tmp;
    new_lines = "\n";
    foreach(string key, mixed val in NewMap){
	if(intp(val)) new_lines += func+"(\""+key+"\", "+val+");\n";
	else new_lines += func+"(\""+key+"\", \""+val+"\");\n";
    }
    global1 = this_object()->eventAppend(global1,({func,"SetClass","SetRace","SetLevel","SetItems","SetInventory","SetLong", "SetClosed"}),new_lines);
    unguarded( (: write_file(global2, global1,1) :) );
    this_object()->eventGeneralStuff(global2);
    global1 = filename;
    unguarded( (: cp(global2, global1) :) );
    unguarded( (: rm(global2) :) );
    reload(ob);
    return 1;
}