#include "hack.h"

#ifndef NO_SIGNAL

#include <signal.h>

staticfn void moveloop_preamble(boolean);

staticfn void u_calc_moveamt(int);

staticfn void maybe_generate_rnd_mon(void);

staticfn void maybe_do_tutorial(void);

#ifdef POSITIONBAR

staticfn void do_positionbar(void);

staticfn void regen_pw(int);

staticfn void regen_hp(int);

staticfn void interrupt_multi(const char *);

early_init(int argc, char *argv[])

{

program_state_init();

#ifdef CRASHREPORT

/* Do this as early as possible, but let ports do other things first. */

crashreport_init(argc, argv);

decl_globals_init();

objects_globals_init();

monst_globals_init();

sys_early_init();

runtime_info_init();

nhUse(argc);

nhUse(argv[0]);

}

staticfn void

moveloop_preamble(boolean resuming)

{

/* if a save file created in normal mode is now being restored in

if (resuming && iflags.deferred_X)

(void) enter_explore_mode();

/* side-effects from the real world */

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);

}

if (!resuming) { /* new game */

program_state.beyond_savefile_load = 1; /* for TTY_PERM_INVENT */

svc.context.rndencode = rnd(9000);

set_wear((struct obj *) 0); /* for side-effects of starting gear */

reset_justpicked(gi.invent);

(void) pickup(1); /* autopickup at initial location */

/* only matters if someday a character is able to start with

svc.context.seer_turn = (long) rnd(30);

/* give hero initial movement points; new game only--for restore,

u.umovement = NORMAL_SPEED;

initrack();

}

disp.botlx = TRUE; /* for STATUS_HILITES */

if (resuming) { /* restoring old game */

read_engr_at(u.ux, u.uy); /* subset of pickup() */

fix_shop_damage();

}

encumber_msg(); /* in case they auto-picked up something */

if (gd.defer_see_monsters) {

gd.defer_see_monsters = FALSE;

see_monsters();

}

u.uz0.dlevel = u.uz.dlevel;

svc.context.move = 0;

/* finish processing "--debug:fuzzer" from the command line */

if (iflags.fuzzerpending) {

iflags.debug_fuzzer = fuzzer_impossible_panic;

iflags.fuzzerpending = FALSE;

}

program_state.in_moveloop = 1;

/* for perm_invent preset at startup, display persistent inventory after

if (iflags.perm_invent)

update_inventory();

}

staticfn void

u_calc_moveamt(int wtcap)

{

int moveamt = 0;

/* calculate how much time passed. */

if (u.usteed && u.umoved) {

/* your speed doesn't augment steed's speed */

moveamt = mcalcmove(u.usteed, TRUE);

} else {

moveamt = gy.youmonst.data->mmove;

if (Very_fast) { /* speed boots, potion, or spell */

/* gain a free action on 2/3 of turns */

if (rn2(3) != 0)

moveamt += NORMAL_SPEED;

} else if (Fast) { /* intrinsic */

/* gain a free action on 1/3 of turns */

if (rn2(3) == 0)

moveamt += NORMAL_SPEED;

}

}

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;

}

u.umovement += moveamt;

if (u.umovement < 0)

u.umovement = 0;

}

staticfn void

maybe_generate_rnd_mon(void)

{

if (!rn2(u.uevent.udemigod ? 25

: (depth(&u.uz) > depth(&stronghold_level)) ? 50

: 70))

(void) makemon((struct permonst *) 0, 0, 0, NO_MM_FLAGS);

}

#if defined(MICRO) || defined(WIN32)

static int mvl_abort_lev;

static int mvl_wtcap = 0;

static int mvl_change = 0;

moveloop_core(void)

