games/hack/hack.end.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* hack.end.c - version 1.0.3 */
   3 /* $FreeBSD: src/games/hack/hack.end.c,v 1.4 1999/11/16 10:26:36 marcel Exp $ */
   4 /* $DragonFly: src/games/hack/hack.end.c,v 1.5 2006/08/21 19:45:32 pavalos Exp $ */
   5
   6 #include "hack.h"
   7 #define Sprintf (void) sprintf
   8
   9 #define newttentry()    alloc(sizeof(struct toptenentry))
  10 #define NAMSZ   8
  11 #define DTHSZ   40
  12 #define PERSMAX 1
  13 #define POINTSMIN       1       /* must be > 0 */
  14 #define ENTRYMAX        100     /* must be >= 10 */
  15 #define PERS_IS_UID             /* delete for PERSMAX per name; now per uid */
  16 struct toptenentry {
  17         struct toptenentry *tt_next;
  18         long int points;
  19         int level,maxlvl,hp,maxhp;
  20         int uid;
  21         char plchar;
  22         char sex;
  23         char name[NAMSZ+1];
  24         char death[DTHSZ+1];
  25         char date[7];           /* yymmdd */
  26 } *tt_head;
  27
  28 static void              done_intr(int);
  29 static void              done_hangup(int);
  30 static void              topten(void);
  31 static void              outheader(void);
  32 static int               outentry(int, struct toptenentry *, int);
  33 static char             *itoa(int);
  34 static const char       *ordin(int);
  35
  36 xchar maxdlevel = 1;
  37
  38 void
  39 done1(int unused __unused)
  40 {
  41         signal(SIGINT, SIG_IGN);
  42         pline("Really quit?");
  43         if (readchar() != 'y') {
  44                 signal(SIGINT, done1);
  45                 clrlin();
  46                 fflush(stdout);
  47                 if (multi > 0)
  48                         nomul(0);
  49                 return;
  50         }
  51         done("quit");
  52         /* NOTREACHED */
  53 }
  54
  55 int done_stopprint;
  56 int done_hup;
  57
  58 static void
  59 done_intr(int unused __unused)
  60 {
  61         done_stopprint++;
  62         signal(SIGINT, SIG_IGN);
  63         signal(SIGQUIT, SIG_IGN);
  64 }
  65
  66 static void
  67 done_hangup(int unused __unused)
  68 {
  69         done_hup++;
  70         signal(SIGHUP, SIG_IGN);
  71         done_intr(0);
  72 }
  73
  74 void
  75 done_in_by(struct monst *mtmp)
  76 {
  77         static char buf[BUFSZ];
  78
  79         pline("You die ...");
  80         if (mtmp->data->mlet == ' ') {
  81                 Sprintf(buf, "the ghost of %s", (char *)mtmp->mextra);
  82                 killer = buf;
  83         } else if (mtmp->mnamelth) {
  84                 Sprintf(buf, "%s called %s",
  85                         mtmp->data->mname, NAME(mtmp));
  86                 killer = buf;
  87         } else if (mtmp->minvis) {
  88                 Sprintf(buf, "invisible %s", mtmp->data->mname);
  89                 killer = buf;
  90         } else
  91                 killer = mtmp->data->mname;
  92         done("died");
  93 }
  94
  95 /*
  96  * called with arg "died", "drowned", "escaped", "quit", "choked",
  97  * "panicked", "burned", "starved" or "tricked"
  98  */
  99 /* Be careful not to call panic from here! */
 100 void
 101 done(const char *st1)
 102 {
 103 #ifdef WIZARD
 104         if (wizard && *st1 == 'd') {
 105                 u.uswldtim = 0;
 106                 if (u.uhpmax < 0)       /* arbitrary */
 107                         u.uhpmax = 100;
 108                 u.uhp = u.uhpmax;
 109                 pline("For some reason you are still alive.");
 110                 flags.move = 0;
 111                 if (multi > 0)
 112                         multi = 0;
 113                 else
 114                         multi = -1;
 115                 flags.botl = 1;
 116                 return;
 117         }
 118 #endif /* WIZARD */
 119         signal(SIGINT, done_intr);
 120         signal(SIGQUIT, done_intr);
 121         signal(SIGHUP, done_hangup);
 122         if (*st1 == 'q' && u.uhp < 1) {
 123                 st1 = "died";
 124                 killer = "quit while already on Charon's boat";
 125         }
 126         if (*st1 == 's')
 127                 killer = "starvation";
 128         else if (*st1 == 'd' && st1[1] == 'r')
 129                 killer = "drowning";
 130         else if (*st1 == 'p')
 131                 killer = "panic";
 132         else if (*st1 == 't')
 133                 killer = "trickery";
 134         else if (!strchr("bcd", *st1))
 135                 killer = st1;
 136         paybill();
 137         clearlocks();
 138         if (flags.toplin == 1)
 139                 more();
 140         if (strchr("bcds", *st1)) {
 141 #ifdef WIZARD
 142                 if (!wizard)
 143 #endif /* WIZARD */
 144                         savebones();
 145                 if (!flags.notombstone)
 146                         outrip();
 147         }
 148         if (*st1 == 'c')                /* after outrip() */
 149                 killer = st1;
 150         settty(NULL);                   /* does a clear_screen() */
 151         if (!done_stopprint)
 152                 printf("Goodbye %s %s...\n\n", pl_character, plname);
 153         {
 154                 long int tmp;
 155                 tmp = u.ugold - u.ugold0;
 156                 if (tmp < 0)
 157                         tmp = 0;
 158                 if (*st1 == 'd' || *st1 == 'b')
 159                         tmp -= tmp / 10;
 160                 u.urexp += tmp;
 161                 u.urexp += 50 * maxdlevel;
 162                 if (maxdlevel > 20)
 163                         u.urexp += 1000 * ((maxdlevel > 30) ? 10 : maxdlevel - 20);
 164         }
 165         if (*st1 == 'e') {
 166                 struct monst *mtmp;
 167                 struct obj *otmp;
 168                 int i;
 169                 unsigned worthlessct = 0;
 170                 boolean has_amulet = FALSE;
 171
 172                 killer = st1;
 173                 keepdogs();
 174                 mtmp = mydogs;
 175                 if (mtmp) {
 176                         if (!done_stopprint)
 177                                 printf("You");
 178                         while (mtmp) {
 179                                 if (!done_stopprint)
 180                                         printf(" and %s", monnam(mtmp));
 181                                 if (mtmp->mtame)
 182                                         u.urexp += mtmp->mhp;
 183                                 mtmp = mtmp->nmon;
 184                         }
 185                         if (!done_stopprint)
 186                                 printf("\nescaped from the dungeon with %ld points,\n",
 187                                     u.urexp);
 188                 } else if (!done_stopprint)
 189                         printf("You escaped from the dungeon with %ld points,\n",
 190                             u.urexp);
 191                 for (otmp = invent; otmp; otmp = otmp->nobj) {
 192                         if (otmp->olet == GEM_SYM) {
 193                                 objects[otmp->otyp].oc_name_known = 1;
 194                                 i = otmp->quan * objects[otmp->otyp].g_val;
 195                                 if (i == 0) {
 196                                         worthlessct += otmp->quan;
 197                                         continue;
 198                                 }
 199                                 u.urexp += i;
 200                                 if (!done_stopprint)
 201                                         printf("\t%s (worth %d Zorkmids),\n",
 202                                                doname(otmp), i);
 203                         } else if (otmp->olet == AMULET_SYM) {
 204                                 otmp->known = 1;
 205                                 i = (otmp->spe < 0) ? 2 : 5000;
 206                                 u.urexp += i;
 207                                 if (!done_stopprint)
 208                                         printf("\t%s (worth %d Zorkmids),\n",
 209                                                doname(otmp), i);
 210                                 if (otmp->spe >= 0) {
 211                                         has_amulet = TRUE;
 212                                         killer = "escaped (with amulet)";
 213                                 }
 214                         }
 215                 }
 216                 if (worthlessct)
 217                         if (!done_stopprint)
 218                                 printf("\t%u worthless piece%s of coloured glass,\n",
 219                                     worthlessct, plur(worthlessct));
 220                 if (has_amulet)
 221                         u.urexp *= 2;
 222         } else if (!done_stopprint)
 223                 printf("You %s on dungeon level %d with %ld points,\n",
 224                        st1, dlevel, u.urexp);
 225         if (!done_stopprint)
 226                 printf("and %ld piece%s of gold, after %ld move%s.\n",
 227                        u.ugold, plur(u.ugold), moves, plur(moves));
 228         if (!done_stopprint)
 229                 printf("You were level %u with a maximum of %d hit points when you %s.\n",
 230                     u.ulevel, u.uhpmax, st1);
 231         if (*st1 == 'e' && !done_stopprint) {
 232                 getret();       /* all those pieces of coloured glass ... */
 233                 cls();
 234         }
 235 #ifdef WIZARD
 236         if (!wizard)
 237 #endif /* WIZARD */
 238                 topten();
 239         if (done_stopprint)
 240                 printf("\n\n");
 241         exit(0);
 242 }
 243
 244 static void
 245 topten(void)
 246 {
 247         int uid = getuid();
 248         int rank, rank0 = -1, rank1 = 0;
 249         int occ_cnt = PERSMAX;
 250         struct toptenentry *t0, *t1, *tprev;
 251         const char *recfile = RECORD;
 252         const char *reclock = "record_lock";
 253         int sleepct = 300;
 254         FILE *rfile;
 255         int flg = 0;
 256
 257 #define HUP     if (!done_hup)
 258         while (link(recfile, reclock) == -1) {
 259                 HUP perror(reclock);
 260                 if (!sleepct--) {
 261                         HUP puts("I give up. Sorry.");
 262                         HUP puts("Perhaps there is an old record_lock around?");
 263                         return;
 264                 }
 265                 HUP printf("Waiting for access to record file. (%d)\n",
 266                            sleepct);
 267                 HUP fflush(stdout);
 268                 sleep(1);
 269         }
 270         if (!(rfile = fopen(recfile, "r"))) {
 271                 HUP puts("Cannot open record file!");
 272                 goto unlock;
 273         }
 274         HUP putchar('\n');
 275
 276         /* create a new 'topten' entry */
 277         t0 = newttentry();
 278         t0->level = dlevel;
 279         t0->maxlvl = maxdlevel;
 280         t0->hp = u.uhp;
 281         t0->maxhp = u.uhpmax;
 282         t0->points = u.urexp;
 283         t0->plchar = pl_character[0];
 284         t0->sex = (flags.female ? 'F' : 'M');
 285         t0->uid = uid;
 286         strncpy(t0->name, plname, NAMSZ);
 287         (t0->name)[NAMSZ] = 0;
 288         strncpy(t0->death, killer, DTHSZ);
 289         (t0->death)[DTHSZ] = 0;
 290         strcpy(t0->date, getdate());
 291
 292         /* assure minimum number of points */
 293         if (t0->points < POINTSMIN)
 294                 t0->points = 0;
 295
 296         t1 = tt_head = newttentry();
 297         tprev = 0;
 298         /* rank0: -1 undefined, 0 not_on_list, n n_th on list */
 299         for (rank = 1;;) {
 300                 if (fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
 301                            t1->date, &t1->uid,
 302                            &t1->level, &t1->maxlvl,
 303                            &t1->hp, &t1->maxhp, &t1->points,
 304                            &t1->plchar, &t1->sex, t1->name, t1->death) != 11
 305                     || t1->points < POINTSMIN)
 306                         t1->points = 0;
 307                 if (rank0 < 0 && t1->points < t0->points) {
 308                         rank0 = rank++;
 309                         if (tprev == 0)
 310                                 tt_head = t0;
 311                         else
 312                                 tprev->tt_next = t0;
 313                         t0->tt_next = t1;
 314                         occ_cnt--;
 315                         flg++;  /* ask for a rewrite */
 316                 } else
 317                         tprev = t1;
 318                 if (t1->points == 0)
 319                         break;
 320                 if (
 321 #ifdef PERS_IS_UID
 322                     t1->uid == t0->uid &&
 323 #else
 324                     strncmp(t1->name, t0->name, NAMSZ) == 0 &&
 325 #endif /* PERS_IS_UID */
 326                     t1->plchar == t0->plchar && --occ_cnt <= 0) {
 327                         if (rank0 < 0) {
 328                                 rank0 = 0;
 329                                 rank1 = rank;
 330                                 HUP printf("You didn't beat your previous score of %ld points.\n\n",
 331                                     t1->points);
 332                         }
 333                         if (occ_cnt < 0) {
 334                                 flg++;
 335                                 continue;
 336                         }
 337                 }
 338                 if (rank <= ENTRYMAX) {
 339                         t1 = t1->tt_next = newttentry();
 340                         rank++;
 341                 }
 342                 if (rank > ENTRYMAX) {
 343                         t1->points = 0;
 344                         break;
 345                 }
 346         }
 347         if (flg) {              /* rewrite record file */
 348                 fclose(rfile);
 349                 if (!(rfile = fopen(recfile, "w"))) {
 350                         HUP puts("Cannot write record file\n");
 351                         goto unlock;
 352                 }
 353
 354                 if (!done_stopprint)
 355                         if (rank0 > 0) {
 356                                 if (rank0 <= 10)
 357                                         puts("You made the top ten list!\n");
 358                                 else
 359                                         printf("You reached the %d%s place on the top %d list.\n\n",
 360                                             rank0, ordin(rank0), ENTRYMAX);
 361                         }
 362         }
 363         if (rank0 == 0)
 364                 rank0 = rank1;
 365         if (rank0 <= 0)
 366                 rank0 = rank;
 367         if (!done_stopprint)
 368                 outheader();
 369         t1 = tt_head;
 370         for (rank = 1; t1->points != 0; rank++, t1 = t1->tt_next) {
 371                 if (flg)
 372                         fprintf(rfile, "%6s %d %d %d %d %d %ld %c%c %s,%s\n",
 373                             t1->date, t1->uid,
 374                             t1->level, t1->maxlvl,
 375                             t1->hp, t1->maxhp, t1->points,
 376                             t1->plchar, t1->sex, t1->name, t1->death);
 377                 if (done_stopprint)
 378                         continue;
 379                 if (rank > (int)flags.end_top &&
 380                     (rank < rank0 - (int)flags.end_around || rank > rank0 +
 381                     (int)flags.end_around)
 382                     && (!flags.end_own ||
 383 #ifdef PERS_IS_UID
 384                         t1->uid != t0->uid))
 385 #else
 386                         strncmp(t1->name, t0->name, NAMSZ)))
 387 #endif /* PERS_IS_UID */
 388                         continue;
 389                 if (rank == rank0 - (int)flags.end_around &&
 390                     rank0 > (int)flags.end_top + (int)flags.end_around + 1 &&
 391                     !flags.end_own)
 392                         putchar('\n');
 393                 if (rank != rank0)
 394                         outentry(rank, t1, 0);
 395                 else if (!rank1)
 396                         outentry(rank, t1, 1);
 397                 else {
 398                         int t0lth = outentry(0, t0, -1);
 399                         int t1lth = outentry(rank, t1, t0lth);
 400                         if (t1lth > t0lth)
 401                                 t0lth = t1lth;
 402                         outentry(0, t0, t0lth);
 403                 }
 404         }
 405         if (rank0 >= rank)
 406                 if (!done_stopprint)
 407                         outentry(0, t0, 1);
 408         fclose(rfile);
 409 unlock:
 410         unlink(reclock);
 411 }
 412
 413 static void
 414 outheader(void)
 415 {
 416         char linebuf[BUFSZ];
 417         char *bp;
 418
 419         strcpy(linebuf, "Number Points  Name");
 420         bp = eos(linebuf);
 421         while (bp < linebuf + COLNO - 9)
 422                 *bp++ = ' ';
 423         strcpy(bp, "Hp [max]");
 424         puts(linebuf);
 425 }
 426
 427 /* so>0: standout line; so=0: ordinary line; so<0: no output, return lth */
 428 static int
 429 outentry(int rank, struct toptenentry *t1, int so)
 430 {
 431         boolean quit = FALSE, dead = FALSE, starv = FALSE;
 432         char linebuf[BUFSZ];
 433
 434         linebuf[0] = 0;
 435         if (rank)
 436                 Sprintf(eos(linebuf), "%3d", rank);
 437         else
 438                 Sprintf(eos(linebuf), "   ");
 439         Sprintf(eos(linebuf), " %6ld %8s", t1->points, t1->name);
 440         if (t1->plchar == 'X')
 441                 Sprintf(eos(linebuf), " ");
 442         else
 443                 Sprintf(eos(linebuf), "-%c ", t1->plchar);
 444         if (!strncmp("escaped", t1->death, 7)) {
 445                 if (!strcmp(" (with amulet)", t1->death + 7))
 446                         Sprintf(eos(linebuf), "escaped the dungeon with amulet");
 447                 else
 448                         Sprintf(eos(linebuf), "escaped the dungeon [max level %d]",
 449                             t1->maxlvl);
 450         } else {
 451                 if (!strncmp(t1->death, "quit", 4)) {
 452                         quit = TRUE;
 453                         if (t1->maxhp < 3 * t1->hp && t1->maxlvl < 4)
 454                                 Sprintf(eos(linebuf), "cravenly gave up");
 455                         else
 456                                 Sprintf(eos(linebuf), "quit");
 457                 } else if (!strcmp(t1->death, "choked")) {
 458                         Sprintf(eos(linebuf), "choked on %s food",
 459                                 (t1->sex == 'F') ? "her" : "his");
 460                 } else if (!strncmp(t1->death, "starv", 5)) {
 461                         Sprintf(eos(linebuf), "starved to death");
 462                         starv = TRUE;
 463                 } else {
 464                         Sprintf(eos(linebuf), "was killed");
 465                         dead = TRUE;
 466                 }
 467                 Sprintf(eos(linebuf), " on%s level %d",
 468                     (dead || starv) ? "" : " dungeon", t1->level);
 469                 if (t1->maxlvl != t1->level)
 470                         Sprintf(eos(linebuf), " [max %d]", t1->maxlvl);
 471                 if (quit && t1->death[4])
 472                         Sprintf(eos(linebuf), t1->death + 4);
 473         }
 474         if (dead) {
 475                 Sprintf(eos(linebuf), " by %s%s",
 476                     (!strncmp(t1->death, "trick", 5) ||
 477                     !strncmp(t1->death, "the ", 4))
 478                     ? "" :
 479                     strchr(vowels, *t1->death) ? "an " : "a ",
 480                     t1->death);
 481         }
 482         Sprintf(eos(linebuf), ".");
 483         if (t1->maxhp) {
 484                 char *bp = eos(linebuf);
 485                 char hpbuf[10];
 486                 int hppos;
 487
 488                 Sprintf(hpbuf, (t1->hp > 0) ? itoa(t1->hp) : "-");
 489                 hppos = COLNO - 7 - strlen(hpbuf);
 490                 if (bp <= linebuf + hppos) {
 491                         while (bp < linebuf + hppos)
 492                                 *bp++ = ' ';
 493                         strcpy(bp, hpbuf);
 494                         Sprintf(eos(bp), " [%d]", t1->maxhp);
 495                 }
 496         }
 497         if (so == 0)
 498                 puts(linebuf);
 499         else if (so > 0) {
 500                 char *bp = eos(linebuf);
 501                 if (so >= COLNO)
 502                         so = COLNO - 1;
 503                 while (bp < linebuf + so)
 504                         *bp++ = ' ';
 505                 *bp = 0;
 506                 standoutbeg();
 507                 fputs(linebuf, stdout);
 508                 standoutend();
 509                 putchar('\n');
 510         }
 511         return (strlen(linebuf));
 512 }
 513
 514 static char *
 515 itoa(int a)
 516 {
 517         static char buf[12];
 518
 519         Sprintf(buf, "%d", a);
 520         return (buf);
 521 }
 522
 523 static const char *
 524 ordin(int n)
 525 {
 526         int d1 = n % 10;
 527
 528         return ((d1 == 0 || d1 > 3 || n / 10 == 1) ? "th" : (d1 == 1) ? "st" :
 529                 (d1 == 2) ? "nd" : "rd");
 530 }
 531
 532 void
 533 clearlocks(void)
 534 {
 535         int x;
 536
 537         signal(SIGHUP, SIG_IGN);
 538         for (x = maxdlevel; x >= 0; x--) {
 539                 glo(x);
 540                 unlink(lock);   /* not all levels need be present */
 541         }
 542 }
 543
 544 #ifdef NOSAVEONHANGUP
 545 void
 546 hangup(int unused __unused)
 547 {
 548         signal(SIGINT, SIG_IGN);
 549         clearlocks();
 550         exit(1);
 551 }
 552 #endif /* NOSAVEONHANGUP */
 553
 554 char *
 555 eos(char *s)
 556 {
 557         while (*s)
 558                 s++;
 559         return (s);
 560 }
 561
 562 /* it is the callers responsibility to check that there is room for c */
 563 void
 564 charcat(char *s, char c)
 565 {
 566         while (*s)
 567                 s++;
 568         *s++ = c;
 569         *s = 0;
 570 }
 571
 572 /*
 573  * Called with args from main if argc >= 0. In this case, list scores as
 574  * requested. Otherwise, find scores for the current player (and list them
 575  * if argc == -1).
 576  */
 577 void
 578 prscore(int argc, char **argv)
 579 {
 580         char **players = NULL;
 581         int playerct;
 582         int rank;
 583         struct toptenentry *t1, *t2;
 584         const char *recfile = RECORD;
 585         FILE *rfile;
 586         int flg = 0;
 587         int i;
 588 #ifdef nonsense
 589         long total_score = 0L;
 590         char totchars[10];
 591         int totcharct = 0;
 592 #endif /* nonsense */
 593         int outflg = (argc >= -1);
 594 #ifdef PERS_IS_UID
 595         int uid = -1;
 596 #else
 597         char *player0;
 598 #endif /* PERS_IS_UID */
 599
 600         if (!(rfile = fopen(recfile, "r"))) {
 601                 puts("Cannot open record file!");
 602                 return;
 603         }
 604
 605         if (argc > 1 && !strncmp(argv[1], "-s", 2)) {
 606                 if (!argv[1][2]) {
 607                         argc--;
 608                         argv++;
 609                 } else if (!argv[1][3] && strchr("CFKSTWX", argv[1][2])) {
 610                         argv[1]++;
 611                         argv[1][0] = '-';
 612                 } else
 613                         argv[1] += 2;
 614         }
 615         if (argc <= 1) {
 616 #ifdef PERS_IS_UID
 617                 uid = getuid();
 618                 playerct = 0;
 619 #else
 620                 player0 = plname;
 621                 if (!*player0)
 622                         player0 = "hackplayer";
 623                 playerct = 1;
 624                 players = &player0;
 625 #endif /* PERS_IS_UID */
 626         } else {
 627                 playerct = --argc;
 628                 players = ++argv;
 629         }
 630         if (outflg)
 631                 putchar('\n');
 632
 633         t1 = tt_head = newttentry();
 634         for (rank = 1;; rank++) {
 635                 if (fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
 636                            t1->date, &t1->uid,
 637                            &t1->level, &t1->maxlvl,
 638                            &t1->hp, &t1->maxhp, &t1->points,
 639                            &t1->plchar, &t1->sex, t1->name, t1->death) != 11)
 640                         t1->points = 0;
 641                 if (t1->points == 0)
 642                         break;
 643 #ifdef PERS_IS_UID
 644                 if (!playerct && t1->uid == uid)
 645                         flg++;
 646                 else
 647 #endif /* PERS_IS_UID */
 648                 for (i = 0; i < playerct; i++) {
 649                         if (strcmp(players[i], "all") == 0 ||
 650                             strncmp(t1->name, players[i], NAMSZ) == 0 ||
 651                             (players[i][0] == '-' &&
 652                              players[i][1] == t1->plchar &&
 653                              players[i][2] == 0) ||
 654                             (digit(players[i][0]) && rank <= atoi(players[i])))
 655                                 flg++;
 656                 }
 657                 t1 = t1->tt_next = newttentry();
 658         }
 659         fclose(rfile);
 660         if (!flg) {
 661                 if (outflg) {
 662                         printf("Cannot find any entries for ");
 663                         if (playerct < 1)
 664                                 printf("you.\n");
 665                         else {
 666                                 if (playerct > 1)
 667                                         printf("any of ");
 668                                 for (i = 0; i < playerct; i++)
 669                                         printf("%s%s", players[i],
 670                                                 (i < playerct - 1) ? ", " : ".\n");
 671                                 printf("Call is: %s -s [playernames]\n", hname);
 672                         }
 673                 }
 674                 return;
 675         }
 676
 677         if (outflg)
 678                 outheader();
 679         t1 = tt_head;
 680         for (rank = 1; t1->points != 0; rank++, t1 = t2) {
 681                 t2 = t1->tt_next;
 682 #ifdef PERS_IS_UID
 683                 if (!playerct && t1->uid == uid)
 684                         goto outwithit;
 685                 else
 686 #endif /* PERS_IS_UID */
 687                 for (i = 0; i < playerct; i++) {
 688                         if (strcmp(players[i], "all") == 0 ||
 689                             strncmp(t1->name, players[i], NAMSZ) == 0 ||
 690                             (players[i][0] == '-' &&
 691                              players[i][1] == t1->plchar &&
 692                              players[i][2] == 0) ||
 693                             (digit(players[i][0]) && rank <=
 694                              atoi(players[i]))) {
 695 outwithit:
 696                                 if (outflg)
 697                                         outentry(rank, t1, 0);
 698 #ifdef nonsense
 699                                 total_score += t1->points;
 700                                 if (totcharct < sizeof(totchars) - 1)
 701                                         totchars[totcharct++] = t1->plchar;
 702 #endif /* nonsense */
 703                                 break;
 704                         }
 705                 }
 706                 free(t1);
 707         }
 708 #ifdef nonsense
 709         totchars[totcharct] = 0;
 710
 711         /*
 712          * We would like to determine whether he is experienced. However, the
 713          * information collected here only tells about the scores/roles that
 714          * got into the topten (top 100?). We should maintain a .hacklog or
 715          * something in his home directory.
 716          */
 717         flags.beginner = (total_score < 6000);
 718         for (i = 0; i < 6; i++)
 719                 if (!strchr(totchars, "CFKSTWX"[i])) {
 720                         flags.beginner = 1;
 721                         if (!pl_character[0])
 722                                 pl_character[0] = "CFKSTWX"[i];
 723                         break;
 724                 }
 725 #endif /* nonsense */
 726 }