* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)setup.c 5.1 (Berkeley) %G%";
** The length, skill, and password are read, and the game
** is initialized. It is far too difficult to describe all
** that goes on in here, but it is all straight-line code;
** Game restart and tournament games are handled here.
"s", "hort", (int (*)())1, 0,
"m", "edium", (int (*)())2, 0,
"l", "ong", (int (*)())4, 0,
"n", "ovice", (int (*)())1, 0,
"f", "air", (int (*)())2, 0,
"g", "ood", (int (*)())3, 0,
"e", "xpert", (int (*)())4, 0,
"c", "ommodore", (int (*)())5, 0,
"i", "mpossible", (int (*)())6, 0,
r
= getcodpar("What length game", Lentab
);
Game
.length
= (int) r
->value
;
r
= getcodpar("What skill game", Skitab
);
Game
.skill
= (int) r
->value
;
getstrpar("Enter a password", Game
.passwd
, 14, 0);
if (sequal(Game
.passwd
, "tournament"))
getstrpar("Enter tournament code", Game
.passwd
, 14, 0);
for (i
= 0; Game
.passwd
[i
]; i
++)
d
+= Game
.passwd
[i
] << i
;
Param
.bases
= Now
.bases
= ranf(6 - Game
.skill
) + 2;
Param
.bases
= Now
.bases
= 1;
Param
.time
= Now
.time
= 6.0 * Game
.length
+ 2.0;
Param
.klings
= Now
.klings
= i
* j
* 3.5 * (franf() + 0.75);
if (Param
.klings
< i
* j
* 5)
Param
.klings
= Now
.klings
= i
* j
* 5;
if (Param
.klings
<= i
) /* numerical overflow problems */
Param
.klings
= Now
.klings
= 127;
Param
.energy
= Ship
.energy
= 5000;
Param
.torped
= Ship
.torped
= 10;
Ship
.shipname
= "Enterprise";
Param
.shield
= Ship
.shield
= 1500;
Param
.resource
= Now
.resource
= Param
.klings
* Param
.time
;
Param
.reserves
= Ship
.reserves
= (6 - Game
.skill
) * 2.0;
Param
.crew
= Ship
.crew
= 387;
Param
.brigfree
= Ship
.brigfree
= 400;
Param
.date
= Now
.date
= (ranf(20) + 20) * 100;
for (i
= 0; i
< NDEV
; i
++)
if (Device
[i
].name
[0] == '*')
/* 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
] = 20; /* navigation system 2.0% */
Param
.damprob
[CLOAK
] = 50; /* cloaking device 5.0% */
Param
.damprob
[XPORTER
] = 80; /* transporter 8.0% */
/* check to see that I didn't blow it */
for (i
= j
= 0; i
< NDEV
; i
++)
syserr("Device probabilities sum to %d", j
);
Param
.regenfac
= (5 - Game
.skill
) * 0.05;
if (Param
.regenfac
< 0.0)
Param
.klingpwr
= 100 + 150 * i
;
Param
.srndrprob
= 0.0035;
Param
.moveprob
[KM_OB
] = 45;
Param
.movefac
[KM_OB
] = .09;
Param
.moveprob
[KM_OA
] = 40;
Param
.movefac
[KM_OA
] = -0.05;
Param
.moveprob
[KM_EB
] = 40;
Param
.movefac
[KM_EB
] = 0.075;
Param
.moveprob
[KM_EA
] = 25 + 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
++)
xsched(E_SNOVA
, 1, 0, 0, 0);
xsched(E_LRTB
, Param
.klings
, 0, 0, 0);
xsched(E_KATSB
, 1, 0, 0, 0);
xsched(E_ISSUE
, 1, 0, 0, 0);
xsched(E_SNAP
, 1, 0, 0, 0);
Ship
.sectx
= ranf(NSECTS
);
Ship
.secty
= ranf(NSECTS
);
Game
.killk
= Game
.kills
= Game
.killb
= 0;
Game
.deaths
= Game
.negenbar
= 0;
for (i
= 0; i
< NQUADS
; i
++)
for (j
= 0; j
< NQUADS
; j
++)
q
->klings
= q
->bases
= 0;
q
->holes
= ranf(3) - q
->stars
/ 5;
/* select inhabited starsystems */
for (d
= 1; d
< NINHAB
; d
++)
} while (q
->qsystemname
);
for (i
= 0; i
< Param
.bases
; i
++)
/* start the Enterprise near starbase */
for (i
= Param
.klings
; i
> 0; )
if (q
->klings
+ klump
> MAXKLQUAD
)
/* initialize this quadrant */
printf("%d Klingons\n%d starbase", Param
.klings
, Param
.bases
);
printf(" at %d,%d", Now
.base
[0].x
, Now
.base
[0].y
);
for (i
= 1; i
< Param
.bases
; i
++)
printf(", %d,%d", Now
.base
[i
].x
, Now
.base
[i
].y
);
printf("\nIt takes %d units to kill a Klingon\n", Param
.klingpwr
);