9eb70960c277f72971d3d356e0fec83af5253cf4
1 #include "sst.h"\r
2 \r
3 static void getcd(int, int);\r
4 \r
5 void move(void) {\r
6         double angle, deltax, deltay, bigger, x, y,\r
7         finald, finalx, finaly, stopegy;\r
8         int trbeam = 0, n, l, ix, iy, kink, kinks, iquad;\r
9 \r
10         if (inorbit) {\r
11                 prout("Helmsman Sulu- \"Leaving standard orbit.\"");\r
12                 inorbit = 0;\r
13         }\r
14 \r
15         angle = ((15.0 - direc) * 0.5235988);\r
16         deltax = -sin(angle);\r
17         deltay = cos(angle);\r
18         if (fabs(deltax) > fabs(deltay))\r
19                 bigger = fabs(deltax);\r
20         else\r
21                 bigger = fabs(deltay);\r
22                 \r
23         deltay /= bigger;\r
24         deltax /= bigger;\r
25 \r
26         /* If tractor beam is to occur, don't move full distance */\r
27         if (state.date+Time >= future[FTBEAM]) {\r
28                 trbeam = 1;\r
29                 condit = IHRED;\r
30                 dist = dist*(future[FTBEAM]-state.date)/Time + 0.1;\r
31                 Time = future[FTBEAM] - state.date + 1e-5;\r
32         }\r
33         /* Move within the quadrant */\r
35         x = sectx;\r
36         y = secty;\r
37         n = 10.0*dist*bigger+0.5;\r
38 \r
39         if (n > 0) {\r
40                 for (l = 1; l <= n; l++) {\r
41                         ix = (x += deltax) + 0.5;\r
42                         iy = (y += deltay) + 0.5;\r
43                         if (ix < 1 || ix > 10 || iy < 1 || iy > 10) {\r
44                                 /* Leaving quadrant -- allow final enemy attack */\r
45                                 /* Don't do it if being pushed by Nova */\r
46                                 if (nenhere != 0 && iattak != 2) {\r
47                                         newcnd();\r
48                                         for (l = 1; l <= nenhere; l++) {\r
49                                                 finald = sqrt((ix-kx[l])*(double)(ix-kx[l]) +\r
50                                                                           (iy-ky[l])*(double)(iy-ky[l]));\r
51                                                 kavgd[l] = 0.5 * (finald+kdist[l]);\r
52                                         }\r
54                                         if (alldone) return;\r
55                                 }\r
56                                 /* compute final position -- new quadrant and sector */\r
59                                 ix = x+10.0*dist*bigger*deltax+0.5;\r
60                                 iy = y+10.0*dist*bigger*deltay+0.5;\r
61                                 /* check for edge of galaxy */\r
62                                 kinks = 0;\r
63                                 do {\r
64                                         kink = 0;\r
65                                         if (ix <= 0) {\r
66                                                 ix = -ix + 1;\r
67                                                 kink = 1;\r
68                                         }\r
69                                         if (iy <= 0) {\r
70                                                 iy = -iy + 1;\r
71                                                 kink = 1;\r
72                                         }\r
73                                         if (ix > 80) {\r
74                                                 ix = 161 - ix;\r
75                                                 kink = 1;\r
76                                         }\r
77                                         if (iy > 80) {\r
78                                                 iy = 161 - iy;\r
79                                                 kink = 1;\r
80                                         }\r
81                                         if (kink) kinks = 1;\r
82                                 } while (kink);\r
83 \r
84                                 if (kinks) {\r
85                                         nkinks += 1;\r
86                                         if (nkinks == 3) {\r
87                                                 /* Three strikes -- you're out! */\r
88                                                 finish(FNEG3);\r
89                                                 return;\r
90                                         }\r
91                                         prout("\nYOU HAVE ATTEMPTED TO CROSS THE NEGATIVE ENERGY BARRIER\n"\r
92                                                  "AT THE EDGE OF THE GALAXY.  THE THIRD TIME YOU TRY THIS,\n"\r
93                                                  "YOU WILL BE DESTROYED.\n");\r
94                                 }\r
95                                 /* Compute final position in new quadrant */\r
96                                 if (trbeam) return; /* Don't bother if we are to be beamed */\r
99                                 sectx = ix - 10*(quadx-1);\r
100                                 secty = iy - 10*(quady-1);\r
101                                 proutn("\nEntering");\r
103                                 skip(1);\r
106                                 return;\r
107                         }\r
109                         if (iquad != IHDOT) {\r
110                                 /* object encountered in flight path */\r
111                                 stopegy = 50.0*dist/Time;\r
112                                 dist=0.1*sqrt((sectx-ix)*(double)(sectx-ix) +\r
113                                                           (secty-iy)*(double)(secty-iy));\r
115                                         case IHT: /* Ram a Tholian */\r
116                                         case IHK: /* Ram enemy ship */\r
117                                         case IHC:\r
118                                         case IHS:\r
119                                         case IHR:\r
120                                                 sectx = ix;\r
121                                                 secty = iy;\r
123                                                 finalx = sectx;\r
124                                                 finaly = secty;\r
125                                                 break;\r
126                                         case IHBLANK:\r
127                                                 skip(1);\r
129                                                 skip(1);\r
130                                                 proutn("***");\r
131                                                 crmshp();\r
132                                                 proutn(" pulled into black hole at");\r
133                                                 cramlc(2, ix, iy);\r
134                                                 skip(1);\r
135                                                 finish(FHOLE);\r
136                                                 return;\r
137                                         default:\r
138                                                 /* something else */\r
139                                                 skip(1);\r
140                                                 crmshp();\r
142                                                         proutn(" encounters Tholian web at");\r
143                                                 else\r
144                                                         proutn(" blocked by object at");\r
145                                                 cramlc(2, ix,iy);\r
146                                                 prout(";");\r
147                                                 proutn("Emergency stop required ");\r
148                                                 cramf(stopegy, 0, 2);\r
149                                                 prout(" units of energy.");\r
150                                                 energy -= stopegy;\r
151                                                 finalx = x-deltax+0.5;\r
152                                                 sectx = finalx;\r
153                                                 finaly = y-deltay+0.5;\r
154                                                 secty = finaly;\r
155                                                 if (energy <= 0) {\r
156                                                         finish(FNRG);\r
157                                                         return;\r
158                                                 }\r
159                                                 break;\r
160                                 }\r
161                                 goto label100;  /* sorry! */\r
162                         }\r
163                 }\r
164                 dist = 0.1*sqrt((sectx-ix)*(double)(sectx-ix) +\r
165                                                 (secty-iy)*(double)(secty-iy));\r
166                 sectx = ix;\r
167                 secty = iy;\r
168         }\r
169         finalx = sectx;\r
170         finaly = secty;\r
171 label100:\r
172         /* No quadrant change -- compute new avg enemy distances */\r
174         if (nenhere) {\r
175                 for (l = 1; l <= nenhere; l++) {\r
176                         finald = sqrt((ix-kx[l])*(double)(ix-kx[l]) +\r
177                                                   (iy-ky[l])*(double)(iy-ky[l]));\r
178                         kavgd[l] = 0.5 * (finald+kdist[l]);\r
179                         kdist[l] = finald;\r
180                 }\r
181                 sortkl();\r
183                         attack(0);\r
184                 for (l = 1 ; l <= nenhere; l++) kavgd[l] = kdist[l];\r
185         }\r
186         newcnd();\r
187         iattak = 0;\r
188         return;\r
189 }\r
190 \r
191 void dock(void) {\r
192         chew();\r
193         if (condit == IHDOCKED) {\r
195                 return;\r
196         }\r
197         if (inorbit) {\r
198                 prout("You must first leave standard orbit.");\r
199                 return;\r
200         }\r
201         if (basex==0 || abs(sectx-basex) > 1 || abs(secty-basey) > 1) {\r
202                 crmshp();\r
203                 prout(" not adjacent to base.");\r
204                 return;\r
205         }\r
206         condit = IHDOCKED;\r
207         prout("Docked.");\r
208         if (energy < inenrg) energy = inenrg;\r
209         shield = inshld;\r
210         torps = intorps;\r
211         lsupres = inlsr;\r
212         if (stdamtim != 1e30 &&\r
213                 (future[FCDBAS] < 1e30 || isatb == 1) && iseenit == 0) {\r
214                 /* get attack report from base */\r
215                 prout("Lt. Uhura- \"Captain, an important message from the starbase:\"");\r
216                 attakreport();\r
217                 iseenit = 1;\r
218         }\r
219 }\r
220 \r
221 static void getcd(int isprobe, int akey) {\r
222         /* This program originally required input in terms of a (clock)\r
223            direction and distance. Somewhere in history, it was changed to\r
224            cartesian coordinates. So we need to convert. I think\r
225            "manual" input should still be done this way -- it's a real\r
226            pain if the computer isn't working! Manual mode is still confusing\r
227            because it involves giving x and y motions, yet the coordinates\r
228            are always displayed y - x, where +y is downward! */\r
229 \r
230         \r
232         double xi, xj, xk, xl;\r
233         double deltax, deltay;\r
234         int automatic = -1;\r
235 \r
236         /* Get course direction and distance. If user types bad values, return\r
237            with DIREC = -1.0. */\r
238 \r
239         direc = -1.0;\r
240         \r
241         if (landed == 1 && !isprobe) {\r
242                 prout("Dummy! You can't leave standard orbit until you");\r
243                 proutn("are back abourt the ");\r
244                 crmshp();\r
245                 prout(".");\r
246                 chew();\r
247                 return;\r
248         }\r
249         while (automatic == -1) {\r
250                 if (damage[DCOMPTR]) {\r
251                         if (isprobe)\r
252                                 prout("Computer damaged; manual navigation only");\r
253                         else\r
254                                 prout("Computer damaged; manual movement only");\r
255                         chew();\r
256                         automatic = 0;\r
257                         key = IHEOL;\r
258                         break;\r
259                 }\r
260                 if (isprobe && akey != -1) {\r
261                         /* For probe launch, use pre-scaned value first time */\r
262                         key = akey;\r
263                         akey = -1;\r
264                 }\r
265                 else \r
266                         key = scan();\r
267 \r
268                 if (key == IHEOL) {\r
269                         proutn("Manual or automatic- ");\r
270                         iprompt = 1;\r
271                         chew();\r
272                 }\r
273                 else if (key == IHALPHA) {\r
274                         if (isit("manual")) {\r
275                                 automatic =0;\r
276                                 key = scan();\r
277                                 break;\r
278                         }\r
279                         else if (isit("automatic")) {\r
280                                 automatic = 1;\r
281                                 key = scan();\r
282                                 break;\r
283                         }\r
284                         else {\r
285                                 huh();\r
286                                 chew();\r
287                                 return;\r
288                         }\r
289                 }\r
290                 else { /* numeric */\r
291                         if (isprobe)\r
293                         else\r
294                                 prout("(Manual movement assumed.)");\r
295                         automatic = 0;\r
296                         break;\r
297                 }\r
298         }\r
299 \r
300         if (automatic) {\r
301                 while (key == IHEOL) {\r
302                         if (isprobe)\r
304                         else\r
305                                 proutn("Destination sector or quadrant&sector- ");\r
306                         chew();\r
307                         iprompt = 1;\r
308                         key = scan();\r
309                 }\r
310 \r
311                 if (key != IHREAL) {\r
312                         huh();\r
313                         return;\r
314                 }\r
315                 xi = aaitem;\r
316                 key = scan();\r
317                 if (key != IHREAL){\r
318                         huh();\r
319                         return;\r
320                 }\r
321                 xj = aaitem;\r
322                 key = scan();\r
323                 if (key == IHREAL) {\r
324                         /* both quadrant and sector specified */\r
325                         xk = aaitem;\r
326                         key = scan();\r
327                         if (key != IHREAL) {\r
328                                 huh();\r
329                                 return;\r
330                         }\r
331                         xl = aaitem;\r
332 \r
333                         irowq = xi + 0.5;\r
334                         icolq = xj + 0.5;\r
335                         irows = xk + 0.5;\r
336                         icols = xl + 0.5;\r
337                 }\r
338                 else {\r
339                         if (isprobe) {\r
340                                 /* only quadrant specified -- go to center of dest quad */\r
341                                 irowq = xi + 0.5;\r
342                                 icolq = xj + 0.5;\r
343                                 irows = icols = 5;\r
344                         }\r
345                         else {\r
346                                 irows = xi + 0.5;\r
347                                 icols = xj + 0.5;\r
348                         }\r
349                         itemp = 1;\r
350                 }\r
351                 if (irowq<1 || irowq > 8 || icolq<1 || icolq > 8 ||\r
352                         irows<1 || irows > 10 || icols<1 || icols > 10) {\r
353                                 huh();\r
354                                 return;\r
355                         }\r
356                 skip(1);\r
357                 if (!isprobe) {\r
358                         if (itemp) {\r
359                                 if (iprompt) {\r
360                                         proutn("Helmsman Sulu- \"Course locked in for");\r
361                                         cramlc(2, irows, icols);\r
362                                         prout(".\"");\r
363                                 }\r
364                         }\r
365                         else prout("Ensign Chekov- \"Course laid in, Captain.\"");\r
366                 }\r
367                 deltax = icolq - quady + 0.1*(icols-secty);\r
368                 deltay = quadx - irowq + 0.1*(sectx-irows);\r
369         }\r
370         else { /* manual */\r
371                 while (key == IHEOL) {\r
372                         proutn("X and Y displacements- ");\r
373                         chew();\r
374                         iprompt = 1;\r
375                         key = scan();\r
376                 }\r
377                 itemp = 2;\r
378                 if (key != IHREAL) {\r
379                         huh();\r
380                         return;\r
381                 }\r
382                 deltax = aaitem;\r
383                 key = scan();\r
384                 if (key != IHREAL) {\r
385                         huh();\r
386                         return;\r
387                 }\r
388                 deltay = aaitem;\r
389         }\r
390         /* Check for zero movement */\r
391         if (deltax == 0 && deltay == 0) {\r
392                 chew();\r
393                 return;\r
394         }\r
395         if (itemp == 2 && !isprobe) {\r
396                 skip(1);\r
397                 prout("Helmsman Sulu- \"Aye, Sir.\"");\r
398         }\r
399         dist = sqrt(deltax*deltax + deltay*deltay);\r
400         direc = atan2(deltax, deltay)*1.90985932;\r
401         if (direc < 0.0) direc += 12.0;\r
402         chew();\r
403         return;\r
404 \r
405 }\r
406                 \r
407 \r
408 \r
409 void impuls(void) {\r
410         double power;\r
411 \r
412         ididit = 0;\r
413         if (damage[DIMPULS]) {\r
414                 chew();\r
415                 skip(1);\r
416                 prout("Engineer Scott- \"The impulse engines are damaged, Sir.\"");\r
417                 return;\r
418         }\r
419 \r
420         if (energy > 30.0) {\r
421                 getcd(FALSE, 0);\r
422                 if (direc == -1.0) return;\r
423                 power = 20.0 + 100.0*dist;\r
424         }\r
425         else\r
426                 power = 30.0;\r
427 \r
428         if (power >= energy) {\r
429                 /* Insufficient power for trip */\r
430                 skip(1);\r
431                 prout("First Officer Spock- \"Captain, the impulse engines");\r
432                 prout("require 20.0 units to engage, plus 100.0 units per");\r
433                 if (energy > 30) {\r
434                         proutn("quadrant.  We can go, therefore, a maximum of ");\r
435                         cramf(0.01 * (energy-20.0)-0.05, 0, 1);\r
437                 }\r
438                 else {\r
439                         prout("quadrant.  They are, therefore, useless.\"");\r
440                 }\r
441                 chew();\r
442                 return;\r
443         }\r
444         /* Make sure enough time is left for the trip */\r
445         Time = dist/0.095;\r
446         if (Time >= state.remtime) {\r
447                 prout("First Officer Spock- \"Captain, our speed under impulse");\r
448                 prout("power is only 0.95 sectors per stardate. Are you sure");\r
449                 prout("we dare spend the time?\"");\r
450                 if (ja() == 0) return;\r
451         }\r
452         /* Activate impulse engines and pay the cost */\r
453         move();\r
454         ididit = 1;\r
455         if (alldone) return;\r
456         power = 20.0 + 100.0*dist;\r
457         energy -= power;\r
458         Time = dist/0.095;\r
459         if (energy <= 0) finish(FNRG);\r
460         return;\r
461 }\r
462 \r
463 \r
464 void warp(int i) {\r
465         int blooey=0, twarp=0, iwarp;\r
466         double power;\r
467 \r
468         if (i!=2) { /* Not WARPX entry */\r
469                 ididit = 0;\r
470                 if (damage[DWARPEN] > 10.0) {\r
471                         chew();\r
472                         skip(1);\r
473                         prout("Engineer Scott- \"The impulse engines are damaged, Sir.\"");\r
474                         return;\r
475                 }\r
476                 if (damage[DWARPEN] > 0.0 && warpfac > 4.0) {\r
477                         chew();\r
478                         skip(1);\r
479                         prout("Engineer Scott- \"Sorry, Captain. Until this damage");\r
480                         prout("  is repaired, I can only give you warp 4.\"");\r
481                         return;\r
482                 }\r
483                         \r
484                 /* Read in course and distance */\r
485                 getcd(FALSE, 0);\r
486                 if (direc == -1.0) return;\r
487 \r
488                 /* Make sure starship has enough energy for the trip */\r
489                 power = (dist+0.05)*warpfac*warpfac*warpfac*(shldup+1);\r
490 \r
491 \r
492                 if (power >= energy) {\r
493                         /* Insufficient power for trip */\r
494                         ididit = 0;\r
495                         skip(1);\r
496                         prout("Engineering to bridge--");\r
497                         if (shldup==0 || 0.5*power > energy) {\r
498                                 iwarp = pow((energy/(dist+0.05)), 0.333333333);\r
499                                 if (iwarp <= 0) {\r
500                                         prout("We can't do it, Captain. We haven't the energy.");\r
501                                 }\r
502                                 else {\r
503                                         proutn("We haven't the energy, but we could do it at warp ");\r
504                                         crami(iwarp, 1);\r
505                                         if (shldup)\r
506                                                 prout(",\nif you'll lower the shields.");\r
507                                         else\r
508                                                 prout(".");\r
509                                 }\r
510                         }\r
511                         else\r
512                                 prout("We haven't the energy to go that far with the shields up.");\r
513                         return;\r
514                 }\r
515                                                 \r
516                 /* Make sure enough time is left for the trip */\r
517                 Time = 10.0*dist/wfacsq;\r
518                 if (Time >= 0.8*state.remtime) {\r
519                         skip(1);\r
520                         prout("First Officer Spock- \"Captain, I compute that such");\r
521                         proutn("  a trip would require approximately ");\r
522                         cramf(100.0*Time/state.remtime, 0, 2);\r
523                         prout(" percent of our");\r
524                         prout(" remaining time.  Are you sure this is wise?\"");\r
525                         if (ja() == 0) { ididit = 0; return;}\r
526                 }\r
527         }\r
528         /* Entry WARPX */\r
529         if (warpfac > 6.0) {\r
530                 /* Decide if engine damage will occur */\r
531                 double prob = dist*(6.0-warpfac)*(6.0-warpfac)/66.666666666;\r
532                 if (prob > Rand()) {\r
533                         blooey = 1;\r
534                         dist = Rand()*dist;\r
535                 }\r
536                 /* Decide if time warp will occur */\r
537                 if (0.5*dist*pow(7.0,warpfac-10.0) > Rand()) twarp=1;\r
538 #ifdef DEBUG\r
539                 if (idebug &&warpfac==10 && twarp==0) {\r
540                         blooey=0;\r
541                         proutn("Force time warp? ");\r
542                         if (ja()==1) twarp=1;\r
543                 }\r
544 #endif\r
545                 if (blooey || twarp) {\r
546                         /* If time warp or engine damage, check path */\r
547                         /* If it is obstructed, don't do warp or damage */\r
548                         double angle = ((15.0-direc)*0.5235998);\r
549                         double deltax = -sin(angle);\r
550                         double deltay = cos(angle);\r
551                         double bigger, x, y;\r
552                         int n, l, ix, iy;\r
553                         if (fabs(deltax) > fabs(deltay))\r
554                                 bigger = fabs(deltax);\r
555                         else\r
556                                 bigger = fabs(deltay);\r
557                         \r
558                         deltax /= bigger;\r
559                         deltay /= bigger;\r
560                         n = 10.0 * dist * bigger +0.5;\r
561                         x = sectx;\r
562                         y = secty;\r
563                         for (l = 1; l <= n; l++) {\r
564                                 x += deltax;\r
565                                 ix = x + 0.5;\r
566                                 if (ix < 1 || ix > 10) break;\r
567                                 y += deltay;\r
568                                 iy = y +0.5;\r
569                                 if (iy < 1 || iy > 10) break;\r
570                                 if (quad[ix][iy] != IHDOT) {\r
571                                         blooey = 0;\r
572                                         twarp = 0;\r
573                                 }\r
574                         }\r
575                 }\r
576         }\r
577                                 \r
578 \r
579         /* Activate Warp Engines and pay the cost */\r
580         move();\r
581         if (alldone) return;\r
582         energy -= dist*warpfac*warpfac*warpfac*(shldup+1);\r
583         if (energy <= 0) finish(FNRG);\r
584         Time = 10.0*dist/wfacsq;\r
585         if (twarp) timwrp();\r
586         if (blooey) {\r
587                 damage[DWARPEN] = damfac*(3.0*Rand()+1.0);\r
588                 skip(1);\r
589                 prout("Engineering to bridge--");\r
590                 prout("  Scott here.  The warp engines are damaged.");\r
591                 prout("  We'll have to reduce speed to warp 4.");\r
592         }\r
593         ididit = 1;\r
594         return;\r
595 }\r
596 \r
597 \r
598 \r
599 void setwrp(void) {\r
600         int key;\r
601         double oldfac;\r
602         \r
603         while ((key=scan()) == IHEOL) {\r
604                 chew();\r
605                 proutn("Warp factor-");\r
606         }\r
607         chew();\r
608         if (key != IHREAL) {\r
609                 huh();\r
610                 return;\r
611         }\r
612         if (damage[DWARPEN] > 10.0) {\r
613                 prout("Warp engines inoperative.");\r
614                 return;\r
615         }\r
616         if (damage[DWARPEN] > 0.0 && aaitem > 4.0) {\r
617                 prout("Engineer Scott- \"I'm doing my best, Captain,\n"\r
618                           "  but right now we can only go warp 4.\"");\r
619                 return;\r
620         }\r
621         if (aaitem > 10.0) {\r
622                 prout("Helmsman Sulu- \"Our top speed is warp 10, Captain.\"");\r
623                 return;\r
624         }\r
625         if (aaitem < 1.0) {\r
626                 prout("Helmsman Sulu- \"We can't go below warp 1, Captain.\"");\r
627                 return;\r
628         }\r
629         oldfac = warpfac;\r
630         warpfac = aaitem;\r
631         wfacsq=warpfac*warpfac;\r
632         if (warpfac <= oldfac || warpfac <= 6.0) {\r
633                 proutn("Helmsman Sulu- \"Warp factor ");\r
634                 cramf(warpfac, 0, 1);\r
635                 prout(", Captain.\"");\r
636                 return;\r
637         }\r
638         if (warpfac < 8.00) {\r
639                 prout("Engineer Scott- \"Aye, but our maximum safe speed is warp 6.\"");\r
640                 return;\r
641         }\r
642         if (warpfac == 10.0) {\r
643                 prout("Engineer Scott- \"Aye, Captain, we'll try it.\"");\r
644                 return;\r
645         }\r
646         prout("Engineer Scott- \"Aye, Captain, but our engines may not take it.\"");\r
647         return;\r
648 }\r
649 \r
650 void atover(int igrab) {\r
651         double power, distreq;\r
652 \r
653         chew();\r
654         /* is captain on planet? */\r
655         if (landed==1) {\r
656                 if (damage[DTRANSP]) {\r
657                         finish(FPNOVA);\r
658                         return;\r
659                 }\r
660                 prout("Scotty rushes to the transporter controls.");\r
661                 if (shldup) {\r
662                         prout("But with the shields up it's hopeless.");\r
663                         finish(FPNOVA);\r
664                 }\r
665                 prouts("His desperate attempt to rescue you . . .");\r
666                 if (Rand() <= 0.5) {\r
667                         prout("fails.");\r
668                         finish(FPNOVA);\r
669                         return;\r
670                 }\r
671                 prout("SUCCEEDS!");\r
672                 if (imine) {\r
673                         imine = 0;\r
674                         proutn("The crystals mined were ");\r
675                         if (Rand() <= 0.25) {\r
676                                 prout("lost.");\r
677                         }\r
678                         else {\r
679                                 prout("saved.");\r
680                                 icrystl = 1;\r
681                         }\r
682                 }\r
683         }\r
684         if (igrab) return;\r
685 \r
686         /* Check to see if captain in shuttle craft */\r
687         if (icraft) finish(FSTRACTOR);\r
688         if (alldone) return;\r
689 \r
690         /* Inform captain of attempt to reach safety */\r
691         skip(1);\r
692         do {\r
693                 if (justin) {\r
695                         skip(1);\r
696                         proutn("The ");\r
697                         crmshp();\r
698                         prout(" has stopped in a quadrant containing");\r
699                         prouts("   a supernova.");\r
700                         skip(2);\r
701                 }\r
702                 proutn("***Emergency automatic override attempts to hurl ");\r
703                 crmshp();\r
704                 skip(1);\r
707 \r
708                 /* Try to use warp engines */\r
709                 if (damage[DWARPEN]) {\r
710                         skip(1);\r
711                         prout("Warp engines damaged.");\r
712                         finish(FSNOVAED);\r
713                         return;\r
714                 }\r
715                 warpfac = 6.0+2.0*Rand();\r
716                 wfacsq = warpfac * warpfac;\r
717                 proutn("Warp factor set to ");\r
718                 cramf(warpfac, 1, 1);\r
719                 skip(1);\r
720                 power = 0.75*energy;\r
721                 dist = power/(warpfac*warpfac*warpfac*(shldup+1));\r
722                 distreq = 1.4142+Rand();\r
723                 if (distreq < dist) dist = distreq;\r
724                 Time = 10.0*dist/wfacsq;\r
725                 direc = 12.0*Rand();    /* How dumb! */\r
726                 justin = 0;\r
727                 inorbit = 0;\r
728                 warp(2);\r
729                 if (justin == 0) {\r
731                         if (alldone) return;\r
732                         skip(1);\r
733                         prout("Insufficient energy to leave quadrant.");\r
734                         finish(FSNOVAED);\r
735                         return;\r
736                 }\r
737                 /* Repeat if another snova */\r
739         if (state.remkl==0) finish(FWON); /* Snova killed remaining enemy. */\r
740 }\r
741 \r
742 void timwrp() {\r
743         int l, ll, gotit;\r
744         prout("***TIME WARP ENTERED.");\r
745         if (state.snap && Rand() < 0.5) {\r
746                 /* Go back in time */\r
747                 proutn("You are traveling backwards in time ");\r
748                 cramf(state.date-snapsht.date, 0, 2);\r
749                 prout(" stardates.");\r
750                 state = snapsht;\r
751                 state.snap = 0;\r
752                 if (state.remcom) {\r
753                         future[FTBEAM] = state.date + expran(intime/state.remcom);\r
754                         future[FBATTAK] = state.date + expran(0.3*intime);\r
755                 }\r
756                 future[FSNOVA] = state.date + expran(0.5*intime);\r
757                 future[FSNAP] = state.date +expran(0.25*state.remtime); /* next snapshot will\r
758                                                                                                            be sooner */\r
759                 if (state.nscrem) future[FSCMOVE] = 0.2777;\r
760                 isatb = 0;\r
761                 future[FCDBAS] = future[FSCDBAS] = 1e30;\r
762                 batx = baty = 0;\r
763 \r
764                 /* Make sure Galileo is consistant -- Snapshot may have been taken\r
765                    when on planet, which would give us two Galileos! */\r
766                 gotit = 0;\r
767                 for (l = 1; l <= inplan; l++) {\r
768                         if (state.plnets[l].known == 2) {\r
769                                 gotit = 1;\r
770                                 if (iscraft==1 && ship==IHE) {\r
771                                         prout("Checkov-  \"Security reports the Galileo has disappeared, Sir!");\r
772                                         iscraft = 0;\r
773                                 }\r
774                         }\r
775                 }\r
776                 /* Likewise, if in the original time the Galileo was abandoned, but\r
777                    was on ship earlier, it would have vanished -- lets restore it */\r
778                 if (iscraft==0 && gotit==0 && damage[DSHUTTL] >= 0.0) {\r
779                         prout("Checkov-  \"Security reports the Galileo has reappeared in the dock!\"");\r
780                         iscraft = 1;\r
781                 }\r
782 \r
783                 /* Revert star chart to earlier era, if it was known then*/\r
784                 if (damage[DRADIO]==0.0 || stdamtim > state.date) {\r
785                         for (l = 1; l <= 8; l++)\r
786                                 for (ll = 1; ll <= 8; ll++)\r
787                                         if (starch[l][ll] > 1)\r
789                         prout("Spock has reconstructed a correct star chart from memory");\r
790                         if (damage[DRADIO] > 0.0) stdamtim = state.date;\r
791                 }\r
792         }\r
793         else {\r
794                 /* Go forward in time */\r
795                 Time = -0.5*intime*log(Rand());\r
796                 proutn("You are traveling forward in time ");\r
797                 cramf(Time, 1, 2);\r
798                 prout(" stardates.");\r
799                 /* cheat to make sure no tractor beams occur during time warp */\r
800                 future[FTBEAM] += Time;\r
802         }\r
804 }\r
805 \r
806 void probe(void) {\r
807         double angle, bigger;\r
808         int key;\r
809         /* New code to launch a deep space probe */\r
810         if (nprobes == 0) {\r
811                 chew();\r
812                 skip(1);\r
813                 if (ship == IHE) \r
814                         prout("Engineer Scott- \"We have no more deep space probes, Sir.\"");\r
815                 else\r
816                         prout("Ye Faerie Queene has no deep space probes.");\r
817                 return;\r
818         }\r
819         if (damage[DDSP] != 0.0) {\r
820                 chew();\r
821                 skip(1);\r
822                 prout("Engineer Scott- \"The probe launcher is damaged, Sir.\"");\r
823                 return;\r
824         }\r
825         if (future[FDSPROB] != 1e30) {\r
826                 chew();\r
827                 skip(1);\r
828                 if (damage[DRADIO] != 0 && condit != IHDOCKED) {\r
829                         prout("Spock-  \"Records show the previous probe has not yet");\r
830                         prout("   reached its destination.\"");\r
831                 }\r
832                 else\r
833                         prout("Uhura- \"The previous probe is still reporting data, Sir.\"");\r
834                 return;\r
835         }\r
836         key = scan();\r
837 \r
838         if (key == IHEOL) {\r
839                 /* slow mode, so let Kirk know how many probes there are left */\r
840                 crami(nprobes,1);\r
841                 prout(nprobes==1 ? " probe left." : " probes left.");\r
842                 proutn("Are you sure you want to fire a probe? ");\r
843                 if (ja()==0) return;\r
844         }\r
845 \r
846         isarmed = FALSE;\r
847         if (key == IHALPHA && strcmp(citem,"armed") == 0) {\r
848                 isarmed = TRUE;\r
849                 key = scan();\r
850         }\r
851         else if (key == IHEOL) {\r
853                 isarmed = ja();\r
854         }\r
855         getcd(TRUE, key);\r
856         if (direc == -1.0) return;\r
857         nprobes--;\r
858                 angle = ((15.0 - direc) * 0.5235988);\r
859         probeinx = -sin(angle);\r
860         probeiny = cos(angle);\r
861         if (fabs(probeinx) > fabs(probeiny))\r
862                 bigger = fabs(probeinx);\r
863         else\r
864                 bigger = fabs(probeiny);\r
865                 \r
866         probeiny /= bigger;\r
867         probeinx /= bigger;\r
868         proben = 10.0*dist*bigger +0.5;\r
869         probex = quadx*10 + sectx - 1;  // We will use better packing than original\r
870         probey = quady*10 + secty - 1;\r
873         future[FDSPROB] = state.date + 0.01; // Time to move one sector\r
874         prout("Ensign Chekov-  \"The deep space probe is launched, Captain.\"");\r
875         return;\r
876 }\r
877 \r
878 void help(void) {\r
879         /* There's more than one way to move in this game! */\r
880         double ddist, xdist, probf;\r
881         int line, l, ix, iy;\r
882 \r
883         chew();\r
884         /* Test for conditions which prevent calling for help */\r
885         if (condit == IHDOCKED) {\r
886                 prout("Lt. Uhura-  \"But Captain, we're already docked.\"");\r
887                 return;\r
888         }\r
889         if (damage[DRADIO] != 0) {\r
891                 return;\r
892         }\r
893         if (state.rembase==0) {\r
894                 prout("Lt. Uhura-  \"Captain, I'm not getting any response from Starbase.\"");\r
895                 return;\r
896         }\r
897         if (landed == 1) {\r
898                 proutn("You must be aboard the ");\r
899                 crmshp();\r
900                 prout(".");\r
901                 return;\r
902         }\r
903         /* OK -- call for help from nearest starbase */\r
904         nhelp++;\r
905         if (basex!=0) {\r
906                 /* There's one in this quadrant */\r
907                 ddist = sqrt(square(basex-sectx)+square(basey-secty));\r
908         }\r
909         else {\r
910                 ddist = 1e30;\r
911                 for (l = 1; l <= state.rembase; l++) {\r
913                         if (xdist < ddist) {\r
914                                 ddist = xdist;\r
915                                 line = l;\r
916                         }\r
917                 }\r
918                 /* Since starbase not in quadrant, set up new quadrant */\r
922         }\r
923         /* dematerialize starship */\r
925         proutn("Starbase in");\r
927         proutn(" responds--");\r
928         crmshp();\r
929         prout(" dematerializes.");\r
930         /* Give starbase three chances to rematerialize starship */\r
931         probf = pow((1.0 - pow(0.98,ddist)), 0.33333333);\r
932         for (l = 1; l <= 3; l++) {\r
933                 switch (l) {\r
934                         case 1: proutn("1st"); break;\r
935                         case 2: proutn("2nd"); break;\r
936                         case 3: proutn("3rd"); break;\r
937                 }\r
938                 proutn(" attempt to re-materialize ");\r
939                 crmshp();\r
940                 prouts(" . . . . . ");\r
941                 if (Rand() > probf) break;\r
942                 prout("fails.");\r
943         }\r
944         if (l > 3) {\r
945                 finish(FMATERIALIZE);\r
946                 return;\r
947         }\r
948         /* Rematerialization attempt should succeed if can get adj to base */\r
949         for (l = 1; l <= 5; l++) {\r
950                 ix = basex+3.0*Rand()-1;\r
951                 iy = basey+3.0*Rand()-1;\r
952                 if (ix>=1 && ix<=10 && iy>=1 && iy<=10 && quad[ix][iy]==IHDOT) {\r
953                         /* found one -- finish up */\r
954                         prout("succeeds.");\r
955                         sectx=ix;\r
956                         secty=iy;\r