/* $Header: init.c,v 7.0.1.4 86/12/12 16:58:03 lwall Exp $ */ /* $Log: init.c,v $ * Revision 7.0.1.4 86/12/12 16:58:03 lwall * Baseline for net release. * * Revision 7.0.1.3 86/10/20 14:35:31 lwall * Picked some lint. * * Revision 7.0.1.2 86/10/17 15:53:30 lwall * Added random walk star fields. * * Revision 7.0.1.1 86/10/16 10:51:19 lwall * Added Damage. Fixed random bugs. * * Revision 7.0 86/10/08 15:12:10 lwall * Split into separate files. Added amoebas and pirates. * */ #include "EXTERN.h" #include "warp.h" #include "bang.h" #include "object.h" #include "move.h" #include "play.h" #include "score.h" #include "term.h" #include "them.h" #include "us.h" #include "util.h" #include "weapon.h" #include "INTERN.h" #include "init.h" void initialize() { Reg1 int i; Reg2 int x; Reg3 int y; Reg4 int dist; Reg5 int ydist; Reg6 int xdist; long e; int yoff, xoff, ypred, xpred; Reg7 OBJECT *obj; char ch; FILE *mapfp = NULL; bool tmptholspec; int inhabjackpot; long inhenergy; int walksplit = 200; static char *distname[] = {" #"," -"," \\"," /", " |"," *"," `"," '"}; cloaking = madgorns = FALSE; deados = madfriends = 0; curscore = possiblescore = 0L; yamblast = xamblast = ambsize = 0; if (smarts > 90) massacre = TRUE; scandist = (massacre?20:15); antibase = (smarts>60?1:(smarts>40?2:(smarts>25?4:100))); sm35 = (smarts>35?35:smarts); sm45 = (smarts>45?45:smarts); sm50 = (smarts>50?50:smarts); sm55 = (smarts>55?55:smarts); sm80 = (smarts>80?80:smarts); sm95 = (smarts>95?95:smarts); super = (smarts>50?smarts-50:0); enemshields = 10 + super/2; /* (scaled by 10) 1 @ 50 .. 3 @ 90 */ if (smarts>90) enemshields += (smarts-90)*10; /* lay it on thick: ~13 @ 99 */ entmax = (smarts>=75?5000:(smarts>=50?4000:(smarts>=40?3000:2000))); basemax = (smarts>=75?20000:(smarts>=50?15000:(smarts>=40?12500:10000))); clear(); while (root.next != &root) { root.next = root.next->next; free_object(root.next->prev); } root.prev = &root; enemies = movers = NULL; numos = numxes = 0; #if defined(vax) && XYSIZEx4 == 3680 asm("movc5 $0,_occupant,$0,$3680,_occupant"); asm("movc5 $0,_blast,$0,$3680,_blast"); /* 3680 = XYSIZEx4 */ asm("movc5 $0,_amb,$32,$920,_amb"); #else for (y=0;y 85) inumstars = exdis(800) + rand_mod(100) + 1; else /* too few stars makes 50..85 too hard */ inumstars = exdis(700) + rand_mod(150-super*2) + 50+super*2; tmptholspec = (smarts > 15 && inumstars < 450 && ! rand_mod(90-sm80)); if (!klingspec) { inumenemies = rand_mod((smarts+1)/2) + 1; if (massacre || tmptholspec) inumenemies += 10; } if (!friendspec) inumfriends = rand_mod(smarts/8+1); if (!piratespec) inumpirates = rand_mod(inumfriends/2+1); if (inumfriends+inumenemies+inumstars > YSIZE*XSIZE-20) inumstars = YSIZE*XSIZE-20 - inumenemies - inumfriends; if (inumstars < 0) { inumfriends += inumstars; inumstars = 0; } if (inumfriends < 0) { inumenemies += inumfriends; inumfriends = 0; } if (inumenemies < 0) inumenemies = 0; numstars = inumstars; inuminhab = numinhab = 0; inumroms = inumthols = inumgorns = 0; numapollos = apolspec || massacre ? 1 : ((!numstars || rand_mod(2) || smarts < 10) ? 0 : 1); inumapollos = apolloflag = 0; realapollo = NULL; inumcrushes = numcrushes = crushspec||massacre?1:(rand_mod(2000) < inumstars); inumenemies += inumcrushes; inumamoebas = numamoebas = (amoebaspec ? 1 : !rand_mod(inumcrushes?3-massacre:8) ); /* < and & are fun together */ inumenemies += inumamoebas; if (!rand_mod(40)) { inhabjackpot = 32767; inumfriends += rand_mod(10); inumpirates += rand_mod(10); } else inhabjackpot = inumpirates; inhenergy = 30000-super*150; if (!rand_mod(10)) inhenergy = 50000; if (!rand_mod(4)) inhenergy += rand_mod(3500+super*150); numfriends = inumfriends; numpirates = inumpirates; numenemies = inumenemies; deadmudds = 0; /* do stars */ stars_again: if (prespec) dist = 4; else if (numstars > 750) dist = 0; else dist = rand_mod(starspec||smarts<=5?3:5); if (debugging) { real_y = real_x = -100; printf("\r\n"); } switch (dist) { case 0: /* uniform random */ ydist = xdist = 0; if (inumstars < 700 && !rand_mod(3-(inumstars<50))) { ydist = xdist = 6; /* well, maybe not so random */ y = rand_mod(YSIZE); x = rand_mod(XSIZE); if (rand_mod(2)) walksplit = inumstars/(exdis(40)+1); } if (debugging) printf(" R\r\n"); break; case 1: case 2: /* clumped, maybe skewed, maybe superposed */ ydist = rand_mod(4); xdist = rand_mod(2); if (debugging) printf("%s\r\n",distname[ydist+4*xdist]); yoff = rand_mod(YSIZE); xoff = rand_mod(XSIZE); if (dist == 2) dist = numstars/2 + exdis(numstars/2) - exdis(numstars/2); else dist = 0; break; case 3: case 4: /* predefined or residual */ scenario_again: if (debugging) printf(" P\r\n"); dist = 0; Sprintf(spbuf,"smap.%d", (prescene>=0?prescene:rand_mod(MAPS)) ); if ((mapfp = fopen(spbuf,"r")) != NULL && fgets(spbuf,10,mapfp) != NULL ) { inumstars = numstars = atoi(spbuf); if (inumenemies+inumstars > YSIZE*XSIZE-20) inumstars = numstars = YSIZE*XSIZE-20 - inumenemies; ydist = rand_mod(2) + 4; /* flip y axis? */ xdist = rand_mod(2) + 4; /* flip x axis? */ yoff = rand_mod(YSIZE); /* how much to shift y */ xoff = rand_mod(XSIZE); /* how much to shift x */ } else { prespec = FALSE; prescene = -1; if (rand_mod(2)) goto scenario_again; goto stars_again; } break; } for (i = 1; i <= numstars; i++) { if (dist && i == dist) { /* flip to another skewing? */ ydist = rand_mod(4); xdist = rand_mod(2); if (!rand_mod(4)) { ydist = xdist = 6; if (debugging) printf("&\r\n"); } else if (debugging) printf("%s\r\n",distname[ydist+4*xdist]); yoff = rand_mod(YSIZE); xoff = rand_mod(XSIZE); dist = 0; } do { /* until an open spot found */ switch (xdist) { case 0: x = rand_mod(XSIZE); /* pick from 0..39, uniform */ break; case 1: case 2: case 3: #ifndef lint x = (int)((((double)(myrand()-HALFRAND)) * ((double)(myrand()-HALFRAND))/RANDRAND) * 20.0) + xoff; /* pick from -20..20, clumped */ #endif break; case 4: if (fscanf(mapfp,"%d %d\n",&ypred,&xpred) == EOF) ydist = xdist = 0; x = xpred + xoff; break; case 5: if (fscanf(mapfp,"%d %d\n",&ypred,&xpred) == EOF) ydist = xdist = 0; x = -xpred + xoff; break; case 6: x += rand_mod(3) - 1; break; } switch (ydist) { case 0: y = rand_mod(YSIZE); break; case 1: #ifndef lint y = (int)((((double)(myrand()-HALFRAND)) * ((double)(myrand()-HALFRAND))/RANDRAND) * 12.0) + yoff; /* pick from -12..12, clumped */ #endif break; case 2: #ifndef lint y = (int)((((double)(myrand()-HALFRAND)) * ((double)(myrand()-HALFRAND))/RANDRAND) * 12.0) + yoff + x*YSIZE/XSIZE; /* clumped & skewed */ #endif break; case 3: #ifndef lint y = (int)((((double)(myrand()-HALFRAND)) * ((double)(myrand()-HALFRAND))/RANDRAND) * 12.0) + yoff - x*YSIZE/XSIZE; /* clumped & skewed */ #endif break; case 4: y = ypred + yoff; break; case 5: y = -ypred + yoff; break; case 6: y += rand_mod(3) - 1; #ifdef lint walksplit = walksplit; #endif if (!rand_mod(walksplit)) { y = rand_mod(YSIZE); x = rand_mod(XSIZE); } break; } while (x<0) x += XSIZE00; while (y<0) y += YSIZE00; x %= XSIZE; y %= YSIZE; } while (occupant[y][x]); e = rand_mod(32768); if (--inhabjackpot > 0 || e >= inhenergy) { ch = '@'; if (inhabjackpot && e < 10000) e += 10000; inuminhab = ++numinhab; } else { ch = '*'; } obj = make_object(Star,ch,y,x,0,0,e+rand_mod(super*100+1),e/4,&root); obj->flags |= STATIC; } if (inumstars > 30 && inhabjackpot <= 0 && !rand_mod(3 - (inumstars > 400) - (inhenergy > 32768)) ) { int initx; int inity; x = initx = obj->posx; y = inity = obj->posy; while (rand_mod(2) && inuminhab < inumstars/2) { for (i=rand_mod(smarts)*2+20; i; i--) { if ((obj = occupant[y][x]) && obj->image == '*') { setimage(obj,'@'); if (obj->energy < 10000) obj->energy += 20000; /* the benefits of civilization */ inuminhab = ++numinhab; } if (i&15) { y = (y + rand_mod(3) + YSIZE99) % YSIZE; x = (x + rand_mod(3) + XSIZE99) % XSIZE; } else { /* don't wander too far */ y = inity; x = initx; } } x = initx = rand_mod(XSIZE); y = inity = rand_mod(YSIZE); } } if (mapfp != NULL) Fclose(mapfp); if (numcrushes) { do { x = rand_mod(XSIZE); y = rand_mod(YSIZE); } while (occupant[y][x]); movers = make_object(Crusher,'<',y,x,0,1,32767L,32768L,&root); possiblescore += 10000; } ient = (numents != 0); if (ient) { do { x = rand_mod(XSIZE); y = rand_mod(YSIZE); } while (occupant[y][x]); e = entmax; ent = make_object(Enterprise,'E',y,x,0,0,e,e/2,&root); if (!movers) movers = ent; } ibase = (numbases != 0); if (ibase) { e = 52-super; do { x = rand_mod(XSIZE); y = rand_mod(YSIZE); } while (occupant[y][x] || lookaround(y,x,Star) * 7 < e--); e = basemax; base = make_object(Base, 'B',y,x,0,0,e,e/4,&root); if (!movers) movers = base; } if (numamoebas) { do { x = rand_mod(XSIZE); y = rand_mod(YSIZE); } while (occupant[y][x]); nuke = make_object(Enemy,'&',y,x,0,0,32767L, (long)entmax+entmax+rand_mod(entmax),&root); possiblescore += 10000; amb[y][x] = '~'; if (rand_mod(2)) modify_amoeba(y,x,2,'~',(int)rand_mod(smarts<<1));/* just make blob */ else { for (i=smarts/10+1; i; i--) { nuke->strategy = rand_mod(256); /* random direction */ modify_amoeba(y,x,2,'~',(int)rand_mod(5)); modify_amoeba(y,x,2,'~',(int)rand_mod(5)); modify_amoeba(y,x,2,'~',(int)rand_mod(5)); modify_amoeba(y,x,2,'~',(int)rand_mod(5)); /* extend pseudopod */ } } if (!enemies) enemies = nuke; if (!movers) movers = nuke; } if (rand_mod(27-sm50/2) && !romspec && !gornspec) dist = 27-sm50/2; else dist = rand_mod(4) + 1; for (i = 1+inumcrushes+inumamoebas; i <= numenemies; i++) { do { x = rand_mod(XSIZE); y = rand_mod(YSIZE); } while (occupant[y][x]); if (rand_mod(dist)) { if (!tholspec && !tmptholspec && rand_mod((inumstars*3)/sm50+2)) ch = 'K'; else { ch = 'T'; inumthols++; } } else { if (romspec == gornspec) e = 50; else if (gornspec) e = 10; else e = 90; if (rand_mod(100) < e) { ch = 'R'; inumroms++; } else { ch = 'G'; inumgorns++; } } if (possiblescore > ENTBOUNDARY - 10000) e = (ENTBOUNDARY - possiblescore) / 5; else e = 250 + (sm50-1) * 30 * 20 / numenemies+1; #ifndef lint e = exdis((int)e) + e - exdis((int)e); obj = make_object(Enemy,ch,y,x,0,0, e + rand_mod(super*200+2) + 10000*massacre,e/4,&root); #endif e /= 4; switch (ch) { case 'K': possiblescore += e; break; case 'T': possiblescore += e*3/2; break; case 'G': possiblescore += e*2; break; case 'R': possiblescore += e*3; obj->flags |= CLOAKS; break; } if (!enemies) enemies = obj; if (!movers) movers = obj; } numgorns = inumgorns; for (i=0; i 0) { obj->flags |= PIRATE; if (smarts >= 20 && !rand_mod(10-smarts/10)) obj->flags |= CLOAKS; } obj->flags |= FRIENDLY; if (!enemies) enemies = obj; if (!movers) movers = obj; } if (!movers) movers = &root; if (!enemies) enemies = &root; if (ent) mvaddch(ent->posy+1, ent->posx*2, ent->image); if (base) mvaddch(base->posy+1, base->posx*2, base->image); sleep(2); { Reg7 OBJECT *curobj; for (curobj = root.next; curobj != &root; curobj = curobj->next) { mvaddch(curobj->posy+1, curobj->posx*2, curobj->image); } } for (i=0;i<2;i++) for (y=0;y<3;y++) for (x=0;x<3;x++) isatorp[i][y][x]=0; whenok = 0; timer = 0; finish = 0; bombed_out = FALSE; if (ent) entmode = status = 0; else if (base) status = 2; else status = 3; Sprintf(spbuf, "%-4s E: %4d %2d B: %5d %3d Enemies: %-3d Stars: %-3d Stardate%5d.%1d %9ld", " ", 0, 0, 0, 0, 0, 0, smarts * 100, 0, 0L); mvaddstr(0,0,spbuf); oldeenergy = oldbenergy = oldcurscore = oldstatus = oldetorp = oldbtorp = oldstrs = oldenemies = -1; /* force everything to fill in */ damage = olddamage = 0; for (i=0; i