jboolean nhjni_run() {
windowprocs = _nhjni_proxy_procs;
_nhjni_proxy_init();
int fd = create_levelfile(0, (char *)0);
if (fd < 0) {
raw_print("Cannot create lock file");
} else {
hackpid = 1;
write(fd, (genericptr_t) &hackpid, sizeof(hackpid));
close(fd);
}
iflags.news = TRUE;
int argc=1;
char *argv[]={"nethack",NULL};
initoptions();
init_nhwindows(&argc,argv);
dlb_init();
vision_init();
display_gamewindows();
if ((fd = restore_saved_game()) >= 0) {
const char *fq_save = fqname(SAVEF, SAVEPREFIX, 1);
pline("Restoring save file...");
mark_synch(); /* flush output */
if(!dorecover(fd))
goto not_recovered;
check_special_room(FALSE);
//wd_message();
if (discover || wizard) {
if(yn("Do you want to keep the save file?") == 'n')
(void) delete_savefile();
else {
(void) chmod(fq_save,FCMASK); /* back to readable */
compress(fq_save);
}
}
flags.move = 0;
} else {
not_recovered:
player_selection();
newgame();
flags.move = 0;
set_wear();
(void) pickup(1);
}
moveloop();
return JNI_TRUE;
}
void
newgame()
{
fobj = invent = level.buriedobjlist = migrating_objs = (struct obj *)0;
fmon = migrating_mons = (struct monst *)0;
ftrap = 0;
flags.ident = 1;
if(wiz1_level.dlevel == 0) init_dungeons();
init_objects(); /* must be before u_init() */
u_init();
init_artifacts(); /* must be after u_init() */
#ifndef NO_SIGNAL
(void) signal(SIGINT, (SIG_RET_TYPE) done1);
#endif
#ifdef NEWS
if(flags.news) display_file(NEWS, FALSE);
#endif
#ifdef MULDGN
load_qtlist(); /* load up the quest text info */
quest_init();
if(flags.legacy && moves == 1) com_pager(1);
#endif
mklev();
u_on_upstairs();
check_special_room(FALSE);
vision_reset(); /* set up internals for level (after mklev) */
flags.botlx = 1;
/* Move the monster from under you or else
* makedog() will fail when it calls makemon().
* - ucsfcgl!kneller
*/
if(MON_AT(u.ux, u.uy)) mnexto(m_at(u.ux, u.uy));
#ifdef CLIPPING
cliparound(u.ux, u.uy);
#endif
(void) makedog();
docrt();
#ifdef INSURANCE
save_currentstate();
#endif
return;
}
void
newgame()
{
int i;
#ifdef MFLOPPY
gameDiskPrompt();
#endif
flags.ident = 1;
for (i = 0; i < NUMMONS; i++)
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(),
* and init_artifacts() */
init_dungeons(); /* must be before u_init() to avoid rndmonst()
* creating odd monsters for any tins and eggs
* in hero's initial inventory */
init_artifacts(); /* before u_init() in case $WIZKIT specifies
* any artifacts */
u_init();
#ifndef NO_SIGNAL
(void) signal(SIGINT, (SIG_RET_TYPE) done1);
#endif
#ifdef NEWS
if(iflags.news) display_file(NEWS, FALSE);
#endif
load_qtlist(); /* load up the quest text info */
/* quest_init();*/ /* Now part of role_init() */
mklev();
u_on_upstairs();
vision_reset(); /* set up internals for level (after mklev) */
check_special_room(FALSE);
flags.botlx = 1;
/* Move the monster from under you or else
* makedog() will fail when it calls makemon().
* - ucsfcgl!kneller
*/
if(MON_AT(u.ux, u.uy)) mnexto(m_at(u.ux, u.uy));
(void) makedog();
docrt();
if (flags.legacy) {
flush_screen(1);
com_pager(1);
}
#ifdef INSURANCE
save_currentstate();
#endif
program_state.something_worth_saving++; /* useful data now exists */
#if defined(RECORD_REALTIME) || defined(REALTIME_ON_BOTL)
/* Start the timer here */
realtime_data.realtime = (time_t)0L;
#if defined(BSD) && !defined(POSIX_TYPES)
(void) time((long *)&realtime_data.restoretime);
#else
(void) time(&realtime_data.restoretime);
#endif
#endif /* RECORD_REALTIME || REALTIME_ON_BOTL */
/* Success! */
welcome(TRUE);
return;
}
int
dosave()
{
#ifdef KEEP_SAVE
/*WAC for reloading*/
register int fd;
#endif
clear_nhwindow(WIN_MESSAGE);
if(yn("Really save?") == 'n') {
clear_nhwindow(WIN_MESSAGE);
if(multi > 0) nomul(0);
} else {
clear_nhwindow(WIN_MESSAGE);
pline("Saving...");
#if defined(UNIX) || defined(VMS) || defined(__EMX__)
program_state.done_hup = 0;
#endif
#ifdef KEEP_SAVE
saverestore = FALSE;
if (flags.keep_savefile)
if(yn("Really quit?") == 'n') saverestore = TRUE;
if(dosave0() && !saverestore) {
#else
if(dosave0()) {
#endif
program_state.something_worth_saving = 0;
u.uhp = -1; /* universal game's over indicator */
/* make sure they see the Saving message */
display_nhwindow(WIN_MESSAGE, TRUE);
exit_nhwindows("Be seeing you...");
terminate(EXIT_SUCCESS);
}
/*WAC redraw later
else (void)doredraw();*/
}
#ifdef KEEP_SAVE
if (saverestore) {
/*WAC pulled this from pcmain.c - restore game from the file just saved*/
fd = create_levelfile(0);
if (fd < 0) {
raw_print("Cannot create lock file");
} else {
hackpid = 1;
write(fd, (genericptr_t) &hackpid, sizeof(hackpid));
close(fd);
}
#ifdef MFLOPPY
level_info[0].where = ACTIVE;
#endif
fd = restore_saved_game();
if (fd >= 0) dorecover(fd);
check_special_room(FALSE);
flags.move = 0;
/*WAC correct these after restore*/
if(flags.moonphase == FULL_MOON)
change_luck(1);
if(flags.friday13)
change_luck(-1);
if(iflags.window_inited)
clear_nhwindow(WIN_MESSAGE);
}
saverestore = FALSE;
#endif
(void)doredraw();
return 0;
}
#if defined(UNIX) || defined(VMS) || defined (__EMX__) || defined(WIN32)
/*ARGSUSED*/
void
hangup(sig_unused) /* called as signal() handler, so sent at least one arg */
int sig_unused;
{
# ifdef NOSAVEONHANGUP
(void) signal(SIGINT, SIG_IGN);
clearlocks();
# ifndef VMS
terminate(EXIT_FAILURE);
# endif
# else /* SAVEONHANGUP */
if (!program_state.done_hup++) {
if (program_state.something_worth_saving)
(void) dosave0();
# ifdef VMS
/* don't call exit when already within an exit handler;
that would cancel any other pending user-mode handlers */
if (!program_state.exiting)
# endif
{
clearlocks();
terminate(EXIT_FAILURE);
}
}
# endif
return;
}
#endif
/* returns 1 if save successful */
int
dosave0()
{
const char *fq_save;
register int fd, ofd;
xchar ltmp;
d_level uz_save;
char whynot[BUFSZ];
if (!SAVEF[0])
return 0;
fq_save = fqname(SAVEF, SAVEPREFIX, 1); /* level files take 0 */
#if defined(UNIX) || defined(VMS)
(void) signal(SIGHUP, SIG_IGN);
#endif
#ifndef NO_SIGNAL
(void) signal(SIGINT, SIG_IGN);
#endif
#if defined(MICRO) && defined(MFLOPPY)
if (!saveDiskPrompt(0)) return 0;
#endif
HUP if (iflags.window_inited) {
uncompress_area(fq_save, SAVEF);
fd = open_savefile();
if (fd > 0) {
(void) close(fd);
clear_nhwindow(WIN_MESSAGE);
There("seems to be an old save file.");
if (yn("Overwrite the old file?") == 'n') {
compress_area(fq_save, SAVEF);
#ifdef KEEP_SAVE
/*WAC don't restore if you didn't save*/
saverestore = FALSE;
#endif
return 0;
}
}
}
HUP mark_synch(); /* flush any buffered screen output */
fd = create_savefile();
if(fd < 0) {
HUP pline("Cannot open save file.");
(void) delete_savefile(); /* ab@unido */
return(0);
}
vision_recalc(2); /* shut down vision to prevent problems
in the event of an impossible() call */
/* undo date-dependent luck adjustments made at startup time */
if(flags.moonphase == FULL_MOON) /* ut-sally!fletcher */
change_luck(-1); /* and unido!ab */
if(flags.friday13)
change_luck(1);
if(iflags.window_inited)
HUP clear_nhwindow(WIN_MESSAGE);
#if defined(MICRO) && defined(TTY_GRAPHICS)
if (!strncmpi("tty", windowprocs.name, 3)) {
dotcnt = 0;
dotrow = 2;
curs(WIN_MAP, 1, 1);
putstr(WIN_MAP, 0, "Saving:");
}
#endif
#ifdef MFLOPPY
/* make sure there is enough disk space */
if (iflags.checkspace) {
long fds, needed;
savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
savegamestate(fd, COUNT_SAVE);
needed = bytes_counted;
for (ltmp = 1; ltmp <= maxledgerno(); ltmp++)
if (ltmp != ledger_no(&u.uz) && level_info[ltmp].where)
needed += level_info[ltmp].size + (sizeof ltmp);
fds = freediskspace(fq_save);
if (needed > fds) {
HUP {
There("is insufficient space on SAVE disk.");
pline("Require %ld bytes but only have %ld.", needed, fds);
}
flushout();
(void) close(fd);
(void) delete_savefile();
return 0;
}
co_false();
}
/*
* Move for priests and shopkeepers. Called from shk_move() and pri_move().
* Valid returns are 1: moved 0: didn't -1: let m_move do it -2: died.
*/
int
move_special(struct monst *mtmp, boolean in_his_shop, schar appr,
boolean uondoor, boolean avoid, xchar omx, xchar omy, xchar gx,
xchar gy)
{
xchar nx, ny, nix, niy;
schar i;
schar chcnt, cnt;
coord poss[9];
long info[9];
long allowflags;
struct obj *ib = NULL;
if (omx == gx && omy == gy)
return 0;
if (mtmp->mconf) {
avoid = FALSE;
appr = 0;
}
nix = omx;
niy = omy;
if (mtmp->isshk)
allowflags = ALLOW_SSM;
else
allowflags = ALLOW_SSM | ALLOW_SANCT;
if (passes_walls(mtmp->data))
allowflags |= (ALLOW_ROCK | ALLOW_WALL);
if (throws_rocks(mtmp->data))
allowflags |= ALLOW_ROCK;
if (tunnels(mtmp->data))
allowflags |= ALLOW_DIG;
if (!nohands(mtmp->data) && !verysmall(mtmp->data)) {
allowflags |= OPENDOOR;
if (m_carrying(mtmp, SKELETON_KEY))
allowflags |= BUSTDOOR;
}
if (is_giant(mtmp->data))
allowflags |= BUSTDOOR;
cnt = mfndpos(mtmp, poss, info, allowflags);
if (mtmp->isshk && avoid && uondoor) { /* perhaps we cannot avoid him */
for (i = 0; i < cnt; i++)
if (!(info[i] & NOTONL))
goto pick_move;
avoid = FALSE;
}
#define GDIST(x,y) (dist2(x,y,gx,gy))
pick_move:
chcnt = 0;
for (i = 0; i < cnt; i++) {
nx = poss[i].x;
ny = poss[i].y;
if (IS_ROOM(level->locations[nx][ny].typ) ||
(mtmp->isshk && (!in_his_shop || ESHK(mtmp)->following))) {
if (avoid && (info[i] & NOTONL))
continue;
if ((!appr && !rn2(++chcnt)) ||
(appr && GDIST(nx, ny) < GDIST(nix, niy))) {
nix = nx;
niy = ny;
}
}
}
if (mtmp->ispriest && avoid && nix == omx && niy == omy &&
onlineu(omx, omy)) {
/* might as well move closer as long it's going to stay lined up */
avoid = FALSE;
goto pick_move;
}
if (nix != omx || niy != omy) {
remove_monster(level, omx, omy);
place_monster(mtmp, nix, niy);
newsym(nix, niy);
if (mtmp->isshk && !in_his_shop && inhishop(mtmp))
check_special_room(FALSE);
if (ib) {
if (cansee(mtmp->mx, mtmp->my))
pline("%s picks up %s.", Monnam(mtmp),
distant_name(ib, doname));
obj_extract_self(ib);
mpickobj(mtmp, ib);
}
return 1;
}
return 0;
}
static void newgame(void)
{
int i;
flags.ident = 1;
for (i = 0; i < NUMMONS; i++)
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(),
* and init_artifacts() */
init_dungeons(); /* must be before u_init() to avoid rndmonst()
* creating odd monsters for any tins and eggs
* in hero's initial inventory */
init_artifacts();
u_init(); /* struct you must have some basic data for mklev to work right */
load_qtlist(); /* load up the quest text info */
level = mklev(&u.uz);
u_init_inv_skills();/* level must be valid to create items */
u_on_upstairs();
vision_reset(); /* set up internals for level (after mklev) */
check_special_room(FALSE);
iflags.botl = 1;
/* Move the monster from under you or else
* makedog() will fail when it calls makemon().
* - ucsfcgl!kneller
*/
if (MON_AT(level, u.ux, u.uy)) mnexto(m_at(level, u.ux, u.uy));
makedog();
doredraw();
if (Role_if(PM_CONVICT)) {
setworn(mkobj(level, CHAIN_CLASS, TRUE), W_CHAIN);
setworn(mkobj(level, BALL_CLASS, TRUE), W_BALL);
uball->spe = 1; /* attach the ball to the hero */
placebc();
}
/* help the window port get it's display charset/tiles sorted out */
notify_levelchange(NULL);
if (flags.legacy) {
flush_screen();
com_pager(Role_if(PM_CONVICT) ? 199 : 1);
}
/* Stop autoexplore revisiting the entrance stairs (or position). */
level->locations[u.ux][u.uy].mem_stepped = 1;
program_state.something_worth_saving++; /* useful data now exists */
historic_event(FALSE, "entered the Dungeons of Doom to retrieve the Amulet of Yendor!");
/* Success! */
welcome(TRUE);
maybe_tutorial();
/* Prepare for the first move. */
flags.move = 0;
set_wear();
pickup(1);
log_command_result();
program_state.game_running = TRUE;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
realtime_tasks();
post_init_tasks();
return;
}
