/* decide whether hero's steed is able to move;
* doesn't check for holding traps--those affect the hero directly */
boolean
stucksteed (boolean checkfeeding)
{
struct monst *steed = u.usteed;
if (steed) {
if (steed->msleeping || !u.usteed->mcanmove) {
pline("%s won't move!", msgupcasefirst(y_monnam(steed)));
return TRUE;
} else if (checkfeeding && steed->meating) {
pline("%s is still eating.", msgupcasefirst(y_monnam(u.usteed)));
return TRUE;
}
}
return FALSE;
}
/* caller has decided that hero can't reach something while mounted */
void
rider_cant_reach()
{
/*JP
You("aren't skilled enough to reach from %s.", y_monnam(u.usteed));
*/
You("まだ十分に技量を積んでいないので、%sから届かない。", y_monnam(u.usteed));
}
void
rndcurse() /* curse a few inventory items at random! */
{
int nobj = 0;
int cnt, onum;
struct obj *otmp;
static const char mal_aura[] = "VERB_SPUEREN eine bösartige Aura um OBJECT %s."; /* EN static const char mal_aura[] = "feel a malignant aura surround %s."; */
if (uwep && (uwep->oartifact == ART_MAGICBANE) && rn2(20)) {
You(mal_aura, "ARTIKEL_BESTIMMTER ADJEKTIV_MAGIE_ABSORBIEREND NOUN_KLINGE"); /* EN You(mal_aura, "the magic-absorbing blade"); */
return;
}
if(Antimagic) {
shieldeff(u.ux, u.uy);
You(mal_aura, "PRONOMEN_PERSONAL"); /* EN You(mal_aura, "you"); */
}
for (otmp = invent; otmp; otmp = otmp->nobj) {
#ifdef GOLDOBJ
/* gold isn't subject to being cursed or blessed */
if (otmp->oclass == COIN_CLASS) continue;
#endif
nobj++;
}
if (nobj) {
for (cnt = rnd(6/((!!Antimagic) + (!!Half_spell_damage) + 1));
cnt > 0; cnt--) {
onum = rnd(nobj);
for (otmp = invent; otmp; otmp = otmp->nobj) {
#ifdef GOLDOBJ
/* as above */
if (otmp->oclass == COIN_CLASS) continue;
#endif
if (--onum == 0) break; /* found the target */
}
/* the !otmp case should never happen; picking an already
cursed item happens--avoid "resists" message in that case */
if (!otmp || otmp->cursed) continue; /* next target */
if(otmp->oartifact && spec_ability(otmp, SPFX_INTEL) &&
rn2(10) < 8) {
pline("%s!", Tobjnam(otmp, "VERB_WIDERSTEHEN")); /* EN pline("%s!", Tobjnam(otmp, "resist")); */
continue;
}
if(otmp->blessed)
unbless(otmp);
else
curse(otmp);
}
update_inventory();
}
#ifdef STEED
/* treat steed's saddle as extended part of hero's inventory */
if (u.usteed && !rn2(4) &&
(otmp = which_armor(u.usteed, W_SADDLE)) != 0 &&
!otmp->cursed) { /* skip if already cursed */
if (otmp->blessed)
unbless(otmp);
else
curse(otmp);
if (!Blind) {
pline("SUBJECT %s %s %s.", /* EN pline("%s %s %s.", */
genitivattribut_zu_wort(y_monnam(u.usteed), /* EN s_suffix(upstart(y_monnam(u.usteed))), */
cxname(otmp)), "VERB_LEUCHTEN", /* EN aobjnam(otmp, "glow"), */
hcolor(otmp->cursed ? NH_BLACK : (const char *)"ADJEKTIV_FARBE_BRAUN")); /* EN hcolor(otmp->cursed ? NH_BLACK : (const char *)"brown")); */
otmp->bknown = TRUE;
}
}
#endif /*STEED*/
}
/* caller has decided that hero can't reach something while mounted */
void
rider_cant_reach()
{
You("aren't skilled enough to reach from %s.", y_monnam(u.usteed));
}
void
rndcurse() /* curse a few inventory items at random! */
{
int nobj = 0;
int cnt, onum;
struct obj *otmp;
static const char mal_aura[] = "feel a malignant aura surround %s.";
if (uwep && (uwep->oartifact == ART_MAGICBANE) && rn2(20)) {
You(mal_aura, "the magic-absorbing blade");
return;
}
if(Antimagic) {
shieldeff(u.ux, u.uy);
You(mal_aura, "you");
}
for (otmp = invent; otmp; otmp = otmp->nobj) {
#ifdef GOLDOBJ
/* gold isn't subject to being cursed or blessed */
if (otmp->oclass == COIN_CLASS) continue;
#endif
nobj++;
}
if (nobj) {
for (cnt = rnd(6/((!!Antimagic) + (!!Half_spell_damage) + 1));
cnt > 0; cnt--) {
onum = rnd(nobj);
for (otmp = invent; otmp; otmp = otmp->nobj) {
#ifdef GOLDOBJ
/* as above */
if (otmp->oclass == COIN_CLASS) continue;
#endif
if (--onum == 0) break; /* found the target */
}
/* the !otmp case should never happen; picking an already
cursed item happens--avoid "resists" message in that case */
if (!otmp || otmp->cursed) continue; /* next target */
if(otmp->oartifact && spec_ability(otmp, SPFX_INTEL) &&
rn2(10) < 8) {
pline("%s!", Tobjnam(otmp, "resist"));
continue;
}
if(otmp->blessed)
unbless(otmp);
else
curse(otmp);
}
update_inventory();
}
#ifdef STEED
/* treat steed's saddle as extended part of hero's inventory */
if (u.usteed && !rn2(4) &&
(otmp = which_armor(u.usteed, W_SADDLE)) != 0 &&
!otmp->cursed) { /* skip if already cursed */
if (otmp->blessed)
unbless(otmp);
else
curse(otmp);
if (!Blind) {
pline("%s %s %s.",
s_suffix(upstart(y_monnam(u.usteed))),
aobjnam(otmp, "glow"),
hcolor(otmp->cursed ? NH_BLACK : (const char *)"brown"));
otmp->bknown = TRUE;
}
}
#endif /*STEED*/
}
static void
describe_mon(int x, int y, int monnum, char *buf)
{
char race[QBUFSZ];
const char *name;
boolean accurate = !Hallucination;
char steedbuf[BUFSZ];
struct monst *mtmp;
char visionbuf[BUFSZ], temp_buf[BUFSZ];
static const int maximum_output_len = 78;
if (monnum == -1)
return;
if (u.ux == x && u.uy == y && senseself()) {
/* if not polymorphed, show both the role and the race */
race[0] = 0;
if (!Upolyd)
snprintf(race, SIZE(race), "%s ", urace.adj);
sprintf(buf, "%s%s%s called %s", Invis ? "invisible " : "", race,
mons[u.umonnum].mname, u.uplname);
if (u.usteed) {
snprintf(steedbuf, SIZE(steedbuf), ", mounted on %s", y_monnam(u.usteed));
/* assert((sizeof buf >= strlen(buf)+strlen(steedbuf)+1); */
strcat(buf, steedbuf);
}
/* When you see yourself normally, no explanation is appended (even if
you could also see yourself via other means). Sensing self while
blind or swallowed is treated as if it were by normal vision (cf
canseeself()). */
if ((Invisible || u.uundetected) && !Blind && !Engulfed) {
unsigned how = 0;
if (Infravision)
how |= 1;
if (Unblind_telepat)
how |= 2;
if (Detect_monsters)
how |= 4;
if (how)
sprintf(buf + strlen(buf), " [seen: %s%s%s%s%s]",
(how & 1) ? "infravision" : "",
/* add comma if telep and infrav */
((how & 3) > 2) ? ", " : "",
(how & 2) ? "telepathy" : "",
/* add comma if detect and (infrav or telep or both) */
((how & 7) > 4) ? ", " : "",
(how & 4) ? "monster detection" : "");
}
} else if (monnum >= NUMMONS) {
monnum -= NUMMONS;
if (monnum < WARNCOUNT)
strcat(buf, warnexplain[monnum]);
} else if ((mtmp = m_at(level, x, y))) {
bhitpos.x = x;
bhitpos.y = y;
if (mtmp->data == &mons[PM_COYOTE] && accurate && !mtmp->mpeaceful)
name = an(coyotename(mtmp));
else
name = distant_monnam(
mtmp, (mtmp->mtame && accurate) ? "tame" :
(mtmp->mpeaceful && accurate) ? "peaceful" : NULL,
ARTICLE_A);
boolean spotted = canspotmon(mtmp);
if (!spotted && (mtmp->mx != x || mtmp->my != y))
name = "an unseen long worm";
else if (!spotted)
/* we can't safely impossible/panic from this point in the code;
well, we /could/, but as it's called on every mouse movement,
it'd quickly get very confusing and possibly lead to recursive
panics; just put up an obvious message instead */
name = "a <BUG: monster both seen and unseen>";
snprintf(buf, BUFSZ-1, "%s%s",
(mtmp->mx != x || mtmp->my != y) ? "tail of " : "", name);
buf[BUFSZ-1] = '\0';
if (u.ustuck == mtmp)
strcat(buf,
(Upolyd &&
sticks(youmonst.data)) ? ", being held" : ", holding you");
if (mtmp->mleashed)
strcat(buf, ", leashed to you");
if (mtmp->mtrapped && cansee(mtmp->mx, mtmp->my)) {
struct trap *t = t_at(level, mtmp->mx, mtmp->my);
int tt = t ? t->ttyp : NO_TRAP;
/* newsym lets you know of the trap, so mention it here */
if (tt == BEAR_TRAP || tt == PIT || tt == SPIKED_PIT || tt == WEB)
sprintf(buf + strlen(buf),
", trapped in %s", an(trapexplain[tt - 1]));
}
#ifdef DEBUG_STRATEGY
if (wizard) {
snprintf(temp_buf, SIZE(temp_buf),
", strategy %08lx, muxy %02x%02x",
(unsigned long)mtmp->mstrategy,
(int)mtmp->mux, (int)mtmp->muy);
strncat(buf, temp_buf, maximum_output_len - strlen(buf) - 1);
}
#endif
/* Don't mention how a long worm tail is seen; msensem() only works on
monster heads. (Probably, the only unusual way to see a long worm
tail is see invisible, anyway.) */
if (mtmp->mx == x && mtmp->my == y) {
mon_vision_summary(mtmp, visionbuf);
if (visionbuf[0]) {
snprintf(temp_buf, SIZE(temp_buf), " [seen: %s]", visionbuf);
strncat(buf, temp_buf, maximum_output_len - strlen(buf) - 1);
}
}
}
}
int dogaze(void)
{
struct monst *mtmp;
int looked = 0;
char qbuf[QBUFSZ];
int i;
uchar adtyp = 0;
for (i = 0; i < NATTK; i++) {
if (youmonst.data->mattk[i].aatyp == AT_GAZE) {
adtyp = youmonst.data->mattk[i].adtyp;
break;
}
}
if (adtyp != AD_CONF && adtyp != AD_FIRE) {
impossible("gaze attack %d?", adtyp);
return 0;
}
if (Blind) {
pline("You can't see anything to gaze at.");
return 0;
}
if (u.uen < 15) {
pline("You lack the energy to use your special gaze!");
return 0;
}
u.uen -= 15;
iflags.botl = 1;
for (mtmp = level->monlist; mtmp; mtmp = mtmp->nmon) {
if (DEADMONSTER(mtmp)) continue;
if (canseemon(mtmp) && couldsee(mtmp->mx, mtmp->my)) {
looked++;
if (Invis && !perceives(mtmp->data))
pline("%s seems not to notice your gaze.", Monnam(mtmp));
else if (mtmp->minvis && !See_invisible)
pline("You can't see where to gaze at %s.", Monnam(mtmp));
else if (mtmp->m_ap_type == M_AP_FURNITURE
|| mtmp->m_ap_type == M_AP_OBJECT) {
looked--;
continue;
} else if (flags.safe_dog && !Confusion && !Hallucination
&& mtmp->mtame) {
pline("You avoid gazing at %s.", y_monnam(mtmp));
} else {
if (flags.confirm && mtmp->mpeaceful && !Confusion
&& !Hallucination) {
sprintf(qbuf, "Really %s %s?",
(adtyp == AD_CONF) ? "confuse" : "attack",
mon_nam(mtmp));
if (yn(qbuf) != 'y') continue;
setmangry(mtmp);
}
if (!mtmp->mcanmove || mtmp->mstun || mtmp->msleeping ||
!mtmp->mcansee || !haseyes(mtmp->data)) {
looked--;
continue;
}
/* No reflection check for consistency with when a monster
* gazes at *you*--only medusa gaze gets reflected then.
*/
if (adtyp == AD_CONF) {
if (!mtmp->mconf)
pline("Your gaze confuses %s!", mon_nam(mtmp));
else
pline("%s is getting more and more confused.",
Monnam(mtmp));
mtmp->mconf = 1;
} else if (adtyp == AD_FIRE) {
int dmg = dice(2,6);
pline("You attack %s with a fiery gaze!", mon_nam(mtmp));
if (resists_fire(mtmp)) {
pline("The fire doesn't burn %s!", mon_nam(mtmp));
dmg = 0;
}
if ((int) u.ulevel > rn2(20))
destroy_mitem(mtmp, SCROLL_CLASS, AD_FIRE);
if ((int) u.ulevel > rn2(20))
destroy_mitem(mtmp, POTION_CLASS, AD_FIRE);
if ((int) u.ulevel > rn2(25))
destroy_mitem(mtmp, SPBOOK_CLASS, AD_FIRE);
if (dmg && !DEADMONSTER(mtmp)) mtmp->mhp -= dmg;
if (mtmp->mhp <= 0) killed(mtmp);
}
/* For consistency with passive() in uhitm.c, this only
* affects you if the monster is still alive.
*/
if (!DEADMONSTER(mtmp) &&
(mtmp->data==&mons[PM_FLOATING_EYE]) && !mtmp->mcan) {
if (!Free_action) {
pline("You are frozen by %s gaze!",
s_suffix(mon_nam(mtmp)));
nomul((u.ulevel > 6 || rn2(4)) ?
-dice((int)mtmp->m_lev+1,
(int)mtmp->data->mattk[0].damd)
: -200, "frozen by a monster's gaze");
return 1;
} else
pline("You stiffen momentarily under %s gaze.",
s_suffix(mon_nam(mtmp)));
}
/* Technically this one shouldn't affect you at all because
* the Medusa gaze is an active monster attack that only
* works on the monster's turn, but for it to *not* have an
* effect would be too weird.
*/
if (!DEADMONSTER(mtmp) &&
(mtmp->data == &mons[PM_MEDUSA]) && !mtmp->mcan) {
pline(
"Gazing at the awake %s is not a very good idea.",
l_monnam(mtmp));
/* as if gazing at a sleeping anything is fruitful... */
pline("You turn to stone...");
killer_format = KILLED_BY;
killer = "deliberately meeting Medusa's gaze";
done(STONING);
}
}
}
}
if (!looked) pline("You gaze at no place in particular.");
return 1;
}
static void describe_mon(int x, int y, int monnum, char *buf)
{
char race[QBUFSZ];
char *name, monnambuf[BUFSZ];
boolean accurate = !Hallucination;
char steedbuf[BUFSZ];
struct monst *mtmp;
char visionbuf[BUFSZ], temp_buf[BUFSZ];
if (monnum == -1)
return;
if (u.ux == x && u.uy == y && senseself()) {
/* if not polymorphed, show both the role and the race */
race[0] = 0;
if (!Upolyd)
sprintf(race, "%s ", urace.adj);
sprintf(buf, "%s%s%s called %s",
Invis ? "invisible " : "",
race,
mons[u.umonnum].mname,
plname);
if (u.usteed) {
sprintf(steedbuf, ", mounted on %s", y_monnam(u.usteed));
/* assert((sizeof buf >= strlen(buf)+strlen(steedbuf)+1); */
strcat(buf, steedbuf);
}
/* When you see yourself normally, no explanation is appended
(even if you could also see yourself via other means).
Sensing self while blind or swallowed is treated as if it
were by normal vision (cf canseeself()). */
if ((Invisible || u.uundetected) && !Blind && !u.uswallow) {
unsigned how = 0;
if (Infravision) how |= 1;
if (Unblind_telepat) how |= 2;
if (Detect_monsters) how |= 4;
if (how)
sprintf(eos(buf), " [seen: %s%s%s%s%s]",
(how & 1) ? "infravision" : "",
/* add comma if telep and infrav */
((how & 3) > 2) ? ", " : "",
(how & 2) ? "telepathy" : "",
/* add comma if detect and (infrav or telep or both) */
((how & 7) > 4) ? ", " : "",
(how & 4) ? "monster detection" : "");
}
} else if (monnum >= NUMMONS) {
monnum -= NUMMONS;
if (monnum < WARNCOUNT)
strcat(buf, warnexplain[monnum]);
} else if ( (mtmp = m_at(level, x,y)) ) {
bhitpos.x = x;
bhitpos.y = y;
if (mtmp->data == &mons[PM_COYOTE] && accurate)
name = coyotename(mtmp, monnambuf);
else
name = distant_monnam(mtmp, ARTICLE_NONE, monnambuf);
sprintf(buf, "%s%s%s",
(mtmp->mx != x || mtmp->my != y) ?
((mtmp->isshk && accurate)
? "tail of " : "tail of a ") : "",
(mtmp->mtame && accurate) ? "tame " :
(mtmp->mpeaceful && accurate) ? "peaceful " : "",
name);
if (u.ustuck == mtmp)
strcat(buf, (Upolyd && sticks(youmonst.data)) ?
", being held" : ", holding you");
if (mtmp->mleashed)
strcat(buf, ", leashed to you");
if (mtmp->mtrapped && cansee(mtmp->mx, mtmp->my)) {
struct trap *t = t_at(level, mtmp->mx, mtmp->my);
int tt = t ? t->ttyp : NO_TRAP;
/* newsym lets you know of the trap, so mention it here */
if (tt == BEAR_TRAP || tt == PIT ||
tt == SPIKED_PIT || tt == WEB)
sprintf(eos(buf), ", trapped in %s", an(trapexplain[tt]));
}
mon_vision_summary(mtmp, visionbuf);
if (visionbuf[0]) {
sprintf(temp_buf, " [seen: %s]", visionbuf);
strncat(buf, temp_buf, BUFSZ-strlen(buf)-1);
}
}
}
/* caller has decided that hero can't reach something while mounted */
void
rider_cant_reach(void)
{
pline("You aren't skilled enough to reach from %s.", y_monnam(u.usteed));
}
