1: char rcsid[] = "@(#)$Header: warp.c,v 7.0.1.3 86/12/12 17:07:44 lwall Exp $"; 2: 3: /* warp -- a real-time space war program 4: * author: Larry Wall 5: * helpers: Jonathan and Mark Biggar, and Dan Faigin 6: * special thanks to my sweetie Gloria who suggested the Planet Crusher 7: * 8: * Copyright (C) 1986, Larry Wall 9: * 10: * This program may be copied as long as this copyright notice is 11: * included, and as long as it is not being copied for purposes 12: * of profit. If you want to modify this program in any way other 13: * than normal configuration changes, common decency would suggest 14: * that you also modify the name of the program so that my good name 15: * (what there is of it) is not impugned. (Calling it something like 16: * "warpx" or "superwarp" would be fine.) Also, give it another 17: * WARPDIR so that the scoreboards don't get confused. 18: * 19: * version 5.0 04/20/83 20: * 5.1 05/05/83 various tidbits 21: * 5.2 05/12/83 VAX -> vax, ifdef'ed a SIGCONT 22: * 5.3 05/24/83 RCS 23: * 24: * $Log: warp.c,v $ 25: * Revision 7.0.1.3 86/12/12 17:07:44 lwall 26: * Baseline for net release. 27: * 28: * Revision 7.0.1.2 86/10/20 12:08:00 lwall 29: * Made all exits reset tty. 30: * 31: * Revision 7.0.1.1 86/10/16 10:54:13 lwall 32: * Added Damage. Fixed random bugs. 33: * 34: * Revision 7.0 86/10/08 15:14:47 lwall 35: * Split into separate files. Added amoebas and pirates. 36: * 37: * Revision 6.4 83/12/16 13:11:45 lwall 38: * Handled 15 bit random number generators. 39: * 40: * Fixed array overflow bug on multiple zaps. 41: * 42: * Multiple zaps now consolidated to minimize output. 43: * 44: * Tholian jackpot games outlawed under difficulty 15. 45: * 46: * Revision 6.3 83/08/24 11:17:49 lwall 47: * Fixed array overflow bug on multiple zap. 48: * 49: * Revision 6.2 83/08/23 18:06:37 lwall 50: * Added zap command. 51: * Warp -s should now work on dumb terminals 52: * Specifying difficulty >= 40 now just makes it a special game. 53: * SIGTTOU #ifdef'ed. 54: * No-delay read provided as alternative to FIONREAD. 55: * Warp won't report "-1 obsolete" when there are no Enterprises left. 56: * Some high-difficulty tuning. 57: * 58: * Revision 6.1 83/08/17 08:49:03 lwall 59: * Fixed obscure bug in storing UP that caused a %. in CM to occasionally 60: * foist garbage onto the screen. 61: * 62: * Revision 6.0 83/08/08 17:09:26 lwall 63: * New baseline version for net release. 64: * 65: * Revision 5.5 83/08/01 10:59:56 lwall 66: * Cloaking for the Enterprise. 67: * Difficulty now goes to 99, and many activities depending on difficulty 68: * have been adjusted in frequency. 69: * Simplified exit sequence, and reduced dependencies on control 70: * characters. You needn't see the scoreboard if you don't want to. 71: * Hitting i,w,c, or v switches to Enterprise. Hitting p switches to Base. 72: * Excessive use of q is not allowed. 73: * Excessive use of D is not allowed. 74: * Scoreboard may depend on either full name or login name. 75: * Integrated scoreboard lister. Login name now shows up on scoreboard. 76: * "Hidden" startup options are now upper case. 77: * Checks upon startup for no cursor movement, or screen too small. 78: * Checks upon startup that WARPDIR is correctly protected, and that warp 79: * is running setuid. As an additional bonus this prevents root from 80: * running warp, which mucks things up, UN*X be blessed. 81: * All gets's turned into fgets's for safety. 82: * Bonus Enterprises and Bases. 83: * Escalating bonuses for saving Base and Enterprise. 84: * Escalating Enterprise energy. 85: * Turbolasers decrease with distance. 86: * Really smart enemies can see through stars occasionally. 87: * Occasional Tholian jackpot waves. Tholians are a trifle nastier. 88: * Choleric Gorns. 89: * An O or o can miss seeing you. Enemies can avoid a stationary O, o, or X. 90: * Warp 3 enemies and other nastinesses are possible in massacre mode. 91: * Enemies that decide to navigate when they see you can do other things than 92: * just come toward you. 93: * Gorns occasionally launch a salvo for the fun of it. 94: * Only star and enemy explosions can keep the round going now. 95: * Bounces don't always go back to starting spot now. 96: * Better full name processing. USG quirks handled. & substitution also 97: * handled now (whoever dreamed up that one must have been in the middle 98: * of the night before the morning after). 99: * Catch ^D on fgets. 100: * Version number printer. 101: * Less signal catching during debugging. 102: * 103: * Revision 5.4 83/06/24 09:28:38 lwall 104: * 16 bit random number generators are now supported. 105: * Made warp not blow up on a null save file. 106: * Warp now prints E and B before the stars. 107: * Fixed bug which caused torp count to get decremented even when no torp 108: * was launched because of an obstacle. 109: * Put %<n>ld formats where appropriate. 110: * Fixed E: 0 0 bug on refresh. 111: * 112: * Revision 5.3 83/05/24 14:03:10 lwall 113: * Starting RCS 114: * 115: */ 116: 117: #include "INTERN.h" 118: #include "warp.h" 119: #include "EXTERN.h" 120: #include "bang.h" 121: #include "init.h" 122: #include "intrp.h" 123: #include "object.h" 124: #include "move.h" 125: #include "play.h" 126: #include "score.h" 127: #include "sig.h" 128: #include "term.h" 129: #include "them.h" 130: #include "us.h" 131: #include "util.h" 132: #include "version.h" 133: #include "weapon.h" 134: 135: main(argc,argv) 136: int argc; 137: char *argv[]; 138: { 139: char tmp, *s, *tcbuf; 140: 141: int i; 142: 143: FILE *savfil; 144: 145: #if RANDBITS > 16 146: for (i=100; i; i--) 147: if (rand() >= 65536) 148: goto rand_ok; 149: printf("Recompile with RANDBITS = 15 or 16.\n"); 150: exit(1); 151: #else 152: #if RANDBITS > 15 153: for (i=100; i; i--) { 154: if (rand() >= 32768) 155: goto rand_ok; 156: } 157: printf("Recompile with RANDBITS = 15.\n"); 158: exit(1); 159: #endif 160: #endif 161: rand_ok: 162: 163: #ifdef lint /* to suppress "defined but never used" */ 164: # ifdef SIGTSTP 165: (void)stop_catcher(); 166: # endif 167: # ifdef SIGCONT 168: (void)cont_catcher(); 169: # endif 170: #endif 171: 172: while (--argc > 0 && (*++argv)[0] == '-') 173: for (s = argv[0]+1; *s != '\0'; s++) 174: switch (*s) { 175: case '&': 176: amoebaspec = TRUE; 177: beginner = TRUE; 178: break; 179: case 'A': 180: apolspec = TRUE; 181: beginner = TRUE; 182: break; 183: case 'b': 184: beginner = TRUE; 185: break; 186: case 'C': 187: crushspec = TRUE; 188: beginner = TRUE; 189: break; 190: case 'D': 191: debugging = TRUE; 192: #ifdef DEBUGGING 193: debug = atoi(++s); 194: #endif 195: s += strlen(s)-1; 196: break; 197: case 'd': 198: s++; 199: if (*s == '=') s++; 200: ismarts = atoi(s); 201: if (ismarts <= 0) 202: ismarts = 1; 203: if (ismarts > 99) 204: ismarts = 99; 205: if (ismarts > 40) 206: beginner = TRUE; 207: s += strlen(s)-1; 208: break; 209: case 'E': 210: klingspec = TRUE; 211: beginner = TRUE; 212: s++; 213: if (*s == '=') s++; 214: inumenemies = atoi(s); 215: s += strlen(s)-1; 216: break; 217: case 'F': 218: friendspec = TRUE; 219: beginner = TRUE; 220: s++; 221: if (*s == '=') s++; 222: inumfriends = atoi(s); 223: s += strlen(s)-1; 224: break; 225: case 'G': 226: gornspec = TRUE; 227: beginner = TRUE; 228: break; 229: case 'l': 230: lowspeed = TRUE; 231: break; 232: case 'm': 233: metakey = TRUE; 234: break; 235: case 'M': 236: massacre = TRUE; 237: break; 238: case 'P': 239: piratespec = TRUE; 240: beginner = TRUE; 241: s++; 242: if (*s == '=') s++; 243: inumpirates = atoi(s); 244: s += strlen(s)-1; 245: break; 246: case 'S': 247: prespec = TRUE; 248: beginner = TRUE; 249: s++; 250: if (*s == '=') s++; 251: if (*s) 252: prescene = atoi(s); 253: else 254: prescene = -1; 255: s += strlen(s)-1; 256: break; 257: case 'R': 258: romspec = TRUE; 259: beginner = TRUE; 260: break; 261: case '*': 262: starspec = TRUE; 263: beginner = TRUE; 264: s++; 265: if (*s == '=') s++; 266: inumstars = atoi(s); 267: s += strlen(s)-1; 268: break; 269: case 's': 270: scorespec = TRUE; 271: break; 272: case 'T': 273: tholspec = TRUE; 274: beginner = TRUE; 275: break; 276: case 'x': 277: experimenting = TRUE; 278: break; 279: case 'v': 280: version(); 281: exit(0); 282: break; 283: default: 284: fprintf(stderr,"warp: illegal option %c\n", *s); 285: fprintf(stderr, "Usage: warp -dn -b -x -v -s\n"); 286: exit(1); 287: } 288: if (argc != 0) { 289: fprintf(stderr, "Usage: warp -dn -b -x -v -s\n"); 290: exit(1); 291: } 292: bang_init(); 293: move_init(); 294: object_init(); 295: play_init(); 296: them_init(); 297: us_init(); 298: util_init(); 299: weapon_init(); 300: 301: tcbuf = malloc(1024); 302: intrp_init(tcbuf); 303: 304: if (chdir(warplib) < 0) 305: fprintf(stderr,nocd,warplib); 306: 307: term_init(); 308: 309: term_set(tcbuf); 310: free(tcbuf); 311: 312: umask(022); /* mustn't rely on incoming umask--could be 033 which */ 313: /* would disable people from running wscore */ 314: 315: score_init(); 316: 317: sig_init(); 318: 319: if (totalscore) { 320: clear(); 321: mvaddstr(12,25,"*** restoring saved game ***"); 322: roundsleep(1); 323: } 324: 325: srand(getpid()); 326: 327: do { 328: for (keepgoing = TRUE;;) { 329: if (!experimenting) { 330: if ((savfil = fopen(savefilename,"w")) == NULL) { 331: resetty(); 332: printf("Can't open savefile\r\n"); 333: finalize(1); 334: } 335: fprintf(savfil, 336: "%-8s %10ld, %2d,%5d,%2d,%2d,%3d %c%c%c%c%c%c%c%c%c\n", 337: logname, totalscore, smarts, cumsmarts, 338: numents, numbases, wave, 339: apolspec ? 'a' : ' ', 340: beginner ? 'b' : ' ', 341: crushspec ? 'c' : ' ', 342: gornspec ? 'g' : ' ', 343: massacre ? 'm' : ' ', 344: romspec ? 'r' : ' ', 345: tholspec ? 't' : ' ', 346: lowspeed ? 'l' : ' ', 347: amoebaspec ? '&' : ' ' 348: ); 349: fprintf(savfil," running on %s, process #%d\n", 350: term+5,getpid()); 351: Fclose(savfil); 352: } 353: 354: lastscore = totalscore; 355: initialize(); 356: play(); 357: cumsmarts += smarts; 358: wavescore(); 359: if (numents<=0 && numbases<=0) 360: keepgoing = FALSE; 361: if (!keepgoing) break; 362: do { 363: if (experimenting) { 364: mvaddstr(23,15, 365: " [Hit space to continue, 'q' to quit] "); 366: } 367: else { 368: mvaddstr(23,15, 369: "[Hit space to continue, 's' to save, 'q' to quit]"); 370: } 371: sleep(1); 372: Fflush(stdout); 373: eat_typeahead(); 374: getcmd(&tmp); 375: if (tmp == BREAKCH || tmp == INTRCH) { 376: mvaddstr(23,15, 377: " "); 378: mvaddstr(23,33, 379: "Really quit? "); 380: getcmd(&tmp); 381: if (tmp == 'y' || tmp == 'Y') 382: tmp = 'q'; 383: else 384: tmp = 1; 385: } 386: } while (tmp != INTRCH && tmp != BREAKCH && !index(" qQs",tmp)); 387: if (tmp != ' ' && tmp != 's') break; 388: if (!beginner && smarts < 20) 389: smarts += 4; 390: else if (!beginner && smarts < 35) 391: smarts += 2; 392: else if (smarts < 99) 393: smarts++; 394: if (tmp == 's') save_game(); 395: } 396: score(); 397: 398: } while (justonemoretime); 399: 400: if (!experimenting) 401: unlink(savefilename); 402: 403: clear(); 404: resetty(); 405: exit(0); 406: }
|
Last modified: 1987-06-19
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 3589 |
|