* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
static char sccsid
[] = "@(#)kill.c 5.4 (Berkeley) 6/1/90";
** This file handles the killing off of almost anything.
** Handle a Klingon's death
** The Klingon at the sector given by the parameters is killed
** and removed from the Klingon list. Notice that it is not
** removed from the event list; this is done later, when the
** the event is to be caught. Also, the time left is recomputed,
** and the game is won if that was the last klingon.
printf(" *** Klingon at %d,%d destroyed ***\n", ix
, iy
);
/* remove the scoundrel */
Quad
[Ship
.quadx
][Ship
.quady
].klings
-= 1;
/* %%% IS THIS SAFE???? %%% */
Quad
[Ship
.quadx
][Ship
.quady
].scanned
-= 100;
/* find the Klingon in the Klingon list */
for (i
= 0; i
< Etc
.nkling
; i
++)
if (ix
== Etc
.klingon
[i
].x
&& iy
== Etc
.klingon
[i
].y
)
/* purge him from the list */
for (; i
< Etc
.nkling
; i
++)
bmove(&Etc
.klingon
[i
+1], &Etc
.klingon
[i
], sizeof Etc
.klingon
[i
]);
/* find out if that was the last one */
/* recompute time left */
Now
.time
= Now
.resource
/ Now
.klings
;
** handle a starbase's death
/* then update starchart */
for (b
= Now
.base
; ; b
++)
if (qx
== b
->x
&& qy
== b
->y
)
bmove(&Now
.base
[Now
.bases
], b
, sizeof *b
);
if (qx
== Ship
.quadx
&& qy
== Ship
.quady
)
Sect
[Etc
.starbase
.x
][Etc
.starbase
.y
] = EMPTY
;
printf("Starbase at %d,%d destroyed\n", Etc
.starbase
.x
, Etc
.starbase
.y
);
printf("Uhura: Starfleet command reports that the starbase in\n");
printf(" quadrant %d,%d has been destroyed\n", qx
, qy
);
schedule(E_KATSB
| E_GHOST
, 1e50
, qx
, qy
, 0);
** kill an inhabited starsystem
int x
, y
; /* quad coords if f == 0, else sector coords */
int f
; /* f != 0 -- this quad; f < 0 -- Enterprise's fault */
register struct event
*e
;
q
= &Quad
[Ship
.quadx
][Ship
.quady
];
printf("Inhabited starsystem %s at %d,%d destroyed\n",
if (q
->qsystemname
& Q_DISTRESSED
)
/* distressed starsystem */
e
= &Event
[q
->qsystemname
& Q_SYSTEM
];
printf("Distress call for %s invalidated\n",
Systemname
[e
->systemname
]);
** "kill" a distress call
int x
, y
; /* quadrant coordinates */
int f
; /* set if user is to be informed */
register struct event
*e
;
for (i
= 0; i
< MAXEVENTS
; i
++)
if (e
->x
!= x
|| e
->y
!= y
)
printf("Distress call for starbase in %d,%d nullified\n",
printf("Distress call for %s in quadrant %d,%d nullified\n",
Systemname
[e
->systemname
], x
, y
);
q
->qsystemname
= e
->systemname
;