1 /* $NetBSD: kill.c,v 1.11 2009/05/24 22:55:03 dholland Exp $ */ 2 3 /* 4 * Copyright (c) 1980, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. Neither the name of the University nor the names of its contributors 16 * may be used to endorse or promote products derived from this software 17 * without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 * SUCH DAMAGE. 30 */ 31 32 #include <sys/cdefs.h> 33 #ifndef lint 34 #if 0 35 static char sccsid[] = "@(#)kill.c 8.1 (Berkeley) 5/31/93"; 36 #else 37 __RCSID("$NetBSD: kill.c,v 1.11 2009/05/24 22:55:03 dholland Exp $"); 38 #endif 39 #endif /* not lint */ 40 41 #include <stdio.h> 42 #include <limits.h> 43 #include "trek.h" 44 45 /* 46 ** KILL KILL KILL !!! 47 ** 48 ** This file handles the killing off of almost anything. 49 */ 50 51 /* 52 ** Handle a Klingon's death 53 ** 54 ** The Klingon at the sector given by the parameters is killed 55 ** and removed from the Klingon list. Notice that it is not 56 ** removed from the event list; this is done later, when the 57 ** the event is to be caught. Also, the time left is recomputed, 58 ** and the game is won if that was the last klingon. 59 */ 60 61 void 62 killk(int ix, int iy) 63 { 64 int i; 65 66 printf(" *** Klingon at %d,%d destroyed ***\n", ix, iy); 67 68 /* remove the scoundrel */ 69 Now.klings -= 1; 70 Sect[ix][iy] = EMPTY; 71 Quad[Ship.quadx][Ship.quady].klings -= 1; 72 /* %%% IS THIS SAFE???? %%% */ 73 Quad[Ship.quadx][Ship.quady].scanned -= 100; 74 Game.killk += 1; 75 76 /* find the Klingon in the Klingon list */ 77 for (i = 0; i < Etc.nkling; i++) 78 if (ix == Etc.klingon[i].x && iy == Etc.klingon[i].y) { 79 /* purge him from the list */ 80 Etc.nkling -= 1; 81 for (; i < Etc.nkling; i++) 82 Etc.klingon[i] = Etc.klingon[i+1]; 83 break; 84 } 85 86 /* find out if that was the last one */ 87 if (Now.klings <= 0) 88 win(); 89 90 /* recompute time left */ 91 Now.time = Now.resource / Now.klings; 92 return; 93 } 94 95 96 /* 97 ** handle a starbase's death 98 */ 99 100 void 101 killb(int qx, int qy) 102 { 103 struct quad *q; 104 struct xy *b; 105 106 q = &Quad[qx][qy]; 107 108 if (q->bases <= 0) 109 return; 110 if (!damaged(SSRADIO)) { 111 /* then update starchart */ 112 if (q->scanned < 1000) 113 q->scanned -= 10; 114 else 115 if (q->scanned > 1000) 116 q->scanned = -1; 117 } 118 q->bases = 0; 119 Now.bases -= 1; 120 for (b = Now.base; ; b++) 121 if (qx == b->x && qy == b->y) 122 break; 123 *b = Now.base[Now.bases]; 124 if (qx == Ship.quadx && qy == Ship.quady) { 125 Sect[Etc.starbase.x][Etc.starbase.y] = EMPTY; 126 if (Ship.cond == DOCKED) 127 undock(0); 128 printf("Starbase at %d,%d destroyed\n", 129 Etc.starbase.x, Etc.starbase.y); 130 } else { 131 if (!damaged(SSRADIO)) { 132 printf("Uhura: Starfleet command reports that the " 133 "starbase in\n"); 134 printf(" quadrant %d,%d has been destroyed\n", 135 qx, qy); 136 } 137 else 138 schedule(E_KATSB | E_GHOST, TOOLARGE, qx, qy, 0); 139 } 140 } 141 142 143 /** 144 ** kill an inhabited starsystem 145 ** 146 ** x, y are quad coords if f == 0, else sector coords 147 ** f != 0 -- this quad; f < 0 -- Enterprise's fault 148 **/ 149 150 void 151 kills(int x, int y, int f) 152 { 153 struct quad *q; 154 struct event *e; 155 const char *name; 156 157 if (f) { 158 /* current quadrant */ 159 q = &Quad[Ship.quadx][Ship.quady]; 160 Sect[x][y] = EMPTY; 161 name = systemname(q); 162 if (name == 0) 163 return; 164 printf("Inhabited starsystem %s at %d,%d destroyed\n", 165 name, x, y); 166 if (f < 0) 167 Game.killinhab += 1; 168 } else { 169 /* different quadrant */ 170 q = &Quad[x][y]; 171 } 172 if (q->qsystemname & Q_DISTRESSED) { 173 /* distressed starsystem */ 174 e = &Event[q->qsystemname & Q_SYSTEM]; 175 printf("Distress call for %s invalidated\n", 176 Systemname[e->systemname]); 177 unschedule(e); 178 } 179 q->qsystemname = 0; 180 q->stars -= 1; 181 } 182 183 184 /** 185 ** "kill" a distress call 186 ** 187 ** x, y are quadrant coordinates 188 ** f is set if user is to be informed 189 **/ 190 191 void 192 killd(int x, int y, int f) 193 { 194 struct event *e; 195 int i; 196 struct quad *q; 197 198 q = &Quad[x][y]; 199 for (i = 0; i < MAXEVENTS; i++) { 200 e = &Event[i]; 201 if (e->x != x || e->y != y) 202 continue; 203 switch (e->evcode) { 204 case E_KDESB: 205 if (f) { 206 printf("Distress call for starbase in " 207 "%d,%d nullified\n", 208 x, y); 209 unschedule(e); 210 } 211 break; 212 213 case E_ENSLV: 214 case E_REPRO: 215 if (f) { 216 printf("Distress call for %s in quadrant " 217 "%d,%d nullified\n", 218 Systemname[e->systemname], x, y); 219 q->qsystemname = e->systemname; 220 unschedule(e); 221 } else { 222 e->evcode |= E_GHOST; 223 } 224 } 225 } 226 } 227
Indexes created Mon Sep 22 05:09:51 GMT 2025