![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to init.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 init.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / warp |
1.1 root 1: /* $Header: init.c,v 7.0.1.4 86/12/12 16:58:03 lwall Exp $ */
2:
3: /* $Log: init.c,v $
4: * Revision 7.0.1.4 86/12/12 16:58:03 lwall
5: * Baseline for net release.
6: *
7: * Revision 7.0.1.3 86/10/20 14:35:31 lwall
8: * Picked some lint.
9: *
10: * Revision 7.0.1.2 86/10/17 15:53:30 lwall
11: * Added random walk star fields.
12: *
13: * Revision 7.0.1.1 86/10/16 10:51:19 lwall
14: * Added Damage. Fixed random bugs.
15: *
16: * Revision 7.0 86/10/08 15:12:10 lwall
17: * Split into separate files. Added amoebas and pirates.
18: *
19: */
20:
21: #include "EXTERN.h"
22: #include "warp.h"
23: #include "bang.h"
24: #include "object.h"
25: #include "move.h"
26: #include "play.h"
27: #include "score.h"
28: #include "term.h"
29: #include "them.h"
30: #include "us.h"
31: #include "util.h"
32: #include "weapon.h"
33: #include "INTERN.h"
34: #include "init.h"
35:
36: void
37: initialize()
38: {
39: Reg1 int i;
40: Reg2 int x;
41: Reg3 int y;
42: Reg4 int dist;
43: Reg5 int ydist;
44: Reg6 int xdist;
45: long e;
46: int yoff, xoff, ypred, xpred;
47: Reg7 OBJECT *obj;
48: char ch;
49: FILE *mapfp = NULL;
50: bool tmptholspec;
51: int inhabjackpot;
52: long inhenergy;
53: int walksplit = 200;
54: static char *distname[] =
55: {" #"," -"," \\"," /",
56: " |"," *"," `"," '"};
57:
58: cloaking = madgorns = FALSE;
59: deados = madfriends = 0;
60: curscore = possiblescore = 0L;
61: yamblast = xamblast = ambsize = 0;
62: if (smarts > 90)
63: massacre = TRUE;
64: scandist = (massacre?20:15);
65: antibase = (smarts>60?1:(smarts>40?2:(smarts>25?4:100)));
66: sm35 = (smarts>35?35:smarts);
67: sm45 = (smarts>45?45:smarts);
68: sm50 = (smarts>50?50:smarts);
69: sm55 = (smarts>55?55:smarts);
70: sm80 = (smarts>80?80:smarts);
71: sm95 = (smarts>95?95:smarts);
72: super = (smarts>50?smarts-50:0);
73: enemshields = 10 + super/2; /* (scaled by 10) 1 @ 50 .. 3 @ 90 */
74: if (smarts>90)
75: enemshields += (smarts-90)*10; /* lay it on thick: ~13 @ 99 */
76: entmax = (smarts>=75?5000:(smarts>=50?4000:(smarts>=40?3000:2000)));
77: basemax = (smarts>=75?20000:(smarts>=50?15000:(smarts>=40?12500:10000)));
78:
79: clear();
80: while (root.next != &root) {
81: root.next = root.next->next;
82: free_object(root.next->prev);
83: }
84: root.prev = &root;
85: enemies = movers = NULL;
86: numos = numxes = 0;
87: #if defined(vax) && XYSIZEx4 == 3680
88: asm("movc5 $0,_occupant,$0,$3680,_occupant");
89: asm("movc5 $0,_blast,$0,$3680,_blast"); /* 3680 = XYSIZEx4 */
90: asm("movc5 $0,_amb,$32,$920,_amb");
91: #else
92: for (y=0;y<YSIZE;y++)
93: for (x=0;x<XSIZE;x++) {
94: occupant[y][x] = 0;
95: blast[y][x] = 0;
96: amb[y][x] = ' ';
97: }
98: #endif
99: for (y=0; y<YSIZE; y++)
100: yblasted[y] = 0;
101: for (x=0; x<XSIZE; x++)
102: xblasted[x] = 0;
103: blasted = FALSE;
104: if (!starspec)
105: if (smarts < 15)
106: inumstars = 50 + rand_mod(50);
107: else if (smarts < 50 || smarts > 85)
108: inumstars = exdis(800) + rand_mod(100) + 1;
109: else /* too few stars makes 50..85 too hard */
110: inumstars = exdis(700) + rand_mod(150-super*2) + 50+super*2;
111: tmptholspec = (smarts > 15 && inumstars < 450 && ! rand_mod(90-sm80));
112: if (!klingspec) {
113: inumenemies = rand_mod((smarts+1)/2) + 1;
114: if (massacre || tmptholspec)
115: inumenemies += 10;
116: }
117: if (!friendspec)
118: inumfriends = rand_mod(smarts/8+1);
119: if (!piratespec)
120: inumpirates = rand_mod(inumfriends/2+1);
121: if (inumfriends+inumenemies+inumstars > YSIZE*XSIZE-20)
122: inumstars = YSIZE*XSIZE-20 - inumenemies - inumfriends;
123: if (inumstars < 0) {
124: inumfriends += inumstars;
125: inumstars = 0;
126: }
127: if (inumfriends < 0) {
128: inumenemies += inumfriends;
129: inumfriends = 0;
130: }
131: if (inumenemies < 0)
132: inumenemies = 0;
133: numstars = inumstars;
134: inuminhab = numinhab = 0;
135: inumroms = inumthols = inumgorns = 0;
136: numapollos = apolspec || massacre ? 1 :
137: ((!numstars || rand_mod(2) || smarts < 10) ? 0 : 1);
138: inumapollos = apolloflag = 0;
139: realapollo = NULL;
140: inumcrushes = numcrushes =
141: crushspec||massacre?1:(rand_mod(2000) < inumstars);
142: inumenemies += inumcrushes;
143: inumamoebas = numamoebas = (amoebaspec ? 1 :
144: !rand_mod(inumcrushes?3-massacre:8) ); /* < and & are fun together */
145: inumenemies += inumamoebas;
146: if (!rand_mod(40)) {
147: inhabjackpot = 32767;
148: inumfriends += rand_mod(10);
149: inumpirates += rand_mod(10);
150: }
151: else
152: inhabjackpot = inumpirates;
153: inhenergy = 30000-super*150;
154: if (!rand_mod(10))
155: inhenergy = 50000;
156: if (!rand_mod(4))
157: inhenergy += rand_mod(3500+super*150);
158: numfriends = inumfriends;
159: numpirates = inumpirates;
160: numenemies = inumenemies;
161: deadmudds = 0;
162:
163: /* do stars */
164:
165: stars_again:
166: if (prespec)
167: dist = 4;
168: else if (numstars > 750)
169: dist = 0;
170: else
171: dist = rand_mod(starspec||smarts<=5?3:5);
172: if (debugging) {
173: real_y = real_x = -100;
174: printf("\r\n");
175: }
176: switch (dist) {
177: case 0: /* uniform random */
178: ydist = xdist = 0;
179: if (inumstars < 700 && !rand_mod(3-(inumstars<50))) {
180: ydist = xdist = 6; /* well, maybe not so random */
181: y = rand_mod(YSIZE);
182: x = rand_mod(XSIZE);
183: if (rand_mod(2))
184: walksplit = inumstars/(exdis(40)+1);
185: }
186: if (debugging)
187: printf(" R\r\n");
188: break;
189: case 1: case 2: /* clumped, maybe skewed, maybe superposed */
190: ydist = rand_mod(4);
191: xdist = rand_mod(2);
192: if (debugging)
193: printf("%s\r\n",distname[ydist+4*xdist]);
194: yoff = rand_mod(YSIZE);
195: xoff = rand_mod(XSIZE);
196: if (dist == 2)
197: dist = numstars/2 + exdis(numstars/2) - exdis(numstars/2);
198: else
199: dist = 0;
200: break;
201: case 3: case 4: /* predefined or residual */
202: scenario_again:
203: if (debugging)
204: printf(" P\r\n");
205: dist = 0;
206: Sprintf(spbuf,"smap.%d",
207: (prescene>=0?prescene:rand_mod(MAPS)) );
208: if ((mapfp = fopen(spbuf,"r")) != NULL &&
209: fgets(spbuf,10,mapfp) != NULL ) {
210: inumstars = numstars = atoi(spbuf);
211: if (inumenemies+inumstars > YSIZE*XSIZE-20)
212: inumstars = numstars = YSIZE*XSIZE-20 - inumenemies;
213: ydist = rand_mod(2) + 4; /* flip y axis? */
214: xdist = rand_mod(2) + 4; /* flip x axis? */
215: yoff = rand_mod(YSIZE); /* how much to shift y */
216: xoff = rand_mod(XSIZE); /* how much to shift x */
217: }
218: else {
219: prespec = FALSE;
220: prescene = -1;
221: if (rand_mod(2))
222: goto scenario_again;
223: goto stars_again;
224: }
225: break;
226: }
227: for (i = 1; i <= numstars; i++) {
228: if (dist && i == dist) { /* flip to another skewing? */
229: ydist = rand_mod(4);
230: xdist = rand_mod(2);
231: if (!rand_mod(4)) {
232: ydist = xdist = 6;
233: if (debugging)
234: printf("&\r\n");
235: }
236: else if (debugging)
237: printf("%s\r\n",distname[ydist+4*xdist]);
238: yoff = rand_mod(YSIZE);
239: xoff = rand_mod(XSIZE);
240: dist = 0;
241: }
242: do { /* until an open spot found */
243: switch (xdist) {
244: case 0:
245: x = rand_mod(XSIZE); /* pick from 0..39, uniform */
246: break;
247: case 1: case 2: case 3:
248: #ifndef lint
249: x = (int)((((double)(myrand()-HALFRAND)) *
250: ((double)(myrand()-HALFRAND))/RANDRAND)
251: * 20.0) + xoff; /* pick from -20..20, clumped */
252: #endif
253: break;
254: case 4:
255: if (fscanf(mapfp,"%d %d\n",&ypred,&xpred) == EOF)
256: ydist = xdist = 0;
257: x = xpred + xoff;
258: break;
259: case 5:
260: if (fscanf(mapfp,"%d %d\n",&ypred,&xpred) == EOF)
261: ydist = xdist = 0;
262: x = -xpred + xoff;
263: break;
264: case 6:
265: x += rand_mod(3) - 1;
266: break;
267: }
268: switch (ydist) {
269: case 0:
270: y = rand_mod(YSIZE);
271: break;
272: case 1:
273: #ifndef lint
274: y = (int)((((double)(myrand()-HALFRAND)) *
275: ((double)(myrand()-HALFRAND))/RANDRAND)
276: * 12.0) + yoff; /* pick from -12..12, clumped */
277: #endif
278: break;
279: case 2:
280: #ifndef lint
281: y = (int)((((double)(myrand()-HALFRAND)) *
282: ((double)(myrand()-HALFRAND))/RANDRAND)
283: * 12.0) + yoff + x*YSIZE/XSIZE;
284: /* clumped & skewed */
285: #endif
286: break;
287: case 3:
288: #ifndef lint
289: y = (int)((((double)(myrand()-HALFRAND)) *
290: ((double)(myrand()-HALFRAND))/RANDRAND)
291: * 12.0) + yoff - x*YSIZE/XSIZE;
292: /* clumped & skewed */
293: #endif
294: break;
295: case 4:
296: y = ypred + yoff;
297: break;
298: case 5:
299: y = -ypred + yoff;
300: break;
301: case 6:
302: y += rand_mod(3) - 1;
303: #ifdef lint
304: walksplit = walksplit;
305: #endif
306: if (!rand_mod(walksplit)) {
307: y = rand_mod(YSIZE);
308: x = rand_mod(XSIZE);
309: }
310: break;
311: }
312: while (x<0) x += XSIZE00;
313: while (y<0) y += YSIZE00;
314: x %= XSIZE;
315: y %= YSIZE;
316: } while (occupant[y][x]);
317: e = rand_mod(32768);
318: if (--inhabjackpot > 0 || e >= inhenergy) {
319: ch = '@';
320: if (inhabjackpot && e < 10000)
321: e += 10000;
322: inuminhab = ++numinhab;
323: }
324: else {
325: ch = '*';
326: }
327: obj = make_object(Star,ch,y,x,0,0,e+rand_mod(super*100+1),e/4,&root);
328: obj->flags |= STATIC;
329: }
330: if (inumstars > 30 && inhabjackpot <= 0 &&
331: !rand_mod(3 - (inumstars > 400) - (inhenergy > 32768)) ) {
332: int initx;
333: int inity;
334:
335: x = initx = obj->posx;
336: y = inity = obj->posy;
337: while (rand_mod(2) && inuminhab < inumstars/2) {
338: for (i=rand_mod(smarts)*2+20; i; i--) {
339: if ((obj = occupant[y][x]) && obj->image == '*') {
340: setimage(obj,'@');
341: if (obj->energy < 10000)
342: obj->energy += 20000; /* the benefits of civilization */
343: inuminhab = ++numinhab;
344: }
345: if (i&15) {
346: y = (y + rand_mod(3) + YSIZE99) % YSIZE;
347: x = (x + rand_mod(3) + XSIZE99) % XSIZE;
348: }
349: else { /* don't wander too far */
350: y = inity;
351: x = initx;
352: }
353: }
354: x = initx = rand_mod(XSIZE);
355: y = inity = rand_mod(YSIZE);
356: }
357: }
358: if (mapfp != NULL)
359: Fclose(mapfp);
360: if (numcrushes) {
361: do {
362: x = rand_mod(XSIZE);
363: y = rand_mod(YSIZE);
364: } while (occupant[y][x]);
365: movers = make_object(Crusher,'<',y,x,0,1,32767L,32768L,&root);
366: possiblescore += 10000;
367: }
368: ient = (numents != 0);
369: if (ient) {
370: do {
371: x = rand_mod(XSIZE);
372: y = rand_mod(YSIZE);
373: } while (occupant[y][x]);
374: e = entmax;
375: ent = make_object(Enterprise,'E',y,x,0,0,e,e/2,&root);
376: if (!movers)
377: movers = ent;
378: }
379: ibase = (numbases != 0);
380: if (ibase) {
381: e = 52-super;
382: do {
383: x = rand_mod(XSIZE);
384: y = rand_mod(YSIZE);
385: } while (occupant[y][x] || lookaround(y,x,Star) * 7 < e--);
386: e = basemax;
387: base = make_object(Base, 'B',y,x,0,0,e,e/4,&root);
388: if (!movers)
389: movers = base;
390: }
391: if (numamoebas) {
392: do {
393: x = rand_mod(XSIZE);
394: y = rand_mod(YSIZE);
395: } while (occupant[y][x]);
396: nuke = make_object(Enemy,'&',y,x,0,0,32767L,
397: (long)entmax+entmax+rand_mod(entmax),&root);
398: possiblescore += 10000;
399: amb[y][x] = '~';
400: if (rand_mod(2))
401: modify_amoeba(y,x,2,'~',(int)rand_mod(smarts<<1));/* just make blob */
402: else {
403: for (i=smarts/10+1; i; i--) {
404: nuke->strategy = rand_mod(256); /* random direction */
405: modify_amoeba(y,x,2,'~',(int)rand_mod(5));
406: modify_amoeba(y,x,2,'~',(int)rand_mod(5));
407: modify_amoeba(y,x,2,'~',(int)rand_mod(5));
408: modify_amoeba(y,x,2,'~',(int)rand_mod(5)); /* extend pseudopod */
409: }
410: }
411: if (!enemies)
412: enemies = nuke;
413: if (!movers)
414: movers = nuke;
415: }
416: if (rand_mod(27-sm50/2) && !romspec && !gornspec)
417: dist = 27-sm50/2;
418: else
419: dist = rand_mod(4) + 1;
420: for (i = 1+inumcrushes+inumamoebas; i <= numenemies; i++) {
421: do {
422: x = rand_mod(XSIZE);
423: y = rand_mod(YSIZE);
424: } while (occupant[y][x]);
425: if (rand_mod(dist)) {
426: if (!tholspec && !tmptholspec && rand_mod((inumstars*3)/sm50+2))
427: ch = 'K';
428: else {
429: ch = 'T';
430: inumthols++;
431: }
432: }
433: else {
434: if (romspec == gornspec)
435: e = 50;
436: else if (gornspec)
437: e = 10;
438: else
439: e = 90;
440: if (rand_mod(100) < e) {
441: ch = 'R';
442: inumroms++;
443: }
444: else {
445: ch = 'G';
446: inumgorns++;
447: }
448: }
449: if (possiblescore > ENTBOUNDARY - 10000)
450: e = (ENTBOUNDARY - possiblescore) / 5;
451: else
452: e = 250 + (sm50-1) * 30 * 20 / numenemies+1;
453: #ifndef lint
454: e = exdis((int)e) + e - exdis((int)e);
455: obj = make_object(Enemy,ch,y,x,0,0,
456: e + rand_mod(super*200+2) + 10000*massacre,e/4,&root);
457: #endif
458: e /= 4;
459: switch (ch) {
460: case 'K':
461: possiblescore += e;
462: break;
463: case 'T':
464: possiblescore += e*3/2;
465: break;
466: case 'G':
467: possiblescore += e*2;
468: break;
469: case 'R':
470: possiblescore += e*3;
471: obj->flags |= CLOAKS;
472: break;
473: }
474: if (!enemies)
475: enemies = obj;
476: if (!movers)
477: movers = obj;
478: }
479: numgorns = inumgorns;
480: for (i=0; i<numfriends; i++) {
481: do {
482: x = rand_mod(XSIZE);
483: y = rand_mod(YSIZE);
484: } while (occupant[y][x]);
485: e = 250 + (sm50-1) * 30 * 20 / numenemies+1;
486: #ifndef lint
487: e = exdis((int)e) + e - exdis((int)e);
488: #endif
489: {
490: static char let[] = "QWYUISDHJLZVMFFFFFFFFF";
491:
492: dist = rand_mod(20);
493: ch = let[dist];
494: } /* grr, venix doesn't like indexing into string */
495: obj = make_object(Enemy,ch,y,x,0,0,
496: e + rand_mod(super*200+2),e/4,&root);
497: if (numpirates-- > 0) {
498: obj->flags |= PIRATE;
499: if (smarts >= 20 && !rand_mod(10-smarts/10))
500: obj->flags |= CLOAKS;
501: }
502: obj->flags |= FRIENDLY;
503: if (!enemies)
504: enemies = obj;
505: if (!movers)
506: movers = obj;
507: }
508: if (!movers)
509: movers = &root;
510: if (!enemies)
511: enemies = &root;
512: if (ent)
513: mvaddch(ent->posy+1, ent->posx*2, ent->image);
514: if (base)
515: mvaddch(base->posy+1, base->posx*2, base->image);
516: sleep(2);
517: {
518: Reg7 OBJECT *curobj;
519:
520: for (curobj = root.next; curobj != &root; curobj = curobj->next) {
521: mvaddch(curobj->posy+1, curobj->posx*2, curobj->image);
522: }
523: }
524:
525: for (i=0;i<2;i++) for (y=0;y<3;y++) for (x=0;x<3;x++)
526: isatorp[i][y][x]=0;
527:
528: whenok = 0;
529: timer = 0;
530: finish = 0;
531: bombed_out = FALSE;
532: if (ent)
533: entmode = status = 0;
534: else
535: if (base)
536: status = 2;
537: else
538: status = 3;
539:
540: Sprintf(spbuf,
541: "%-4s E: %4d %2d B: %5d %3d Enemies: %-3d Stars: %-3d Stardate%5d.%1d %9ld",
542: " ", 0, 0, 0, 0, 0, 0, smarts * 100, 0, 0L);
543: mvaddstr(0,0,spbuf);
544: oldeenergy = oldbenergy = oldcurscore =
545: oldstatus = oldetorp = oldbtorp = oldstrs = oldenemies = -1;
546: /* force everything to fill in */
547: damage = olddamage = 0;
548: for (i=0; i<MAXDAMAGE; i++)
549: damflag[i] = 0;
550: btorp = 500;
551: etorp = 50;
552: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.