#include <std.h>

#define PH "/realms/drakken/clerics/"
#define SAVE_FILE "/domains/Praxis/data/cleric_crypt"
#define WHAMMER "/realms/zaknaifen/weap/whammer"
#define PHYL "/realms/zaknaifen/armor/phylactery"

inherit ROOM;

int prayers,is_hammer,is_phyl;

void create() {
    ::create();
    prayers = 0;
    is_hammer = 0;
    is_phyl = 0;
    restore_object(SAVE_FILE);	// restore is_hammer and is_phyl
    set_properties(([
        "no attack": 1,
        "no steal":1,
        "no castle":1,
        "holy ground":1,
        "light"   : 2,
        "indoors" : 1,
    ]));
    set_short("a small crypt");
    set_long("The altar room is carved from the ancient gray stone that Praxis "
	"rests upon. Burning candles along the walls cause the shadows to "
	"dance around the room in a chaotic, yet enchanting dance. A large altar "
	"rises from the floor in the center of the room and steps carved into the "
	"stone lead upwards. ");
    set_exits( ([
	"up" : "/domains/Praxis/cleric_hall"
    ]) );
    set_items(([
       "altar":(: this_object(), "exaaltar" :),
       "scenes" : "You see Tempos wielding his mighty %^CYAN%^warhammer%^RESET%^ in a variety of battles "
	    "you recognize from your religious studies. ",
       ({"stones","stone"}):
	    "The cold grey stone is creased and marked by the tools that were used "
	    "to carve this room beaneath the earth. ",
       ({"shadows","shadow"}):
	    "The shadows dance enchantingly across the room in time to the music "
	    "of the flickering candle flames. ",
       "steps" :  "The steps are carved into the grey stone and are worn by the passage "
	    "of many feet over the ages. ",
       ({"walls","wall"}):
	    "The walls are hewn roughly from the stone beneath Praxis and are lined "
	    "with many flickering candles. ",
       ({"candle","candles"}):
	    "The candles rest in iron stands set along the wall and are made from "
	    "animal fat. The candle flames flicker to the tune of the wind, creating "
	    "the music by which the shadows cavort and dance. ",
       "stands" : "The stands are made of %^BLACK%^%^BOLD%^black%^RESET%^ iron and are of plain construction. "
	    "Each stand holds between three to four lit candles. ",
    ]));
}

void exaaltar() {
    string str;

    str = "The altar is made of ancient gray stone and is huge.  There are scenes "
	    "of Tempos fighting mythical beasts carved all along the sides of the altar. "
	    "The top of the altar is flat and has the image of a hammer traced along "
	    "it in %^YELLOW%^gold%^RESET%^. ";
    if (is_hammer) str += "The %^CYAN%^warhammer%^RESET%^ lieing upon it perfectly fits into the traces. ";
    if (is_phyl) str += "A %^YELLOW%^golden%^RESET%^ phylactery partially covers the traces.";
    write(str);
}

void reset()
{
    ::reset();
    if (!present("box")) {
        //new(PH "obj/donation")->move(this_object());
    }
    prayers = 0;
}

void init()
{
    ::init();
    add_action("pray_func","pray");
}

