1 /* $OpenBSD: capture.c,v 1.7 2016/01/07 14:37:51 mestre Exp $ */
2 /* $NetBSD: capture.c,v 1.3 1995/04/22 10:58:32 cgd Exp $ */
3
4 /*
5 * Copyright (c) 1980, 1993
6 * The Regents of the University of California. All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. Neither the name of the University nor the names of its contributors
17 * may be used to endorse or promote products derived from this software
18 * without specific prior written permission.
19 *
20 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30 * SUCH DAMAGE.
31 */
32
33 #include <stdio.h>
34
35 #include "trek.h"
36
37 /*
38 ** Ask a Klingon To Surrender
39 **
40 ** (Fat chance)
41 **
42 ** The Subspace Radio is needed to ask a Klingon if he will kindly
43 ** surrender. A random Klingon from the ones in the quadrant is
44 ** chosen.
45 **
46 ** The Klingon is requested to surrender. The probability of this
47 ** is a function of that Klingon's remaining power, our power,
48 ** etc.
49 */
50 void
capture(int v)51 capture(int v)
52 {
53 int i;
54 struct kling *k;
55 double x;
56
57 /* check for not cloaked */
58 if (Ship.cloaked)
59 {
60 printf("Ship-ship communications out when cloaked\n");
61 return;
62 }
63 if (damaged(SSRADIO))
64 {
65 out(SSRADIO);
66 return;
67 }
68 /* find out if there are any at all */
69 if (Etc.nkling <= 0)
70 {
71 printf("Uhura: Getting no response, sir\n");
72 return;
73 }
74
75 /* if there is more than one Klingon, find out which one */
76 k = selectklingon();
77 Move.free = 0;
78 Move.time = 0.05;
79
80 /* check out that Klingon */
81 k->srndreq++;
82 x = Param.klingpwr;
83 x *= Ship.energy;
84 x /= k->power * Etc.nkling;
85 x *= Param.srndrprob;
86 i = x;
87 # ifdef xTRACE
88 if (Trace)
89 printf("Prob = %d (%.4f)\n", i, x);
90 # endif
91 if (i > ranf(100))
92 {
93 /* guess what, he surrendered!!! */
94 printf("Klingon at %d,%d surrenders\n", k->x, k->y);
95 i = ranf(Param.klingcrew);
96 if ( i > 0 )
97 printf("%d klingons commit suicide rather than be taken captive\n", Param.klingcrew - i);
98 if (i > Ship.brigfree)
99 i = Ship.brigfree;
100 Ship.brigfree -= i;
101 printf("%d captives taken\n", i);
102 killk(k->x, k->y);
103 return;
104 }
105
106 /* big surprise, he refuses to surrender */
107 printf("Fat chance, captain\n");
108 return;
109 }
110
111
112 /*
113 ** SELECT A KLINGON
114 **
115 ** Cruddy, just takes one at random. Should ask the captain.
116 */
117
118 struct kling *
selectklingon(void)119 selectklingon(void)
120 {
121 int i;
122
123 if (Etc.nkling < 2)
124 i = 0;
125 else
126 i = ranf(Etc.nkling);
127 return (&Etc.klingon[i]);
128 }
129