priests who attend their temples, and they may grant various favors to
those who do so. But beware! To be young and frugal is better than to
be old and miserly.
------ ELBERETH
+-----
The name of Elbereth may strike fear into the hearts of thine enemies, if
thou dost write it upon the ground at thy feet. If thou maintainest the
utmost calm, thy safety will be aided greatly, but beware lest thy clumsy
#define SEDUCE /* Succubi/incubi seduction, by KAA, suggested by IM */
#define STEED /* Riding steeds */
#define TOURIST /* Tourist players with cameras and Hawaiian shirts */
-/* difficulty */
-#define ELBERETH /* Engraving the E-word repels monsters */
/* I/O */
#define REDO /* support for redoing last command - DGK */
#if !defined(MAC)
E const char *FDECL(surface, (int,int));
E const char *FDECL(ceiling, (int,int));
E struct engr *FDECL(engr_at, (XCHAR_P,XCHAR_P));
-#ifdef ELBERETH
E int FDECL(sengr_at, (const char *,XCHAR_P,XCHAR_P));
-#endif
E void FDECL(u_wipe_engr, (int));
E void FDECL(wipe_engr_at, (XCHAR_P,XCHAR_P,XCHAR_P));
E void FDECL(read_engr_at, (int,int));
Bitfield(invoked,1); /* invoked Gate to the Sanctum level */
Bitfield(gehennom_entered,1); /* entered Gehennom via Valley */
-#ifdef ELBERETH
Bitfield(uhand_of_elbereth,2); /* became Hand of Elbereth */
-#endif
Bitfield(udemigod,1); /* killed the wiz */
Bitfield(uvibrated,1); /* stepped on "vibrating square" */
Bitfield(ascended,1); /* has offered the Amulet */
putstr(en_win, 0, "");
putstr(en_win, 0, final ? "Final Attributes:" : "Current Attributes:");
-#ifdef ELBERETH
if (u.uevent.uhand_of_elbereth) {
static const char * const hofe_titles[3] = {
"the Hand of Elbereth",
};
you_are(hofe_titles[u.uevent.uhand_of_elbereth - 1],"");
}
-#endif
/* note: piousness 20 matches MIN_QUEST_ALIGN (quest.h) */
if (u.ualign.record >= 20) you_are("piously aligned","");
return((struct engr *) 0);
}
-#ifdef ELBERETH
/* Decide whether a particular string is engraved at a specified
* location; a case-insensitive substring match used.
* Ignore headstones, in case the player names herself "Elbereth".
return (ep && ep->engr_type != HEADSTONE &&
ep->engr_time <= moves && strstri(ep->engr_txt, s) != 0);
}
-#endif /* ELBERETH */
void
u_wipe_engr(cnt)
return(FALSE);
return (boolean)(sobj_at(SCR_SCARE_MONSTER, x, y) ||
-#ifdef ELBERETH
sengr_at("Elbereth", x, y) ||
-#endif
(IS_ALTAR(levl[x][y].typ) &&
(mtmp->data->mlet == S_VAMPIRE ||
is_vampshifter(mtmp))));
STATIC_DCL void FDECL(fix_worst_trouble,(int));
STATIC_DCL void FDECL(angrygods,(ALIGNTYP_P));
STATIC_DCL void FDECL(at_your_feet, (const char *));
-#ifdef ELBERETH
STATIC_DCL void NDECL(gcrownu);
-#endif /*ELBERETH*/
STATIC_DCL void FDECL(pleased,(ALIGNTYP_P));
STATIC_DCL void FDECL(godvoice,(ALIGNTYP_P,const char*));
STATIC_DCL void FDECL(god_zaps_you,(ALIGNTYP_P));
}
}
-#ifdef ELBERETH
STATIC_OVL void
gcrownu()
{
add_weapon_skill(1);
return;
}
-#endif /*ELBERETH*/
STATIC_OVL void
pleased(g_align)
}
case 7:
case 8:
-#ifdef ELBERETH
if (u.ualign.record >= PIOUS && !u.uevent.uhand_of_elbereth) {
gcrownu();
break;
} /* else FALLTHRU */
-#endif /*ELBERETH*/
case 6: {
struct obj *otmp;
int sp_no, trycnt = u.ulevel + 1;
u.ublesscnt = rnz(350);
kick_on_butt = u.uevent.udemigod ? 1 : 0;
-#ifdef ELBERETH
if (u.uevent.uhand_of_elbereth) kick_on_butt++;
-#endif
if (kick_on_butt) u.ublesscnt += kick_on_butt * rnz(1000);
return;
u.ublessed = 0; /* not worthy yet */
u.ugangr = 0; /* gods not angry */
u.ugifts = 0; /* no divine gifts bestowed */
-# ifdef ELBERETH
u.uevent.uhand_of_elbereth = 0;
-# endif
u.uevent.uheard_tune = 0;
u.uevent.uopened_dbridge = 0;
u.uevent.udemigod = 0; /* not a demi-god yet... */
|| otyp == nocreate2
|| otyp == nocreate3
|| otyp == nocreate4
-#ifdef ELBERETH
|| otyp == RIN_LEVITATION
-#endif
/* 'useless' items */
|| otyp == POT_HALLUCINATION
|| otyp == POT_ACID
*/
#define IGNORED_FEATURES ( 0L \
| (1L << 12) /* GOLDOBJ */ \
- | (1L << 20) /* EXP_ON_BOTL */ \
- | (1L << 21) /* SCORE_ON_BOTL */ \
+ | (1L << 19) /* EXP_ON_BOTL */ \
+ | (1L << 20) /* SCORE_ON_BOTL */ \
| (1L << 27) /* ZEROCOMP */ \
| (1L << 28) /* RLECOMP */ \
)
#ifdef INSURANCE
| (1L << 18)
#endif
-#ifdef ELBERETH
- | (1L << 19)
-#endif
#ifdef EXP_ON_BOTL
- | (1L << 20)
+ | (1L << 19)
#endif
#ifdef SCORE_ON_BOTL
- | (1L << 21)
+ | (1L << 20)
#endif
/* data format (27..31)
* External compression methods such as COMPRESS and ZLIB_COMP
#ifdef DUNGEON_OVERVIEW
"dungeon map overview patch",
#endif
-#ifdef ELBERETH
- "Elbereth",
-#endif
#ifdef EXP_ON_BOTL
"experience points on status line",
#endif
skip = FALSE;
#ifndef SINKS
if (!strcmp(tag, "SINKS")) skip = TRUE;
-#endif
-#ifndef ELBERETH
- if (!strcmp(tag, "ELBERETH")) skip = TRUE;
#endif
} else if (skip && !strncmp(line, "-----", 5))
skip = FALSE;