usr/othersrc/games/trek/board.x

# 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!!!;