int
dosit()
{
static const char sit_message[] = "sit on the %s.";
register struct trap *trap;
register int typ = levl[u.ux][u.uy].typ;
#ifdef STEED
if (u.usteed) {
You("are already sitting on %s.", mon_nam(u.usteed));
return (0);
}
#endif
if(!can_reach_floor()) {
if (Levitation)
You("tumble in place.");
else
You("are sitting on air.");
return 0;
} else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
goto in_water;
}
if(OBJ_AT(u.ux, u.uy)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
You("sit on %s.", the(xname(obj)));
if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
pline("It's not very comfortable...");
} else if ((trap = t_at(u.ux, u.uy)) != 0 ||
(u.utrap && (u.utraptype >= TT_LAVA))) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if(u.utraptype == TT_BEARTRAP) {
You_cant("sit down with your %s in the bear trap.", body_part(FOOT));
u.utrap++;
} else if(u.utraptype == TT_PIT) {
if(trap->ttyp == SPIKED_PIT) {
You("sit down on a spike. Ouch!");
losehp(1, "sitting on an iron spike", KILLED_BY);
exercise(A_STR, FALSE);
} else
You("sit down in the pit.");
u.utrap += rn2(5);
} else if(u.utraptype == TT_WEB) {
You("sit in the spider web and get entangled further!");
u.utrap += rn1(10, 5);
} else if(u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
You("sit in the lava!");
u.utrap += rnd(4);
losehp(d(2,10), "sitting in lava", KILLED_BY);
} else if(u.utraptype == TT_INFLOOR) {
You_cant("maneuver to sit!");
u.utrap++;
}
} else {
You("sit down.");
dotrap(trap, 0);
}
} else if(Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
There("are no cushions floating nearby.");
else
You("sit down on the muddy bottom.");
} else if(is_pool(u.ux, u.uy)) {
in_water:
You("sit in the water.");
if (!rn2(10) && uarm)
(void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst);
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
(void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst);
#ifdef SINKS
} else if(IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside");
#endif
} else if(IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if(IS_GRAVE(typ)) {
You(sit_message, defsyms[S_grave].explanation);
} else if(typ == STAIRS) {
You(sit_message, "stairs");
} else if(typ == LADDER) {
You(sit_message, "ladder");
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
You(sit_message, "lava");
burn_away_slime();
if (likes_lava(youmonst.data)) {
pline_The("lava feels warm.");
return 1;
}
pline_The("lava burns you!");
losehp(d((Fire_resistance ? 2 : 10), 10),
"sitting on lava", KILLED_BY);
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance) pline_The("ice feels cold.");
} else if (typ == DRAWBRIDGE_DOWN) {
You(sit_message, "drawbridge");
} else if(IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4,3), FALSE);
losehp(rnd(10), "cursed throne", KILLED_BY_AN);
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
pline("A%s electric shock shoots through your body!",
(Shock_resistance) ? "n" : " massive");
losehp(Shock_resistance ? rnd(6) : rnd(30),
"electric chair", KILLED_BY_AN);
exercise(A_CON, FALSE);
break;
case 4:
You_feel("much, much better!");
if (Upolyd) {
if (u.mh >= (u.mhmax - 5)) u.mhmax += 4;
u.mh = u.mhmax;
}
if(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L, (char *) 0, FALSE, SICK_ALL);
heal_legs();
flags.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if(u.uluck + rn2(5) < 0) {
You_feel("your luck is changing.");
change_luck(1);
} else makewish();
break;
case 7:
{
register int cnt = rnd(10);
pline("A voice echoes:");
verbalize("Thy audience hath been summoned, %s!",
flags.female ? "Dame" : "Sire");
while(cnt--)
(void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
break;
}
case 8:
pline("A voice echoes:");
verbalize("By thy Imperious order, %s...",
flags.female ? "Dame" : "Sire");
do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
break;
case 9:
pline("A voice echoes:");
verbalize("A curse upon thee for sitting upon this most holy throne!");
if (Luck > 0) {
make_blinded(Blinded + rn1(100,250),TRUE);
} else rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
pline(
"A terrible drone fills your head!");
make_confused(HConfusion + rnd(30),
FALSE);
} else {
pline("An image forms in your mind.");
do_mapping();
}
} else {
Your("vision becomes clear.");
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
You_feel("threatened.");
aggravate();
} else {
You_feel("a wrenching sensation.");
tele(); /* teleport him */
}
break;
case 12:
You("are granted an insight!");
if (invent) {
/* rn2(5) agrees w/seffects() */
identify_pack(rn2(5));
}
break;
case 13:
Your("mind turns into a pretzel!");
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else {
if (is_prince(youmonst.data))
You_feel("very comfortable here.");
else
You_feel("somehow out of place...");
}
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
levl[u.ux][u.uy].typ = ROOM;
pline_The("throne vanishes in a puff of logic.");
newsym(u.ux,u.uy);
}
} else if (lays_eggs(youmonst.data)) {
struct obj *uegg;
if (!flags.female) {
pline("Males can't lay eggs!");
return 0;
}
if (u.uhunger < (int)objects[EGG].oc_nutrition) {
You("don't have enough energy to lay an egg.");
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1;
uegg->owt = weight(uegg);
uegg->corpsenm = egg_type_from_parent(u.umonnum, FALSE);
uegg->known = uegg->dknown = 1;
attach_egg_hatch_timeout(uegg);
You("lay an egg.");
dropy(uegg);
stackobj(uegg);
morehungry((int)objects[EGG].oc_nutrition);
} else if (u.uswallow)
There("are no seats in here!");
else
pline("Having fun sitting on the %s?", surface(u.ux,u.uy));
return(1);
}
int
dosit()
{
static const char sit_message[] = "VERB_SITZEN auf OBJECT KASUS_DATIV ARTIKEL_BESTIMMTER %s."; /* EN static const char sit_message[] = "sit on the %s."; */
register struct trap *trap;
register int typ = levl[u.ux][u.uy].typ;
#ifdef STEED
if (u.usteed) {
You("VERB_SITZEN bereits auf KASUS_DATIV %s.", mon_nam(u.usteed)); /* EN You("are already sitting on %s.", mon_nam(u.usteed)); */
return (0);
}
#endif
if(!can_reach_floor()) {
if (Levitation)
You("VERB_SCHLAGEN Purzelbäume."); /* EN You("tumble in place."); */
else
You("VERB_SITZEN auf Luft."); /* EN You("are sitting on air."); */
return 0;
} else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
goto in_water;
}
if(OBJ_AT(u.ux, u.uy)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
You("VERB_SITZEN auf OBJECT KASUS_DATIV %s.", the(xname(obj))); /* EN You("sit on %s.", the(xname(obj))); */
if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
pline("Das ist nicht sehr bequem ..."); /* EN pline("It's not very comfortable..."); */
} else if ((trap = t_at(u.ux, u.uy)) != 0 ||
(u.utrap && (u.utraptype >= TT_LAVA))) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if(u.utraptype == TT_BEARTRAP) {
pline("Mit KASUS_DATIV PRONOMEN_POSSESSIV %s in KASUS_DATIV ARTIKEL_BESTIMMTER NOUN_BEARTRAP SUBJECT_IM_SATZ VERB_KOENNEN PRONOMEN_PERSONAL OBJECT PRONOMEN_PERSONAL nicht hinsetzen.", body_part(FOOT)); /* EN You_cant("sit down with your %s in the bear trap.", body_part(FOOT)); */
u.utrap++;
} else if(u.utraptype == TT_PIT) {
if(trap->ttyp == SPIKED_PIT) {
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL auf einen Stachel. Aua!"); /* EN You("sit down on a spike. Ouch!"); */
losehp(1, "durch Sitzen auf einen Eisenstachel", KILLED_WITHOUT_PREPOSITION); /* EN losehp(1, "sitting on an iron spike", KILLED_BY); */
exercise(A_STR, FALSE);
} else
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL in die Grube."); /* EN You("sit down in the pit."); */
u.utrap += rn2(5);
} else if(u.utraptype == TT_WEB) {
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL ins Spinnenetz und VERB_VERHEDDERN OBJECT PRONOMEN_PERSONAL noch mehr!"); /* EN You("sit in the spider web and get entangled further!"); */
u.utrap += rn1(10, 5);
} else if(u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL in die Lava!"); /* EN You("sit in the lava!"); */
u.utrap += rnd(4);
losehp(d(2,10), "durch Sitzen in Lava", KILLED_WITHOUT_PREPOSITION); /* EN losehp(d(2,10), "sitting in lava", KILLED_BY); */
} else if(u.utraptype == TT_INFLOOR) {
You("VERB_CAN OBJECT PRONOMEN_PERSONAL nicht richtig hinsetzen!"); /* EN You_cant("maneuver to sit!"); */
u.utrap++;
}
} else {
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL hin."); /* EN You("sit down."); */
dotrap(trap, 0);
}
} else if(Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
pline("Hier gibt es keine Sitzkissen."); /* EN There("are no cushions floating nearby."); */
else
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL auf den schlammigen Untergrund."); /* EN You("sit down on the muddy bottom."); */
} else if(is_pool(u.ux, u.uy)) {
in_water:
You("VERB_SITZEN im Wasser."); /* EN You("sit in the water."); */
if (!rn2(10) && uarm)
(void) rust_dmg(uarm, "NOUN_ARMOR", 1, TRUE, &youmonst); /* EN (void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst); */
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
(void) rust_dmg(uarm, "NOUN_ARMOR", 1, TRUE, &youmonst); /* EN (void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst); */
#ifdef SINKS
} else if(IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
Your("%s VERB_WERDEN nass.", humanoid(youmonst.data) ? "NOUN_HINTERTEIL" : "NOUN_UNTERSEITE"); /* EN Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside"); */
#endif
} else if(IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if(IS_GRAVE(typ)) {
You(sit_message, defsyms[S_grave].explanation);
} else if(typ == STAIRS) {
You(sit_message, "NOUN_STUFEs"); /* EN You(sit_message, "stairs"); */
} else if(typ == LADDER) {
You(sit_message, "NOUN_LADDER"); /* EN You(sit_message, "ladder"); */
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
You(sit_message, "NOUN_LAVA"); /* EN You(sit_message, "lava"); */
burn_away_slime();
if (likes_lava(youmonst.data)) {
pline_The("NOUN_LAVA fühlt sich warm an."); /* EN pline_The("lava feels warm."); */
return 1;
}
pline_The("NOUN_LAVA VERB_VERBRENNEN OBJECT PRONOMEN_PERSONAL!"); /* EN pline_The("lava burns you!"); */
losehp(d((Fire_resistance ? 2 : 10), 10),
"durch Sitzen auf Lava", KILLED_WITHOUT_PREPOSITION); /* EN "sitting on lava", KILLED_BY); */
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance) pline_The("NOUN_ICE fühlt sich kalt an."); /* EN if (!Cold_resistance) pline_The("ice feels cold."); */
} else if (typ == DRAWBRIDGE_DOWN) {
You(sit_message, "NOUN_DRAWBRIDGE"); /* EN You(sit_message, "drawbridge"); */
} else if(IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4,3), FALSE);
losehp(rnd(10), "ADJEKTIV_CURSED NOUN_THRON", KILLED_BY_AN); /* EN losehp(rnd(10), "cursed throne", KILLED_BY_AN); */
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
pline("SUBJECT ARTIKEL_UNBESTIMMTER%s elektrischer NOUN_SCHLAG VERB_SCHIESSEN OBJECT durch PRONOMEN_POSSESSIV NOUN_BODY!", /* EN pline("A%s electric shock shoots through your body!", */
(Shock_resistance) ? "" : " massiver"); /* EN (Shock_resistance) ? "n" : " massive"); */
losehp(Shock_resistance ? rnd(6) : rnd(30),
"ADJEKTIV_ELEKTRISCH NOUN_STUHL", KILLED_BY_AN); /* EN "electric chair", KILLED_BY_AN); */
exercise(A_CON, FALSE);
break;
case 4:
Du_fuehlst_dich("viel, viel besser!"); /* EN You_feel("much, much better!"); */
if (Upolyd) {
if (u.mh >= (u.mhmax - 5)) u.mhmax += 4;
u.mh = u.mhmax;
}
if(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L, (char *) 0, FALSE, SICK_ALL);
heal_legs();
flags.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if(u.uluck + rn2(5) < 0) {
You("VERB_FUEHLEN, NEUER_SATZ SUBJECT_IM_SATZ wie PRONOMEN_POSSESSIV NOUN_LUCK sich ändert."); /* EN You_feel("your luck is changing."); */
change_luck(1);
} else makewish();
break;
case 7:
{
register int cnt = rnd(10);
pline("Eine Stimme ertönt:"); /* EN pline("A voice echoes:"); */
verbalize("Euer Auditorium erwartet Euch bereits, %s!", /* EN verbalize("Thy audience hath been summoned, %s!", */
flags.female ? "Gebieterin" : "Gebieter"); /* EN flags.female ? "Dame" : "Sire"); */
while(cnt--)
(void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
break;
}
case 8:
pline("Eine Stimme ertönt:"); /* EN pline("A voice echoes:"); */
verbalize("Wie es Euch beliebt, %s...", /* EN verbalize("By thy Imperious order, %s...", */
flags.female ? "Gebieterin" : "Gebieter"); /* EN flags.female ? "Dame" : "Sire"); */
do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
break;
case 9:
pline("Eine Stimme ertönt:"); /* EN pline("A voice echoes:"); */
verbalize("SATZBEGINN MODIFIER_VERB_IMPERATIV VERB_SEIN verflucht dafür, NEUER_SATZ dass SUBJECT_IM_SATZ PRONOMEN_PERSONAL OBJECT PRONOMEN_PERSONAL auf diesem allerheiligsten Thron niedergelassen VERB_HABEN!"); /* EN verbalize("A curse upon thee for sitting upon this most holy throne!"); */
if (Luck > 0) {
make_blinded(Blinded + rn1(100,250),TRUE);
} else rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
pline(
"Ein schreckliches Dröhnen erfüllt KASUS_AKKUSATIV PRONOMEN_POSSESSIV NOUN_KOPF!"); /* EN "A terrible drone fills your head!"); */
make_confused(HConfusion + rnd(30),
FALSE);
} else {
pline("Ein Bild formt sich in KASUS_DATIV PRONOMEN_POSSESSIV NOUN_GEDANKEs."); /* EN pline("An image forms in your mind."); */
do_mapping();
}
} else {
Your("NOUN_BLICK klärt sich."); /* EN Your("vision becomes clear."); */
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
Du_fuehlst_dich("bedroht."); /* EN You_feel("threatened."); */
aggravate();
} else {
Du_spuerst("einen reißenden Schmerz."); /* EN You_feel("a wrenching sensation."); */
tele(); /* teleport him */
}
break;
case 12:
Dir_wird("eine Einsicht gewährt!"); /* EN You("are granted an insight!"); */
if (invent) {
/* rn2(5) agrees w/seffects() */
identify_pack(rn2(5));
}
break;
case 13:
Your("NOUN_VERSTAND verknotet sich zu einer Bretzel!"); /* EN Your("mind turns into a pretzel!"); */
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else {
if (is_prince(youmonst.data))
Du_fuehlst_dich("hier sehr wohl."); /* EN You_feel("very comfortable here."); */
else
Du_fuehlst_dich("irgendwie fehl am Platz ..."); /* EN You_feel("somehow out of place..."); */
}
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
levl[u.ux][u.uy].typ = ROOM;
pline_The("NOUN_THRON VERB_AUFLOESEN sich in ein Logikwölkchen SATZKLAMMER."); /* EN pline_The("throne vanishes in a puff of logic."); */
newsym(u.ux,u.uy);
}
} else if (lays_eggs(youmonst.data)) {
struct obj *uegg;
if (!flags.female) {
pline("Männchen können keine Eier legen!"); /* EN pline("Males can't lay eggs!"); */
return 0;
}
if (u.uhunger < (int)objects[EGG].oc_nutrition) {
You("VERB_HAVE nicht genug Energie um ein Ei zu legen."); /* EN You("don't have enough energy to lay an egg."); */
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1;
uegg->owt = weight(uegg);
uegg->corpsenm = egg_type_from_parent(u.umonnum, FALSE);
uegg->known = uegg->dknown = 1;
attach_egg_hatch_timeout(uegg);
You("VERB_LEGEN ein Ei."); /* EN You("lay an egg."); */
dropy(uegg);
stackobj(uegg);
morehungry((int)objects[EGG].oc_nutrition);
} else if (u.uswallow)
pline("Hier gibt es keine Sitzmöglichkeiten!"); /* EN There("are no seats in here!"); */
else
pline("Spaß daran, %s zu sitzen?", auf_dem_Boden(u.ux,u.uy)); /* EN pline("Having fun sitting on the %s?", surface(u.ux,u.uy)); */
return(1);
}
/*
* Do an effect, given an object.
* Boost is the extent to which skill surpasses difficulty, used as % boost. It
* ranges from 0 to 138.
*/
bool effect_do(effect_type effect, bool *ident, bool aware, int dir, int beam,
int boost)
{
int py = p_ptr->py;
int px = p_ptr->px;
int dam, chance, dur;
if (effect < 1 || effect > EF_MAX)
{
msg("Bad effect passed to do_effect(). Please report this bug.");
return FALSE;
}
switch (effect)
{
case EF_POISON:
{
inc_timed(TMD_POISONED, damroll(2, 7) + 10, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_BLIND:
{
inc_timed(TMD_BLIND, damroll(4, 25) + 75, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_SCARE:
{
inc_timed(TMD_AFRAID, randint0(10) + 10, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_CONFUSE:
{
inc_timed(TMD_CONFUSED, damroll(4, 5) + 10, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_HALLUC:
{
inc_timed(TMD_IMAGE, randint0(250) + 250, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_PARALYZE:
{
inc_timed(TMD_PARALYZED, randint0(5) + 5, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_SLOW:
{
if (inc_timed(TMD_SLOW, randint1(25) + 15, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_CURE_POISON:
{
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_BLINDNESS:
{
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_PARANOIA:
{
if (clear_timed(TMD_AFRAID, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_CONFUSION:
{
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_MIND:
{
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_AFRAID, TRUE)) *ident = TRUE;
if (clear_timed(TMD_IMAGE, TRUE)) *ident = TRUE;
if (!of_has(p_ptr->state.flags, OF_RES_CONFU) &&
inc_timed(TMD_OPP_CONF, damroll(4, 10), TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_CURE_BODY:
{
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_LIGHT:
{
if (hp_player(20)) *ident = TRUE;
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (dec_timed(TMD_CUT, 20, TRUE)) *ident = TRUE;
if (dec_timed(TMD_CONFUSED, 20, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_SERIOUS:
{
if (hp_player(40)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_CRITICAL:
{
if (hp_player(60)) *ident = TRUE;
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
if (clear_timed(TMD_AMNESIA, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_FULL:
{
int amt = (p_ptr->mhp * 35) / 100;
if (amt < 300) amt = 300;
if (hp_player(amt)) *ident = TRUE;
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
if (clear_timed(TMD_AMNESIA, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_FULL2:
{
if (hp_player(1200)) *ident = TRUE;
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
if (clear_timed(TMD_AMNESIA, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_CURE_TEMP:
{
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CONFUSED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_HEAL1:
{
if (hp_player(500)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_HEAL2:
{
if (hp_player(1000)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_HEAL3:
{
if (hp_player(500)) *ident = TRUE;
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_GAIN_EXP:
{
if (p_ptr->exp < PY_MAX_EXP)
{
msg("You feel more experienced.");
player_exp_gain(p_ptr, 100000L);
*ident = TRUE;
}
return TRUE;
}
case EF_LOSE_EXP:
{
if (!check_state(OF_HOLD_LIFE, p_ptr->state.flags) && (p_ptr->exp > 0))
{
msg("You feel your memories fade.");
player_exp_lose(p_ptr, p_ptr->exp / 4, FALSE);
*ident = TRUE;
}
*ident = TRUE;
wieldeds_notice_flag(OF_HOLD_LIFE);
return TRUE;
}
case EF_RESTORE_EXP:
{
if (restore_level()) *ident = TRUE;
return TRUE;
}
case EF_RESTORE_MANA:
{
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
msg("Your feel your head clear.");
p_ptr->redraw |= (PR_MANA);
*ident = TRUE;
}
return TRUE;
}
case EF_GAIN_STR:
case EF_GAIN_INT:
case EF_GAIN_WIS:
case EF_GAIN_DEX:
case EF_GAIN_CON:
case EF_GAIN_CHR:
{
int stat = effect - EF_GAIN_STR;
if (do_inc_stat(stat)) *ident = TRUE;
return TRUE;
}
case EF_GAIN_ALL:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
if (do_inc_stat(A_INT)) *ident = TRUE;
if (do_inc_stat(A_WIS)) *ident = TRUE;
if (do_inc_stat(A_DEX)) *ident = TRUE;
if (do_inc_stat(A_CON)) *ident = TRUE;
if (do_inc_stat(A_CHR)) *ident = TRUE;
return TRUE;
}
case EF_BRAWN:
{
/* Pick a random stat to decrease other than strength */
int stat = randint0(A_MAX-1) + 1;
if (do_dec_stat(stat, TRUE))
{
do_inc_stat(A_STR);
*ident = TRUE;
}
return TRUE;
}
case EF_INTELLECT:
{
/* Pick a random stat to decrease other than intelligence */
int stat = randint0(A_MAX-1);
if (stat >= A_INT) stat++;
if (do_dec_stat(stat, TRUE))
{
do_inc_stat(A_INT);
*ident = TRUE;
}
return TRUE;
}
case EF_CONTEMPLATION:
{
/* Pick a random stat to decrease other than wisdom */
int stat = randint0(A_MAX-1);
if (stat >= A_WIS) stat++;
if (do_dec_stat(stat, TRUE))
{
do_inc_stat(A_WIS);
*ident = TRUE;
}
return TRUE;
}
case EF_TOUGHNESS:
{
/* Pick a random stat to decrease other than constitution */
int stat = randint0(A_MAX-1);
if (stat >= A_CON) stat++;
if (do_dec_stat(stat, TRUE))
{
do_inc_stat(A_CON);
*ident = TRUE;
}
return TRUE;
}
case EF_NIMBLENESS:
{
/* Pick a random stat to decrease other than dexterity */
int stat = randint0(A_MAX-1);
if (stat >= A_DEX) stat++;
if (do_dec_stat(stat, TRUE))
{
do_inc_stat(A_DEX);
*ident = TRUE;
}
return TRUE;
}
case EF_PLEASING:
{
/* Pick a random stat to decrease other than charisma */
int stat = randint0(A_MAX-1);
if (do_dec_stat(stat, TRUE))
{
do_inc_stat(A_CHR);
*ident = TRUE;
}
return TRUE;
}
case EF_LOSE_STR:
case EF_LOSE_INT:
case EF_LOSE_WIS:
case EF_LOSE_DEX:
case EF_LOSE_CON:
case EF_LOSE_CHR:
{
int stat = effect - EF_LOSE_STR;
take_hit(damroll(5, 5), "stat drain");
(void)do_dec_stat(stat, FALSE);
*ident = TRUE;
return TRUE;
}
case EF_LOSE_CON2:
{
take_hit(damroll(10, 10), "poisonous food");
(void)do_dec_stat(A_CON, FALSE);
*ident = TRUE;
return TRUE;
}
case EF_RESTORE_STR:
case EF_RESTORE_INT:
case EF_RESTORE_WIS:
case EF_RESTORE_DEX:
case EF_RESTORE_CON:
case EF_RESTORE_CHR:
{
int stat = effect - EF_RESTORE_STR;
if (do_res_stat(stat)) *ident = TRUE;
return TRUE;
}
case EF_CURE_NONORLYBIG:
{
msg("You feel life flow through your body!");
restore_level();
(void)clear_timed(TMD_POISONED, TRUE);
(void)clear_timed(TMD_BLIND, TRUE);
(void)clear_timed(TMD_CONFUSED, TRUE);
(void)clear_timed(TMD_IMAGE, TRUE);
(void)clear_timed(TMD_STUN, TRUE);
(void)clear_timed(TMD_CUT, TRUE);
(void)clear_timed(TMD_AMNESIA, TRUE);
if (do_res_stat(A_STR)) *ident = TRUE;
if (do_res_stat(A_INT)) *ident = TRUE;
if (do_res_stat(A_WIS)) *ident = TRUE;
if (do_res_stat(A_DEX)) *ident = TRUE;
if (do_res_stat(A_CON)) *ident = TRUE;
if (do_res_stat(A_CHR)) *ident = TRUE;
/* Recalculate max. hitpoints */
update_stuff();
hp_player(5000);
*ident = TRUE;
return TRUE;
}
case EF_RESTORE_ALL:
{
/* Life, above, also gives these effects */
if (do_res_stat(A_STR)) *ident = TRUE;
if (do_res_stat(A_INT)) *ident = TRUE;
if (do_res_stat(A_WIS)) *ident = TRUE;
if (do_res_stat(A_DEX)) *ident = TRUE;
if (do_res_stat(A_CON)) *ident = TRUE;
if (do_res_stat(A_CHR)) *ident = TRUE;
return TRUE;
}
case EF_RESTORE_ST_LEV:
{
if (restore_level()) *ident = TRUE;
if (do_res_stat(A_STR)) *ident = TRUE;
if (do_res_stat(A_INT)) *ident = TRUE;
if (do_res_stat(A_WIS)) *ident = TRUE;
if (do_res_stat(A_DEX)) *ident = TRUE;
if (do_res_stat(A_CON)) *ident = TRUE;
if (do_res_stat(A_CHR)) *ident = TRUE;
return TRUE;
}
case EF_TMD_INFRA:
{
if (inc_timed(TMD_SINFRA, 100 + damroll(4, 25), TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_TMD_SINVIS:
{
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (inc_timed(TMD_SINVIS, 12 + damroll(2, 6), TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_TMD_ESP:
{
if (clear_timed(TMD_BLIND, TRUE)) *ident = TRUE;
if (inc_timed(TMD_TELEPATHY, 12 + damroll(6, 6), TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_ENLIGHTENMENT:
{
msg("An image of your surroundings forms in your mind...");
wiz_light();
*ident = TRUE;
return TRUE;
}
case EF_ENLIGHTENMENT2:
{
msg("You begin to feel more enlightened...");
message_flush();
wiz_light();
(void)do_inc_stat(A_INT);
(void)do_inc_stat(A_WIS);
(void)detect_traps(TRUE);
(void)detect_doorstairs(TRUE);
(void)detect_treasure(TRUE);
identify_pack();
*ident = TRUE;
return TRUE;
}
case EF_HERO:
{
dur = randint1(25) + 25;
if (hp_player(10)) *ident = TRUE;
if (clear_timed(TMD_AFRAID, TRUE)) *ident = TRUE;
if (inc_timed(TMD_BOLD, dur, TRUE, TRUE)) *ident = TRUE;
if (inc_timed(TMD_HERO, dur, TRUE, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_SHERO:
{
dur = randint1(25) + 25;
if (hp_player(30)) *ident = TRUE;
if (clear_timed(TMD_AFRAID, TRUE)) *ident = TRUE;
if (inc_timed(TMD_BOLD, dur, TRUE, TRUE)) *ident = TRUE;
if (inc_timed(TMD_SHERO, dur, TRUE, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_RESIST_ACID:
{
if (inc_timed(TMD_OPP_ACID, randint1(10) + 10, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_RESIST_ELEC:
{
if (inc_timed(TMD_OPP_ELEC, randint1(10) + 10, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_RESIST_FIRE:
{
if (inc_timed(TMD_OPP_FIRE, randint1(10) + 10, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_RESIST_COLD:
{
if (inc_timed(TMD_OPP_COLD, randint1(10) + 10, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_RESIST_POIS:
{
if (inc_timed(TMD_OPP_POIS, randint1(10) + 10, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_RESIST_ALL:
{
if (inc_timed(TMD_OPP_ACID, randint1(20) + 20, TRUE, TRUE))
*ident = TRUE;
if (inc_timed(TMD_OPP_ELEC, randint1(20) + 20, TRUE, TRUE))
*ident = TRUE;
if (inc_timed(TMD_OPP_FIRE, randint1(20) + 20, TRUE, TRUE))
*ident = TRUE;
if (inc_timed(TMD_OPP_COLD, randint1(20) + 20, TRUE, TRUE))
*ident = TRUE;
if (inc_timed(TMD_OPP_POIS, randint1(20) + 20, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_DETECT_TREASURE:
{
if (detect_treasure(aware)) *ident = TRUE;
return TRUE;
}
case EF_DETECT_TRAP:
{
if (detect_traps(aware)) *ident = TRUE;
return TRUE;
}
case EF_DETECT_DOORSTAIR:
{
if (detect_doorstairs(aware)) *ident = TRUE;
return TRUE;
}
case EF_DETECT_INVIS:
{
if (detect_monsters_invis(aware)) *ident = TRUE;
return TRUE;
}
case EF_DETECT_EVIL:
{
if (detect_monsters_evil(aware)) *ident = TRUE;
return TRUE;
}
case EF_DETECT_ALL:
{
if (detect_all(aware)) *ident = TRUE;
return TRUE;
}
case EF_ENCHANT_TOHIT:
{
*ident = TRUE;
return enchant_spell(1, 0, 0);
}
case EF_ENCHANT_TODAM:
{
*ident = TRUE;
return enchant_spell(0, 1, 0);
}
case EF_ENCHANT_WEAPON:
{
*ident = TRUE;
return enchant_spell(randint1(3), randint1(3), 0);
}
case EF_ENCHANT_ARMOR:
{
*ident = TRUE;
return enchant_spell(0, 0, 1);
}
case EF_ENCHANT_ARMOR2:
{
*ident = TRUE;
return enchant_spell(0, 0, randint1(3) + 2);
}
case EF_RESTORE_ITEM:
{
*ident = TRUE;
return restore_item();
}
case EF_IDENTIFY:
{
*ident = TRUE;
if (!ident_spell()) return FALSE;
return TRUE;
}
case EF_REMOVE_CURSE:
{
if (remove_curse())
{
if (!p_ptr->timed[TMD_BLIND])
msg("The air around your body glows blue for a moment...");
else
msg("You feel as if someone is watching over you.");
*ident = TRUE;
}
return TRUE;
}
case EF_REMOVE_CURSE2:
{
remove_all_curse();
*ident = TRUE;
return TRUE;
}
case EF_LIGHT:
{
if (light_area(damroll(2, 8), 2)) *ident = TRUE;
return TRUE;
}
case EF_SUMMON_MON:
{
int i;
sound(MSG_SUM_MONSTER);
for (i = 0; i < randint1(3); i++)
{
if (summon_specific(py, px, p_ptr->depth, 0, 1))
*ident = TRUE;
}
return TRUE;
}
case EF_SUMMON_UNDEAD:
{
int i;
sound(MSG_SUM_UNDEAD);
for (i = 0; i < randint1(3); i++)
{
if (summon_specific(py, px, p_ptr->depth,
S_UNDEAD, 1))
*ident = TRUE;
}
return TRUE;
}
case EF_TELE_PHASE:
{
teleport_player(10);
*ident = TRUE;
return TRUE;
}
case EF_TELE_LONG:
{
teleport_player(100);
*ident = TRUE;
return TRUE;
}
case EF_TELE_LEVEL:
{
(void)teleport_player_level();
*ident = TRUE;
return TRUE;
}
case EF_CONFUSING:
{
if (p_ptr->confusing == 0)
{
msg("Your hands begin to glow.");
p_ptr->confusing = TRUE;
*ident = TRUE;
}
return TRUE;
}
case EF_MAPPING:
{
map_area();
*ident = TRUE;
return TRUE;
}
case EF_RUNE:
{
warding_glyph();
*ident = TRUE;
return TRUE;
}
case EF_ACQUIRE:
{
acquirement(py, px, p_ptr->depth, 1, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_ACQUIRE2:
{
acquirement(py, px, p_ptr->depth, randint1(2) + 1,
TRUE);
*ident = TRUE;
return TRUE;
}
case EF_ANNOY_MON:
{
msg("There is a high pitched humming noise.");
aggravate_monsters(0);
*ident = TRUE;
return TRUE;
}
case EF_CREATE_TRAP:
{
/* Hack -- no traps in the town */
if (p_ptr->depth == 0)
return TRUE;
trap_creation();
msg("You hear a low-pitched whistling sound.");
*ident = TRUE;
return TRUE;
}
case EF_DESTROY_TDOORS:
{
if (destroy_doors_touch()) *ident = TRUE;
return TRUE;
}
case EF_RECHARGE:
{
*ident = TRUE;
if (!recharge(60)) return FALSE;
return TRUE;
}
case EF_BANISHMENT:
{
*ident = TRUE;
if (!banishment()) return FALSE;
return TRUE;
}
case EF_DARKNESS:
{
if (!check_state(OF_RES_DARK, p_ptr->state.flags))
(void)inc_timed(TMD_BLIND, 3 + randint1(5), TRUE, TRUE);
unlight_area(10, 3);
wieldeds_notice_flag(OF_RES_DARK);
*ident = TRUE;
return TRUE;
}
case EF_PROTEVIL:
{
if (inc_timed(TMD_PROTEVIL, randint1(25) + 3 *
p_ptr->lev, TRUE, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_SATISFY:
{
if (set_food(PY_FOOD_MAX - 1)) *ident = TRUE;
return TRUE;
}
case EF_CURSE_WEAPON:
{
if (curse_weapon()) *ident = TRUE;
return TRUE;
}
case EF_CURSE_ARMOR:
{
if (curse_armor()) *ident = TRUE;
return TRUE;
}
case EF_BLESSING:
{
if (inc_timed(TMD_BLESSED, randint1(12) + 6, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_BLESSING2:
{
if (inc_timed(TMD_BLESSED, randint1(24) + 12, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_BLESSING3:
{
if (inc_timed(TMD_BLESSED, randint1(48) + 24, TRUE, TRUE))
*ident = TRUE;
return TRUE;
}
case EF_RECALL:
{
set_recall();
*ident = TRUE;
return TRUE;
}
case EF_DEEP_DESCENT:
{
int i, target_depth = p_ptr->depth;
/* Calculate target depth */
for (i = 2; i > 0; i--) {
if (is_quest(target_depth)) break;
if (target_depth >= MAX_DEPTH - 1) break;
target_depth++;
}
if (target_depth > p_ptr->depth) {
msgt(MSG_TPLEVEL, "You sink through the floor...");
dungeon_change_level(target_depth);
*ident = TRUE;
return TRUE;
} else {
msgt(MSG_TPLEVEL, "You sense a malevolent presence blocking passage to the levels below.");
*ident = TRUE;
return FALSE;
}
}
case EF_LOSHASTE:
{
if (speed_monsters()) *ident = TRUE;
return TRUE;
}
case EF_LOSSLEEP:
{
if (sleep_monsters(aware)) *ident = TRUE;
return TRUE;
}
case EF_LOSSLOW:
{
if (slow_monsters()) *ident = TRUE;
return TRUE;
}
case EF_LOSCONF:
{
if (confuse_monsters(aware)) *ident = TRUE;
return TRUE;
}
case EF_LOSKILL:
{
(void)mass_banishment();
*ident = TRUE;
return TRUE;
}
case EF_EARTHQUAKES:
{
earthquake(py, px, 10);
*ident = TRUE;
return TRUE;
}
case EF_DESTRUCTION2:
{
destroy_area(py, px, 15, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_ILLUMINATION:
{
if (light_area(damroll(2, 15), 3)) *ident = TRUE;
return TRUE;
}
case EF_CLAIRVOYANCE:
{
*ident = TRUE;
wiz_light();
(void)detect_traps(TRUE);
(void)detect_doorstairs(TRUE);
return TRUE;
}
case EF_PROBING:
{
*ident = probing();
return TRUE;
}
case EF_STONE_TO_MUD:
{
if (wall_to_mud(dir)) *ident = TRUE;
return TRUE;
}
case EF_CONFUSE2:
{
*ident = TRUE;
confuse_monster(dir, 20, aware);
return TRUE;
}
case EF_BIZARRE:
{
*ident = TRUE;
ring_of_power(dir);
return TRUE;
}
case EF_STAR_BALL:
{
int i;
*ident = TRUE;
for (i = 0; i < 8; i++) fire_ball(GF_ELEC, ddd[i],
(150 * (100 + boost) / 100), 3);
return TRUE;
}
case EF_RAGE_BLESS_RESIST:
{
dur = randint1(50) + 50;
*ident = TRUE;
(void)hp_player(30);
(void)clear_timed(TMD_AFRAID, TRUE);
(void)inc_timed(TMD_BOLD, dur, TRUE, TRUE);
(void)inc_timed(TMD_SHERO, dur, TRUE, TRUE);
(void)inc_timed(TMD_BLESSED, randint1(50) + 50, TRUE, TRUE);
(void)inc_timed(TMD_OPP_ACID, randint1(50) + 50, TRUE, TRUE);
(void)inc_timed(TMD_OPP_ELEC, randint1(50) + 50, TRUE, TRUE);
(void)inc_timed(TMD_OPP_FIRE, randint1(50) + 50, TRUE, TRUE);
(void)inc_timed(TMD_OPP_COLD, randint1(50) + 50, TRUE, TRUE);
(void)inc_timed(TMD_OPP_POIS, randint1(50) + 50, TRUE, TRUE);
return TRUE;
}
case EF_SLEEPII:
{
*ident = TRUE;
sleep_monsters_touch(aware);
return TRUE;
}
case EF_RESTORE_LIFE:
{
*ident = TRUE;
restore_level();
return TRUE;
}
case EF_MISSILE:
{
*ident = TRUE;
dam = damroll(3, 4) * (100 + boost) / 100;
fire_bolt_or_beam(beam, GF_MISSILE, dir, dam);
return TRUE;
}
case EF_DISPEL_EVIL:
{
*ident = TRUE;
dam = p_ptr->lev * 5 * (100 + boost) / 100;
dispel_evil(dam);
return TRUE;
}
case EF_DISPEL_EVIL60:
{
dam = 60 * (100 + boost) / 100;
if (dispel_evil(dam)) *ident = TRUE;
return TRUE;
}
case EF_DISPEL_UNDEAD:
{
dam = 60 * (100 + boost) / 100;
if (dispel_undead(dam)) *ident = TRUE;
return TRUE;
}
case EF_DISPEL_ALL:
{
dam = 120 * (100 + boost) / 100;
if (dispel_monsters(dam)) *ident = TRUE;
return TRUE;
}
case EF_HASTE:
{
if (!p_ptr->timed[TMD_FAST])
{
if (set_timed(TMD_FAST, damroll(2, 10) + 20, TRUE)) *ident = TRUE;
}
else
{
(void)inc_timed(TMD_FAST, 5, TRUE, TRUE);
}
return TRUE;
}
case EF_HASTE1:
{
if (!p_ptr->timed[TMD_FAST])
{
if (set_timed(TMD_FAST, randint1(20) + 20, TRUE)) *ident = TRUE;
}
else
{
(void)inc_timed(TMD_FAST, 5, TRUE, TRUE);
}
return TRUE;
}
case EF_HASTE2:
{
if (!p_ptr->timed[TMD_FAST])
{
if (set_timed(TMD_FAST, randint1(75) + 75, TRUE)) *ident = TRUE;
}
else
{
(void)inc_timed(TMD_FAST, 5, TRUE, TRUE);
}
return TRUE;
}
case EF_FIRE_BOLT:
{
*ident = TRUE;
dam = damroll(9, 8) * (100 + boost) / 100;
fire_bolt(GF_FIRE, dir, dam);
return TRUE;
}
case EF_FIRE_BOLT2:
{
dam = damroll(12, 8) * (100 + boost) / 100;
fire_bolt_or_beam(beam, GF_FIRE, dir, dam);
*ident = TRUE;
return TRUE;
}
case EF_FIRE_BOLT3:
{
dam = damroll(16, 8) * (100 + boost) / 100;
fire_bolt_or_beam(beam, GF_FIRE, dir, dam);
*ident = TRUE;
return TRUE;
}
case EF_FIRE_BOLT72:
{
dam = 72 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_FIRE, dir, dam, 2);
return TRUE;
}
case EF_FIRE_BALL:
{
dam = 144 * (100 + boost) / 100;
fire_ball(GF_FIRE, dir, dam, 2);
*ident = TRUE;
return TRUE;
}
case EF_FIRE_BALL2:
{
dam = 120 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_FIRE, dir, dam, 3);
return TRUE;
}
case EF_FIRE_BALL200:
{
dam = 200 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_FIRE, dir, dam, 3);
return TRUE;
}
case EF_COLD_BOLT:
{
dam = damroll(6, 8) * (100 + boost) / 100;
*ident = TRUE;
fire_bolt_or_beam(beam, GF_COLD, dir, dam);
return TRUE;
}
case EF_COLD_BOLT2:
{
dam = damroll(12, 8) * (100 + boost) / 100;
*ident = TRUE;
fire_bolt(GF_COLD, dir, dam);
return TRUE;
}
case EF_COLD_BALL2:
{
dam = 200 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_COLD, dir, dam, 3);
return TRUE;
}
case EF_COLD_BALL50:
{
dam = 50 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_COLD, dir, dam, 2);
return TRUE;
}
case EF_COLD_BALL100:
{
dam = 100 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_COLD, dir, dam, 2);
return TRUE;
}
case EF_COLD_BALL160:
{
dam = 160 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_COLD, dir, dam, 3);
return TRUE;
}
case EF_ACID_BOLT:
{
dam = damroll(5, 8) * (100 + boost) / 100;
*ident = TRUE;
fire_bolt(GF_ACID, dir, dam);
return TRUE;
}
case EF_ACID_BOLT2:
{
dam = damroll(10, 8) * (100 + boost) / 100;
fire_bolt_or_beam(beam, GF_ACID, dir, dam);
*ident = TRUE;
return TRUE;
}
case EF_ACID_BOLT3:
{
dam = damroll(12, 8) * (100 + boost) / 100;
fire_bolt_or_beam(beam, GF_ACID, dir, dam);
*ident = TRUE;
return TRUE;
}
case EF_ACID_BALL:
{
dam = 120 * (100 + boost) / 100;
fire_ball(GF_ACID, dir, dam, 2);
*ident = TRUE;
return TRUE;
}
case EF_ELEC_BOLT:
{
dam = damroll(6, 6) * (100 + boost) / 100;
*ident = TRUE;
fire_beam(GF_ELEC, dir, dam);
return TRUE;
}
case EF_ELEC_BALL:
{
dam = 64 * (100 + boost) / 100;
fire_ball(GF_ELEC, dir, dam, 2);
*ident = TRUE;
return TRUE;
}
case EF_ELEC_BALL2:
{
dam = 250 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_ELEC, dir, dam, 3);
return TRUE;
}
case EF_ARROW:
{
dam = 150 * (100 + boost) / 100;
*ident = TRUE;
fire_bolt(GF_ARROW, dir, dam);
return TRUE;
}
case EF_REM_FEAR_POIS:
{
*ident = TRUE;
(void)clear_timed(TMD_AFRAID, TRUE);
(void)clear_timed(TMD_POISONED, TRUE);
return TRUE;
}
case EF_STINKING_CLOUD:
{
dam = 12 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_POIS, dir, dam, 3);
return TRUE;
}
case EF_DRAIN_LIFE1:
{
dam = 90 * (100 + boost) / 100;
if (drain_life(dir, dam)) *ident = TRUE;
return TRUE;
}
case EF_DRAIN_LIFE2:
{
dam = 120 * (100 + boost) / 100;
if (drain_life(dir, dam)) *ident = TRUE;
return TRUE;
}
case EF_DRAIN_LIFE3:
{
dam = 150 * (100 + boost) / 100;
if (drain_life(dir, dam)) *ident = TRUE;
return TRUE;
}
case EF_DRAIN_LIFE4:
{
dam = 250 * (100 + boost) / 100;
if (drain_life(dir, dam)) *ident = TRUE;
return TRUE;
}
case EF_FIREBRAND:
{
*ident = TRUE;
if (!brand_bolts()) return FALSE;
return TRUE;
}
case EF_MANA_BOLT:
{
dam = damroll(12, 8) * (100 + boost) / 100;
fire_bolt(GF_MANA, dir, dam);
*ident = TRUE;
return TRUE;
}
case EF_MON_HEAL:
{
if (heal_monster(dir)) *ident = TRUE;
return TRUE;
}
case EF_MON_HASTE:
{
if (speed_monster(dir)) *ident = TRUE;
return TRUE;
}
case EF_MON_SLOW:
{
if (slow_monster(dir)) *ident = TRUE;
return TRUE;
}
case EF_MON_CONFUSE:
{
if (confuse_monster(dir, 10, aware)) *ident = TRUE;
return TRUE;
}
case EF_MON_SLEEP:
{
if (sleep_monster(dir, aware)) *ident = TRUE;
return TRUE;
}
case EF_MON_CLONE:
{
if (clone_monster(dir)) *ident = TRUE;
return TRUE;
}
case EF_MON_SCARE:
{
if (fear_monster(dir, 10, aware)) *ident = TRUE;
return TRUE;
}
case EF_LIGHT_LINE:
{
msg("A line of shimmering blue light appears.");
light_line(dir);
*ident = TRUE;
return TRUE;
}
case EF_TELE_OTHER:
{
if (teleport_monster(dir)) *ident = TRUE;
return TRUE;
}
case EF_DISARMING:
{
if (disarm_trap(dir)) *ident = TRUE;
return TRUE;
}
case EF_TDOOR_DEST:
{
if (destroy_door(dir)) *ident = TRUE;
return TRUE;
}
case EF_POLYMORPH:
{
if (poly_monster(dir)) *ident = TRUE;
return TRUE;
}
case EF_STARLIGHT:
{
int i;
if (!p_ptr->timed[TMD_BLIND])
msg("Light shoots in all directions!");
for (i = 0; i < 8; i++) light_line(ddd[i]);
*ident = TRUE;
return TRUE;
}
case EF_STARLIGHT2:
{
int k;
for (k = 0; k < 8; k++) strong_light_line(ddd[k]);
*ident = TRUE;
return TRUE;
}
case EF_BERSERKER:
{
dur = randint1(50) + 50;
if (inc_timed(TMD_BOLD, dur, TRUE, TRUE)) *ident = TRUE;
if (inc_timed(TMD_SHERO, dur, TRUE, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_WONDER:
{
if (effect_wonder(dir, randint1(100) + p_ptr->lev / 5,
beam)) *ident = TRUE;
return TRUE;
}
case EF_WAND_BREATH:
{
/* table of random ball effects and their damages */
const int breath_types[] = {
GF_ACID, 200,
GF_ELEC, 160,
GF_FIRE, 200,
GF_COLD, 160,
GF_POIS, 120
};
/* pick a random (type, damage) tuple in the table */
int which = 2 * randint0(sizeof(breath_types) / (2 * sizeof(int)));
fire_ball(breath_types[which], dir, breath_types[which + 1], 3);
*ident = TRUE;
return TRUE;
}
case EF_STAFF_MAGI:
{
if (do_res_stat(A_INT)) *ident = TRUE;
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
*ident = TRUE;
msg("Your feel your head clear.");
p_ptr->redraw |= (PR_MANA);
}
return TRUE;
}
case EF_STAFF_HOLY:
{
dam = 120 * (100 + boost) / 100;
if (dispel_evil(dam)) *ident = TRUE;
if (inc_timed(TMD_PROTEVIL, randint1(25) + 3 *
p_ptr->lev, TRUE, TRUE)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
if (clear_timed(TMD_AFRAID, TRUE)) *ident = TRUE;
if (hp_player(50)) *ident = TRUE;
if (clear_timed(TMD_STUN, TRUE)) *ident = TRUE;
if (clear_timed(TMD_CUT, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_DRINK_BREATH:
{
const int breath_types[] =
{
GF_FIRE, 80,
GF_COLD, 80,
};
int which = 2 * randint0(N_ELEMENTS(breath_types) / 2);
fire_ball(breath_types[which], dir, breath_types[which + 1], 2);
*ident = TRUE;
return TRUE;
}
case EF_DRINK_GOOD:
{
msg("You feel less thirsty.");
*ident = TRUE;
return TRUE;
}
case EF_DRINK_DEATH:
{
msg("A feeling of Death flows through your body.");
take_hit(5000, "a potion of Death");
*ident = TRUE;
return TRUE;
}
case EF_DRINK_RUIN:
{
msg("Your nerves and muscles feel weak and lifeless!");
take_hit(damroll(10, 10), "a potion of Ruination");
player_stat_dec(p_ptr, A_DEX, TRUE);
player_stat_dec(p_ptr, A_WIS, TRUE);
player_stat_dec(p_ptr, A_CON, TRUE);
player_stat_dec(p_ptr, A_STR, TRUE);
player_stat_dec(p_ptr, A_CHR, TRUE);
player_stat_dec(p_ptr, A_INT, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_DRINK_DETONATE:
{
msg("Massive explosions rupture your body!");
take_hit(damroll(50, 20), "a potion of Detonation");
(void)inc_timed(TMD_STUN, 75, TRUE, TRUE);
(void)inc_timed(TMD_CUT, 5000, TRUE, TRUE);
*ident = TRUE;
return TRUE;
}
case EF_DRINK_SALT:
{
msg("The potion makes you vomit!");
(void)set_food(PY_FOOD_STARVE - 1);
(void)clear_timed(TMD_POISONED, TRUE);
(void)inc_timed(TMD_PARALYZED, 4, TRUE, FALSE);
*ident = TRUE;
return TRUE;
}
case EF_FOOD_GOOD:
{
msg("That tastes good.");
*ident = TRUE;
return TRUE;
}
case EF_FOOD_WAYBREAD:
{
msg("That tastes good.");
(void)clear_timed(TMD_POISONED, TRUE);
(void)hp_player(damroll(4, 8));
*ident = TRUE;
return TRUE;
}
case EF_SHROOM_EMERGENCY:
{
(void)set_timed(TMD_IMAGE, rand_spread(250, 50), TRUE);
(void)set_timed(TMD_OPP_FIRE, rand_spread(30, 10), TRUE);
(void)set_timed(TMD_OPP_COLD, rand_spread(30, 10), TRUE);
(void)hp_player(200);
*ident = TRUE;
return TRUE;
}
case EF_SHROOM_TERROR:
{
if (set_timed(TMD_TERROR, rand_spread(100, 20), TRUE))
*ident = TRUE;
return TRUE;
}
case EF_SHROOM_STONE:
{
if (set_timed(TMD_STONESKIN, rand_spread(80, 20), TRUE))
*ident = TRUE;
return TRUE;
}
case EF_SHROOM_DEBILITY:
{
int stat = one_in_(2) ? A_STR : A_CON;
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
msg("Your feel your head clear.");
p_ptr->redraw |= (PR_MANA);
*ident = TRUE;
}
(void)do_dec_stat(stat, FALSE);
*ident = TRUE;
return TRUE;
}
case EF_SHROOM_SPRINTING:
{
if (inc_timed(TMD_SPRINT, 100, TRUE, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_SHROOM_PURGING:
{
(void)set_food(PY_FOOD_FAINT - 1);
if (do_res_stat(A_STR)) *ident = TRUE;
if (do_res_stat(A_CON)) *ident = TRUE;
if (clear_timed(TMD_POISONED, TRUE)) *ident = TRUE;
return TRUE;
}
case EF_RING_ACID:
{
dam = 70 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_ACID, dir, dam, 2);
inc_timed(TMD_OPP_ACID, randint1(20) + 20, TRUE, TRUE);
return TRUE;
}
case EF_RING_FLAMES:
{
dam = 80 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_FIRE, dir, dam, 2);
inc_timed(TMD_OPP_FIRE, randint1(20) + 20, TRUE, TRUE);
return TRUE;
}
case EF_RING_ICE:
{
dam = 75 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_COLD, dir, dam, 2);
inc_timed(TMD_OPP_COLD, randint1(20) + 20, TRUE, TRUE);
return TRUE;
}
case EF_RING_LIGHTNING:
{
dam = 85 * (100 + boost) / 100;
*ident = TRUE;
fire_ball(GF_ELEC, dir, dam, 2);
inc_timed(TMD_OPP_ELEC, randint1(20) + 20, TRUE, TRUE);
return TRUE;
}
case EF_DRAGON_BLUE:
{
dam = 100 * (100 + boost) / 100;
msgt(MSG_BR_ELEC, "You breathe lightning.");
fire_ball(GF_ELEC, dir, dam, 2);
return TRUE;
}
case EF_DRAGON_GREEN:
{
dam = 150 * (100 + boost) / 100;
msgt(MSG_BR_GAS, "You breathe poison gas.");
fire_ball(GF_POIS, dir, dam, 2);
return TRUE;
}
case EF_DRAGON_RED:
{
dam = 200 * (100 + boost) / 100;
msgt(MSG_BR_FIRE, "You breathe fire.");
fire_ball(GF_FIRE, dir, dam, 2);
return TRUE;
}
case EF_DRAGON_MULTIHUED:
{
static const struct
{
int msg_sound;
const char *msg;
int typ;
} mh[] =
{
{ MSG_BR_ELEC, "lightning", GF_ELEC },
{ MSG_BR_FROST, "frost", GF_COLD },
{ MSG_BR_ACID, "acid", GF_ACID },
{ MSG_BR_GAS, "poison gas", GF_POIS },
{ MSG_BR_FIRE, "fire", GF_FIRE }
};
int chance = randint0(5);
dam = 250 * (100 + boost) / 100;
msgt(mh[chance].msg_sound, "You breathe %s.", mh[chance].msg);
fire_ball(mh[chance].typ, dir, dam, 2);
return TRUE;
}
case EF_DRAGON_BRONZE:
{
dam = 120 * (100 + boost) / 100;
msgt(MSG_BR_CONF, "You breathe confusion.");
fire_ball(GF_CONFU, dir, dam, 2);
return TRUE;
}
case EF_DRAGON_GOLD:
{
dam = 130 * (100 + boost) / 100;
msgt(MSG_BR_SOUND, "You breathe sound.");
fire_ball(GF_SOUND, dir, dam, 2);
return TRUE;
}
case EF_DRAGON_CHAOS:
{
dam = 220 * (100 + boost) / 100;
chance = randint0(2);
msgt((chance == 1 ? MSG_BR_CHAOS : MSG_BR_DISEN),
"You breathe %s.",
((chance == 1 ? "chaos" : "disenchantment")));
fire_ball((chance == 1 ? GF_CHAOS : GF_DISEN),
dir, dam, 2);
return TRUE;
}
case EF_DRAGON_LAW:
{
dam = 230 * (100 + boost) / 100;
chance = randint0(2);
msgt((chance == 1 ? MSG_BR_SOUND : MSG_BR_SHARDS), "You breathe %s.",
((chance == 1 ? "sound" : "shards")));
fire_ball((chance == 1 ? GF_SOUND : GF_SHARD),
dir, dam, 2);
return TRUE;
}
case EF_DRAGON_BALANCE:
{
dam = 250 * (100 + boost) / 100;
chance = randint0(4);
msg("You breathe %s.",
((chance == 1) ? "chaos" :
((chance == 2) ? "disenchantment" :
((chance == 3) ? "sound" : "shards"))));
fire_ball(((chance == 1) ? GF_CHAOS :
((chance == 2) ? GF_DISEN :
((chance == 3) ? GF_SOUND : GF_SHARD))),
dir, dam, 2);
return TRUE;
}
case EF_DRAGON_SHINING:
{
dam = 200 * (100 + boost) / 100;
chance = randint0(2);
msgt((chance == 0 ? MSG_BR_LIGHT : MSG_BR_DARK), "You breathe %s.",
((chance == 0 ? "light" : "darkness")));
fire_ball((chance == 0 ? GF_LIGHT : GF_DARK), dir, dam,
2);
return TRUE;
}
case EF_DRAGON_POWER:
{
dam = 300 * (100 + boost) / 100;
msgt(MSG_BR_ELEMENTS, "You breathe the elements.");
fire_ball(GF_MISSILE, dir, dam, 2);
return TRUE;
}
case EF_TRAP_DOOR:
{
msg("You fall through a trap door!");
if (check_state(OF_FEATHER, p_ptr->state.flags)) {
msg("You float gently down to the next level.");
} else {
take_hit(damroll(2, 8), "a trap");
}
wieldeds_notice_flag(OF_FEATHER);
dungeon_change_level(p_ptr->depth + 1);
return TRUE;
}
case EF_TRAP_PIT:
{
msg("You fall into a pit!");
if (check_state(OF_FEATHER, p_ptr->state.flags)) {
msg("You float gently to the bottom of the pit.");
} else {
take_hit(damroll(2, 6), "a trap");
}
wieldeds_notice_flag(OF_FEATHER);
return TRUE;
}
case EF_TRAP_PIT_SPIKES:
{
msg("You fall into a spiked pit!");
if (check_state(OF_FEATHER, p_ptr->state.flags)) {
msg("You float gently to the floor of the pit.");
msg("You carefully avoid touching the spikes.");
} else {
int dam = damroll(2, 6);
/* Extra spike damage */
if (one_in_(2)) {
msg("You are impaled!");
dam *= 2;
(void)inc_timed(TMD_CUT, randint1(dam), TRUE, TRUE);
}
take_hit(dam, "a trap");
}
wieldeds_notice_flag(OF_FEATHER);
return TRUE;
}
case EF_TRAP_PIT_POISON:
{
msg("You fall into a spiked pit!");
if (check_state(OF_FEATHER, p_ptr->state.flags)) {
msg("You float gently to the floor of the pit.");
msg("You carefully avoid touching the spikes.");
} else {
int dam = damroll(2, 6);
/* Extra spike damage */
if (one_in_(2)) {
msg("You are impaled on poisonous spikes!");
(void)inc_timed(TMD_CUT, randint1(dam * 2), TRUE, TRUE);
(void)inc_timed(TMD_POISONED, randint1(dam * 4), TRUE, TRUE);
}
take_hit(dam, "a trap");
}
wieldeds_notice_flag(OF_FEATHER);
return TRUE;
}
case EF_TRAP_RUNE_SUMMON:
{
int i;
int num = 2 + randint1(3);
msgt(MSG_SUM_MONSTER, "You are enveloped in a cloud of smoke!");
/* Remove trap */
cave->info[py][px] &= ~(CAVE_MARK);
cave_set_feat(cave, py, px, FEAT_FLOOR);
for (i = 0; i < num; i++)
(void)summon_specific(py, px, p_ptr->depth, 0, 1);
break;
}
case EF_TRAP_RUNE_TELEPORT:
{
msg("You hit a teleport trap!");
teleport_player(100);
return TRUE;
}
case EF_TRAP_SPOT_FIRE:
{
int dam;
msg("You are enveloped in flames!");
dam = damroll(4, 6);
dam = adjust_dam(GF_FIRE, dam, RANDOMISE,
check_for_resist(GF_FIRE, p_ptr->state.flags, TRUE));
if (dam) {
take_hit(dam, "a fire trap");
inven_damage(GF_FIRE, MIN(dam * 5, 300));
}
return TRUE;
}
case EF_TRAP_SPOT_ACID:
{
int dam;
msg("You are splashed with acid!");
dam = damroll(4, 6);
dam = adjust_dam(GF_ACID, dam, RANDOMISE,
check_for_resist(GF_ACID, p_ptr->state.flags, TRUE));
if (dam) {
take_hit(dam, "an acid trap");
inven_damage(GF_ACID, MIN(dam * 5, 300));
}
return TRUE;
}
case EF_TRAP_DART_SLOW:
{
if (trap_check_hit(125)) {
msg("A small dart hits you!");
take_hit(damroll(1, 4), "a trap");
(void)inc_timed(TMD_SLOW, randint0(20) + 20, TRUE, FALSE);
} else {
msg("A small dart barely misses you.");
}
return TRUE;
}
case EF_TRAP_DART_LOSE_STR:
{
if (trap_check_hit(125)) {
msg("A small dart hits you!");
take_hit(damroll(1, 4), "a trap");
(void)do_dec_stat(A_STR, FALSE);
} else {
msg("A small dart barely misses you.");
}
return TRUE;
}
case EF_TRAP_DART_LOSE_DEX:
{
if (trap_check_hit(125)) {
msg("A small dart hits you!");
take_hit(damroll(1, 4), "a trap");
(void)do_dec_stat(A_DEX, FALSE);
} else {
msg("A small dart barely misses you.");
}
return TRUE;
}
case EF_TRAP_DART_LOSE_CON:
{
if (trap_check_hit(125)) {
msg("A small dart hits you!");
take_hit(damroll(1, 4), "a trap");
(void)do_dec_stat(A_CON, FALSE);
} else {
msg("A small dart barely misses you.");
}
return TRUE;
}
case EF_TRAP_GAS_BLIND:
{
msg("You are surrounded by a black gas!");
(void)inc_timed(TMD_BLIND, randint0(50) + 25, TRUE, TRUE);
return TRUE;
}
case EF_TRAP_GAS_CONFUSE:
{
msg("You are surrounded by a gas of scintillating colors!");
(void)inc_timed(TMD_CONFUSED, randint0(20) + 10, TRUE, TRUE);
return TRUE;
}
case EF_TRAP_GAS_POISON:
{
msg("You are surrounded by a pungent green gas!");
(void)inc_timed(TMD_POISONED, randint0(20) + 10, TRUE, TRUE);
return TRUE;
}
case EF_TRAP_GAS_SLEEP:
{
msg("You are surrounded by a strange white mist!");
(void)inc_timed(TMD_PARALYZED, randint0(10) + 5, TRUE, TRUE);
return TRUE;
}
case EF_XXX:
case EF_MAX:
break;
}
/* Not used */
msg("Effect not handled.");
return FALSE;
}
static bool quaff_potion(object_type *o_ptr, bool *ident)
{
/* Analyze the potion */
switch (o_ptr->sval)
{
case SV_POTION_WATER:
case SV_POTION_APPLE_JUICE:
case SV_POTION_SLIME_MOLD:
{
msg_print("You feel less thirsty.");
*ident = TRUE;
break;
}
case SV_POTION_SLOWNESS:
{
if (set_slow(p_ptr->slow + randint(25) + 15)) *ident = TRUE;
break;
}
case SV_POTION_SALT_WATER:
{
msg_print("The potion makes you vomit!");
(void)set_food(PY_FOOD_STARVE - 1);
(void)set_poisoned(0);
(void)set_paralyzed(p_ptr->paralyzed + 4);
*ident = TRUE;
break;
}
case SV_POTION_POISON:
{
if (!(p_ptr->resist_pois || p_ptr->oppose_pois))
{
if (set_poisoned(p_ptr->poisoned + rand_int(15) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_BLINDNESS:
{
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + rand_int(100) + 100))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_CONFUSION:
{
if (!p_ptr->resist_confu)
{
if (set_confused(p_ptr->confused + rand_int(20) + 15))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_SLEEP:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(p_ptr->paralyzed + rand_int(4) + 4))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_LOSE_MEMORIES:
{
if (!p_ptr->hold_life && (p_ptr->exp > 0))
{
msg_print("You feel your memories fade.");
lose_exp(p_ptr->exp / 4);
*ident = TRUE;
}
break;
}
case SV_POTION_RUINATION:
{
msg_print("Your nerves and muscles feel weak and lifeless!");
take_hit(damroll(10, 10), "a potion of Ruination");
(void)dec_stat(A_DEX, 25, TRUE);
(void)dec_stat(A_WIS, 25, TRUE);
(void)dec_stat(A_CON, 25, TRUE);
(void)dec_stat(A_STR, 25, TRUE);
(void)dec_stat(A_CHR, 25, TRUE);
(void)dec_stat(A_INT, 25, TRUE);
*ident = TRUE;
break;
}
case SV_POTION_DEC_STR:
{
if (do_dec_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_DEC_INT:
{
if (do_dec_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_DEC_WIS:
{
if (do_dec_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_DEC_DEX:
{
if (do_dec_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CON:
{
if (do_dec_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CHR:
{
if (do_dec_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_DETONATIONS:
{
msg_print("Massive explosions rupture your body!");
take_hit(damroll(50, 20), "a potion of Detonation");
(void)set_stun(p_ptr->stun + 75);
(void)set_cut(p_ptr->cut + 5000);
*ident = TRUE;
break;
}
case SV_POTION_DEATH:
{
msg_print("A feeling of Death flows through your body.");
take_hit(5000, "a potion of Death");
*ident = TRUE;
break;
}
case SV_POTION_INFRAVISION:
{
if (set_tim_infra(p_ptr->tim_infra + 100 + randint(100)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_DETECT_INVIS:
{
if (set_tim_invis(p_ptr->tim_invis + 12 + randint(12)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_SLOW_POISON:
{
if (set_poisoned(p_ptr->poisoned / 2)) *ident = TRUE;
break;
}
case SV_POTION_CURE_POISON:
{
if (set_poisoned(0)) *ident = TRUE;
break;
}
case SV_POTION_BOLDNESS:
{
if (set_afraid(0)) *ident = TRUE;
break;
}
case SV_POTION_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(25) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case SV_POTION_RESIST_HEAT:
{
if (set_oppose_fire(p_ptr->oppose_fire + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_RESIST_COLD:
{
if (set_oppose_cold(p_ptr->oppose_cold + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_HEROISM:
{
if (hp_player(10)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_hero(p_ptr->hero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_BERSERK_STRENGTH:
{
if (hp_player(30)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_shero(p_ptr->shero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_CURE_LIGHT:
{
if (hp_player(damroll(2, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_cut(p_ptr->cut - 10)) *ident = TRUE;
break;
}
case SV_POTION_CURE_SERIOUS:
{
if (hp_player(damroll(4, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_cut((p_ptr->cut / 2) - 50)) *ident = TRUE;
break;
}
case SV_POTION_CURE_CRITICAL:
{
if (hp_player(damroll(6, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_HEALING:
{
if (hp_player(300)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_STAR_HEALING:
{
if (hp_player(1200)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_LIFE:
{
msg_print("You feel life flow through your body!");
restore_level();
(void)set_poisoned(0);
(void)set_blind(0);
(void)set_confused(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
/* Recalculate max. hitpoints */
update_stuff();
hp_player(5000);
*ident = TRUE;
break;
}
case SV_POTION_RESTORE_MANA:
{
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
msg_print("Your feel your head clear.");
p_ptr->redraw |= (PR_MANA);
p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
*ident = TRUE;
}
break;
}
case SV_POTION_RESTORE_EXP:
{
if (restore_level()) *ident = TRUE;
break;
}
case SV_POTION_RES_STR:
{
if (do_res_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_RES_INT:
{
if (do_res_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_RES_WIS:
{
if (do_res_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_RES_DEX:
{
if (do_res_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_RES_CON:
{
if (do_res_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_RES_CHR:
{
if (do_res_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_INC_STR:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_INC_INT:
{
if (do_inc_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_INC_WIS:
{
if (do_inc_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_INC_DEX:
{
if (do_inc_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_INC_CON:
{
if (do_inc_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_INC_CHR:
{
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_AUGMENTATION:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
if (do_inc_stat(A_INT)) *ident = TRUE;
if (do_inc_stat(A_WIS)) *ident = TRUE;
if (do_inc_stat(A_DEX)) *ident = TRUE;
if (do_inc_stat(A_CON)) *ident = TRUE;
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_ENLIGHTENMENT:
{
msg_print("An image of your surroundings forms in your mind...");
wiz_lite();
*ident = TRUE;
break;
}
case SV_POTION_STAR_ENLIGHTENMENT:
{
msg_print("You begin to feel more enlightened...");
message_flush();
wiz_lite();
(void)do_inc_stat(A_INT);
(void)do_inc_stat(A_WIS);
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
(void)detect_treasure();
(void)detect_objects_gold();
(void)detect_objects_normal();
identify_pack();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_SELF_KNOWLEDGE:
{
msg_print("You begin to know yourself a little better...");
message_flush();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_EXPERIENCE:
{
if (p_ptr->exp < PY_MAX_EXP)
{
s32b ee = (p_ptr->exp / 2) + 10;
if (ee > 100000L) ee = 100000L;
msg_print("You feel more experienced.");
gain_exp(ee);
*ident = TRUE;
}
break;
}
}
return (TRUE);
}
/* #sit command */
int
dosit()
{
/*JP
static const char sit_message[] = "sit on the %s.";
*/
static const char sit_message[] = "%sに座った．";
register struct trap *trap = t_at(u.ux, u.uy);
register int typ = levl[u.ux][u.uy].typ;
if (u.usteed) {
/*JP
You("are already sitting on %s.", mon_nam(u.usteed));
*/
You("もう%sに座っている．", mon_nam(u.usteed));
return 0;
}
if (u.uundetected && is_hider(youmonst.data) && u.umonnum != PM_TRAPPER)
u.uundetected = 0; /* no longer on the ceiling */
if (!can_reach_floor(FALSE)) {
if (u.uswallow)
/*JP
There("are no seats in here!");
*/
pline("ここには椅子がない！");
else if (Levitation)
/*JP
You("tumble in place.");
*/
You("その場で宙返りした．");
else
/*JP
You("are sitting on air.");
*/
You("空中に座った．");
return 0;
} else if (u.ustuck && !sticks(youmonst.data)) {
/* holding monster is next to hero rather than beneath, but
hero is in no condition to actually sit at has/her own spot */
if (humanoid(u.ustuck->data))
/*JP
pline("%s won't offer %s lap.", Monnam(u.ustuck), mhis(u.ustuck));
*/
pline("%sはひざを出さなかった．", Monnam(u.ustuck));
else
/*JP
pline("%s has no lap.", Monnam(u.ustuck));
*/
pline("%sにはひざがない．", Monnam(u.ustuck));
return 0;
} else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
goto in_water;
}
if (OBJ_AT(u.ux, u.uy)
/* ensure we're not standing on the precipice */
&& !uteetering_at_seen_pit(trap)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
if (youmonst.data->mlet == S_DRAGON && obj->oclass == COIN_CLASS) {
#if 0 /*JP*/
You("coil up around your %shoard.",
(obj->quan + money_cnt(invent) < u.ulevel * 1000) ? "meager "
: "");
#else
You("%sお宝のまわりでとぐろを巻いた．",
(obj->quan + money_cnt(invent) < u.ulevel * 1000) ? "わずかな"
: "");
#endif
} else {
/*JP
You("sit on %s.", the(xname(obj)));
*/
You("%sに座った．", the(xname(obj)));
if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
/*JP
pline("It's not very comfortable...");
*/
pline("あまり座りごこちがよくない．．．");
}
} else if (trap != 0 || (u.utrap && (u.utraptype >= TT_LAVA))) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if (u.utraptype == TT_BEARTRAP) {
/*JP
You_cant("sit down with your %s in the bear trap.",
*/
pline("%sが熊の罠にはさまっているので座れない．",
body_part(FOOT));
u.utrap++;
} else if (u.utraptype == TT_PIT) {
if (trap && trap->ttyp == SPIKED_PIT) {
/*JP
You("sit down on a spike. Ouch!");
*/
You("トゲの上に座った．いてっ！");
losehp(Half_physical_damage ? rn2(2) : 1,
/*JP
"sitting on an iron spike", KILLED_BY);
*/
"鉄のトゲの上に座って", KILLED_BY);
exercise(A_STR, FALSE);
} else
/*JP
You("sit down in the pit.");
*/
You("落し穴の中で座った．");
u.utrap += rn2(5);
} else if (u.utraptype == TT_WEB) {
/*JP
You("sit in the spider web and get entangled further!");
*/
You("くもの巣の中で座ったら，ますます絡まった！");
u.utrap += rn1(10, 5);
} else if (u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
/*JP
You("sit in the lava!");
*/
You("溶岩の中に座った！");
if (Slimed)
burn_away_slime();
u.utrap += rnd(4);
/*JP
losehp(d(2, 10), "sitting in lava",
*/
losehp(d(2, 10), "溶岩の中に座って",
KILLED_BY); /* lava damage */
} else if (u.utraptype == TT_INFLOOR
|| u.utraptype == TT_BURIEDBALL) {
/*JP
You_cant("maneuver to sit!");
*/
You("座るような動作ができない！");
u.utrap++;
}
} else {
/*JP
You("sit down.");
*/
You("座った．");
dotrap(trap, 0);
}
} else if (Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
/*JP
There("are no cushions floating nearby.");
*/
pline("近くに浮いているクッションはない．");
else
/*JP
You("sit down on the muddy bottom.");
*/
You("どろどろした底に座った．");
} else if (is_pool(u.ux, u.uy)) {
in_water:
/*JP
You("sit in the water.");
*/
You("水の中で座った．");
if (!rn2(10) && uarm)
/*JP
(void) water_damage(uarm, "armor", TRUE);
*/
(void) water_damage(uarm, "鎧", TRUE);
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
/*JP
(void) water_damage(uarm, "armor", TRUE);
*/
(void) water_damage(uarm, "鎧", TRUE);
} else if (IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
/*JP
Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside");
*/
Your("%sは濡れた．", humanoid(youmonst.data) ? "尻" : "下部");
} else if (IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if (IS_GRAVE(typ)) {
You(sit_message, defsyms[S_grave].explanation);
} else if (typ == STAIRS) {
/*JP
You(sit_message, "stairs");
*/
You(sit_message, "階段");
} else if (typ == LADDER) {
/*JP
You(sit_message, "ladder");
*/
You(sit_message, "はしご");
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
/*JP
You(sit_message, "lava");
*/
You(sit_message, "溶岩");
burn_away_slime();
if (likes_lava(youmonst.data)) {
/*JP
pline_The("lava feels warm.");
*/
pline("溶岩は暖かい．");
return 1;
}
/*JP
pline_The("lava burns you!");
*/
You("溶岩で燃えた！");
losehp(d((Fire_resistance ? 2 : 10), 10), /* lava damage */
/*JP
"sitting on lava", KILLED_BY);
*/
"溶岩に座って", KILLED_BY);
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance)
/*JP
pline_The("ice feels cold.");
*/
pline("氷は冷たく感じた．");
} else if (typ == DRAWBRIDGE_DOWN) {
/*JP
You(sit_message, "drawbridge");
*/
You(sit_message, "跳ね橋");
} else if (IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4, 3), FALSE);
/*JP
losehp(rnd(10), "cursed throne", KILLED_BY_AN);
*/
losehp(rnd(10), "呪われた玉座で", KILLED_BY_AN);
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
#if 0 /*JP*/
pline("A%s electric shock shoots through your body!",
(Shock_resistance) ? "n" : " massive");
#else
pline("%s電気があなたの体を走り抜けた！",
(Shock_resistance) ? "" : "激しい");
#endif
/*JP
losehp(Shock_resistance ? rnd(6) : rnd(30), "electric chair",
*/
losehp(Shock_resistance ? rnd(6) : rnd(30), "電気椅子で",
KILLED_BY_AN);
exercise(A_CON, FALSE);
break;
case 4:
/*JP
You_feel("much, much better!");
*/
You_feel("とても，とても元気になったような気がした！");
if (Upolyd) {
if (u.mh >= (u.mhmax - 5))
u.mhmax += 4;
u.mh = u.mhmax;
}
if (u.uhp >= (u.uhpmax - 5))
u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L, TRUE);
make_sick(0L, (char *) 0, FALSE, SICK_ALL);
heal_legs();
context.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if (u.uluck + rn2(5) < 0) {
/*JP
You_feel("your luck is changing.");
*/
pline("運が向いてきた気がする．");
change_luck(1);
} else
makewish();
break;
case 7:
{
int cnt = rnd(10);
/* Magical voice not affected by deafness */
/*JP
pline("A voice echoes:");
*/
pline("声が響いた:");
#if 0 /*JP*/
verbalize("Thy audience hath been summoned, %s!",
flags.female ? "Dame" : "Sire");
#else
verbalize("%sよ！汝の聴衆召喚されし．",
flags.female ? "女" : "男");
#endif
while (cnt--)
(void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
break;
}
case 8:
/* Magical voice not affected by deafness */
/*JP
pline("A voice echoes:");
*/
pline("声が響いた:");
#if 0 /*JP*/
verbalize("By thine Imperious order, %s...",
flags.female ? "Dame" : "Sire");
#else
verbalize("%sよ！汝の傲慢聞きいれようぞ．",
flags.female ? "女" : "男");
#endif
do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
break;
case 9:
/* Magical voice not affected by deafness */
/*JP
pline("A voice echoes:");
*/
pline("声が響いた:");
verbalize(
/*JP
"A curse upon thee for sitting upon this most holy throne!");
*/
"聖なる玉座に座りし汝に呪いあれ！");
if (Luck > 0) {
make_blinded(Blinded + rn1(100, 250), TRUE);
} else
rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
/*JP
pline("A terrible drone fills your head!");
*/
pline("恐しいブンブンという音が頭に響いた！");
make_confused((HConfusion & TIMEOUT) + (long) rnd(30),
FALSE);
} else {
/*JP
pline("An image forms in your mind.");
*/
pline("あるイメージが頭に浮んだ．");
do_mapping();
}
} else {
/*JP
Your("vision becomes clear.");
*/
Your("視界は冴え渡った．");
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
/*JP
You_feel("threatened.");
*/
You("脅迫されているような気がした．");
aggravate();
} else {
/*JP
You_feel("a wrenching sensation.");
*/
You("ねじられたような感覚を感じた．");
tele(); /* teleport him */
}
break;
case 12:
/*JP
You("are granted an insight!");
*/
You("洞察力を得た！");
if (invent) {
/* rn2(5) agrees w/seffects() */
identify_pack(rn2(5), FALSE);
}
break;
case 13:
/*JP
Your("mind turns into a pretzel!");
*/
Your("心はクネクネになった！");
make_confused((HConfusion & TIMEOUT) + (long) rn1(7, 16),
FALSE);
break;
default:
impossible("throne effect");
break;
}
} else {
if (is_prince(youmonst.data))
/*JP
You_feel("very comfortable here.");
*/
You("ここはとても落ち着く．");
else
/*JP
You_feel("somehow out of place...");
*/
You("何か場違いの気がした．．．");
}
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
levl[u.ux][u.uy].typ = ROOM;
/*JP
pline_The("throne vanishes in a puff of logic.");
*/
pline("玉座はふっと消えた．");
newsym(u.ux, u.uy);
}
} else if (lays_eggs(youmonst.data)) {
struct obj *uegg;
if (!flags.female) {
#if 0 /*JP*/
pline("%s can't lay eggs!",
Hallucination
? "You may think you are a platypus, but a male still"
: "Males");
#else
pline("%s雄は卵を産めない！",
Hallucination
? "あなたは自分がカモノハシだと思っているかもしれないが，やっぱり"
: "");
#endif
return 0;
} else if (u.uhunger < (int) objects[EGG].oc_nutrition) {
/*JP
You("don't have enough energy to lay an egg.");
*/
You("卵を産むだけのエネルギーがない．");
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1L;
uegg->owt = weight(uegg);
/* this sets hatch timers if appropriate */
set_corpsenm(uegg, egg_type_from_parent(u.umonnum, FALSE));
uegg->known = uegg->dknown = 1;
/*JP
You("lay an egg.");
*/
You("卵を産んだ．");
dropy(uegg);
stackobj(uegg);
morehungry((int) objects[EGG].oc_nutrition);
} else {
/*JP
pline("Having fun sitting on the %s?", surface(u.ux, u.uy));
*/
pline("%sに座って楽しいかい？", surface(u.ux,u.uy));
}
return 1;
}
/* Potions for the quaffing -RAK- */
void quaff()
{
int32u i, l;
int j, k, item_val;
int ident;
register inven_type *i_ptr;
register struct misc *m_ptr;
register struct flags *f_ptr;
free_turn_flag = TRUE;
if (inven_ctr == 0)
msg_print("But you are not carrying anything.");
else if (!find_range(TV_POTION1, TV_POTION2, &j, &k))
msg_print("You are not carrying any potions.");
else if (get_item(&item_val, "Quaff which potion?", j, k, 0))
{
i_ptr = &inventory[item_val];
i = i_ptr->flags;
free_turn_flag = FALSE;
ident = FALSE;
if (i == 0)
{
msg_print ("You feel less thirsty.");
ident = TRUE;
}
else while (i != 0)
{
j = bit_pos(&i) + 1;
if (i_ptr->tval == TV_POTION2)
j += 32;
/* Potions */
switch(j)
{
case 1:
if (inc_stat (A_STR))
{
msg_print("Wow! What bulging muscles!");
ident = TRUE;
}
break;
case 2:
ident = TRUE;
lose_str();
break;
case 3:
if (res_stat (A_STR))
{
msg_print("You feel warm all over.");
ident = TRUE;
}
break;
case 4:
if (inc_stat (A_INT))
{
msg_print("Aren't you brilliant!");
ident = TRUE;
}
break;
case 5:
ident = TRUE;
lose_int();
break;
case 6:
if (res_stat (A_INT))
{
msg_print("You have a warm feeling.");
ident = TRUE;
}
break;
case 7:
if (inc_stat (A_WIS))
{
msg_print("You suddenly have a profound thought!");
ident = TRUE;
}
break;
case 8:
ident = TRUE;
lose_wis();
break;
case 9:
if (res_stat (A_WIS))
{
msg_print("You feel your wisdom returning.");
ident = TRUE;
}
break;
case 10:
if (inc_stat (A_CHR))
{
msg_print("Gee, ain't you cute!");
ident = TRUE;
}
break;
case 11:
ident = TRUE;
lose_chr();
break;
case 12:
if (res_stat (A_CHR))
{
msg_print("You feel your looks returning.");
ident = TRUE;
}
break;
case 13:
ident = hp_player(damroll(2, 7));
if (py.flags.cut>0) {
py.flags.cut-=10;
if (py.flags.cut<0) py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
break;
case 14:
ident = hp_player(damroll(4, 7));
if (py.flags.cut>0) {
py.flags.cut=(py.flags.cut/2)-50;
if (py.flags.cut<0) py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
break;
case 15:
ident = hp_player(damroll(6, 7));
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("Your head stops stinging.");
}
break;
case 16:
ident = hp_player(400);
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("Your head stops stinging.");
}
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
break;
case 17:
if (inc_stat (A_CON))
{
msg_print("You feel tingly for a moment.");
ident = TRUE;
}
break;
case 18:
m_ptr = &py.misc;
if (m_ptr->exp < MAX_EXP)
{
l = (m_ptr->exp / 2) + 10;
if (l > 100000L) l = 100000L;
m_ptr->exp += l;
msg_print("You feel more experienced.");
prt_experience();
ident = TRUE;
}
break;
case 19:
f_ptr = &py.flags;
if (!f_ptr->free_act)
{
/* paralysis must == 0, otherwise could not drink potion */
msg_print("You fall asleep.");
f_ptr->paralysis += randint(4) + 4;
ident = TRUE;
}
break;
case 20:
f_ptr = &py.flags;
if (!py.flags.blindness_resist) {
if (f_ptr->blind == 0)
{
msg_print("You are covered by a veil of darkness.");
ident = TRUE;
}
f_ptr->blind += randint(100) + 100;
}
break;
case 21:
f_ptr = &py.flags;
if (!f_ptr->confusion_resist)
{
if (f_ptr->confused == 0)
{
msg_print("Hey! This is good stuff! * Hick! *");
ident = TRUE;
}
f_ptr->confused += randint(20) + 12;
}
break;
case 22:
f_ptr = &py.flags;
if (f_ptr->poisoned == 0)
{
msg_print("You feel very sick.");
ident = TRUE;
}
if (!f_ptr->poison_resist)
f_ptr->poisoned += randint(15) + 10;
break;
case 23:
if (py.flags.fast == 0)
ident = TRUE;
if (py.flags.fast <= 0)
{
py.flags.fast += randint(25) + 15;
}
else
py.flags.fast += randint(5);
break;
case 24:
if (py.flags.slow == 0)
ident = TRUE;
py.flags.slow += randint(25) + 15;
break;
case 26:
if (inc_stat (A_DEX))
{
msg_print("You feel more limber!");
ident = TRUE;
}
break;
case 27:
if (res_stat (A_DEX))
{
msg_print("You feel less clumsy.");
ident = TRUE;
}
break;
case 28:
if (res_stat (A_CON))
{
msg_print("You feel your health returning!");
ident = TRUE;
}
break;
case 29:
ident = cure_blindness();
break;
case 30:
ident = cure_confusion();
break;
case 31:
ident = cure_poison();
break;
case 34:
if (!py.flags.hold_life && py.misc.exp>0) {
int32 m, scale;
msg_print("You feel your memories fade.");
m = py.misc.exp / 5;
if (py.misc.exp > MAX_SHORT) {
scale = MAX_LONG / py.misc.exp;
m+=(randint((int)scale)*py.misc.exp)/(scale*5);
}
else m+=randint((int)py.misc.exp)/5;
lose_exp(m);
ident=TRUE;
}
else msg_print
("You feel you memories fade for a moment, but quickly return.");
break;
case 35:
f_ptr = &py.flags;
(void) cure_poison();
if (f_ptr->food > 150) f_ptr->food = 150;
f_ptr->paralysis = 4;
msg_print("The potion makes you vomit!");
ident = TRUE;
break;
case 37:
if (py.flags.hero == 0)
ident = TRUE;
py.flags.hero += randint(25) + 25;
break;
case 38:
if (py.flags.shero == 0)
ident = TRUE;
py.flags.shero += randint(25) + 25;
break;
case 39:
ident = remove_fear();
break;
case 40:
ident = restore_level();
break;
case 41:
f_ptr = &py.flags;
if (f_ptr->resist_heat == 0)
ident = TRUE;
f_ptr->resist_heat += randint(10) + 10;
break;
case 42:
f_ptr = &py.flags;
if (f_ptr->resist_cold == 0)
ident = TRUE;
f_ptr->resist_cold += randint(10) + 10;
break;
case 43:
if (py.flags.detect_inv == 0)
ident = TRUE;
detect_inv2(randint(12)+12);
break;
case 44:
ident = slow_poison();
break;
case 45:
ident = cure_poison();
break;
case 46:
m_ptr = &py.misc;
if (m_ptr->cmana < m_ptr->mana)
{
m_ptr->cmana = m_ptr->mana;
ident = TRUE;
msg_print("Your feel your head clear.");
prt_cmana();
}
break;
case 47:
f_ptr = &py.flags;
if (f_ptr->tim_infra == 0)
{
msg_print("Your eyes begin to tingle.");
ident = TRUE;
}
f_ptr->tim_infra += 100 + randint(100);
break;
case 48:
wizard_light(TRUE);
if (!res_stat(A_WIS)) inc_stat(A_WIS);
if (!res_stat(A_INT)) inc_stat(A_INT);
msg_print("You feel more enlightened!");
identify_pack();
ident=TRUE;
break;
case 49:
msg_print("Massive explosions rupture your body!");
take_hit(damroll(50,20),"a potion of Detonation");
cut_player(5000);
stun_player(75);
ident=TRUE;
break;
case 50:
msg_print("A feeling of Death flows through your body.");
take_hit(5000,"a potion of Death");
ident=TRUE;
break;
case 51:
if (restore_level() | res_stat(A_STR) | res_stat(A_CON) |
res_stat(A_DEX) | res_stat(A_WIS) | res_stat(A_INT) |
res_stat(A_CHR) | hp_player(5000) | cure_poison() |
cure_blindness() | cure_confusion() | (py.flags.stun>0) |
(py.flags.cut>0) | (py.flags.image>0) | remove_fear()) {
ident=TRUE;
py.flags.cut=0;
py.flags.image=0;
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
}
}
break;
case 52:
if (inc_stat(A_DEX) | inc_stat(A_WIS) | inc_stat(A_INT) |
inc_stat(A_STR) | inc_stat(A_CHR) | inc_stat(A_CON)) {
ident=TRUE;
msg_print("You feel power flow through your body!");
}
break;
case 53:
take_hit(damroll(10,10),"a potion of Ruination");
ruin_stat(A_DEX);
ruin_stat(A_WIS);
ruin_stat(A_CON);
ruin_stat(A_STR);
ruin_stat(A_CHR);
ruin_stat(A_INT);
ident=TRUE;
msg_print("Your nerves and muscles feel weak and lifeless");
break;
case 54:
wizard_light(TRUE);
msg_print("An image of your surroundings forms in your mind");
ident = TRUE;
break;
case 55:
msg_print("You feel you know yourself a little better...");
self_knowledge();
ident = TRUE;
break;
case 56: /* *Healing* */
ident = hp_player(1200);
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("Your head stops stinging.");
}
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
if (cure_blindness()) ident = TRUE;
if (cure_confusion()) ident = TRUE;
if (cure_poison()) ident = TRUE;
break;
default:
if (1) {
char tmp_str[100];
msg_print ("Internal error in potion()");
sprintf(tmp_str, "Number %d...", j);
msg_print (tmp_str);
}
break;
}
/* End of Potions. */
}
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level + (m_ptr->lev >> 1)) / m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
static bool quaff_potion(object_type *o_ptr, bool *ident)
{
/* Analyze the potion */
switch (o_ptr->sval)
{
case SV_POTION_WATER:
case SV_POTION_APPLE_JUICE:
case SV_POTION_SLIME_MOLD:
{
msg_print("Вы утолили жажду.");
*ident = TRUE;
break;
}
case SV_POTION_SLOWNESS:
{
if (set_slow(p_ptr->slow + randint(25) + 15)) *ident = TRUE;
break;
}
case SV_POTION_SALT_WATER:
{
msg_print("Вя-а-а! Вас стошнило!");
(void)set_food(PY_FOOD_STARVE - 1);
(void)set_poisoned(0);
(void)set_paralyzed(p_ptr->paralyzed + 4);
*ident = TRUE;
break;
}
case SV_POTION_POISON:
{
if (!(p_ptr->resist_pois || p_ptr->oppose_pois))
{
if (set_poisoned(p_ptr->poisoned + rand_int(15) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_BLINDNESS:
{
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + rand_int(100) + 100))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_CONFUSION:
{
if (!p_ptr->resist_confu)
{
if (set_confused(p_ptr->confused + rand_int(20) + 15))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_SLEEP:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(p_ptr->paralyzed + rand_int(4) + 4))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_LOSE_MEMORIES:
{
if (!p_ptr->hold_life && (p_ptr->exp > 0))
{
msg_print("Ваша жизнь меркнет.");
lose_exp(p_ptr->exp / 4);
*ident = TRUE;
}
break;
}
case SV_POTION_RUINATION:
{
msg_print("Ваши нервы и мускулы кажутся слабыми и безжизненными!");
take_hit(damroll(10, 10), "зельем Ослабевания");
(void)dec_stat(A_DEX, 25, TRUE);
(void)dec_stat(A_WIS, 25, TRUE);
(void)dec_stat(A_CON, 25, TRUE);
(void)dec_stat(A_STR, 25, TRUE);
(void)dec_stat(A_CHR, 25, TRUE);
(void)dec_stat(A_INT, 25, TRUE);
*ident = TRUE;
break;
}
case SV_POTION_DEC_STR:
{
if (do_dec_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_DEC_INT:
{
if (do_dec_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_DEC_WIS:
{
if (do_dec_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_DEC_DEX:
{
if (do_dec_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CON:
{
if (do_dec_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CHR:
{
if (do_dec_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_DETONATIONS:
{
msg_print("Массивные взрывы сотрясают ваше тело!");
take_hit(damroll(50, 20), "зельем взрыва");
(void)set_stun(p_ptr->stun + 75);
(void)set_cut(p_ptr->cut + 5000);
*ident = TRUE;
break;
}
case SV_POTION_DEATH:
{
msg_print("Чувство Смерти протекает сквозь вас...");
take_hit(5000, "зельем Смерти");
*ident = TRUE;
break;
}
case SV_POTION_INFRAVISION:
{
if (set_tim_infra(p_ptr->tim_infra + 100 + randint(100)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_DETECT_INVIS:
{
if (set_tim_invis(p_ptr->tim_invis + 12 + randint(12)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_SLOW_POISON:
{
if (set_poisoned(p_ptr->poisoned / 2)) *ident = TRUE;
break;
}
case SV_POTION_CURE_POISON:
{
if (set_poisoned(0)) *ident = TRUE;
break;
}
case SV_POTION_BOLDNESS:
{
if (set_afraid(0)) *ident = TRUE;
break;
}
case SV_POTION_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(25) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case SV_POTION_RESIST_HEAT:
{
if (set_oppose_fire(p_ptr->oppose_fire + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_RESIST_COLD:
{
if (set_oppose_cold(p_ptr->oppose_cold + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_HEROISM:
{
if (hp_player(10)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_hero(p_ptr->hero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_BERSERK_STRENGTH:
{
if (hp_player(30)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_shero(p_ptr->shero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_CURE_LIGHT:
{
if (hp_player(damroll(2, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_cut(p_ptr->cut - 10)) *ident = TRUE;
break;
}
case SV_POTION_CURE_SERIOUS:
{
if (hp_player(damroll(4, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_cut((p_ptr->cut / 2) - 50)) *ident = TRUE;
break;
}
case SV_POTION_CURE_CRITICAL:
{
if (hp_player(damroll(6, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_HEALING:
{
if (hp_player(300)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_STAR_HEALING:
{
if (hp_player(1200)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_LIFE:
{
msg_print("Чуство Жизни протекает в вас!");
restore_level();
(void)set_poisoned(0);
(void)set_blind(0);
(void)set_confused(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
/* Recalculate max. hitpoints */
update_stuff();
hp_player(5000);
*ident = TRUE;
break;
}
case SV_POTION_RESTORE_MANA:
{
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
msg_print("Ваша голова проясняется.");
p_ptr->redraw |= (PR_MANA);
p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
*ident = TRUE;
}
break;
}
case SV_POTION_RESTORE_EXP:
{
if (restore_level()) *ident = TRUE;
break;
}
case SV_POTION_RES_STR:
{
if (do_res_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_RES_INT:
{
if (do_res_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_RES_WIS:
{
if (do_res_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_RES_DEX:
{
if (do_res_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_RES_CON:
{
if (do_res_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_RES_CHR:
{
if (do_res_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_INC_STR:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_INC_INT:
{
if (do_inc_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_INC_WIS:
{
if (do_inc_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_INC_DEX:
{
if (do_inc_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_INC_CON:
{
if (do_inc_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_INC_CHR:
{
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_AUGMENTATION:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
if (do_inc_stat(A_INT)) *ident = TRUE;
if (do_inc_stat(A_WIS)) *ident = TRUE;
if (do_inc_stat(A_DEX)) *ident = TRUE;
if (do_inc_stat(A_CON)) *ident = TRUE;
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_ENLIGHTENMENT:
{
msg_print("Изображение подземелья формируется у вас в голове...");
wiz_lite();
*ident = TRUE;
break;
}
case SV_POTION_STAR_ENLIGHTENMENT:
{
msg_print("Вы чувствуете себя просвещенным...");
message_flush();
wiz_lite();
(void)do_inc_stat(A_INT);
(void)do_inc_stat(A_WIS);
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
(void)detect_treasure();
(void)detect_objects_gold();
(void)detect_objects_normal();
identify_pack();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_SELF_KNOWLEDGE:
{
msg_print("Вы познаете себя немного лучше...");
message_flush();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_EXPERIENCE:
{
if (p_ptr->exp < PY_MAX_EXP)
{
s32b ee = (p_ptr->exp / 2) + 10;
if (ee > 100000L) ee = 100000L;
msg_print("Вы чувствуете себя более опытным.");
gain_exp(ee);
*ident = TRUE;
}
break;
}
}
return (TRUE);
}
