destruct.c revision 1.6 1 /* $NetBSD: destruct.c,v 1.6 2000/07/03 03:57:44 matt 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. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by the University of
18 * California, Berkeley and its contributors.
19 * 4. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
36 #include <sys/cdefs.h>
37 #ifndef lint
38 #if 0
39 static char sccsid[] = "@(#)destruct.c 8.1 (Berkeley) 5/31/93";
40 #else
41 __RCSID("$NetBSD: destruct.c,v 1.6 2000/07/03 03:57:44 matt Exp $");
42 #endif
43 #endif /* not lint */
44
45 #include <stdio.h>
46 #include <string.h>
47 #include <unistd.h>
48 #include "trek.h"
49 #include "getpar.h"
50
51 /*
52 ** Self Destruct Sequence
53 **
54 ** The computer starts up the self destruct sequence. Obviously,
55 ** if the computer is out nothing can happen. You get a countdown
56 ** and a request for password. This must match the password that
57 ** you entered at the start of the game.
58 **
59 ** You get to destroy things when you blow up; hence, it is
60 ** possible to win the game by destructing if you take the last
61 ** Klingon with you.
62 **
63 ** By the way, the \032 in the message is a ^Z, which is because
64 ** the terminal in my office is an ADM-3, which uses that char-
65 ** acter to clear the screen. I also stick in a \014 (form feed)
66 ** because that clears some other screens.
67 **
68 ** Uses trace flag 41
69 */
70
71 /*ARGSUSED*/
72 void
73 destruct(v)
74 int v __attribute__((__unused__));
75 {
76 char checkpass[15];
77 int i, j;
78 double zap;
79
80 if (damaged(COMPUTER)) {
81 out(COMPUTER);
82 return;
83 }
84 printf("\n\07 --- WORKING ---\07\n");
85 sleep(3);
86 /* output the count 10 9 8 7 6 */
87 for (i = 10; i > 5; i--)
88 {
89 for (j = 10; j > i; j--)
90 printf(" ");
91 printf("%d\n", i);
92 sleep(1);
93 }
94 /* check for password on new line only */
95 skiptonl(0);
96 getstrpar("Enter password verification", checkpass, 14, 0);
97 sleep(2);
98 if (strcmp(checkpass, Game.passwd) != 0) {
99 printf("Self destruct sequence aborted\n");
100 return;
101 }
102 printf("Password verified; self destruct sequence continues:\n");
103 sleep(2);
104 /* output count 5 4 3 2 1 0 */
105 for (i = 5; i >= 0; i--)
106 {
107 sleep(1);
108 for (j = 5; j > i; j--)
109 printf(" ");
110 printf("%d\n", i);
111 }
112 sleep(2);
113 printf("\032\014***** %s destroyed *****\n", Ship.shipname);
114 Game.killed = 1;
115 /* let's see what we can blow up!!!! */
116 zap = 20.0 * Ship.energy;
117 Game.deaths += Ship.crew;
118 for (i = 0; i < Etc.nkling; )
119 {
120 if (Etc.klingon[i].power * Etc.klingon[i].dist <= zap)
121 killk(Etc.klingon[i].x, Etc.klingon[i].y);
122 else
123 i++;
124 }
125 /* if we didn't kill the last Klingon (detected by killk), */
126 /* then we lose.... */
127 lose(L_DSTRCT);
128 }
129