#include <lib.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 LIB_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
    SetProperties(([
	"no attack": 1,
	"no steal":1,
	"no castle":1,
	"holy ground":1,
	"light"   : 2,
	"indoors" : 1,
      ]));
    SetShort("a small crypt");
    SetLong("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. ");
    SetExits( ([
	"up" : "/domains/Praxis/cleric_hall"
      ]) );
    SetItems(([
	"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]->destruct();
	    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]->destruct();
	    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]->destruct();
	    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]->destruct();
	    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;
}
