1 /* $OpenBSD: abandon.c,v 1.8 2016/01/07 14:37:51 mestre Exp $ */
2 /* $NetBSD: abandon.c,v 1.3 1995/04/22 10:58:24 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 ** Abandon Ship
39 **
40 ** The ship is abandoned. If your current ship is the Faire
41 ** Queene, or if your shuttlecraft is dead, you're out of
42 ** luck. You need the shuttlecraft in order for the captain
43 ** (that's you!!) to escape.
44 **
45 ** Your crew can beam to an inhabited starsystem in the
46 ** quadrant, if there is one and if the transporter is working.
47 ** If there is no inhabited starsystem, or if the transporter
48 ** is out, they are left to die in outer space.
49 **
50 ** These currently just count as regular deaths, but they
51 ** should count very heavily against you.
52 **
53 ** If there are no starbases left, you are captured by the
54 ** Klingons, who torture you mercilessly. However, if there
55 ** is at least one starbase, you are returned to the
56 ** Federation in a prisoner of war exchange. Of course, this
57 ** can't happen unless you have taken some prisoners.
58 */
59
60 void
abandon(int v)61 abandon(int v)
62 {
63 struct quad *q;
64 int i;
65 int j;
66 struct event *e;
67
68 if (Ship.ship == QUEENE)
69 {
70 printf("You may not abandon ye Faire Queene\n");
71 return;
72 }
73 if (Ship.cond != DOCKED)
74 {
75 if (damaged(SHUTTLE))
76 {
77 out(SHUTTLE);
78 return;
79 }
80 printf("Officers escape in shuttlecraft\n");
81 /* decide on fate of crew */
82 q = &Quad[Ship.quadx][Ship.quady];
83 if (q->qsystemname == 0 || damaged(XPORTER))
84 {
85 printf("Entire crew of %d left to die in outer space\n",
86 Ship.crew);
87 Game.deaths += Ship.crew;
88 }
89 else
90 {
91 printf("Crew beams down to planet %s\n", systemname(q));
92 }
93 }
94 /* see if you can be exchanged */
95 if (Now.bases == 0 || Game.captives < 20 * Game.skill)
96 lose(L_CAPTURED);
97 /* re-outfit new ship */
98 printf("You are hereby put in charge of an antiquated but still\n");
99 printf(" functional ship, the Fairie Queene.\n");
100 Ship.ship = QUEENE;
101 Ship.shipname = "Fairie Queene";
102 Param.energy = Ship.energy = 3000;
103 Param.torped = Ship.torped = 6;
104 Param.shield = Ship.shield = 1250;
105 Ship.shldup = 0;
106 Ship.cloaked = 0;
107 Ship.warp = 5.0;
108 Ship.warp2 = 25.0;
109 Ship.warp3 = 125.0;
110 Ship.cond = GREEN;
111 /* clear out damages on old ship */
112 for (i = 0; i < MAXEVENTS; i++)
113 {
114 e = &Event[i];
115 if (e->evcode != E_FIXDV)
116 continue;
117 unschedule(e);
118 }
119 /* get rid of some devices and redistribute probabilities */
120 i = Param.damprob[SHUTTLE] + Param.damprob[CLOAK];
121 Param.damprob[SHUTTLE] = Param.damprob[CLOAK] = 0;
122 while (i > 0)
123 for (j = 0; j < NDEV; j++)
124 {
125 if (Param.damprob[j] != 0)
126 {
127 Param.damprob[j] += 1;
128 i--;
129 if (i <= 0)
130 break;
131 }
132 }
133 /* pick a starbase to restart at */
134 i = ranf(Now.bases);
135 Ship.quadx = Now.base[i].x;
136 Ship.quady = Now.base[i].y;
137 /* setup that quadrant */
138 while (1)
139 {
140 initquad(1);
141 Sect[Ship.sectx][Ship.secty] = EMPTY;
142 for (i = 0; i < 5; i++)
143 {
144 Ship.sectx = Etc.starbase.x + ranf(3) - 1;
145 if (Ship.sectx < 0 || Ship.sectx >= NSECTS)
146 continue;
147 Ship.secty = Etc.starbase.y + ranf(3) - 1;
148 if (Ship.secty < 0 || Ship.secty >= NSECTS)
149 continue;
150 if (Sect[Ship.sectx][Ship.secty] == EMPTY)
151 {
152 Sect[Ship.sectx][Ship.secty] = QUEENE;
153 dock(0);
154 compkldist(0);
155 return;
156 }
157 }
158 }
159 }
160