/*      $NetBSD: hack.end.c,v 1.19 2020/02/07 22:04:02 fox Exp $        */

/*
 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
 * Amsterdam
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * - Redistributions of source code must retain the above copyright notice,
 * this list of conditions and the following disclaimer.
 *
 * - Redistributions in binary form must reproduce the above copyright
 * notice, this list of conditions and the following disclaimer in the
 * documentation and/or other materials provided with the distribution.
 *
 * - Neither the name of the Stichting Centrum voor Wiskunde en
 * Informatica, nor the names of its contributors may be used to endorse or
 * promote products derived from this software without specific prior
 * written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: hack.end.c,v 1.19 2020/02/07 22:04:02 fox Exp $");
#endif                          /* not lint */

#include <signal.h>
#include <unistd.h>
#include <stdlib.h>
#include "hack.h"
#include "extern.h"
#define Snprintf        (void) snprintf

xchar           maxdlevel = 1;

struct toptenentry;

static void topten(void);
static void outheader(void);
static int outentry(int, struct toptenentry *, int);
static char *itoa(int);
static const char *ordin(int);

int
dodone(void)
{
        done1(0);
        return 0;
}


/*ARGSUSED*/
void
done1(int n __unused)
{
        (void) signal(SIGINT, SIG_IGN);
        pline("Really quit?");
        if (readchar() != 'y') {
                (void) signal(SIGINT, done1);
                clrlin();
                (void) fflush(stdout);
                if (multi > 0)
                        nomul(0);
                return;
        }
        done("quit");
        /* NOTREACHED */
}

static int done_stopprint;
static int done_hup;

/*ARGSUSED*/
static void
done_intr(int n __unused)
{
        done_stopprint++;
        (void) signal(SIGINT, SIG_IGN);
        (void) signal(SIGQUIT, SIG_IGN);
}

static void
done_hangup(int n)
{
        done_hup++;
        (void) signal(SIGHUP, SIG_IGN);
        done_intr(n);
}

void
done_in_by(struct monst *mtmp)
{
        static char     buf[BUFSZ];
        pline("You die ...");
        if (mtmp->data->mlet == ' ') {
                Snprintf(buf, sizeof(buf),
                        "the ghost of %s", (char *) mtmp->mextra);
                killer = buf;
        } else if (mtmp->mnamelth) {
                Snprintf(buf, sizeof(buf), "%s called %s",
                        mtmp->data->mname, NAME(mtmp));
                killer = buf;
        } else if (mtmp->minvis) {
                Snprintf(buf, sizeof(buf), "invisible %s", mtmp->data->mname);
                killer = buf;
        } else
                killer = mtmp->data->mname;
        done("died");
}

/*
 * called with arg "died", "drowned", "escaped", "quit", "choked",
 * "panicked", "burned", "starved" or "tricked"
 */
