![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to score.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / warp|
Return to score.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / warp |
1.1 root 1: /* $Header: /usr/src/games/warp/RCS/score.c,v 1.1 87/07/03 02:13:26 games Exp $ */
2:
3: /* $Log: score.c,v $
4: * Revision 7.0.1.2a 87/07/03 02:13:26 games
5: * Fixed numerous long vs. int bugs in printfs, etc.
6: *
7: * Revision 7.0.1.2 86/10/20 12:06:56 lwall
8: * Made all exits reset tty.
9: *
10: * Revision 7.0.1.1 86/10/16 10:52:47 lwall
11: * Added Damage. Fixed random bugs.
12: *
13: * Revision 7.0 86/10/08 15:13:14 lwall
14: * Split into separate files. Added amoebas and pirates.
15: *
16: */
17:
18: #include "EXTERN.h"
19: #include "warp.h"
20: #include "intrp.h"
21: #include "object.h"
22: #include "play.h"
23: #include "sig.h"
24: #include "term.h"
25: #include "us.h"
26: #include "util.h"
27: #include "weapon.h"
28: #include "INTERN.h"
29: #include "score.h"
30:
31: void
32: score_init()
33: {
34: Reg1 char *s;
35: Reg2 int i;
36: FILE *savfil;
37:
38: if (stat(SAVEDIR,&filestat)) {
39: printf("Cannot access %s\r\n",SAVEDIR);
40: finalize(1);
41: }
42: if (filestat.st_uid != geteuid()) {
43: printf("Warp will not run right without being setuid.\r\n");
44: finalize(1);
45: }
46: if ((filestat.st_mode & 0605) != 0605) {
47: printf("%s is not protected correctly (must be u+rw o+rx).\r\n",SAVEDIR);
48: finalize(1);
49: }
50:
51: #ifdef SCOREFULL
52: interp(longlognam, sizeof longlognam, "%N");
53: for (i=strlen(longlognam); i<24; i++)
54: longlognam[i] = ' '; /* make sure it is 24 long for strncmp */
55: longlognam[24] = '\0';
56: #else
57: interp(longlognam, sizeof longlognam, "%L");
58: for (i=strlen(longlognam); i<8; i++)
59: longlognam[i] = ' '; /* make sure it is 8 long for strncmp */
60: longlognam[8] = '\0';
61: #endif
62:
63: if (scorespec)
64: wscore();
65:
66: Sprintf(savefilename, "save.%s", logname);
67:
68: savfil = experimenting ? NULL : fopen(savefilename,"r");
69: if (savfil != NULL && fgets(spbuf,100,savfil) != NULL) {
70: char tmpbuf[80];
71:
72: spbuf[strlen(spbuf)-1] = '\0';
73: if (fgets(tmpbuf,80,savfil) != NULL) {
74: int processnum;
75:
76: tmpbuf[strlen(tmpbuf)-1] = '\0';
77: printf("You seem to have left a game %s.\r\n",tmpbuf+9);
78: s = index(tmpbuf+9, ',');
79: *s = '\0';
80: processnum = atoi(s+11);
81: if (kill(processnum, SIGINT)) {
82: /* does process not exist? */
83: /* (warp ignores SIGINT) */
84: printf("\r\n\
85: That process does not seem to exist anymore, so you'll have to start the\r\n");
86: printf(
87: "last wave over.\r\n\n");
88: printf(
89: " [type anything to continue]");
90: Fflush(stdout);
91: eat_typeahead();
92: getcmd(tmpbuf);
93: if (*tmpbuf == INTRCH)
94: finalize(0);
95: printf("\r\n");
96: }
97: else {
98: if (strcmp(term+8,tmpbuf+23)) {
99: printf(
100: "That is not your current terminal--you are on %s.\r\n", term+5);
101: printf("\r\nYour options:\r\n");
102: printf(" 1) Exit and find the terminal it's running on\r\n");
103: }
104: else {
105: printf("\r\nYour options:\r\n");
106: printf(" 1) Exit and try to foreground it\r\n");
107: }
108: printf(" 2) Let me terminate the other game\r\n\n");
109: printf("What do you want to do? ");
110: Fflush(stdout);
111: eat_typeahead();
112: getcmd(tmpbuf);
113: printf("\r\n");
114: if (*tmpbuf == INTRCH)
115: finalize(0);
116: if (*tmpbuf == '1') {
117: printf(
118: "If you don't succeed, come back and do option 2 instead. Good luck.\r\n");
119: finalize(0);
120: }
121: printf(
122: "Ok, hang on a few moments \r\n");
123: Fclose(savfil);
124: if (kill(processnum, SIGQUIT)) {
125: printf("Unable to kill process #%d!\r\n",processnum);
126: roundsleep(2);
127: }
128: else {
129: #ifdef SIGCONT
130: kill(processnum, SIGCONT);
131: #endif
132: for (i=15; i; --i) {
133: sleep(1);
134: if (kill(processnum,SIGINT))
135: /* does process not exist? */
136: /* (warp ignores SIGINT) */
137: break;
138: }
139: didkill++;
140: }
141: savfil = fopen(savefilename,"r");
142: if (savfil != NULL) {
143: Fgets(spbuf,100,savfil);
144: }
145: }
146: }
147: }
148: else
149: savfil = NULL;
150: if (savfil == NULL) {
151: totalscore = smarts = cumsmarts = wave = 0;
152: numents = 5;
153: numbases = 3;
154: }
155: else {
156: totalscore = atol(spbuf+9);
157: smarts = atoi(spbuf+20);
158: cumsmarts = atoi(spbuf+24);
159: numents = atoi(spbuf+30);
160: numbases = atoi(spbuf+33);
161: wave = atoi(spbuf+36);
162: apolspec = (spbuf[40] == 'a');
163: beginner = (spbuf[41] == 'b');
164: crushspec = (spbuf[42] == 'c');
165: gornspec = (spbuf[43] == 'g');
166: massacre = (spbuf[44] == 'm');
167: romspec = (spbuf[45] == 'r');
168: tholspec = (spbuf[46] == 't');
169: lowspeed = (spbuf[47] == 'l') || lowspeed;
170: amoebaspec = (spbuf[48] == '&');
171: Fclose(savfil);
172: }
173:
174: if (!ismarts) {
175: ismarts = 1;
176: clear();
177: page(NEWSFILE,FALSE);
178: if (smarts) {
179: printf("\r\nSaved game: SCORE DIFF CUMDIFF ENTERPRISES BASES WAVE");
180: printf("\r\n %7ld %2d %4d %1d %1d %3d",
181: totalscore,smarts,cumsmarts,numents,numbases,wave);
182: }
183: printf("\r\nWould you like instructions? ");
184: Fflush(stdout);
185: eat_typeahead();
186: getcmd(buf);
187: printf("\r\n");
188: if (*buf == INTRCH)
189: finalize(0);
190: if (*buf == 'Y' || *buf == 'y') {
191: page(HELPFILE,FALSE);
192: printf("\r\nWould you like to play easy games for a while? ");
193: Fflush(stdout);
194: eat_typeahead();
195: getcmd(buf);
196: printf("\r\n");
197: if (*buf == 'Y' || *buf == 'y') {
198: beginner = TRUE;
199: lowspeed = TRUE;
200: }
201: }
202: }
203: if (!smarts)
204: smarts = ismarts;
205: }
206:
207: void
208: wscore()
209: {
210: clear();
211: printf(" TOP WARPISTS\r\n\n");
212: printf("RANK WHO AKA SCORE DIFF CUMDIFF WHEN\r\n");
213: page(SCOREBOARD,TRUE);
214: printf(" [Type anything to continue]");
215: Fflush(stdout);
216: getcmd(spbuf);
217: if (*spbuf == INTRCH)
218: finalize(0);
219: clear();
220: printf(" TOP LOW-SPEED WARPISTS\r\n\n");
221: printf("RANK WHO AKA SCORE DIFF CUMDIFF WHEN\r\n");
222: page(LSCOREBOARD,TRUE);
223: printf(" [Type anything to continue]");
224: Fflush(stdout);
225: getcmd(spbuf);
226: if (*spbuf == INTRCH)
227: finalize(0);
228: clear();
229: printf(" TOP FUNNY WARPISTS\r\n\n");
230: printf("RANK WHO AKA SCORE DIFF CUMDIFF WHEN\r\n");
231: page(FSCOREBOARD,TRUE);
232: printf(" [Type anything to continue]");
233: Fflush(stdout);
234: getcmd(spbuf);
235: if (*spbuf == INTRCH)
236: finalize(0);
237: clear();
238: printf(" GAMES SAVED OR IN PROGRESS\r\n\n");
239: printf("WHO SCORE DF CDF E B WV FLAGS\r\n");
240: resetty();
241: Sprintf(spbuf,"/bin/cat %ssave.*",SAVEDIR);
242: #ifndef lint
243: execl("/bin/sh", "sh", "-c", spbuf, 0);
244: #endif
245: finalize(1);
246: }
247:
248:
249: void
250: display_status()
251: {
252: Reg1 int tmp;
253: static char *status_names[] = {"Impl", "Warp", "Base", "****" };
254:
255: if (oldstatus != status) {
256: Sprintf(spbuf,"%-4s",status_names[status]);
257: mvaddstr(0,0, spbuf);
258: oldstatus = status;
259: }
260: if (ent) {
261: if (ent->energy != oldeenergy) {
262: oldeenergy = ent->energy;
263: Sprintf(spbuf,"%4ld",oldeenergy);
264: mvaddstr(0,8, spbuf);
265: }
266: if (etorp != oldetorp) {
267: Sprintf(spbuf,"%2d",etorp);
268: mvaddstr(0,13, spbuf);
269: oldetorp = etorp;
270: }
271: }
272: else {
273: if (etorp >= 0) {
274: etorp = -1;
275: mvaddstr(0,8,"*******");
276: damage = 0;
277: }
278: }
279: if (base) {
280: if (base->energy != oldbenergy) {
281: oldbenergy = base->energy;
282: Sprintf(spbuf,"%5ld",oldbenergy);
283: mvaddstr(0,19, spbuf);
284: }
285: if (btorp != oldbtorp) {
286: Sprintf(spbuf,"%3d",btorp);
287: mvaddstr(0,25, spbuf);
288: oldbtorp = btorp;
289: }
290: }
291: else {
292: if (btorp >= 0) {
293: btorp = -1;
294: mvaddstr(0,19,"*********");
295: }
296: }
297: if (damage) {
298: if (!olddamage)
299: mvaddstr(0,42,"*** ");
300: if (damage > 1 || !damflag[dam]) {
301: do {
302: if (++dam == MAXDAMAGE)
303: dam = 0;
304: } while (!damflag[dam]);
305: }
306: if (!--damflag[dam]) {
307: olddamage = damage;
308: damage--;
309: Sprintf(spbuf,"%s OK *** ",dammess[dam]);
310: spbuf[15] = '\0';
311: mvaddstr(0,46,spbuf);
312: }
313: else if (dam == NOSHIELDS) {
314: olddamage = damage;
315: tmp = (34 - damflag[dam]) * 3 - rand_mod(3);
316: if (tmp < 0)
317: tmp = 0;
318: Sprintf(spbuf,"%d%% %s *** ",tmp,dammess[dam]);
319: spbuf[15] = '\0';
320: mvaddstr(0,46,spbuf);
321: }
322: else if (dam != lastdam || !olddamage) {
323: olddamage = damage;
324: Sprintf(spbuf,"NO %s *** ",dammess[dam]);
325: spbuf[15] = '\0';
326: mvaddstr(0,46,spbuf);
327: }
328: if (status < 2) {
329: if (dam == NOIMPULSE && !entmode)
330: status = entmode = 1;
331: if (dam == NOWARP && entmode)
332: status = entmode = 0;
333: }
334: tmp = damflag[dam] * damage;
335: Sprintf(spbuf,"%3d.%1d ETR",tmp/10,tmp%10);
336: mvaddstr(0,69,spbuf);
337: lastdam = dam;
338: }
339: else {
340: if (olddamage) {
341: Sprintf(spbuf,"Stars: %-3d Stardate",numstars);
342: mvaddstr(0,42,spbuf);
343: lastdam = -1;
344: olddamage = 0;
345: oldcurscore = -1;
346: }
347: else if (numstars != oldstrs) {
348: Sprintf(spbuf,"%-3d",numstars);
349: mvaddstr(0,49, spbuf);
350: }
351: oldstrs = numstars;
352: }
353: if (numenemies != oldenemies) {
354: Sprintf(spbuf,"%-3d",numenemies);
355: mvaddstr(0,38, spbuf);
356: oldenemies = numenemies;
357: }
358: if (tmp = timer%10) {
359: Sprintf(spbuf,"%1d",tmp);
360: mvaddstr(0,67, spbuf);
361: }
362: else {
363: Sprintf(spbuf,"%5d.%1d",timer/10+smarts*100,tmp);
364: mvaddstr(0,61, spbuf);
365: }
366: if ((!damage || !damflag[dam]) && curscore != oldcurscore) {
367: Sprintf(spbuf,"%9ld",curscore);
368: mvaddstr(0,69, spbuf);
369: oldcurscore = curscore;
370: }
371: }
372:
373: void
374: wavescore()
375: {
376: double power, effectscore, starscore, pi_over_2;
377: long bonuses;
378: long tmp;
379: FILE *mapfp;
380: int row;
381: double pow();
382: #ifndef lint
383: double atan2();
384: #endif
385:
386: clear();
387: if (curscore > possiblescore)
388: curscore = possiblescore;
389: pi_over_2 = 3.14159265 / 2.0;
390: power = pow((double)inumenemies+ /* total number of enemies */
391: inumroms*2+ /* count roms 3 times */
392: inumgorns+ /* count gorns 2 times */
393: inumthols+ /* count thols 2 times */
394: inumapollos*4+ /* count apollo 5 times */
395: inumcrushes*3+ /* count crushers 4 times */
396: inumamoebas*5 /* count amoebas 6 times */
397: , 0.50) * /* skew it a little */
398: (double)smarts; /* average energy and intelligence */
399: if (inumstars < 350 && inumenemies > 5)
400: power += (350.0 - (double)inumstars) * ((double)inumenemies - 5.0);
401: if (inumstars > 850 && inumenemies > 2)
402: power += ((double)inumstars - 850.0) * ((double)inumenemies - 2.0);
403: #ifndef lint
404: effectscore = ((double)curscore / possiblescore) *
405: atan2(power, (double) timer + 1.0) / pi_over_2;
406: #else
407: effectscore = pi_over_2;
408: #endif
409: if (inumstars)
410: starscore = (double) numstars / (double) inumstars;
411: else
412: starscore = 1.0;
413: wave++;
414: Sprintf(spbuf,"Wave = %d, Difficulty = %d, cumulative difficulty = %d",
415: wave, smarts, cumsmarts);
416: mvaddstr(1, 13+(smarts<10), spbuf);
417: mvaddstr( 4, 68, " BONUS");
418: Sprintf(spbuf,"Efficiency rating: %1.8f (diff=%0.2f,time=%d)",
419: effectscore, power, timer + 1);
420: mvaddstr( 5,5, spbuf);
421: if (effectscore < 0.8)
422: bonuses = tmp = 0;
423: else
424: bonuses = tmp = (long) ((effectscore-0.8) * smarts * 1000);
425: Sprintf(spbuf, "%6ld", tmp);
426: mvaddstr( 5, 68, spbuf);
427: Sprintf(spbuf,"Star save ratio: %1.8f (%d/%d)",
428: starscore, numstars, inumstars);
429: mvaddstr( 6,5, spbuf);
430: #ifndef lint
431: bonuses += tmp = (long) (((double)curscore / possiblescore) *
432: (starscore*starscore) * smarts * 20);
433: #endif
434: Sprintf(spbuf, "%6ld", tmp);
435: mvaddstr( 6, 68, spbuf);
436: row = 7;
437: if (inuminhab != numinhab) {
438: Sprintf(spbuf, "Inhabited stars depopulated: %5d", inuminhab-numinhab);
439: mvaddstr(row,5, spbuf);
440: bonuses += tmp = (long) (inuminhab-numinhab) * -500;
441: Sprintf(spbuf, "%6ld", tmp);
442: mvaddstr(row, 68, spbuf);
443: row++;
444: }
445: if (inumfriends != numfriends) {
446: Sprintf(spbuf, "Friendly craft destroyed: %5d",
447: inumfriends-numfriends);
448: mvaddstr(row,5, spbuf);
449: bonuses += tmp = (long) (inumfriends-numfriends) * -250;
450: Sprintf(spbuf, "%6ld", tmp);
451: mvaddstr(row, 68, spbuf);
452: row++;
453: }
454: if (deadmudds) {
455: mvaddstr(row,5,"For destroying Harry Mudd:");
456: bonuses += tmp = (long) rand_mod(deadmudds * 20 + 1) - deadmudds*10;
457: Sprintf(spbuf, "%6ld", tmp);
458: mvaddstr(row, 68, spbuf);
459: row++;
460: }
461: if (bombed_out) {
462: mvaddstr(row,5, "For running away from reality:");
463: bonuses += tmp = (long) -possiblescore/2;
464: Sprintf(spbuf, "%6ld", tmp);
465: mvaddstr(row, 68, spbuf);
466: row++;
467: }
468: if (row < 9)
469: row++;
470: Sprintf(spbuf, "Enterprise: %-9s%5d remaining",
471: !ient?"":ent?"saved":"destroyed", numents);
472: mvaddstr(row,5, spbuf);
473: bonuses += tmp = ent && !bombed_out ? (smarts+1)*15 : 0;
474: Sprintf(spbuf, "%6ld", tmp);
475: mvaddstr(row, 68, spbuf);
476: row++;
477: Sprintf(spbuf, "Base: %-9s %5d remaining",
478: !ibase?"":base?"saved":"destroyed", numbases);
479: mvaddstr(row,5, spbuf);
480: bonuses += tmp = base && !bombed_out ? (smarts+1)*10 : 0;
481: Sprintf(spbuf, "%6ld", tmp);
482: mvaddstr(row, 68, spbuf);
483: if (beginner) {
484: mvaddstr(13+(row>11),19, "(Special games count only a tenth as much)");
485: curscore /= 10;
486: bonuses /= 10;
487: }
488: Sprintf(spbuf, "Previous point total:%10ld",lastscore);
489: mvaddstr(15,24, spbuf);
490: Sprintf(spbuf, "Points this round: %10ld",curscore);
491: mvaddstr(16,24, spbuf);
492: Sprintf(spbuf, "Bonuses: %10ld",bonuses);
493: mvaddstr(17,24, spbuf);
494: totalscore = lastscore + curscore + bonuses;
495: Sprintf(spbuf, "New point total: %10ld",totalscore);
496: mvaddstr(18,24, spbuf);
497: if (lastscore / ENTBOUNDARY < totalscore / ENTBOUNDARY) {
498: mvaddstr(row-1,42,"+ 1 new");
499: numents++;
500: }
501: else if (numents>0 &&
502: lastscore / ENTBOUNDARY > totalscore / ENTBOUNDARY) {
503: mvaddstr(row-1,42,"- 1 obsolete");
504: numents--;
505: }
506: if (lastscore / BASEBOUNDARY < totalscore / BASEBOUNDARY) {
507: mvaddstr(row,42,"+ 1 new");
508: numbases++;
509: }
510: else if (numbases>0 &&
511: lastscore / BASEBOUNDARY > totalscore / BASEBOUNDARY) {
512: mvaddstr(row,42,"- 1 obsolete");
513: numbases--;
514: }
515: if (starscore < 0.8 && inumstars > 200 && numstars > 50) {
516: Sprintf(spbuf, "smap.%d",rand_mod(MAPS-PERMMAPS)+PERMMAPS);
517: if ((mapfp = fopen(spbuf,"w")) != NULL) {
518: Reg1 OBJECT *obj;
519:
520: fprintf(mapfp,"%d\n",numstars);
521: for (obj = root.next; obj != &root; obj = obj->next) {
522: if (obj->type == Star) {
523: fprintf(mapfp,"%d %d\n",obj->posy,obj->posx);
524: }
525: }
526: Fclose(mapfp);
527: }
528: }
529: }
530:
531: void
532: score()
533: {
534: char tmp, *retval, cdate[30];
535: Reg1 FILE *logfd;
536: Reg2 FILE *outfd;
537: Reg3 int i;
538: long nowtime, time();
539: char *scoreboard;
540:
541: for (i=0; link(LOGFILE, LOCKFILE) == -1 && i<10; i++)
542: sleep(1);
543: nowtime = time((long *)0);
544: strcpy(cdate,ctime(&nowtime));
545: if ((logfd = fopen(LOGFILE,"a")) != NULL) {
546: fprintf(logfd,
547: "%-24s%-9s%7ld%c%2d %4d %s",
548: realname, logname, totalscore, c,smarts, cumsmarts, cdate);
549: Fclose(logfd);
550: }
551: strcpy(cdate+11,cdate+20);
552: if (beginner)
553: scoreboard = FSCOREBOARD;
554: else if (lowspeed)
555: scoreboard = LSCOREBOARD;
556: else
557: scoreboard = SCOREBOARD;
558: if (eaccess(scoreboard,0)) {
559: if ((logfd = fopen(scoreboard,"w")) != NULL)
560: Fclose(logfd);
561: }
562: if ((logfd = fopen(scoreboard,"r")) != NULL &&
563: (outfd = fopen(TMPSCOREBOARD,"w")) != NULL) {
564: for (i=0; i<20; i++) {
565: if ((retval = fgets(buf, 100, logfd)) == NULL)
566: break;
567: if (atol(buf+32) < totalscore)
568: break;
569: if (strnEQ(buf+COMPOFF,COMPNAME,COMPLEN)) {
570: i = 100;
571: break;
572: }
573: fprintf(outfd, "%s", buf);
574: }
575: if (i == 100) {
576: mvaddstr(20,21, "You did not better your previous score");
577: Fclose(outfd);
578: unlink(TMPSCOREBOARD);
579: }
580: else if (i < 20) {
581: fprintf(outfd, "%-24s%-8s%8ld%c %2d %4d %s",
582: realname, logname, totalscore, c,smarts, cumsmarts, cdate);
583: i++;
584: Sprintf(spbuf, " Congratulations--you've placed %d%s",
585: i, i==1?"st":(i==2?"nd":(i==3?"rd":"th")));
586: if (retval != NULL) {
587: if (strnNE(buf+COMPOFF,COMPNAME,COMPLEN)) {
588: fprintf(outfd, "%s", buf);
589: i++;
590: }
591: else
592: strcpy(spbuf,"Congratulations--you've bettered your score");
593: while (i<20) {
594: if (fgets(buf, 100, logfd) == NULL)
595: break;
596: if (strnNE(buf+COMPOFF,COMPNAME,COMPLEN)) {
597: fprintf(outfd, "%s", buf);
598: i++;
599: }
600: }
601: }
602: mvaddstr(20,19, spbuf);
603: Fclose(logfd);
604: Fclose(outfd);
605: while (unlink(scoreboard) == 0)
606: ;
607: link(TMPSCOREBOARD,scoreboard);
608: unlink(TMPSCOREBOARD);
609: logfd = fopen(scoreboard,"r");
610: }
611: else {
612: mvaddstr(20,22,"You did not place within the top 20");
613: Fclose(outfd);
614: }
615: }
616: else {
617: Sprintf(spbuf,"(Cannot access %s file, error %d)",
618: (logfd==NULL?"log":"tmp"),errno);
619: mvaddstr(20,22,spbuf);
620: }
621: move(23,0,0);
622: erase_eol();
623: mvaddstr(23,11,
624: "[Hit space for scoreboard, 'r' for new game, 'q' to quit]");
625: unlink(LOCKFILE);
626: Fflush(stdout);
627: eat_typeahead();
628: do {
629: getcmd(&tmp);
630: } while (tmp != INTRCH && tmp != BREAKCH && !index(" rqQ",tmp));
631: if (index("qQr",tmp)) {
632: justonemoretime = (tmp == 'r');
633: if (logfd != NULL)
634: Fclose(logfd);
635: }
636: else {
637: clear();
638: if (logfd != NULL) {
639: fseek(logfd, 0L, 0);
640: if (beginner)
641: mvaddstr(0,31,"TOP FUNNY WARPISTS");
642: else if (lowspeed)
643: mvaddstr(0,29,"TOP LOW-SPEED WARPISTS");
644: else
645: mvaddstr(0,33,"TOP WARPISTS");
646: mvaddstr(2,0,"RANK WHO AKA SCORE DIFF CUMDIFF WHEN");
647: for (i=1; i<=20; i++) {
648: if (fgets(buf, 100, logfd) == NULL)
649: break;
650: buf[strlen(buf)-1] = '\0';
651: Sprintf(spbuf, " %2d %s", i, buf);
652: mvaddstr(i+2,0, spbuf);
653: }
654: Fclose(logfd);
655: }
656: roundsleep(1);
657: mvaddstr(23,25,"Would you like to play again?");
658: eat_typeahead();
659: do {
660: getcmd(&tmp);
661: } while (tmp != INTRCH && tmp != BREAKCH && !index("nNyY \n\r",tmp));
662: if (tmp == 'n' || tmp == 'N' || tmp == INTRCH || tmp == BREAKCH)
663: justonemoretime = FALSE;
664: }
665:
666: smarts = ismarts;
667: totalscore = cumsmarts = wave = 0;
668: numents = 5;
669: numbases = 3;
670: apolspec = FALSE;
671: beginner = FALSE;
672: crushspec = FALSE;
673: gornspec = FALSE;
674: massacre = (ismarts >= 40);
675: romspec = FALSE;
676: tholspec = FALSE;
677: }
678:
679: void
680: save_game()
681: {
682: FILE *savfil;
683:
684: if (experimenting)
685: return;
686: if ((savfil = fopen(savefilename,"w")) == NULL) {
687: resetty();
688: printf("Cannot save game\r\n");
689: finalize(1);
690: }
691: fprintf(savfil, "%-8s %10ld, %2d,%5d,%2d,%2d,%3d %c%c%c%c%c%c%c%c\n",
692: logname, totalscore, smarts, cumsmarts, numents, numbases, wave,
693: apolspec ? 'a' : ' ',
694: beginner ? 'b' : ' ',
695: crushspec ? 'c' : ' ',
696: gornspec ? 'g' : ' ',
697: massacre ? 'm' : ' ',
698: romspec ? 'r' : ' ',
699: tholspec ? 't' : ' ',
700: lowspeed ? 'l' : ' ',
701: amoebaspec ? '&' : ' '
702: );
703: Fclose(savfil);
704: resetty();
705: if (panic)
706: finalize(0);
707: clear();
708: finalize(0);
709: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.