![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.end.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / hack|
Return to hack.end.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / hack |
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.