/* Be careful not to call panic from here! */
void
done(const char *st1)
{

#ifdef WIZARD
        if (wizard && *st1 == 'd') {
                u.uswldtim = 0;
                if (u.uhpmax < 0)
                        u.uhpmax = 100; /* arbitrary */
                u.uhp = u.uhpmax;
                pline("For some reason you are still alive.");
                flags.move = 0;
                if (multi > 0)
                        multi = 0;
                else
                        multi = -1;
                flags.botl = 1;
                return;
        }
#endif  /* WIZARD */
        (void) signal(SIGINT, done_intr);
        (void) signal(SIGQUIT, done_intr);
        (void) signal(SIGHUP, done_hangup);
        if (*st1 == 'q' && u.uhp < 1) {
                st1 = "died";
                killer = "quit while already on Charon's boat";
        }
        if (*st1 == 's')
                killer = "starvation";
        else if (*st1 == 'd' && st1[1] == 'r')
                killer = "drowning";
        else if (*st1 == 'p')
                killer = "panic";
        else if (*st1 == 't')
                killer = "trickery";
        else if (!strchr("bcd", *st1))
                killer = st1;
        paybill();
        clearlocks();
        if (flags.toplin == 1)
                more();
        if (strchr("bcds", *st1)) {
#ifdef WIZARD
                if (!wizard)
#endif  /* WIZARD */
                        savebones();
                if (!flags.notombstone)
                        outrip();
        }
        if (*st1 == 'c')
                killer = st1;   /* after outrip() */
        settty(NULL);           /* does a clear_screen() */
        if (!done_stopprint)
                printf("Goodbye %s %s...\n\n", pl_character, plname);
        {
                long int        tmp;
                tmp = u.ugold - u.ugold0;
                if (tmp < 0)
                        tmp = 0;
                if (*st1 == 'd' || *st1 == 'b')
                        tmp -= tmp / 10;
                u.urexp += tmp;
                u.urexp += 50 * maxdlevel;
                if (maxdlevel > 20)
                        u.urexp += 1000 * ((maxdlevel > 30) ? 10 : maxdlevel - 20);
        }
        if (*st1 == 'e') {
                struct monst   *mtmp;
                struct obj     *otmp;
                int             i;
                unsigned        worthlessct = 0;
                boolean         has_amulet = FALSE;

                killer = st1;
                keepdogs();
                mtmp = mydogs;
                if (mtmp) {
                        if (!done_stopprint)
                                printf("You");
                        while (mtmp) {
                                if (!done_stopprint)
                                        printf(" and %s", monnam(mtmp));
                                if (mtmp->mtame)
                                        u.urexp += mtmp->mhp;
                                mtmp = mtmp->nmon;
                        }
                        if (!done_stopprint)
                                printf("\nescaped from the dungeon with %ld points,\n",
                                       u.urexp);
                } else if (!done_stopprint)
                        printf("You escaped from the dungeon with %ld points,\n",
                               u.urexp);
                for (otmp = invent; otmp; otmp = otmp->nobj) {
                        if (otmp->olet == GEM_SYM) {
                                objects[otmp->otyp].oc_name_known = 1;
                                i = otmp->quan * objects[otmp->otyp].g_val;
                                if (i == 0) {
                                        worthlessct += otmp->quan;
                                        continue;
                                }
                                u.urexp += i;
                                if (!done_stopprint)
                                        printf("\t%s (worth %d Zorkmids),\n",
                                               doname(otmp), i);
                        } else if (otmp->olet == AMULET_SYM) {
                                otmp->known = 1;
                                i = (otmp->spe < 0) ? 2 : 5000;
                                u.urexp += i;
                                if (!done_stopprint)
                                        printf("\t%s (worth %d Zorkmids),\n",
                                               doname(otmp), i);
                                if (otmp->spe >= 0) {
                                        has_amulet = TRUE;
                                        killer = "escaped (with amulet)";
                                }
                        }
                }
                if (worthlessct)
                        if (!done_stopprint)
                                printf("\t%u worthless piece%s of coloured glass,\n",
                                       worthlessct, plur(worthlessct));
                if (has_amulet)
                        u.urexp *= 2;
        } else if (!done_stopprint)
                printf("You %s on dungeon level %d with %ld points,\n",
                       st1, dlevel, u.urexp);
        if (!done_stopprint)
                printf("and %ld piece%s of gold, after %ld move%s.\n",
                       u.ugold, plur(u.ugold), moves, plur(moves));
        if (!done_stopprint)
                printf("You were level %u with a maximum of %d hit points when you %s.\n",
                       u.ulevel, u.uhpmax, st1);
        if (*st1 == 'e' && !done_stopprint) {
                getret();       /* all those pieces of coloured glass ... */
                cls();
        }
#ifdef WIZARD
        if (!wizard)
#endif  /* WIZARD */
                topten();
        if (done_stopprint)
                printf("\n\n");
        exit(0);
}

#define newttentry() ((struct toptenentry *) alloc(sizeof(struct toptenentry)))
#define NAMSZ   8
#define DTHSZ   40
#define PERSMAX 1
#define POINTSMIN       1       /* must be > 0 */
#define ENTRYMAX        100     /* must be >= 10 */
#define PERS_IS_UID             /* delete for PERSMAX per name; now per uid */
struct toptenentry {
        struct toptenentry *tt_next;
        long int        points;
        int             level, maxlvl, hp, maxhp;
        int             uid;
        char            plchar;
        char            sex;
        char            name[NAMSZ + 1];
        char            death[DTHSZ + 1];
        char            date[7];/* yymmdd */
};

