hack/hack.end.c

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