xref: /original-bsd/games/trek/rest.c (revision 648cab2a)
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
6  * provided that the above copyright notice and this paragraph are
7  * duplicated in all such forms and that any documentation,
8  * advertising materials, and other materials related to such
9  * distribution and use acknowledge that the software was developed
10  * by the University of California, Berkeley.  The name of the
11  * University may not be used to endorse or promote products derived
12  * from this software without specific prior written permission.
13  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16  */
17 
18 #ifndef lint
19 static char sccsid[] = "@(#)rest.c	5.3 (Berkeley) 06/18/88";
20 #endif /* not lint */
21 
22 # include	"trek.h"
23 # include	"getpar.h"
24 
25 /*
26 **  REST FOR REPAIRS
27 **
28 **	You sit around and wait for repairs to happen.  Actually, you
29 **	sit around and wait for anything to happen.  I do want to point
30 **	out however, that Klingons are not as patient as you are, and
31 **	they tend to attack you while you are resting.
32 **
33 **	You can never rest through a long range tractor beam.
34 **
35 **	In events() you will be given an opportunity to cancel the
36 **	rest period if anything momentous happens.
37 */
38 
39 rest()
40 {
41 	double			t;
42 	register int		percent;
43 
44 	/* get the time to rest */
45 	t = getfltpar("How long");
46 	if (t <= 0.0)
47 		return;
48 	percent = 100 * t / Now.time + 0.5;
49 	if (percent >= 70)
50 	{
51 		printf("Spock: That would take %d%% of our remaining time.\n",
52 			percent);
53 		if (!getynpar("Are you really certain that is wise"))
54 			return;
55 	}
56 	Move.time = t;
57 
58 	/* boundary condition is the LRTB */
59 	t = Now.eventptr[E_LRTB]->date - Now.date;
60 	if (Ship.cond != DOCKED && Move.time > t)
61 		Move.time = t + 0.0001;
62 	Move.free = 0;
63 	Move.resting = 1;
64 }
65