int pray_func(string str) {
    object ob, ob2, *inv;
    string limb;
    int i,j;

    ob = this_player();
    inv = all_inventory(ob);
    for (i=0; i<sizeof(inv); i++) {
	if ((!str || strlen(str) == 0) && inv[i]->id("hammer of tempos") && is_hammer == 0) {
	    tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
		nominative(ob)+" does so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that "+ob->query_cap_name()+" carries his %^CYAN%^warhammer%^RESET%^ and takes it away! "
		"As the shadow disappears the %^CYAN%^warhammer%^RESET%^ appears on the altar.",ob);
	    tell_object(ob,"You mutter a prayer in front of the altar. As you "
		"do so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and repeat the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that you carry his %^CYAN%^warhammer%^RESET%^ and takes it away! "
		"As the shadow disappears the %^CYAN%^warhammer%^RESET%^ appears on the altar.");
	    is_hammer = 1;
	    save_object(SAVE_FILE);	// save is_hammer
	    inv[i]->remove();
	    return 1;
	} else if ((!str || strlen(str) == 0) && inv[i]->id("hammer of tempos") && is_hammer == 1) {
	    tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
		nominative(ob)+" does so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that "+ob->query_cap_name()+" carries his %^CYAN%^warhammer%^RESET%^ and takes it away!",ob);
	    tell_object(ob,"You mutter a prayer in front of the altar. As you "
		"do so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and repeat the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that you carry his %^CYAN%^warhammer%^RESET%^ and takes it away!");
	    inv[i]->remove();
	    return 1;
	}
	if ((!str || strlen(str) == 0) && inv[i]->id("phylactery") && is_phyl == 0) {
	    tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
		nominative(ob)+" does so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that "+ob->query_cap_name()+" carries his phylactery and takes it away! "
		"As the shadow disappears the phylactery appears on the altar.",ob);
	    tell_object(ob,"You mutter a prayer in front of the altar. As you "
		"do so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and repeat the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that you carry his phylactery and takes it away! "
		"As the shadow disappears the phylactery appears on the altar.");
	    is_phyl = 1;
	    save_object(SAVE_FILE);	// save is_phyl
	    inv[i]->remove();
	    return 1;
	} else if ((!str || strlen(str) == 0) && inv[i]->id("phylactery") && is_phyl == 1) {
	    tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
		nominative(ob)+" does so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that "+ob->query_cap_name()+" carries his phylactery and takes it away! ",ob);
	    tell_object(ob,"You mutter a prayer in front of the altar. As you "
		"do so, the shape of a demigod appears on the altar. "
		"You feel the might of the shadow and repeat the prayer as you notice that "
		"the shadow is an incarnation of Tempos himself! "
		"Tempos notices that you carry his phylactery and takes it away!");
	    inv[i]->remove();
	    return 1;
	}
    }
    if (is_hammer) {
	j = 0;
	for (i=0; i<sizeof(inv); i++)
	    if (inv[i]->id("hammer of tempos")) {
		j = 1;
		break;
	    }
	if (str == "for warhammer" && j == 0 && ob->query_alignment() >= 1000 && ob->query_level() > 5) {
	    ob2 = new(WHAMMER);
	    if (ob2) {
		tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
		    nominative(ob)+" does so, the shape of a demigod appears on the altar. "
		    "You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
		    "the shadow is an incarnation of Tempos himself! "
		    "Tempos notices the %^CYAN%^warhammer%^RESET%^ on top of the altar and hands it to "+ob->query_cap_name()+"!",ob);
		tell_object(ob,"You mutter a prayer in front of the altar. As you "
		    "do so, the shape of a demigod appears on the altar. "
		    "You feel the might of the shadow and repeat the prayer as you notice that "
		    "the shadow is an incarnation of Tempos himself! "
		    "Tempos notices his %^CYAN%^warhammer%^RESET%^ on top of the altar and hands it to you!");
		tell_room(this_object(),"The shadow disappears as the prayer ends.",({}));
		is_hammer = 0;
		save_object(SAVE_FILE);	// save is_hammer
		ob2->move(ob);
		return 1;
	    }
	}
    }
    if (is_phyl) {
	j = 0;
	for (i=0; i<sizeof(inv); i++)
	    if (inv[i]->id("phylactery")) {
		j = 1;
		break;
	    }
	if (str == "for phylactery" && j==0 && ob->query_alignment()>=800 && ob->query_level()>5 && ob->query_skill("faith")>50) {
	    //ob2 = new(PHYL);
	    if (ob2) {
		tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
		    nominative(ob)+" does so, the shape of a demigod appears on the altar. "
		    "You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
		    "the shadow is an incarnation of Tempos himself! "
		    "Tempos notices the phylactery on top of the altar and hands it to "+ob->query_cap_name()+"!",ob);
		tell_object(ob,"You mutter a prayer in front of the altar. As you "
		    "do so, the shape of a demigod appears on the altar. "
		    "You feel the might of the shadow and repeat the prayer as you notice that "
		    "the shadow is an incarnation of Tempos himself! "
		    "Tempos notices his phylactery on top of the altar and hands it to you!");
		tell_room(this_object(),"The shadow disappears as the prayer ends.",({}));
		is_phyl = 0;
		save_object(SAVE_FILE);	// save is_phyl
		ob2->move(ob);
		return 1;
	    }
	}
    }
    if (prayers < 7) {
      tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
	  nominative(ob)+" does so, the shape of a demigod appears on the altar. "
	  "You feel the might of the shadow and take part in his pleasure with the prayer as you notice that "
	  "the shadow is an incarnation of Tempos himself!",ob);
      tell_object(ob,"You mutter a prayer in front of the altar. As you "
	  "do so, the shape of a demigod appears on the altar. "
	  "You feel the might of the shadow and repeat the prayer as you notice that "
	  "the shadow is an incarnation of Tempos himself!");
      tell_room(this_object(),"The shadow disappears as the prayer ends.",({}));
      if (random(100) <(15+ob->query_base_stats("charisma"))) ob->add_alignment(random(3)+10-prayers);
    } else {
      limb = ob->return_limb();
      tell_room(this_object(),(string)ob->query_cap_name()+" mutters a prayer in front of the altar. As "+
	  nominative(ob)+" does so, the shape of a demigod appears on the altar. "
	  "You feel the might of the shadow and the fear he installs in your heart! "
	  "The shadow again is an incarnation of Tempos himself, but this time he is annoyed of being "
	  "disturbed that often! With a swing of his hammer he attacks "+(string)ob->query_cap_name()+
	  "! "+ ( is_hammer ?
	      " This time the hammer turns out to be real!\nTempos destroys "+ob->query_cap_name()+" utterly in the "+limb+
	      " with his %^CYAN%^warhammer%^RESET%^!"
	      : "Luckily for "+objective(ob)+ " the hammer is a shadow also, and therefore the damage is minimal."
	  ) ,ob);
      tell_room(this_object(),"Tempos decides "+ob->query_cap_name()+" is not "
	  "worth to bother with anyway and disappears.",ob);
      tell_object(ob,"You mutter a prayer in front of the altar. As you "
	  "do so, the shape of a demigod appears on the altar. "
	  "You feel the might of the shadow and the fear he installs in your heart! "
	  "The shadow again is an incarnation of Tempos himself, but this time he is annoyed of being "
	  "disturbed that often! With a swing of his hammer he attacks you!"
	  + ( is_hammer ? 
	      " This time the hammer turns out to be real!\nTempos destroys you utterly in the "+limb+
	      " with his %^CYAN%^warhammer%^RESET%^!"
	      : " Luckily for you the hammer is a shadow also, and therefore the damage is minimal."
      ) );
      ob->do_damage(limb,5+random(prayers)+is_hammer*25);
      tell_object(ob,"Tempos decides you are not worth to bother with anyway and disappears.");
    }
    prayers++;
    return 1;
}