rip.c

   1 /*
   2  * File for the fun ends
   3  * Death or a total win
   4  *
   5  * @(#)rip.c    3.13 (Berkeley) 6/16/81
   6  *
   7  * Rogue: Exploring the Dungeons of Doom
   8  * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
   9  * All rights reserved.
  10  *
  11  * See the file LICENSE.TXT for full copyright and licensing information.
  12  */
  13
  14 #include "curses.h"
  15 #include <time.h>
  16 #include <signal.h>
  17 #include <ctype.h>
  18 #include <sys/types.h>
  19 #include <fcntl.h>
  20 #include <string.h>
  21 #include "machdep.h"
  22 #include "rogue.h"
  23
  24 static char *rip[] = {
  25 "                       __________",
  26 "                      /          \\",
  27 "                     /    REST    \\",
  28 "                    /      IN      \\",
  29 "                   /     PEACE      \\",
  30 "                  /                  \\",
  31 "                  |                  |",
  32 "                  |                  |",
  33 "                  |   killed by a    |",
  34 "                  |                  |",
  35 "                  |       1980       |",
  36 "                 *|     *  *  *      | *",
  37 "         ________)/\\\\_//(\\/(/\\)/\\//\\/|_)_______",
  38     0
  39 };
  40
  41 char    *killname();
  42
  43 /*
  44  * death:
  45  *      Do something really fun when he dies
  46  */
  47
  48 death(monst)
  49 register char monst;
  50 {
  51     register char **dp = rip, *killer;
  52     register struct tm *lt;
  53     time_t date;
  54     char buf[80];
  55
  56     time(&date);
  57     lt = localtime(&date);
  58     clear();
  59     move(8, 0);
  60     while (*dp)
  61         printw("%s\n", *dp++);
  62     mvaddstr(14, 28-(((int)strlen(whoami)+1)/2), whoami);
  63     purse -= purse/10;
  64     sprintf(buf, "%d Au", purse);
  65     mvaddstr(15, 28-(((int)strlen(buf)+1)/2), buf);
  66     killer = killname(monst);
  67     mvaddstr(17, 28-(((int)strlen(killer)+1)/2), killer);
  68     mvaddstr(16, 33, vowelstr(killer));
  69     sprintf(prbuf, "%4d", 1900+lt->tm_year);
  70     mvaddstr(18, 26, prbuf);
  71     move(LINES-1, 0);
  72     draw(stdscr);
  73     score(purse, 0, monst);
  74     exit(0);
  75 }
  76
  77 /*
  78  * score -- figure score and post it.
  79  */
  80
  81 /* VARARGS2 */
  82 score(amount, flags, monst)
  83 char monst;
  84 {
  85     static struct sc_ent {
  86         int sc_score;
  87         char sc_name[80];
  88         int sc_flags;
  89         int sc_level;
  90         char sc_login[8];
  91         char sc_monster;
  92     } top_ten[10];
  93     register struct sc_ent *scp;
  94     register int i;
  95     register struct sc_ent *sc2;
  96     register FILE *outf;
  97     register char *killer;
  98     register int prflags = 0;
  99     register int fd;
 100     static char *reason[] = {
 101         "killed",
 102         "quit",
 103         "A total winner",
 104     };
 105     char scoreline[100];
 106     char score_file[PATH_MAX];
 107     int rogue_ver = 0, scorefile_ver = 0;
 108
 109     /*
 110      * Open file and read list
 111      */
 112
 113     /* Get default score file */
 114     strcpy(score_file, md_getroguedir());
 115
 116     if (*score_file)
 117         strcat(score_file,"\\");
 118
 119     strcat(score_file, "rogue36.scr");
 120
 121     if ((fd = open(score_file, O_RDWR | O_CREAT, 0666 )) < 0)
 122         return;
 123
 124     outf = (FILE *) fdopen(fd, "w");
 125
 126     for (scp = top_ten; scp <= &top_ten[9]; scp++)
 127     {
 128         scp->sc_score = 0;
 129         for (i = 0; i < 80; i++)
 130             scp->sc_name[i] = rnd(255);
 131         scp->sc_flags = RN;
 132         scp->sc_level = RN;
 133         scp->sc_monster = RN;
 134         scp->sc_login[0] = '\0';
 135     }
 136
 137     signal(SIGINT, SIG_DFL);
 138     if ((flags != -1) && (flags != 1))
 139     {
 140         mvaddstr(LINES-1, 0, "[Press return to continue]");
 141         draw(stdscr);
 142         prbuf[0] = 0;
 143         get_str(prbuf, stdscr);
 144         endwin();
 145     }
 146     if (wizard)
 147         if (strcmp(prbuf, "names") == 0)
 148             prflags = 1;
 149         else if (strcmp(prbuf, "edit") == 0)
 150             prflags = 2;
 151
 152     encread((char *) scoreline, 100, fd);
 153     sscanf(scoreline, "R%d %d\n", &rogue_ver, &scorefile_ver);
 154
 155     if ((rogue_ver == 36) && (scorefile_ver == 2))
 156         for(i = 0; i < 10; i++)
 157         {
 158             encread((char *) &top_ten[i].sc_name, 80, fd);
 159             encread((char *) &top_ten[i].sc_login, 8, fd);
 160             encread((char *) scoreline, 100, fd);
 161             sscanf(scoreline, " %d %d %d %d \n",
 162                 &top_ten[i].sc_score,  &top_ten[i].sc_flags,
 163                 &top_ten[i].sc_level,  &top_ten[i].sc_monster);
 164         }
 165
 166     /*
 167      * Insert her in list if need be
 168      */
 169     if (!waswizard)
 170     {
 171         for (scp = top_ten; scp <= &top_ten[9]; scp++)
 172             if (amount > scp->sc_score)
 173                 break;
 174         if (scp <= &top_ten[9])
 175         {
 176             for (sc2 = &top_ten[9]; sc2 > scp; sc2--)
 177                 *sc2 = *(sc2-1);
 178             scp->sc_score = amount;
 179             strcpy(scp->sc_name, whoami);
 180             scp->sc_flags = flags;
 181             if (flags == 2)
 182                 scp->sc_level = max_level;
 183             else
 184                 scp->sc_level = level;
 185             scp->sc_monster = monst;
 186             strncpy(scp->sc_login, md_getusername(), 8);
 187         }
 188     }
 189     /*
 190      * Print the list
 191      */
 192     if (flags != -1)
 193         printf("\n\n\n");
 194     printf("Top Ten Adventurers:\nRank\tScore\tName\n");
 195     for (scp = top_ten; scp <= &top_ten[9]; scp++) {
 196         if (scp->sc_score) {
 197             printf("%d\t%d\t%s: %s on level %d", scp - top_ten + 1,
 198                 scp->sc_score, scp->sc_name, reason[scp->sc_flags],
 199                 scp->sc_level);
 200             if (scp->sc_flags == 0) {
 201                 printf(" by a");
 202                 killer = killname(scp->sc_monster);
 203                 if (*killer == 'a' || *killer == 'e' || *killer == 'i' ||
 204                     *killer == 'o' || *killer == 'u')
 205                         putchar('n');
 206                 printf(" %s", killer);
 207             }
 208             if (prflags == 1)
 209             {
 210                 printf(" (%s)", scp->sc_login);
 211                 putchar('\n');
 212             }
 213             else if (prflags == 2)
 214             {
 215                 fflush(stdout);
 216                 fgets(prbuf,80,stdin);
 217                 if (prbuf[0] == 'd')
 218                 {
 219                     for (sc2 = scp; sc2 < &top_ten[9]; sc2++)
 220                         *sc2 = *(sc2 + 1);
 221                     top_ten[9].sc_score = 0;
 222                     for (i = 0; i < 80; i++)
 223                         top_ten[9].sc_name[i] = rnd(255);
 224                     top_ten[9].sc_flags = RN;
 225                     top_ten[9].sc_level = RN;
 226                     top_ten[9].sc_monster = RN;
 227                     scp--;
 228                 }
 229             }
 230             else
 231                 printf(".\n");
 232         }
 233     }
 234     fseek(outf, 0L, 0);
 235     /*
 236      * Update the list file
 237      */
 238     strcpy(scoreline, "R36 2\n");
 239     encwrite(scoreline, 100, outf);
 240     for(i = 0; i < 10; i++)
 241     {
 242         encwrite((char *) &top_ten[i].sc_name, 80, outf);
 243         encwrite((char *) &top_ten[i].sc_login, 8, outf);
 244         sprintf(scoreline, " %d %d %d %d \n",
 245         top_ten[i].sc_score,  top_ten[i].sc_flags,
 246         top_ten[i].sc_level,  top_ten[i].sc_monster);
 247         encwrite((char *) scoreline, 100, outf);
 248     }
 249     fclose(outf);
 250 }
 251
 252 total_winner()
 253 {
 254     register struct linked_list *item;
 255     register struct object *obj;
 256     register int worth;
 257     register char c;
 258     register int oldpurse;
 259
 260     clear();
 261     standout();
 262     addstr("                                                               \n");
 263     addstr("  @   @               @   @           @          @@@  @     @  \n");
 264     addstr("  @   @               @@ @@           @           @   @     @  \n");
 265     addstr("  @   @  @@@  @   @   @ @ @  @@@   @@@@  @@@      @  @@@    @  \n");
 266     addstr("   @@@@ @   @ @   @   @   @     @ @   @ @   @     @   @     @  \n");
 267     addstr("      @ @   @ @   @   @   @  @@@@ @   @ @@@@@     @   @     @  \n");
 268     addstr("  @   @ @   @ @  @@   @   @ @   @ @   @ @         @   @  @     \n");
 269     addstr("   @@@   @@@   @@ @   @   @  @@@@  @@@@  @@@     @@@   @@   @  \n");
 270     addstr("                                                               \n");
 271     addstr("     Congratulations, you have made it to the light of day!    \n");
 272     standend();
 273     addstr("\nYou have joined the elite ranks of those who have escaped the\n");
 274     addstr("Dungeons of Doom alive.  You journey home and sell all your loot at\n");
 275     addstr("a great profit and are admitted to the fighters guild.\n");
 276     mvaddstr(LINES - 1, 0, "--Press space to continue--");
 277     refresh();
 278     wait_for(' ');
 279     clear();
 280     mvaddstr(0, 0, "   Worth  Item");
 281     oldpurse = purse;
 282     for (c = 'a', item = pack; item != NULL; c++, item = next(item))
 283     {
 284         obj = (struct object *) ldata(item);
 285         switch (obj->o_type)
 286         {
 287             case FOOD:
 288                 worth = 2 * obj->o_count;
 289             when WEAPON:
 290                 switch (obj->o_which)
 291                 {
 292                     case MACE: worth = 8;
 293                     when SWORD: worth = 15;
 294                     when BOW: worth = 75;
 295                     when ARROW: worth = 1;
 296                     when DAGGER: worth = 2;
 297                     when ROCK: worth = 1;
 298                     when TWOSWORD: worth = 30;
 299                     when SLING: worth = 1;
 300                     when DART: worth = 1;
 301                     when CROSSBOW: worth = 15;
 302                     when BOLT: worth = 1;
 303                     when SPEAR: worth = 2;
 304                     otherwise: worth = 0;
 305                 }
 306                 worth *= (1 + (10 * obj->o_hplus + 10 * obj->o_dplus));
 307                 worth *= obj->o_count;
 308                 obj->o_flags |= ISKNOW;
 309             when ARMOR:
 310                 switch (obj->o_which)
 311                 {
 312                     case LEATHER: worth = 5;
 313                     when RING_MAIL: worth = 30;
 314                     when STUDDED_LEATHER: worth = 15;
 315                     when SCALE_MAIL: worth = 3;
 316                     when CHAIN_MAIL: worth = 75;
 317                     when SPLINT_MAIL: worth = 80;
 318                     when BANDED_MAIL: worth = 90;
 319                     when PLATE_MAIL: worth = 400;
 320                     otherwise: worth = 0;
 321                 }
 322                 worth *= (1 + (10 * (a_class[obj->o_which] - obj->o_ac)));
 323                 obj->o_flags |= ISKNOW;
 324             when SCROLL:
 325                 s_know[obj->o_which] = TRUE;
 326                 worth = s_magic[obj->o_which].mi_worth;
 327                 worth *= obj->o_count;
 328             when POTION:
 329                 p_know[obj->o_which] = TRUE;
 330                 worth = p_magic[obj->o_which].mi_worth;
 331                 worth *= obj->o_count;
 332             when RING:
 333                 obj->o_flags |= ISKNOW;
 334                 r_know[obj->o_which] = TRUE;
 335                 worth = r_magic[obj->o_which].mi_worth;
 336                 if (obj->o_which == R_ADDSTR || obj->o_which == R_ADDDAM ||
 337                     obj->o_which == R_PROTECT || obj->o_which == R_ADDHIT)
 338                         if (obj->o_ac > 0)
 339                             worth += obj->o_ac * 20;
 340                         else
 341                             worth = 50;
 342             when STICK:
 343                 obj->o_flags |= ISKNOW;
 344                 ws_know[obj->o_which] = TRUE;
 345                 worth = ws_magic[obj->o_which].mi_worth;
 346                 worth += 20 * obj->o_charges;
 347             when AMULET:
 348                 worth = 1000;
 349         }
 350         mvprintw(c - 'a' + 1, 0, "%c) %5d  %s", c, worth, inv_name(obj, FALSE));
 351         purse += worth;
 352     }
 353     mvprintw(c - 'a' + 1, 0,"   %5d  Gold Peices          ", oldpurse);
 354     refresh();
 355     score(purse, 2, 0);
 356     exit(0);
 357 }
 358
 359 char *
 360 killname(monst)
 361 register char monst;
 362 {
 363     if (isupper(monst))
 364         return monsters[monst-'A'].m_name;
 365     else
 366         switch (monst)
 367         {
 368             case 'a':
 369                 return "arrow";
 370             case 'd':
 371                 return "dart";
 372             case 'b':
 373                 return "bolt";
 374         }
 375     return("");
 376 }