static struct toptenentry *tt_head;

static void
topten(void)
{
        int             uid = getuid();
        int             rank, rank0 = -1, rank1 = 0;
        int             occ_cnt = PERSMAX;
        struct toptenentry *t0, *t1, *tprev;
        const char     *recfile = RECORD;
        const char     *reclock = "record_lock";
        int             sleepct = 300;
        FILE           *rfile;
        int             flg = 0;
#define HUP     if(!done_hup)
        while (link(recfile, reclock) == -1) {
                HUP             perror(reclock);
                if (!sleepct--) {
                        HUP             puts("I give up. Sorry.");
                        HUP             puts("Perhaps there is an old record_lock around?");
                        return;
                }
                HUP             printf("Waiting for access to record file. (%d)\n",
                                                       sleepct);
                HUP(void) fflush(stdout);
                sleep(1);
        }
        if (!(rfile = fopen(recfile, "r"))) {
                HUP             puts("Cannot open record file!");
                goto unlock;
        }
        HUP(void) putchar('\n');

        /* create a new 'topten' entry */
        t0 = newttentry();
        t0->level = dlevel;
        t0->maxlvl = maxdlevel;
        t0->hp = u.uhp;
        t0->maxhp = u.uhpmax;
        t0->points = u.urexp;
        t0->plchar = pl_character[0];
        t0->sex = (flags.female ? 'F' : 'M');
        t0->uid = uid;
        (void) strncpy(t0->name, plname, NAMSZ);
        (t0->name)[NAMSZ] = 0;
        (void) strncpy(t0->death, killer, DTHSZ);
        (t0->death)[DTHSZ] = 0;
        (void) strcpy(t0->date, getdatestr());

        /* assure minimum number of points */
        if (t0->points < POINTSMIN)
                t0->points = 0;

        t1 = tt_head = newttentry();
        tprev = 0;
        /* rank0: -1 undefined, 0 not_on_list, n n_th on list */
        for (rank = 1;;) {
                if (fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
                           t1->date, &t1->uid,
                           &t1->level, &t1->maxlvl,
                           &t1->hp, &t1->maxhp, &t1->points,
                           &t1->plchar, &t1->sex, t1->name, t1->death) != 11
                    || t1->points < POINTSMIN)
                        t1->points = 0;
                if (rank0 < 0 && t1->points < t0->points) {
                        rank0 = rank++;
                        if (tprev == 0)
                                tt_head = t0;
                        else
                                tprev->tt_next = t0;
                        t0->tt_next = t1;
                        occ_cnt--;
                        flg++;  /* ask for a rewrite */
                } else
                        tprev = t1;
                if (t1->points == 0)
                        break;
                if (
#ifdef PERS_IS_UID
                    t1->uid == t0->uid &&
#else
                    strncmp(t1->name, t0->name, NAMSZ) == 0 &&
#endif  /* PERS_IS_UID */
                    t1->plchar == t0->plchar && --occ_cnt <= 0) {
                        if (rank0 < 0) {
                                rank0 = 0;
                                rank1 = rank;
                                HUP             printf("You didn't beat your previous score of %ld points.\n\n",
                                                                t1->points);
                        }
                        if (occ_cnt < 0) {
                                flg++;
                                continue;
                        }
                }
                if (rank <= ENTRYMAX) {
                        t1 = t1->tt_next = newttentry();
                        rank++;
                }
                if (rank > ENTRYMAX) {
                        t1->points = 0;
                        break;
                }
        }
        if (flg) {              /* rewrite record file */
                (void) fclose(rfile);
                if (!(rfile = fopen(recfile, "w"))) {
                        HUP             puts("Cannot write record file\n");
                        goto unlock;
                }
                if (!done_stopprint)
                        if (rank0 > 0) {
                                if (rank0 <= 10)
                                        puts("You made the top ten list!\n");
                                else
                                        printf("You reached the %d%s place on the top %d list.\n\n",
                                             rank0, ordin(rank0), ENTRYMAX);
                        }
        }
        if (rank0 == 0)
                rank0 = rank1;
        if (rank0 <= 0)
                rank0 = rank;
        if (!done_stopprint)
                outheader();
        t1 = tt_head;
        for (rank = 1; t1->points != 0; rank++, t1 = t1->tt_next) {
                if (flg)
                        fprintf(rfile, "%6s %d %d %d %d %d %ld %c%c %s,%s\n",
                                t1->date, t1->uid,
                                t1->level, t1->maxlvl,
                                t1->hp, t1->maxhp, t1->points,
                                t1->plchar, t1->sex, t1->name, t1->death);
                if (done_stopprint)
                        continue;
                if (rank > (int)flags.end_top &&
                    (rank < rank0 - (int)flags.end_around || rank > rank0 + (int)flags.end_around)
                    && (!flags.end_own ||
#ifdef PERS_IS_UID
                        t1->uid != t0->uid))
#else
                        strncmp(t1->name, t0->name, NAMSZ)))
