pdp11v/usr/src/games/trk/setup.c
static char ID[] = "@(#)setup.c 1.1";
# include "trek.h"
/**
** initialize game
**/
CVNTAB Lentab[] =
{
"restart", "",
"s", "hort",
"m", "edium",
"i", "ntermediate",
"l", "ong",
0
};
CVNTAB Skitab[] =
{
"n", "ovice",
"f", "air",
"g", "ood",
"e", "xpert",
"c", "ommodore",
"i", "mpossible",
0
};
int repflg;
double logdly();
setup(two)
{
long timevec;
register int i, j, n;
float f;
int d;
int klump;
int ix, iy;
QUAD *q;
EVENT *e;
char base_sq[NQUADS][NQUADS];
time(&timevec); srand((unsigned)timevec);
if(repflg==0 && (Game.length=getcodpar("What length game: ", Lentab))<0) return(0);
if(Game.length==0) {
return(restart());
}
if(repflg==0 && (Game.skill=getcodpar("What skill game: ", Skitab)+1)<=0) return(0);
Game.tourn = 1;
if(two == 0)
getpasswd(Game.passwd);
Initial.bases = Status.bases = 7 - Game.skill;
Initial.time = Status.time = 6.0 * Game.length + 2.0;
i = Game.skill;
j = Game.length;
Initial.kling = Status.kling = i * j * 5;
Initial.energy = Status.energy = 5000;
Initial.torped = Status.torped = 10;
Status.ship = things[ENTERPRISE];
Status.shipname = "Enterprise";
Initial.shield = Status.shield = 1500;
Initial.resource = Status.resource = Initial.kling * Initial.time;
Initial.reserves = Status.reserves = (6 - Game.skill) * 2.0;
Initial.crew = Status.crew = 387;
Initial.brigfree = Status.brigfree = 40;
Status.shldup = 0;
Status.cond = GREEN;
Status.warp = 5.0;
Status.warp2 = 25.0;
Status.warp3 = 125.0;
Status.sinsbad = 0;
Status.cloaked = 0;
Initial.date = Status.date = (ranf(20) + 20) * 100;
f = Game.skill;
for (i = 0; i < NDEV; i++)
if (Device[i].name[0] == '*')
Param.damfac[i] = 0;
else
Param.damfac[i] = log(f+0.5);
/* these probabilities must sum to 1000 */
Param.damprob[WARP] = 70; /* warp drive 7.0% */
Param.damprob[SRSCAN] = 110; /* short range scanners 11.0% */
Param.damprob[LRSCAN] = 110; /* long range scanners 11.0% */
Param.damprob[PHASER] = 125; /* phasers 12.5% */
Param.damprob[TORPED] = 125; /* photon torpedoes 12.5% */
Param.damprob[IMPULSE] = 75; /* impulse engines 7.5% */
Param.damprob[SHIELD] = 150; /* shield control 15.0% */
Param.damprob[COMPUTER] = 20; /* computer 2.0% */
Param.damprob[SSRADIO] = 35; /* subspace radio 3.5% */
Param.damprob[LIFESUP] = 30; /* life support 3.0% */
Param.damprob[SINS] = 30; /* navigation system 3.0% */
Param.damprob[CLOAK] = 40; /* cloaking device 4.0% */
Param.damprob[XPORTER] = 80; /* transporter 8.0% */
Param.dockfac = 0.5;
Param.regenfac = (6 - Game.skill) * 0.02;
Param.warptime = 10;
Param.stopengy = 50;
Param.shupengy = 40;
i = Game.skill;
Param.klingpwr = 100 + 150 * i;
if (i >= 6)
Param.klingpwr += 150;
Param.phasfac = 0.8;
Param.hitfac = 0.5;
Param.moveprob[KM_OB] = 40;
Param.movefac[KM_OB] = .09;
Param.moveprob[KM_OA] = 35;
Param.movefac[KM_OA] = -0.05;
Param.moveprob[KM_EB] = 35;
Param.movefac[KM_EB] = 0.075;
Param.moveprob[KM_EA] = 20 + 5 * Game.skill;
Param.movefac[KM_EA] = -0.06 * Game.skill;
Param.moveprob[KM_LB] = 0;
Param.movefac[KM_LB] = 0.0;
Param.moveprob[KM_LA] = 10 + 10 * Game.skill;
Param.movefac[KM_LA] = 0.25;
Param.eventdly[E_SNOVA] = 0.5;
Param.eventdly[E_LRTB] = 25.0;
Param.eventdly[E_KATSB] = 1.0;
Param.eventdly[E_KDESB] = 3.0;
Param.eventdly[E_ISSUE] = 1.0;
Param.eventdly[E_SNAP] = 0.5;
Param.eventdly[E_ENSLV] = 0.5;
Param.eventdly[E_REPRO] = 2.0;
Param.navigcrud[0] = 1.50;
Param.navigcrud[1] = 0.75;
Param.cloakenergy = 1000;
for (i = 0; i < MAXEVENTS; i++)
{
e = &Event[i];
e->date = 1e38;
e->evcode = -1;
}
schedule(E_SNOVA, logdly(E_SNOVA), 0, 0, 0);
schedule(E_LRTB, logdly(E_LRTB), 0, 0, 0);
schedule(E_KATSB, logdly(E_KATSB), 0, 0, 0);
schedule(E_ISSUE, logdly(E_ISSUE), 0, 0, 0);
schedule(E_SNAP, logdly(E_SNAP), 0, 0, 0);
Quadx = ranf(NQUADS);
Quady = ranf(NQUADS);
Sectx = ranf(NSECTS);
Secty = ranf(NSECTS);
for (i = 0; i < NDEV; i++)
Damage[i] = 0;
for(i=0; i < NMSGS; i++)
rmsgs[i] = 0;
Game.gkillk = Game.kills = Game.killb = 0;
Game.deaths = Game.negenbar = 0;
Game.captives = 0;
Game.killinhab = 0;
Status.distressed = 0;
Game.helps = 0;
Game.killed = 0;
Game.snap = 0;
Move.endgame = 0;
violations = 0;
violat0 = 0;
violat1 = 1;
violats = 0;
/* setup stars */
for (i = 0; i < NQUADS; i++)
for (j = 0; j < NQUADS; j++)
{
q = &Quad[i][j];
q->qkling = q->bases = 0;
q->scanned = -1;
q->stars = ranf(9) + 1;
q->holes = ranf(3-(q->stars/5));
q->systemname = 0;
}
/* select inhabited starsystems */
for (d = 1; d < NINHAB; d++)
{
do
{
i = ranf(NQUADS);
j = ranf(NQUADS);
q = &Quad[i][j];
} while (q->systemname);
q->systemname = d;
}
/* position starbases */
d = (Initial.bases>4 ? 1 : 2);
for (i = 0; i < NQUADS; i++)
for (j = 0; j < NQUADS; j++)
base_sq[i][j]=0;
for (n = 0; n < Initial.bases; n++)
while (1)
{
ix=ranf(NQUADS-2)+1;
iy=ranf(NQUADS-2)+1;
if(base_sq[ix][iy])
continue;
q = &Quad[ix][iy];
for(i=ix-d; i<=ix+d; i++)
for(j=iy-d; j<=iy+d; j++)
if(i>=0 && j>=0 && i<NQUADS && j<NQUADS)
base_sq[i][j]++;
q->bases = 1;
Base[n].x = ix;
Base[n].y = iy;
q->scanned = 1001;
break;
}
/* position klingons */
for (i = Initial.kling; i > 0; )
{
klump = ranf(4) + 1;
if (klump > i)
klump = i;
while (1)
{
ix = ranf(NQUADS);
iy = ranf(NQUADS);
q = &Quad[ix][iy];
if (q->qkling + klump > 9)
continue;
q->qkling += klump;
i -= klump;
break;
}
}
if(adm())
update();
/* initialize this quadrant */
printf("%d Klingons; it takes %d units to kill a Klingon.\n", Initial.kling, Param.klingpwr);
printf("%d starbases at", Initial.bases);
for (i = 0; i < Initial.bases; i++)
printf(" %d,%d", Base[i].x, Base[i].y);
printf("\n");
Move.free = 0;
initquad(0);
scansys(1);
attack(0);
return(1);
}