Home | History | Annotate | Line # | Download | only in warp
      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(void)
     38 {
     39     int i;
     40     int x;
     41     int y;
     42     int dist;
     43     int ydist = 0;
     44     int xdist = 0;
     45     long e;
     46     int yoff = 0, xoff = 0, ypred, xpred;
     47     OBJECT *obj = NULL;
     48     char ch;
     49     FILE *mapfp = NULL;
     50     bool tmptholspec;
     51     int inhabjackpot;
     52     long inhenergy;
     53     int walksplit = 200;
     54     static const 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     }
    112     tmptholspec = (smarts > 15 && inumstars < 450 && ! rand_mod(90-sm80));
    113     if (!klingspec) {
    114 	inumenemies = rand_mod((smarts+1)/2) + 1;
    115 	if (massacre || tmptholspec)
    116 	    inumenemies += 10;
    117     }
    118     if (!friendspec)
    119 	inumfriends = rand_mod(smarts/8+1);
    120     if (!piratespec)
    121 	inumpirates = rand_mod(inumfriends/2+1);
    122     if (inumfriends+inumenemies+inumstars > YSIZE*XSIZE-20)
    123 	inumstars = YSIZE*XSIZE-20 - inumenemies - inumfriends;
    124     if (inumstars < 0) {
    125 	inumfriends += inumstars;
    126 	inumstars = 0;
    127     }
    128     if (inumfriends < 0) {
    129 	inumenemies += inumfriends;
    130 	inumfriends = 0;
    131     }
    132     if (inumenemies < 0)
    133 	inumenemies = 0;
    134     numstars = inumstars;
    135     inuminhab = numinhab = 0;
    136     inumroms = inumthols = inumgorns = 0;
    137     numapollos = apolspec || massacre ? 1 :
    138        ((!numstars || rand_mod(2) || smarts < 10) ? 0 : 1);
    139     inumapollos = apolloflag = 0;
    140     realapollo = NULL;
    141     inumcrushes = numcrushes =
    142 	crushspec||massacre?1:(rand_mod(2000) < inumstars);
    143     inumenemies += inumcrushes;
    144     inumamoebas = numamoebas = (amoebaspec ? 1 :
    145 	!rand_mod(inumcrushes?3-massacre:8) );	/* < and & are fun together */
    146     inumenemies += inumamoebas;
    147     if (!rand_mod(40)) {
    148 	inhabjackpot = 32767;
    149 	inumfriends += rand_mod(10);
    150 	inumpirates += rand_mod(10);
    151     }
    152     else
    153 	inhabjackpot = inumpirates;
    154     inhenergy = 30000-super*150;
    155     if (!rand_mod(10))
    156 	inhenergy = 50000;
    157     if (!rand_mod(4))
    158 	inhenergy += rand_mod(3500+super*150);
    159     numfriends = inumfriends;
    160     numpirates = inumpirates;
    161     numenemies = inumenemies;
    162     deadmudds = 0;
    163 
    164     /* do stars */
    165 
    166 stars_again:
    167     if (prespec)
    168 	dist = 4;
    169     else if (numstars > 750)
    170 	dist = 0;
    171     else
    172 	dist = rand_mod(starspec||smarts<=5?3:5);
    173     if (debugging) {
    174 	real_y = real_x = -100;
    175 	printf("\r\n");
    176     }
    177     switch (dist) {
    178     case 0:				/* uniform random */
    179 	ydist = xdist = 0;
    180 	if (inumstars < 700 && !rand_mod(3-(inumstars<50))) {
    181 	    ydist = xdist = 6;		/* well, maybe not so random */
    182 	    y = rand_mod(YSIZE);
    183 	    x = rand_mod(XSIZE);
    184 	    if (rand_mod(2))
    185 		walksplit = inumstars/(exdis(40)+1);
    186 	}
    187 	if (debugging)
    188 	    printf(" R\r\n");
    189 	break;
    190     case 1: case 2:	/* clumped, maybe skewed, maybe superposed */
    191 	ydist = rand_mod(4);
    192 	xdist = rand_mod(2);
    193 	if (debugging)
    194 	    printf("%s\r\n",distname[ydist+4*xdist]);
    195 	yoff = rand_mod(YSIZE);
    196 	xoff = rand_mod(XSIZE);
    197 	if (dist == 2)
    198 	    dist = numstars/2 + exdis(numstars/2) - exdis(numstars/2);
    199 	else
    200 	    dist = 0;
    201 	break;
    202     case 3: case 4:			/* predefined or residual */
    203       scenario_again:
    204 	if (debugging)
    205 	    printf(" P\r\n");
    206 	dist = 0;
    207 	snprintf(spbuf, sizeof(spbuf), "smap.%d",
    208 	    (prescene>=0?prescene:rand_mod(MAPS)) );
    209 	if ((mapfp = fopen(spbuf,"r")) != NULL &&
    210 	    fgets(spbuf,10,mapfp) != NULL ) {
    211 	    inumstars = numstars = atoi(spbuf);
    212 	    if (inumenemies+inumstars > YSIZE*XSIZE-20)
    213 		inumstars = numstars = YSIZE*XSIZE-20 - inumenemies;
    214 	    ydist = rand_mod(2) + 4;	/* flip y axis? */
    215 	    xdist = rand_mod(2) + 4;	/* flip x axis? */
    216 	    yoff = rand_mod(YSIZE);	/* how much to shift y */
    217 	    xoff = rand_mod(XSIZE);	/* how much to shift x */
    218 	}
    219 	else {
    220 	    prespec = false;
    221 	    prescene = -1;
    222 	    if (rand_mod(2))
    223 		goto scenario_again;
    224 	    goto stars_again;
    225 	}
    226 	break;
    227     }
    228     for (i = 1; i <= numstars; i++) {
    229 	if (dist && i == dist) {	/* flip to another skewing? */
    230 	    ydist = rand_mod(4);
    231 	    xdist = rand_mod(2);
    232 	    if (!rand_mod(4)) {
    233 		ydist = xdist = 6;
    234 		if (debugging)
    235 		    printf("&\r\n");
    236 	    }
    237 	    else if (debugging)
    238 		printf("%s\r\n",distname[ydist+4*xdist]);
    239 	    yoff = rand_mod(YSIZE);
    240 	    xoff = rand_mod(XSIZE);
    241 	    dist = 0;
    242 	}
    243 	do {				/* until an open spot found */
    244 	    switch (xdist) {
    245 	    case 0:
    246 		x = rand_mod(XSIZE);	/* pick from 0..39, uniform */
    247 		break;
    248 	    case 1: case 2: case 3:
    249 		x = (int)((((double)(myrand()-HALFRAND)) *
    250 		           ((double)(myrand()-HALFRAND))/RANDRAND)
    251 			  * 20.0) + xoff;	/* pick from -20..20, clumped */
    252 		break;
    253 	    case 4:
    254 		if (fscanf(mapfp,"%d %d\n",&ypred,&xpred) == EOF)
    255 		    ydist = xdist = 0;
    256 		x = xpred + xoff;
    257 		break;
    258 	    case 5:
    259 		if (fscanf(mapfp,"%d %d\n",&ypred,&xpred) == EOF)
    260 		    ydist = xdist = 0;
    261 		x = -xpred + xoff;
    262 		break;
    263 	    case 6:
    264 		x += rand_mod(3) - 1;
    265 		break;
    266 	    }
    267 	    switch (ydist) {
    268 	    case 0:
    269 		y = rand_mod(YSIZE);
    270 		break;
    271 	    case 1:
    272 		y = (int)((((double)(myrand()-HALFRAND)) *
    273 		           ((double)(myrand()-HALFRAND))/RANDRAND)
    274 			  * 12.0) + yoff;	/* pick from -12..12, clumped */
    275 		break;
    276 	    case 2:
    277 #ifndef lint
    278 		y = (int)((((double)(myrand()-HALFRAND)) *
    279 		           ((double)(myrand()-HALFRAND))/RANDRAND)
    280 			  * 12.0) + yoff + x*YSIZE/XSIZE;
    281 				 		/* clumped & skewed */
    282 #endif
    283 		break;
    284 	    case 3:
    285 #ifndef lint
    286 		y = (int)((((double)(myrand()-HALFRAND)) *
    287 		           ((double)(myrand()-HALFRAND))/RANDRAND)
    288 			  * 12.0) + yoff - x*YSIZE/XSIZE;
    289 						/* clumped & skewed */
    290 #endif
    291 		break;
    292 	    case 4:
    293 		y = ypred + yoff;
    294 		break;
    295 	    case 5:
    296 		y = -ypred + yoff;
    297 		break;
    298 	    case 6:
    299 		y += rand_mod(3) - 1;
    300 #ifdef lint
    301 		walksplit = walksplit;
    302 #endif
    303 		if (!rand_mod(walksplit)) {
    304 		    y = rand_mod(YSIZE);
    305 		    x = rand_mod(XSIZE);
    306 		}
    307 		break;
    308 	    }
    309 	    while (x<0) x += XSIZE00;
    310 	    while (y<0) y += YSIZE00;
    311 	    x %= XSIZE;
    312 	    y %= YSIZE;
    313 	} while (occupant[y][x]);
    314 	e = rand_mod(32768);
    315 	if (--inhabjackpot > 0 || e >= inhenergy) {
    316 	    ch = '@';
    317 	    if (inhabjackpot && e < 10000)
    318 		e += 10000;
    319 	    inuminhab = ++numinhab;
    320 	}
    321 	else {
    322 	    ch = '*';
    323 	}
    324 	obj = make_object(Star,ch,y,x,0,0,e+rand_mod(super*100+1),e/4,&root);
    325 	obj->flags |= STATIC;
    326     }
    327     if (inumstars > 30 && inhabjackpot <= 0 &&
    328 	 !rand_mod(3 - (inumstars > 400) - (inhenergy > 32768)) ) {
    329 	int initx;
    330 	int inity;
    331 
    332 	x = initx = obj->posx;
    333 	y = inity = obj->posy;
    334 	while (rand_mod(2) && inuminhab < inumstars/2) {
    335 	    for (i=rand_mod(smarts)*2+20; i; i--) {
    336 		if ((obj = occupant[y][x]) && obj->image == '*') {
    337 		    setimage(obj,'@');
    338 		    if (obj->energy < 10000)
    339 			obj->energy += 20000; /* the benefits of civilization */
    340 		    inuminhab = ++numinhab;
    341 		}
    342 		if (i&15) {
    343 		    y = (y + rand_mod(3) + YSIZE99) % YSIZE;
    344 		    x = (x + rand_mod(3) + XSIZE99) % XSIZE;
    345 		}
    346 		else {			/* don't wander too far */
    347 		    y = inity;
    348 		    x = initx;
    349 		}
    350 	    }
    351 	    x = initx = rand_mod(XSIZE);
    352 	    y = inity = rand_mod(YSIZE);
    353 	}
    354     }
    355     if (mapfp != NULL)
    356 	fclose(mapfp);
    357     if (numcrushes) {
    358 	do {
    359 	    x = rand_mod(XSIZE);
    360 	    y = rand_mod(YSIZE);
    361 	} while (occupant[y][x]);
    362 	movers = make_object(Crusher,'<',y,x,0,1,32767L,32768L,&root);
    363 	possiblescore += 10000;
    364     }
    365     ient = (numents != 0);
    366     if (ient) {
    367 	do {
    368 	    x = rand_mod(XSIZE);
    369 	    y = rand_mod(YSIZE);
    370 	} while (occupant[y][x]);
    371 	e = entmax;
    372 	ent = make_object(Enterprise,'E',y,x,0,0,e,e/2,&root);
    373 	if (!movers)
    374 	    movers = ent;
    375     }
    376     ibase = (numbases != 0);
    377     if (ibase) {
    378 	e = 52-super;
    379 	do {
    380 	    x = rand_mod(XSIZE);
    381 	    y = rand_mod(YSIZE);
    382 	} while (occupant[y][x] || lookaround(y,x,Star) * 7 < e--);
    383 	e = basemax;
    384 	base = make_object(Base, 'B',y,x,0,0,e,e/4,&root);
    385 	if (!movers)
    386 	    movers = base;
    387     }
    388     if (numamoebas) {
    389 	do {
    390 	    x = rand_mod(XSIZE);
    391 	    y = rand_mod(YSIZE);
    392 	} while (occupant[y][x]);
    393 	nuke = make_object(Enemy,'&',y,x,0,0,32767L,
    394 	  (long)entmax+entmax+rand_mod(entmax),&root);
    395 	possiblescore += 10000;
    396 	amb[y][x] = '~';
    397 	if (rand_mod(2))
    398 	    modify_amoeba(y,x,2,'~',(int)rand_mod(smarts<<1));/* just make blob */
    399 	else {
    400 	    for (i=smarts/10+1; i; i--) {
    401 		nuke->strategy = rand_mod(256);		/* random direction */
    402 		modify_amoeba(y,x,2,'~',(int)rand_mod(5));
    403 		modify_amoeba(y,x,2,'~',(int)rand_mod(5));
    404 		modify_amoeba(y,x,2,'~',(int)rand_mod(5));
    405 		modify_amoeba(y,x,2,'~',(int)rand_mod(5));	/* extend pseudopod */
    406 	    }
    407 	}
    408 	if (!enemies)
    409 	    enemies = nuke;
    410 	if (!movers)
    411 	    movers = nuke;
    412     }
    413     if (rand_mod(27-sm50/2) && !romspec && !gornspec)
    414 	dist = 27-sm50/2;
    415     else
    416 	dist = rand_mod(4) + 1;
    417     for (i = 1+inumcrushes+inumamoebas; i <= numenemies; i++) {
    418 	do {
    419 	    x = rand_mod(XSIZE);
    420 	    y = rand_mod(YSIZE);
    421 	} while (occupant[y][x]);
    422 	if (rand_mod(dist)) {
    423 	    if (!tholspec && !tmptholspec && rand_mod((inumstars*3)/sm50+2))
    424 		ch = 'K';
    425 	    else {
    426 		ch = 'T';
    427 		inumthols++;
    428 	    }
    429 	}
    430 	else {
    431 	    if (romspec == gornspec)
    432 		e = 50;
    433 	    else if (gornspec)
    434 		e = 10;
    435 	    else
    436 		e = 90;
    437 	    if (rand_mod(100) < e) {
    438 		ch = 'R';
    439 		inumroms++;
    440 	    }
    441 	    else {
    442 		ch = 'G';
    443 		inumgorns++;
    444 	    }
    445 	}
    446 	if (possiblescore > ENTBOUNDARY - 10000)
    447 	    e = (ENTBOUNDARY - possiblescore) / 5;
    448 	else
    449 	    e = 250 + (sm50-1) * 30 * 20 / numenemies+1;
    450 #ifndef lint
    451 	e = exdis((int)e) + e - exdis((int)e);
    452 	obj = make_object(Enemy,ch,y,x,0,0,
    453 	    e + rand_mod(super*200+2) + 10000*massacre,e/4,&root);
    454 #endif
    455 	e /= 4;
    456 	switch (ch) {
    457 	case 'K':
    458 	    possiblescore += e;
    459 	    break;
    460 	case 'T':
    461 	    possiblescore += e*3/2;
    462 	    break;
    463 	case 'G':
    464 	    possiblescore += e*2;
    465 	    break;
    466 	case 'R':
    467 	    possiblescore += e*3;
    468 	    obj->flags |= CLOAKS;
    469 	    break;
    470 	}
    471 	if (!enemies)
    472 	    enemies = obj;
    473 	if (!movers)
    474 	    movers = obj;
    475     }
    476     numgorns = inumgorns;
    477     for (i=0; i<numfriends; i++) {
    478 	do {
    479 	    x = rand_mod(XSIZE);
    480 	    y = rand_mod(YSIZE);
    481 	} while (occupant[y][x]);
    482 	e = 250 + (sm50-1) * 30 * 20 / numenemies+1;
    483 #ifndef lint
    484 	e = exdis((int)e) + e - exdis((int)e);
    485 #endif
    486 	{
    487 	    static char let[] = "QWYUISDHJLZVMFFFFFFFFF";
    488 
    489 	    dist = rand_mod(20);
    490 	    ch = let[dist];
    491 	}		/* grr, venix doesn't like strchring into string */
    492 	obj = make_object(Enemy,ch,y,x,0,0,
    493 	    e + rand_mod(super*200+2),e/4,&root);
    494 	if (numpirates-- > 0) {
    495 	    obj->flags |= PIRATE;
    496 	    if (smarts >= 20 && !rand_mod(10-smarts/10))
    497 		obj->flags |= CLOAKS;
    498 	}
    499 	obj->flags |= FRIENDLY;
    500 	if (!enemies)
    501 	    enemies = obj;
    502 	if (!movers)
    503 	    movers = obj;
    504     }
    505     if (!movers)
    506 	movers = &root;
    507     if (!enemies)
    508 	enemies = &root;
    509     if (ent)
    510 	mvaddch(ent->posy+1, ent->posx*2, ent->image);
    511     if (base)
    512 	mvaddch(base->posy+1, base->posx*2, base->image);
    513     sleep(2);
    514     {
    515 	OBJECT *curobj;
    516 
    517 	for (curobj = root.next; curobj != &root; curobj = curobj->next) {
    518 	    mvaddch(curobj->posy+1, curobj->posx*2, curobj->image);
    519 	}
    520     }
    521 
    522     for (i=0;i<2;i++) for (y=0;y<3;y++) for (x=0;x<3;x++)
    523     isatorp[i][y][x]=0;
    524 
    525     whenok = 0;
    526     timer = 0;
    527     finish = 0;
    528     bombed_out = false;
    529     if (ent)
    530 	entmode = status = 0;
    531     else
    532 	if (base)
    533 	    status = 2;
    534 	else
    535 	    status = 3;
    536 
    537     snprintf(spbuf, sizeof(spbuf),
    538     "%-4s E: %4d %2d B: %5d %3d Enemies: %-3d Stars: %-3d Stardate%5d.%1d %9ld",
    539 	"   ", 0, 0, 0, 0, 0, 0, smarts * 100, 0, 0L);
    540     mvaddstr(0,0,spbuf);
    541     oldeenergy = oldbenergy = oldcurscore =
    542     oldstatus = oldetorp = oldbtorp = oldstrs = oldenemies = -1;
    543 					/* force everything to fill in */
    544     damage = olddamage = 0;
    545     for (i=0; i<MAXDAMAGE; i++)
    546 	damflag[i] = 0;
    547     btorp = 500;
    548     etorp = 50;
    549 }
    550