554eb505f8
of the x11 based games. I'm not going to tag the originals with bsd_44_lite and do this in two stages since it's just not worth it for this collection, and I've got directory renames to deal with that way. Bleah. Submitted by: jkh
60 lines
1.7 KiB
Plaintext
60 lines
1.7 KiB
Plaintext
# include "trek.h"
|
|
|
|
/*
|
|
** BOARD A KLINGON
|
|
**
|
|
** A Klingon battle cruiser is boarded. If the boarding party
|
|
** is successful, they take over the vessel, otherwise, you
|
|
** have wasted a move. Needless to say, this move is not free.
|
|
**
|
|
** User parameters are the Klingon to be boarded and the size of
|
|
** the boarding party.
|
|
**
|
|
** Three things are computed. The first is the probability that
|
|
** the party takes over the Klingon. This is dependent on the
|
|
** size of the party, the condition of the Klingon (for which
|
|
** the energy left is used, which is definately incorrect), and
|
|
** the number of losses that the boarding party sustains. If too
|
|
** many of the boarding party are killed, the probability drops
|
|
** to zero. The second quantity computed is the losses that the
|
|
** boarding party sustains. This counts in your score. It
|
|
** depends on the absolute and relative size of the boarding
|
|
** party and the strength of the Klingon. The third quantity
|
|
** computed is the number of Klingon captives you get to take.
|
|
** It is actually computed as the number of losses they sustain
|
|
** subtracted from the size of their crew. It depends on the
|
|
** relative size of the party. All of these quantities are
|
|
** randomized in some fashion.
|
|
*/
|
|
|
|
board()
|
|
{
|
|
int prob;
|
|
int losses;
|
|
int captives;
|
|
float t;
|
|
int party;
|
|
|
|
if (checkout(XPORTER))
|
|
return;
|
|
|
|
k = selectklingon();
|
|
if (!k->srndreq)
|
|
{
|
|
return (printf("But captain! You must request surrender first\n"));
|
|
}
|
|
|
|
t = party / Param.crew;
|
|
|
|
prob = 1000 * t;
|
|
prob =- 500 * k->power / Param.klingpwr;
|
|
|
|
losses = party * k->power * t * 0.5 / Param.klingpwr * (franf() + 1.0);
|
|
if (losses * 4 > party)
|
|
prob = 0;
|
|
|
|
captives = %%% * (1.0 - t) * 0.5 * (franf() + 1.0);
|
|
|
|
if (prob > ranf(1000))
|
|
success!!!;
|