rogue/score.c

   1 /*
   2  * Copyright (c) 1988 The Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * This code is derived from software contributed to Berkeley by
   6  * Timothy C. Stoehr.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. All advertising materials mentioning features or use of this software
  17  *    must display the following acknowledgement:
  18  *      This product includes software developed by the University of
  19  *      California, Berkeley and its contributors.
  20  * 4. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  */
  36
  37 #ifndef lint
  38 /*static char sccsid[] = "from: @(#)score.c     5.5 (Berkeley) 6/1/90";*/
  39 static char rcsid[] = "$Id: score.c,v 1.2 1993/08/01 18:52:13 mycroft Exp $";
  40 #endif /* not lint */
  41
  42 /*
  43  * score.c
  44  *
  45  * This source herein may be modified and/or distributed by anybody who
  46  * so desires, with the following restrictions:
  47  *    1.)  No portion of this notice shall be removed.
  48  *    2.)  Credit shall not be taken for the creation of this source.
  49  *    3.)  This code is not to be traded, sold, or used for personal
  50  *         gain or profit.
  51  *
  52  */
  53
  54 #include <stdio.h>
  55 #include "rogue.h"
  56 #include "pathnames.h"
  57
  58 extern char login_name[];
  59 extern char *m_names[];
  60 extern short max_level;
  61 extern boolean score_only, no_skull, msg_cleared;
  62 extern char *byebye_string, *nick_name;
  63
  64 killed_by(monster, other)
  65 object *monster;
  66 short other;
  67 {
  68         char buf[128];
  69
  70         md_ignore_signals();
  71
  72         if (other != QUIT) {
  73                 rogue.gold = ((rogue.gold * 9) / 10);
  74         }
  75
  76         if (other) {
  77                 switch(other) {
  78                 case HYPOTHERMIA:
  79                         (void) strcpy(buf, "died of hypothermia");
  80                         break;
  81                 case STARVATION:
  82                         (void) strcpy(buf, "died of starvation");
  83                         break;
  84                 case POISON_DART:
  85                         (void) strcpy(buf, "killed by a dart");
  86                         break;
  87                 case QUIT:
  88                         (void) strcpy(buf, "quit");
  89                         break;
  90                 case KFIRE:
  91                         (void) strcpy(buf, "killed by fire");
  92                         break;
  93                 }
  94         } else {
  95                 (void) strcpy(buf, "Killed by ");
  96                 if (is_vowel(m_names[monster->m_char - 'A'][0])) {
  97                         (void) strcat(buf, "an ");
  98                 } else {
  99                         (void) strcat(buf, "a ");
 100                 }
 101                 (void) strcat(buf, m_names[monster->m_char - 'A']);
 102         }
 103         (void) strcat(buf, " with ");
 104         sprintf(buf+strlen(buf), "%ld gold", rogue.gold);
 105         if ((!other) && (!no_skull)) {
 106                 clear();
 107                 mvaddstr(4, 32, "__---------__");
 108                 mvaddstr(5, 30, "_~             ~_");
 109                 mvaddstr(6, 29, "/                 \\");
 110                 mvaddstr(7, 28, "~                   ~");
 111                 mvaddstr(8, 27, "/                     \\");
 112                 mvaddstr(9, 27, "|    XXXX     XXXX    |");
 113                 mvaddstr(10, 27, "|    XXXX     XXXX    |");
 114                 mvaddstr(11, 27, "|    XXX       XXX    |");
 115                 mvaddstr(12, 28, "\\         @         /");
 116                 mvaddstr(13, 29, "--\\     @@@     /--");
 117                 mvaddstr(14, 30, "| |    @@@    | |");
 118                 mvaddstr(15, 30, "| |           | |");
 119                 mvaddstr(16, 30, "| vvVvvvvvvvVvv |");
 120                 mvaddstr(17, 30, "|  ^^^^^^^^^^^  |");
 121                 mvaddstr(18, 31, "\\_           _/");
 122                 mvaddstr(19, 33, "~---------~");
 123                 center(21, nick_name);
 124                 center(22, buf);
 125         } else {
 126                 message(buf, 0);
 127         }
 128         message("", 0);
 129         put_scores(monster, other);
 130 }
 131
 132 win()
 133 {
 134         unwield(rogue.weapon);          /* disarm and relax */
 135         unwear(rogue.armor);
 136         un_put_on(rogue.left_ring);
 137         un_put_on(rogue.right_ring);
 138
 139         clear();
 140         mvaddstr(10, 11, "@   @  @@@   @   @      @  @  @   @@@   @   @   @");
 141         mvaddstr(11, 11, " @ @  @   @  @   @      @  @  @  @   @  @@  @   @");
 142         mvaddstr(12, 11, "  @   @   @  @   @      @  @  @  @   @  @ @ @   @");
 143         mvaddstr(13, 11, "  @   @   @  @   @      @  @  @  @   @  @  @@");
 144         mvaddstr(14, 11, "  @    @@@    @@@        @@ @@    @@@   @   @   @");
 145         mvaddstr(17, 11, "Congratulations,  you have  been admitted  to  the");
 146         mvaddstr(18, 11, "Fighters' Guild.   You return home,  sell all your");
 147         mvaddstr(19, 11, "treasures at great profit and retire into comfort.");
 148         message("", 0);
 149         message("", 0);
 150         id_all();
 151         sell_pack();
 152         put_scores((object *) 0, WIN);
 153 }
 154
 155 quit(from_intrpt)
 156 boolean from_intrpt;
 157 {
 158         char buf[128];
 159         short i, orow, ocol;
 160         boolean mc;
 161
 162         md_ignore_signals();
 163
 164         if (from_intrpt) {
 165                 orow = rogue.row;
 166                 ocol = rogue.col;
 167
 168                 mc = msg_cleared;
 169
 170                 for (i = 0; i < DCOLS; i++) {
 171                         buf[i] = mvinch(0, i);
 172                 }
 173         }
 174         check_message();
 175         message("really quit?", 1);
 176         if (rgetchar() != 'y') {
 177                 md_heed_signals();
 178                 check_message();
 179                 if (from_intrpt) {
 180                         for (i = 0; i < DCOLS; i++) {
 181                                 mvaddch(0, i, buf[i]);
 182                         }
 183                         msg_cleared = mc;
 184                         move(orow, ocol);
 185                         refresh();
 186                 }
 187                 return;
 188         }
 189         if (from_intrpt) {
 190                 clean_up(byebye_string);
 191         }
 192         check_message();
 193         killed_by((object *) 0, QUIT);
 194 }
 195
 196 put_scores(monster, other)
 197 object *monster;
 198 short other;
 199 {
 200         short i, n, rank = 10, x, ne = 0, found_player = -1;
 201         char scores[10][82];
 202         char n_names[10][30];
 203         char buf[128];
 204         FILE *fp;
 205         long s;
 206         boolean pause = score_only;
 207
 208         md_lock(1);
 209
 210         if ((fp = fopen(_PATH_SCOREFILE, "a+")) == NULL) {
 211                 message("cannot read/write/create score file", 0);
 212                 sf_error();
 213         }
 214         rewind(fp);
 215         (void) xxx(1);
 216
 217         for (i = 0; i < 10; i++) {
 218                 if (((n = fread(scores[i], sizeof(char), 80, fp)) < 80) && (n != 0)) {
 219                         sf_error();
 220                 } else if (n != 0) {
 221                         xxxx(scores[i], 80);
 222                         if ((n = fread(n_names[i], sizeof(char), 30, fp)) < 30) {
 223                                 sf_error();
 224                         }
 225                         xxxx(n_names[i], 30);
 226                 } else {
 227                         break;
 228                 }
 229                 ne++;
 230                 if ((!score_only) && (found_player == -1)) {
 231                         if (!name_cmp(scores[i]+15, login_name)) {
 232                                 x = 5;
 233                                 while (scores[i][x] == ' ') {
 234                                         x++;
 235                                 }
 236                                 s = lget_number(scores[i] + x);
 237                                 if (rogue.gold < s) {
 238                                         score_only = 1;
 239                                 } else {
 240                                         found_player = i;
 241                                 }
 242                         }
 243                 }
 244         }
 245         if (found_player != -1) {
 246                 ne--;
 247                 for (i = found_player; i < ne; i++) {
 248                         (void) strcpy(scores[i], scores[i+1]);
 249                         (void) strcpy(n_names[i], n_names[i+1]);
 250                 }
 251         }
 252         if (!score_only) {
 253                 for (i = 0; i < ne; i++) {
 254                         x = 5;
 255                         while (scores[i][x] == ' ') {
 256                                 x++;
 257                         }
 258                         s = lget_number(scores[i] + x);
 259
 260                         if (rogue.gold >= s) {
 261                                 rank = i;
 262                                 break;
 263                         }
 264                 }
 265                 if (ne == 0) {
 266                         rank = 0;
 267                 } else if ((ne < 10) && (rank == 10)) {
 268                         rank = ne;
 269                 }
 270                 if (rank < 10) {
 271                         insert_score(scores, n_names, nick_name, rank, ne, monster,
 272                                 other);
 273                         if (ne < 10) {
 274                                 ne++;
 275                         }
 276                 }
 277                 rewind(fp);
 278         }
 279
 280         clear();
 281         mvaddstr(3, 30, "Top  Ten  Rogueists");
 282         mvaddstr(8, 0, "Rank   Score   Name");
 283
 284         md_ignore_signals();
 285
 286         (void) xxx(1);
 287
 288         for (i = 0; i < ne; i++) {
 289                 if (i == rank) {
 290                         standout();
 291                 }
 292                 if (i == 9) {
 293                         scores[i][0] = '1';
 294                         scores[i][1] = '0';
 295                 } else {
 296                         scores[i][0] = ' ';
 297                         scores[i][1] = i + '1';
 298                 }
 299                 nickize(buf, scores[i], n_names[i]);
 300                 mvaddstr(i+10, 0, buf);
 301                 if (rank < 10) {
 302                         xxxx(scores[i], 80);
 303                         fwrite(scores[i], sizeof(char), 80, fp);
 304                         xxxx(n_names[i], 30);
 305                         fwrite(n_names[i], sizeof(char), 30, fp);
 306                 }
 307                 if (i == rank) {
 308                         standend();
 309                 }
 310         }
 311         md_lock(0);
 312         refresh();
 313         fclose(fp);
 314         message("", 0);
 315         if (pause) {
 316                 message("", 0);
 317         }
 318         clean_up("");
 319 }
 320
 321 insert_score(scores, n_names, n_name, rank, n, monster, other)
 322 char scores[][82];
 323 char n_names[][30];
 324 char *n_name;
 325 short rank, n;
 326 object *monster;
 327 {
 328         short i;
 329         char buf[128];
 330
 331         if (n > 0) {
 332                 for (i = n; i > rank; i--) {
 333                         if ((i < 10) && (i > 0)) {
 334                                 (void) strcpy(scores[i], scores[i-1]);
 335                                 (void) strcpy(n_names[i], n_names[i-1]);
 336                         }
 337                 }
 338         }
 339         sprintf(buf, "%2d    %6d   %s: ", rank+1, rogue.gold, login_name);
 340
 341         if (other) {
 342                 switch(other) {
 343                 case HYPOTHERMIA:
 344                         (void) strcat(buf, "died of hypothermia");
 345                         break;
 346                 case STARVATION:
 347                         (void) strcat(buf, "died of starvation");
 348                         break;
 349                 case POISON_DART:
 350                         (void) strcat(buf, "killed by a dart");
 351                         break;
 352                 case QUIT:
 353                         (void) strcat(buf, "quit");
 354                         break;
 355                 case WIN:
 356                         (void) strcat(buf, "a total winner");
 357                         break;
 358                 case KFIRE:
 359                         (void) strcpy(buf, "killed by fire");
 360                         break;
 361                 }
 362         } else {
 363                 (void) strcat(buf, "killed by ");
 364                 if (is_vowel(m_names[monster->m_char - 'A'][0])) {
 365                         (void) strcat(buf, "an ");
 366                 } else {
 367                         (void) strcat(buf, "a ");
 368                 }
 369                 (void) strcat(buf, m_names[monster->m_char - 'A']);
 370         }
 371         sprintf(buf+strlen(buf), " on level %d ",  max_level);
 372         if ((other != WIN) && has_amulet()) {
 373                 (void) strcat(buf, "with amulet");
 374         }
 375         for (i = strlen(buf); i < 79; i++) {
 376                 buf[i] = ' ';
 377         }
 378         buf[79] = 0;
 379         (void) strcpy(scores[rank], buf);
 380         (void) strcpy(n_names[rank], n_name);
 381 }
 382
 383 is_vowel(ch)
 384 short ch;
 385 {
 386         return( (ch == 'a') ||
 387                 (ch == 'e') ||
 388                 (ch == 'i') ||
 389                 (ch == 'o') ||
 390                 (ch == 'u') );
 391 }
 392
 393 sell_pack()
 394 {
 395         object *obj;
 396         short row = 2, val;
 397         char buf[DCOLS];
 398
 399         obj = rogue.pack.next_object;
 400
 401         clear();
 402         mvaddstr(1, 0, "Value      Item");
 403
 404         while (obj) {
 405                 if (obj->what_is != FOOD) {
 406                         obj->identified = 1;
 407                         val = get_value(obj);
 408                         rogue.gold += val;
 409
 410                         if (row < DROWS) {
 411                                 sprintf(buf, "%5d      ", val);
 412                                 get_desc(obj, buf+11);
 413                                 mvaddstr(row++, 0, buf);
 414                         }
 415                 }
 416                 obj = obj->next_object;
 417         }
 418         refresh();
 419         if (rogue.gold > MAX_GOLD) {
 420                 rogue.gold = MAX_GOLD;
 421         }
 422         message("", 0);
 423 }
 424
 425 get_value(obj)
 426 object *obj;
 427 {
 428         short wc;
 429         int val;
 430
 431         wc = obj->which_kind;
 432
 433         switch(obj->what_is) {
 434         case WEAPON:
 435                 val = id_weapons[wc].value;
 436                 if ((wc == ARROW) || (wc == DAGGER) || (wc == SHURIKEN) ||
 437                         (wc == DART)) {
 438                         val *= obj->quantity;
 439                 }
 440                 val += (obj->d_enchant * 85);
 441                 val += (obj->hit_enchant * 85);
 442                 break;
 443         case ARMOR:
 444                 val = id_armors[wc].value;
 445                 val += (obj->d_enchant * 75);
 446                 if (obj->is_protected) {
 447                         val += 200;
 448                 }
 449                 break;
 450         case WAND:
 451                 val = id_wands[wc].value * (obj->class + 1);
 452                 break;
 453         case SCROL:
 454                 val = id_scrolls[wc].value * obj->quantity;
 455                 break;
 456         case POTION:
 457                 val = id_potions[wc].value * obj->quantity;
 458                 break;
 459         case AMULET:
 460                 val = 5000;
 461                 break;
 462         case RING:
 463                 val = id_rings[wc].value * (obj->class + 1);
 464                 break;
 465         }
 466         if (val <= 0) {
 467                 val = 10;
 468         }
 469         return(val);
 470 }
 471
 472 id_all()
 473 {
 474         short i;
 475
 476         for (i = 0; i < SCROLS; i++) {
 477                 id_scrolls[i].id_status = IDENTIFIED;
 478         }
 479         for (i = 0; i < WEAPONS; i++) {
 480                 id_weapons[i].id_status = IDENTIFIED;
 481         }
 482         for (i = 0; i < ARMORS; i++) {
 483                 id_armors[i].id_status = IDENTIFIED;
 484         }
 485         for (i = 0; i < WANDS; i++) {
 486                 id_wands[i].id_status = IDENTIFIED;
 487         }
 488         for (i = 0; i < POTIONS; i++) {
 489                 id_potions[i].id_status = IDENTIFIED;
 490         }
 491 }
 492
 493 name_cmp(s1, s2)
 494 char *s1, *s2;
 495 {
 496         short i = 0;
 497         int r;
 498
 499         while(s1[i] != ':') {
 500                 i++;
 501         }
 502         s1[i] = 0;
 503         r = strcmp(s1, s2);
 504         s1[i] = ':';
 505         return(r);
 506 }
 507
 508 xxxx(buf, n)
 509 char *buf;
 510 short n;
 511 {
 512         short i;
 513         unsigned char c;
 514
 515         for (i = 0; i < n; i++) {
 516
 517                 /* It does not matter if accuracy is lost during this assignment */
 518                 c = (unsigned char) xxx(0);
 519
 520                 buf[i] ^= c;
 521         }
 522 }
 523
 524 long
 525 xxx(st)
 526 boolean st;
 527 {
 528         static long f, s;
 529         long r;
 530
 531         if (st) {
 532                 f = 37;
 533                 s = 7;
 534                 return(0L);
 535         }
 536         r = ((f * s) + 9337) % 8887;
 537         f = s;
 538         s = r;
 539         return(r);
 540 }
 541
 542 nickize(buf, score, n_name)
 543 char *buf, *score, *n_name;
 544 {
 545         short i = 15, j;
 546
 547         if (!n_name[0]) {
 548                 (void) strcpy(buf, score);
 549         } else {
 550                 (void) strncpy(buf, score, 16);
 551
 552                 while (score[i] != ':') {
 553                         i++;
 554                 }
 555
 556                 (void) strcpy(buf+15, n_name);
 557                 j = strlen(buf);
 558
 559                 while (score[i]) {
 560                         buf[j++] = score[i++];
 561                 }
 562                 buf[j] = 0;
 563                 buf[79] = 0;
 564         }
 565 }
 566
 567 center(row, buf)
 568 short row;
 569 char *buf;
 570 {
 571         short margin;
 572
 573         margin = ((DCOLS - strlen(buf)) / 2);
 574         mvaddstr(row, margin, buf);
 575 }
 576
 577 sf_error()
 578 {
 579         md_lock(0);
 580         message("", 1);
 581         clean_up("sorry, score file is out of order");
 582 }