1*9f4a9600Sandvar /* $NetBSD: setwarp.c,v 1.9 2022/05/24 06:27:59 andvar Exp $ */
2887dd216Scgd
361f28255Scgd /*
4887dd216Scgd * Copyright (c) 1980, 1993
5887dd216Scgd * The Regents of the University of California. All rights reserved.
661f28255Scgd *
761f28255Scgd * Redistribution and use in source and binary forms, with or without
861f28255Scgd * modification, are permitted provided that the following conditions
961f28255Scgd * are met:
1061f28255Scgd * 1. Redistributions of source code must retain the above copyright
1161f28255Scgd * notice, this list of conditions and the following disclaimer.
1261f28255Scgd * 2. Redistributions in binary form must reproduce the above copyright
1361f28255Scgd * notice, this list of conditions and the following disclaimer in the
1461f28255Scgd * documentation and/or other materials provided with the distribution.
15e5aeb4eaSagc * 3. Neither the name of the University nor the names of its contributors
1661f28255Scgd * may be used to endorse or promote products derived from this software
1761f28255Scgd * without specific prior written permission.
1861f28255Scgd *
1961f28255Scgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
2061f28255Scgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2161f28255Scgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2261f28255Scgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
2361f28255Scgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2461f28255Scgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2561f28255Scgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
2661f28255Scgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
2761f28255Scgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
2861f28255Scgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
2961f28255Scgd * SUCH DAMAGE.
3061f28255Scgd */
3161f28255Scgd
32ef383c95Schristos #include <sys/cdefs.h>
3361f28255Scgd #ifndef lint
34887dd216Scgd #if 0
35887dd216Scgd static char sccsid[] = "@(#)setwarp.c 8.1 (Berkeley) 5/31/93";
36887dd216Scgd #else
37*9f4a9600Sandvar __RCSID("$NetBSD: setwarp.c,v 1.9 2022/05/24 06:27:59 andvar Exp $");
38887dd216Scgd #endif
3961f28255Scgd #endif /* not lint */
4061f28255Scgd
41ef383c95Schristos #include <stdio.h>
4261f28255Scgd #include "trek.h"
4361f28255Scgd #include "getpar.h"
4461f28255Scgd
4561f28255Scgd /*
4661f28255Scgd ** SET WARP FACTOR
4761f28255Scgd **
4861f28255Scgd ** The warp factor is set for future move commands. It is
49*9f4a9600Sandvar ** checked for consistency.
5061f28255Scgd */
5161f28255Scgd
52ef383c95Schristos /*ARGSUSED*/
53ef383c95Schristos void
setwarp(int v __unused)54bf0917b6Sdholland setwarp(int v __unused)
5561f28255Scgd {
5661f28255Scgd double warpfac;
5761f28255Scgd
5861f28255Scgd warpfac = getfltpar("Warp factor");
5961f28255Scgd if (warpfac < 0.0)
6061f28255Scgd return;
61ef383c95Schristos if (warpfac < 1.0) {
62ef383c95Schristos printf("Minimum warp speed is 1.0\n");
63ef383c95Schristos return;
64ef383c95Schristos }
65ef383c95Schristos if (warpfac > 10.0) {
66ef383c95Schristos printf("Maximum speed is warp 10.0\n");
67ef383c95Schristos return;
68ef383c95Schristos }
6961f28255Scgd if (warpfac > 6.0)
7061f28255Scgd printf("Damage to warp engines may occur above warp 6.0\n");
7161f28255Scgd Ship.warp = warpfac;
7261f28255Scgd Ship.warp2 = Ship.warp * warpfac;
7361f28255Scgd Ship.warp3 = Ship.warp2 * warpfac;
7461f28255Scgd }
75