games/larn/scores.c

   1 /* scores.c                      Larn is copyrighted 1986 by Noah Morgan.
   2  * $FreeBSD: src/games/larn/scores.c,v 1.6 1999/11/16 02:57:24 billf Exp $
   3  * $DragonFly: src/games/larn/scores.c,v 1.4 2006/08/26 17:05:05 pavalos Exp $
   4  *
   5  *      Functions in this file are:
   6  *
   7  *      readboard()     Function to read in the scoreboard into a static buffer
   8  *      writeboard()    Function to write the scoreboard from readboard()'s buffer
   9  *      makeboard()     Function to create a new scoreboard (wipe out old one)
  10  *      hashewon()       Function to return 1 if player has won a game before, else 0
  11  *      long paytaxes(x)         Function to pay taxes if any are due
  12  *      winshou()               Subroutine to print out the winning scoreboard
  13  *      shou(x)                 Subroutine to print out the non-winners scoreboard
  14  *      showscores()            Function to show the scoreboard on the terminal
  15  *      showallscores() Function to show scores and the iven lists that go with them
  16  *      sortboard()             Function to sort the scoreboard
  17  *      newscore(score, whoo, whyded, winner)   Function to add entry to scoreboard
  18  *      new1sub(score,i,whoo,taxes)               Subroutine to put player into a
  19  *      new2sub(score,i,whoo,whyded)              Subroutine to put player into a
  20  *      died(x)         Subroutine to record who played larn, and what the score was
  21  *      diedsub(x) Subroutine to print out a line showing player when he is killed
  22  *      diedlog()       Subroutine to read a log file and print it out in ascii format
  23  *      getplid(name)           Function to get players id # from id file
  24  *
  25  */
  26 #include <sys/types.h>
  27 #include <sys/times.h>
  28 #include <sys/stat.h>
  29 #include "header.h"
  30
  31 static int      readboard(void);
  32 static int      writeboard(void);
  33 static int      winshou(void);
  34 static int      shou(int);
  35 static int      sortboard(void);
  36 static void     newscore(long, char *, int, int);
  37 static void     new1sub(long, int, char *, long);
  38 static void     new2sub(long, int, char *, int);
  39 static void     diedsub(int);
  40
  41 struct scofmt                   /*      This is the structure for the scoreboard                */
  42         {
  43         long score;                     /* the score of the player                                                      */
  44         long suid;                      /* the user id number of the player                             */
  45         short what;                     /* the number of the monster that killed player         */
  46         short level;            /* the level player was on when he died                         */
  47         short hardlev;          /* the level of difficulty player played at             */
  48         short order;            /* the relative ordering place of this entry            */
  49         char who[40];           /* the name of the character                                            */
  50         char sciv[26][2];       /* this is the inventory list of the character          */
  51         };
  52 struct wscofmt                  /* This is the structure for the winning scoreboard */
  53         {
  54         long score;                     /* the score of the player                                                      */
  55         long timeused;          /* the time used in mobuls to win the game                      */
  56         long taxes;                     /* taxes he owes to LRS                                                         */
  57         long suid;                      /* the user id number of the player                             */
  58         short hardlev;          /* the level of difficulty player played at             */
  59         short order;            /* the relative ordering place of this entry            */
  60         char who[40];           /* the name of the character                                            */
  61         };
  62
  63 struct log_fmt                  /* 102 bytes struct for the log file                            */
  64         {
  65         long score;                     /* the players score                                                            */
  66         time_t diedtime;                /* time when game was over                                                      */
  67         short cavelev;          /* level in caves                                                                       */
  68         short diff;                     /* difficulty player played at                                          */
  69 #ifdef EXTRA
  70         long elapsedtime;       /* real time of game in seconds                                         */
  71         long bytout;            /* bytes input and output                                                       */
  72         long bytin;
  73         long moves;                     /* number of moves made by player                                       */
  74         short ac;                       /* armor class of player                                                        */
  75         short hp,hpmax;         /* players hitpoints                                                            */
  76         short cputime;          /* cpu time needed in seconds                                           */
  77         short killed,spused;/* monsters killed and spells cast                                  */
  78         short usage;            /* usage of the cpu in %                                                        */
  79         short lev;                      /* player level                                                                         */
  80 #endif
  81         char who[12];           /* player name                                                                          */
  82         char what[46];          /* what happened to player                                                      */
  83         };
  84
  85 static struct scofmt sco[SCORESIZE];    /* the structure for the scoreboard  */
  86 static struct wscofmt winr[SCORESIZE];  /* struct for the winning scoreboard */
  87 static struct log_fmt logg;                             /* structure for the log file            */
  88 static const char *whydead[] = {
  89         "quit", "suspended", "self - annihilated", "shot by an arrow",
  90         "hit by a dart", "fell into a pit", "fell into a bottomless pit",
  91         "a winner", "trapped in solid rock", "killed by a missing save file",
  92         "killed by an old save file", "caught by the greedy cheater checker trap",
  93         "killed by a protected save file","killed his family and committed suicide",
  94         "erased by a wayward finger", "fell through a bottomless trap door",
  95         "fell through a trap door", "drank some poisonous water",
  96         "fried by an electric shock", "slipped on a volcano shaft",
  97         "killed by a stupid act of frustration", "attacked by a revolting demon",
  98         "hit by his own magic", "demolished by an unseen attacker",
  99         "fell into the dreadful sleep", "killed by an exploding chest",
 100 /*26*/  "killed by a missing maze data file", "annihilated in a sphere",
 101         "died a post mortem death","wasted by a malloc() failure"
 102         };
 103
 104 /*
 105  *      readboard()     Function to read in the scoreboard into a static buffer
 106  *
 107  *      returns -1 if unable to read in the scoreboard, returns 0 if all is OK
 108  */
 109 static int
 110 readboard(void)
 111         {
 112         if (lopen(scorefile)<0)
 113           { lprcat("Can't read scoreboard\n"); lflush(); return(-1); }
 114         lrfill((char*)sco,sizeof(sco));         lrfill((char*)winr,sizeof(winr));
 115         lrclose();  lcreat((char*)0);  return(0);
 116         }
 117
 118 /*
 119  *      writeboard()    Function to write the scoreboard from readboard()'s buffer
 120  *
 121  *      returns -1 if unable to write the scoreboard, returns 0 if all is OK
 122  */
 123 static int
 124 writeboard(void)
 125         {
 126         set_score_output();
 127         if (lcreat(scorefile)<0)
 128           { lprcat("Can't write scoreboard\n"); lflush(); return(-1); }
 129         lwrite((char*)sco,sizeof(sco));         lwrite((char*)winr,sizeof(winr));
 130         lwclose();  lcreat((char*)0);  return(0);
 131         }
 132
 133 /*
 134  *      makeboard()             Function to create a new scoreboard (wipe out old one)
 135  *
 136  *      returns -1 if unable to write the scoreboard, returns 0 if all is OK
 137  */
 138 int
 139 makeboard(void)
 140         {
 141         int i;
 142         for (i=0; i<SCORESIZE; i++)
 143                 {
 144                 winr[i].taxes = winr[i].score = sco[i].score = 0;
 145                 winr[i].order = sco[i].order = i;
 146                 }
 147         if (writeboard()) return(-1);
 148         chmod(scorefile,0660);
 149         return(0);
 150         }
 151
 152 /*
 153  *      hashewon()       Function to return 1 if player has won a game before, else 0
 154  *
 155  *      This function also sets c[HARDGAME] to appropriate value -- 0 if not a
 156  *      winner, otherwise the next level of difficulty listed in the winners
 157  *      scoreboard.  This function also sets outstanding_taxes to the value in
 158  *      the winners scoreboard.
 159  */
 160 int
 161 hashewon(void)
 162         {
 163         int i;
 164         c[HARDGAME] = 0;
 165         if (readboard() < 0) return(0); /* can't find scoreboard */
 166         for (i=0; i<SCORESIZE; i++)     /* search through winners scoreboard */
 167            if (winr[i].suid == userid)
 168                   if (winr[i].score > 0)
 169                         {
 170                         c[HARDGAME]=winr[i].hardlev+1;  outstanding_taxes=winr[i].taxes;
 171                         return(1);
 172                         }
 173         return(0);
 174         }
 175
 176 /*
 177  *      long paytaxes(x)                 Function to pay taxes if any are due
 178  *
 179  *      Enter with the amount (in gp) to pay on the taxes.
 180  *      Returns amount actually paid.
 181  */
 182 long
 183 paytaxes(long x)
 184         {
 185         int i;
 186         long amt;
 187         if (x<0) return(0L);
 188         if (readboard()<0) return(0L);
 189         for (i=0; i<SCORESIZE; i++)
 190                 if (winr[i].suid == userid)     /* look for players winning entry */
 191                         if (winr[i].score>0) /* search for a winning entry for the player */
 192                                 {
 193                                 amt = winr[i].taxes;
 194                                 if (x < amt) amt=x;             /* don't overpay taxes (Ughhhhh) */
 195                                 winr[i].taxes -= amt;
 196                                 outstanding_taxes -= amt;
 197                                 if (writeboard()<0) return(0);
 198                                 return(amt);
 199                                 }
 200         return(0L);     /* couldn't find user on winning scoreboard */
 201         }
 202
 203 /*
 204  *      winshou()               Subroutine to print out the winning scoreboard
 205  *
 206  *      Returns the number of players on scoreboard that were shown
 207  */
 208 static int
 209 winshou(void)
 210         {
 211         struct wscofmt *p;
 212         int i,j,count;
 213         for (count=j=i=0; i<SCORESIZE; i++) /* is there anyone on the scoreboard? */
 214                 if (winr[i].score != 0)
 215                         { j++; break; }
 216         if (j)
 217                 {
 218                 lprcat("\n  Score    Difficulty   Time Needed   Larn Winners List\n");
 219
 220                 for (i=0; i<SCORESIZE; i++)     /* this loop is needed to print out the */
 221                   for (j=0; j<SCORESIZE; j++) /* winners in order */
 222                         {
 223                         p = &winr[j];   /* pointer to the scoreboard entry */
 224                         if (p->order == i)
 225                                 {
 226                                 if (p->score)
 227                                         {
 228                                         count++;
 229                                         lprintf("%10d     %2d      %5d Mobuls   %s \n",
 230                                         (long)p->score,(long)p->hardlev,(long)p->timeused,p->who);
 231                                         }
 232                                 break;
 233                                 }
 234                         }
 235                 }
 236         return(count);  /* return number of people on scoreboard */
 237         }
 238
 239 /*
 240  *      shou(x)                 Subroutine to print out the non-winners scoreboard
 241  *              int x;
 242  *
 243  *      Enter with 0 to list the scores, enter with 1 to list inventories too
 244  *      Returns the number of players on scoreboard that were shown
 245  */
 246 static int
 247 shou(int x)
 248         {
 249         int i,j,n,k;
 250         int count;
 251         for (count=j=i=0; i<SCORESIZE; i++)     /* is the scoreboard empty? */
 252                 if (sco[i].score!= 0)
 253                         { j++; break; }
 254         if (j)
 255                 {
 256                 lprcat("\n   Score   Difficulty   Larn Visitor Log\n");
 257                 for (i=0; i<SCORESIZE; i++) /* be sure to print them out in order */
 258                   for (j=0; j<SCORESIZE; j++)
 259                         if (sco[j].order == i)
 260                                 {
 261                                 if (sco[j].score)
 262                                         {
 263                                         count++;
 264                                         lprintf("%10d     %2d       %s ",
 265                                                 (long)sco[j].score,(long)sco[j].hardlev,sco[j].who);
 266                                         if (sco[j].what < 256) lprintf("killed by a %s",monster[sco[j].what].name);
 267                                                 else lprintf("%s",whydead[sco[j].what - 256]);
 268                                         if (x != 263) lprintf(" on %s",levelname[sco[j].level]);
 269                                         if (x)
 270                                                 {
 271                                                 for (n=0; n<26; n++) { iven[n]=sco[j].sciv[n][0]; ivenarg[n]=sco[j].sciv[n][1]; }
 272                                                 for (k=1; k<99; k++)
 273                                                   for (n=0; n<26; n++)
 274                                                         if (k==iven[n])  { srcount=0; show3(n); }
 275                                                 lprcat("\n\n");
 276                                                 }
 277                                         else lprc('\n');
 278                                         }
 279                                 j=SCORESIZE;
 280                                 }
 281                 }
 282         return(count);  /* return the number of players just shown */
 283         }
 284
 285 /*
 286  *      showscores()            Function to show the scoreboard on the terminal
 287  *
 288  *      Returns nothing of value
 289  */
 290 static char esb[] = "The scoreboard is empty.\n";
 291
 292 void
 293 showscores(void)
 294         {
 295         int i,j;
 296         lflush();  lcreat((char*)0);  if (readboard()<0) return;
 297         i=winshou();    j=shou(0);
 298         if (i+j == 0) lprcat(esb); else lprc('\n');
 299         lflush();
 300         }
 301
 302 /*
 303  *      showallscores() Function to show scores and the iven lists that go with them
 304  *
 305  *      Returns nothing of value
 306  */
 307 void
 308 showallscores(void)
 309         {
 310         int i,j;
 311         lflush();  lcreat((char*)0);  if (readboard()<0) return;
 312         c[WEAR] = c[WIELD] = c[SHIELD] = -1;  /* not wielding or wearing anything */
 313         for (i=0; i<MAXPOTION; i++) potionname[i] = potionhide[i];
 314         for (i=0; i<MAXSCROLL; i++) scrollname[i] = scrollhide[i];
 315         i=winshou();  j=shou(1);
 316         if (i+j==0) lprcat(esb); else lprc('\n');
 317         lflush();
 318         }
 319
 320 /*
 321  *      sortboard()             Function to sort the scoreboard
 322  *
 323  *      Returns 0 if no sorting done, else returns 1
 324  */
 325 static int
 326 sortboard(void)
 327         {
 328         int i,j = 0,pos;
 329         long jdat;
 330         for (i=0; i<SCORESIZE; i++) sco[i].order = winr[i].order = -1;
 331         pos=0;  while (pos < SCORESIZE)
 332                 {
 333                 jdat=0;
 334                 for (i=0; i<SCORESIZE; i++)
 335                         if ((sco[i].order < 0) && (sco[i].score >= jdat))
 336                                 { j=i;  jdat=sco[i].score; }
 337                 sco[j].order = pos++;
 338                 }
 339         pos=0;  while (pos < SCORESIZE)
 340                 {
 341                 jdat=0;
 342                 for (i=0; i<SCORESIZE; i++)
 343                         if ((winr[i].order < 0) && (winr[i].score >= jdat))
 344                                 { j=i;  jdat=winr[i].score; }
 345                 winr[j].order = pos++;
 346                 }
 347         return(1);
 348         }
 349
 350 /*
 351  *      newscore(score, whoo, whyded, winner)   Function to add entry to scoreboard
 352  *              int score, winner, whyded;
 353  *              char *whoo;
 354  *
 355  *      Enter with the total score in gp in score,  players name in whoo,
 356  *              died() reason # in whyded, and TRUE/FALSE in winner if a winner
 357  *      ex.             newscore(1000, "player 1", 32, 0);
 358  */
 359 static void
 360 newscore(long score, char *whoo, int whyded, int winner)
 361         {
 362         int i;
 363         long taxes;
 364         if (readboard() < 0) return;    /*      do the scoreboard       */
 365         /* if a winner then delete all non-winning scores */
 366         if (cheat) winner=0;    /* if he cheated, don't let him win */
 367         if (winner)
 368                 {
 369                 for (i=0; i<SCORESIZE; i++) if (sco[i].suid == userid) sco[i].score=0;
 370                 taxes = score*TAXRATE;
 371                 score += 100000*c[HARDGAME];    /* bonus for winning */
 372         /* if he has a slot on the winning scoreboard update it if greater score */
 373                 for (i=0; i<SCORESIZE; i++) if (winr[i].suid == userid)
 374                                 { new1sub(score,i,whoo,taxes); return; }
 375         /* he had no entry. look for last entry and see if he has a greater score */
 376                 for (i=0; i<SCORESIZE; i++) if (winr[i].order == SCORESIZE-1)
 377                                 { new1sub(score,i,whoo,taxes); return; }
 378                 }
 379         else if (!cheat) /* for not winning scoreboard */
 380                 {
 381         /* if he has a slot on the scoreboard update it if greater score */
 382                 for (i=0; i<SCORESIZE; i++) if (sco[i].suid == userid)
 383                                 { new2sub(score,i,whoo,whyded); return; }
 384         /* he had no entry. look for last entry and see if he has a greater score */
 385                 for (i=0; i<SCORESIZE; i++) if (sco[i].order == SCORESIZE-1)
 386                                 { new2sub(score,i,whoo,whyded); return; }
 387                 }
 388         }
 389
 390 /*
 391  *      new1sub(score,i,whoo,taxes)       Subroutine to put player into a
 392  *              int score,i,whyded,taxes;                 winning scoreboard entry if his score
 393  *              char *whoo;                                       is high enough
 394  *
 395  *      Enter with the total score in gp in score,  players name in whoo,
 396  *              died() reason # in whyded, and TRUE/FALSE in winner if a winner
 397  *              slot in scoreboard in i, and the tax bill in taxes.
 398  *      Returns nothing of value
 399  */
 400 static void
 401 new1sub(long score, int i, char *whoo, long taxes)
 402         {
 403         struct wscofmt *p;
 404         p = &winr[i];
 405         p->taxes += taxes;
 406         if ((score >= p->score) || (c[HARDGAME] > p->hardlev))
 407                 {
 408                 strcpy(p->who,whoo);            p->score=score;
 409                 p->hardlev=c[HARDGAME];         p->suid=userid;
 410                 p->timeused=gtime/100;
 411                 }
 412         }
 413
 414 /*
 415  *      new2sub(score,i,whoo,whyded)              Subroutine to put player into a
 416  *              int score,i,whyded,taxes;                 non-winning scoreboard entry if his
 417  *              char *whoo;                                       score is high enough
 418  *
 419  *      Enter with the total score in gp in score,  players name in whoo,
 420  *              died() reason # in whyded, and slot in scoreboard in i.
 421  *      Returns nothing of value
 422  */
 423 static void
 424 new2sub(long score, int i, char *whoo, int whyded)
 425         {
 426         int j;
 427         struct scofmt *p;
 428         p = &sco[i];
 429         if ((score >= p->score) || (c[HARDGAME] > p->hardlev))
 430                 {
 431                 strcpy(p->who,whoo);  p->score=score;
 432                 p->what=whyded;       p->hardlev=c[HARDGAME];
 433                 p->suid=userid;           p->level=level;
 434                 for (j=0; j<26; j++)
 435                         { p->sciv[j][0]=iven[j]; p->sciv[j][1]=ivenarg[j]; }
 436                 }
 437         }
 438
 439 /*
 440  *      died(x)         Subroutine to record who played larn, and what the score was
 441  *              int x;
 442  *
 443  *      if x < 0 then don't show scores
 444  *      died() never returns! (unless c[LIFEPROT] and a reincarnatable death!)
 445  *
 446  *              < 256   killed by the monster number
 447  *              256             quit
 448  *              257             suspended
 449  *              258             self - annihilated
 450  *              259             shot by an arrow
 451  *              260             hit by a dart
 452  *              261             fell into a pit
 453  *              262             fell into a bottomless pit
 454  *              263             a winner
 455  *              264             trapped in solid rock
 456  *              265             killed by a missing save file
 457  *              266             killed by an old save file
 458  *              267             caught by the greedy cheater checker trap
 459  *              268             killed by a protected save file
 460  *              269             killed his family and killed himself
 461  *              270             erased by a wayward finger
 462  *              271             fell through a bottomless trap door
 463  *              272             fell through a trap door
 464  *              273             drank some poisonous water
 465  *              274             fried by an electric shock
 466  *              275             slipped on a volcano shaft
 467  *              276             killed by a stupid act of frustration
 468  *              277             attacked by a revolting demon
 469  *              278             hit by his own magic
 470  *              279             demolished by an unseen attacker
 471  *              280             fell into the dreadful sleep
 472  *              281             killed by an exploding chest
 473  *              282             killed by a missing maze data file
 474  *              283             killed by a sphere of annihilation
 475  *              284             died a post mortem death
 476  *              285             malloc() failure
 477  *              300             quick quit -- don't put on scoreboard
 478  */
 479
 480 static int scorerror;
 481
 482 void
 483 died(int x)
 484         {
 485         int f,win;
 486         char ch;
 487         const char *mod;
 488         time_t zzz;
 489 #ifdef EXTRA
 490         long i;
 491         struct tms cputime;
 492 #endif
 493         if (c[LIFEPROT]>0) /* if life protection */
 494                 {
 495                 switch((x>0) ? x : -x)
 496                         {
 497                         case 256: case 257: case 262: case 263: case 265: case 266:
 498                         case 267: case 268: case 269: case 271: case 282: case 284:
 499                         case 285: case 300:  goto invalid; /* can't be saved */
 500                         };
 501                 --c[LIFEPROT]; c[HP]=1; --c[CONSTITUTION];
 502                 cursors(); lprcat("\nYou feel wiiieeeeerrrrrd all over! "); beep();
 503                 lflush();  sleep(4);
 504                 return; /* only case where died() returns */
 505                 }
 506 invalid:
 507         clearvt100();  lflush();  f=0;
 508         if (ckpflag) unlink(ckpfile);   /* remove checkpoint file if used */
 509         if (x<0) { f++; x = -x; }       /* if we are not to display the scores */
 510         if ((x == 300) || (x == 257))  exit(0);  /* for quick exit or saved game */
 511         if (x == 263)  win = 1;  else  win = 0;
 512         c[GOLD] += c[BANKACCOUNT];   c[BANKACCOUNT] = 0;
 513                 /*      now enter the player at the end of the scoreboard */
 514         newscore(c[GOLD], logname, x, win);
 515         diedsub(x);     /* print out the score line */  lflush();
 516
 517         set_score_output();
 518         if ((wizard == 0) && (c[GOLD] > 0))     /*      wizards can't score             */
 519                 {
 520 #ifndef NOLOG
 521                 if (lappend(logfile)<0)  /* append to file */
 522                         {
 523                         if (lcreat(logfile)<0) /* and can't create new log file */
 524                         {
 525                                 lcreat((char*)0);
 526                                 lprcat("\nCan't open record file:  I can't post your score.\n");
 527                                 sncbr();  resetscroll();  lflush();  exit(1);
 528                                 }
 529                         chmod(logfile,0660);
 530                         }
 531                 strcpy(logg.who,loginname);
 532                 logg.score = c[GOLD];           logg.diff = c[HARDGAME];
 533                 if (x < 256)
 534                         {
 535                         ch = *monster[x].name;
 536                         if (ch=='a' || ch=='e' || ch=='i' || ch=='o' || ch=='u')
 537                                 mod="an";  else mod="a";
 538                         sprintf(logg.what,"killed by %s %s",mod,monster[x].name);
 539                         }
 540                 else sprintf(logg.what,"%s",whydead[x - 256]);
 541                 logg.cavelev=level;
 542                 time(&zzz);       /* get cpu time -- write out score info */
 543                 logg.diedtime=zzz;
 544 #ifdef EXTRA
 545                 times(&cputime);  /* get cpu time -- write out score info */
 546                 logg.cputime = i = (cputime.tms_utime + cputime.tms_stime)/60 + c[CPUTIME];
 547                 logg.lev=c[LEVEL];                      logg.ac=c[AC];
 548                 logg.hpmax=c[HPMAX];            logg.hp=c[HP];
 549                 logg.elapsedtime=(zzz-initialtime+59)/60;
 550                 logg.usage=(10000*i)/(zzz-initialtime);
 551                 logg.bytin=c[BYTESIN];          logg.bytout=c[BYTESOUT];
 552                 logg.moves=c[MOVESMADE];        logg.spused=c[SPELLSCAST];
 553                 logg.killed=c[MONSTKILLED];
 554 #endif
 555                 lwrite((char*)&logg,sizeof(struct log_fmt));     lwclose();
 556 #endif /* NOLOG */
 557
 558 /*      now for the scoreboard maintenance -- not for a suspended game  */
 559                 if (x != 257)
 560                         {
 561                         if (sortboard())  scorerror = writeboard();
 562                         }
 563                 }
 564         if ((x==256) || (x==257) || (f != 0)) exit(0);
 565         if (scorerror == 0) showscores();       /* if we updated the scoreboard */
 566         if (x == 263) mailbill();               exit(0);
 567         }
 568
 569 /*
 570  *      diedsub(x) Subroutine to print out the line showing the player when he is killed
 571  *              int x;
 572  */
 573 static void
 574 diedsub(int x)
 575         {
 576         char ch;
 577         const char *mod;
 578         lprintf("Score: %d, Diff: %d,  %s ",(long)c[GOLD],(long)c[HARDGAME],logname);
 579         if (x < 256)
 580                 {
 581                 ch = *monster[x].name;
 582                 if (ch=='a' || ch=='e' || ch=='i' || ch=='o' || ch=='u')
 583                         mod="an";  else mod="a";
 584                 lprintf("killed by %s %s",mod,monster[x].name);
 585                 }
 586         else lprintf("%s",whydead[x - 256]);
 587         if (x != 263) lprintf(" on %s\n",levelname[(int)level]);  else lprc('\n');
 588         }
 589
 590 /*
 591  *      diedlog()       Subroutine to read a log file and print it out in ascii format
 592  */
 593 void
 594 diedlog(void)
 595         {
 596         int n;
 597         char *p;
 598         struct stat stbuf;
 599         lcreat((char*)0);
 600         if (lopen(logfile)<0)
 601                 {
 602                 lprintf("Can't locate log file <%s>\n",logfile);
 603                 return;
 604                 }
 605         if (fstat(fd,&stbuf) < 0)
 606                 {
 607                 lprintf("Can't  stat log file <%s>\n",logfile);
 608                 return;
 609                 }
 610         for (n=stbuf.st_size/sizeof(struct log_fmt); n>0; --n)
 611                 {
 612                 lrfill((char*)&logg,sizeof(struct log_fmt));
 613                 p = ctime(&logg.diedtime); p[16]='\n'; p[17]=0;
 614                 lprintf("Score: %d, Diff: %d,  %s %s on %d at %s",(long)(logg.score),(long)(logg.diff),logg.who,logg.what,(long)(logg.cavelev),p+4);
 615 #ifdef EXTRA
 616                 if (logg.moves<=0) logg.moves=1;
 617                 lprintf("  Experience Level: %d,  AC: %d,  HP: %d/%d,  Elapsed Time: %d minutes\n",(long)(logg.lev),(long)(logg.ac),(long)(logg.hp),(long)(logg.hpmax),(long)(logg.elapsedtime));
 618                 lprintf("  CPU time used: %d seconds,  Machine usage: %d.%02d%%\n",(long)(logg.cputime),(long)(logg.usage/100),(long)(logg.usage%100));
 619                 lprintf("  BYTES in: %d, out: %d, moves: %d, deaths: %d, spells cast: %d\n",(long)(logg.bytin),(long)(logg.bytout),(long)(logg.moves),(long)(logg.killed),(long)(logg.spused));
 620                 lprintf("  out bytes per move: %d,  time per move: %d ms\n",(long)(logg.bytout/logg.moves),(long)((logg.cputime*1000)/logg.moves));
 621 #endif
 622                 }
 623                 lflush();  lrclose();  return;
 624         }
 625
 626 #ifndef UIDSCORE
 627 /*
 628  *      getplid(name)           Function to get players id # from id file
 629  *
 630  *      Enter with the name of the players character in name.
 631  *      Returns the id # of the players character, or -1 if failure.
 632  *      This routine will try to find the name in the id file, if its not there,
 633  *      it will try to make a new entry in the file.  Only returns -1 if can't
 634  *      find him in the file, and can't make a new entry in the file.
 635  *      Format of playerids file:
 636  *                      Id # in ascii     \n     character name     \n
 637  */
 638 static int havepid= -1; /* playerid # if previously done */
 639
 640 int
 641 getplid(char *nam)
 642         {
 643         int fd7,high=999,no;
 644         char *p,*p2;
 645         char name[80];
 646         if (havepid != -1) return(havepid);     /* already did it */
 647         lflush();       /* flush any pending I/O */
 648         sprintf(name,"%s\n",nam);       /* append a \n to name */
 649         if (lopen(playerids) < 0)       /* no file, make it */
 650                 {
 651                 if ((fd7=creat(playerids,0666)) < 0)  return(-1); /* can't make it */
 652                 close(fd7);  goto addone;       /* now append new playerid record to file */
 653                 }
 654         for (;;)        /* now search for the name in the player id file */
 655                 {
 656                 p = lgetl();  if (p==NULL) break;       /* EOF? */
 657                 no = atoi(p);   /* the id # */
 658                 p2= lgetl();  if (p2==NULL) break;      /* EOF? */
 659                 if (no>high) high=no;   /* accumulate highest id # */
 660                 if (strcmp(p2,name)==0) /* we found him */
 661                         {
 662                         return(no);     /* his id number */
 663                         }
 664                 }
 665         lrclose();
 666         /* if we get here, we didn't find him in the file -- put him there */
 667 addone:
 668         if (lappend(playerids) < 0) return(-1); /* can't open file for append */
 669         lprintf("%d\n%s",(long)++high,name);  /* new id # and name */
 670         lwclose();
 671         lcreat((char*)0);       /* re-open terminal channel */
 672         return(high);
 673         }
 674 #endif /* UIDSCORE */
 675