date and time created 83/03/23 15:01:03 by mckusick

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

diff --git a/usr/src/games/trek/rest.c b/usr/src/games/trek/rest.c
new file mode 100644 (file)
index 0000000..04967c6
--- /dev/null
+++ b/usr/src/games/trek/rest.c
@@ -0,0 +1,47 @@
+#ifndef lint
+static char sccsid[] = "@(#)rest.c     4.1     (Berkeley)      %G%";
+#endif not lint
+
+# include      "trek.h"
+# include      "getpar.h"
+
+/*
+**  REST FOR REPAIRS
+**
+**     You sit around and wait for repairs to happen.  Actually, you
+**     sit around and wait for anything to happen.  I do want to point
+**     out however, that Klingons are not as patient as you are, and
+**     they tend to attack you while you are resting.
+**
+**     You can never rest through a long range tractor beam.
+**
+**     In events() you will be given an opportunity to cancel the
+**     rest period if anything momentous happens.
+*/
+
+rest()
+{
+       float                   t;
+       register int            percent;
+
+       /* get the time to rest */
+       t = getfltpar("How long");
+       if (t <= 0.0)
+               return;
+       percent = 100 * t / Now.time + 0.5;
+       if (percent >= 70)
+       {
+               printf("Spock: That would take %d%% of our remaining time.\n",
+                       percent);
+               if (!getynpar("Are you really certain that is wise"))
+                       return;
+       }
+       Move.time = t;
+
+       /* boundary condition is the LRTB */
+       t = Now.eventptr[E_LRTB]->date - Now.date;
+       if (Ship.cond != DOCKED && Move.time > t)
+               Move.time = t + 0.0001;
+       Move.free = 0;
+       Move.resting = 1;
+}