254 lines
14 KiB
C
254 lines
14 KiB
C
#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;
|
|
RestoreObject(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(),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;
|
|
SaveObject(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(),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(),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;
|
|
SaveObject(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(),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(),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;
|
|
SaveObject(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(),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;
|
|
SaveObject(SAVE_FILE); // save is_phyl
|
|
ob2->move(ob);
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
if (prayers < 7) {
|
|
tell_room(this_object(),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(),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 "+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;
|
|
}
|