static void special_vision_handling(void)
{
/* redo monsters if hallu or wearing a helm of telepathy */
if (Hallucination) { /* update screen randomly */
see_monsters();
see_objects();
see_traps();
if (u.uswallow) swallowed(0);
} else if (Unblind_telepat) {
see_monsters();
} else if (Warning || Warn_of_mon)
see_monsters();
if (vision_full_recalc)
vision_recalc(0); /* vision! */
}
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;
}
}
static void
postadjabil(unsigned int *ability)
{
if (!ability)
return;
if (ability == &(HWarning) || ability == &(HSee_invisible))
see_monsters(FALSE);
}
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
teleds(int nux, int nuy, boolean allow_drag)
{
boolean ball_active = (Punished &&
uball->where != OBJ_FREE), ball_still_in_range =
FALSE;
/* If they have to move the ball, then drag if allow_drag is true;
otherwise they are teleporting, so unplacebc(). If they don't have to
move the ball, then always "drag" whether or not allow_drag is true,
because we are calling that function, not to drag, but to move the
chain. *However* there are some dumb special cases: 0 0 _X move east
-----> X_ @ @ These are permissible if teleporting, but not if dragging.
As a result, drag_ball() needs to know about allow_drag and might end up
dragging the ball anyway. Also, drag_ball() might find that dragging
the ball is completely impossible (ball in range but there's rock in the
way), in which case it teleports the ball on its own. */
if (ball_active) {
if (!carried(uball) && distmin(nux, nuy, uball->ox, uball->oy) <= 2)
ball_still_in_range = TRUE; /* don't have to move the ball */
else {
/* have to move the ball */
if (!allow_drag || distmin(u.ux, u.uy, nux, nuy) > 1) {
/* we should not have dist > 1 and allow_drag at the same time,
but just in case, we must then revert to teleport. */
allow_drag = FALSE;
unplacebc();
}
}
}
u.utrap = 0;
u.ustuck = 0;
u.ux0 = u.ux;
u.uy0 = u.uy;
if (hides_under(youmonst.data))
u.uundetected = OBJ_AT(nux, nuy);
else if (youmonst.data->mlet == S_EEL)
u.uundetected = is_pool(level, nux, nuy);
else {
u.uundetected = 0;
/* mimics stop being unnoticed */
if (youmonst.data->mlet == S_MIMIC)
youmonst.m_ap_type = M_AP_NOTHING;
}
if (Engulfed) {
u.uswldtim = Engulfed = 0;
if (Punished && !ball_active) {
/* ensure ball placement, like unstuck */
ball_active = TRUE;
allow_drag = FALSE;
}
doredraw();
}
if (ball_active) {
if (ball_still_in_range || allow_drag) {
int bc_control;
xchar ballx, bally, chainx, chainy;
boolean cause_delay;
if (drag_ball
(nux, nuy, &bc_control, &ballx, &bally, &chainx, &chainy,
&cause_delay, allow_drag))
move_bc(0, bc_control, ballx, bally, chainx, chainy);
}
}
/* must set u.ux, u.uy after drag_ball(), which may need to know the old
position if allow_drag is true... */
u.ux = nux;
u.uy = nuy;
fill_pit(level, u.ux0, u.uy0);
if (ball_active) {
if (!ball_still_in_range && !allow_drag)
placebc();
}
initrack(); /* teleports mess up tracking monsters without this */
update_player_regions(level);
/* Move your steed, too */
if (u.usteed) {
u.usteed->mx = nux;
u.usteed->my = nuy;
}
/*
* Make sure the hero disappears from the old location. This will
* not happen if she is teleported within sight of her previous
* location. Force a full vision recalculation because the hero
* is now in a new location.
*/
newsym(u.ux0, u.uy0);
see_monsters(FALSE);
turnstate.vision_full_recalc = TRUE;
action_interrupted();
vision_recalc(0); /* vision before effects */
spoteffects(TRUE);
invocation_message();
}
void
attrcurse() /* remove a random INTRINSIC ability */
{
switch(rnd(11)) {
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 && !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("%s!", Hallucination ? "tawt you taw a puttie tat"
: "thought you saw something");
break;
}
case 8 : if (HFast & INTRINSIC) {
HFast &= ~INTRINSIC;
You_feel("slower.");
break;
}
case 9 : if (HStealth & INTRINSIC) {
HStealth &= ~INTRINSIC;
You_feel("clumsy.");
break;
}
case 10: if (HProtection & INTRINSIC) {
HProtection &= ~INTRINSIC;
u.ublessed = 0; /* fix for C343-189 */
You_feel("vulnerable.");
break;
}
case 11: if (HAggravate_monster & INTRINSIC) {
HAggravate_monster &= ~INTRINSIC;
You_feel("less attractive.");
break;
}
default: break;
}
}
void
moveloop()
{
#if defined(MICRO) || defined(WIN32)
char ch;
int abort_lev;
#endif
int moveamt = 0, wtcap = 0, change = 0;
boolean didmove = FALSE, monscanmove = FALSE;
flags.moonphase = phase_of_the_moon();
if(flags.moonphase == FULL_MOON) {
You("are lucky! Full moon tonight.");
change_luck(1);
} else if(flags.moonphase == NEW_MOON) {
pline("Be careful! New moon tonight.");
}
flags.friday13 = friday_13th();
if (flags.friday13) {
pline("Watch out! Bad things can happen on Friday the 13th.");
change_luck(-1);
}
initrack();
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
commands_init();
(void) encumber_msg(); /* in case they auto-picked up something */
u.uz0.dlevel = u.uz.dlevel;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
for(;;) {
get_nh_event();
#ifdef POSITIONBAR
do_positionbar();
#endif
didmove = flags.move;
if(didmove) {
/* actual time passed */
youmonst.movement -= NORMAL_SPEED;
do { /* hero can't move this turn loop */
wtcap = encumber_msg();
flags.mon_moving = TRUE;
do {
monscanmove = movemon();
if (youmonst.movement >= NORMAL_SPEED)
{
curmonst = &youmonst;
break; /* it's now your turn */
}
} while (monscanmove);
flags.mon_moving = FALSE;
if (!monscanmove && youmonst.movement < NORMAL_SPEED) {
/* both you and the monsters are out of steam this round */
/* set up for a new turn */
struct monst *mtmp;
mcalcdistress(); /* adjust monsters' trap, blind, etc */
/* reallocate movement rations to monsters */
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
mtmp->movement += mcalcmove(mtmp);
if(!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) > depth(&stronghold_level)) ? 50 : 70))
(void) makemon((struct permonst *)0, 0, 0, NO_MM_FLAGS);
/* calculate how much time passed. */
#ifdef STEED
if (u.usteed && u.umoved) {
/* your speed doesn't augment steed's speed */
moveamt = mcalcmove(u.usteed);
} else
#endif
{
moveamt = youmonst.data->mmove;
if (Very_fast) { /* speed boots or potion */
/* average movement is 1.67 times normal */
moveamt += NORMAL_SPEED / 2;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
} else if (Fast) {
/* average movement is 1.33 times normal */
if (rn2(3) != 0) moveamt += NORMAL_SPEED / 2;
}
}
switch (wtcap) {
case UNENCUMBERED: break;
case SLT_ENCUMBER: moveamt -= (moveamt / 4); break;
case MOD_ENCUMBER: moveamt -= (moveamt / 2); break;
case HVY_ENCUMBER: moveamt -= ((moveamt * 3) / 4); break;
case EXT_ENCUMBER: moveamt -= ((moveamt * 7) / 8); break;
default: break;
}
youmonst.movement += moveamt;
if (youmonst.movement < 0) youmonst.movement = 0;
settrack();
monstermoves++;
moves++;
/********************************/
/* once-per-turn things go here */
/********************************/
if (flags.bypasses) clear_bypasses();
if(Glib) glibr();
nh_timeout();
run_regions();
if (u.ublesscnt) u.ublesscnt--;
if(flags.time && !flags.run)
flags.botl = 1;
/* One possible result of prayer is healing. Whether or
* not you get healed depends on your current hit points.
* If you are allowed to regenerate during the prayer, the
* end-of-prayer calculation messes up on this.
* Another possible result is rehumanization, which requires
* that encumbrance and movement rate be recalculated.
*/
if (u.uinvulnerable) {
/* for the moment at least, you're in tiptop shape */
wtcap = UNENCUMBERED;
} else if (Upolyd && youmonst.data->mlet == S_EEL &&
!is_pool(u.ux,u.uy) && !Is_waterlevel(&u.uz) &&
!(u.uswallow &&
u.ustuck->data == &mons[PM_WATER_ELEMENTAL])) {
if (u.mh > 1) {
u.mh--;
flags.botl = 1;
} else if (u.mh < 1)
killer_format = KILLED_BY_AN,
rehumanize("inability to breathe air");
} else if (Upolyd && u.mh < u.mhmax) {
if (u.mh < 1)
rehumanize(0);
else if (Regeneration ||
(wtcap < MOD_ENCUMBER && !(moves%20))) {
flags.botl = 1;
u.mh++;
}
} else if (u.uhp < u.uhpmax &&
(wtcap < MOD_ENCUMBER || !u.umoved || Regeneration)) {
if (u.ulevel > 9 && !(moves % 3)) {
int heal, Con = (int) ACURR(A_CON);
if (Con <= 12) {
heal = 1;
} else {
heal = rnd(Con);
if (heal > u.ulevel-9) heal = u.ulevel-9;
}
flags.botl = 1;
u.uhp += heal;
if(u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
} else if (Regeneration ||
(u.ulevel <= 9 &&
!(moves % ((MAXULEV+12) / (u.ulevel+2) + 1)))) {
flags.botl = 1;
u.uhp++;
}
}
/* moving around while encumbered is hard work */
if (wtcap > MOD_ENCUMBER && u.umoved) {
if(!(wtcap < EXT_ENCUMBER ? moves%30 : moves%10)) {
if (Upolyd && u.mh > 1) {
u.mh--;
} else if (!Upolyd && u.uhp > 1) {
u.uhp--;
} else {
You("pass out from exertion!");
exercise(A_CON, FALSE);
fall_asleep(-10, FALSE);
}
}
}
if ((u.uen < u.uenmax) &&
((wtcap < MOD_ENCUMBER &&
(!(moves%((MAXULEV + 8 - u.ulevel) *
(Role_if(PM_WIZARD) ? 3 : 4) / 6))))
|| Energy_regeneration)) {
u.uen += rn1((int)(ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1,1);
if (u.uen > u.uenmax) u.uen = u.uenmax;
flags.botl = 1;
}
if(!u.uinvulnerable) {
if(Teleportation && !rn2(85)) {
xchar old_ux = u.ux, old_uy = u.uy;
tele();
if (u.ux != old_ux || u.uy != old_uy) {
if (!next_to_u()) {
check_leash(old_ux, old_uy);
}
#ifdef REDO
/* clear doagain keystrokes */
pushch(0);
savech(0);
#endif
}
}
/* delayed change may not be valid anymore */
if ((change == 1 && !Polymorph) ||
(change == 2 && u.ulycn == NON_PM))
change = 0;
if(Polymorph && !rn2(100))
change = 1;
else if (u.ulycn >= LOW_PM && !Upolyd &&
!rn2(80 - (20 * night())))
change = 2;
if (change && !Unchanging) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
if (change == 1) polyself(FALSE);
else you_were();
change = 0;
}
}
if(u.utrap && u.utraptype == TT_LAVA) {
if(!is_lava(u.ux,u.uy))
u.utrap = 0;
else if (!u.uinvulnerable) {
u.utrap -= 1<<8;
if(u.utrap < 1<<8) {
killer_format = KILLED_BY;
killer = "molten lava";
You("sink below the surface and die.");
done(DISSOLVED);
} else if(didmove && !u.umoved) {
Norep("You sink deeper into the lava.");
u.utrap += rnd(4);
}
}
}
}
if(Searching && multi >= 0) (void) dosearch0(1);
dosounds();
/* hack - make sure damage from storms is not blamed
on the player */
flags.mon_moving = TRUE;
do_storms();
flags.mon_moving = FALSE;
gethungry();
age_spells();
exerchk();
invault();
if (u.uhave.amulet) amulet();
if (!rn2(40+(int)(ACURR(A_DEX)*3)))
u_wipe_engr(rnd(3));
if (u.uevent.udemigod && !u.uinvulnerable) {
if (u.udg_cnt) u.udg_cnt--;
if (!u.udg_cnt) {
intervene();
u.udg_cnt = rn1(200, 50);
}
}
restore_attrib();
/* underwater and waterlevel vision are done here */
if (Is_waterlevel(&u.uz))
movebubbles();
else if (Underwater)
under_water(0);
/* vision while buried done here */
else if (u.uburied) under_ground(0);
/* when immobile, count is in turns */
if(multi < 0) {
if (++multi == 0) { /* finished yet? */
unmul((char *)0);
/* if unmul caused a level change, take it now */
if (u.utotype) deferred_goto();
}
}
}
} while (youmonst.movement<NORMAL_SPEED); /* hero can't move loop */
/******************************************/
/* once-per-hero-took-time things go here */
/******************************************/
curmonst = &youmonst;
} /* actual time passed */
/****************************************/
/* once-per-player-input things go here */
/****************************************/
find_ac();
if(!flags.mv || Blind) {
/* redo monsters if hallu or wearing a helm of telepathy */
if (HHallucination &&
!Halluc_resistance) { /* update screen randomly */
/*
see_monsters();
see_objects();
see_traps();
if (u.uswallow) swallowed(0);
*/
if (u.uswallow) {
swallowed(1);
} else if (Underwater && !Is_waterlevel(&u.uz)) {
under_water(1);
} else if (u.uburied) {
under_ground(1);
} else {
register int x, y;
register struct rm *lev;
vision_recalc(2);
/*clear_nhwindow(WIN_MAP);*/
clear_glyph_buffer();
for (x = 1; x < COLNO; x++) {
lev = &levl[x][0];
for (y = 0; y < ROWNO; y++, lev++)
if (lev->glyph != cmap_to_glyph(S_stone))
show_glyph(x,y,lev->glyph);
}
vision_recalc(0);
see_monsters();
}
} else if (Unblind_telepat) {
see_monsters();
} else if (Warning || Warn_of_mon)
see_monsters();
if (vision_full_recalc) vision_recalc(0); /* vision! */
}
#ifdef REALTIME_ON_BOTL
if(iflags.showrealtime) {
/* Update the bottom line if the number of minutes has
* changed */
if(get_realtime() / 60 != realtime_data.last_displayed_time / 60)
flags.botl = 1;
}
#endif
if(flags.botl || flags.botlx) bot();
flags.move = 1;
if(multi >= 0 && occupation) {
#if defined(MICRO) || defined(WIN32)
abort_lev = 0;
if (kbhit()) {
if ((ch = Getchar()) == ABORT)
abort_lev++;
# ifdef REDO
else
pushch(ch);
# endif /* REDO */
}
if (!abort_lev && (*occupation)() == 0)
#else
if ((*occupation)() == 0)
#endif
occupation = 0;
if(
#if defined(MICRO) || defined(WIN32)
abort_lev ||
#endif
monster_nearby()) {
stop_occupation();
reset_eat();
}
#if defined(MICRO) || defined(WIN32)
if (!(++occtime % 7))
display_nhwindow(WIN_MAP, FALSE);
#endif
continue;
}
if ((u.uhave.amulet || Clairvoyant) &&
!In_endgame(&u.uz) && !BClairvoyant &&
!(moves % 15) && !rn2(2))
do_vicinity_map();
#ifdef WIZARD
if (iflags.sanity_check)
sanity_check();
#endif
#ifdef CLIPPING
/* just before rhack */
cliparound(u.ux, u.uy);
#endif
u.umoved = FALSE;
if (multi > 0) {
lookaround();
if (!multi) {
/* lookaround may clear multi */
flags.move = 0;
if (flags.time) flags.botl = 1;
continue;
}
if (flags.mv) {
if(multi < COLNO && !--multi)
flags.travel = iflags.travel1 = flags.mv = flags.run = 0;
domove();
} else {
--multi;
rhack(save_cm);
}
} else if (multi == 0) {
#ifdef MAIL
ckmailstatus();
#endif
rhack((char *)0);
}
if (u.utotype) /* change dungeon level */
deferred_goto(); /* after rhack() */
/* !flags.move here: multiple movement command stopped */
else if (flags.time && (!flags.move || !flags.mv))
flags.botl = 1;
if (vision_full_recalc) vision_recalc(0); /* vision! */
/* when running in non-tport mode, this gets done through domove() */
if ((!flags.run || iflags.runmode == RUN_TPORT) &&
(multi && (!flags.travel ? !(multi % 7) : !(moves % 7L)))) {
if (flags.time && flags.run) flags.botl = 1;
display_nhwindow(WIN_MAP, FALSE);
}
}
}
/* returns 1 if polymorph successful */
int polymon(int mntmp)
{
boolean sticky = sticks(youmonst.data) && u.ustuck && !u.uswallow,
was_blind = !!Blind, dochange = FALSE;
boolean could_pass_walls = Passes_walls;
int mlvl;
if (mvitals[mntmp].mvflags & G_GENOD) { /* allow G_EXTINCT */
pline("You feel rather %s-ish.",mons[mntmp].mname);
exercise(A_WIS, TRUE);
return 0;
}
/* KMH, conduct */
u.uconduct.polyselfs++;
if (!Upolyd) {
/* Human to monster; save human stats */
u.macurr = u.acurr;
u.mamax = u.amax;
u.mfemale = flags.female;
} else {
/* Monster to monster; restore human stats, to be
* immediately changed to provide stats for the new monster
*/
u.acurr = u.macurr;
u.amax = u.mamax;
flags.female = u.mfemale;
}
if (youmonst.m_ap_type) {
/* stop mimicking immediately */
if (multi < 0) unmul("");
} else if (mons[mntmp].mlet != S_MIMIC) {
/* as in polyman() */
youmonst.m_ap_type = M_AP_NOTHING;
}
if (is_male(&mons[mntmp])) {
if (flags.female) dochange = TRUE;
} else if (is_female(&mons[mntmp])) {
if (!flags.female) dochange = TRUE;
} else if (!is_neuter(&mons[mntmp]) && mntmp != u.ulycn) {
if (!rn2(10)) dochange = TRUE;
}
if (dochange) {
flags.female = !flags.female;
pline("You %s %s%s!",
(u.umonnum != mntmp) ? "turn into a" : "feel like a new",
(is_male(&mons[mntmp]) || is_female(&mons[mntmp])) ? "" :
flags.female ? "female " : "male ",
mons[mntmp].mname);
} else {
if (u.umonnum != mntmp)
pline("You turn into %s!", an(mons[mntmp].mname));
else
pline("You feel like a new %s!", mons[mntmp].mname);
}
if (Stoned && poly_when_stoned(&mons[mntmp])) {
/* poly_when_stoned already checked stone golem genocide */
pline("You turn to stone!");
mntmp = PM_STONE_GOLEM;
Stoned = 0;
delayed_killer = 0;
}
u.mtimedone = rn1(500, 500);
u.umonnum = mntmp;
set_uasmon();
/* New stats for monster, to last only as long as polymorphed.
* Currently only strength gets changed.
*/
if (strongmonst(&mons[mntmp])) ABASE(A_STR) = AMAX(A_STR) = STR18(100);
if (Stone_resistance && Stoned) { /* [email protected] */
Stoned = 0;
delayed_killer = 0;
pline("You no longer seem to be petrifying.");
}
if (Sick_resistance && Sick) {
make_sick(0L, NULL, FALSE, SICK_ALL);
pline("You no longer feel sick.");
}
if (Slimed) {
if (flaming(youmonst.data)) {
pline("The slime burns away!");
Slimed = 0L;
iflags.botl = 1;
} else if (mntmp == PM_GREEN_SLIME) {
/* do it silently */
Slimed = 0L;
iflags.botl = 1;
}
}
if (nohands(youmonst.data)) Glib = 0;
/*
mlvl = adj_lev(&mons[mntmp]);
* We can't do the above, since there's no such thing as an
* "experience level of you as a monster" for a polymorphed character.
*/
mlvl = (int)mons[mntmp].mlevel;
if (youmonst.data->mlet == S_DRAGON && mntmp >= PM_GRAY_DRAGON) {
u.mhmax = In_endgame(&u.uz) ? (8*mlvl) : (4*mlvl + dice(mlvl,4));
} else if (is_golem(youmonst.data)) {
u.mhmax = golemhp(mntmp);
} else {
if (!mlvl) u.mhmax = rnd(4);
else u.mhmax = dice(mlvl, 8);
if (is_home_elemental(&u.uz, &mons[mntmp])) u.mhmax *= 3;
}
u.mh = u.mhmax;
if (u.ulevel < mlvl) {
/* Low level characters can't become high level monsters for long */
u.mtimedone = u.mtimedone * u.ulevel / mlvl;
}
if (uskin && mntmp != armor_to_dragon(uskin->otyp))
skinback(FALSE);
break_armor();
drop_weapon(1);
if (hides_under(youmonst.data))
u.uundetected = OBJ_AT(u.ux, u.uy);
else if (youmonst.data->mlet == S_EEL)
u.uundetected = is_pool(level, u.ux, u.uy);
else
u.uundetected = 0;
if (u.utraptype == TT_PIT) {
if (could_pass_walls && !Passes_walls) {
u.utrap = rn1(6,2);
} else if (!could_pass_walls && Passes_walls) {
u.utrap = 0;
}
}
if (was_blind && !Blind) { /* previous form was eyeless */
Blinded = 1L;
make_blinded(0L, TRUE); /* remove blindness */
}
newsym(u.ux,u.uy); /* Change symbol */
if (!sticky && !u.uswallow && u.ustuck && sticks(youmonst.data)) u.ustuck = 0;
else if (sticky && !sticks(youmonst.data)) uunstick();
if (u.usteed) {
if (touch_petrifies(u.usteed->data) &&
!Stone_resistance && rnl(3)) {
char buf[BUFSZ];
pline("No longer petrifying-resistant, you touch %s.",
mon_nam(u.usteed));
sprintf(buf, "riding %s", an(u.usteed->data->mname));
instapetrify(buf);
}
if (!can_ride(u.usteed)) dismount_steed(DISMOUNT_POLY);
}
if (flags.verbose) {
static const char use_thec[] = "Use the command #%s to %s.";
static const char monsterc[] = "monster";
if (can_breathe(youmonst.data))
pline(use_thec,monsterc,"use your breath weapon");
if (attacktype(youmonst.data, AT_SPIT))
pline(use_thec,monsterc,"spit venom");
if (youmonst.data->mlet == S_NYMPH)
pline(use_thec,monsterc,"remove an iron ball");
if (attacktype(youmonst.data, AT_GAZE))
pline(use_thec,monsterc,"gaze at monsters");
if (is_hider(youmonst.data))
pline(use_thec,monsterc,"hide");
if (is_were(youmonst.data))
pline(use_thec,monsterc,"summon help");
if (webmaker(youmonst.data))
pline(use_thec,monsterc,"spin a web");
if (u.umonnum == PM_GREMLIN)
pline(use_thec,monsterc,"multiply in a fountain");
if (is_unicorn(youmonst.data))
pline(use_thec,monsterc,"use your horn");
if (is_mind_flayer(youmonst.data))
pline(use_thec,monsterc,"emit a mental blast");
if (youmonst.data->msound == MS_SHRIEK) /* worthless, actually */
pline(use_thec,monsterc,"shriek");
if (lays_eggs(youmonst.data) && flags.female)
pline(use_thec,"sit","lay an egg");
}
/* you now know what an egg of your type looks like */
if (lays_eggs(youmonst.data)) {
learn_egg_type(u.umonnum);
/* make queen bees recognize killer bee eggs */
learn_egg_type(egg_type_from_parent(u.umonnum, TRUE));
}
find_ac();
if ((!Levitation && !u.ustuck && !Flying &&
(is_pool(level, u.ux,u.uy) || is_lava(level, u.ux,u.uy))) ||
(Underwater && !Swimming))
spoteffects(TRUE);
if (Passes_walls && u.utrap && u.utraptype == TT_INFLOOR) {
u.utrap = 0;
pline("The rock seems to no longer trap you.");
} else if (likes_lava(youmonst.data) && u.utrap && u.utraptype == TT_LAVA) {
u.utrap = 0;
pline("The lava now feels soothing.");
}
if (amorphous(youmonst.data) || is_whirly(youmonst.data) || unsolid(youmonst.data)) {
if (Punished) {
pline("You slip out of the iron chain.");
unpunish();
}
}
if (u.utrap && (u.utraptype == TT_WEB || u.utraptype == TT_BEARTRAP) &&
(amorphous(youmonst.data) || is_whirly(youmonst.data) || unsolid(youmonst.data) ||
(youmonst.data->msize <= MZ_SMALL && u.utraptype == TT_BEARTRAP))) {
pline("You are no longer stuck in the %s.",
u.utraptype == TT_WEB ? "web" : "bear trap");
/* probably should burn webs too if PM_FIRE_ELEMENTAL */
u.utrap = 0;
}
if (webmaker(youmonst.data) && u.utrap && u.utraptype == TT_WEB) {
pline("You orient yourself on the web.");
u.utrap = 0;
}
iflags.botl = 1;
vision_full_recalc = 1;
see_monsters();
exercise(A_CON, FALSE);
exercise(A_WIS, TRUE);
encumber_msg();
return 1;
}
/* make a (new) human out of the player */
static void polyman(const char *fmt, const char *arg)
{
boolean sticky = sticks(youmonst.data) && u.ustuck && !u.uswallow,
was_mimicking = (youmonst.m_ap_type == M_AP_OBJECT);
boolean could_pass_walls = Passes_walls;
boolean was_blind = !!Blind;
if (Upolyd) {
u.acurr = u.macurr; /* restore old attribs */
u.amax = u.mamax;
u.umonnum = u.umonster;
flags.female = u.mfemale;
}
set_uasmon();
u.mh = u.mhmax = 0;
u.mtimedone = 0;
skinback(FALSE);
u.uundetected = 0;
if (sticky) uunstick();
find_ac();
if (was_mimicking) {
if (multi < 0) unmul("");
youmonst.m_ap_type = M_AP_NOTHING;
}
newsym(u.ux,u.uy);
pline(fmt, arg);
/* check whether player foolishly genocided self while poly'd */
if ((mvitals[urole.malenum].mvflags & G_GENOD) ||
(urole.femalenum != NON_PM &&
(mvitals[urole.femalenum].mvflags & G_GENOD)) ||
(mvitals[urace.malenum].mvflags & G_GENOD) ||
(urace.femalenum != NON_PM &&
(mvitals[urace.femalenum].mvflags & G_GENOD))) {
/* intervening activity might have clobbered genocide info */
killer = delayed_killer;
if (!killer || !strstri(killer, "genocid")) {
killer_format = KILLED_BY;
killer = "self-genocide";
}
done(GENOCIDED);
}
if (u.twoweap && !could_twoweap(youmonst.data))
untwoweapon();
if (u.utraptype == TT_PIT) {
if (could_pass_walls) { /* player forms cannot pass walls */
u.utrap = rn1(6,2);
}
}
if (was_blind && !Blind) { /* reverting from eyeless */
Blinded = 1L;
make_blinded(0L, TRUE); /* remove blindness */
}
if (!Levitation && !u.ustuck &&
(is_pool(level, u.ux,u.uy) || is_lava(level, u.ux,u.uy)))
spoteffects(TRUE);
see_monsters();
}
static void newman(void)
{
int tmp, oldlvl;
tmp = u.uhpmax;
oldlvl = u.ulevel;
u.ulevel = u.ulevel + rn1(5, -2);
if (u.ulevel > 127 || u.ulevel < 1) { /* level went below 0? */
u.ulevel = oldlvl; /* restore old level in case they lifesave */
goto dead;
}
if (u.ulevel > MAXULEV) u.ulevel = MAXULEV;
/* If your level goes down, your peak level goes down by
the same amount so that you can't simply use blessed
full healing to undo the decrease. But if your level
goes up, your peak level does *not* undergo the same
adjustment; you might end up losing out on the chance
to regain some levels previously lost to other causes. */
if (u.ulevel < oldlvl) u.ulevelmax -= (oldlvl - u.ulevel);
if (u.ulevelmax < u.ulevel) u.ulevelmax = u.ulevel;
if (!rn2(10)) change_sex();
adjabil(oldlvl, (int)u.ulevel);
reset_rndmonst(NON_PM); /* new monster generation criteria */
/* random experience points for the new experience level */
u.uexp = rndexp(FALSE);
/* u.uhpmax * u.ulevel / oldlvl: proportionate hit points to new level
* -10 and +10: don't apply proportionate HP to 10 of a starting
* character's hit points (since a starting character's hit points
* are not on the same scale with hit points obtained through level
* gain)
* 9 - rn2(19): random change of -9 to +9 hit points
*/
u.uhpmax = ((u.uhpmax - 10) * (long)u.ulevel / oldlvl + 10) +
(9 - rn2(19));
u.uhp = u.uhp * (long)u.uhpmax/tmp;
tmp = u.uenmax;
u.uenmax = u.uenmax * (long)u.ulevel / oldlvl + 9 - rn2(19);
if (u.uenmax < 0)
u.uenmax = 0;
u.uen = (tmp ? u.uen * (long)u.uenmax / tmp : u.uenmax);
redist_attr();
u.uhunger = rn1(500,500);
if (Sick)
make_sick(0L, NULL, FALSE, SICK_ALL);
Stoned = 0;
delayed_killer = 0;
if (u.uhp <= 0 || u.uhpmax <= 0) {
if (Polymorph_control) {
if (u.uhp <= 0) u.uhp = 1;
if (u.uhpmax <= 0) u.uhpmax = 1;
} else {
dead: /* we come directly here if their experience level went to 0 or less */
pline("Your new form doesn't seem healthy enough to survive.");
killer_format = KILLED_BY_AN;
killer="unsuccessful polymorph";
done(DIED);
newuhs(FALSE);
return; /* lifesaved */
}
}
newuhs(FALSE);
polyman("You feel like a new %s!",
(flags.female && urace.individual.f) ? urace.individual.f :
(urace.individual.m) ? urace.individual.m : urace.noun);
if (Slimed) {
pline("Your body transforms, but there is still slime on you.");
Slimed = 10L;
}
iflags.botl = 1;
see_monsters();
encumber_msg();
}
void
nh_timeout()
{
register struct prop *upp;
int sleeptime;
int m_idx;
int baseluck = (flags.moonphase == FULL_MOON) ? 1 : 0;
if (flags.friday13) baseluck -= 1;
if (u.uluck != baseluck &&
moves % (u.uhave.amulet || u.ugangr ? 300 : 600) == 0) {
/* Cursed luckstones stop bad luck from timing out; blessed luckstones
* stop good luck from timing out; normal luckstones stop both;
* neither is stopped if you don't have a luckstone.
* Luck is based at 0 usually, +1 if a full moon and -1 on Friday 13th
*/
register int time_luck = stone_luck(FALSE);
boolean nostone = !carrying(LUCKSTONE) && !stone_luck(TRUE);
if(u.uluck > baseluck && (nostone || time_luck < 0))
u.uluck--;
else if(u.uluck < baseluck && (nostone || time_luck > 0))
u.uluck++;
}
if(u.uinvulnerable) return; /* things past this point could kill you */
if(Stoned) stoned_dialogue();
if(Slimed) slime_dialogue();
if(Vomiting) vomiting_dialogue();
if(Strangled) choke_dialogue();
if(u.mtimedone && !--u.mtimedone) {
if (Unchanging)
u.mtimedone = rnd(100*youmonst.data->mlevel + 1);
else
rehumanize();
}
if(u.ucreamed) u.ucreamed--;
/* Dissipate spell-based protection. */
if (u.usptime) {
if (--u.usptime == 0 && u.uspellprot) {
u.usptime = u.uspmtime;
u.uspellprot--;
find_ac();
if (!Blind)
Norep("The %s haze around you %s.", hcolor(NH_GOLDEN),
u.uspellprot ? "becomes less dense" : "disappears");
}
}
#ifdef STEED
if (u.ugallop) {
if (--u.ugallop == 0L && u.usteed)
pline("%s stops galloping.", Monnam(u.usteed));
}
#endif
for(upp = u.uprops; upp < u.uprops+SIZE(u.uprops); upp++)
if((upp->intrinsic & TIMEOUT) && !(--upp->intrinsic & TIMEOUT)) {
switch(upp - u.uprops){
case STONED:
if (delayed_killer && !killer) {
killer = delayed_killer;
delayed_killer = 0;
}
if (!killer) {
/* leaving killer_format would make it
"petrified by petrification" */
killer_format = NO_KILLER_PREFIX;
killer = "killed by petrification";
}
done(STONING);
break;
case SLIMED:
if (delayed_killer && !killer) {
killer = delayed_killer;
delayed_killer = 0;
}
if (!killer) {
killer_format = NO_KILLER_PREFIX;
killer = "turned into green slime";
}
done(TURNED_SLIME);
break;
case VOMITING:
make_vomiting(0L, TRUE);
break;
case SICK:
You("die from your illness.");
killer_format = KILLED_BY_AN;
killer = u.usick_cause;
if ((m_idx = name_to_mon(killer)) >= LOW_PM) {
if (type_is_pname(&mons[m_idx])) {
killer_format = KILLED_BY;
} else if (mons[m_idx].geno & G_UNIQ) {
killer = the(killer);
Strcpy(u.usick_cause, killer);
killer_format = KILLED_BY;
}
}
u.usick_type = 0;
done(POISONING);
break;
case FAST:
if (!Very_fast)
You_feel("yourself slowing down%s.",
Fast ? " a bit" : "");
break;
case CONFUSION:
HConfusion = 1; /* So make_confused works properly */
make_confused(0L, TRUE);
stop_occupation();
break;
case STUNNED:
HStun = 1;
make_stunned(0L, TRUE);
stop_occupation();
break;
case BLINDED:
Blinded = 1;
make_blinded(0L, TRUE);
stop_occupation();
break;
case INVIS:
newsym(u.ux,u.uy);
if (!Invis && !BInvis && !Blind) {
You(!See_invisible ?
"are no longer invisible." :
"can no longer see through yourself.");
stop_occupation();
}
break;
case SEE_INVIS:
set_mimic_blocking(); /* do special mimic handling */
see_monsters(); /* make invis mons appear */
newsym(u.ux,u.uy); /* make self appear */
stop_occupation();
break;
case WOUNDED_LEGS:
heal_legs();
stop_occupation();
break;
case HALLUC:
HHallucination = 1;
(void) make_hallucinated(0L, TRUE, 0L);
stop_occupation();
break;
case SLEEPING:
if (unconscious() || Sleep_resistance)
HSleeping += rnd(100);
else if (Sleeping) {
You("fall asleep.");
sleeptime = rnd(20);
fall_asleep(-sleeptime, TRUE);
HSleeping += sleeptime + rnd(100);
}
break;
case LEVITATION:
(void) float_down(I_SPECIAL|TIMEOUT, 0L);
break;
case STRANGLED:
killer_format = KILLED_BY;
killer = (u.uburied) ? "suffocation" : "strangulation";
done(DIED);
break;
case FUMBLING:
/* call this only when a move took place. */
/* otherwise handle fumbling msgs locally. */
if (u.umoved && !Levitation) {
slip_or_trip();
nomul(-2, "fumbling");
nomovemsg = "";
/* The more you are carrying the more likely you
* are to make noise when you fumble. Adjustments
* to this number must be thoroughly play tested.
*/
if ((inv_weight() > -500)) {
You("make a lot of noise!");
wake_nearby();
}
}
/* from outside means slippery ice; don't reset
counter if that's the only fumble reason */
HFumbling &= ~FROMOUTSIDE;
if (Fumbling)
HFumbling += rnd(20);
break;
case DETECT_MONSTERS:
see_monsters();
break;
case PREGNANT: {
char buf[BUFSZ];
if (!flags.female) {
strcpy(buf, body_part(STOMACH));
if (!strcmp(buf, "stomach"))
strcpy(buf, "belly");
pline("Something bursts out of your %s!");
killer_format = KILLED_BY;
killer = "male childbirth";
done(DIED);
}
mksobj_at(PLACENTA, u.ux, u.uy, FALSE, FALSE);
pline("BABIES!"); /* TODO */
stop_occupation();
break;
}
}
}
run_timers();
}
/* remove a random INTRINSIC ability */
void
attrcurse()
{
switch (rnd(11)) {
case 1:
if (HFire_resistance & INTRINSIC) {
HFire_resistance &= ~INTRINSIC;
/*JP
You_feel("warmer.");
*/
You("暖かさを感じた．");
break;
}
case 2:
if (HTeleportation & INTRINSIC) {
HTeleportation &= ~INTRINSIC;
/*JP
You_feel("less jumpy.");
*/
You("ちょっと落ちついた．");
break;
}
case 3:
if (HPoison_resistance & INTRINSIC) {
HPoison_resistance &= ~INTRINSIC;
/*JP
You_feel("a little sick!");
*/
You("少し気分が悪くなった！");
break;
}
case 4:
if (HTelepat & INTRINSIC) {
HTelepat &= ~INTRINSIC;
if (Blind && !Blind_telepat)
see_monsters(); /* Can't sense mons anymore! */
/*JP
Your("senses fail!");
*/
Your("五感は麻痺した！");
break;
}
case 5:
if (HCold_resistance & INTRINSIC) {
HCold_resistance &= ~INTRINSIC;
/*JP
You_feel("cooler.");
*/
You("涼しさを感じた．");
break;
}
case 6:
if (HInvis & INTRINSIC) {
HInvis &= ~INTRINSIC;
/*JP
You_feel("paranoid.");
*/
You("妄想を抱いた．");
break;
}
case 7:
if (HSee_invisible & INTRINSIC) {
HSee_invisible &= ~INTRINSIC;
#if 0 /*JP*/
You("%s!", Hallucination ? "tawt you taw a puttie tat"
: "thought you saw something");
#else
if(Hallucination)
You("だれ蟹みら，れている．");
else
You("誰かに見られているような気がした！");
#endif
break;
}
case 8:
if (HFast & INTRINSIC) {
HFast &= ~INTRINSIC;
/*JP
You_feel("slower.");
*/
You("遅くなったような気がした．");
break;
}
case 9:
if (HStealth & INTRINSIC) {
HStealth &= ~INTRINSIC;
/*JP
You_feel("clumsy.");
*/
You("不器用になったような気がした．");
break;
}
case 10:
/* intrinsic protection is just disabled, not set back to 0 */
if (HProtection & INTRINSIC) {
HProtection &= ~INTRINSIC;
/*JP
You_feel("vulnerable.");
*/
You("無防備になった気がした．");
break;
}
case 11:
if (HAggravate_monster & INTRINSIC) {
HAggravate_monster &= ~INTRINSIC;
/*JP
You_feel("less attractive.");
*/
You("魅力が失せたような気がした．");
break;
}
default:
break;
}
}
void
moveloop()
{
#ifdef MICRO
char ch;
int abort_lev;
#endif
int moverate = 0;
boolean didmove = 0;
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
(void) encumber_msg(); /* in case they auto-picked up something */
for(;;) {
#ifdef CLIPPING
cliparound(u.ux, u.uy);
#endif
#if defined(MAC_MPW32) && !defined(MODEL_FAR)
UnloadAllSegments(); /* Marks non-resident segments as purgeable */
#endif
get_nh_event();
didmove = flags.move;
if(flags.move) { /* actual time passed */
#ifdef POLYSELF
int oldmtimedone;
#endif
int wtcap;
if (u.utotype) deferred_goto();
wtcap = encumber_msg();
#ifdef POLYSELF
oldmtimedone = u.mtimedone;
#endif
#ifdef SOUNDS
dosounds();
#endif
if(moverate <= 0) {
/* calculate how much time passed. */
int moveamt = 0;
if(Fast & ~INTRINSIC) moveamt = 6;
else if(Fast) moveamt = 8;
else moveamt = 12;
switch(wtcap) {
case UNENCUMBERED: break;
case SLT_ENCUMBER: moveamt = (moveamt * 4) / 3; break;
case MOD_ENCUMBER: moveamt *= 2; break;
case HVY_ENCUMBER: moveamt *= 4; break;
default: moveamt *= 12; break;
}
moverate += moveamt;
settrack();
}
if(moverate > 0) {
movemon();
/* a monster may have levteleported player -dlc */
if (u.utotype) deferred_goto();
if(!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) >
depth(&stronghold_level))
? 50 : 70))
(void) makemon((struct permonst *)0, 0, 0);
++monstermoves;
remove_cadavers(&fobj);
remove_cadavers(&invent);
moverate -= 12;
}
if(Glib) glibr();
nh_timeout();
++moves;
if (u.ublesscnt) u.ublesscnt--;
if(flags.time) flags.botl = 1;
/* One possible result of prayer is healing. Whether or
* not you get healed depends on your current hit points.
* If you are allowed to regenerate during the prayer, the
* end-of-prayer calculation messes up on this.
*/
if (u.uinvulnerable)
;
else
#ifdef POLYSELF
if (u.mtimedone && u.mh < u.mhmax) {
if (u.mh < 1) {
rehumanize();
moverate = 0;
} else if (Regeneration ||
(wtcap < MOD_ENCUMBER && !(moves%20))) {
flags.botl = 1;
u.mh++;
}
} else
#endif
if(u.uhp < u.uhpmax) {
if(u.ulevel > 9) {
int heal;
if(HRegeneration ||
(!(moves%3) &&
(wtcap < MOD_ENCUMBER || !flags.mv))) {
flags.botl = 1;
if (ACURR(A_CON) <= 12) heal = 1;
else heal = rnd((int) ACURR(A_CON)-12);
if (heal > u.ulevel-9) heal = u.ulevel-9;
u.uhp += heal;
if(u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
}
} else if(HRegeneration ||
((wtcap < MOD_ENCUMBER || !flags.mv) &&
(!(moves%((MAXULEV+12)/(u.ulevel+2)+1))))) {
flags.botl = 1;
u.uhp++;
}
}
if (wtcap > MOD_ENCUMBER && flags.mv) {
if(!(wtcap < EXT_ENCUMBER ? moves%30 : moves%10)) {
if(u.uhp > 1) {
u.uhp--;
} else {
pline("You pass out from exertion!");
exercise(A_CON, FALSE);
nomul(-10);
u.usleep = 1;
}
}
}
if ((u.uen < u.uenmax) &&
((wtcap < MOD_ENCUMBER &&
(!(moves%((MAXULEV + 1 - u.ulevel) *
(pl_character[0] == 'W' ? 3 : 4) / 2))))
|| Energy_regeneration)) {
u.uen +=
rn1((int)(ACURR(A_WIS) + ACURR(A_INT)) / 10 + 1,1);
if (u.uen > u.uenmax) u.uen = u.uenmax;
flags.botl = 1;
}
if(!u.uinvulnerable) {
if(Teleportation && !rn2(85)) {
#ifdef REDO /* clear doagain keystrokes */
pushch(0);
savech(0);
#endif
tele();
}
#ifdef POLYSELF
if(Polymorph && !rn2(100)) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
}
polyself();
moverate = 0;
} else if (u.ulycn >= 0 && !rn2(80 - (20 * night()))) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
}
you_were();
moverate = 0;
}
#endif
}
if(Searching && multi >= 0) (void) dosearch0(1);
do_storms();
hatch_eggs();
burn_lamps();
gethungry();
exerchk();
invault();
amulet();
if (!rn2(40+(int)(ACURR(A_DEX)*3)))
u_wipe_engr(rnd(3));
if (u.uevent.udemigod && !u.uinvulnerable) {
if (u.udg_cnt) u.udg_cnt--;
if (!u.udg_cnt) {
intervene();
u.udg_cnt = rn1(200, 50);
}
}
restore_attrib();
/* underwater and waterlevel vision are done here */
if (Is_waterlevel(&u.uz))
movebubbles();
else if (Underwater)
under_water(0);
#ifdef POLYSELF
if ((oldmtimedone && !u.mtimedone) ||
(!oldmtimedone && u.mtimedone)) moverate = 0;
#endif
}
if(multi < 0) {
if(!++multi){
pline("%s",nomovemsg ? nomovemsg :
(const char *)"You can move again.");
nomovemsg = 0;
u.usleep = 0;
if(afternmv) (*afternmv)();
afternmv = 0;
}
}
find_ac();
if(!flags.mv || Blind) {
/* redo monsters if hallu or wearing a helm of telepathy */
if (Hallucination ||
(HTelepat & (WORN_HELMET|WORN_AMUL|W_ART)))
see_monsters();
/* redo objects if hallucinating */
if (Hallucination) see_objects();
/* update swallowed display */
if (Hallucination && u.uswallow) swallowed(0);
if (vision_full_recalc) vision_recalc(0); /* vision! */
}
if(flags.botl || flags.botlx) bot();
flags.move = 1;
if(multi >= 0 && occupation) {
#ifdef MICRO
abort_lev = 0;
if (kbhit()) {
if ((ch = Getchar()) == ABORT)
abort_lev++;
# ifdef REDO
else
pushch(ch);
# endif /* REDO */
}
if (!abort_lev && (*occupation)() == 0)
#else
if ((*occupation)() == 0)
#endif
occupation = 0;
if(
#ifdef MICRO
abort_lev ||
#endif
monster_nearby()) {
stop_occupation();
reset_eat();
}
#ifdef MICRO
if (!(++occtime % 7))
display_nhwindow(WIN_MAP, FALSE);
#endif
continue;
}
if((u.uhave.amulet || Clairvoyant) && !In_endgame(&u.uz) &&
!(moves%15) && !rn2(2))
do_vicinity_map();
if(u.utrap && u.utraptype == TT_LAVA) {
if(!is_lava(u.ux,u.uy))
u.utrap = 0;
else {
u.utrap -= 1<<8;
if(u.utrap < 1<<8) {
killer_format = KILLED_BY;
killer = "molten lava";
You("sink below the surface and suffocate.");
done(DROWNING); /*whatever*/
} else if(didmove && !u.umoved) {
Norep("You sink deeper into the lava.");
u.utrap += rnd(4);
}
}
}
u.umoved = FALSE;
if(!didmove || moverate <= 0) {
if(multi > 0) {
lookaround();
if(!multi) { /* lookaround may clear multi */
flags.move = 0;
continue;
}
if(flags.mv) {
if(multi < COLNO && !--multi)
flags.mv = flags.run = 0;
domove();
} else {
--multi;
rhack(save_cm);
}
} else if(multi == 0) {
#ifdef MAIL
ckmailstatus();
#endif
rhack(NULL);
}
}
if (vision_full_recalc) vision_recalc(0); /* vision! */
if(multi && multi%7 == 0)
display_nhwindow(WIN_MAP, FALSE);
}
}
/*
* a potential artifact has just been worn/wielded/picked-up or
* unworn/unwielded/dropped. Pickup/drop only set/reset the W_ART mask.
*/
void set_artifact_intrinsic(struct obj *otmp, boolean on, long wp_mask)
{
unsigned int *mask = 0;
const struct artifact *oart = get_artifact(otmp);
uchar dtyp;
long spfx;
if (!oart) return;
/* effects from the defn field */
dtyp = (wp_mask != W_ART) ? oart->defn.adtyp : oart->cary.adtyp;
if (dtyp == AD_FIRE)
mask = &EFire_resistance;
else if (dtyp == AD_COLD)
mask = &ECold_resistance;
else if (dtyp == AD_ELEC)
mask = &EShock_resistance;
else if (dtyp == AD_MAGM)
mask = &EAntimagic;
else if (dtyp == AD_DISN)
mask = &EDisint_resistance;
else if (dtyp == AD_DRST)
mask = &EPoison_resistance;
if (mask && wp_mask == W_ART && !on) {
/* find out if some other artifact also confers this intrinsic */
/* if so, leave the mask alone */
struct obj* obj;
for (obj = invent; obj; obj = obj->nobj)
if (obj != otmp && obj->oartifact) {
const struct artifact *art = get_artifact(obj);
if (art->cary.adtyp == dtyp) {
mask = NULL;
break;
}
}
}
if (mask) {
if (on) *mask |= wp_mask;
else *mask &= ~wp_mask;
}
/* intrinsics from the spfx field; there could be more than one */
spfx = (wp_mask != W_ART) ? oart->spfx : oart->cspfx;
if (spfx && wp_mask == W_ART && !on) {
/* don't change any spfx also conferred by other artifacts */
struct obj* obj;
for (obj = invent; obj; obj = obj->nobj)
if (obj != otmp && obj->oartifact) {
const struct artifact *art = get_artifact(obj);
spfx &= ~art->cspfx;
}
}
if (spfx & SPFX_SEARCH) {
if (on) ESearching |= wp_mask;
else ESearching &= ~wp_mask;
}
if (spfx & SPFX_HALRES) {
/* make_hallucinated must (re)set the mask itself to get
* the display right */
/* restoring needed because this is the only artifact intrinsic
* that can print a message--need to guard against being printed
* when restoring a game
*/
make_hallucinated((long)!on, restoring ? FALSE : TRUE, wp_mask);
}
if (spfx & SPFX_ESP) {
if (on) ETelepat |= wp_mask;
else ETelepat &= ~wp_mask;
see_monsters();
}
if (spfx & SPFX_STLTH) {
if (on) EStealth |= wp_mask;
else EStealth &= ~wp_mask;
}
if (spfx & SPFX_REGEN) {
if (on) ERegeneration |= wp_mask;
else ERegeneration &= ~wp_mask;
}
if (spfx & SPFX_TCTRL) {
if (on) ETeleport_control |= wp_mask;
else ETeleport_control &= ~wp_mask;
}
if (spfx & SPFX_WARN) {
if (spec_m2(otmp)) {
if (on) {
EWarn_of_mon |= wp_mask;
flags.warntype |= spec_m2(otmp);
} else {
EWarn_of_mon &= ~wp_mask;
flags.warntype &= ~spec_m2(otmp);
}
see_monsters();
} else {
if (on) EWarning |= wp_mask;
else EWarning &= ~wp_mask;
}
}
if (spfx & SPFX_EREGEN) {
if (on) EEnergy_regeneration |= wp_mask;
else EEnergy_regeneration &= ~wp_mask;
}
if (spfx & SPFX_HSPDAM) {
if (on) EHalf_spell_damage |= wp_mask;
else EHalf_spell_damage &= ~wp_mask;
}
if (spfx & SPFX_HPHDAM) {
if (on) EHalf_physical_damage |= wp_mask;
else EHalf_physical_damage &= ~wp_mask;
}
if (spfx & SPFX_XRAY) {
/* this assumes that no one else is using xray_range */
if (on) u.xray_range = 3;
else u.xray_range = -1;
vision_full_recalc = 1;
}
if ((spfx & SPFX_REFLECT) && (wp_mask & W_WEP)) {
if (on) EReflecting |= wp_mask;
else EReflecting &= ~wp_mask;
}
if (wp_mask == W_ART && !on && oart->inv_prop) {
/* might have to turn off invoked power too */
if (oart->inv_prop <= LAST_PROP &&
(u.uprops[oart->inv_prop].extrinsic & W_ARTI))
arti_invoke(otmp);
}
}
static void postadjabil (long *ability) {
if (!ability) return;
if (ability == &(HWarning) || ability == &(u.uprops[SEE_INVIS].intrinsic))
see_monsters();
}
void
moveloop()
{
#if defined(MICRO) || defined(WIN32)
char ch;
int abort_lev;
#endif
int moveamt = 0, wtcap = 0, change = 0;
boolean didmove = FALSE, monscanmove = FALSE;
flags.moonphase = phase_of_the_moon();
if(flags.moonphase == FULL_MOON) {
You("are lucky! Full moon tonight.");
change_luck(1);
} else if(flags.moonphase == NEW_MOON) {
pline("Be careful! New moon tonight.");
}
flags.friday13 = friday_13th();
if (flags.friday13) {
pline("Watch out! Bad things can happen on Friday the 13th.");
change_luck(-1);
}
/* KMH -- February 2 */
flags.groundhogday = groundhog_day();
if (flags.groundhogday)
pline("Happy Groundhog Day!");
initrack();
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
#ifdef WIZARD
if (wizard) add_debug_extended_commands();
#endif
(void) encumber_msg(); /* in case they auto-picked up something */
if (defer_see_monsters) {
defer_see_monsters = FALSE;
see_monsters();
}
u.uz0.dlevel = u.uz.dlevel;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
for(;;) {
get_nh_event();
#ifdef POSITIONBAR
do_positionbar();
#endif
didmove = flags.move;
if(didmove) {
/* actual time passed */
youmonst.movement -= NORMAL_SPEED;
do { /* hero can't move this turn loop */
wtcap = encumber_msg();
flags.mon_moving = TRUE;
do {
monscanmove = movemon();
if (youmonst.movement > NORMAL_SPEED)
break; /* it's now your turn */
} while (monscanmove);
flags.mon_moving = FALSE;
if (!monscanmove && youmonst.movement < NORMAL_SPEED) {
/* both you and the monsters are out of steam this round */
/* set up for a new turn */
struct monst *mtmp;
mcalcdistress(); /* adjust monsters' trap, blind, etc */
/* reallocate movement rations to monsters */
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
mtmp->movement += mcalcmove(mtmp);
if(!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) > depth(&stronghold_level)) ? 50 : 70))
(void) makemon((struct permonst *)0, 0, 0, NO_MM_FLAGS);
/* calculate how much time passed. */
#ifdef STEED
if (u.usteed && u.umoved) {
/* your speed doesn't augment steed's speed */
moveamt = mcalcmove(u.usteed);
} else
#endif
{
moveamt = youmonst.data->mmove;
if (Very_fast) { /* speed boots or potion */
/* average movement is 1.67 times normal */
moveamt += NORMAL_SPEED / 2;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
} else if (Fast) {
/* average movement is 1.33 times normal */
if (rn2(3) != 0) moveamt += NORMAL_SPEED / 2;
}
if (tech_inuse(T_BLINK)) { /* TECH: Blinking! */
/* Case Average Variance
* -------------------------
* Normal 12 0
* Fast 16 12
* V fast 20 12
* Blinking 24 12
* F & B 28 18
* V F & B 30 18
*/
moveamt += NORMAL_SPEED * 2 / 3;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
}
}
switch (wtcap) {
case UNENCUMBERED: break;
case SLT_ENCUMBER: moveamt -= (moveamt / 4); break;
case MOD_ENCUMBER: moveamt -= (moveamt / 2); break;
case HVY_ENCUMBER: moveamt -= ((moveamt * 3) / 4); break;
case EXT_ENCUMBER: moveamt -= ((moveamt * 7) / 8); break;
default: break;
}
youmonst.movement += moveamt;
if (youmonst.movement < 0) youmonst.movement = 0;
settrack();
monstermoves++;
moves++;
/********************************/
/* once-per-turn things go here */
/********************************/
if (flags.bypasses) clear_bypasses();
if(Glib) glibr();
nh_timeout();
run_regions();
#ifdef DUNGEON_GROWTH
dgn_growths(TRUE, TRUE);
#endif
if (u.ublesscnt) u.ublesscnt--;
if(flags.time && !flags.run)
flags.botl = 1;
/* One possible result of prayer is healing. Whether or
* not you get healed depends on your current hit points.
* If you are allowed to regenerate during the prayer, the
* end-of-prayer calculation messes up on this.
* Another possible result is rehumanization, which requires
* that encumbrance and movement rate be recalculated.
*/
if (u.uinvulnerable) {
/* for the moment at least, you're in tiptop shape */
wtcap = UNENCUMBERED;
} else if (Upolyd && youmonst.data->mlet == S_EEL && !is_pool(u.ux,u.uy) && !Is_waterlevel(&u.uz)) {
if (u.mh > 1) {
u.mh--;
flags.botl = 1;
} else if (u.mh < 1)
rehumanize();
} else if (Upolyd && u.mh < u.mhmax) {
if (u.mh < 1)
rehumanize();
else if (Regeneration ||
(wtcap < MOD_ENCUMBER && !(moves%20))) {
flags.botl = 1;
u.mh++;
}
} else if (u.uhp < u.uhpmax &&
(wtcap < MOD_ENCUMBER || !u.umoved || Regeneration)) {
/*
* KMH, balance patch -- New regeneration code
* Healthstones have been added, which alter your effective
* experience level and constitution (-2 cursed, +1 uncursed,
* +2 blessed) for the basis of regeneration calculations.
*/
int efflev = u.ulevel + u.uhealbonus;
int effcon = ACURR(A_CON) + u.uhealbonus;
int heal = 1;
if (efflev > 9 && !(moves % 3)) {
if (effcon <= 12) {
heal = 1;
} else {
heal = rnd(effcon);
if (heal > efflev-9) heal = efflev-9;
}
flags.botl = 1;
u.uhp += heal;
if(u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
} else if (Regeneration ||
(efflev <= 9 &&
!(moves % ((MAXULEV+12) / (u.ulevel+2) + 1)))) {
flags.botl = 1;
u.uhp++;
}
}
if (!u.uinvulnerable && u.uen > 0 && u.uhp < u.uhpmax &&
tech_inuse(T_CHI_HEALING)) {
u.uen--;
u.uhp++;
flags.botl = 1;
}
/* moving around while encumbered is hard work */
if (wtcap > MOD_ENCUMBER && u.umoved) {
if(!(wtcap < EXT_ENCUMBER ? moves%30 : moves%10)) {
if (Upolyd && u.mh > 1) {
u.mh--;
} else if (!Upolyd && u.uhp > 1) {
u.uhp--;
} else {
You("pass out from exertion!");
exercise(A_CON, FALSE);
fall_asleep(-10, FALSE);
}
}
}
/* KMH -- OK to regenerate if you don't move */
if ((u.uen < u.uenmax) && (Energy_regeneration ||
((wtcap < MOD_ENCUMBER || !flags.mv) &&
(!(moves%((MAXULEV + 15 - u.ulevel) *
(Role_if(PM_WIZARD) ? 3 : 4) / 6)))))) {
u.uen += rn1((int)(ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1,1);
#ifdef WIZ_PATCH_DEBUG
pline("mana was = %d now = %d",temp,u.uen);
#endif
if (u.uen > u.uenmax) u.uen = u.uenmax;
flags.botl = 1;
}
if(!u.uinvulnerable) {
if(Teleportation && !rn2(85)) {
xchar old_ux = u.ux, old_uy = u.uy;
tele();
if (u.ux != old_ux || u.uy != old_uy) {
if (!next_to_u()) {
check_leash(&youmonst, old_ux, old_uy, TRUE);
}
#ifdef REDO
/* clear doagain keystrokes */
pushch(0);
savech(0);
#endif
}
}
long ch = (80 - (40 * night())) / 2 *
(Race_if(PM_HUMAN_WEREWOLF) ?
u.ulevel * u.ulevel :
2);
ch = (ch > LARGEST_INT) ? LARGEST_INT : ch;
/* delayed change may not be valid anymore */
if ((change == 1 && !Polymorph) ||
(change == 2 && u.ulycn == NON_PM))
change = 0;
if(Polymorph && !rn2(100))
change = 1;
else if (u.ulycn >= LOW_PM && !Upolyd &&
!rn2((int)ch))
change = 2;
if (change && !Unchanging) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
if (change == 1) polyself(FALSE);
else you_were();
change = 0;
}
}
} /* !u.uinvulnerable */
if(Searching && multi >= 0) (void) dosearch0(1);
dosounds();
do_storms();
gethungry();
age_spells();
exerchk();
invault();
if (u.uhave.amulet) amulet();
if (!rn2(40+(int)(ACURR(A_DEX)*3))) u_wipe_engr(rnd(3));
if (u.uevent.udemigod && !u.uinvulnerable) {
if (u.udg_cnt) u.udg_cnt--;
if (!u.udg_cnt) {
intervene();
u.udg_cnt = rn1(200, 50);
}
}
restore_attrib();
/* underwater and waterlevel vision are done here */
if (Is_waterlevel(&u.uz))
movebubbles();
else if (Underwater)
under_water(0);
/* vision while buried done here */
else if (u.uburied) under_ground(0);
/* when immobile, count is in turns */
if(multi < 0) {
if (++multi == 0) { /* finished yet? */
unmul((char *)0);
/* if unmul caused a level change, take it now */
if (u.utotype) deferred_goto();
}
}
}
} while (youmonst.movement<NORMAL_SPEED); /* hero can't move loop */
/******************************************/
/* once-per-hero-took-time things go here */
/******************************************/
} /* actual time passed */
/****************************************/
/* once-per-player-input things go here */
/****************************************/
find_ac();
if(!flags.mv || Blind) {
/* redo monsters if hallu or wearing a helm of telepathy */
if (Hallucination) { /* update screen randomly */
see_monsters();
see_objects();
see_traps();
if (u.uswallow) swallowed(0);
} else if (Unblind_telepat) {
see_monsters();
} else if (Warning || Warn_of_mon)
see_monsters();
if (vision_full_recalc) vision_recalc(0); /* vision! */
}
if(flags.botl || flags.botlx) bot();
flags.move = 1;
if(multi >= 0 && occupation) {
#if defined(MICRO) || defined(WIN32)
abort_lev = 0;
if (kbhit()) {
if ((ch = Getchar()) == ABORT)
abort_lev++;
# ifdef REDO
else
pushch(ch);
# endif /* REDO */
}
if (!abort_lev && (*occupation)() == 0)
#else
if ((*occupation)() == 0)
#endif
occupation = 0;
if(
#if defined(MICRO) || defined(WIN32)
abort_lev ||
#endif
monster_nearby()) {
stop_occupation();
reset_eat();
}
#if defined(MICRO) || defined(WIN32)
if (!(++occtime % 7))
display_nhwindow(WIN_MAP, FALSE);
#endif
continue;
}
if ((u.uhave.amulet || Clairvoyant) &&
!In_endgame(&u.uz) && !BClairvoyant &&
!(moves % 15) && !rn2(2))
do_vicinity_map();
if(u.utrap && u.utraptype == TT_LAVA) {
if(!is_lava(u.ux,u.uy))
u.utrap = 0;
else if (!u.uinvulnerable) {
u.utrap -= 1<<8;
if(u.utrap < 1<<8) {
killer_format = KILLED_BY;
killer = "molten lava";
You("sink below the surface and die.");
done(DISSOLVED);
} else if(didmove && !u.umoved) {
Norep("You sink deeper into the lava.");
u.utrap += rnd(4);
}
}
}
#ifdef WIZARD
if (iflags.sanity_check)
sanity_check();
#endif
#ifdef CLIPPING
/* just before rhack */
cliparound(u.ux, u.uy);
#endif
u.umoved = FALSE;
if (multi > 0) {
lookaround();
if (!multi) {
/* lookaround may clear multi */
flags.move = 0;
if (flags.time) flags.botl = 1;
continue;
}
if (flags.mv) {
if(multi < COLNO && !--multi)
flags.travel = iflags.travel1 = flags.mv = flags.run = 0;
domove();
} else {
--multi;
rhack(save_cm);
}
} else if (multi == 0) {
#ifdef MAIL
ckmailstatus();
#endif
rhack((char *)0);
}
if (u.utotype) /* change dungeon level */
deferred_goto(); /* after rhack() */
/* !flags.move here: multiple movement command stopped */
else if (flags.time && (!flags.move || !flags.mv))
flags.botl = 1;
if (vision_full_recalc) vision_recalc(0); /* vision! */
/* when running in non-tport mode, this gets done through domove() */
if ((!flags.run || iflags.runmode == RUN_TPORT) &&
(multi && (!flags.travel ? !(multi % 7) : !(moves % 7L)))) {
if (flags.time && flags.run) flags.botl = 1;
display_nhwindow(WIN_MAP, FALSE);
}
}
}