{

boolean monscanmove = FALSE;

#ifdef SAFERHANGUP

if (program_state.done_hup)

end_of_input();

get_nh_event();

#ifdef POSITIONBAR

do_positionbar();

if (iflags.pending_customizations)

maybe_shuffle_customizations();

dobjsfree();

if (svc.context.bypasses)

clear_bypasses();

if (iflags.sanity_check || iflags.debug_fuzzer)

sanity_check();

if (svc.context.resume_wish)

makewish(); /* clears resume_wish */

if (svc.context.move) {

/* actual time passed */

u.umovement -= NORMAL_SPEED;

do { /* hero can't move this turn loop */

encumber_msg();

svc.context.mon_moving = TRUE;

/* call terrain_effects during mon_moving phase */

if (gp.pending_terrain_effects) {

terrain_effects();

gp.pending_terrain_effects = no_terrain_effects;

}

do {

monscanmove = movemon();

if (u.umovement >= NORMAL_SPEED)

break; /* it's now your turn */

} while (monscanmove);

svc.context.mon_moving = FALSE;

/* this needs to be after the monster movement loop in

mvl_wtcap = near_capacity();

if (!monscanmove && u.umovement < NORMAL_SPEED) {

/* both hero and monsters are out of steam this round */

struct monst *mtmp;

/* set up for a new turn */

gw.were_changes = 0L;

mcalcdistress(); /* adjust monsters' trap, blind, etc */

/* reallocate movement rations to monsters; don't need

for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)

mtmp->movement += mcalcmove(mtmp, TRUE);

/* occasionally add another monster; since this takes

maybe_generate_rnd_mon();

u_calc_moveamt(mvl_wtcap);

settrack();

svm.moves++;

/*

if (svm.moves >= 1000000000L) {

display_nhwindow(WIN_MESSAGE, TRUE);

urgent_pline("The dungeon capitulates.");

done(ESCAPED);

}

/* 'moves' is misnamed; it represents turns; hero_seq is

gh.hero_seq = svm.moves << 3;

if (flags.time && !svc.context.run)

disp.time_botl = TRUE; /* 'moves' just changed */

/********************************/

/* once-per-turn things go here */

/********************************/

l_nhcore_call(NHCORE_MOVELOOP_TURN);

if (Glib)

glibr();

nh_timeout();

run_regions();

if (u.ublesscnt)

u.ublesscnt--;

/* One possible result of prayer is healing. Whether or

if (u.uinvulnerable) {

/* for the moment at least, you're in tiptop shape */

mvl_wtcap = UNENCUMBERED;

} else if (!Upolyd ? (u.uhp < u.uhpmax)

: (u.mh < u.mhmax

|| gy.youmonst.data->mlet == S_EEL)) {

/* maybe heal */

regen_hp(mvl_wtcap);

}

/* moving around while encumbered is hard work */

if (mvl_wtcap > MOD_ENCUMBER && u.umoved) {

if (!(mvl_wtcap < EXT_ENCUMBER ? svm.moves % 30

: svm.moves % 10)) {

overexert_hp();

}

}

regen_pw(mvl_wtcap);

if (!u.uinvulnerable) {

if (Teleportation && !rn2(85)) {

coordxy 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);

}

/* clear doagain keystrokes */

cmdq_clear(CQ_CANNED);

cmdq_clear(CQ_REPEAT);

}

}

/* delayed change may not be valid anymore */

if ((mvl_change == 1 && !Polymorph)

|| (mvl_change == 2 && u.ulycn == NON_PM))

mvl_change = 0;

if (Polymorph && !rn2(100))

mvl_change = 1;

else if (ismnum(u.ulycn) && !Upolyd

&& !rn2(80 - (20 * night())))

mvl_change = 2;

if (mvl_change && !Unchanging) {

if (gm.multi >= 0) {

stop_occupation();

if (mvl_change == 1)

polyself(POLY_NOFLAGS);

else

you_were();

mvl_change = 0;

}

}

}

if (Searching && !svl.level.flags.noautosearch

&& gm.multi >= 0)

(void) dosearch0(1);

if (Warning)

warnreveal();

if (gw.were_changes) {

/* update innate intrinsics (mainly Drain_resistance) */

set_uasmon();

}

mkot_trap_warn();

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);

}

}

/* vision will be updated as bubbles move */

if (Is_waterlevel(&u.uz) || Is_airlevel(&u.uz))

movebubbles();

else if (svl.level.flags.fumaroles)

fumaroles();

/* when immobile, count is in turns */

