[unix-history] / trek / setwarp.c

# 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;
}
Commit	Line	Data
520d5775 EA	1	# include "trek.h"
	2	# include "getpar.h"
	3
	4	/*
	5	** SET WARP FACTOR
	6	**
	7	** The warp factor is set for future move commands. It is
	8	** checked for consistancy.
	9	*/
	10
	11	setwarp()
	12	{
	13	float warpfac;
	14
	15	warpfac = getfltpar("Warp factor");
	16	if (warpfac < 0.0)
	17	return;
	18	if (warpfac < 1.0)
	19	return (printf("Minimum warp speed is 1.0\n"));
	20	if (warpfac > 10.0)
	21	return (printf("Maximum speed is warp 10.0\n"));
	22	if (warpfac > 6.0)
	23	printf("Damage to warp engines may occur above warp 6.0\n");
	24	Ship.warp = warpfac;
	25	Ship.warp2 = Ship.warp * warpfac;
	26	Ship.warp3 = Ship.warp2 * warpfac;
	27	}