games/hack/hack.end.c

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