![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to trek.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / games / trek|
Return to trek.h CVS log | Up to [Research Unix] / researchv10no / games / trek |
1.1 root 1: #
2:
3: #define ever (;;)
4:
5: /* external function definitions */
6: extern double franf(); /* floating random number function */
7: extern double sqrt(); /* square root */
8: extern double sin(), cos(); /* trig functions */
9: extern double atan2(); /* fancy arc tangent function */
10: extern double log(); /* log base e */
11: extern double pow(); /* power function */
12: extern double fabs(); /* absolute value function */
13: extern double exp(); /* exponential function */
14:
15: /********************* GALAXY **************************/
16:
17: /* galactic parameters */
18: # define NSECTS 10 /* dimensions of quadrant in sectors */
19: # define NQUADS 8 /* dimension of galazy in quadrants */
20: # define NINHAB 32 /* number of quadrants which are inhabited */
21:
22: #define QUAD struct quad
23: QUAD /* definition for each quadrant */
24: {
25: char bases; /* number of bases in this quadrant */
26: char qkling:4; /* number of Klingons in this quadrant */
27: char holes:4; /* number of black holes in this quadrant */
28: char stars; /* number of stars in this quadrant */
29: char systemname; /* starsystem name (see below) */
30: int scanned; /* star chart entry (see below) */
31: };
32: /* systemname conventions:
33: * 1 -> NINHAB index into Systemname table for live system.
34: * + Q_GHOST ghost starsystem.
35: * + Q_DISTRESS distressed starsystem.
36: * the index into the Distress table, which will
37: * have the starsystem name.
38: * 0 dead or nonexistent starsystem
39: *
40: * starchart ("scanned") conventions:
41: * 0 -> 999 taken as is
42: * -1 not yet scanned ("...")
43: * 1000 supernova ("///")
44: * 1001 starbase + ??? (".1.")
45: */
46:
47: /* ascii names of systems */
48: extern char *Systemname[NINHAB];
49:
50: /* quadrant definition */
51: QUAD Quad[NQUADS][NQUADS];
52:
53: /* defines for sector map (below) */
54: # define EMPTY '.'
55: # define STAR '*'
56: # define BASE '#'
57: # define ENTERPRISE 'E'
58: # define QUEENE 'Q'
59: # define KLINGON 'K'
60: # define INHABIT '@'
61: # define BLACKHOLE ' '
62:
63: /* current sector map */
64: char Sect[NSECTS][NSECTS];
65:
66: /* current position of Enterprise */
67: char Quadx, Quady; /* current quadrant */
68: char Sectx, Secty; /* current sector */
69:
70: /************************ DEVICES ******************************/
71:
72: # define NDEV 16 /* max number of devices */
73: char Damage[NDEV]; /* set if device damaged */
74:
75: /* device tokens */
76: # define WARP 0 /* warp engines */
77: # define SRSCAN 1 /* short range scanners */
78: # define LRSCAN 2 /* long range scanners */
79: # define PHASER 3 /* phaser control */
80: # define TORPED 4 /* photon torpedo control */
81: # define IMPULSE 5 /* impulse engines */
82: # define SHIELD 6 /* shield control */
83: # define COMPUTER 7 /* on board computer */
84: # define SSRADIO 8 /* subspace radio */
85: # define LIFESUP 9 /* life support systems */
86: # define SINS 10 /* Space Inertial Navigation System */
87: # define CLOAK 11 /* cloaking device */
88: # define XPORTER 12 /* transporter */
89: # define SHUTTLE 13 /* shuttlecraft */
90:
91: /* device names */
92: #define DEVICE struct device
93: DEVICE
94: {
95: char *name; /* device name */
96: char *person; /* the person who fixes it */
97: };
98:
99: DEVICE Device[NDEV];
100:
101: /*************************** EVENTS ****************************/
102:
103: # define NEVENTS 12 /* number of different event types */
104:
105: # define E_SNOVA 0 /* supernova occurs */
106: # define E_LRTB 1 /* long range tractor beam */
107: # define E_KATSB 2 /* Klingon attacks starbase */
108: # define E_KDESB 3 /* Klingon destroys starbase */
109: # define E_ISSUE 4 /* distress call is issued */
110: # define E_ENSLV 5 /* Klingons enslave a quadrant */
111: # define E_REPRO 6 /* a Klingon is reproduced */
112: # define E_FIXDV 7 /* fix a device */
113: # define E_ATTACK 8 /* Klingon attack during rest period */
114: # define E_SNAP 9 /* take a snapshot for time warp */
115: # define E_NREPORT 32 /* distress call not yet reported */
116: # define Q_DISTRESS 64
117: # define Q_GHOST 32
118: # define Q_STARNAME 31
119:
120: #define EVENT struct event
121: EVENT
122: {
123: char x, y; /* coordinates */
124: char evcode; /* event type */
125: char evdata; /* starsystem name */
126: float date; /* trap stardate */
127: };
128: /* systemname conventions:
129: * 1 -> NINHAB index into Systemname table for reported distress calls
130: * + E_NREPORT flag marking distress call not reported (SS radio out)
131: */
132:
133: # define MAXEVENTS 25 /* max number of concurrently pending events */
134:
135: EVENT Event[MAXEVENTS]; /* dynamic event list; one entry per pending event */
136:
137: /***************************** KLINGONS *******************************/
138:
139: #define KLINGONS struct klingon
140: KLINGONS
141: {
142: char x, y; /* coordinates */
143: int power; /* power left */
144: float dist; /* distance to Enterprise */
145: float avgdist; /* average over this move */
146: };
147: # define MAXKLQUAD 9 /* maximum klingons per quadrant */
148: KLINGONS Kling[MAXKLQUAD];
149: int Nkling; /* number of Klingons in this sector */
150:
151: /********************** MISCELLANEOUS ***************************/
152:
153: /* condition codes */
154: # define GREEN 0
155: # define DOCKED 1
156: # define YELLOW 2
157: # define RED 3
158:
159: /*
160: * note that much of the stuff in the following structs CAN NOT
161: * be moved around!!!!
162: */
163:
164: /* initial information */
165: struct
166: {
167: char bases; /* number of starbases */
168: char kling; /* number of klingons */
169: char torped; /* photon torpedos */
170: float date; /* stardate */
171: float time; /* time left */
172: float resource; /* Federation resources */
173: int energy; /* starship's energy */
174: int shield; /* energy in shields */
175: float reserves; /* life support reserves */
176: int crew; /* size of ship's complement */
177: int brigfree; /* max possible number of captives */
178: } Initial;
179:
180: /* status information */
181: struct
182: {
183: char bases; /* number of starbases */
184: char kling; /* number of klingons */
185: char torped; /* torpedoes */
186: float date; /* stardate */
187: float time; /* time left */
188: float resource; /* Federation resources */
189: int energy; /* starship's energy */
190: int shield; /* energy in shields */
191: float reserves; /* life support reserves */
192: int crew; /* ship's complement */
193: int brigfree; /* space left in brig */
194: char shldup; /* shield up flag */
195: char cond; /* condition code */
196: char sinsbad; /* Space Inertial Navigation System condition */
197: char cloaked; /* set if cloaking device on */
198: float warp; /* warp factor */
199: float warp2; /* warp factor squared */
200: float warp3; /* warp factor cubed */
201: float cloakdate; /* stardate we became cloaked */
202: char *shipname; /* name of current starship */
203: char ship; /* current starship */
204: char distressed; /* number of currently distressed quadrants */
205: } Status;
206:
207: /* sinsbad is set if SINS is working but not calibrated */
208:
209: /* game related information, mostly scoring */
210: #define PWDLEN 15
211: long inittime;
212: struct
213: {
214: int gkillk; /* number of klingons killed */
215: int helps; /* number of help calls */
216: int deaths; /* number of deaths onboard Enterprise */
217: char negenbar; /* number of hits on negative energy barrier */
218: char killb; /* number of starbases killed */
219: int kills; /* number of stars killed */
220: char skill; /* skill rating of player */
221: char length; /* length of game */
222: char killed; /* set if you were killed */
223: char killinhab; /* number of inhabited starsystems killed */
224: char tourn; /* set if a tournament game */
225: char passwd[PWDLEN]; /* game password */
226: char snap; /* set if snapshot taken */
227: int captives; /* total number of captives taken */
228: } Game;
229:
230: /* per move information */
231: struct
232: {
233: char free; /* set if a move is free */
234: char endgame; /* end of game flag */
235: char shldchg; /* set if shields changed this move */
236: char newquad; /* set if just entered this quadrant */
237: char resting; /* set if this move is a rest */
238: float delta; /* time used this move */
239: } Move;
240:
241: /* parametric information */
242: struct
243: {
244: float damfac[NDEV]; /* damage factor */
245: float dockfac; /* docked repair time factor */
246: float regenfac; /* regeneration factor */
247: int stopengy; /* energy to do emergency stop */
248: int shupengy; /* energy to put up shields */
249: int klingpwr; /* Klingon initial power */
250: int warptime; /* time chewer multiplier */
251: float phasfac; /* Klingon phaser power eater factor */
252: char moveprob[6]; /* probability that a Klingon moves */
253: float movefac[6]; /* Klingon move distance multiplier */
254: float eventdly[NEVENTS]; /* event time multipliers */
255: float navigcrud[2]; /* navigation crudup factor */
256: int cloakenergy; /* cloaking device energy per stardate */
257: float damprob[NDEV]; /* damage probability */
258: float hitfac; /* Klingon attack factor */
259: } Param;
260:
261: /* Sum of damage probabilities must add to 1000 */
262:
263: /* Other crap, mostly redundant stuff kept for efficiency reasons */
264: struct
265: {
266: EVENT *eventptr[NEVENTS]; /* pointer to event structs */
267: } Etc;
268:
269: /*
270: * eventptr is a pointer to the event[] entry of the last
271: * scheduled event of each type. Zero if no such event scheduled.
272: */
273:
274: /* Klingon move indicies */
275: # define KM_OB 0 /* Old quadrant, Before attack */
276: # define KM_OA 1 /* Old quadrant, After attack */
277: # define KM_EB 2 /* Enter quadrant, Before attack */
278: # define KM_EA 3 /* Enter quadrant, After attack */
279: # define KM_LB 4 /* Leave quadrant, Before attack */
280: # define KM_LA 5 /* Leave quadrant, After attack */
281:
282: /* you lose codes */
283: # define L_NOTIME 1 /* ran out of time */
284: # define L_NOENGY 2 /* ran out of energy */
285: # define L_DSTRYD 3 /* destroyed by a Klingon */
286: # define L_NEGENB 4 /* ran into the negative energy barrier */
287: # define L_SUICID 5 /* destroyed in a nova */
288: # define L_SNOVA 6 /* destroyed in a supernova */
289: # define L_NOLIFE 7 /* life support died (so did you) */
290: # define L_NOHELP 8 /* you could not be rematerialized */
291: # define L_TOOFAST 9 /* pretty stupid going at warp 10 */
292: # define L_STAR 10 /* ran into a star */
293: # define L_DSTRCT 11 /* self destructed */
294: # define L_CAPTURED 12 /* captured by Klingons */
295: # define L_NOCREW 13 /* you ran out of crew */
296: #define L_CHEAT 14 /* probably cheating */
297:
298: # define CVNTAB struct cvntab
299: CVNTAB /* used for getcodpar() paramater list */
300: {
301: char *abrev;
302: char *full;
303: };
304:
305: #define XY struct xy
306: XY
307: {
308: char x, y; /* coordinates */
309: };
310:
311: /* starbase coordinates */
312: # define MAXBASES 9 /* maximum number of starbases in galaxy */
313:
314: #define SIGINT 2
315: int mkfault; /* marks outstanding signal */
316:
317: XY Base[MAXBASES]; /* quad coords of starbases */
318: XY Starbase; /* starbase in current quadrant */
319:
320: /* distress calls */
321: # define MAXDISTR 4 /* maximum concurrent distress calls */
322:
323: #include <setjmp.h>
324: jmp_buf errjmp;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.