games/phantasia/gamesupport.c

   1 /*
   2  * gamesupport.c - auxiliary routines for support of Phantasia
   3  *
   4  * $FreeBSD: src/games/phantasia/gamesupport.c,v 1.6 1999/11/16 02:57:33 billf Exp $
   5  * $DragonFly: src/games/phantasia/gamesupport.c,v 1.3 2005/05/31 00:06:26 swildner Exp $
   6  */
   7
   8 #include <string.h>
   9 #include "include.h"
  10
  11 /* functions which we need to know about */
  12 /* interplayer.c */
  13 extern  void    userlist(bool);
  14 /* io.c */
  15 extern  int     getanswer(const char *, bool);
  16 extern  void    getstring(char *, int);
  17 extern  double  infloat(void);
  18 extern  void    more(int);
  19 /* main.c */
  20 extern  void    cleanup(bool);
  21 /* misc.c */
  22 extern  const char      *descrstatus(struct player *);
  23 extern  const char      *descrtype(struct player *, bool);
  24 extern  void    error(const char *);
  25 extern  long    findname(char *, struct player *);
  26 extern  void    freerecord(struct player *, long);
  27 extern  void    truncstring(char *);
  28 extern  void    writerecord(struct player *, long);
  29
  30 void    changestats(bool);
  31 void    monstlist(void);
  32 void    scorelist(void);
  33 void    activelist(void);
  34 void    purgeoldplayers(void);
  35 void    enterscore(void);
  36
  37 /************************************************************************
  38 /
  39 / FUNCTION NAME: changestats()
  40 /
  41 / FUNCTION: examine/change statistics for a player
  42 /
  43 / AUTHOR: E. A. Estes, 12/4/85
  44 /
  45 / ARGUMENTS:
  46 /       bool ingameflag - set if called while playing game (Wizard only)
  47 /
  48 / RETURN VALUE: none
  49 /
  50 / MODULES CALLED: freerecord(), writerecord(), descrstatus(), truncstring(),
  51 /       time(), more(), wmove(), wclear(), strcmp(), printw(), strcpy(),
  52 /       infloat(), waddstr(), cleanup(), findname(), userlist(), mvprintw(),
  53 /       localtime(), getanswer(), descrtype(), getstring()
  54 /
  55 / GLOBAL INPUTS: LINES, *Login, Other, Wizard, Player, *stdscr, Databuf[],
  56 /       Fileloc
  57 /
  58 / GLOBAL OUTPUTS: Echo
  59 /
  60 / DESCRIPTION:
  61 /       Prompt for player name to examine/change.
  62 /       If the name is NULL, print a list of all players.
  63 /       If we are called from within the game, check for the
  64 /       desired name being the same as the current player's name.
  65 /       Only the 'Wizard' may alter players.
  66 /       Items are changed only if a non-zero value is specified.
  67 /       To change an item to 0, use 0.1; it will be truncated later.
  68 /
  69 /       Players may alter their names and passwords, if the following
  70 /       are true:
  71 /           - current login matches the character's logins
  72 /           - the password is known
  73 /           - the player is not in the middle of the game (ingameflag == FALSE)
  74 /
  75 /       The last condition is imposed for two reasons:
  76 /           - the game could possibly get a bit hectic if a player were
  77 /             continually changing his/her name
  78 /           - another player structure would be necessary to check for names
  79 /             already in use
  80 /
  81 *************************************************************************/
  82
  83 void
  84 changestats(bool ingameflag)
  85 {
  86 static char     flag[2] = /* for printing values of bools */
  87         {'F', 'T'};
  88 struct player   *playerp;/* pointer to structure to alter */
  89 const char      *prompt;        /* pointer to prompt string */
  90 int     c;                      /* input */
  91 int     today;                  /* day of year of today */
  92 int     temp;                   /* temporary variable */
  93 long    loc;                    /* location in player file */
  94 time_t  now;                    /* time now */
  95 double  dtemp;                  /* temporary variable */
  96 bool    *bptr;                  /* pointer to bool item to change */
  97 double  *dptr;                  /* pointer to double item to change */
  98 short   *sptr;                  /* pointer to short item to change */
  99
 100     clear();
 101
 102     for (;;)
 103         /* get name of player to examine/alter */
 104         {
 105         mvaddstr(5, 0, "Which character do you want to look at ? ");
 106         getstring(Databuf, SZ_DATABUF);
 107         truncstring(Databuf);
 108
 109         if (Databuf[0] == '\0')
 110             userlist(ingameflag);
 111         else
 112             break;
 113         }
 114
 115     loc = -1L;
 116
 117     if (!ingameflag)
 118         /* use 'Player' structure */
 119         playerp = &Player;
 120     else if (strcmp(Databuf, Player.p_name) == 0)
 121         /* alter/examine current player */
 122         {
 123         playerp = &Player;
 124         loc = Fileloc;
 125         }
 126     else
 127         /* use 'Other' structure */
 128         playerp = &Other;
 129
 130     /* find player on file */
 131     if (loc < 0L && (loc = findname(Databuf, playerp)) < 0L)
 132         /* didn't find player */
 133         {
 134         clear();
 135         mvaddstr(11, 0, "Not found.");
 136         return;
 137         }
 138
 139     time(&now);
 140     today = localtime(&now)->tm_yday;
 141
 142     clear();
 143
 144     for (;;)
 145         /* print player structure, and prompt for action */
 146         {
 147         mvprintw(0, 0,"A:Name         %s\n", playerp->p_name);
 148
 149         if (Wizard)
 150             printw("B:Password     %s\n", playerp->p_password);
 151         else
 152             addstr("B:Password     XXXXXXXX\n");
 153
 154         printw(" :Login        %s\n", playerp->p_login);
 155
 156         printw("C:Experience   %.0f\n", playerp->p_experience);
 157         printw("D:Level        %.0f\n", playerp->p_level);
 158         printw("E:Strength     %.0f\n", playerp->p_strength);
 159         printw("F:Sword        %.0f\n", playerp->p_sword);
 160         printw(" :Might        %.0f\n", playerp->p_might);
 161         printw("G:Energy       %.0f\n", playerp->p_energy);
 162         printw("H:Max-Energy   %.0f\n", playerp->p_maxenergy);
 163         printw("I:Shield       %.0f\n", playerp->p_shield);
 164         printw("J:Quickness    %.0f\n", playerp->p_quickness);
 165         printw("K:Quicksilver  %.0f\n", playerp->p_quksilver);
 166         printw(" :Speed        %.0f\n", playerp->p_speed);
 167         printw("L:Magic Level  %.0f\n", playerp->p_magiclvl);
 168         printw("M:Mana         %.0f\n", playerp->p_mana);
 169         printw("N:Brains       %.0f\n", playerp->p_brains);
 170
 171         if (Wizard || playerp->p_specialtype != SC_VALAR)
 172             mvaddstr(0, 40, descrstatus(playerp));
 173
 174         mvprintw(1, 40, "O:Poison       %0.3f\n", playerp->p_poison);
 175         mvprintw(2, 40, "P:Gold         %.0f\n", playerp->p_gold);
 176         mvprintw(3, 40, "Q:Gem          %.0f\n", playerp->p_gems);
 177         mvprintw(4, 40, "R:Sin          %0.3f\n", playerp->p_sin);
 178         if (Wizard)
 179             {
 180             mvprintw(5, 40, "S:X-coord      %.0f\n", playerp->p_x);
 181             mvprintw(6, 40, "T:Y-coord      %.0f\n", playerp->p_y);
 182             }
 183         else
 184             {
 185             mvaddstr(5, 40, "S:X-coord      ?\n");
 186             mvaddstr(6, 40, "T:Y-coord      ?\n");
 187             }
 188
 189         mvprintw(7, 40, "U:Age          %ld\n", playerp->p_age);
 190         mvprintw(8, 40, "V:Degenerated  %d\n", playerp->p_degenerated);
 191
 192         mvprintw(9, 40, "W:Type         %d (%s)\n",
 193             playerp->p_type, descrtype(playerp, FALSE) + 1);
 194         mvprintw(10, 40, "X:Special Type %d\n", playerp->p_specialtype);
 195         mvprintw(11, 40, "Y:Lives        %d\n", playerp->p_lives);
 196         mvprintw(12, 40, "Z:Crowns       %d\n", playerp->p_crowns);
 197         mvprintw(13, 40, "0:Charms       %d\n", playerp->p_charms);
 198         mvprintw(14, 40, "1:Amulets      %d\n", playerp->p_amulets);
 199         mvprintw(15, 40, "2:Holy Water   %d\n", playerp->p_holywater);
 200
 201         temp = today - playerp->p_lastused;
 202         if (temp < 0)
 203             /* last year */
 204             temp += 365;
 205         mvprintw(16, 40, "3:Lastused     %d  (%d)\n", playerp->p_lastused,  temp);
 206
 207         mvprintw(18, 8, "4:Palantir %c  5:Blessing %c  6:Virgin %c  7:Blind %c",
 208             flag[playerp->p_palantir],
 209             flag[playerp->p_blessing],
 210             flag[playerp->p_virgin],
 211             flag[playerp->p_blindness]);
 212
 213         if (!Wizard)
 214             mvprintw(19, 8, "8:Ring    %c",
 215                 flag[playerp->p_ring.ring_type != R_NONE]);
 216         else
 217             mvprintw(19, 8, "8:Ring    %d  9:Duration %d",
 218                 playerp->p_ring.ring_type, playerp->p_ring.ring_duration);
 219
 220         if (!Wizard
 221             /* not wizard */
 222             && (ingameflag || strcmp(Login, playerp->p_login) != 0))
 223             /* in game or not examining own character */
 224             {
 225             if (ingameflag)
 226                 {
 227                 more(LINES - 1);
 228                 clear();
 229                 return;
 230                 }
 231             else
 232                 cleanup(TRUE);
 233                 /*NOTREACHED*/
 234             }
 235
 236         mvaddstr(20, 0, "!:Quit       ?:Delete");
 237         mvaddstr(21, 0, "What would you like to change ? ");
 238
 239         if (Wizard)
 240             c = getanswer(" ", TRUE);
 241         else
 242             /* examining own player; allow to change name and password */
 243             c = getanswer("!BA", FALSE);
 244
 245         switch (c)
 246             {
 247             case 'A':   /* change name */
 248             case 'B':   /* change password */
 249                 if (!Wizard)
 250                     /* prompt for password */
 251                     {
 252                     mvaddstr(23, 0, "Password ? ");
 253                     Echo = FALSE;
 254                     getstring(Databuf, 9);
 255                     Echo = TRUE;
 256                     if (strcmp(Databuf, playerp->p_password) != 0)
 257                         continue;
 258                     }
 259
 260                 if (c == 'A')
 261                     /* get new name */
 262                     {
 263                     mvaddstr(23, 0, "New name: ");
 264                     getstring(Databuf, SZ_NAME);
 265                     truncstring(Databuf);
 266                     if (Databuf[0] != '\0')
 267                         if (Wizard || findname(Databuf, &Other) < 0L)
 268                             strcpy(playerp->p_name, Databuf);
 269                     }
 270                 else
 271                     /* get new password */
 272                     {
 273                     if (!Wizard)
 274                         Echo = FALSE;
 275
 276                     do
 277                         /* get two copies of new password until they match */
 278                         {
 279                         /* get first copy */
 280                         mvaddstr(23, 0, "New password ? ");
 281                         getstring(Databuf, SZ_PASSWORD);
 282                         if (Databuf[0] == '\0')
 283                             break;
 284
 285                         /* get second copy */
 286                         mvaddstr(23, 0, "One more time ? ");
 287                         getstring(playerp->p_password, SZ_PASSWORD);
 288                         }
 289                     while (strcmp(playerp->p_password, Databuf) != 0);
 290
 291                     Echo = TRUE;
 292                     }
 293
 294                 continue;
 295
 296             case 'C':   /* change experience */
 297                 prompt = "experience";
 298                 dptr = &playerp->p_experience;
 299                 goto DALTER;
 300
 301             case 'D':   /* change level */
 302                 prompt = "level";
 303                 dptr = &playerp->p_level;
 304                 goto DALTER;
 305
 306             case 'E':   /* change strength */
 307                 prompt = "strength";
 308                 dptr = &playerp->p_strength;
 309                 goto DALTER;
 310
 311             case 'F':   /* change swords */
 312                 prompt = "sword";
 313                 dptr = &playerp->p_sword;
 314                 goto DALTER;
 315
 316             case 'G':   /* change energy */
 317                 prompt = "energy";
 318                 dptr = &playerp->p_energy;
 319                 goto DALTER;
 320
 321             case 'H':   /* change maximum energy */
 322                 prompt = "max energy";
 323                 dptr = &playerp->p_maxenergy;
 324                 goto DALTER;
 325
 326             case 'I':   /* change shields */
 327                 prompt = "shield";
 328                 dptr = &playerp->p_shield;
 329                 goto DALTER;
 330
 331             case 'J':   /* change quickness */
 332                 prompt = "quickness";
 333                 dptr = &playerp->p_quickness;
 334                 goto DALTER;
 335
 336             case 'K':   /* change quicksilver */
 337                 prompt = "quicksilver";
 338                 dptr = &playerp->p_quksilver;
 339                 goto DALTER;
 340
 341             case 'L':   /* change magic */
 342                 prompt = "magic level";
 343                 dptr = &playerp->p_magiclvl;
 344                 goto DALTER;
 345
 346             case 'M':   /* change mana */
 347                 prompt = "mana";
 348                 dptr = &playerp->p_mana;
 349                 goto DALTER;
 350
 351             case 'N':   /* change brains */
 352                 prompt = "brains";
 353                 dptr = &playerp->p_brains;
 354                 goto DALTER;
 355
 356             case 'O':   /* change poison */
 357                 prompt = "poison";
 358                 dptr = &playerp->p_poison;
 359                 goto DALTER;
 360
 361             case 'P':   /* change gold */
 362                 prompt = "gold";
 363                 dptr = &playerp->p_gold;
 364                 goto DALTER;
 365
 366             case 'Q':   /* change gems */
 367                 prompt = "gems";
 368                 dptr = &playerp->p_gems;
 369                 goto DALTER;
 370
 371             case 'R':   /* change sin */
 372                 prompt = "sin";
 373                 dptr = &playerp->p_sin;
 374                 goto DALTER;
 375
 376             case 'S':   /* change x coord */
 377                 prompt = "x";
 378                 dptr = &playerp->p_x;
 379                 goto DALTER;
 380
 381             case 'T':   /* change y coord */
 382                 prompt = "y";
 383                 dptr = &playerp->p_y;
 384                 goto DALTER;
 385
 386             case 'U':   /* change age */
 387                 mvprintw(23, 0, "age = %ld; age = ", playerp->p_age);
 388                 dtemp = infloat();
 389                 if (dtemp != 0.0)
 390                     playerp->p_age = (long) dtemp;
 391                 continue;
 392
 393             case 'V':   /* change degen */
 394                 mvprintw(23, 0, "degen = %d; degen = ", playerp->p_degenerated);
 395                 dtemp = infloat();
 396                 if (dtemp != 0.0)
 397                     playerp->p_degenerated = (int) dtemp;
 398                 continue;
 399
 400             case 'W':   /* change type */
 401                 prompt = "type";
 402                 sptr = &playerp->p_type;
 403                 goto SALTER;
 404
 405             case 'X':   /* change special type */
 406                 prompt = "special type";
 407                 sptr = &playerp->p_specialtype;
 408                 goto SALTER;
 409
 410             case 'Y':   /* change lives */
 411                 prompt = "lives";
 412                 sptr = &playerp->p_lives;
 413                 goto SALTER;
 414
 415             case 'Z':   /* change crowns */
 416                 prompt = "crowns";
 417                 sptr = &playerp->p_crowns;
 418                 goto SALTER;
 419
 420             case '0':   /* change charms */
 421                 prompt = "charm";
 422                 sptr = &playerp->p_charms;
 423                 goto SALTER;
 424
 425             case '1':   /* change amulet */
 426                 prompt = "amulet";
 427                 sptr = &playerp->p_amulets;
 428                 goto SALTER;
 429
 430             case '2':   /* change holy water */
 431                 prompt = "holy water";
 432                 sptr = &playerp->p_holywater;
 433                 goto SALTER;
 434
 435             case '3':   /* change last-used */
 436                 prompt = "last-used";
 437                 sptr = &playerp->p_lastused;
 438                 goto SALTER;
 439
 440             case '4':   /* change palantir */
 441                 prompt = "palantir";
 442                 bptr = &playerp->p_palantir;
 443                 goto BALTER;
 444
 445             case '5':   /* change blessing */
 446                 prompt = "blessing";
 447                 bptr = &playerp->p_blessing;
 448                 goto BALTER;
 449
 450             case '6':   /* change virgin */
 451                 prompt = "virgin";
 452                 bptr = &playerp->p_virgin;
 453                 goto BALTER;
 454
 455             case '7':   /* change blindness */
 456                 prompt = "blindness";
 457                 bptr = &playerp->p_blindness;
 458                 goto BALTER;
 459
 460             case '8':   /* change ring type */
 461                 prompt = "ring-type";
 462                 sptr = &playerp->p_ring.ring_type;
 463                 goto SALTER;
 464
 465             case '9':   /* change ring duration */
 466                 prompt = "ring-duration";
 467                 sptr = &playerp->p_ring.ring_duration;
 468                 goto SALTER;
 469
 470             case '!':   /* quit, update */
 471                 if (Wizard &&
 472                     (!ingameflag || playerp != &Player))
 473                     /* turn off status if not modifying self */
 474                     {
 475                     playerp->p_status = S_OFF;
 476                     playerp->p_tampered = T_OFF;
 477                     }
 478
 479                 writerecord(playerp, loc);
 480                 clear();
 481                 return;
 482
 483             case '?':   /* delete player */
 484                 if (ingameflag && playerp == &Player)
 485                     /* cannot delete self */
 486                     continue;
 487
 488                 freerecord(playerp, loc);
 489                 clear();
 490                 return;
 491
 492             default:
 493                 continue;
 494             }
 495 DALTER:
 496         mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
 497         dtemp = infloat();
 498         if (dtemp != 0.0)
 499             *dptr = dtemp;
 500         continue;
 501
 502 SALTER:
 503         mvprintw(23, 0, "%s = %d; %s = ", prompt, *sptr, prompt);
 504         dtemp = infloat();
 505         if (dtemp != 0.0)
 506             *sptr = (short) dtemp;
 507         continue;
 508
 509 BALTER:
 510         mvprintw(23, 0, "%s = %c; %s = ", prompt, flag[*bptr], prompt);
 511         c = getanswer("\nTF", TRUE);
 512         if (c == 'T')
 513             *bptr = TRUE;
 514         else if (c == 'F')
 515             *bptr = FALSE;
 516         continue;
 517         }
 518 }
 519 /*\f*/
 520 /************************************************************************
 521 /
 522 / FUNCTION NAME: monstlist()
 523 /
 524 / FUNCTION: print a monster listing
 525 /
 526 / AUTHOR: E. A. Estes, 2/27/86
 527 /
 528 / ARGUMENTS: none
 529 /
 530 / RETURN VALUE: none
 531 /
 532 / MODULES CALLED: puts(), fread(), fseek(), printf()
 533 /
 534 / GLOBAL INPUTS: Curmonster, *Monstfp
 535 /
 536 / GLOBAL OUTPUTS: none
 537 /
 538 / DESCRIPTION:
 539 /       Read monster file, and print a monster listing on standard output.
 540 /
 541 *************************************************************************/
 542
 543 void
 544 monstlist(void)
 545 {
 546 int     count = 0;              /* count in file */
 547
 548     puts(" #)  Name                 Str  Brain  Quick  Energy  Exper  Treas  Type  Flock%\n");
 549     fseek(Monstfp, 0L, 0);
 550     while (fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp) == 1)
 551         printf("%2d)  %-20.20s%4.0f   %4.0f     %2.0f   %5.0f  %5.0f     %2d    %2d     %3.0f\n", count++,
 552             Curmonster.m_name, Curmonster.m_strength, Curmonster.m_brains,
 553             Curmonster.m_speed, Curmonster.m_energy, Curmonster.m_experience,
 554             Curmonster.m_treasuretype, Curmonster.m_type, Curmonster.m_flock);
 555 }
 556 /*\f*/
 557 /************************************************************************
 558 /
 559 / FUNCTION NAME: scorelist()
 560 /
 561 / FUNCTION: print player score board
 562 /
 563 / AUTHOR: E. A. Estes, 12/4/85
 564 /
 565 / ARGUMENTS: none
 566 /
 567 / RETURN VALUE: none
 568 /
 569 / MODULES CALLED: fread(), fopen(), printf(), fclose()
 570 /
 571 / GLOBAL INPUTS:
 572 /
 573 / GLOBAL OUTPUTS: none
 574 /
 575 / DESCRIPTION:
 576 /       Read the scoreboard file and print the contents.
 577 /
 578 *************************************************************************/
 579
 580 void
 581 scorelist(void)
 582 {
 583 struct  scoreboard      sbuf;   /* for reading entries */
 584 FILE    *fp;            /* to open the file */
 585
 586     if ((fp = fopen(_PATH_SCORE, "r")) != NULL)
 587         {
 588         while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
 589             printf("%-20s   (%-9s)  Level: %6.0f  Type: %s\n",
 590                 sbuf.sb_name, sbuf.sb_login, sbuf.sb_level, sbuf.sb_type);
 591         fclose(fp);
 592         }
 593 }
 594 /*\f*/
 595 /************************************************************************
 596 /
 597 / FUNCTION NAME: activelist()
 598 /
 599 / FUNCTION: print list of active players to standard output
 600 /
 601 / AUTHOR: E. A. Estes, 3/7/86
 602 /
 603 / ARGUMENTS: none
 604 /
 605 / RETURN VALUE: none
 606 /
 607 / MODULES CALLED: descrstatus(), fread(), fseek(), printf(), descrtype()
 608 /
 609 / GLOBAL INPUTS: Other, *Playersfp
 610 /
 611 / GLOBAL OUTPUTS: none
 612 /
 613 / DESCRIPTION:
 614 /       Read player file, and print list of active records to standard output.
 615 /
 616 *************************************************************************/
 617
 618 void
 619 activelist(void)
 620 {
 621     fseek(Playersfp, 0L, 0);
 622     printf("Current characters on file are:\n\n");
 623
 624     while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
 625         if (Other.p_status != S_NOTUSED)
 626             printf("%-20s   (%-9s)  Level: %6.0f  %s  (%s)\n",
 627                 Other.p_name, Other.p_login, Other.p_level,
 628                 descrtype(&Other, FALSE), descrstatus(&Other));
 629
 630 }
 631 /*\f*/
 632 /************************************************************************
 633 /
 634 / FUNCTION NAME: purgeoldplayers()
 635 /
 636 / FUNCTION: purge inactive players from player file
 637 /
 638 / AUTHOR: E. A. Estes, 12/4/85
 639 /
 640 / ARGUMENTS: none
 641 /
 642 / RETURN VALUE: none
 643 /
 644 / MODULES CALLED: freerecord(), time(), fread(), fseek(), localtime()
 645 /
 646 / GLOBAL INPUTS: Other, *Playersfp
 647 /
 648 / GLOBAL OUTPUTS: none
 649 /
 650 / DESCRIPTION:
 651 /       Delete characters which have not been used with the last
 652 /       three weeks.
 653 /
 654 *************************************************************************/
 655
 656 void
 657 purgeoldplayers(void)
 658 {
 659 int     today;          /* day of year for today */
 660 int     daysold;        /* how many days since the character has been used */
 661 time_t  ltime;          /* time in seconds */
 662 long    loc = 0L;       /* location in file */
 663
 664     time(&ltime);
 665     today = localtime(&ltime)->tm_yday;
 666
 667     for (;;)
 668         {
 669         fseek(Playersfp, loc, 0);
 670         if (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) != 1)
 671             break;
 672
 673         daysold = today - Other.p_lastused;
 674         if (daysold < 0)
 675             daysold += 365;
 676
 677         if (daysold > N_DAYSOLD)
 678             /* player hasn't been used in a while; delete */
 679             freerecord(&Other, loc);
 680
 681         loc += SZ_PLAYERSTRUCT;
 682         }
 683 }
 684 /*\f*/
 685 /************************************************************************
 686 /
 687 / FUNCTION NAME: enterscore()
 688 /
 689 / FUNCTION: enter player into scoreboard
 690 /
 691 / AUTHOR: E. A. Estes, 12/4/85
 692 /
 693 / ARGUMENTS: none
 694 /
 695 / RETURN VALUE: none
 696 /
 697 / MODULES CALLED: fread(), fseek(), fopen(), error(), strcmp(), fclose(),
 698 /       strcpy(), fwrite(), descrtype()
 699 /
 700 / GLOBAL INPUTS: Player
 701 /
 702 / GLOBAL OUTPUTS: none
 703 /
 704 / DESCRIPTION:
 705 /       The scoreboard keeps track of the highest character on a
 706 /       per-login basis.
 707 /       Search the scoreboard for an entry for the current login,
 708 /       if an entry is found, and it is lower than the current player,
 709 /       replace it, otherwise create an entry.
 710 /
 711 *************************************************************************/
 712
 713 void
 714 enterscore(void)
 715 {
 716 struct  scoreboard sbuf;                /* buffer to read in scoreboard entries */
 717 FILE    *fp;                            /* to open scoreboard file */
 718 long    loc = 0L;                       /* location in scoreboard file */
 719 bool    found = FALSE;                  /* set if we found an entry for this login */
 720
 721     if ((fp = fopen(_PATH_SCORE, "r+")) != NULL)
 722         {
 723         while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
 724             if (strcmp(Player.p_login, sbuf.sb_login) == 0)
 725                 {
 726                 found = TRUE;
 727                 break;
 728                 }
 729             else
 730                 loc += SZ_SCORESTRUCT;
 731         }
 732     else
 733         {
 734         error(_PATH_SCORE);
 735         /*NOTREACHED*/
 736         }
 737
 738     /*
 739      * At this point, 'loc' will either indicate a point beyond
 740      * the end of file, or the place where the previous entry
 741      * was found.
 742      */
 743
 744     if ((!found) || Player.p_level > sbuf.sb_level)
 745         /* put new entry in for this login */
 746         {
 747         strcpy(sbuf.sb_login, Player.p_login);
 748         strcpy(sbuf.sb_name, Player.p_name);
 749         sbuf.sb_level = Player.p_level;
 750         strcpy(sbuf.sb_type, descrtype(&Player, TRUE));
 751         }
 752
 753     /* update entry */
 754     fseek(fp, loc, 0);
 755     fwrite((char *) &sbuf, SZ_SCORESTRUCT, 1, fp);
 756     fclose(fp);
 757 }