if (gm.multi < 0) {

runmode_delay_output();

if (++gm.multi == 0) { /* finished yet? */

unmul((char *) 0);

/* if unmul caused a level change, take it now */

if (u.utotype)

deferred_goto();

}

}

}

} while (u.umovement < NORMAL_SPEED); /* hero can't move */

/******************************************/

/* once-per-hero-took-time things go here */

/******************************************/

gh.hero_seq++; /* moves*8 + n for n == 1..7 */

/* although we checked for encumbrance above, we need to

encumber_msg();

#ifdef STATUS_HILITES

if (iflags.hilite_delta)

status_eval_next_unhilite();

if (svm.moves >= svc.context.seer_turn) {

if ((u.uhave.amulet || Clairvoyant) && !In_endgame(&u.uz)

&& !BClairvoyant)

do_vicinity_map((struct obj *) 0);

/* we maintain this counter even when clairvoyance isn't

svc.context.seer_turn = svm.moves + (long) rn1(31, 15); /*15..45*/

/* [it used to be that on every 15th turn, there was a 50%

}

/* [fast hero who gets multiple moves per turn ends up sinking

if (u.utrap && u.utraptype == TT_LAVA)

sink_into_lava();

/* when/if hero escapes from lava, he can't just stay there */

else if (!u.umoved)

(void) pooleffects(FALSE);

/* vision while buried or underwater is updated here */

if (Underwater)

under_water(0);

else if (u.uburied)

under_ground(0);

see_nearby_monsters();

} /* actual time passed */

/****************************************/

/* once-per-player-input things go here */

/****************************************/

clear_splitobjs();

/* the Amulet of Yendor gives a wish when initially picked up */

if (u.uhave.amulet && !u.uevent.amulet_wish) {

u.uevent.amulet_wish = 1;

display_nhwindow(WIN_MESSAGE, TRUE);

urgent_pline("The Amulet is bestowing a wish upon you!");

makewish();

}

find_ac();

if (!svc.context.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 || Warning || Warn_of_mon

/* this is needed for the case where you saw a monster

|| any_visible_region()) { /* TODO: optimize this */

see_monsters();

}

if (gv.vision_full_recalc)

vision_recalc(0); /* vision! */

}

if (disp.botl || disp.botlx) {

bot();

curs_on_u();

} else if (disp.time_botl) {

timebot();

curs_on_u();

}

m_everyturn_effect(&gy.youmonst);

svc.context.move = 1;

if (gm.multi >= 0 && go.occupation) {

#if defined(MICRO) || defined(WIN32CON)

mvl_abort_lev = 0;

if (kbhit()) {

char ch;

if ((ch = pgetchar()) == ABORT)

mvl_abort_lev++;

else

cmdq_add_key(CQ_CANNED, ch);

}

if (!mvl_abort_lev && (*go.occupation)() == 0)

if ((*go.occupation)() == 0)

go.occupation = 0;

if (

#if defined(MICRO) || defined(WIN32)

mvl_abort_lev ||

monster_nearby()) {

stop_occupation();

reset_eat();

}

runmode_delay_output();

return;

}

u.umoved = FALSE;

if (gm.multi > 0) {

lookaround();

runmode_delay_output();

if (!gm.multi) {

/* lookaround may clear multi */

svc.context.move = 0;

return;

}

if (svc.context.mv) {

if (gm.multi < COLNO && !--gm.multi)

end_running(TRUE);

domove();

} else {

--gm.multi;

nhassert(gc.command_count != 0);

rhack(gc.cmd_key);

}

} else if (gm.multi == 0) {

#ifdef MAIL

ckmailstatus();

rhack(0);

}

if (u.utotype) /* change dungeon level */

deferred_goto(); /* after rhack() */

if (gv.vision_full_recalc)

vision_recalc(0); /* vision! */

#ifdef CLIPPING

/* after rhack() and vision_recalc() so that the map is redrawn

cliparound(u.ux, u.uy);

/* when running in non-tport mode, this gets done through domove() */

if ((!svc.context.run || flags.runmode == RUN_TPORT)

&& (gm.multi && (!svc.context.travel ? !(gm.multi % 7)

: !(svm.moves % 7L)))) {

if (flags.time && svc.context.run)

disp.botl = TRUE;

/* [should this be flush_screen() instead?] */

display_nhwindow(WIN_MAP, FALSE);

}

