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
60void
61abandon(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