Function getlev

src/restore.c:1045–1311

#endif /* !SFCTOOL */

void
getlev(NHFILE *nhfp, int pid, xint8 lev)
{
    struct trap *trap;
#ifndef SFCTOOL
    struct monst *mtmp;
    branch *br;
    int x, y;
#endif
    long elapsed = 0L;
    int hpid = 0;
    xint8 dlvl = 0;
    int i, c, r;
    boolean ghostly = (nhfp->ftype == NHF_BONESFILE);
    coord *tmpc = 0;
#ifdef TOS
    short tlev;
#endif

    program_state.in_getlev = TRUE;
#ifndef SFCTOOL

    if (ghostly)
        clear_id_mapping();
#endif  /* !SFCTOOL */

#if 0
#if defined(MSDOS) || defined(OS2)
    if (nhfp->structlevel)
        setmode(nhfp->fd, O_BINARY);
#endif
#endif

    /* Load the old fruit info.  We have to do it first, so the
     * information is available when restoring the objects.
     */
    if (ghostly)
        go.oldfruit = loadfruitchn(nhfp);

    /* First some sanity checks */
    Sfi_int(nhfp, &hpid, "gamestate-hackpid");
/* CHECK:  This may prevent restoration */
    Sfi_xint8(nhfp, &dlvl, "gamestate-dlvl");
#ifndef SFCTOOL
    if ((pid && pid != hpid) || (lev && dlvl != lev)) {
        char trickbuf[BUFSZ];

        if (pid && pid != hpid)
            Sprintf(trickbuf, "PID (%d) doesn't match saved PID (%d)!", hpid,
                    pid);
        else
            Sprintf(trickbuf, "This is level %d, not %d!", dlvl, lev);
        if (wizard)
            pline1(trickbuf);
        trickery(trickbuf);
    }
#endif
    restcemetery(nhfp, &svl.level.bonesinfo);