date and time created 83/03/23 14:58:53 by mckusick

SCCS-vsn: games/trek/destruct.c 4.1

diff --git a/usr/src/games/trek/destruct.c b/usr/src/games/trek/destruct.c
new file mode 100644 (file)
index 0000000..fad5711
--- /dev/null
+++ b/usr/src/games/trek/destruct.c
@@ -0,0 +1,77 @@
+#ifndef lint
+static char sccsid[] = "@(#)destruct.c 4.1     (Berkeley)      %G%";
+#endif not lint
+
+# include      "trek.h"
+
+/*
+**  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
+**     Klingon with you.
+**
+**     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.
+**
+**     Uses trace flag 41
+*/
+
+destruct()
+{
+       char            checkpass[15];
+       register int    i, j;
+       float           zap;
+
+       if (damaged(COMPUTER))
+               return (out(COMPUTER));
+       printf("\n\a --- WORKING ---\a\n");
+       sleep(3);
+       /* output the count 10 9 8 7 6 */
+       for (i = 10; i > 5; i--)
+       {
+               for (j = 10;  j > i; j--)
+                       printf("   ");
+               printf("%d\n", i);
+               sleep(1);
+       }
+       /* check for password on new line only */
+       skiptonl(0);
+       getstrpar("Enter password verification", checkpass, 14, 0);
+       sleep(2);
+       if (!sequal(checkpass, Game.passwd))
+               return (printf("Self destruct sequence aborted\n"));
+       printf("Password verified; self destruct sequence continues:\n");
+       sleep(2);
+       /* output count 5 4 3 2 1 0 */
+       for (i = 5; i >= 0; i--)
+       {
+               sleep(1);
+               for (j = 5; j > i; j--)
+                       printf("   ");
+               printf("%d\n", i);
+       }
+       sleep(2);
+       printf("\032\014***** %s destroyed *****\n", Ship.shipname);
+       Game.killed = 1;
+       /* 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);
+               else
+                       i =+ 1;
+       }
+       /* if we didn't kill the last Klingon (detected by killk), */
+       /* then we lose.... */
+       lose(L_DSTRCT);
+}