#include #include #include #include #include #include #include "ai.h" #include "attack.h" #include "defs.h" #include "flag.h" #include "god.h" #include "io.h" #include "lf.h" #include "map.h" #include "move.h" #include "nexus.h" #include "objects.h" #include "spell.h" #include "text.h" extern int statdirty; extern WINDOW *mainwin; extern map_t *firstmap; extern map_t *heaven; extern race_t *firstrace, *lastrace; extern raceclass_t *firstraceclass, *lastraceclass; extern job_t *firstjob, *lastjob; extern skill_t *firstskill, *lastskill; extern objecttype_t *objecttype; extern lifeform_t *player; lifeform_t *godlf[MAXGODS]; int ngodlfs = 0; void angergod(enum RACE rid, int amt, enum GODANGERREASON why) { lifeform_t *god; int piety; char buf[BUFLEN]; enum PIETYLEV plev; int dosay = B_FALSE; if (lfhasflag(player, F_WINNER)) return; god = findgod(rid); modpiety(rid, -amt); piety = getpiety(rid); plev = getpietylev(rid, NULL, NULL); // if you have never prayed to this god before, finish now. if (!lfhasflag(god, F_PIETY)) { return; } // if you HAVE prayed to this god before, something bad will probably happen. switch (why) { case GA_ATTACKALLY: godsay(rid, B_TRUE, "How dare you attack an ally!"); break; case GA_ATTACKHELPLESS: godsay(rid, B_TRUE, "You would attack one who is helpless?"); break; case GA_ATTACKOBJECT: if (rid == R_GODTHIEVES) { godsay(rid, B_TRUE, "What are you, a common thug?"); break; } else if (rid == R_GODNATURE) { godsay(rid, B_TRUE, "You dare destroy my creations?"); break; } else { godsay(rid, B_TRUE, "You dare desecrate my symbols?"); break; } case GA_ASSAULT: if (rid == R_GODDEATH) { godsay(rid, B_TRUE, "You dare attack one of my servants?"); break; } else { godsay(rid, B_TRUE, "You dare attack an innocent?"); break; } case GA_COWARD: godsay(rid, B_TRUE, "Coward!"); break; case GA_EAT: godsay(rid, B_TRUE, "That is NOT acceptable for consumption!"); break; case GA_GODSTONE: switch (god->race->id) { case R_GODPURITY: sprintf(buf, "That is not yours to touch, mortal!"); break; case R_GODTHIEVES: sprintf(buf, "You dare to steal MY property?"); break; case R_GODDEATH: sprintf(buf, "A fleshling thinks they can challenge the lord of death?"); break; case R_GODFIRE: sprintf(buf, "THIIIEEEFFF!"); break; case R_GODLIFE: sprintf(buf, "NO! You have stolen the very essense of life!"); break; case R_GODMERCY: sprintf(buf, "NO!"); break; case R_GODNATURE: sprintf(buf, "You threaten the destruction of everything!"); break; case R_GODBATTLE: sprintf(buf, "Knave! Your theft constitutes a declaration of war!"); break; case R_GODMAGIC: sprintf(buf, "One does not comprehend the danger of One's find!"); break; default: break; } godsay(rid, B_TRUE, buf); break; case GA_HERESY: if (rid == R_GODFIRE) { godsay(rid, B_TRUE, "HERESY!"); } else if (rid == R_GODMAGIC) { godsay(rid, B_TRUE, "One's mundanity is offensive!"); } else { godsay(rid, B_TRUE, "Heresy!"); } break; case GA_MERCY: godsay(rid, B_TRUE, "You allowed my sacrifice to escape!"); break; case GA_MONEY: godsay(rid, B_TRUE, "Where is your sense of greed?!"); break; case GA_MURDER: godsay(rid, B_TRUE, "You have taken a life!"); break; case GA_PRAY: dosay = B_TRUE; break; case GA_POISON: godsay(rid, B_TRUE, "I do not condone the use of poison!"); break; case GA_RACE: godsay(rid, B_TRUE, "Your form offends me!"); break; case GA_SPELL: if (rid == R_GODBATTLE) { godsay(rid, B_TRUE, "A true warrior does not resort to magic!"); break; } else if (rid == R_GODFIRE) { godsay(rid, B_TRUE, "NO COLD MAGIC!"); break; } else if (rid == R_GODDEATH) { godsay(rid, B_TRUE, "The stink of your vile magic offends me!"); break; } else if (rid == R_GODLIFE) { godsay(rid, B_TRUE, "I will not tolerate such evil magics!"); break; } else { godsay(rid, B_TRUE, "Your magic offends me!"); break; } } // announce switch (plev) { case PL_ENRAGED: godsay(rid,dosay, "Witness the wrath of a god!"); break; case PL_FURIOUS: godsay(rid,dosay, "You go too far, mortal!"); break; case PL_ANGRY: godsay(rid,dosay, "You have angered me, mortal!"); break; case PL_INDIFFERENT: // ie. not angry yet... godsay(rid, dosay, "You are testing my patience, mortal!"); break; default: // ie. still happy break; } // bad stuff if (piety <= 0) { void *poss[MAXCANDIDATES]; object_t *o; flag_t *f; int isflag[MAXCANDIDATES]; int nposs = 0; enum ATTRIB a; // lose at least one god gift for (o = player->pack->first ; o ; o = o->next) { if (hasflagval(o->flags, F_GODGIFT, rid, NA, NA, NULL)) { poss[nposs] = o; isflag[nposs] = B_FALSE; nposs++; } } for (f = player->flags->first ; f ; f = f->next) { if ((f->lifetime == FROMGODGIFT) && (f->obfrom == god->race->id)) { poss[nposs] = f; isflag[nposs] = B_TRUE; nposs++; } } if (nposs) { int sel; msg("\"You are unworthy of my gifts, mortal!\""); sel = rnd(0,nposs-1); if (isflag[sel]) { killflag((flag_t *)poss[sel]); } else { obdie((object_t *)poss[sel]); } } // then... if (plev == PL_ANGRY) { int i,n; flag_t *retflag[MAXCANDIDATES]; int nretflags; lifeform_t *l; // minor bad stuff switch (rid) { case R_GODBATTLE: // rust your armour for (o = player->pack->first ; o ; o = o->next) { if (isarmour(o) && (o->type->material->id == MT_METAL)) { poss[nposs++] = o; } } if (nposs) { o = poss[rnd(0,nposs-1)]; msg("\"Let your armour reflect your actions!\""); makewet(o, R_TRUSTY); } else { o = getweapon(player); if (o) { msg("\"Let your weapon reflect your actions!\""); makeduller(o, 2); } } break; case R_GODDEATH: castspell(god, OT_S_PAIN, player, NULL, player->cell, NULL, NULL); castspell(god, OT_S_DRAINLIFE, player, NULL, player->cell, NULL, NULL); // all undead in sight become hostile for (l = player->cell->map->lf ; l ; l = l->next) { if (!isplayer(l) && isundead(l) && cansee(l, player)) { if (getallegiance(l) != AL_HOSTILE) { aiattack(l, player, PERMENANT); } } } break; case R_GODFIRE: msg("\"Fire will burn away your sins!\""); dospelleffects(NULL, OT_S_FLAMEPILLAR, 4, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); break; case R_GODLIFE: msg("\"Your body shall be slow to recover from wounds...\""); // life spells will fail break; case R_GODMAGIC: msg("\"You can live without my gifts for a while...\""); losemp(player, player->mp); // get random spell getflags(player->flags, retflag, &nretflags, F_CANCAST, F_NONE); nposs = 0; for (i = 0; i < nretflags; i++) { if (retflag[i]->lifetime != FROMJOB) { poss[nposs++] = retflag[i]; } } if (nposs) { f = poss[rnd(0,nposs-1)]; killflag(f); } break; case R_GODNATURE: msg("\"You have transgressed against nature!\""); dospelleffects(NULL, OT_S_ENTANGLE, 10, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); // note: you will also rot food on touch until god is appeased. // see touch(). break; case R_GODMERCY: // lower one attribute msg("\"Be glad that I am feeling merciful, mortal!\""); a = rnd(0,MAXATTS-1); modattr(player, a, -1); break; case R_GODPURITY: // remove blessings nposs = 0; for (o = player->pack->first ; o ; o = o->next) { if (isblessed(o)) { poss[nposs++] = o; } } if (nposs) { msg("\"Your actions do not befit the bearer of blessed objects!\""); n = rnd(1,3); if (nposs < n) n = nposs; for (i = 0; i < n; i++) { o = (object_t *)poss[rnd(0,nposs-1)]; while (!isblessed(o)) { // pick again... o = (object_t *)poss[rnd(0,nposs-1)]; } curseob(o); } } else { // don't have any blessed objects. msg("\"Perhaps you need some time without material wealth...\""); dospelleffects(NULL, OT_S_GUSTOFWIND, 10, NULL, NULL, player->cell, B_UNCURSED, NULL, B_TRUE); } break; case R_GODTHIEVES: // take a random object msg("\"Yoink!\""); castspell(god, OT_S_CONFISCATE, player, NULL, player->cell, NULL, NULL); break; default: break; } } else if (plev == PL_FURIOUS) { object_t *o; lifeform_t *l; int n,i,nretcells; cell_t *retcell[MAXRETCELLS]; int rollagain = B_TRUE; // major bad stuff switch (god->race->id) { case R_GODBATTLE: switch (rnd(1,3)) { case 1: // bad weapon msg("\"A fool deserves a fool's weapon!\""); // forcibly drop player's weapon o = getweapon(player); if (o) { killflagsofid(o->flags, F_EQUIPPED); drop(o, o->amt); } o = addob(player->pack, "cursed -1 stick"); if (o) { identify(o); weild(player, o); } break; case 2: // bad armour msg("\"A fool deserves a fool's armour!\""); // remove all player's armour dospelleffects(god, OT_S_INSTANTDISROBE, 10, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); // give them cursed armour o = addob(player->pack, "cursed -5 cotton shirt"); if (o) { resizeobject(o, getlfsize(player)); identify(o); wear(player, o); } break; case 3: // summon monsters msg("\"Fight for your life, knave!\""); summonlfs(player, player->cell, R_NONE, RC_HUMANOID, SZ_HUMAN, AL_NONE, 8, PERMENANT, B_FALSE); break; } break; case R_GODDEATH: castspell(god, OT_S_PAIN, player, NULL, player->cell, NULL, NULL); castspell(god, OT_S_DRAINLIFE, player, NULL, player->cell, NULL, NULL); // all undead in sight become hostile for (l = player->cell->map->lf ; l ; l = l->next) { if (!isplayer(l) && isundead(l) && cansee(l, player)) { if (getallegiance(l) != AL_HOSTILE) { aiattack(l, player, PERMENANT); } } } switch (rnd(1,2)) { case 1: msg("\"This will teach you some humility, mortal!\""); if (getattr(player, A_IQ) > getattr(player, A_STR)) { castspell(god, OT_S_FEEBLEMIND, player, NULL, player->cell, NULL, NULL); } else { castspell(god, OT_S_WEAKEN, player, NULL, player->cell, NULL, NULL); } break; case 2: // summon undead msg("\"Destroy him, my pets!\""); summonlfs(god, player->cell, R_NONE, RC_UNDEAD, SZ_ANY, AL_EVIL, 3, PERMENANT, B_FALSE); break; } break; case R_GODFIRE: msg("\"Burn, infidel!\""); dospelleffects(NULL, OT_S_FLAMEPILLAR, 10, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); getradiuscells(player->cell, 1, DT_COMPASS, B_FALSE, LOF_WALLSTOP, B_FALSE, retcell, &nretcells, 0); for (i = 0; i < nretcells; i++) { if (!retcell[i]->type->solid) { addobfast(retcell[i]->obpile, OT_FIRELARGE); } } break; case R_GODLIFE: msg("\"I withdraw my gifts from you!\""); // lower max hp by 10 player->maxhp -= 10; limit(&(player->maxhp), 1, NA); if (player->hp > player->maxhp) player->hp = player->maxhp; statdirty = B_TRUE; // player can now never heal break; case R_GODTHIEVES: o = getweapon(player); msg("\"Allow me to lighten your load a little...\""); if (o) { // take player's weapon castspell(god, OT_S_CONFISCATE, player, o, player->cell, NULL, NULL); } else { // take 3 objects int i; for (i = 0; i < 3; i++) { castspell(god, OT_S_CONFISCATE, player, NULL, player->cell, NULL, NULL); } } break; case R_GODMAGIC: rollagain = B_TRUE; while (rollagain) { flag_t *retflag[MAXCANDIDATES]; int nretflags; rollagain = B_FALSE; switch (rnd(1,3)) { case 1: // lose all spells msg("\"I forbid you my gifts!\""); nposs = 0; getflags(player->flags, retflag, &nretflags, F_CANCAST, F_NONE); nposs = 0; for (i = 0; i < nretflags; i++) { if (retflag[i]->lifetime != FROMJOB) { killflag(retflag[i]); } } break; case 2: // spells usually fail msg("\"You will find my gifts far less reliable in future!\""); addtempflag(player->flags, F_MISCASTCHANCE, 85, NA, NA, NULL, 200); break; case 3: // become a newt if (ispolymorphed(player)) { rollagain = B_TRUE; } else { msg("\"Maybe this will teach you some humility!\""); setrace(player, R_NEWT, B_TRUE); // ie. don't set origrace! } break; } } // end while rollagain break; case R_GODMERCY: msg("\"Even my mercy has its limits!\""); // age age(player, 15); // lower every attribute by one for (a = 0; a < MAXATTS; a++) { modattr(player, a, -1); } break; case R_GODNATURE: msg("\"You have violated the cardinal laws of nature!\""); dospelleffects(NULL, OT_S_ENTANGLE, 10, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); switch (rnd(1,3)) { case 1: dospelleffects(NULL, OT_S_CLOUDKILL, 10, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); break; case 2: dospelleffects(NULL, OT_S_HAILSTORM, 10, NULL, NULL, player->cell, B_BLESSED, NULL, B_TRUE); break; case 3: msg("\"Destroy him, my pets!\""); summonlfs(god, player->cell, R_SAWGRASS, RC_ANY, SZ_ANY, AL_GOOD, 8, PERMENANT, B_FALSE); break; } break; case R_GODPURITY: switch (rnd(1,2)) { case 1: // break objects msg("\"Time for a lesson in materialism!\""); nposs = 0; for (o = player->pack->first ; o ; o = o->next) { if (hasflag(o->flags, F_DAMAGABLE) && !hasflag(o->flags, F_DEAD)) { poss[nposs++] = o; } } n = rnd(1,3); if (nposs < n) n = nposs; for (i = 0; i < n; i++) { char obname[BUFLEN]; o = (object_t *)poss[rnd(0,nposs-1)]; // damage it getobname(o, obname, o->amt); msg("Your %s %s struck by divine force!", OB1(o, "is", "are"), noprefix(obname)); takedamage(o, roll("2d4"), DT_DIRECT); } break; case 2: // summon holy creautes msg("\"Destroy him, my pets!\""); summonlfs(god, player->cell, R_NONE, RC_ANY, SZ_ANY, AL_GOOD, 3, PERMENANT, B_FALSE); break; } break; default: break; } } else if (plev == PL_ENRAGED) { // god attacks! godappears(god->race->id, NULL); aiattack(god, player, PERMENANT); } } } // anger the god if you are worshippin them. void angergodmaybe(enum RACE rid, int amt, enum GODANGERREASON why) { lifeform_t *god; if (lfhasflag(player, F_WINNER)) return; god = findgod(rid); if (lfhasflag(god, F_PRAYEDTO)) { angergod(rid, amt, why); } } void dooffer(void) { object_t *o, *nexto; lifeform_t *god; flag_t *retflag[MAXCANDIDATES]; int nretflags,pietyplus = 0; char splatterob[BUFLEN]; strcpy(splatterob, ""); if (lfhasflag(player, F_RAGE)) { msg("You are too enraged to offer a sacrifice!"); return; } // which god? god = askgod("To whom will you sacrifice?", B_TRUE); if (!god) { msg("Cancelled."); return; } getflags(god->flags, retflag, &nretflags, F_SACRIFICEOB, F_SACRIFICEOBCLASS, F_SACRIFICEOBWITHFLAG, F_SACRIFICEOBBLESSED, F_NONE); if (nretflags == 0) { msg("%s does not accept sacrifices.", god->race->name); return; } // anything here to offer? for (o = player->cell->obpile->first ; o ; o = nexto) { int i; nexto = o->next; // does the god want this? getflags(god->flags, retflag, &nretflags, F_SACRIFICEOB, F_SACRIFICEOBCLASS, F_SACRIFICEOBWITHFLAG, F_SACRIFICEOBBLESSED, F_NONE); for (i = 0; i < nretflags; i++) { int ok = B_FALSE; int thispiety = 0; flag_t *f; f = retflag[i]; if ((f->id == F_SACRIFICEOB) && (f->val[0] == o->type->id)) { int validcorpse = B_FALSE; if (f->val[1] == NA) { validcorpse = B_TRUE; } else { flag_t *ff; ff = hasflag(o->flags, F_CORPSEOF); if (ff) { race_t *r; r = findrace(ff->val[0]); if (r->raceclass->id == f->val[1]) { validcorpse = B_TRUE; } } } // special case - amberon only accepts evil corpses if (validcorpse && (god->race->id == R_GODPURITY) && (o->type->id == OT_CORPSE)) { flag_t *ff; ff = hasflag(o->flags, F_ALIGNMENT); if (!ff || (ff->val[0] != AL_EVIL)) { validcorpse = B_FALSE; } } if (validcorpse) { ok = B_TRUE; thispiety = f->val[2]; } } else if ((f->id == F_SACRIFICEOBCLASS) && (f->val[0] == o->type->obclass->id)) { ok = B_TRUE; thispiety = f->val[2]; } else if ((f->id == F_SACRIFICEOBWITHFLAG) && hasflag(o->flags, f->val[0])) { ok = B_TRUE; thispiety = f->val[2]; } else if ((f->id == F_SACRIFICEOBBLESSED) && (f->val[0] == o->blessed) && (o->blessknown == B_TRUE)) { ok = B_TRUE; thispiety = f->val[2]; } if (ok) { char *p; char obname[BUFLEN]; // override piety sometimes if (god->race->id == R_GODTHIEVES) { // 100 value = 1 piety. // NOTE: this could be exploited by constantly sacrificing // 1 gold at a time! if ((o->type->id == OT_GOLD) || hasflag(o->flags, F_GEM)) { thispiety = (getobvalue(o) / 100) + 1; } } if (haslos(player, player->cell)) { getobname(o, obname, ALL); p = strdup(f->text); p = strrep(p, "OB", obname, NULL); if (o->amt == 1) { p = strrep(p, "IS", "is", NULL); p = strrep(p, "#S", "s", NULL); } else { p = strrep(p, "IS", "are", NULL); p = strrep(p, "#S", "", NULL); } msg("%s", p); free(p); } removeob(o, ALL); pietyplus += thispiety; // special effect if (god->race->id == R_GODBATTLE) { strcpy(splatterob, "splash of blood"); } break; } } // end for each f_sacrificexxx flag } // end foreach ob if (pietyplus) { pleasegod(god->race->id, pietyplus); if (strlen(splatterob)) { addob(player->cell->obpile, splatterob); addobsinradius(player->cell, 1, DT_COMPASS, splatterob, B_TRUE, NULL); } if (god->race->id == R_GODFIRE) { dospelleffects(player, OT_S_FLAMEBURST, 1, NULL, NULL, player->cell, B_UNCURSED, NULL, B_FALSE); } } else { nothinghappens(); } taketime(player, getactspeed(player)); } lifeform_t *findgod(enum RACE rid) { lifeform_t *lf; // search heaven first for (lf = heaven->lf ; lf ; lf = lf->next) { if (lf->race->id == rid) return lf; } // now search other maps lf = findlfunique(rid); return lf; } enum RACE getopposinggod(enum RACE rid) { switch (rid) { //case R_GODPURITY: return R_GODCHAOS; //case R_GODCHAOS: return R_GODPURITY; case R_GODDEATH: return R_GODLIFE; case R_GODLIFE: return R_GODDEATH; case R_GODMERCY: return R_GODTHIEVES; case R_GODTHIEVES: return R_GODMERCY; case R_GODBATTLE: return R_GODMAGIC; case R_GODMAGIC: return R_GODBATTLE; case R_GODNATURE: return R_GODFIRE; case R_GODFIRE: return R_GODNATURE; default: break; } return R_NONE; } enum OBTYPE getopposinggodstone(enum RACE rid) { objecttype_t *ot; for (ot = objecttype ; ot ; ot = ot->next) { if (ot->obclass->id != OC_GODSTONE) continue; if (hasflagval(ot->flags, F_LINKGOD, getopposinggod(rid), NA, NA, NULL)) return ot->id; } return OT_NONE; } int getpiety(enum RACE rid) { lifeform_t *god; flag_t *f; god = findgod(rid); f = lfhasflag(god, F_PIETY); if (f) { return f->val[0]; } else { // ie. haven't prayed to them before. return 100; } return 0; } // return the highest piety value which will result in the given level. int getpietycutoff(enum PIETYLEV pl) { switch (pl) { case PL_ENRAGED: return -200; case PL_FURIOUS: return -100; case PL_ANGRY: return -1; case PL_TOLERATED: return 99; case PL_INDIFFERENT: return 199; case PL_PLEASED: return 299; case PL_DELIGHTED: return 399; case PL_ECSTATIC: return 1000; } // default return 0; } enum PIETYLEV getpietylev(enum RACE rid, enum COLOUR *col, char *happiness) { int piety; /// figure out piety bracket // min = -200 // max = 400 // range = 600 piety = getpiety(rid); if (piety <= -200) { // -200 - -100 if (col) *col = C_ORANGE; if (happiness) strcpy(happiness, "Enraged"); return PL_ENRAGED; } else if (piety <= -100) { // -199 - -100 if (col) *col = C_RED; if (happiness) strcpy(happiness, "Furious"); return PL_FURIOUS; } else if (piety < 0) { // -99 - 0 if (col) *col = C_YELLOW; if (happiness) strcpy(happiness, "Angry"); return PL_ANGRY; } else if (piety <= 99) { // 0 - 99 if (col) *col = C_BROWN; if (happiness) strcpy(happiness, "Tolerated"); return PL_TOLERATED; } else if (piety <= 199) { // 100 - 199 if (col) *col = C_GREY; if (happiness) strcpy(happiness, "Neutral"); return PL_INDIFFERENT; } else if (piety <= 299) { // 200 - 299 if (col) *col = C_GREEN; if (happiness) strcpy(happiness, "Pleased"); return PL_PLEASED; } else if (piety <= 399) { // 300 - 399 if (col) *col = C_BOLDGREEN; if (happiness) strcpy(happiness, "Delighted"); return PL_DELIGHTED; } else { // 400+ if (col) *col = C_BOLDCYAN; if (happiness) strcpy(happiness, "Ecstatic"); return PL_ECSTATIC; } return PL_INDIFFERENT; } int getprayedgods(lifeform_t **retgod, int *nretgods) { int i; *nretgods = 0; for (i = 0; i < ngodlfs; i++) { if (lfhasflag(godlf[i], F_PRAYEDTO)) { retgod[*nretgods] = godlf[i]; (*nretgods)++; } } return *nretgods; } lifeform_t *getrandomgod(void) { if (ngodlfs == 0) { return NULL; } return godlf[rnd(0,ngodlfs-1)]; } // get a random god which player has prayed to lifeform_t *getrandomprayedgod(void) { int nposs; lifeform_t *poss[MAXGODS]; getprayedgods(poss, &nposs); if (nposs == 0) { return NULL; } return poss[rnd(0,nposs-1)]; } enum OBTYPE getrelatedgodstone(enum RACE rid) { objecttype_t *ot; for (ot = objecttype ; ot ; ot = ot->next) { if (ot->obclass->id != OC_GODSTONE) continue; if (hasflagval(ot->flags, F_LINKGOD, rid, NA, NA, NULL)) return ot->id; } return OT_NONE; } lifeform_t *godappears(enum RACE rid, cell_t *where) { lifeform_t *god; char killedname[BUFLEN],godname[BUFLEN]; god = findgod(rid); real_getlfname(god, godname, B_FALSE, B_FALSE); strcpy(killedname, ""); if (!where) { // somewhere next to the player. where = real_getrandomadjcell(player->cell, WE_WALKABLE, B_ALLOWEXPAND, LOF_WALLSTOP, NULL, player); if (!where) { where = getrandomadjcell(player->cell, B_FALSE, B_NOEXPAND); } } // now see if anyone is there. if (where->lf) { // kill them. getlfname(where->lf, killedname); killlf(where->lf); if (where->type->solid) { setcelltype(where, where->habitat->emptycelltype); } teleportto(god, where, B_TRUE); if (haslos(player, where) && strlen(killedname)) { msg("%s transforms into %s!", killedname, godname); } } else { teleportto(god, where, B_TRUE); } return god; } void god_usepoison_response(void) { int i; flag_t *f; for (i = 0; i < ngodlfs; i++) { if (godlf[i]) { f = lfhasflag(godlf[i], F_GODPOISON); if (f) { if (f->val[0]) { pleasegodmaybe(godlf[i]->race->id, f->val[1]); } else { angergodmaybe(godlf[i]->race->id, f->val[1], GA_POISON); } } } } } int godblocked(enum RACE rid) { lifeform_t *opposegod,*god; enum RACE opposeid; god = findgod(rid); // forcibly blocked? if (lfhasflag(god, F_GODBLOCKED)) { return B_TRUE; } // already prayed to the opposing god? opposeid = getopposinggod(rid); opposegod = findgod(opposeid); if (opposegod && lfhasflag(opposegod, F_PRAYEDTO)) { return B_TRUE; } return B_FALSE; } // maybe get a gift int godgiftmaybe(enum RACE rid, int fromtemple) { lifeform_t *god; int piety,gotgift = B_FALSE; enum PIETYLEV plev; int chance; god = findgod(rid); piety = getpiety(rid); plev = getpietylev(rid, NULL, NULL); if (fromtemple) { chance = 100; } else if (plev >= PL_PLEASED) { // ie. >= 200 // ie. 200 -> 4% // ie. 500 -> 10% chance = piety / 50; } else { chance = 0; } if (pctchance(chance)) { // if this is true, you get a gift. char obtogive[BUFLEN]; int rollagain = B_TRUE; enum SPELLSCHOOL school; gotgift = B_TRUE; killflagsofid(player->flags, F_ASLEEP); switch (god->race->id) { case R_GODPURITY: godsay(god->race->id, B_TRUE, "I bestow a gift upon you, mortal!"); break; case R_GODTHIEVES: godsay(god->race->id, B_TRUE, "Loyalty has its rewards..."); break; case R_GODDEATH: godsay(god->race->id, B_TRUE, "Your service has impressed me..."); break; case R_GODFIRE: godsay(god->race->id, B_TRUE, "DESTROY IN MY NAME!"); break; case R_GODLIFE: godsay(god->race->id, B_TRUE, "Use this gift to spread the joy of life!"); break; case R_GODMERCY: godsay(god->race->id, B_TRUE, "As you have shown mercy, so shall you receive it!"); break; case R_GODNATURE: godsay(god->race->id, B_TRUE, "Harvest nature's bounty!"); break; case R_GODBATTLE: godsay(god->race->id, B_TRUE, "Gather up the spoils of battle!"); break; case R_GODMAGIC: godsay(god->race->id, B_TRUE, "One has earned a reward!"); break; default: break; } strcpy(obtogive, ""); switch (god->race->id) { case R_GODBATTLE: while (rollagain) { rollagain = B_FALSE; switch (rnd(1,2)) { case 1: snprintf(obtogive, BUFLEN, "excellent appropriate branded weapon"); break; case 2: snprintf(obtogive, BUFLEN, "excellent appropriate branded armour"); break; } } break; case R_GODDEATH: while (rollagain) { flag_t *f; object_t *wep; rollagain = B_FALSE; switch (rnd(1,6)) { case 1: if (lfhasflag(player, F_SEEINDARK)) { rollagain = B_TRUE; } else { msg("\"Henceforth the night shall be your ally!\""); f = addtempflag(player->flags, F_SEEINDARK, 4, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; case 2: snprintf(obtogive, BUFLEN, "cursed branded weapon"); break; case 3: // poison your weapon wep = getweapon(player); if (wep && canbepoisoned(wep->type->id)) { applyobmod(wep, findobmod(OM_POISONED)); msg("A layer of venom covers your weapon!"); } else { rollagain = B_TRUE; } break; case 4: // resistant/immune to necrotic if (lfhasflagval(player, F_DTRESIST, DT_NECROTIC, NA, NA, NULL)) { if (lfhasflagval(player, F_DTIMMUNE, DT_NECROTIC, NA, NA, NULL)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_DTIMMUNE, DT_NECROTIC, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } } else { f = addtempflag(player->flags, F_DTRESIST, DT_NECROTIC, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; case 5: // become a vampire if (player->race->id == R_VAMPIRE) { rollagain = B_TRUE; } else { int orighp; int origatt[MAXATTS]; enum ATTRIB a; msg("\"Go forth and kill in my name!\""); msg("You transform into a vampire!"); // special polymorph - we won't change some stats. orighp = player->maxhp; for (a = 0; a < MAXATTS; a++) { origatt[a] = player->att[a]; } // change the race. setrace(player, R_VAMPIRE, B_FALSE); // ie. don't set origrace! // restore stats player->maxhp = orighp; player->hp = orighp; for (a = 0; a < MAXATTS; a++) { player->att[a] = origatt[a]; } statdirty = B_TRUE; drawscreen(); } break; case 6: // necromancy spells if (!getskill(player, SK_SS_DEATH)) { giveskill(player, SK_SS_DEATH); } else { snprintf(obtogive, BUFLEN, "spellbook of necromancy"); } break; } } break; case R_GODFIRE: while (rollagain) { object_t *wep; wep = getweapon(player); rollagain = B_FALSE; switch (rnd(1,3)) { case 1: // weapon gains burning if (wep) { if (!hasobmod(wep, findobmod(OM_FLAMING))) { applyobmod(wep, findobmod(OM_FLAMING)); } else if (!hasflag(wep->flags, F_HASBRAND)) { char obname[BUFLEN]; // already burning. gains pyromania addflag(wep->flags, F_FLAMESTRIKE, B_TRUE, NA, NA, NULL); getobname(wep, obname, 1); msg("Your %s glows with a brilliant heat!", noprefix(obname)); } else { // already has pyromania. rollagain = B_TRUE; } } else { rollagain = B_TRUE; } break; case 2: // fire resist/immune if (lfhasflagval(player, F_DTRESIST, DT_FIRE, NA, NA, NULL)) { if (lfhasflagval(player, F_DTIMMUNE, DT_FIRE, NA, NA, NULL)) { rollagain = B_TRUE; } else { flag_t *f; f = addtempflag(player->flags, F_DTIMMUNE, DT_FIRE, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } } else { flag_t *f; f = addtempflag(player->flags, F_DTRESIST, DT_FIRE, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; case 3: // fire-related spellbook, or fire magic skill if (getskill(player, SK_SS_FIRE)) { snprintf(obtogive, BUFLEN, "spellbook of Fire Magic"); } else { flag_t *f; f = giveskill(player, SK_SS_FIRE); if (f) { f->obfrom = god->race->id; } else { rollagain = B_TRUE; } } break; } } break; case R_GODLIFE: while (rollagain) { object_t *wep; flag_t *f; wep = getweapon(player); rollagain = B_FALSE; switch (rnd(1,4)) { case 1: // regeneration if (lfhasflag(player, F_REGENERATES)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_REGENERATES, 1, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; case 2: // learn first aid skill f = giveskill(player, SK_FIRSTAID); if (f) { f->obfrom = god->race->id; } else { rollagain = B_TRUE; } break; case 3: // life-related spellbook, or life magic skill if (getskill(player, SK_SS_LIFE)) { snprintf(obtogive, BUFLEN, "spellbook of Life Magic"); } else { flag_t *f; f = giveskill(player, SK_SS_LIFE); if (f) { f->obfrom = god->race->id; } else { rollagain = B_TRUE; } } break; case 4: // increase max hp player->maxhp += rollhitdice(player, B_TRUE); statdirty = B_TRUE; msg("\"I have increased your tolerance to injury!\""); break; } } break; case R_GODMAGIC: while (rollagain) { rollagain = B_FALSE; switch (rnd(1,3)) { case 1: // spellbook for a known school school = getrandomspellschool(player, B_TRUE); if (school == SS_NONE) { rollagain = B_TRUE; } else { snprintf(obtogive, BUFLEN, "spellbook of %s", getschoolname(school)); } break; case 2: // manual for an unknown spell school school = getrandomspellschool(player, B_FALSE); if (school == SS_NONE) { rollagain = B_TRUE; } else { enum SKILL skid; skill_t *sk; skid = getschoolskill(school); sk = findskill(skid); snprintf(obtogive, BUFLEN, "manual of %s", sk->name); } break; case 3: msg("\"I grant you additional magical reserves!\""); player->maxmp += rnd(2,4); statdirty = B_TRUE; break; } } break; case R_GODMERCY: while (rollagain) { flag_t *f; rollagain = B_FALSE; switch (rnd(1,3)) { case 1: snprintf(obtogive, BUFLEN, "3-4 potions of restoration"); break; case 2: if (hasob(player->pack, OT_RING_MIRACLES)) { rollagain = B_TRUE; } else { snprintf(obtogive, BUFLEN, "ring of miracles"); } break; case 3: // sixth sense if (lfhasflag(player, F_SIXTHSENSE)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_SIXTHSENSE, B_TRUE, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; } } break; case R_GODNATURE: while (rollagain) { flag_t *f; object_t *o; objecttype_t *ot; rollagain = B_FALSE; switch (rnd(1,6)) { case 1: // resist/immune poison if (lfhasflag(player, F_DISEASEIMMUNE)) { if (lfhasflagval(player, F_DTIMMUNE, DT_POISON, NA, NA, NULL)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_DTIMMUNE, DT_POISON, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } } else { f = addtempflag(player->flags, F_DISEASEIMMUNE, B_TRUE, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; case 2: // resist/immune cold if (lfhasflagval(player, F_DTRESIST, DT_COLD, NA, NA, NULL)) { if (lfhasflagval(player, F_DTIMMUNE, DT_COLD, NA, NA, NULL)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_DTIMMUNE, DT_COLD, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } } else { f = addtempflag(player->flags, F_DTRESIST, DT_COLD, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; case 3: // good ranged weapon if (getskill(player, SK_RANGED)) { char obname[BUFLEN]; if (real_getrandomob(NULL, obname, 25, NA, getlfsize(player), SK_RANGED, B_TRUE, OC_WEAPON, OC_NONE, DT_NONE)) { snprintf(obtogive, BUFLEN, "excellent %s", obname); } else { rollagain = B_TRUE; } } else { rollagain = B_TRUE; } break; case 4: // ammo o = getfirearm(player); if (o) { ot = getrandomammofor(o); snprintf(obtogive, BUFLEN, "%d excellent %s", rnd(20,30), ot->name); } else { rollagain = B_TRUE; } break; case 5: // calm animals ability if (lfhasflagval(player, F_CANWILL, OT_S_CALMANIMALS, NA, NA, NULL)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_CANWILL, OT_S_CALMANIMALS, NA, NA, "pw:10;", FROMGODGIFT); f->obfrom = god->race->id; } break; case 6: if (lfhasflagval(player, F_CANWILL, OT_S_SHAPESHIFT, NA, NA, "pw:1;race:hawk;")) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_CANWILL, OT_S_SHAPESHIFT, 50, 50, "pw:1;race:hawk;", FROMGODGIFT); f->obfrom = god->race->id; } break; } } break; case R_GODPURITY: if (!hasob(player->pack, OT_POT_RESTORATION)) { snprintf(obtogive, BUFLEN, "2-3 blessed potions of restoration"); } else { while (rollagain) { flag_t *f; rollagain = B_FALSE; switch (rnd(1,3)) { case 1: snprintf(obtogive, BUFLEN, "2-3 blessed potions of water"); break; case 2: snprintf(obtogive, BUFLEN, "wand of turn undead"); break; case 3: // holy aura if (lfhasflag(player, F_HOLYAURA)) { rollagain = B_TRUE; } else { f = addtempflag(player->flags, F_PRODUCESLIGHT, 3, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; f = addtempflag(player->flags, F_HOLYAURA, NA, NA, NA, NULL, FROMGODGIFT); f->obfrom = god->race->id; } break; } } } break; case R_GODTHIEVES: while (rollagain) { object_t *wep; rollagain = B_FALSE; wep = getweapon(player); if (wep && !hasflag(wep->flags, F_HASBRAND)) { char obname[BUFLEN]; getobname(wep,obname,1); // announce msg("Your %s vibrates, and you suddenly thirst for vengeance!", noprefix(obname)); addflag(wep->flags, F_REVENGE, B_TRUE, NA, NA, NULL); } else { switch (rnd(1,7)) { case 1: if (getskill(player, SK_TECHUSAGE) >= gettechlevel(OT_LOCKHACKER)) { snprintf(obtogive, BUFLEN, "lock hacker"); } else { snprintf(obtogive, BUFLEN, "3-6 blessed lockpicks"); } break; case 2: if (onein(6)) { snprintf(obtogive, BUFLEN, "large bag of holding"); } else { snprintf(obtogive, BUFLEN, "bag of holding"); } break; case 3: snprintf(obtogive, BUFLEN, "safebox"); break; case 4: snprintf(obtogive, BUFLEN, "wand of opening"); break; case 5: snprintf(obtogive, BUFLEN, "wand of invisibility"); break; case 6: snprintf(obtogive, BUFLEN, "3-6 potions of invisibility"); break; case 7: snprintf(obtogive, BUFLEN, "leather boots of stealth"); break; } } } break; default: break; } // end switch if (strlen(obtogive)) { object_t *o; o = addob(player->cell->obpile, obtogive); if (o) { char buf[BUFLEN]; addflag(o->flags, F_GODGIFT, god->race->id, NA, NA, NULL); if (haslos(player, player->cell)) { getobname(o, buf, o->amt); msg("%s appear%s!", buf, OBS1(o)); } else { msg("You hear something hitting the ground."); } } } // since you got a gift, lower piety a little. //setpiety(rid, 101); if (!fromtemple) { modpiety(rid, -50); } } // end if (pctchance enough to get a gift) return gotgift; } int godisangry(enum RACE rid) { if (getpiety(rid) < 0) { return B_TRUE; } return B_FALSE; } int godprayedto(enum RACE rid) { lifeform_t *god; god = findgod(rid); if (hasflag(god->flags, F_PRAYEDTO)) { return B_TRUE; } return B_FALSE; } void godsay(enum RACE rid, int says, char *format, ...) { lifeform_t *god; char godname[BUFLEN], buf[BUFLEN]; char voiceverb[BUFLEN]; va_list args; va_start(args, format); vsnprintf( buf, BUFLEN, format, args ); va_end(args); god = findgod(rid); real_getlfname(god, godname, B_FALSE, B_FALSE); switch (rid) { case R_GODBATTLE: strcpy(voiceverb, "rings out from the heavens"); break; case R_GODDEATH: strcpy(voiceverb, "grates against your mind"); break; case R_GODFIRE: strcpy(voiceverb, "burns into your mind"); break; case R_GODLIFE: strcpy(voiceverb, "chimes out from the heavens"); break; case R_GODMAGIC: strcpy(voiceverb, "enters your thoughts"); break; case R_GODMERCY: strcpy(voiceverb, "washes over you"); break; case R_GODNATURE: if (godisangry(rid)) { strcpy(voiceverb, "arrives with a buffeting wind"); } else { strcpy(voiceverb, "arrives with a gentle breeze"); } break; case R_GODTHIEVES: strcpy(voiceverb, "whispers in your ear"); break; case R_GODPURITY: default: strcpy(voiceverb, "booms out from the heavens"); break; } if (says) { msg("%s%s voice %s:", godname, getpossessive(godname), voiceverb); more(); } msg("\"%s\"", buf); } void godstone_pickup_effects(lifeform_t *god, lifeform_t *opposegod, object_t *o) { int x,y; // opposing god appears godappears(opposegod->race->id, NULL); msg("%s says:", opposegod->race->name); more(); cls(); wmove(mainwin, 0, 0); // tells you you can become the new god of xxx // or give the stone to them, for a reward //tells you about the portal on the surface switch (opposegod->race->id) { case R_GODBATTLE: wprintw(mainwin, "\"Soldier. What you have just appropriated is the legendary\n"); wprintw(mainwin, "Godstone of Magic. As you well know, the existence of magic\n"); wprintw(mainwin, "has unfairly changed the outcome of many a battle. It causes\n"); wprintw(mainwin, "even the most hardened veteran to tremble in the face of the\n"); wprintw(mainwin, "weak and infirm. This goes against everything that is proper.\n"); wprintw(mainwin, "Now that the Godstone has been captured, there is a singular\n"); wprintw(mainwin, "opportunity to end this travesty.\n\n"); wprintw(mainwin, "Claim the stone in the name of armies everywhere, stand before\n"); wprintw(mainwin, "the Goddess of Magic, and issue your challenge. Strike her down,\n"); wprintw(mainwin, "and with her strike down the imbalances of magic itself!\n\n"); wprintw(mainwin, "Do not take any chances. If for any reason the success of your\n"); wprintw(mainwin, "primary mission should become uncertain, your contingency plan is\n"); wprintw(mainwin, "to immediately escort the stone safely to me. Such a dangerous\n"); wprintw(mainwin, "weapon must not fall into the hands of enemies, and only in\n"); wprintw(mainwin, "my possession can we be sure of its safety.\n\n"); wprintw(mainwin, "Your first waypoint is the portal atop the dungeon. This will\n"); wprintw(mainwin, "to the Realm of Gods, where both of your objectives can be\n"); wprintw(mainwin, "achieved.\"\n"); break; case R_GODDEATH: wprintw(mainwin, "\"Heh, heh, heh.\n\n"); wprintw(mainwin, "You, mortal, have just found the Godstone of Life.\n"); wprintw(mainwin, "It is the source of all Glorana's power... and could also be used to murder\n"); wprintw(mainwin, "her and take that power... if one had sufficient courage.\n\n"); wprintw(mainwin, "As you are a mere fleshling however, I will offer you a deal. Simply\n"); wprintw(mainwin, "deliver the Godstone to me, and in return I will forgo my claim on your\n"); wprintw(mainwin, "life. Your flesh will never wither. Your strength will never fade.\n"); wprintw(mainwin, "Death will never claim you.\n\n"); wprintw(mainwin, "Whatever your choice, travel to the surface and you will find a portal\n"); wprintw(mainwin, "to the Realm of Gods. Enter through, and claim your prize!\"\n\n"); break; case R_GODFIRE: wprintw(mainwin, "\"NATURE STONE!!!!\n\n"); wprintw(mainwin, "YOU WILL BRING IT! YOU WILL BRING IT AND KLIKIRAK WILL DESTROY!\n"); wprintw(mainwin, "OR... STONE KILL EKRUB. YES! YOU WILL USE. YOU FIND\n"); wprintw(mainwin, "HER. YOU USE STONE. STONE HELP BURN NATURE GODDESS!\n\n"); wprintw(mainwin, "YOU GO UPWARD. UPWARD GOES TO FOREST. PORTAL IN FOREST.\n"); wprintw(mainwin, "PORTAL TO TREE WOMAN. YOU KILL TREE WOMAN. OR YOU FIND KLIKIRAK,"); wprintw(mainwin, "YOU GIVE STONE TO KLIKIRAK.\n\n"); wprintw(mainwin, "YES. YES. YYYEESSS!!\"\n"); break; case R_GODLIFE: wprintw(mainwin, "\"BEWARE, CHILD! That is the Godstone of Death!\n\n"); wprintw(mainwin, "But wait... you seem unaffected by its power. Common wisdom\n"); wprintw(mainwin, "holds that the stone destroys all who touch it. Since this is\n"); wprintw(mainwin, "clearly untrue however... could it be that Hecta has fooled us\n"); wprintw(mainwin, "all? That the God of Death does indeed possess a weakness?\"\n\n"); wprintw(mainwin, "Lumara's pulsating form wavers for a moment, seemingly unsure.\n\n"); wprintw(mainwin, "\"It must be. And if this stone is truly the source of Hecta's\n"); wprintw(mainwin, "power, then destroying it... that would mean and end to death!\n"); wprintw(mainwin, "Life could last forever - all could be immortal, rathern just\n"); wprintw(mainwin, "a select few! It must be done - if you can bring me the\n"); wprintw(mainwin, "Godstone it will take but a few moments and the meaning of life\n"); wprintw(mainwin, "will be forever altered. Hecta will likely try to stop you.\n"); wprintw(mainwin, "Avoid him if you can... but should that not prove possible, the\n"); wprintw(mainwin, "the stone should at least grant you a slim chance of survival.\n"); wprintw(mainwin, "It might even be powerful enough for you to triumph...\n\n"); wprintw(mainwin, "But let us not dwell on that. Find the portal to my realm on\n"); wprintw(mainwin, "the surface, and take the first step towards eternal life!\"\n"); break; case R_GODMAGIC: wprintw(mainwin, "\"One has made a monumental discovery!\n\n"); wprintw(mainwin, "One my now comprehend, but the level of magic within the cosmos\n"); wprintw(mainwin, "has been waning. One's find is the source of this - an artifact\n"); wprintw(mainwin, "so imbued with the essense of physical conflict that its very\n"); wprintw(mainwin, "existence has disrupted the energies of imagination so vital to magic.\n"); wprintw(mainwin, "While One's path is of course One's own to decide, I would counsel you\n"); wprintw(mainwin, "to consider two alternative courses of action.\n\n"); wprintw(mainwin, "If you are able to bring the stone before me, the universe could be\n"); wprintw(mainwin, "forever enlightened. I could unlock infinite magical potential within\n"); wprintw(mainwin, "every living being, from the tiniest insect to the very stars themselves.\n\n"); wprintw(mainwin, "If One craves danger and adventure, One could also use the stone to confront\n"); wprintw(mainwin, "the God of Battle himself. Its power may just be sufficient to best the\n"); wprintw(mainwin, "Battlelord, and doing so would open the doors for One's own ascension.\n\n"); wprintw(mainwin, "One should consider these words wisely, and make One's choice.\"\n"); break; case R_GODMERCY: wprintw(mainwin, "\"HALT! By touching the Godstone of Vengeance, you have commited a\n"); wprintw(mainwin, "unspeakable sin! By rights your action should condemn you for\n"); wprintw(mainwin, "eternity. However...\"\n\n"); wprintw(mainwin, "Yumi's grave expression softens.\n\n"); wprintw(mainwin, "\"I embody mercy, and all sins can be forgiven. In this case, the road\n"); wprintw(mainwin, "to your redemption is tied with the deed itself. Bring the stone to me.\n"); wprintw(mainwin, "Perform this penance and not only will you be forgiven, but you will ensure\n"); wprintw(mainwin, "that your mistake is never again repeated for all eternity. The God of\n"); wprintw(mainwin, "Revenge will be neutralised, his influence ended.\n\n"); wprintw(mainwin, "Mercy however, extends even to the divine. I would not doom Felix to a\n"); wprintw(mainwin, "life of misery, his very essence ripped away. Should you possess the\n"); wprintw(mainwin, "power, the Godstone could be used to grant Felix the peaceful sleep\n"); wprintw(mainwin, "of death. For a tormented soul such as his, this would truly be a mercy.\n\n"); wprintw(mainwin, "Either way, your atonement begins now. Travel up to the surface, and enter\n"); wprintw(mainwin, "the magic portal. Complete your task in the Realm of Gods and all will be\n"); wprintw(mainwin, "forgiven.\"\n"); break; case R_GODNATURE: wprintw(mainwin, "\"%s! You hold the Godstone of Rage!\n\n", toupper(player->race->name[0]), (player->race->name + 1)); wprintw(mainwin, "Long have I sought this ancient artifact - it is from this stone that the\n"); wprintw(mainwin, "insane God of Fire draws his destructive power.\n"); wprintw(mainwin, "If you can just deliver this stone to me, Klikirak's reign could be ended!\n\n"); wprintw(mainwin, "Or even better...\"\n\n"); wprintw(mainwin, "Ekrub pauses for a moment.\n\n"); wprintw(mainwin, "As a being of creation I cannot affect the Fire God directly, but with the"); wprintw(mainwin, "power of the stone, you could. If you can confront and defeat him, I vow"); wprintw(mainwin, "to support you.\n\n"); wprintw(mainwin, "Within my forest on the surface, there is a portal to the Realm of Gods."); wprintw(mainwin, "Use it, and bring the Godstone!\"\n"); break; case R_GODTHIEVES: wprintw(mainwin, "\"Oho, what have you there? That stone, my friend, is none other than\n"); wprintw(mainwin, "the Godstone of Mercy itself! Oh sure, there are those rumours of\n"); wprintw(mainwin, "its protective powers, but what people don't know is that it's also\n"); wprintw(mainwin, "the direct source of power for Yumi, the Mercy Goddess.\n"); wprintw(mainwin, "Now, were someone to hold that stone... well, they'd be in prime\n"); wprintw(mainwin, "position to give the high and might lady of forgiveness a taste of\n"); wprintw(mainwin, "good old fashioned Revenge.\n\n"); wprintw(mainwin, "Of course you don't need to bother with all that. Just bring the stone\n"); wprintw(mainwin, "to me and I'll do the rest. There's a portal up on the surface, all\n"); wprintw(mainwin, "you need to do is step through, track me down, and hand over that little\n"); wprintw(mainwin, "trinket. Piece of cake!\"\n"); break; case R_GODPURITY: wprintw(mainwin, "\"Mortal! You hold an ancient artifact of immense power!\n"); wprintw(mainwin, "In your hands is the accursed Godstone of Chaos. For\n"); wprintw(mainwin, "centuries I have tracked this vile object, but somehow\n"); wprintw(mainwin, "the energies of the mortal world are keeping it from me.\n\n"); wprintw(mainwin, "This single stone is the source of all impurity in the universe.\n"); wprintw(mainwin, "Now all you need to do is deliver it to me, and it can be\n"); wprintw(mainwin, "unmade. In fact with the Godstone possessed by another,\n"); wprintw(mainwin, "the Chaos God's power may well have been waned far enough\n"); wprintw(mainwin, "for him to be confronted directly.\n\n"); wprintw(mainwin, "Travel to the Realm of Gods mortal, and come to me with the\n"); wprintw(mainwin, "stone. If you find and destroy the Chaos god on the way, all"); wprintw(mainwin, "the better. Chaos and impurity MUST be ended!\"\n"); break; default: break; } getyx(mainwin, y, x); centre(mainwin,C_WHITE, y, "[Press any key]"); getch(); restoregamewindows(); // identify the godstone identify(o); // make sure related god's anger will trigger one bad effect. if (!godprayedto(god->race->id)) { addflag(god->flags, F_PRAYEDTO, B_TRUE, NA, NA, NULL); } // related god screams and gets furios/enraged at you. // (you lose prayedto if you have it?) if (getpietylev(god->race->id, NULL, NULL) == PL_FURIOUS) { // becomes enraged setpiety(god->race->id, getpietycutoff(PL_ENRAGED)); } else { // becomes furious setpiety(god->race->id, getpietycutoff(PL_FURIOUS)); } angergod(god->race->id, 0, GA_GODSTONE); killflagsofid(god->flags, F_PRAYEDTO); addflag(god->flags, F_GODBLOCKED, B_TRUE, NA, NA, NULL); } void modpiety(enum RACE rid, int amt) { lifeform_t *god; flag_t *f; god = findgod(rid); if (godblocked(god->race->id)) return; f = lfhasflag(god, F_PIETY); if (!f) return; f->val[0] += amt; limit(&f->val[0], PIETY_MIN, PIETY_MAX); } void pleasegod(enum RACE rid, int amt) { lifeform_t *lf; char lfname[BUFLEN]; lf = findgod(rid); real_getlfname(lf, lfname, B_FALSE, B_FALSE); modpiety(rid, amt); // announce if (hasflag(lf->flags, F_PRAYEDTO)) { if (!isasleep(player)) { switch (rid) { case R_GODBATTLE: msg("You feel triumphant."); break; case R_GODDEATH: msg("You feel a thrill of unholy ecstasy."); break; case R_GODFIRE: msg("A searing heat runs through your blood."); break; case R_GODLIFE: if (isdeaf(player)) { msg("You have a feeling of holiness."); } else { msg("You hear a distance choir singing."); } break; case R_GODMAGIC: msg("You feel Lumara's presense nearby."); break; case R_GODNATURE: msg("You feel in tune with nature."); break; case R_GODMERCY: msg("You feel a sense of serenity."); break; case R_GODPURITY: msg("You feel righteous."); break; case R_GODTHIEVES: msg("You feel a guilty pleasure."); break; default: msg("You feel like %s approves of your actions.", lfname); break; } } godgiftmaybe(rid, B_FALSE); } } void pleasegodmaybe(enum RACE rid, int amt) { enum PIETYLEV modplev; int chance; if (lfhasflag(player, F_WINNER)) return; modplev = abs(getpietylev(rid, NULL, NULL)); // the angrier or more happy the god gets, the harder it // is to please them. // ie. INDIFFERENT = 1 in 1 (always) // ie. PLEASED/TOLERATED = 1 in 2 // ie. DELIGHTED/ANGRY = 1 in 3 // ie. ECSTATIC/FURIOUS = 1 in 4 // ie. ENRAGED = 1 in 5 chance = modplev + 1; if (onein(chance)) { pleasegod(rid, amt); } } int prayto(lifeform_t *lf, lifeform_t *god) { int piety,i,x,y; char assisttext[BUFLEN]; enum PIETYLEV plev; int newgod; taketime(lf, getactspeed(lf)); if (godblocked(god->race->id)) { msg("%s ignores you.", god->race->name); return B_TRUE; } if (lfhasflagval(god, F_HATESRACECLASS, lf->race->raceclass->id, NA, NA, NULL) || lfhasflagval(god, F_HATESRACE, lf->race->id, NA, NA, NULL)) { angergod(god->race->id, 50, GA_RACE); return B_TRUE; } // this will return 100 if we haven't prayed to this // god before piety = getpiety(god->race->id); // remember that we have now prayed to this god. // ie. player is expected to follow the god's rules. if (!hasflag(god->flags, F_PRAYEDTO)) { addflag(god->flags, F_PRAYEDTO, B_TRUE, NA, NA, NULL); newgod = B_TRUE; } if (godisangry(god->race->id)) { // get even more angry angergod(god->race->id, PIETYPRAYLOSS, GA_PRAY); return B_FALSE; } if (piety <= 99) { // piety between 0 and 99 = ignored //godsay(god->race->id, "Stop pestering me!"); msg("%s doesn't respond.", god->race->name); angergod(god->race->id, 0, GA_PRAY); modpiety(god->race->id, -30); return B_FALSE; } // if we get here, piety is >= 100. // you get some help... plev = getpietylev(god->race->id, NULL, NULL); switch (god->race->id) { case R_GODBATTLE: strcpy(assisttext, "Message received, soldier!"); break; case R_GODTHIEVES: strcpy(assisttext, "What mischief have you gotten yourself into, then?"); break; case R_GODDEATH: strcpy(assisttext, "You desire a favour, fleshling?"); break; case R_GODFIRE: switch (rnd(1,2)) { case 1: strcpy(assisttext, "BURN!"); break; case 2: strcpy(assisttext, "DESTROY!"); break; } break; case R_GODLIFE: strcpy(assisttext, "You prayer is answered!"); break; case R_GODMERCY: strcpy(assisttext, "I hear your prayer, child."); break; case R_GODNATURE: strcpy(assisttext, "Nature hears your call!"); break; case R_GODMAGIC: strcpy(assisttext, "One calls upon the eldritch powers..."); break; case R_GODPURITY: default: strcpy(assisttext, "You appear in need of assistance, mortal!"); break; } godsay(god->race->id, B_TRUE, assisttext); switch (god->race->id) { lifeform_t *l; int donesomething = B_FALSE,n; cell_t *c; object_t *o; case R_GODBATTLE: if (isinbattle(player, B_TRUE)) { int redo = B_TRUE; object_t *o; if (getstamina(player) <= pctof(25, getmaxstamina(player))) { setstamina(player, getmaxstamina(player)); msg("\"Time for your second wind!\""); } while (redo) { redo = B_FALSE; switch (rnd(1,4)) { case 1: // bless weapon msg("\"Fight in my name!\""); o = getweapon(player); if (o && !isblessed(o)) { blessob(o); } else { redo = B_TRUE; } break; case 2: // bezerk if (lfhasflag(player, F_RAGE)) { redo = B_TRUE; } else { msg("\"Rage like a badger!\""); player->stamina = getmaxstamina(player); abilityeffects(player, OT_A_RAGE, player->cell, player, NULL); } break; case 3: // msg("\"I will guide your blade!\""); dospelleffects(god, OT_S_TRUESTRIKE, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE); break; case 4: // msg("\"Your blows will be as lightning!\""); dospelleffects(god, OT_S_HASTE, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE); break; } // end switch }// end while redo } else { // not in battle... int done = B_FALSE; object_t *o,*wep; wep = getweapon(player); if (uncurse_one_equipped(lf, "\"Be free of your curse!\"")){ done = B_TRUE; } if (!done) { // try to repair armour or undull weapons i = 0; for (o = lf->pack->first ; o ; o = o->next) { if (isequipped(o)) { if (isdamaged(o) || (getobbonus(o, B_FALSE) < 0)) { dospelleffects(lf, OT_S_MENDING, 10, NULL, o, NULL, B_BLESSED, NULL, B_FALSE); i++; } } } if (i) { msg("\"Keep fighting, warrior!\""); done = B_TRUE; } } if (!done) { int redo = B_TRUE; while (redo) { redo = B_FALSE; switch (rnd(1,2)) { case 1: // detect life msg("\"Seek out battle in my name!\""); dospelleffects(god, OT_S_DETECTLIFE, 10, lf, NULL, lf->cell, B_BLESSED, NULL, B_TRUE); break; case 2: // bless weapon msg("\"Fight in my name!\""); o = getweapon(player); if (o && !isblessed(o)) { blessob(o); } else { redo = B_TRUE; } break; } // end switch }// end while redo } } break; case R_GODPURITY: msg("\"Witness the holy radiance of purity!\""); c = getrandomadjcell(lf->cell, WE_WALKABLE, B_ALLOWEXPAND); if (c) { dospelleffects(god, OT_S_LIGHT, 10, NULL, NULL, c, B_BLESSED, NULL, B_TRUE); } // uncurse ALL equipped obs for (o = lf->pack->first ; o ; o = o->next) { if (iscursed(o) && isequipped(o)) { blessob(o); } } // cure poison if (ispoisoned(lf)) { dospelleffects(god, OT_S_CUREPOISON, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_FALSE); } if (isinbattle(lf, B_TRUE)) { int i,nretflags; flag_t *retflag[MAXCANDIDATES]; // smite evil for (l = lf->cell->map->lf ; l ; l = l->next) { if (getalignment(l) == AL_EVIL) { if (haslof(lf->cell, l->cell, LOF_WALLSTOP, NULL)) { // smite them castspell(god, OT_S_SMITEEVIL, l, NULL, l->cell, NULL, NULL); } } } // turn undead TODO: move this to 'life' god castspell(god, OT_S_TURNUNDEAD, lf, NULL, NULL, NULL, NULL); // remove all temporary bad status effects getflags(player->flags, retflag, &nretflags, F_BLIND, F_CONFUSED, F_DEAF, F_CAFFEINATED, F_DRUNK, F_FROZEN, F_GRABBEDBY, F_NAUSEATED, F_PAIN, F_POISONED, F_SLOWACT, F_SLOWMOVE, F_SLOWACTMOVE, F_NONE); for (i = 0; i < nretflags; i++) { if (istransitoryflag(retflag[i])) { killflag(retflag[i]); } } } else { object_t *wep; flag_t *f; int donesomething = B_FALSE; // restore original lifeform shape if (!donesomething) { f = lfhasflag(lf, F_ORIGRACE); if (f) { setrace(lf, f->val[0], B_TRUE); donesomething = B_TRUE; } } // restore to original lifeform size if (!donesomething) { f = hasflag(lf->race->flags, F_SIZE); if (f && (getlfsize(lf) != f->val[0])) { resizelf(lf, f->val[0]); donesomething = B_TRUE; } } // purify your food if (!donesomething) { if (!dospelleffects(god, OT_S_PURIFYFOOD, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE)) { donesomething = B_TRUE; } } // bless your weapon if (!donesomething) { wep = getweapon(player); if (wep && !isblessed(wep)) { blessob(wep); donesomething = B_TRUE; } } // bless 1-3 random obs if (!donesomething) { int nposs = 0, n; object_t *o,*poss[MAXCANDIDATES]; nposs = 0; n = rnd(1,3); // num to bless for (o = player->pack->first ; o ; o = o->next) { if (!isblessed(o) && !hasflag(o->flags, F_NOBLESS)) { poss[nposs++] = o; } } if (nposs < n) n = nposs; for (i = 0; i < n; i++) { o = poss[rnd(0,nposs-1)]; while (isblessed(o)) { o = poss[rnd(0,nposs-1)]; } blessob(o); donesomething = B_TRUE; } } } break; case R_GODDEATH: msg("\"Behold, the power of death!\""); c = NULL; n = OT_NONE; switch (rnd(0,3)) { case 0: n = OT_S_PAIN; break; case 1: n = OT_S_DRAINLIFE; break; case 2: n = OT_S_FLAYFLESH; break; case 3: n = OT_S_HECTASSERVANT; c = getrandomadjcell(player->cell, WE_WALKABLE, B_ALLOWEXPAND); break; } if (n == OT_S_HECTASSERVANT) { if (c) { castspell(god, n, player, NULL, c, NULL, NULL); n = OT_NONE; } else { n = OT_S_DRAINLIFE; } } if (n != OT_NONE) { // kill first lifeform in sight. for (i = 1; i < lf->nlos; i++) { lifeform_t *who; who = lf->los[i]->lf; if (who && !areallies(lf, who)) { if (isundead(who)) { makepeaceful(who, god); } else if (gettr(who) <= 4) { // instakill who->lastdamtype = DT_NECROTIC; setlastdam(who, "Hecta's finger of death."); who->hp = 0; } else { castspell(god, n, who, NULL, who->cell, NULL, NULL); dospelleffects(god, n, 20, who, NULL, who->cell, B_UNCURSED, NULL, B_FALSE); break; } } } } dospelleffects(god, OT_S_ANIMATEDEAD, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE); break; case R_GODFIRE: // restore frozen weapons o = getweapon(player); if (o && (o->material->id == MT_ICE) && (o->material != o->type->material)) { changemat(o, o->type->material->id); } // set all nearby non-cosmetic objects on fire i = 0; for (y = 0; y < player->cell->map->h; y++) { for (x = 0; x < player->cell->map->w; x++) { cell_t *c; c = getcellat(player->cell->map, x, y); if (c && cellhaslos(c, player->cell)) { if (c->lf && (c->lf != player)) { dospelleffects(NULL, OT_S_FLAMEPILLAR, 10, NULL, NULL, c, B_BLESSED, NULL, B_TRUE); } else if (countnoncosmeticobs(c->obpile, B_FALSE, B_FALSE)) { addobfast(c->obpile, OT_FIRESMALL); i++; } } } } if (i) { msg("Nearby objects erupt in flames!"); more(); } break; case R_GODLIFE: if (ispoisoned(lf)) { castspell(god, OT_S_CUREPOISON, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (gethungerlevel(gethungerval(player)) >= H_PECKISH) { dospelleffects(NULL, OT_S_SATEHUNGER, 10, player, NULL, player->cell, B_UNCURSED, NULL, B_FALSE); donesomething = B_TRUE; } if (lf->mp < (getmaxmp(lf)/2)) { gainmp(lf, getmaxmp(lf)/2); donesomething = B_TRUE; } if (lfhasflag(lf, F_INJURY)) { castspell(god, OT_S_HEALINGMAJ, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (lf->hp < lf->maxhp) { gainhp(lf, lf->maxhp); donesomething = B_TRUE; statdirty = B_TRUE; } if (isinbattle(lf, B_TRUE)) { if (plev >= PL_INDIFFERENT) { dospelleffects(NULL, OT_S_HEAVENARM, plev+1, player, NULL, player->cell, B_UNCURSED, NULL, B_FALSE); donesomething = B_TRUE; } } // will bless player's water if nothing else done. if (!donesomething && (plev >= PL_PLEASED)) { object_t *o; for (o = player->pack->first ; o ; o = o->next) { if (o->type->id == OT_POT_WATER) { if (!isblessed(o)) { blessob(o); } else if (!o->blessknown) { dospelleffects(god, OT_S_IDENTIFY, 10, NULL, o, NULL, B_UNCURSED, NULL, B_FALSE); } } } } if (donesomething) { msg("\"Rejoice in life!\""); } break; case R_GODTHIEVES: if (isinbattle(lf, B_TRUE)) { lifeform_t *l; int donesomething = B_FALSE; if (islowhp(lf)) { // teleport away msg("\"Nothing like a quick getaway!\""); dospelleffects(NULL, OT_S_DISPERSAL, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_FALSE); donesomething = B_TRUE; } else { int redo = B_TRUE; while (redo) { redo = B_FALSE; switch (rnd(1,2)) { case 1: // steal from your enemies for (l = lf->cell->map->lf ; l ; l = l->next) { if ((l != lf) && areenemies(l, lf) && cansee(l, lf)) { object_t *wep; // confiscate their weapon wep = getweapon(l); if (wep) { if (!donesomething) { msg("\"I'll take that...\""); donesomething = B_TRUE; } castspell(god, OT_S_CONFISCATE, l, wep, l->cell, NULL, NULL); } } } break; case 2: if (lfhasflag(lf, F_INVISIBLE)) { redo = B_TRUE; } else { // invisibility msg("\"Can't hurt what you can't see...\""); addtempflag(lf->flags, F_INVISIBLE, B_TRUE, NA, NA, NULL, 20); } break; } } } if (!donesomething) { // teleport away msg("\"Nothing like a quick getaway!\""); dospelleffects(NULL, OT_S_DISPERSAL, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_FALSE); } } else { int redo = B_TRUE; object_t *possob[MAXPILEOBS]; int npossob,i,first; object_t *o; // unlock doors first = B_TRUE; for (i = 0; i < player->nlos; i++) { cell_t *c; object_t *o; c = player->los[i]; for (o = c->obpile->first ; o ; o = o->next) { if (killflagsofid(o->flags, F_LOCKED) || killflagsofid(o->flags, F_SECRET)) { if (first) { msg("\"Access granted!\""); first = B_FALSE; } noise(c, NULL, NC_OTHER, SV_TALK, "the click of a lock.", NULL); } } } // uncurse one equipped ob if (uncurse_one_equipped(lf, "\"Curses, schmurses!\"")){ redo = B_FALSE; } while (redo) { redo = B_FALSE; switch (rnd(1,2)) { case 1: msg("\"Allow me to reveal your surroundings...\""); dospelleffects(god, OT_S_MAPPING, 5, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE); dospelleffects(god, OT_S_REVEALHIDDEN, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE); break; case 2: // identify objects npossob = 0; for (o = lf->pack->first ; o ; o = o->next) { if (!isknown(o)) { possob[npossob++] = o; } } if (npossob) { char oldname[BUFLEN],newname[BUFLEN]; o = possob[rnd(0,npossob-1)]; getobname(o,oldname,o->amt); identify(o); getobname(o,newname,o->amt); msg("\"%s %s you are carrying %s %s!\"", (o->amt == 1) ? "That" : "Those", noprefix(oldname), (o->amt == 1) ? "is" : "are", newname); } else { redo = B_TRUE; } break; } // end switch }// end while redo } break; case R_GODMAGIC: if (player->mp <= (getmaxmp(player)/2)) { gainmp(lf, getmaxmp(lf)); msg("\"One's magical reserves have been filled!\""); } else { object_t *toid[MAXPILEOBS],*touncurse[MAXPILEOBS]; int idnum = 0, uncursenum = 0; int done = B_FALSE; // uncurse one equipped ob if (uncurse_one_equipped(lf, "\"One's curse is lifted.\"")){ done = B_TRUE; } if (!done) { // any unid'd scrolls/books? for (o = player->pack->first ; o ; o = o->next) { if ((o->type->obclass->id == OC_SCROLL) || (o->type->obclass->id == OC_BOOK)) { if (!isknown(o)) { toid[idnum++] = o; } if (isequipped(o) && iscursed(o)) { touncurse[uncursenum++] = o; } } } if (idnum) { msg("\"One is granted the favour of knowledge!\""); o = toid[rnd(0,idnum-1)]; dospelleffects(god, OT_S_IDENTIFY, 10, NULL, o, NULL, B_UNCURSED, NULL, B_FALSE); } else if (uncursenum) { msg("\"One is granted the favour of redemption!\""); o = touncurse[rnd(0,uncursenum-1)]; uncurseob(o, NULL); } else { // just regain mana. gainmp(lf, getmaxmp(lf)); msg("\"One's magical reserves have been filled!\""); } } } break; case R_GODMERCY: if (isinbattle(lf, B_TRUE)) { lifeform_t *l; int donesomething = B_FALSE; int preventstoning = B_FALSE; int preventparalysis = B_FALSE; // if something nearby could stone/petrify you, confer temporary immunity. for (l = lf->cell->map->lf ; l ; l = l->next) { if ((l != lf) && areenemies(l, lf) && cansee(l, lf)) { obpile_t *op = NULL; int nweps = 0; object_t *wep[MAXCANDIDATES]; flag_t *damflag[MAXCANDIDATES]; int lastweaponidx; if (l->race->id == R_COCKATRICE) { preventstoning = B_TRUE; } getweapons(l, wep, damflag, &lastweaponidx, &op, &nweps); for (i = 0; i < nweps; i++) { if (hasflagval(wep[i]->flags, F_HITCONFER, F_PARALYZED, NA, NA, NULL)) { preventparalysis = B_TRUE; break; } } if (op) killobpile(op); } } if (preventstoning || preventparalysis) { addtempflag(player->flags, F_DTIMMUNE, DT_PETRIFY, NA, NA, NULL, rnd(40,50)); donesomething = B_TRUE; } // sleep on all enemies if (!donesomething) { for (l = lf->cell->map->lf ; l ; l = l->next) { if ((l != lf) && areenemies(l, lf) && cansee(l, lf)) { castspell(god, OT_S_SLEEP, l, NULL, l->cell, NULL, NULL); donesomething = B_TRUE; } } } } else { if (ispoisoned(lf)) { msg("\"Let thy body be purged of toxins.\""); castspell(god, OT_S_CUREPOISON, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (gethungerlevel(gethungerval(player)) >= H_PECKISH) { msg("\"Let thy stomach be satisfied.\""); castspell(god, OT_S_SATEHUNGER, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (islowhp(lf)) { msg("\"Let thy wounds be healed.\""); castspell(god, OT_S_HEALINGMAJ, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } } // uncurse one equipped ob uncurse_one_equipped(lf, "\"Let thy curse be ended!\""); break; case R_GODNATURE: if (isinbattle(lf, B_TRUE)) { lifeform_t *l; int donesomething = B_FALSE; int redo = B_TRUE; while (redo) { redo = B_FALSE; switch (rnd(1,3)) { case 1: msg("\"My children will bind your enemies!\""); // entangle your enemies for (l = lf->cell->map->lf ; l ; l = l->next) { if ((l != lf) && areenemies(l, lf) && cansee(l, player)) { dospelleffects(NULL, OT_S_ENTANGLE, 10, NULL, NULL, l->cell, B_BLESSED, NULL, B_TRUE); } } break; case 2: // summon plants msg("\"My children will aid you!\""); summonlfs(player, player->cell, R_NONE, RC_PLANT, SZ_ANY, AL_NONE, 5, PERMENANT, B_TRUE); break; case 3: // lightning msg("\"The powers of the sky will smite your foes!\""); for (l = lf->cell->map->lf ; l ; l = l->next) { if ((l != lf) && areenemies(l, lf) && cansee(l, player)) { dospelleffects(god, OT_S_CALLLIGHTNING, 10, NULL, NULL, l->cell, B_BLESSED, NULL, B_TRUE); } } break; } } // fighting a dragon? for (i = 0; i < lf->nlos; i++) { if (lf->los[i]->lf && (getraceclass(lf->los[i]->lf) == RC_DRAGON)) { godappears(god->race->id, NULL); aiattack(god, lf->los[i]->lf, PERMENANT); donesomething = B_TRUE; break; } } } else {// not in battle int donesomething = B_FALSE; flag_t *f; // fix any poison potions dospelleffects(god, OT_S_PURIFYFOOD, 10, lf, NULL, lf->cell, B_UNCURSED, NULL, B_TRUE); if (ispoisoned(lf)) { msg("\"I will cure your poison...\""); castspell(god, OT_S_CUREPOISON, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (!donesomething && (gethungerlevel(gethungerval(player)) >= H_PECKISH)) { msg("\"I will cure your hunger...\""); castspell(god, OT_S_SATEHUNGER, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (!donesomething && islowhp(lf)) { msg("\"I will heal your injuries...\""); castspell(god, OT_S_HEALINGMAJ, player, NULL, player->cell, NULL, NULL); donesomething = B_TRUE; } if (!donesomething) { // out of ammo? object_t *gun; gun = getfirearm(lf); if (gun && !getammo(gun) && !getrandomammo(lf)) { objecttype_t *ot; ot = getrandomammofor(gun); if (ot) { char obtogive[BUFLEN],ammoname[BUFLEN]; char gunname[BUFLEN]; object_t *ammo; f = hasflag(gun->flags, F_AMMOCAPACITY); snprintf(obtogive, BUFLEN, "%d %s of seeking", f->val[0], ot->name); ammo = addob(gun->contents, obtogive); identify(ammo); getobname(ammo, ammoname, ammo->amt); getobname(gun, gunname, 1); msg("%s appear%s in your %s!", ammoname, OBS1(ammo), noprefix(gunname)); donesomething = B_TRUE; } } } if (!donesomething) { // mend one random armour object_t *poss[MAXCANDIDATES]; int nposs = 0; for (o = lf->pack->first ; o ; o = o->next) { if (isequipped(o) && isarmour(o) && isdamaged(o)) { poss[nposs++] = o; } } if (nposs) { o = poss[rnd(0,nposs-1)]; dospelleffects(lf, OT_S_MENDING, 10, NULL, o, NULL, B_BLESSED, NULL, B_FALSE); donesomething = B_TRUE; } } if (!donesomething) { // bless armour object_t *poss[MAXCANDIDATES]; int nposs = 0; for (o = lf->pack->first ; o ; o = o->next) { if (isequipped(o) && isarmour(o) && (o->blessed == B_UNCURSED)) { poss[nposs++] = o; } } if (nposs) { o = poss[rnd(0,nposs-1)]; msg("\"Nature's power will protect you...\""); blessob(o); } donesomething = B_TRUE; } } break; default: break; } // new god effects if (newgod) { switch (god->race->id) { case R_GODTHIEVES: makelearnable(lf, SK_THIEVERY); makelearnable(lf, SK_LOCKPICKING); break; default: break; } } if (god->race->id == R_GODNATURE) { addob(lf->cell->obpile, "flower"); if (haslos(player, lf->cell)) { msg("A beautiful flower grows from the ground."); } } if (!godgiftmaybe(god->race->id, B_FALSE)) { // if you didn't get a gift, lower piety for this god modpiety(god->race->id, -PIETYPRAYLOSS); } // lower piety for other related gods for (i = 0; i < ngodlfs; i++) { if (godlf[i] != god) { modpiety(godlf[i]->race->id, -25); } } return B_FALSE; } void setpiety(enum RACE rid, int amt) { lifeform_t *god; flag_t *f; god = findgod(rid); f = lfhasflag(god, F_PIETY); if (!f) return; f->val[0] = amt; limit(&f->val[0], PIETY_MIN, PIETY_MAX); } // uncurse one equipped ob // returns true if we do somethign int uncurse_one_equipped(lifeform_t *lf, char *text) { object_t *possob[MAXPILEOBS],*o; int npossob; npossob = 0; for (o = lf->pack->first ; o ; o = o->next) { if (iscursed(o) && isequipped(o)) { possob[npossob++] = o; } } if (npossob) { o = possob[rnd(0,npossob-1)]; if (text) { msg(text); } blessob(o); return B_TRUE; } return B_FALSE; }