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