Commit | Line | Data |
---|---|---|
b4212daf WJ |
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!!!; |