if (gl.luacore && nhcb_counts[NHCB_END_TURN]) {

lua_getglobal(gl.luacore, "nh_callback_run");

lua_pushstring(gl.luacore, nhcb_name[NHCB_END_TURN]);

nhl_pcall_handle(gl.luacore, 1, 0, "moveloop_core", NHLpa_panic);

lua_settop(gl.luacore, 0);

}

}

staticfn void

maybe_do_tutorial(void)

{

s_level *sp = find_level("tut-1");

if (!sp)

return;

if (ask_do_tutorial()) {

assign_level(&u.ucamefrom, &u.uz);

iflags.nofollowers = TRUE;

schedule_goto(&sp->dlevel, UTOTYPE_NONE,

"Entering the tutorial.", (char *) 0);

deferred_goto();

vision_recalc(0);

docrt();

iflags.nofollowers = FALSE;

} else {

/* no tutorial, so okay to process mention_decor now */

rcfile_only_this_option(opt_mention_decor);

}

}

moveloop(boolean resuming)

{

moveloop_preamble(resuming);

if (!resuming)

maybe_do_tutorial();

/* process one deferred option post-tutorial */

rcfile_only_this_option(opt_mention_decor);

for (;;) {

moveloop_core();

}

}

staticfn void

regen_pw(int wtcap)

{

if (u.uen < u.uenmax

&& ((wtcap < MOD_ENCUMBER

&& (!(svm.moves % ((MAXULEV + 8 - u.ulevel)

* (Role_if(PM_WIZARD) ? 3 : 4)

/ 6)))) || Energy_regeneration)) {

int upper = (int) (ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1;

if (EMagical_breathing)

upper += 2;

u.uen += rn1(upper, 1);

if (u.uen > u.uenmax)

u.uen = u.uenmax;

disp.botl = TRUE;

if (u.uen == u.uenmax)

interrupt_multi("You feel full of energy.");

}

}

#define U_CAN_REGEN() (Regeneration || (Sleepy && u.usleep))

staticfn void

regen_hp(int wtcap)

{

int heal = 0;

boolean reached_full = FALSE,

encumbrance_ok = (wtcap < MOD_ENCUMBER || !u.umoved);

if (Upolyd) {

if (u.mh < 1) { /* shouldn't happen... */

rehumanize();

} else if (gy.youmonst.data->mlet == S_EEL

&& !is_pool(u.ux, u.uy) && !Is_waterlevel(&u.uz)

&& !Breathless) {

/* eel out of water loses hp, similar to monster eels;

if (u.mh > 1 && !Regeneration && rn2(u.mh) > rn2(8)

&& (!Half_physical_damage || !(svm.moves % 2L)))

heal = -1;

} else if (u.mh < u.mhmax) {

if (U_CAN_REGEN() || (encumbrance_ok && !(svm.moves % 20L)))

heal = 1;

}

if (heal) {

disp.botl = TRUE;

u.mh += heal;

reached_full = (u.mh == u.mhmax);

}

/* !Upolyd */

} else {

/* [when this code was in-line within moveloop(), there was

if (u.uhp < u.uhpmax && (encumbrance_ok || U_CAN_REGEN())) {

heal = (u.ulevel + (int)ACURR(A_CON)) > rn2(100);

if (U_CAN_REGEN())

heal += 1;

if (Sleepy && u.usleep)

heal++;

if (heal) {

disp.botl = TRUE;

u.uhp += heal;

if (u.uhp > u.uhpmax)

u.uhp = u.uhpmax;

/* stop voluntary multi-turn activity if now fully healed */

reached_full = (u.uhp == u.uhpmax);

}

}

}

if (reached_full)

interrupt_multi("You are in full health.");

}

#undef U_CAN_REGEN

stop_occupation(void)

{

if (go.occupation) {

if (!maybe_finished_meal(TRUE))

You("stop %s.", go.occtxt);

go.occupation = (int (*)(void)) 0;

disp.botl = TRUE; /* in case u.uhs changed */

nomul(0);

} else if (gm.multi >= 0) {

nomul(0);

}

cmdq_clear(CQ_CANNED);

}

