Return to hack.end.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / games / hack

Annotation of 43BSDReno/games/hack/hack.end.c, revision 1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.