#endif  /* PERS_IS_UID */
                        continue;
                if (rank == rank0 - (int)flags.end_around &&
                    rank0 > (int)flags.end_top + (int)flags.end_around + 1 &&
                    !flags.end_own)
                        (void) putchar('\n');
                if (rank != rank0)
                        (void) outentry(rank, t1, 0);
                else if (!rank1)
                        (void) outentry(rank, t1, 1);
                else {
                        int             t0lth = outentry(0, t0, -1);
                        int             t1lth = outentry(rank, t1, t0lth);
                        if (t1lth > t0lth)
                                t0lth = t1lth;
                        (void) outentry(0, t0, t0lth);
                }
        }
        if (rank0 >= rank)
                if (!done_stopprint)
                        (void) outentry(0, t0, 1);
        (void) fclose(rfile);
        free(t0);
unlock:
        (void) unlink(reclock);
}

static void
outheader(void)
{
        char            linebuf[BUFSZ];
        char           *bp;
        (void) strcpy(linebuf, "Number Points  Name");
        bp = eos(linebuf);
        while (bp < linebuf + COLNO - 9)
                *bp++ = ' ';
        (void) strcpy(bp, "Hp [max]");
        puts(linebuf);
}

/* so>0: standout line; so=0: ordinary line; so<0: no output, return length */
static int
outentry(int rank, struct toptenentry *t1, int so)
{
        boolean         quit = FALSE, gotkilled = FALSE, starv = FALSE;
        char            linebuf[BUFSZ];
        size_t pos;

        linebuf[0] = '\0';
        pos = 0;

        if (rank)
                Snprintf(linebuf+pos, sizeof(linebuf)-pos, "%3d", rank);
        else
                Snprintf(linebuf+pos, sizeof(linebuf)-pos, "   ");
        pos = strlen(linebuf);

        Snprintf(linebuf+pos, sizeof(linebuf)-pos, " %6ld %8s",
                t1->points, t1->name);
        pos = strlen(linebuf);

        if (t1->plchar == 'X')
                Snprintf(linebuf+pos, sizeof(linebuf)-pos, " ");
        else
                Snprintf(linebuf+pos, sizeof(linebuf)-pos, "-%c ", t1->plchar);
        pos = strlen(linebuf);

        if (!strncmp("escaped", t1->death, 7)) {
                if (!strcmp(" (with amulet)", t1->death + 7))
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                "escaped the dungeon with amulet");
                else
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                "escaped the dungeon [max level %d]",
                                t1->maxlvl);
                pos = strlen(linebuf);
        } else {
                if (!strncmp(t1->death, "quit", 4)) {
                        quit = TRUE;
                        if (t1->maxhp < 3 * t1->hp && t1->maxlvl < 4)
                                Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                        "cravenly gave up");
                        else
                                Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                        "quit");
                } else if (!strcmp(t1->death, "choked")) {
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                "choked on %s food",
                                (t1->sex == 'F') ? "her" : "his");
                } else if (!strncmp(t1->death, "starv", 5)) {
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                "starved to death");
                        starv = TRUE;
                } else {
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                "was killed");
                        gotkilled = TRUE;
                }
                pos = strlen(linebuf);

                Snprintf(linebuf+pos, sizeof(linebuf)-pos, " on%s level %d",
                        (gotkilled || starv) ? "" : " dungeon", t1->level);
                pos = strlen(linebuf);

                if (t1->maxlvl != t1->level)
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                " [max %d]", t1->maxlvl);
                pos = strlen(linebuf);

                if (quit && t1->death[4])
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                 "%s", t1->death + 4);
                pos = strlen(linebuf);
        }
        if (gotkilled) {
                Snprintf(linebuf+pos, sizeof(linebuf)-pos, " by %s%s",
                        (!strncmp(t1->death, "trick", 5) || !strncmp(t1->death, "the ", 4))
                        ? "" :
                        strchr(vowels, *t1->death) ? "an " : "a ",
                        t1->death);
                pos = strlen(linebuf);
        }
        strlcat(linebuf, ".", sizeof(linebuf));
        pos = strlen(linebuf);
        if (t1->maxhp) {
                char            hpbuf[10];
                unsigned        hppos;

                strlcpy(hpbuf, (t1->hp > 0) ? itoa(t1->hp) : "-", sizeof(hpbuf));
                hppos = COLNO - 7 - strlen(hpbuf);
                if (pos <= hppos) {
                        while (pos < hppos)
                                linebuf[pos++] = ' ';
                        (void) strlcpy(linebuf+pos, hpbuf, sizeof(linebuf)-pos);
                        pos = strlen(linebuf);
                        Snprintf(linebuf+pos, sizeof(linebuf)-pos,
                                " [%d]", t1->maxhp);
                        pos = strlen(linebuf);
                }
        }
        if (so == 0)
                puts(linebuf);
        else if (so > 0) {
                if (so >= COLNO)
                        so = COLNO - 1;
                while (pos < (unsigned)so)
                        linebuf[pos++] = ' ';
                linebuf[pos] = '\0';
                standoutbeg();
                fputs(linebuf, stdout);
                standoutend();
                (void) putchar('\n');
        }
        return /*(strlen(linebuf))*/ pos;
}

