#include <lib.h>
#include <position.h>
#include ROOMS_H
#include <vendor_types.h>
inherit LIB_ITEM;

varargs mixed eventRead(object reader, mixed str){
    object ob, playerob;
    int corpse;
    object *inv;
    object npc;
    int err;
    string basefile;
    string lang = this_object()->GetLanguage();
    object zombie;
    catch(zombie = new("/shadows/zombie"));
    if(!str || !objectp(str) || !zombie){
        return ::eventRead(reader);
    } 
    if(reader->GetLanguageLevel(lang) < 100){
        return ::eventRead(reader);
    }
    ob = str;
    if(ob->isCorpse()) corpse = 1;

    if(living(ob)) {
        write("You can't raise the living.");
        return 1;
    }

    if(base_name(ob) != LIB_CORPSE){
        write("You can only animate corpses made of meat.");
        return 1;
    }

    if(environment(ob) != environment(this_player())) {
        write(capitalize(ob->GetKeyName())+" isn't here.");
        return 1;
    }

    tell_player(this_player(),"You read the scroll, and with a roar "+
            "like thunder, "+ob->GetCapName()+" reanimates!");
    tell_room(environment(this_player()),this_player()->GetCapName()+" reads "+
            possessive(this_player())+ " scroll at "+ob->GetCapName()+" and "+
            nominative(ob)+" reanimates as you hear a thunderous roar!",
            ({ob, this_player()}) );

    basefile = ob->GetBaseFile();
    if(file_exists(basefile)){
        err = catch( npc = new(basefile) );
    }
    if(!npc){
        npc = new(LIB_SENTIENT);
        npc->SetShort("a zombie "+ob->GetRace());
        npc->SetLong("A zombie "+ob->GetRace());
    }

    npc->SetRace(ob->GetRace());
    npc->SetClass(ob->GetClass());
    npc->SetLevel(ob->GetLevel());
    npc->SetGender(ob->GetGender());
    npc->SetId( ({ ob->GetGender(), ob->GetRace(),
                ob->GetClass(), "zombie" }) );
    npc->SetAdjectives( ({ ob->GetGender(), ob->GetRace(),
                ob->GetClass(), "zombie", "undead" }) );
    npc->SetUndead(1);
    npc->SetKeyName(lower_case((ob->GetOwner()|| ob->GetRace())));

    foreach(mixed key, mixed val in ob->GetSkills()){
        npc->SetSkill(key, val["level"], val["class"]);
    }
    foreach(mixed key, mixed val in ob->GetStats()){
        npc->SetStat(key, val["level"], val["class"]);
    }
    npc->eventMove(ROOM_POD);
    npc->SetProperty("basefile", basefile);
    npc->init();
    npc->ResetCurrency();
    if(sizeof(all_inventory(npc))){
        all_inventory(npc)->eventMove(ROOM_FURNACE);
    }
    inv = all_inventory(ob);
    if(sizeof(inv)) inv->eventMove(npc);
    inv = all_inventory(ob);
    if(sizeof(inv)) inv->eventMove(environment(this_player()));
    foreach(string element in ob->GetMissingLimbs()){
        npc->RemoveLimb(element);
    }
    if(ob){
        mapping oldequipped = ob->GetEquipped();
        string *oldkeys = keys(oldequipped);
        foreach(object thing in all_inventory(npc)){
            if(member_array(file_name(thing),oldkeys) != -1){
                object oldob = oldequipped[file_name(thing)]["object"];
                string *where = oldequipped[file_name(thing)]["where"];
                if(objectp(oldob)){
                    if(oldob->CanEquip(npc, where)){
                        oldob->eventEquip(npc, where);
                    }
                }
            }
        }
    }
    npc->SetPosition(POSITION_LYING);
    npc->eventMove(environment(this_player()));
    npc->DisableActions(1);
    npc->SetUndead(1);
    npc->SetEncounter(0);
    npc->eventQuell();
    npc->SetUndeadType("zombie");
    ob->eventMove(ROOM_FURNACE);
    tell_room(environment(this_player()),"The scroll disintegrates into dust.");
    zombie->eventShadow(npc);
    this_object()->eventMove(ROOM_FURNACE);
    return 1;
}

void create(){
    string message = "This terrible scroll will reanimate a creature's "+
        "corpse. The resulting zombie will have little of the personality "+
        "of its original being...just the physical attributes, which will "+
        "slowly decay and inevitably fall apart. The zombie will obey any "+
        "commands spoken in a language that it understood in life. If "+
        "you are certain you must enter the dark world of necromancy, then "+
        "you can: read scroll at person";
    ::create();
    SetKeyName("scroll");
    SetId(({"scroll of raise dead","scroll of necromancy"}));
    SetAdjectives(({"terrible","raise dead","magic","necromancy","dark"}));
    SetShort("a dark scroll");
    SetLong("This is a dark scroll with some words written on it.");
    SetMass(1);
    SetDollarCost(500);
    SetVendorType(VT_TREASURE);
    SetReads( ([ "default" : message,
                ({ "words", "words written" }) : message,
                ]) );
    SetLanguage("English");
}

void init(){
    ::init();
}