void
take_gold()
{
#ifndef GOLDOBJ
if (u.ugold <= 0) {
You_feel("a strange sensation.");
} else {
You("notice you have no gold!");
u.ugold = 0;
flags.botl = 1;
}
#else
struct obj *otmp, *nobj;
int lost_money = 0;
for (otmp = invent; otmp; otmp = nobj) {
nobj = otmp->nobj;
if (otmp->oclass == COIN_CLASS) {
lost_money = 1;
delobj(otmp);
}
}
if (!lost_money) {
You_feel("a strange sensation.");
} else {
You("notice you have no money!");
flags.botl = 1;
}
#endif
}
/* take away the hero's money */
void
take_gold()
{
struct obj *otmp, *nobj;
int lost_money = 0;
for (otmp = invent; otmp; otmp = nobj) {
nobj = otmp->nobj;
if (otmp->oclass == COIN_CLASS) {
lost_money = 1;
remove_worn_item(otmp, FALSE);
delobj(otmp);
}
}
if (!lost_money) {
/*JP
You_feel("a strange sensation.");
*/
You("奇妙な感覚を覚えた．");
} else {
/*JP
You("notice you have no money!");
*/
You("お金を持ってないことに気がついた！");
context.botl = 1;
}
}
int domindblast (void) {
struct monst *mtmp, *nmon;
if (u.uen < 10) {
You("concentrate but lack the energy to maintain doing so.");
return(0);
}
u.uen -= 10;
You("concentrate.");
pline("A wave of psychic energy pours out.");
for(mtmp=fmon; mtmp; mtmp = nmon) {
int u_sen;
nmon = mtmp->nmon;
if (DEADMONSTER(mtmp))
continue;
if (distu(mtmp->mx, mtmp->my) > BOLT_LIM * BOLT_LIM)
continue;
if (mtmp->mpeaceful)
continue;
u_sen = telepathic(mtmp->data) && !mtmp->mcansee;
if (u_sen || (telepathic(mtmp->data) && rn2(2)) || !rn2(10)) {
You("lock in on %s %s.", "TODO: s_suffix(mon_nam(mtmp))",
u_sen ? "telepathy" :
telepathic(mtmp->data) ? "latent telepathy" :
"mind");
mtmp->mhp -= rnd(15);
if (mtmp->mhp <= 0)
killed(mtmp);
}
}
return 1;
}
void
take_gold()
{
#ifndef GOLDOBJ
if (u.ugold <= 0) {
You("VERB_HAVE eine seltsame Empfindung."); /* EN You_feel("a strange sensation."); */
} else {
You("VERB_BEMERKEN, dass SUBJECT_IM_SATZ PRONOMEN_PERSONAL kein Gold mehr VERB_HAVE!"); /* EN You("notice you have no gold!"); */
u.ugold = 0;
flags.botl = 1;
}
#else
struct obj *otmp, *nobj;
int lost_money = 0;
for (otmp = invent; otmp; otmp = nobj) {
nobj = otmp->nobj;
if (otmp->oclass == COIN_CLASS) {
lost_money = 1;
delobj(otmp);
}
}
if (!lost_money) {
You("VERB_HAVE eine seltsame Empfindung."); /* EN You_feel("a strange sensation."); */
} else {
You("VERB_BEMERKEN, dass SUBJECT_IM_SATZ PRONOMEN_PERSONAL kein Gold mehr VERB_HAVE!"); /* EN You("notice you have no money!"); */
flags.botl = 1;
}
#endif
}
int
dothrow()
{
register struct obj *obj;
if(check_capacity(NULL)) return(0);
obj = getobj(toss_objs, "throw");
/* it is also possible to throw food */
/* (or jewels, or iron balls... ) */
if(!obj || !getdir(NULL)) { /* ask "in what direction?" */
if (obj && obj->oclass == GOLD_CLASS) {
u.ugold += obj->quan;
flags.botl = 1;
dealloc_obj(obj);
}
return(0);
}
if(obj->oclass == GOLD_CLASS) return(throw_gold(obj));
if(!canletgo(obj,"throw"))
return(0);
if (obj->oartifact == ART_MJOLLNIR && obj != uwep) {
You("must be wielding %s in order to throw it.", xname(obj));
return(0);
}
if ((obj->oartifact == ART_MJOLLNIR && ACURR(A_STR) != 125)
|| (obj->otyp == BOULDER
#ifdef POLYSELF
&& !throws_rocks(uasmon)
#endif
)) {
pline("It's too heavy.");
return(1);
}
if(!u.dx && !u.dy && !u.dz) {
You("cannot throw an object at yourself.");
return(0);
}
u_wipe_engr(2);
if(obj == uwep) {
if(welded(obj)) {
weldmsg(obj, FALSE);
return(1);
}
if(obj->quan > 1L)
setuwep(splitobj(obj, 1L));
else {
setuwep((struct obj *)0);
if (uwep) return(1); /* unwielded, died, rewielded */
}
}
else if(obj->quan > 1L)
(void) splitobj(obj, 1L);
freeinv(obj);
return(throwit(obj));
}
void exerchk (void) {
int i, mod_val;
/* Check out the periodic accumulations */
exerper();
/* Are we ready for a test? */
if(moves >= next_check && !multi) {
/*
* Law of diminishing returns (Part II):
*
* The effects of "exercise" and "abuse" wear
* off over time. Even if you *don't* get an
* increase/decrease, you lose some of the
* accumulated effects.
*/
for(i = 0; i < A_MAX; AEXE(i++) /= 2) {
if(ABASE(i) >= 18 || !AEXE(i)) continue;
if(i == A_INT || i == A_CHA) continue;/* can't exercise these */
/*
* Law of diminishing returns (Part III):
*
* You don't *always* gain by exercising.
* [MRS 92/10/28 - Treat Wisdom specially for balance.]
*/
if(rn2(AVAL) > ((i != A_WIS) ? abs(AEXE(i)*2/3) : abs(AEXE(i))))
continue;
mod_val = sgn(AEXE(i));
if(adjattrib(i, mod_val, -1)) {
/* if you actually changed an attrib - zero accumulation */
AEXE(i) = 0;
/* then print an explanation */
switch(i) {
case A_STR: You((mod_val >0) ?
"must have been exercising." :
"must have been abusing your body.");
break;
case A_WIS: You((mod_val >0) ?
"must have been very observant." :
"haven't been paying attention.");
break;
case A_DEX: You((mod_val >0) ?
"must have been working on your reflexes." :
"haven't been working on reflexes lately.");
break;
case A_CON: You((mod_val >0) ?
"must be leading a healthy life-style." :
"haven't been watching your health.");
break;
}
}
}
next_check += rn1(200,800);
}
}
void
attrcurse() /* remove a random INTRINSIC ability */
{
switch(rnd(10)) {
case 1 : if (HFire_resistance & INTRINSIC) {
HFire_resistance &= ~INTRINSIC;
You("feel warmer.");
break;
}
case 2 : if (HTeleportation & INTRINSIC) {
HTeleportation &= ~INTRINSIC;
You("feel less jumpy.");
break;
}
case 3 : if (HPoison_resistance & INTRINSIC) {
HPoison_resistance &= ~INTRINSIC;
You("feel a little sick!");
break;
}
case 4 : if (HTelepat & INTRINSIC) {
HTelepat &= ~INTRINSIC;
if (Blind && !Telepat)
see_monsters(); /* Can't sense mons anymore! */
Your("senses fail!");
break;
}
case 5 : if (HCold_resistance & INTRINSIC) {
HCold_resistance &= ~INTRINSIC;
You("feel cooler.");
break;
}
case 6 : if (HInvis & INTRINSIC) {
HInvis &= ~INTRINSIC;
You("feel paranoid.");
break;
}
case 7 : if (HSee_invisible & INTRINSIC) {
HSee_invisible &= ~INTRINSIC;
You("thought you saw something!");
break;
}
case 8 : if (Fast & INTRINSIC) {
Fast &= ~INTRINSIC;
You("feel slower.");
break;
}
case 9 : if (Stealth & INTRINSIC) {
Stealth &= ~INTRINSIC;
You("feel clumsy.");
break;
}
case 10: if (Protection & INTRINSIC) {
Protection &= ~INTRINSIC;
You("feel vulnerable.");
break;
}
default: break;
}
}
void
take_gold()
{
if (u.ugold <= 0) {
You("feel a strange sensation.");
} else {
You("notice you have no gold!");
u.ugold = 0;
flags.botl = 1;
}
}
int
dosummon (void)
{
int placeholder;
if (u.uen < 10) {
You("lack the energy to send forth a call for help!");
return(0);
}
u.uen -= 10;
You("call upon your brethren for help!");
exercise(A_WIS, true);
if (!were_summon(youmonst.data, true, &placeholder, (char *)0))
pline("But none arrive.");
return(1);
}
static void
drop_weapon (int alone)
{
struct obj *otmp;
struct obj *otmp2;
if ((otmp = uwep) != 0) {
/* !alone check below is currently superfluous but in the
* future it might not be so if there are monsters which cannot
* wear gloves but can wield weapons
*/
if (!alone || cantwield(youmonst.data)) {
struct obj *wep = uwep;
if (alone) You("find you must drop your weapon%s!",
u.twoweap ? "s" : "");
otmp2 = u.twoweap ? uswapwep : 0;
uwepgone();
if (!wep->cursed || wep->otyp != LOADSTONE)
dropx(otmp);
if (otmp2 != 0) {
uswapwepgone();
if (!otmp2->cursed || otmp2->otyp != LOADSTONE)
dropx(otmp2);
}
untwoweapon();
} else if (!could_twoweap(youmonst.data)) {
untwoweapon();
}
}
}
void
rndcurse() { /* curse a few inventory items at random! */
int nobj = 0;
int cnt, onum;
struct obj *otmp;
if(Antimagic) {
shieldeff(u.ux, u.uy);
You("feel a malignant aura surround you.");
}
for (otmp = invent; otmp; otmp = otmp->nobj) nobj++;
if (nobj)
for (cnt = rnd(6/((!!Antimagic) + 1)); cnt > 0; cnt--) {
onum = rn2(nobj);
for(otmp = invent; onum != 0; onum--)
otmp = otmp->nobj;
if(otmp->blessed)
otmp->blessed = 0;
else
otmp->cursed++;
}
}
/* 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));
}
int
doremove (void)
{
if (!Punished) {
You("are not chained to anything!");
return(0);
}
unpunish();
return(1);
}
/* Also, give hints about portal locations, if amulet is worn/wielded -dlc */
void
amulet()
{
struct monst *mtmp;
struct trap *ttmp;
struct obj *amu;
#if 0 /* caller takes care of this check */
if (!u.uhave.amulet)
return;
#endif
if ((((amu = uamul) != 0 && amu->otyp == AMULET_OF_YENDOR) ||
((amu = uwep) != 0 && amu->otyp == AMULET_OF_YENDOR))
&& !rn2(15)) {
for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) {
if(ttmp->ttyp == MAGIC_PORTAL) {
int du = distu(ttmp->tx, ttmp->ty);
if (du <= 9)
/*JP
pline("%s hot!", Tobjnam(amu, "feel"));
*/
pline("%sは熱く感じた！", xname(amu));
else if (du <= 64)
/*JP
pline("%s very warm.", Tobjnam(amu, "feel"));
*/
pline("%sはとても暖かく感じた。", xname(amu));
else if (du <= 144)
/*JP
pline("%s warm.", Tobjnam(amu, "feel"));
*/
pline("%sは暖かく感じた。", xname(amu));
/* else, the amulet feels normal */
break;
}
}
}
if (!flags.no_of_wizards)
return;
/* find Wizard, and wake him if necessary */
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
if (!DEADMONSTER(mtmp) && mtmp->iswiz && mtmp->msleeping && !rn2(40)) {
mtmp->msleeping = 0;
if (distu(mtmp->mx,mtmp->my) > 2)
You(
/*JP
"get the creepy feeling that somebody noticed your taking the Amulet."
*/
"あなたが魔除けを持っていることが誰かに知られたと感じてぞくぞくした。"
);
return;
}
}
static void
dowaternymph() /* Water Nymph */
{
register struct monst *mtmp;
if(mons[PM_WATER_NYMPH].geno & (G_GENOD | G_EXTINCT)) return;
if((mtmp = makemon(&mons[PM_WATER_NYMPH],u.ux,u.uy))) {
if (!Blind)
You("attract %s!", a_monnam(mtmp));
else
You("hear a seductive voice.");
mtmp->msleep = 0;
if (t_at(mtmp->mx, mtmp->my))
(void) mintrap(mtmp);
} else
if (!Blind)
pline("A large bubble rises to the surface and pops.");
else
You("hear a loud pop.");
}
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) nobj++;
if (nobj)
for (cnt = rnd(6/((!!Antimagic) + (!!Half_spell_damage) + 1));
cnt > 0; cnt--) {
onum = rn2(nobj);
for(otmp = invent; onum != 0; onum--)
otmp = otmp->nobj;
if(otmp->oartifact && spec_ability(otmp, SPFX_INTEL) &&
rn2(10) < 8) {
pline("%s resists!", The(xname(otmp)));
continue;
}
if(otmp->blessed)
unbless(otmp);
else
curse(otmp);
}
}
/* TODO: This one needs tuning. */
static boolean
not_pure()
{
#ifdef WIZARD
if(wizard && (u.ualign.record < MIN_QUEST_ALIGN)) {
You("are currently %d and require %d.",
u.ualign.record, MIN_QUEST_ALIGN);
if(yn_function("adjust?", NULL, 'y') == 'y')
u.ualign.record = MIN_QUEST_ALIGN;
}
#endif
return((boolean)(u.ualign.record < MIN_QUEST_ALIGN));
}
static
void
dowaterdemon() /* Water demon */
{
register struct monst *mtmp;
if(mons[PM_WATER_DEMON].geno & (G_GENOD | G_EXTINCT)) return;
if((mtmp = makemon(&mons[PM_WATER_DEMON],u.ux,u.uy))) {
if (!Blind)
You("unleash %s!", a_monnam(mtmp));
else
You("feel the presence of evil.");
/* Give those on low levels a (slightly) better chance of survival */
if (rnd(100) > (80 + level_difficulty())) {
pline("Grateful for %s release, %s grants you a wish!",
his[pronoun_gender(mtmp)], he[pronoun_gender(mtmp)]);
makewish();
mongone(mtmp);
} else if (t_at(mtmp->mx, mtmp->my))
(void) mintrap(mtmp);
}
}
void
stop_occupation()
{
if(occupation) {
You("stop %s.", occtxt);
occupation = 0;
/* fainting stops your occupation, there's no reason to sync.
sync_hunger();
*/
#ifdef REDO
nomul(0);
pushch(0);
#endif
}
}
int dohide (void) {
bool ismimic = youmonst.data->mlet == S_MIMIC;
if (u.uundetected || (ismimic && youmonst.m_ap_type != M_AP_NOTHING)) {
You("are already hiding.");
return(0);
}
if (ismimic) {
/* should bring up a dialog "what would you like to imitate?" */
youmonst.m_ap_type = M_AP_OBJECT;
youmonst.mappearance = STRANGE_OBJECT;
} else
u.uundetected = 1;
newsym(u.ux,u.uy);
return(1);
}
void
stop_occupation()
{
if(occupation) {
if (!maybe_finished_meal(TRUE))
You("stop %s.", occtxt);
occupation = 0;
flags.botl = 1; /* in case u.uhs changed */
/* fainting stops your occupation, there's no reason to sync.
sync_hunger();
*/
#ifdef REDO
nomul(0);
pushch(0);
#endif
}
}
/* If he has found the Amulet, make the wizard appear after some time */
void
amulet(){
register struct monst *mtmp;
if(!flags.made_amulet || !flags.no_of_wizards)
return;
/* find wizard, and wake him if necessary */
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
if(mtmp->iswiz && mtmp->msleep && !rn2(40))
if(u.uhave_amulet) {
mtmp->msleep = 0;
if(dist(mtmp->mx,mtmp->my) > 2)
You(
"get the creepy feeling that somebody noticed your taking the Amulet."
);
return;
}
}
static void
dowatersnakes() /* Fountain of snakes! */
{
register int num = rn1(5,2);
struct monst *mtmp;
if (!(mons[PM_WATER_MOCCASIN].geno & (G_GENOD | G_EXTINCT))) {
if (!Blind)
pline("An endless stream of %s pours forth!",
Hallucination ? makeplural(rndmonnam()) : "snakes");
else
You("hear something hissing!");
while(num-- > 0)
if((mtmp = makemon(&mons[PM_WATER_MOCCASIN],u.ux,u.uy)) &&
t_at(mtmp->mx, mtmp->my))
(void) mintrap(mtmp);
} else
pline("The fountain bubbles furiously for a moment, then calms.");
}
static bool clear_fcorr(struct monst *grd, bool forceshow) {
int fcx, fcy, fcbeg;
struct monst *mtmp;
if (!on_level(&(EGD(grd)->gdlevel), &u.uz))
return true;
while ((fcbeg = EGD(grd)->fcbeg) < EGD(grd)->fcend) {
fcx = EGD(grd)->fakecorr[fcbeg].fx;
fcy = EGD(grd)->fakecorr[fcbeg].fy;
if ((grd->mhp <= 0 || !in_fcorridor(grd, u.ux, u.uy)) &&
EGD(grd)->gddone)
forceshow = true;
if ((u.ux == fcx && u.uy == fcy && grd->mhp > 0) || (!forceshow && couldsee(fcx, fcy)) || (Punished && !carried(uball) && uball->ox == fcx && uball->oy == fcy))
return false;
if ((mtmp = m_at(fcx, fcy)) != 0) {
if (mtmp->isgd)
return (false);
else if (!in_fcorridor(grd, u.ux, u.uy)) {
if (mtmp->mtame)
yelp(mtmp);
(void)rloc(mtmp, false);
}
}
levl[fcx][fcy].typ = EGD(grd)->fakecorr[fcbeg].ftyp;
map_location(fcx, fcy, 1); /* bypass vision */
if (!ACCESSIBLE(levl[fcx][fcy].typ))
block_point(fcx, fcy);
EGD(grd)->fcbeg++;
}
if (grd->mhp <= 0) {
pline_The("corridor disappears.");
if (IS_ROCK(levl[u.ux][u.uy].typ))
You("are encased in rock.");
}
return (true);
}
int dobreathe(void) {
const struct attack *mattk;
if (Strangled) {
You_cant("breathe. Sorry.");
return(0);
}
if (u.uen < 15) {
You("don't have enough energy to breathe!");
return (0);
}
u.uen -= 15;
if (!getdir((char *)0))
return (0);
mattk = attacktype_fordmg(youmonst.data, AT_BREA, AD_ANY);
if (!mattk)
impossible("bad breath attack?"); /* mouthwash needed... */
else
buzz((int)(20 + mattk->adtyp - 1), (int)mattk->damn, u.ux, u.uy, u.delta.x, u.delta.y);
return (1);
}
STATIC_OVL void
vomiting_dialogue()
{
register long i = (Vomiting & TIMEOUT) / 3L;
if ((((Vomiting & TIMEOUT) % 3L) == 2) && (i >= 0)
&& (i < SIZE(vomiting_texts)))
You(vomiting_texts[SIZE(vomiting_texts) - i - 1]);
switch ((int) i) {
case 0:
vomit();
morehungry(20);
break;
case 2:
make_stunned(HStun + d(2,4), FALSE);
/* fall through */
case 3:
make_confused(HConfusion + d(2,4), FALSE);
break;
}
exercise(A_CON, FALSE);
}
int
dosit()
{
static const char *sit_message = "sit on the %s.";
register struct trap *trap;
register int typ = levl[u.ux][u.uy].typ;
if(Levitation) {
pline("You're sitting on air.");
return 0;
}
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)) pline("It's not very comfortable...");
} else if ((trap = t_at(u.ux, u.uy)) != 0) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if(u.utraptype == TT_BEARTRAP) {
You("can't 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("can't maneuver to sit!");
u.utrap++;
}
} else {
You("sit down.");
dotrap(trap);
}
} else if(Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
pline("There are no cushions floating nearby.");
else
You("sit down in the muddy bottom.");
} else if(is_pool(u.ux, u.uy)) {
You("sit in the water.");
if (!rn2(10) && uarm)
(void) rust_dmg(uarm, "armor", 1, TRUE);
#ifdef POLYSELF
/* Note: without POLYSELF, this can't _happen_ without */
/* water walking boots.... */
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
(void) rust_dmg(uarm, "armor", 1, TRUE);
#endif
#ifdef SINKS
} else if(IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
Your("%s gets wet.", humanoid(uasmon) ? "rump" : "underside");
#endif
} else if(IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} 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");
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) ? "" : " 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(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L,FALSE);
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);
break;
}
case 8:
pline("A voice echoes:");
verbalize("By thy Imperious order, %s...",
flags.female ? "Dame" : "Sire");
do_genocide(1);
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) {
int ret, cval = rn2(5); /* agrees w/seffects() */
/* use up `cval' "charges"; 0 is special case */
do {
ret = ggetobj("identify", identify, cval);
if (ret < 0) break; /* quit */
} while (ret == 0 || (cval -= ret) > 0);
}
break;
case 13:
Your("mind turns into a pretzel!");
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else You("feel somehow out of place...");
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
pline("The throne vanishes in a puff of logic.");
levl[u.ux][u.uy].typ = ROOM;
if(Invisible) newsym(u.ux,u.uy);
}
#ifdef POLYSELF
} else if (lays_eggs(uasmon) || u.umonnum == PM_QUEEN_BEE) {
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 =
(u.umonnum==PM_QUEEN_BEE ? PM_KILLER_BEE : monsndx(uasmon));
uegg->known = uegg->dknown = 1;
You("lay an egg.");
dropy(uegg);
stackobj(uegg);
morehungry((int)objects[EGG].oc_nutrition);
#endif
} else if (u.uswallow)
pline("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);
}
void
attrcurse() /* remove a random INTRINSIC ability */
{
switch(rnd(11)) {
case 1 : if (HFire_resistance & INTRINSIC) {
HFire_resistance &= ~INTRINSIC;
Du_fuehlst_dich("wärmer."); /* EN You_feel("warmer."); */
break;
}
case 2 : if (HTeleportation & INTRINSIC) {
HTeleportation &= ~INTRINSIC;
Du_fuehlst_dich("weniger sprunghaft."); /* EN You_feel("less jumpy."); */
break;
}
case 3 : if (HPoison_resistance & INTRINSIC) {
HPoison_resistance &= ~INTRINSIC;
Dir_ist("ein bisschen schlecht!"); /* EN You_feel("a little sick!"); */
break;
}
case 4 : if (HTelepat & INTRINSIC) {
HTelepat &= ~INTRINSIC;
if (Blind && !Blind_telepat)
see_monsters(); /* Can't sense mons anymore! */
Your("NOUN_SINNs VERB_SCHWINDEN OBJECT KASUS_DATIV PRONOMEN_PERSONAL!"); /* EN Your("senses fail!"); */
break;
}
case 5 : if (HCold_resistance & INTRINSIC) {
HCold_resistance &= ~INTRINSIC;
Du_fuehlst_dich("kühler."); /* EN You_feel("cooler."); */
break;
}
case 6 : if (HInvis & INTRINSIC) {
HInvis &= ~INTRINSIC;
Du_fuehlst_dich("paranoid."); /* EN You_feel("paranoid."); */
break;
}
case 7 : if (HSee_invisible & INTRINSIC) {
HSee_invisible &= ~INTRINSIC;
You("MODIFIER_VERB_PRAETERITUM VERB_DENKEN, NEUER_SATZ SUBJECT_IM_SATZ PRONOMEN_PERSONAL MODIFIER_KONJUNKTIV_II VERB_HABEN %s!", Hallucination ? "eine Miezekatze gesehen" /* EN You("%s!", Hallucination ? "tawt you taw a puttie tat" */
: "etwas gesehen"); /* EN : "thought you saw something"); */
break;
}
case 8 : if (HFast & INTRINSIC) {
HFast &= ~INTRINSIC;
Du_fuehlst_dich("langsamer."); /* EN You_feel("slower."); */
break;
}
case 9 : if (HStealth & INTRINSIC) {
HStealth &= ~INTRINSIC;
Du_fuehlst_dich("tollpatschig."); /* EN You_feel("clumsy."); */
break;
}
case 10: if (HProtection & INTRINSIC) {
HProtection &= ~INTRINSIC;
Du_fuehlst_dich("verletzlich."); /* EN You_feel("vulnerable."); */
break;
}
case 11: if (HAggravate_monster & INTRINSIC) {
HAggravate_monster &= ~INTRINSIC;
Du_fuehlst_dich("weniger attraktiv."); /* EN You_feel("less attractive."); */
break;
}
default: break;
}
}
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*/
}