static char *
itoa(int a)
{
        static char     buf[12];
        Snprintf(buf, sizeof(buf), "%d", a);
        return (buf);
}

static const char *
ordin(int n)
{
        int             dg = n % 10;

        return ((dg == 0 || dg > 3 || n / 10 == 1) ? "th" : (dg == 1) ? "st" :
                (dg == 2) ? "nd" : "rd");
}

void
clearlocks(void)
{
        int x;
        (void) signal(SIGHUP, SIG_IGN);
        for (x = maxdlevel; x >= 0; x--) {
                glo(x);
                (void) unlink(lock);    /* not all levels need be present */
        }
}

#ifdef NOSAVEONHANGUP
/*ARGSUSED*/
void
hang_up(int n __unused)
{
        (void) signal(SIGINT, SIG_IGN);
        clearlocks();
        exit(1);
}
#endif  /* NOSAVEONHANGUP */

char           *
eos(char *s)
{
        while (*s)
                s++;
        return (s);
}

/* it is the callers responsibility to check that there is room for c */
void
charcat(char *s, int c)
{
        while (*s)
                s++;
        *s++ = c;
        *s = 0;
}

/*
 * Called with args from main if argc >= 0. In this case, list scores as
 * requested. Otherwise, find scores for the current player (and list them
 * if argc == -1).
 */
