home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / games / trek / board.x < prev    next >
Encoding:
Text File  |  1991-04-08  |  1.7 KB  |  60 lines
  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!!!;
  60.