kashifshah/omega-rpg
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
aea2025c3d
omega-rpg/priest.c

524 lines
15 KiB
C
Raw Blame History

/* omega copyright (C) by Laurence Raphael Brothers, 1987,1988,1989 */
/* priest.c */
/* functions for clerics. */
#include "glob.h"
/* prayer occurs at altars, hence name of function */
void l_altar(void)
{
int i,deity;
char response;
if (Current_Environment == E_COUNTRYSIDE) deity = DRUID;
else deity = Level->site[Player.x][Player.y].aux;
switch(deity) {
default:
print1("This rude altar has no markings.");
break;
case ODIN:
print1("This granite altar is graven with a gallows.");
break;
case SET:
print1("This sandstone altar has a black hand drawn on it.");
break;
case HECATE:
print1("This silver altar is inlaid with a black crescent moon.");
break;
case ATHENA:
print1("This golden altar is inscribed with an owl.");
break;
case DESTINY:
print1("This crystal altar is in the form of an omega.");
break;
case DRUID:
print1("This oaken altar is ornately engraved with leaves.");
break;
}
print2("Worship at this altar? [yn] ");
if (ynq2() == 'y') {
#ifdef INCLUDE_MONKS
if (Player.rank[MONKS] > 0)
print2("A monk seeks truth within.");
else
#endif
if (Player.rank[PRIESTHOOD] == 0)
increase_priest_rank(deity);
else if (! check_sacrilege(deity)) {
if (Blessing) print1("You have a sense of immanence.");
print2("Request a Blessing, Sacrifice an item, or just Pray [b,s,p] ");
do response = (char) mcigetc();
while ((response != 'b') &&
(response != 's') &&
(response != 'p') &&
(response != ESCAPE));
if (response == 'b') {
print1("You beg a heavenly benefice.");
print2("You hear a gong resonating throughout eternity....");
morewait();
if (Blessing) {
print1("A shaft of lucent radiance lances down from the heavens!");
print2("You feel uplifted....");
morewait();
gain_experience(Player.rank[PRIESTHOOD]*Player.rank[PRIESTHOOD]*50);
cleanse(1);
heal(10);
bless(1);
Blessing = FALSE;
increase_priest_rank(deity);
}
else {
print1("Your ardent plea is ignored.");
print2("You feel ashamed.");
Player.xp -= (Player.xp/4);
}
calc_melee();
}
else if (response == 's') {
i = getitem_prompt("Sacrifice what? ", NULL_ITEM);
if (i==ABORT) i = 0;
if (Player.possessions[i] == NULL) {
print1("You have insulted your deity!");
print2("Not a good idea, as it turns out...");
dispel(-1);
p_damage(Player.hp-1,UNSTOPPABLE,"a god's pique");
}
else if (true_item_value(Player.possessions[i]) >
(long) (Player.rank[PRIESTHOOD] *
Player.rank[PRIESTHOOD] *
Player.rank[PRIESTHOOD] * 50)) {
print1("With a burst of blue flame, your offering vanishes!");
dispose_lost_objects(1,Player.possessions[i]);
print2("A violet nimbus settles around your head and slowly fades.");
morewait();
Blessing = TRUE;
}
else {
print1("A darkling glow envelopes your offering!");
print2("The glow slowly fades....");
morewait();
setgamestatus(SUPPRESS_PRINTING);
if (Player.possessions[i]->used) {
Player.possessions[i]->used = FALSE;
item_use(Player.possessions[i]);
Player.possessions[i]->blessing =
-1 - abs(Player.possessions[i]->blessing);
Player.possessions[i]->used = TRUE;
item_use(Player.possessions[i]);
}
else Player.possessions[i]->blessing =
-1 - abs(Player.possessions[i]->blessing);
resetgamestatus(SUPPRESS_PRINTING);
}
}
else if (response == 'p') {
if (deity != Player.patron)
print1("Nothing seems to happen.");
else if (!increase_priest_rank(deity))
answer_prayer();
}
}
}
}
int check_sacrilege(int deity)
{
int i,sacrilege=FALSE;
if ((Player.patron != deity) && (Player.patron > 0)) {
sacrilege=TRUE;
Player.pow--;
Player.maxpow--;
switch(Player.patron) {
case ODIN:
print1("Odin notices your lack of faith! ");
morewait();
if (deity == ATHENA) {
print2("However, Athena intercedes on your behalf.");
sacrilege = FALSE;
}
else {
print2("You are struck by a thunderbolt!");
p_damage(Player.level*5,UNSTOPPABLE,"Odin's wrath");
if (Player.hp > 0) {
morewait();
print2("The bolt warps your feeble frame....");
Player.maxcon = Player.maxcon/2;
Player.con = min(Player.con,Player.maxcon);
Player.maxstr = Player.maxstr/2;
Player.con = min(Player.str,Player.maxstr);
}
}
morewait();
break;
case SET:
print1("Set notices your lack of faith! ");
morewait();
if (deity == HECATE) {
print1("But since you pray to a friendly deity,");
print2("Set decides not to punish you.");
sacrilege = FALSE;
}
else {
print2("You are blasted by a shaft of black fire!");
p_damage(Player.level*5,UNSTOPPABLE,"Set's anger");
if (Player.hp > 0) {
morewait();
print1("You are wreathed in clouds of smoke.");
for(i=0;i<MAXITEMS;i++)
if ((Player.possessions[i] != NULL) &&
(Player.possessions[i]->blessing > -1))
conform_lost_object(Player.possessions[i]);
morewait();
print2("You feel Set's Black Hand on your heart....");
Player.con = Player.maxcon = Player.maxcon / 4;
}
}
morewait();
break;
case HECATE:
print1("Hecate notices your lack of faith! ");
morewait();
if (deity == SET) {
print1("But ignores the affront since she likes Set.");
sacrilege = FALSE;
}
else {
print1("You are zapped by dark moonbeams!");
p_damage(Player.level*5,UNSTOPPABLE,"Hecate's malice");
if (Player.hp > 0) {
print2("The beams leach you of magical power!");
Player.maxpow = Player.maxpow/5;
Player.pow = min(Player.pow,Player.maxpow);
for(i=0;i<NUMSPELLS;i++)
Spells[i].known = FALSE;
}
}
morewait();
break;
case ATHENA:
print1("Athena notices your lack of faith! ");
morewait();
if (deity == ODIN) {
print2("But lets you off this time since Odin is also Lawful.");
sacrilege = FALSE;
}
else {
print2("You are zorched by godsfire!");
if (Player.hp > 0) {
morewait();
print1("The fire burns away your worldly experience!");
Player.level = 0;
Player.xp = 0;
Player.maxhp = Player.hp = Player.con;
print2("Your power is reduced by the blast!!!");
Player.pow = Player.maxpow = Player.maxpow/3;
Player.mana = min(Player.mana,calcmana());
}
}
morewait();
break;
case DESTINY:
print2("The Lords of Destiny ignore your lack of faith.");
sacrilege = FALSE;
morewait();
break;
case DRUID:
print2("Your treachery to the ArchDruid has been noted.");
if (random_range(2) == 1)
Player.alignment += 40;
else Player.alignment -= 40;
morewait();
break;
}
if (sacrilege) {
Player.patron = 0;
Player.rank[PRIESTHOOD] = 0;
}
}
return(sacrilege);
}
int increase_priest_rank(int deity)
{
if (Player.rank[PRIESTHOOD] == 0) switch(deity) {
default:
print2("Some nameless god blesses you....");
Player.hp = max(Player.hp, Player.maxhp);
morewait();
print2("The altar crumbles to dust and blows away.");
Level->site[Player.x][Player.y].locchar = FLOOR;
Level->site[Player.x][Player.y].p_locf = L_NO_OP;
lset(Player.x, Player.y, CHANGED);
break;
case ODIN:
if (Player.alignment > 0) {
print1("Odin hears your prayer!");
print2(Priest[ODIN]);
nprint2(" personally blesses you.");
nprint2(" You are now a lay devotee of Odin.");
Player.patron = ODIN;
Player.rank[PRIESTHOOD] = LAY;
Player.guildxp[PRIESTHOOD] = 1;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(ODIN,LAY);
}
else print1("Odin ignores you.");
break;
case SET:
if (Player.alignment < 0) {
print1("Set hears your prayer!");
print2(Priest[SET]);
nprint2(" personally blesses you. ");
nprint2(" You are now a lay devotee of Set.");
Player.patron = SET;
Player.rank[PRIESTHOOD] = LAY;
Player.guildxp[PRIESTHOOD] = 1;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(SET,LAY);
}
else print1("Set ignores you.");
break;
case ATHENA:
if (Player.alignment > 0) {
print1("Athena hears your prayer!");
print2(Priest[ATHENA]);
nprint2(" personally blesses you.");
nprint2(" You are now a lay devotee of Athena.");
Player.patron = ATHENA;
Player.rank[PRIESTHOOD] = LAY;
Player.guildxp[PRIESTHOOD] = 1;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(ATHENA,LAY);
}
else print1("Athena ignores you.");
break;
case HECATE:
if (Player.alignment < 0) {
print1("Hecate hears your prayer!");
print2(Priest[HECATE]);
nprint2(" personally blesses you.");
nprint2(" You are now a lay devotee of Hecate.");
Player.patron = HECATE;
Player.rank[PRIESTHOOD] = LAY;
Player.guildxp[PRIESTHOOD] = 1;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(HECATE,LAY);
}
else print1("Hecate ignores you.");
break;
case DRUID:
if (abs(Player.alignment) < 10) {
print1(Priest[DRUID]);
nprint1(" personally blesses you.");
print2("You are now a lay devotee of the Druids.");
Player.patron = DRUID;
Player.rank[PRIESTHOOD] = LAY;
Player.guildxp[PRIESTHOOD] = 1;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(DRUID,LAY);
}
else {
print1("You hear a voice....");
morewait();
print2("'Only those who embody the Balance may become Druids.'");
}
break;
case DESTINY:
print1("The Lords of Destiny could hardly care less.");
print2("But you can consider yourself now to be a lay devotee.");
Player.patron = DESTINY;
Player.rank[PRIESTHOOD] = LAY;
Player.guildxp[PRIESTHOOD] = 1;
break;
}
else if (deity == Player.patron) {
if ((((deity == ODIN) || (deity == ATHENA)) &&
(Player.alignment < 1)) ||
(((deity == SET) || (deity == HECATE)) &&
(Player.alignment > 1)) ||
((deity == DRUID) && (abs(Player.alignment) > 10))) {
print1("You have swerved from the One True Path!");
print2("Your deity is greatly displeased...");
Player.xp -= Player.level*Player.level;
Player.xp = max(0,Player.xp);
}
else if (Player.rank[PRIESTHOOD]== HIGHPRIEST) return 0;
else if (Player.rank[PRIESTHOOD]== SPRIEST) {
if (Player.level > Priestlevel[deity])
hp_req_test();
else return 0;
}
else if (Player.rank[PRIESTHOOD]==PRIEST) {
if (Player.guildxp[PRIESTHOOD] >= 4000) {
print1("An heavenly fanfare surrounds you!");
print2("Your deity raises you to the post of Senior Priest.");
hp_req_print();
Player.rank[PRIESTHOOD] = SPRIEST;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(deity,SPRIEST);
}
else return 0;
}
else if (Player.rank[PRIESTHOOD]==ACOLYTE) {
if (Player.guildxp[PRIESTHOOD] >= 1500) {
print1("A trumpet sounds in the distance.");
print2("Your deity raises you to the post of Priest.");
Player.rank[PRIESTHOOD] = PRIEST;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(deity,PRIEST);
}
else return 0;
}
else if (Player.rank[PRIESTHOOD]==LAY) {
if (Player.guildxp[PRIESTHOOD] >= 400) {
print1("A mellifluous chime sounds from above the altar.");
print2("Your deity raises you to the post of Acolyte.");
Player.rank[PRIESTHOOD] = ACOLYTE;
/* DAG learnclericalspells() starts with mprint() so don't need morewait */
/* morewait(); */
learnclericalspells(deity,ACOLYTE);
}
else return 0;
}
}
return 1;
}
void answer_prayer(void)
{
clearmsg();
switch(random_range(12)) {
case 0: print1("You have a revelation!"); break;
case 1: print1("You feel pious."); break;
case 2: print1("A feeling of sanctity comes over you."); break;
default: print1("Nothing unusual seems to happen."); break;
}
}
void hp_req_test(void)
{
pob o;
switch (Player.patron) {
case ODIN:
if (find_item(&o,OB_SYMBOL_SET,-1))
make_hp(o);
else hp_req_print();
break;
case SET:
if (find_item(&o,OB_SYMBOL_ODIN,-1))
make_hp(o);
else hp_req_print();
break;
case ATHENA:
if (find_item(&o,OB_SYMBOL_HECATE,-1))
make_hp(o);
else hp_req_print();
break;
case HECATE:
if (find_item(&o,OB_SYMBOL_ATHENA,-1))
make_hp(o);
else hp_req_print();
break;
case DRUID:
if (find_item(&o,OB_SYMBOL_ODIN,-1))
make_hp(o);
else if (find_item(&o,OB_SYMBOL_SET,-1))
make_hp(o);
else if (find_item(&o,OB_SYMBOL_ATHENA,-1))
make_hp(o);
else if (find_item(&o,OB_SYMBOL_HECATE,-1))
make_hp(o);
else hp_req_print();
break;
case DESTINY:
if (find_item(&o,OB_SYMBOL_DESTINY,-1))
make_hp(o);
else hp_req_print();
break;
}
}
void hp_req_print(void)
{
morewait();
print1("To advance further, you must obtain the Holy Symbol of ");
switch(Player.patron) {
case ODIN:
nprint1(Priest[SET]);
print2("who may be found in the main Temple of Set.");
break;
case SET:
nprint1(Priest[ODIN]);
print2("who may be found in the main Temple of Odin.");
break;
case ATHENA:
nprint1(Priest[HECATE]);
print2("who may be found in the main Temple of Hecate.");
break;
case HECATE:
nprint1(Priest[ATHENA]);
print2("who may be found in the main Temple of Athena.");
break;
case DRUID:
print2("any of the aligned priests who may be found in their main Temples.");
break;
case DESTINY:
nprint1(Priest[DESTINY]);
print2("who may be found in the main Temple of Destiny.");
break;
}
}
void make_hp(pob o)
{
print1("A full-scale heavenly choir chants 'Hallelujah' all around you!");
print2("You notice a change in the symbol you carry....");
switch(Player.patron) {
case ODIN:
*o = Objects[OB_SYMBOL_ODIN];
break;
case SET:
*o = Objects[OB_SYMBOL_SET];
break;
case ATHENA:
*o = Objects[OB_SYMBOL_ATHENA];
break;
case HECATE:
*o = Objects[OB_SYMBOL_HECATE];
break;
case DRUID:
*o = Objects[OB_SYMBOL_DRUID];
break;
case DESTINY:
*o = Objects[OB_SYMBOL_DESTINY];
break;
}
o->known = 2;
o->charge = 17; /* random hack to convey bit that symbol is functional */
morewait();
if (Player.patron == DRUID)
print1("Your deity raises you to the post of ArchDruid!");
else print1("Your deity raises you to the post of High Priest!");
print2("You feel holy.");
strcpy(Priest[Player.patron],Player.name);
Priestlevel[Player.patron] = Player.level;
Player.rank[PRIESTHOOD] = HIGHPRIEST;
morewait();
Priestbehavior[Player.patron] = fixnpc(4);
save_hiscore_npc(Player.patron);
learnclericalspells(Player.patron,HIGHPRIEST);
}
Reference in New Issue View Git Blame Copy Permalink