void
prscore(int argc, char **argv)
{
        char          **players = NULL;
        int             playerct;
        int             rank;
        struct toptenentry *t1, *t2;
        const char           *recfile = RECORD;
        FILE           *rfile;
        int             flg = 0;
        int             i;
#ifdef nonsense
        long            total_score = 0L;
        char            totchars[10];
        int             totcharct = 0;
#endif  /* nonsense */
        int             outflg = (argc >= -1);
#ifdef PERS_IS_UID
        int             uid = -1;
#else
        char           *player0;
#endif  /* PERS_IS_UID */

        if (!(rfile = fopen(recfile, "r"))) {
                puts("Cannot open record file!");
                return;
        }
        if (argc > 1 && !strncmp(argv[1], "-s", 2)) {
                if (!argv[1][2]) {
                        argc--;
                        argv++;
                } else if (!argv[1][3] && strchr("CFKSTWX", argv[1][2])) {
                        argv[1]++;
                        argv[1][0] = '-';
                } else
                        argv[1] += 2;
        }
        if (argc <= 1) {
#ifdef PERS_IS_UID
                uid = getuid();
                playerct = 0;
#else
                player0 = plname;
                if (!*player0)
                        player0 = "hackplayer";
                playerct = 1;
                players = &player0;
#endif  /* PERS_IS_UID */
        } else {
                playerct = --argc;
                players = ++argv;
        }
        if (outflg)
                putchar('\n');

        t1 = tt_head = newttentry();
        for (rank = 1;; rank++) {
                if (fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
                           t1->date, &t1->uid,
                           &t1->level, &t1->maxlvl,
                           &t1->hp, &t1->maxhp, &t1->points,
                           &t1->plchar, &t1->sex, t1->name, t1->death) != 11)
                        t1->points = 0;
                if (t1->points == 0)
                        break;
#ifdef PERS_IS_UID
                if (!playerct && t1->uid == uid)
                        flg++;
                else
#endif  /* PERS_IS_UID */
                        for (i = 0; i < playerct; i++) {
                                if (strcmp(players[i], "all") == 0 ||
                                strncmp(t1->name, players[i], NAMSZ) == 0 ||
                                    (players[i][0] == '-' &&
                                     players[i][1] == t1->plchar &&
                                     players[i][2] == 0) ||
                                    (digit(players[i][0]) && rank <= atoi(players[i])))
                                        flg++;
                        }
                t1 = t1->tt_next = newttentry();
        }
        (void) fclose(rfile);
        if (!flg) {
                if (outflg) {
                        printf("Cannot find any entries for ");
                        if (playerct < 1)
                                printf("you.\n");
                        else {
                                if (playerct > 1)
                                        printf("any of ");
                                for (i = 0; i < playerct; i++)
                                        printf("%s%s", players[i], (i < playerct - 1) ? ", " : ".\n");
                                printf("Call is: %s -s [playernames]\n", hname);
                        }
                }
                return;
        }
        if (outflg)
                outheader();
        t1 = tt_head;
        for (rank = 1; t1->points != 0; rank++, t1 = t2) {
                t2 = t1->tt_next;
#ifdef PERS_IS_UID
                if (!playerct && t1->uid == uid)
                        goto outwithit;
                else
#endif  /* PERS_IS_UID */
                        for (i = 0; i < playerct; i++) {
                                if (strcmp(players[i], "all") == 0 ||
                                strncmp(t1->name, players[i], NAMSZ) == 0 ||
                                    (players[i][0] == '-' &&
                                     players[i][1] == t1->plchar &&
                                     players[i][2] == 0) ||
                                    (digit(players[i][0]) && rank <= atoi(players[i]))) {
                        outwithit:
                                        if (outflg)
                                                (void) outentry(rank, t1, 0);
#ifdef nonsense
                                        total_score += t1->points;
                                        if (totcharct < sizeof(totchars) - 1)
                                                totchars[totcharct++] = t1->plchar;
#endif  /* nonsense */
                                        break;
                                }
                        }
                free(t1);
        }
#ifdef nonsense
        totchars[totcharct] = 0;

        /*
         * We would like to determine whether he is experienced. However, the
         * information collected here only tells about the scores/roles that
         * got into the topten (top 100?). We should maintain a .hacklog or
         * something in his home directory.
         */
        flags.beginner = (total_score < 6000);
        for (i = 0; i < 6; i++)
                if (!strchr(totchars, "CFKSTWX"[i])) {
                        flags.beginner = 1;
                        if (!pl_character[0])
                                pl_character[0] = "CFKSTWX"[i];
                        break;
                }
#endif  /* nonsense */
}