init_sound_disp_gamewindows(void)

{

int menu_behavior = MENU_BEHAVE_STANDARD;

activate_chosen_soundlib();

if (iflags.wc_splash_screen && !flags.randomall) {

SoundAchievement(0, sa2_splashscreen, 0);

/* ToDo: new splash screen invocation will go here */

} else {

SoundAchievement(0, sa2_newgame_nosplash, 0);

}

#ifdef CHANGE_COLOR

/* init_nhwindows() has already been called, so before

change_palette();

WIN_MESSAGE = create_nhwindow(NHW_MESSAGE);

if (VIA_WINDOWPORT()) {

status_initialize(FALSE);

} else {

WIN_STATUS = create_nhwindow(NHW_STATUS);

}

WIN_MAP = create_nhwindow(NHW_MAP);

WIN_INVEN = create_nhwindow(NHW_MENU);

if (WIN_INVEN != WIN_ERR)

adjust_menu_promptstyle(WIN_INVEN, &iflags.menu_headings);

#ifdef TTY_PERM_INVENT

if (WINDOWPORT(tty) && WIN_INVEN != WIN_ERR) {

menu_behavior = MENU_BEHAVE_PERMINV;

prepare_perminvent(WIN_INVEN);

}

/* in case of early quit where WIN_INVEN could be destroyed before

start_menu(WIN_INVEN, menu_behavior), end_menu(WIN_INVEN, (char *) 0);

#ifdef MAC68K

/* This _is_ the right place for this - maybe we will

if (!strcmp(windowprocs.name, "mac"))

SanePositions();

/*

#ifndef STATUS_HILITES

display_nhwindow(WIN_STATUS, FALSE);

display_nhwindow(WIN_MESSAGE, FALSE);

clear_glyph_buffer();

display_nhwindow(WIN_MAP, FALSE);

#ifdef TTY_PERM_INVENT

if (iflags.perm_invent_pending)

check_perm_invent_again();

}

newgame(void)

{

int i;

#ifdef SYSCF

time_t last_reroll_time;

time_t cur_reroll_time;

int rerolls_this_second = 0;

# if defined(BSD) && !defined(POSIX_TYPES)

# define GET_REROLL_TIME(t) (void) time((long *) t);

# define GET_REROLL_TIME(t) (void) time(t);

#endif /* defined(SYSCF) */

/* make sure welcome messages are given before noticing monsters */

notice_mon_off();

disp.botlx = TRUE;

svc.context.ident = 2; /* id 1 is reserved for gy.youmonst */

svc.context.warnlevel = 1;

svc.context.next_attrib_check = 600L; /* arbitrary first setting */

svc.context.tribute.enabled = TRUE; /* turn on 3.6 tributes */

svc.context.tribute.tributesz = sizeof(struct tribute_info);

get_nhuuid();

for (i = LOW_PM; i < NUMMONS; i++)

svm.mvitals[i].mvflags = mons[i].geno & G_NOCORPSE;

init_objects(); /* must be before u_init() */

flags.pantheon = -1; /* role_init() will reset this */

role_init(); /* must be before init_dungeons(), u_init(),

init_dungeons(); /* must be before u_init() to avoid rndmonst()

init_artifacts(); /* before u_init() in case $WIZKIT specifies

u_init_misc();

l_nhcore_init(); /* create a Lua state that lasts until end of game */

reset_glyphmap(gm_newgame);

#ifndef NO_SIGNAL

(void) signal(SIGINT, (SIG_RET_TYPE) done1);

#ifdef NEWS

if (iflags.news)

display_file(NEWS, FALSE);

/* quest_init(); -- Now part of role_init() */

mklev();

u_on_upstairs();

vision_reset(); /* set up internals for level (after mklev) */

check_special_room(FALSE);

if (MON_AT(u.ux, u.uy))

mnexto(m_at(u.ux, u.uy), RLOC_NOMSG);

(void) makedog();

u_init_inventory_attrs();

docrt();

flush_screen(1);

bot();

#ifdef SYSCF

GET_REROLL_TIME(&last_reroll_time);

while (u.uroleplay.reroll && reroll_menu()) {

#ifdef SYSCF

if (sysopt.maxrerollrate > 0) {

check_reroll_time:

GET_REROLL_TIME(&cur_reroll_time);

if (last_reroll_time != cur_reroll_time) {

last_reroll_time = cur_reroll_time;

rerolls_this_second = 1;

} else {

if (rerolls_this_second >= sysopt.maxrerollrate) {

if (!paranoid_query(TRUE, "Continue rerolling?"))

break;

goto check_reroll_time;

}

++rerolls_this_second;

}

}

++u.uroleplay.numrerolls;

u_init_inventory_attrs();

bot();

}

u_init_skills_discoveries();

if (wizard) {

read_wizkit();

obj_delivery(FALSE); /* finish wizkit */

}

if (flags.legacy) {

com_pager(u.uroleplay.pauper ? "pauper_legacy" : "legacy");

}

urealtime.realtime = 0L;

urealtime.start_timing = getnow();

program_state.something_worth_saving++; /* useful data now exists */

#ifdef INSURANCE

save_currentstate();

/* Success! */

welcome(TRUE);

notice_mon_on(); /* now we can notice monsters */

if (a11y.glyph_updates)

(void) dolookaround();

else

notice_all_mons(TRUE);

return;

}

