1 1.9 andvar /* $NetBSD: setwarp.c,v 1.9 2022/05/24 06:27:59 andvar Exp $ */ 2 1.3 cgd 3 1.1 cgd /* 4 1.3 cgd * Copyright (c) 1980, 1993 5 1.3 cgd * The Regents of the University of California. All rights reserved. 6 1.1 cgd * 7 1.1 cgd * Redistribution and use in source and binary forms, with or without 8 1.1 cgd * modification, are permitted provided that the following conditions 9 1.1 cgd * are met: 10 1.1 cgd * 1. Redistributions of source code must retain the above copyright 11 1.1 cgd * notice, this list of conditions and the following disclaimer. 12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright 13 1.1 cgd * notice, this list of conditions and the following disclaimer in the 14 1.1 cgd * documentation and/or other materials provided with the distribution. 15 1.6 agc * 3. Neither the name of the University nor the names of its contributors 16 1.1 cgd * may be used to endorse or promote products derived from this software 17 1.1 cgd * without specific prior written permission. 18 1.1 cgd * 19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 1.1 cgd * SUCH DAMAGE. 30 1.1 cgd */ 31 1.1 cgd 32 1.4 christos #include <sys/cdefs.h> 33 1.1 cgd #ifndef lint 34 1.3 cgd #if 0 35 1.3 cgd static char sccsid[] = "@(#)setwarp.c 8.1 (Berkeley) 5/31/93"; 36 1.3 cgd #else 37 1.9 andvar __RCSID("$NetBSD: setwarp.c,v 1.9 2022/05/24 06:27:59 andvar Exp $"); 38 1.3 cgd #endif 39 1.1 cgd #endif /* not lint */ 40 1.1 cgd 41 1.4 christos #include <stdio.h> 42 1.4 christos #include "trek.h" 43 1.4 christos #include "getpar.h" 44 1.1 cgd 45 1.1 cgd /* 46 1.1 cgd ** SET WARP FACTOR 47 1.1 cgd ** 48 1.1 cgd ** The warp factor is set for future move commands. It is 49 1.9 andvar ** checked for consistency. 50 1.1 cgd */ 51 1.1 cgd 52 1.4 christos /*ARGSUSED*/ 53 1.4 christos void 54 1.8 dholland setwarp(int v __unused) 55 1.1 cgd { 56 1.1 cgd double warpfac; 57 1.1 cgd 58 1.1 cgd warpfac = getfltpar("Warp factor"); 59 1.1 cgd if (warpfac < 0.0) 60 1.1 cgd return; 61 1.4 christos if (warpfac < 1.0) { 62 1.4 christos printf("Minimum warp speed is 1.0\n"); 63 1.4 christos return; 64 1.4 christos } 65 1.4 christos if (warpfac > 10.0) { 66 1.4 christos printf("Maximum speed is warp 10.0\n"); 67 1.4 christos return; 68 1.4 christos } 69 1.1 cgd if (warpfac > 6.0) 70 1.1 cgd printf("Damage to warp engines may occur above warp 6.0\n"); 71 1.1 cgd Ship.warp = warpfac; 72 1.1 cgd Ship.warp2 = Ship.warp * warpfac; 73 1.1 cgd Ship.warp3 = Ship.warp2 * warpfac; 74 1.1 cgd } 75