|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. ! 4: * ! 5: * Redistribution and use in source and binary forms are permitted provided ! 6: * that: (1) source distributions retain this entire copyright notice and ! 7: * comment, and (2) distributions including binaries display the following ! 8: * acknowledgement: ``This product includes software developed by the ! 9: * University of California, Berkeley and its contributors'' in the ! 10: * documentation or other materials provided with the distribution and in ! 11: * all advertising materials mentioning features or use of this software. ! 12: * Neither the name of the University nor the names of its contributors may ! 13: * be used to endorse or promote products derived from this software without ! 14: * specific prior written permission. ! 15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED ! 16: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF ! 17: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 18: */ ! 19: ! 20: #ifndef lint ! 21: static char sccsid[] = "@(#)setwarp.c 5.4 (Berkeley) 6/1/90"; ! 22: #endif /* not lint */ ! 23: ! 24: # include "trek.h" ! 25: # include "getpar.h" ! 26: ! 27: /* ! 28: ** SET WARP FACTOR ! 29: ** ! 30: ** The warp factor is set for future move commands. It is ! 31: ** checked for consistancy. ! 32: */ ! 33: ! 34: setwarp() ! 35: { ! 36: double warpfac; ! 37: ! 38: warpfac = getfltpar("Warp factor"); ! 39: if (warpfac < 0.0) ! 40: return; ! 41: if (warpfac < 1.0) ! 42: return (printf("Minimum warp speed is 1.0\n")); ! 43: if (warpfac > 10.0) ! 44: return (printf("Maximum speed is warp 10.0\n")); ! 45: if (warpfac > 6.0) ! 46: printf("Damage to warp engines may occur above warp 6.0\n"); ! 47: Ship.warp = warpfac; ! 48: Ship.warp2 = Ship.warp * warpfac; ! 49: Ship.warp3 = Ship.warp2 * warpfac; ! 50: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.