welcome(boolean new_game) /* false => restoring an old game */

{

char buf[BUFSZ];

boolean currentgend = Upolyd ? u.mfemale : flags.female,

adrift = (u.ualign.type != u.ualignbase[A_CURRENT]);

l_nhcore_call(new_game ? NHCORE_START_NEW_GAME : NHCORE_RESTORE_OLD_GAME);

/* skip "welcome back" if restoring a doomed character */

if (!new_game && Upolyd && ugenocided()) {

/* death via self-genocide is pending */

pline("You're back, but you still feel %s inside.", udeadinside());

return;

}

if (Hallucination)

pline("NetHack is filmed in front of an undead studio audience.");

/*

*buf = '\0';

#if 0

if (new_game || u.ualignbase[A_ORIGINAL] != u.ualignbase[A_CURRENT])

Sprintf(eos(buf), " %s", align_str(u.ualignbase[A_ORIGINAL]));

/*

if (new_game || u.ualignbase[A_ORIGINAL] != u.ualignbase[A_CURRENT] || adrift)

Sprintf(eos(buf), " %s%s",

adrift ? "adrift " : "",

adrift ? align_str(u.ualign.type)

: align_str(u.ualignbase[A_CURRENT]));

if (!gu.urole.name.f

&& (new_game

? (gu.urole.allow & ROLE_GENDMASK) == (ROLE_MALE | ROLE_FEMALE)

: currentgend != flags.initgend))

Sprintf(eos(buf), " %s", genders[currentgend].adj);

Sprintf(eos(buf), " %s %s", gu.urace.adj,

(currentgend && gu.urole.name.f) ? gu.urole.name.f

: gu.urole.name.m);

pline(new_game ? "%s %s, welcome to NetHack! You are a%s."

: "%s %s, the%s, welcome back to NetHack!",

Hello((struct monst *) 0), svp.plname, buf);

if (new_game) {

/* guarantee that 'major' event category is never empty */

livelog_printf(LL_ACHIEVE, "%s the%s entered the dungeon",

svp.plname, buf);

} else {

/* if restoring in Gehennom, give same hot/smoky message as when

hellish_smoke_mesg();

/* remind player of the level annotation, like in goto_level() */

print_level_annotation();

}

}

#ifdef POSITIONBAR

staticfn void

do_positionbar(void)

{

/* FIXME: this will break if any coordinate is too big for (char);

static char pbar[COLNO];

char *p;

stairway *stway;

coordxy x, y;

int glyph, symbol;

p = pbar;

/* TODO: use the same method as getpos() so objects don't cover stairs */

/* FIXME: traversing 'stairs' list ignores mimics that pose as stairs */

for (stway = gs.stairs; stway; stway = stway->next) {

x = stway->sx;

y = stway->sy;

glyph = levl[x][y].glyph;

symbol = glyph_to_cmap(glyph);

if (is_cmap_stairs(symbol)) {