Return to board.x CVS log

Up to [CSRG BSD Unix] / 43BSD / games / trek

Annotation of 43BSD/games/trek/board.x, revision 1.1.1.1

1.1       root        1: # include      "trek.h"
                      2: 
                      3: /*
                      4: **  BOARD A KLINGON
                      5: **
                      6: **     A Klingon battle cruiser is boarded.  If the boarding party
                      7: **     is successful, they take over the vessel, otherwise, you
                      8: **     have wasted a move.  Needless to say, this move is not free.
                      9: **
                     10: **     User parameters are the Klingon to be boarded and the size of
                     11: **     the boarding party.
                     12: **
                     13: **     Three things are computed.  The first is the probability that
                     14: **     the party takes over the Klingon.  This is dependent on the
                     15: **     size of the party, the condition of the Klingon (for which
                     16: **     the energy left is used, which is definately incorrect), and
                     17: **     the number of losses that the boarding party sustains.  If too
                     18: **     many of the boarding party are killed, the probability drops
                     19: **     to zero.  The second quantity computed is the losses that the
                     20: **     boarding party sustains.  This counts in your score.  It
                     21: **     depends on the absolute and relative size of the boarding
                     22: **     party and the strength of the Klingon.  The third quantity
                     23: **     computed is the number of Klingon captives you get to take.
                     24: **     It is actually computed as the number of losses they sustain
                     25: **     subtracted from the size of their crew.  It depends on the
                     26: **     relative size of the party.  All of these quantities are
                     27: **     randomized in some fashion.
                     28: */
                     29: 
                     30: board()
                     31: {
                     32:        int                     prob;
                     33:        int                     losses;
                     34:        int                     captives;
                     35:        float                   t;
                     36:        int                     party;
                     37: 
                     38:        if (checkout(XPORTER))
                     39:                return;
                     40: 
                     41:        k = selectklingon();
                     42:        if (!k->srndreq)
                     43:        {
                     44:                return (printf("But captain! You must request surrender first\n"));
                     45:        }
                     46: 
                     47:        t = party / Param.crew;
                     48: 
                     49:        prob = 1000 * t;
                     50:        prob =- 500 * k->power / Param.klingpwr;
                     51: 
                     52:        losses = party * k->power * t * 0.5 / Param.klingpwr * (franf() + 1.0);
                     53:        if (losses * 4 > party)
                     54:                prob = 0;
                     55: 
                     56:        captives = %%% * (1.0 - t) * 0.5 * (franf() + 1.0);
                     57: 
                     58:        if (prob > ranf(1000))
                     59:                success!!!;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.