Home | History | Annotate | Download | only in trek

Lines Matching refs:WARP

1 /*	$NetBSD: warp.c,v 1.11 2009/05/24 22:55:03 dholland Exp $	*/
35 static char sccsid[] = "@(#)warp.c	8.1 (Berkeley) 5/31/93";
37 __RCSID("$NetBSD: warp.c,v 1.11 2009/05/24 22:55:03 dholland Exp $");
49 **  MOVE UNDER WARP POWER
72 	warp(fl, c, d);
76 warp(int fl, int c, double d)
93 	if (damaged(WARP)) {
94 		out(WARP);
126 	if (Ship.warp > 6.0 && ranf(100) < 20 + 15 * (Ship.warp - 6.0)) {
130 		repairs = (frac + 1.0) * Ship.warp * (franf() + 0.25) * 0.20;
131 		damage(WARP, repairs);
142 	if (Ship.warp <= 9.0)
144 	printf("\n\n  ___ Speed exceeding warp nine ___\n\n");
158 		/* time warp */
160 			/* positive time warp */
161 			time = (Ship.warp - 8.0) * dist * (franf() + 1.0);