void
domagicportal(struct trap *ttmp)
{
struct d_level target_level;
if (!next_to_u()) {
pline("You shudder for a moment.");
return;
}
/* if landed from another portal, do nothing */
/* problem: level teleport landing escapes the check */
if (!on_level(&u.uz, &u.uz0))
return;
pline("You activated a magic portal!");
/* prevent the poor shnook, whose amulet was stolen while in the endgame,
from accidently triggering the portal to the next level, and thus losing
the game */
if (In_endgame(&u.uz) && !u.uhave.amulet) {
pline("You feel dizzy for a moment, but nothing happens...");
return;
}
target_level = ttmp->dst;
schedule_goto(&target_level, FALSE, FALSE, 1,
"You feel dizzy for a moment, but the sensation passes.",
NULL);
}
void
domagicportal(struct trap *ttmp)
{
struct d_level target_level;
if (!next_to_u()) {
pline("You shudder for a moment.");
return;
}
pline("You activated a magic portal!");
/* prevent the poor shnook, whose amulet was stolen while in the endgame,
from accidently triggering the portal to the next level, and thus losing
the game */
if (In_endgame(&u.uz) && !Uhave_amulet) {
pline("You feel dizzy for a moment, but nothing happens...");
return;
}
target_level = ttmp->dst;
schedule_goto(&target_level, FALSE, FALSE, 1,
"You feel dizzy for a moment, but the sensation passes.",
NULL);
}
int
tele_impl(boolean wizard_tele, boolean run_next_to_u)
{
coord cc;
/* Disable teleportation in stronghold && Vlad's Tower */
if (level->flags.noteleport) {
if (!wizard_tele) {
pline("A mysterious force prevents you from teleporting!");
return 1;
}
}
/* don't show trap if "Sorry..." */
if (!Blinded)
make_blinded(0L, FALSE);
/* when it happens at all, happens too often to be worth a custom RNG */
if ((Uhave_amulet || On_W_tower_level(&u.uz)) && !rn2(3)) {
pline("You feel disoriented for a moment.");
return 1;
}
if ((Teleport_control && !Stunned) || wizard_tele) {
if (u_helpless(hm_unconscious)) {
pline("Being unconscious, you cannot control your teleport.");
} else {
pline("To what position do you%s want to be teleported?",
u.usteed ? msgcat(" and ", mon_nam(u.usteed)) : "");
cc.x = u.ux;
cc.y = u.uy;
if (getpos(&cc, FALSE, "the desired position", FALSE)
== NHCR_CLIENT_CANCEL)
return 0; /* abort */
if (run_next_to_u) {
if (!next_to_u()) {
pline("You shudder for a moment.");
return 1;
}
}
/* possible extensions: introduce a small error if magic power is
low; allow transfer to solid rock */
if (u_teleok(cc.x, cc.y, FALSE, wizard_tele)) {
teleds(cc.x, cc.y, FALSE);
return 1;
}
pline("Sorry...");
}
}
safe_teleds(FALSE);
return 1;
}
void tele_trap(struct trap *trap)
{
if (In_endgame(&u.uz) || Antimagic) {
if (Antimagic)
shieldeff(u.ux, u.uy);
pline("You feel a wrenching sensation.");
} else if (!next_to_u()) {
pline("You shudder for a moment.");
} else if (trap->once) {
deltrap(trap);
newsym(u.ux,u.uy); /* get rid of trap symbol */
vault_tele();
} else
tele();
}
void
level_tele_impl(boolean wizard_tele)
{
int newlev;
d_level newlevel;
const char *escape_by_flying = 0; /* when surviving dest of -N */
boolean force_dest = FALSE;
const char *buf, *killer = NULL;
if ((Uhave_amulet || In_endgame(&u.uz) || In_sokoban(&u.uz))
&& !wizard_tele) {
pline("You feel very disoriented for a moment.");
return;
}
if ((Teleport_control && !Stunned) || wizard_tele) {
int trycnt = 0;
const char *qbuf = "To what level do you want to teleport?";
do {
if (++trycnt == 2) {
if (wizard_tele)
qbuf = msgcat(qbuf, " [type a number or ? for a menu]");
else
qbuf = msgcat(qbuf, " [type a number]");
}
buf = getlin(qbuf, FALSE);
if (!strcmp(buf, "\033")) { /* cancelled */
if (Confusion && rnl(5)) {
pline("Oops...");
goto random_levtport;
}
return;
} else if (!strcmp(buf, "*")) {
goto random_levtport;
} else if (Confusion && rnl(5)) {
pline("Oops...");
goto random_levtport;
}
if (wizard_tele && !strcmp(buf, "?")) {
schar destlev = 0;
xchar destdnum = 0;
if ((newlev = (int)print_dungeon(TRUE, &destlev, &destdnum))) {
newlevel.dnum = destdnum;
newlevel.dlevel = destlev;
if (In_endgame(&newlevel) && !In_endgame(&u.uz)) {
const char *dest = "Destination is earth level";
if (!Uhave_amulet) {
struct obj *obj;
obj = mksobj(level, AMULET_OF_YENDOR, TRUE, FALSE,
rng_main);
if (obj) {
addinv(obj);
dest = msgcat(dest, " with the amulet");
}
}
assign_level(&newlevel, &earth_level);
pline("%s.", dest);
}
force_dest = TRUE;
} else
return;
} else if ((newlev = lev_by_name(buf)) == 0)
newlev = atoi(buf);
} while (!newlev && !digit(buf[0]) && (buf[0] != '-' || !digit(buf[1]))
&& trycnt < 10);
/* no dungeon escape via this route */
if (newlev == 0) {
if (trycnt >= 10)
goto random_levtport;
if (ynq("Go to Nowhere. Are you sure?") != 'y')
return;
pline("You %s in agony as your body begins to warp...",
is_silent(youmonst.data) ? "writhe" : "scream");
win_pause_output(P_MESSAGE);
pline("You cease to exist.");
if (invent)
pline("Your possessions land on the %s with a thud.",
surface(u.ux, u.uy));
done(DIED, "committed suicide");
pline("An energized cloud of dust begins to coalesce.");
pline("Your body rematerializes%s.",
invent ? ", and you gather up all your possessions" : "");
return;
}
/* if in Knox and the requested level > 0, stay put. we let negative
values requests fall into the "heaven" loop. */
if (Is_knox(&u.uz) && newlev > 0) {
pline("You shudder for a moment.");
return;
}
/* if in Quest, the player sees "Home 1", etc., on the status line,
instead of the logical depth of the level. controlled level
teleport request is likely to be relativized to the status line, and
consequently it should be incremented to the value of the logical
depth of the target level. we let negative values requests fall into
the "heaven" loop. */
if (In_quest(&u.uz) && newlev > 0)
newlev = newlev + find_dungeon(&u.uz).depth_start - 1;
} else { /* involuntary level tele */
random_levtport:
newlev = random_teleport_level();
if (newlev == depth(&u.uz)) {
pline("You shudder for a moment.");
return;
}
}
if (!next_to_u()) {
pline("You shudder for a moment.");
return;
}
if (In_endgame(&u.uz)) { /* must already be wizard */
int llimit = dunlevs_in_dungeon(&u.uz);
if (newlev >= 0 || newlev <= -llimit) {
pline("You can't get there from here.");
return;
}
newlevel.dnum = u.uz.dnum;
newlevel.dlevel = llimit + newlev;
schedule_goto(&newlevel, FALSE, FALSE, 0, NULL, NULL);
return;
}
if (newlev < 0 && !force_dest) {
if (*u.ushops0) {
/* take unpaid inventory items off of shop bills */
in_mklev = TRUE; /* suppress map update */
u_left_shop(u.ushops0, TRUE);
/* you're now effectively out of the shop */
*u.ushops0 = *u.ushops = '\0';
in_mklev = FALSE;
}
if (newlev <= -10) {
pline("You arrive in heaven.");
verbalize("Thou art early, but we'll admit thee.");
killer = "went to heaven prematurely";
} else if (newlev == -9) {
pline("You feel deliriously happy. ");
pline("(In fact, you're on Cloud 9!) ");
win_pause_output(P_MESSAGE);
} else
pline("You are now high above the clouds...");
if (killer) {
; /* arrival in heaven is pending */
} else if (Levitation) {
escape_by_flying = "float gently down to earth";
} else if (Flying) {
escape_by_flying = "fly down to the ground";
} else {
pline("Unfortunately, you don't know how to fly.");
pline("You plummet a few thousand feet to your death.");
killer = msgcat_many("teleported out of the dungeon and fell to ",
uhis(), " death", NULL);
}
}
if (killer) { /* the chosen destination was not survivable */
d_level lsav;
/* set specific death location; this also suppresses bones */
lsav = u.uz; /* save current level, see below */
u.uz.dnum = 0; /* main dungeon */
u.uz.dlevel = (newlev <= -10) ? -10 : 0; /* heaven or surface */
done(DIED, killer);
/* can only get here via life-saving (or declining to die in
explore|debug mode); the hero has now left the dungeon... */
escape_by_flying = "find yourself back on the surface";
u.uz = lsav; /* restore u.uz so escape code works */
}
/* calls done(ESCAPED) if newlevel==0 */
if (escape_by_flying) {
pline("You %s.", escape_by_flying);
done(ESCAPED, "teleported to safety");
} else if (u.uz.dnum == medusa_level.dnum &&
newlev >= (find_dungeon(&u.uz).depth_start +
dunlevs_in_dungeon(&u.uz))) {
if (!(wizard_tele && force_dest))
find_hell(&newlevel);
} else {
/* if invocation did not yet occur, teleporting into the last level of
Gehennom is forbidden. */
if (!wizard_tele)
if (Inhell && !u.uevent.invoked &&
newlev >= (find_dungeon(&u.uz).depth_start +
dunlevs_in_dungeon(&u.uz) - 1)) {
newlev = (find_dungeon(&u.uz).depth_start +
dunlevs_in_dungeon(&u.uz) - 2);
pline("Sorry...");
}
/* no teleporting out of quest dungeon */
if (In_quest(&u.uz) && newlev < depth(&qstart_level))
newlev = depth(&qstart_level);
/* the player thinks of levels purely in logical terms, so we must
translate newlev to a number relative to the current dungeon. */
if (!(wizard_tele && force_dest))
get_level(&newlevel, newlev);
}
schedule_goto(&newlevel, FALSE, FALSE, 0, NULL, NULL);
/* in case player just read a scroll and is about to be asked to call it
something, we can't defer until the end of the turn */
if (!flags.mon_moving)
deferred_goto();
}
/* TODO: Perhaps work out some way to let controlled teleport in on a
CMD_ARG_POS, but there are too many codeflow possibilities involved to make
that easy. For now, if dotele turns into the spell, we copy the argument on
to the spell-handling function (which currently ignores it), but the other
possible codepaths just lose it. */
int
dotele(const struct nh_cmd_arg *arg)
{
struct trap *trap;
trap = t_at(level, u.ux, u.uy);
if (trap && (!trap->tseen || trap->ttyp != TELEP_TRAP))
trap = 0;
if (trap) {
if (trap->once) {
pline("This is a vault teleport, usable once only.");
if (yn("Jump in?") == 'n')
trap = 0;
else {
deltrap(level, trap);
newsym(u.ux, u.uy);
}
}
if (trap)
pline("You %s onto the teleportation trap.",
locomotion(youmonst.data, "jump"));
}
if (!trap) {
boolean castit = FALSE;
int sp_no = 0, energy = 0;
if (!supernatural_ability_available(SPID_RLOC)) {
/* Try to use teleport away spell. */
if (objects[SPE_TELEPORT_AWAY].oc_name_known && !Confusion)
for (sp_no = 0; sp_no < MAXSPELL; sp_no++)
if (spl_book[sp_no].sp_id == SPE_TELEPORT_AWAY) {
castit = TRUE;
break;
}
if (!castit) {
if (!Teleportation)
pline("You don't know that spell.");
else
pline("You are not able to teleport at will.");
return 0;
}
}
if (u.uhunger <= 100 || ACURR(A_STR) < 6) {
pline("You lack the strength %s.",
castit ? "for a teleport spell" : "to teleport");
return 1;
}
energy = objects[SPE_TELEPORT_AWAY].oc_level * 7 / 2 - 2;
if (u.uen <= energy) {
pline("You lack the energy %s.",
castit ? "for a teleport spell" : "to teleport");
return 1;
}
if (check_capacity("Your concentration falters from carrying so much."))
return 1;
if (castit) {
exercise(A_WIS, TRUE);
if (spelleffects(sp_no, TRUE, arg))
return 1;
else
return 0;
} else
u.uen -= energy;
}
if (trap && trap->once) {
if (next_to_u())
vault_tele();
else
pline("You shudder for a moment.");
} else if (!tele_impl(FALSE, TRUE))
return 0;
next_to_u();
if (!trap)
morehungry(100);
return 1;
}
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);
}
}
}
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);
}
}
}
static void you_moved(void)
{
int moveamt = 0, wtcap = 0, change = 0;
boolean monscanmove = FALSE;
/* Begin turn-tracking for delay_msg. */
if (delay_start == 0)
delay_start = moves;
/* actual time passed */
youmonst.movement -= NORMAL_SPEED;
do { /* hero can't move this turn loop */
wtcap = encumber_msg();
calc_attr_bonus();
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 = level->monlist; mtmp; mtmp = mtmp->nmon)
mtmp->movement += mcalcmove(mtmp);
if (!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) > depth(&stronghold_level)) ? 50 : 70))
makemon(NULL, level, 0, 0, NO_MM_FLAGS);
/* calculate how much time passed. */
if (u.usteed && u.umoved) {
/* your speed doesn't augment steed's speed */
moveamt = mcalcmove(u.usteed);
} else {
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();
moves++;
level->lastmoves = moves;
/********************************/
/* once-per-turn things go here */
/********************************/
if (flags.bypasses) clear_bypasses();
if (Glib) glibr();
nh_timeout();
run_regions(level);
dgn_growths(level, TRUE, TRUE);
if (u.ublesscnt) u.ublesscnt--;
iflags.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(level, u.ux,u.uy) && !Is_waterlevel(&u.uz)) {
if (u.mh > 1) {
u.mh--;
iflags.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))) {
iflags.botl = 1;
u.mh++;
interrupt_multi("Hit points", u.mh, u.mhmax);
}
} 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;
}
iflags.botl = 1;
u.uhp += heal;
if (u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
interrupt_multi("Hit points", u.uhp, u.uhpmax);
} else if (Regeneration ||
(u.ulevel <= 9 &&
!(moves % ((MAXULEV+12) / (u.ulevel+2) + 1)))) {
iflags.botl = 1;
u.uhp++;
interrupt_multi("Hit points", u.uhp, u.uhpmax);
}
}
/* 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 {
pline("你用力过度昏倒了！");
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;
iflags.botl = 1;
interrupt_multi("Magic energy", u.uen, u.uenmax);
}
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);
}
}
}
/* 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, NULL);
if (change == 1) polyself(FALSE);
else you_were();
change = 0;
}
}
}
if (Searching && multi >= 0) 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(NULL);
/* 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 */
/******************************************/
if (u.utrap && u.utraptype == TT_LAVA)
handle_lava_trap(TRUE);
if (iflags.hp_notify && prev_hp_notify != uhp()) {
pline("%s", hp_notify_format_str(iflags.hp_notify_fmt ?
iflags.hp_notify_fmt : "[HP%c%a=%h]"));
prev_hp_notify = uhp();
}
}