score.c revision 1.2
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 } 710
Indexes created Thu Oct 02 01:09:59 GMT 2025