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

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

diff --git a/usr/src/games/trek/setwarp.c b/usr/src/games/trek/setwarp.c
new file mode 100644 (file)
index 0000000..6384919
--- /dev/null
+++ b/usr/src/games/trek/setwarp.c
@@ -0,0 +1,31 @@
+#ifndef lint
+static char sccsid[] = "@(#)setwarp.c  4.1     (Berkeley)      %G%";
+#endif not lint
+
+# include      "trek.h"
+# include      "getpar.h"
+
+/*
+**  SET WARP FACTOR
+**
+**     The warp factor is set for future move commands.  It is
+**     checked for consistancy.
+*/
+
+setwarp()
+{
+       float   warpfac;
+
+       warpfac = getfltpar("Warp factor");
+       if (warpfac < 0.0)
+               return;
+       if (warpfac < 1.0)
+               return (printf("Minimum warp speed is 1.0\n"));
+       if (warpfac > 10.0)
+               return (printf("Maximum speed is warp 10.0\n"));
+       if (warpfac > 6.0)
+               printf("Damage to warp engines may occur above warp 6.0\n");
+       Ship.warp = warpfac;
+       Ship.warp2 = Ship.warp * warpfac;
+       Ship.warp3 = Ship.warp2 * warpfac;
+}