* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted provided
* that: (1) source distributions retain this entire copyright notice and
* comment, and (2) distributions including binaries display the following
* acknowledgement: ``This product includes software developed by the
* University of California, Berkeley and its contributors'' in the
* documentation or other materials provided with the distribution and in
* all advertising materials mentioning features or use of this software.
* 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 ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
* WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
static char sccsid
[] = "@(#)destruct.c 5.5 (Berkeley) 6/1/90";
** Self Destruct Sequence
** The computer starts up the self destruct sequence. Obviously,
** if the computer is out nothing can happen. You get a countdown
** and a request for password. This must match the password that
** you entered at the start of the game.
** You get to destroy things when you blow up; hence, it is
** possible to win the game by destructing if you take the last
** By the way, the \032 in the message is a ^Z, which is because
** the terminal in my office is an ADM-3, which uses that char-
** acter to clear the screen. I also stick in a \014 (form feed)
** because that clears some other screens.
printf("\n\07 --- WORKING ---\07\n");
/* output the count 10 9 8 7 6 */
/* check for password on new line only */
getstrpar("Enter password verification", checkpass
, 14, 0);
if (!sequal(checkpass
, Game
.passwd
))
return (printf("Self destruct sequence aborted\n"));
printf("Password verified; self destruct sequence continues:\n");
/* output count 5 4 3 2 1 0 */
printf("\032\014***** %s destroyed *****\n", Ship
.shipname
);
/* let's see what we can blow up!!!! */
zap
= 20.0 * Ship
.energy
;
Game
.deaths
+= Ship
.crew
;
for (i
= 0; i
< Etc
.nkling
; )
if (Etc
.klingon
[i
].power
* Etc
.klingon
[i
].dist
<= zap
)
killk(Etc
.klingon
[i
].x
, Etc
.klingon
[i
].y
);
/* if we didn't kill the last Klingon (detected by killk), */