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