#include "sst.h" static void getcd(int, int); void lmove(void) { double angle, deltax, deltay, bigger, x, y, finald, finalx, finaly, stopegy; int oldquadx, oldquady; int trbeam = 0, n, l, ix, iy, kink, kinks, iquad; if (inorbit) { /* prout("SULU- \"Leaving standard orbit.\""); */ prout("‘ã«ã- \"®ª¨¤ ¥¬ áâ ¤ àâãî ®à¡¨âã.\""); inorbit = 0; } angle = ((15.0 - direc) * 0.5235988); deltax = -sin(angle); deltay = cos(angle); if (fabs(deltax) > fabs(deltay)) bigger = fabs(deltax); else bigger = fabs(deltay); deltay /= bigger; deltax /= bigger; #ifdef CLOAKING if (iscloaked && d.date+Time >= future[FTBEAM]) { /* We can't be tracto beamed if cloaked, so move the event into the future */ future[FTBEAM] = d.date + Time + expran(1.5*intime/d.remcom); } #endif /* If tractor beam is to occur, don't move full distance */ if (d.date+Time >= future[FTBEAM]) { trbeam = 1; condit = IHRED; dist = dist*(future[FTBEAM]-d.date)/Time + 0.1; Time = future[FTBEAM] - d.date + 1e-5; } /* Move within the quadrant */ quad[sectx][secty] = IHDOT; x = sectx; y = secty; n = 10.0*dist*bigger+0.5; if (n > 0) { for (l = 1; l <= n; l++) { ix = (x += deltax) + 0.5; iy = (y += deltay) + 0.5; if (ix < 1 || ix > 10 || iy < 1 || iy > 10) { /* Leaving quadrant -- allow final enemy attack */ /* Don't do it if being pushed by Nova */ if (nenhere != 0 && iattak != 2 #ifdef CLOAKING && !iscloaked #endif ) { newcnd(); for (l = 1; l <= nenhere; l++) { finald = sqrt((ix-kx[l])*(double)(ix-kx[l]) + (iy-ky[l])*(double)(iy-ky[l])); kavgd[l] = 0.5 * (finald+kdist[l]); } if (d.galaxy[quadx][quady] != 1000) attack(0); if (alldone) return; } /* compute final position -- new quadrant and sector */ x = 10*(quadx-1)+sectx; y = 10*(quady-1)+secty; ix = x+10.0*dist*bigger*deltax+0.5; iy = y+10.0*dist*bigger*deltay+0.5; /* check for edge of galaxy */ kinks = FALSE; do { kink = 0; if (ix <= 0) { ix = -ix + 1; kink = 1; } if (iy <= 0) { iy = -iy + 1; kink = 1; } if (ix > 80) { ix = 161 - ix; kink = 1; } if (iy > 80) { iy = 161 - iy; kink = 1; } if (kink) kinks = TRUE; } while (kink); if (kinks) { nkinks += 1; if (nkinks == 3) { /* Three strikes -- you're out! */ finish(FNEG3); return; } /* prout("\nYOU HAVE ATTEMPTED TO CROSS THE NEGATIVE ENERGY BARRIER\n" "AT THE EDGE OF THE GALAXY. THE THIRD TIME YOU TRY THIS,\n" "YOU WILL BE DESTROYED.\n"); */ prout("\n‚› ‘„…‹€‹ˆ Ž›’Š“ ……‘…—œ €œ… …ƒ€’ˆ‚Ž‰ …ƒˆˆ\n" "€ Š€ž ƒ€‹€Š’ˆŠˆ. Ž‘‹… ’…’œ…‰ ’€ŠŽ‰ Ž›’Šˆ,\n" "‚› “„…’… “ˆ—’Ž†…›.\n"); } /* Compute final position in new quadrant */ if (trbeam) return; /* Don't bother if we are to be beamed */ oldquadx = quadx; oldquady = quady; quadx = (ix+9)/10; quady = (iy+9)/10; sectx = ix - 10*(quadx-1); secty = iy - 10*(quady-1); if (quadx != oldquadx || quady != oldquady) { proutn("\n‚室¨¬ ¢");/*Entering*/ cramlc(1, quadx, quady); } else { /* prout("(Negative energy barrier disturbs quadrant.)"); */ prout("(Š¢ ¤à â àãè ¥â ¡ àì¥à ¥£ ⨢®© í¥à£¨¨.)"); } skip(1); quad[sectx][secty] = ship; newqad(0); return; } iquad = quad[ix][iy]; if (iquad != IHDOT) { /* object encountered in flight path */ stopegy = 50.0*dist/Time; dist=0.1*sqrt((sectx-ix)*(double)(sectx-ix) + (secty-iy)*(double)(secty-iy)); switch (iquad) { case IHT: /* Ram a Tholean */ case IHK: /* Ram enemy ship */ case IHC: case IHS: case IHR: sectx = ix; secty = iy; ram(0, iquad, sectx, secty); finalx = sectx; finaly = secty; break; case IHBLANK: skip(1); prouts("***Ž€‘Ž‘’œ! Ž€‘Ž‘’œ!");/*RED ALERT*/ skip(1); proutn("***"); crmshp(); proutn(" ¯à¨â¢ ¥âáï ç¥à®© ¤ëன ¢ â®çª¥");/*pulled into black hole at*/ cramlc(2, ix, iy); skip(1); finish(FHOLE); return; default: /* something else */ skip(1); crmshp(); if (iquad == IHWEB) proutn(" ¯®¯ «¨ ¢ ⮫¨ áãî á¥âì ¢ â®çª¥");/*encounters Tholian web at*/ else proutn(" ¡«®ª¨à®¢ ë ®¡ê¥ªâ®¬ ¢ â®çª¥");/*blocked by object at*/ cramlc(2, ix,iy); prout(";"); proutn("’ॡã¥âáï ¢ ਩®¥ â®à¬®¦¥¨¥ ");/*Emergency stop required*/ cramf(stopegy, 0, 2); prout(" ¥¤¨¨æ í¥à£¨¨.");/*units of energy*/ energy -= stopegy; finalx = x-deltax+0.5; sectx = finalx; finaly = y-deltay+0.5; secty = finaly; if (energy <= 0) { finish(FNRG); return; } break; } goto label100; /* sorry! */ /* ACTUALLY BREAK SHOULD WORK HERE */ } } dist = 0.1*sqrt((sectx-ix)*(double)(sectx-ix) + (secty-iy)*(double)(secty-iy)); sectx = ix; secty = iy; } finalx = sectx; /* THESE STATEMENTS DO NOTHING USEFUL */ finaly = secty; label100: /* No quadrant change -- compute new avg enemy distances */ quad[sectx][secty] = ship; if (nenhere) { for (l = 1; l <= nenhere; l++) { finald = sqrt((ix-kx[l])*(double)(ix-kx[l]) + (iy-ky[l])*(double)(iy-ky[l])); kavgd[l] = 0.5 * (finald+kdist[l]); kdist[l] = finald; } sortkl(); if (d.galaxy[quadx][quady] != 1000 && iattak == 0) attack(0); for (l = 1 ; l <= nenhere; l++) kavgd[l] = kdist[l]; } newcnd(); iattak = 0; return; } void dock(void) { chew(); if (condit == IHDOCKED) { prout("‚ë 㦥 ¢ ¤®ª¥.");/*Already docked*/ return; } if (inorbit) { /* prout("You must first leave standard orbit."); */ prout("‘ ç « ¯®ª¨ì⥠áâ ¤ àâãî ®à¡¨âã."); return; } if (basex==0 || abs(sectx-basex) > 1 || abs(secty-basey) > 1) { crmshp(); prout(" ¥ à冷¬ á® áâ 樥©.");/*not adjacent to base*/ return; } #ifdef CLOAKING if (iscloaked) { prout("¥¢®§¬®¦ áâ몮¢ª ¢ á®áâ®ï¨¨ ¥¢¨¤¨¬®áâ¨.");/*You cannot dock while cloaked*/ return; } #endif condit = IHDOCKED; prout("‘â몮¢ª ¢ë¯®«¥ .");/*Docked*/ if (energy < inenrg) energy = inenrg; shield = inshld; torps = intorps; lsupres = inlsr; #ifdef CAPTURE if (brigcapacity-brigfree > 0) { /* printf("%d captured Klingons transferred to base.\n", brigcapacity-brigfree); */ printf("%d ¯«¥ëå ª«¨£®®¢ ¯¥à¥¯à ¢«¥® áâ æ¨î.\n", brigcapacity-brigfree); kcaptured += brigcapacity-brigfree; brigfree = brigcapacity; } #endif if (stdamtim != 1e30 && (future[FCDBAS] < 1e30 || isatb == 1) && iseenit == 0) { /* get attack report from base */ /* prout("Lt. Uhura- \"Captain, an important message from the starbase:\""); */ prout("‹¥©â¥ â “åãà - \"Š ¯¨â , áà®ç®¥ á®®¡é¥¨¥ á® áâ 樨:\""); attakreport(); iseenit = 1; } } static void getcd(int isprobe, int akey) { /* This program originally required input in terms of a (clock) direction and distance. Somewhere in history, it was changed to cartesian coordinates. So we need to convert. I think "manual" input should still be done this way -- it's a real pain if the computer isn't working! Manual mode is still confusing because it involves giving x and y motions, yet the coordinates are always displayed y - x, where +y is downward! */ int irowq=quadx, icolq=quady, irows, icols, itemp=0, iprompt=0, key; double xi, xj, xk, xl; double deltax, deltay; int automatic = -1; /* Get course direction and distance. If user types bad values, return with DIREC = -1.0. */ direc = -1.0; if (landed == 1 && !isprobe) { /* prout("Dummy! You can't leave standard orbit until you"); proutn("are back aboard the "); */ prout("®«¢ ! ¥¢®§®¦® ¯®ª¨ãâì áâ ¤ àâãî ®à¡¨âã"); proutn("¯®ª ‚ë ¥ á拉⥠¡®àâ "); crmshp(); prout("."); chew(); return; } while (automatic == -1) { if (damage[DCOMPTR]) { if (isprobe) /* prout("Computer damaged; manual navigation only"); */ prout("Š®¬¯ìîâ¥à ¯®¢à¥¦¤¥; ⮫쪮 àãç ï ¢¨£ æ¨ï"); else /* prout("Computer damaged; manual movement only"); */ prout("Š®¬¯ìîâ¥à ¯®¢à¥¦¤¥; ⮫쪮 ¯¥à¥¬¥é¥¨¥ ¢àãçãî"); chew(); automatic = 0; key = IHEOL; break; } if (isprobe && akey != -1) { /* For probe launch, use pre-scaned value first time */ key = akey; akey = -1; } else key = scan(); if (key == IHEOL) { /* proutn("Manual or automatic- "); */ proutn("ã箩 (manual) or €¢â®¬ â¨ç¥áª¨© (automatic)- "); iprompt = 1; chew(); } else if (key == IHALPHA) { if (isit("manual")) { automatic =0; key = scan(); break; } else if (isit("automatic")) { automatic = 1; key = scan(); break; } else { huh(); chew(); return; } } else { /* numeric */ if (isprobe) /* prout("(Manual navigation assumed.)"); */ prout("(‚ª«îç¥ àãç ï ¢¨£ æ¨ï.)"); else /* prout("(Manual movement assumed.)"); */ prout("(‚ª«î祮 àã箥 ¯¥à¥¬¥é¥¨¥.)"); automatic = 0; break; } } if (automatic) { while (key == IHEOL) { if (isprobe) /* proutn("Target quadrant or quadrant§or- "); */ proutn(" ¯à ¢«¥¨¥: ª¢ ¤à â ¨«¨ ª¢ ¤à â&ᥪâ®à- "); else /* proutn("Destination sector or quadrant§or- "); */ proutn("’®çª § 票ï: ª¢ ¤à â ¨«¨ ª¢ ¤à â&ᥪâ®à- "); chew(); iprompt = 1; key = scan(); } if (key != IHREAL) { huh(); return; } xi = aaitem; key = scan(); if (key != IHREAL){ huh(); return; } xj = aaitem; key = scan(); if (key == IHREAL) { /* both quadrant and sector specified */ xk = aaitem; key = scan(); if (key != IHREAL) { huh(); return; } xl = aaitem; irowq = xi + 0.5; icolq = xj + 0.5; irows = xk + 0.5; icols = xl + 0.5; } else { if (isprobe) { /* only quadrant specified -- go to center of dest quad */ irowq = xi + 0.5; icolq = xj + 0.5; irows = icols = 5; } else { irows = xi + 0.5; icols = xj + 0.5; } itemp = 1; } if (irowq<1 || irowq > 8 || icolq<1 || icolq > 8 || irows<1 || irows > 10 || icols<1 || icols > 10) { huh(); return; } skip(1); if (!isprobe) { if (itemp) { if (iprompt) { /* proutn("Helmsman Sulu- \"Course locked in for"); */ proutn("ã«¥¢®© ‘ã«ã- \"Šãàá ¯à®«®¦¥ ¤«ï"); cramlc(2, irows, icols); prout(".\""); } } /* else prout("Ensign Chekov- \"Course laid in, Captain.\""); */ else prout("Œ¨ç¬ —¥å®¢- \"Šãàá £®â®¢, Š ¯¨â .\""); } deltax = icolq - quady + 0.1*(icols-secty); deltay = quadx - irowq + 0.1*(sectx-irows); } else { /* manual */ while (key == IHEOL) { /* proutn("X and Y displacements- "); */ proutn("X ¨ Y ᬥ饨ï- "); chew(); iprompt = 1; key = scan(); } itemp = 2; if (key != IHREAL) { huh(); return; } deltax = aaitem; key = scan(); if (key == IHEOL) { deltay = 0.0; } else if (key != IHREAL) { huh(); return; } else { deltay = aaitem; } if (coordfixed) { double temp = deltax; deltax = deltay; deltay = -temp; } } /* Check for zero movement */ if (deltax == 0 && deltay == 0) { chew(); return; } if (itemp == 2 && !isprobe) { skip(1); /* prout("Helmsman Sulu- \"Aye, Sir.\""); */ prout("ã«¥¢®© ‘ã«ã- \"’ ª â®ç®, ‘íà.\""); } dist = sqrt(deltax*deltax + deltay*deltay); direc = atan2(deltax, deltay)*1.90985932; if (direc < 0.0) direc += 12.0; chew(); return; } void impuls(void) { double power; ididit = 0; if (damage[DIMPULS]) { chew(); skip(1); /* prout("Engineer Scott- \"The impulse engines are damaged, Sir.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"ˆ¬¯ã«ìáë¥ ¤¢¨£ ⥫¨ ¯®¢à¥¦¤¥ë, ‘íà.\""); return; } if (energy > 30.0) { getcd(FALSE, 0); if (direc == -1.0) return; power = 20.0 + 100.0*dist; } else power = 30.0; if (power >= energy) { /* Insufficient power for trip */ skip(1); /* prout("First Officer Spock- \"Captain, the impulse engines"); prout("require 20.0 units to engage, plus 100.0 units per"); */ prout("¥à¢ë© ®ä¨æ¥à ‘¯®ª- \"Š ¯¨â , ¨¬¯ã«ìáë¥ ¤¢¨£ ⥫¨"); prout("¯®âॡ«ïîâ 20.0 ¥¤¨¨æ à §®£à¥¢, ¯«îá 100.0 ¥¤¨¨æ "); if (energy > 30) { /* proutn("quadrant. We can go, therefore, a maximum of "); */ proutn("ª¢ ¤à â. ‘«¥¤®¢ ⥫ì®, ¬ë ¬®¦¥¬ ¯à®«¥â¥âì "); cramf(0.01 * (energy-20.0)-0.05, 0, 1); prout(" ª¢ ¤à ⮢.\"");/*quadrants*/ } else { /* prout("quadrant. They are, therefore, useless.\""); */ prout("ª¢ ¤à â. ‘«¥¤®¢ ⥫ì®, ®¨ ᥩç á ¡¥á¯®«¥§ë.\""); } chew(); return; } /* Make sure enough time is left for the trip */ Time = dist/0.095; if (Time >= d.remtime) { /* prout("First Officer Spock- \"Captain, our speed under impulse"); prout("power is only 0.95 sectors per stardate. Are you sure"); prout("we dare spend the time?\""); */ prout("¥à¢ë© ®ä¨æ¥à ‘¯®ª- \"Š ¯¨â , è ᪮à®áâì ¨¬¯ã«ìᮩ"); prout("â á®áâ ¢«ï¥â 0.95 ᥪâ®à®¢ ¢ £®¤. ‚ë 㢥à¥ë"); prout("çâ® ¬ë ¬®¦¥¬ ¯®â¥àïâì á⮫쪮 ¢à¥¬¥¨?\""); if (ja() == 0) { Time = 0.0; return;} } /* Activate impulse engines and pay the cost */ lmove(); ididit = 1; if (alldone) return; power = 20.0 + 100.0*dist; energy -= power; // Time = dist/0.095; Don't recalculate because lmove may have // adjusted it for tractor beaming if (energy <= 0) finish(FNRG); return; } void warp(int i) { int blooey=0, twarp=0, iwarp; double power; if (i!=2) { /* Not WARPX entry */ ididit = 0; #ifdef CLOAKING if (iscloaked) { chew(); skip(1); /* prout("Engineer Scott- \"The warp engines can better not be used while cloaked, Sir.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"‚ à¯-¤¢¨£ ⥫¨ «ãçè¥ ¥ ¨á¯®«ì§®¢ âì ¨§ á®áâ®ï¨ï ¬ ᪨஢ª¨, ‘íà.\""); return; } #endif if (damage[DWARPEN] > 10.0) { chew(); skip(1); /* prout("Engineer Scott- \"The warp engines are damaged, Sir.\""); // Was "Impulse" 10/2013 */ prout("ˆ¦¥¥à ‘ª®ââ- \"‚ à¯-¤¢¨£ ⥫¨ ¯®¢à¥¦¤¥ë, ‘íà.\""); // Was "Impulse" 10/2013 return; } if (damage[DWARPEN] > 0.0 && warpfac > 4.0) { chew(); skip(1); prout("ˆ¦¥¥à ‘ª®ââ- \"à®áâ¨â¥, Š ¯¨â . ®ª ¬ë ¥ ¯®ç¨¨¬áï,"); prout(" ï ᬮ£ã ®¡¥á¯¥ç¨âì ⮫쪮 ¢ ௠4.\""); return; } /* Read in course and distance */ getcd(FALSE, 0); if (direc == -1.0) return; /* Make sure starship has enough energy for the trip */ power = (dist+0.05)*warpfac*warpfac*warpfac*(shldup+1); if (power >= energy) { /* Insufficient power for trip */ ididit = 0; skip(1); /* prout("Engineering to bridge--"); */ prout("ˆ¦¥¥àë© ¤®ª« ¤ë¢ ¥â--"); if (shldup==0 || 0.5*power > energy) { iwarp = pow((energy/(dist+0.05)), 0.333333333); if (iwarp <= 0) { /* prout("We can't do it, Captain. We haven't the energy."); */ prout("Œë ¥ ¬®¦¥¬ ᤥ« âì íâ®, Š ¯¨â . “ á ¥ å¢ â ¥â í¥à£¨¨."); } else { /* proutn("We haven't the energy, but we could do it at warp "); */ proutn("“ á ¥¤®áâ â®ç® í¥à£¨¨, ® ¬ë ᬮ¦¥¬ ᤥ« âì íâ® ¢ ¢ ௥ "); crami(iwarp, 1); if (shldup) /* prout(",\nif you'll lower the shields."); */ prout(",\n¥á«¨ ®âª«îç¨âì ᨫ®¢ë¥ é¨âë."); else prout("."); } } else /* prout("We haven't the energy to go that far with the shields up."); */ prout("¥¤®áâ â®ç® í¥à£¨¨ ¤«ï â ª®© ¤ «ì®á⨠¯®«¥â ¯à¨ ¯®¤ïâëå é¨â å."); return; } /* Make sure enough time is left for the trip */ Time = 10.0*dist/wfacsq; if (Time >= 0.8*d.remtime) { skip(1); /* prout("First Officer Spock- \"Captain, I compute that such"); proutn(" a trip would require approximately "); cramf(100.0*Time/d.remtime, 0, 2); prout(" percent of our"); prout(" remaining time. Are you sure this is wise?\""); */ prout("¥à¢ë© ®ä¨æ¥à ‘¯®ª- \"Š ¯¨â , ï à ááç¨â «, çâ® íâ®â ¬ ¥¢à"); proutn(" ¯®âॡã¥â ¯à¨¡«¨§¨â¥«ì® "); cramf(100.0*Time/d.remtime, 0, 2); prout(" ¯à®æ¥â®¢ 襣®"); prout(" ®á⠢襣®áï ¢à¥¬¥¨. ‚ë 㢥à¥ë, çâ® íâ® ¬ã¤à®?\""); if (ja() == 0) { Time = 0.0; return;} } } /* Entry WARPX */ if (warpfac > 6.0) { /* Decide if engine damage will occur */ double prob = dist*(6.0-warpfac)*(6.0-warpfac)/66.666666666; if (prob > Rand()) { blooey = 1; dist = Rand()*dist; } /* Decide if time warp will occur */ if (0.5*dist*pow(7.0,warpfac-10.0) > Rand()) twarp=1; #ifdef DEBUG if (idebug &&warpfac==10 && twarp==0) { blooey=0; proutn("Force time warp? "); if (ja()==1) twarp=1; } #endif if (blooey || twarp) { /* If time warp or engine damage, check path */ /* If it is obstructed, don't do warp or damage */ double angle = ((15.0-direc)*0.5235998); double deltax = -sin(angle); double deltay = cos(angle); double bigger, x, y; int n, l, ix, iy; if (fabs(deltax) > fabs(deltay)) bigger = fabs(deltax); else bigger = fabs(deltay); deltax /= bigger; deltay /= bigger; n = 10.0 * dist * bigger +0.5; x = sectx; y = secty; for (l = 1; l <= n; l++) { x += deltax; ix = x + 0.5; if (ix < 1 || ix > 10) break; y += deltay; iy = y +0.5; if (iy < 1 || iy > 10) break; if (quad[ix][iy] != IHDOT) { blooey = 0; twarp = 0; } } } } /* Activate Warp Engines and pay the cost */ lmove(); if (alldone) return; energy -= dist*warpfac*warpfac*warpfac*(shldup+1); if (energy <= 0) finish(FNRG); Time = 10.0*dist/wfacsq; if (twarp) timwrp(); if (blooey) { damage[DWARPEN] = damfac*(3.0*Rand()+1.0); skip(1); /* prout("Engineering to bridge--"); prout(" Scott here. The warp engines are damaged."); prout(" We'll have to reduce speed to warp 4."); */ prout("ˆ¦¥¥àë© ¤®ª« ¤ë¢ ¥â--"); prout(" â® ‘ª®ââ. ‚ à¯-¤¢¨£ ⥫¨ ¯®¢à¥¦¤¥ë."); prout(" ¬ ¯à¨¤¥âáï ®£à ¨ç¨âìáï ᪮à®áâìî ¢ ௠4."); } ididit = 1; return; } void setwrp(void) { int key; double oldfac; while ((key=scan()) == IHEOL) { chew(); proutn("‚ à¯ ä ªâ®à-");/*Warp factor*/ } chew(); if (key != IHREAL) { huh(); return; } if (damage[DWARPEN] > 10.0) { prout("‚ à¯-¤¢¨£ ⥫¨ ¥ äãªæ¨®¨àãîâ.");/*Warp engines inoperative*/ return; } if (damage[DWARPEN] > 0.0 && aaitem > 4.0) { /* prout("Engineer Scott- \"I'm doing my best, Captain,\n" " but right now we can only go warp 4.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"Ÿ ¤¥« î çâ® ¬®£ã, Š ¯¨â ,\n" " ® ¯®ª çâ® ¬ë ®£à ¨ç¥ë ¢ à¯ ä ªâ®à®¬ 4.\""); return; } if (aaitem > 10.0) { /* prout("Helmsman Sulu- \"Our top speed is warp 10, Captain.\""); */ prout("ã«¥¢®© ‘ã«ã- \"‘¥©ç á ¬ë ᬮ¦¥¬ ¢ë¦ âì ¢ ௠10, Š ¯¨â .\""); return; } if (aaitem < 1.0) { /* prout("Helmsman Sulu- \"We can't go below warp 1, Captain.\""); */ prout("ã«¥¢®© ‘ã«ã- \"Œë ¥ ¬®¦¥¬ § ¤ âì ¢ à¯-᪮à®áâì ¬¥ìè¥ 1, Captain.\""); return; } oldfac = warpfac; warpfac = aaitem; wfacsq=warpfac*warpfac; if (warpfac <= oldfac || warpfac <= 6.0) { proutn("ã«¥¢®© ‘ã«ã-\"‚ à¯-ä ªâ®à ");/*Helmsman Sulu- \"Warp factor*/ cramf(warpfac, 0, 1); prout(", Š ¯¨â .\"");/*Captain*/ return; } if (warpfac < 8.00) { /* prout("Engineer Scott- \"Aye, but our maximum safe speed is warp 6.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"’ ª â®ç®, ® ᥩç á ¬ ªá¨¬ «ì ï ¡¥§®¯ á ï ¢ à¯-᪮à®áâì 6.\""); return; } if (warpfac == 10.0) { /* prout("Engineer Scott- \"Aye, Captain, we'll try it.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"’ ª â®ç®, Š ¯¨â , ¬ë ᬮ¦¥¬ íâ®.\""); return; } /* prout("Engineer Scott- \"Aye, Captain, but our engines may not take it.\""); */ prout("Engineer Scott- \"’ ª â®ç®, Š ¯¨â , ® è¨ ¤¢¨£ ⥫¨ ¬®£ãâì ¥ ¯®âïãâì.\""); return; } void atover(int igrab) { double power, distreq; chew(); /* is captain on planet? */ if (landed==1) { if (damage[DTRANSP]) { finish(FPNOVA); return; } /* prout("Scotty rushes to the transporter controls."); */ prout("‘ª®â⨠ࢠ㫠ª ã¯à ¢«¥¨î âà ᯮàâ â®à®¬."); if (shldup) { /* prout("But with the shields up it's hopeless."); */ prout("® á ¯®¤ïâ묨 é¨â ¬¨ ¢á¥ ¡ë«® ¡¥á¯®«¥§®."); finish(FPNOVA); } /* prouts("His desperate attempt to rescue you . . ."); */ prouts("…£® ®âç ï ï ¯®¯ëâª á¯ á¥¨ï ‚ á . . ."); if (Rand() <= 0.5) { prout("¯à®¢ «¨« áì.");/*fails*/ finish(FPNOVA); return; } prout("“„€‹€‘œ!");/*SUCCEEDS*/ if (imine) { imine = 0; proutn("„®¡ëâë¥ ªà¨áâ ««ë ");/*The crystals mined were*/ if (Rand() <= 0.25) { prout("¯®â¥àïë.");/*lost*/ } else { prout("ᯠá¥ë.");/*saved*/ icrystl = 1; } } } if (igrab) return; /* Check to see if captain in shuttle craft */ if (icraft) finish(FSTRACTOR); if (alldone) return; /* Inform captain of attempt to reach safety */ skip(1); do { if (justin) { /* prouts("***RED ALERT! RED ALERT!"); skip(1); proutn("The "); crmshp(); prout(" has stopped in a quadrant containing"); prouts(" a supernova."); skip(2); */ prouts("***Ž€‘Ž‘’œ! Ž€‘Ž‘’œ!"); skip(1); proutn("Š®à ¡«ì "); crmshp(); prout(" ®áâ ®¢¨«áï ¢ ª¢ ¤à ⥠á®"); prouts(" ᢥà客®©."); skip(2); } /* proutn("***Emergency automatic override attempts to hurl "); */ proutn("***€¢â®¬ â¨ç¥áª®¥ áà ¡ âë¢ ¨¥ á¨á⥬ ¡¥§®¯ á®á⨠¯ëâ ¥âáï ¢ë¢¥áâ¨"); crmshp(); skip(1); prout("¨§ ª¢ ¤à â .");/*safely out of quadrant*/ starch[quadx][quady] = damage[DRADIO] > 0.0 ? d.galaxy[quadx][quady]+1000:1; /* Try to use warp engines */ if (damage[DWARPEN]) { skip(1); prout("‚ à¯-¤¢¨£ ⥫¨ ¯®¢à¥¦¤¥ë.");/*Warp engines damaged*/ finish(FSNOVAED); return; } warpfac = 6.0+2.0*Rand(); wfacsq = warpfac * warpfac; proutn("‚ à¯-ä ªâ®à ãáâ ®¢«¥ ¢ ");/*Warp factor set to*/ cramf(warpfac, 1, 1); skip(1); power = 0.75*energy; dist = power/(warpfac*warpfac*warpfac*(shldup+1)); distreq = 1.4142+Rand(); if (distreq < dist) dist = distreq; Time = 10.0*dist/wfacsq; direc = 12.0*Rand(); /* How dumb! */ justin = 0; inorbit = 0; warp(2); if (justin == 0) { /* This is bad news, we didn't leave quadrant. */ if (alldone) return; skip(1); /* prout("Insufficient energy to leave quadrant."); */ prout("¥¤®áâ â®ç® í¥à£¨¨, ç⮡ë ã«¥â¥âì ¨§ ª¢ ¤à â ."); finish(FSNOVAED); return; } /* Repeat if another snova */ } while (d.galaxy[quadx][quady] == 1000); if (d.remkl==0) finish(FWON); /* Snova killed remaining enemy. */ } void timwrp() { int l, ll, gotit; prout("***‚€ ‚Ž ‚…Œ…ˆ.");/*TIME WARP ENTERED*/ if (d.snap && Rand() < 0.5) { /* Go back in time */ /* proutn("You are traveling backwards in time "); */ proutn("‚ë ¯à®¢ «¨«¨áì § ¤ ¢® ¢à¥¬¥¨ "); cramf(d.date-snapsht.date, 0, 2); prout(" §¢¥§¤ëå «¥â.");/*stardates*/ d = snapsht; d.snap = 0; if (d.remcom) { future[FTBEAM] = d.date + expran(intime/d.remcom); future[FBATTAK] = d.date + expran(0.3*intime); } future[FSNOVA] = d.date + expran(0.5*intime); future[FSNAP] = d.date +expran(0.25*d.remtime); /* next snapshot will be sooner */ if (d.nscrem) future[FSCMOVE] = 0.2777; isatb = 0; future[FCDBAS] = future[FSCDBAS] = 1e30; batx = baty = 0; /* Make sure Galileo is consistant -- Snapshot may have been taken when on planet, which would give us two Galileos! */ gotit = 0; for (l = 1; l <= inplan; l++) { if (d.plnets[l].known == 2) { gotit = 1; if (iscraft==1 && ship==IHE) { /* prout("Checkov- \"Security reports the Galileo has disappeared, Sir!"); */ prout("—¥å®¢- \"‘«ã¦¡ ¡¥§®¯ á®á⨠¤®ª« ¤ë¢ ¥â - ƒ «¨«¥® ¨á祧, ‘íà!"); iscraft = 0; } } } /* Likewise, if in the original time the Galileo was abandoned, but was on ship earlier, it would have vanished -- lets restore it */ if (iscraft==0 && gotit==0 && damage[DSHUTTL] >= 0.0) { /* prout("Checkov- \"Security reports the Galileo has reappeared in the dock!\""); */ prout("—¥ª®¢- \"‘«ã¦¡ ¡¥§®¯ á®á⨠¤®ª« ¤ë¢ ¥â - ƒ «¨«¥® ᮢ ¢®§¨ª ¢ ¤®ª¥!\""); iscraft = 1; } /* Revert star chart to earlier era, if it was known then*/ if (damage[DRADIO]==0.0 || stdamtim > d.date) { for (l = 1; l <= 8; l++) for (ll = 1; ll <= 8; ll++) if (starch[l][ll] > 1) starch[l][ll]=damage[DRADIO]>0.0 ? d.galaxy[l][ll]+1000 :1; /* prout("Spock has reconstructed a correct star chart from memory"); */ prout("‘¯®ª ¢®ááâ ®¢¨« §¢¥§¤ãî ª àâã ¯® ¯ ¬ïâ¨"); if (damage[DRADIO] > 0.0) stdamtim = d.date; } } else { /* Go forward in time */ Time = -0.5*intime*log(Rand()); /* proutn("You are traveling forward in time "); */ proutn("‚ë ¯à®¢ «¨«¨áì ¢¯¥à¥¤ ¯® ¢à¥¬¥¨ "); cramf(Time, 1, 2); prout(" §¢¥§¤ëå «¥â.");/*stardates*/ /* cheat to make sure no tractor beams occur during time warp */ future[FTBEAM] += Time; damage[DRADIO] += Time; } newqad(0); } void probe(void) { double angle, bigger; int key; /* New code to launch a deep space probe */ if (nprobes == 0) { chew(); skip(1); if (ship == IHE) /* prout("Engineer Scott- \"We have no more deep space probes, Sir.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"“ á § ª®ç¨«¨áì ᪠¨àãî騥 §®¤ë, ‘íà.\""); else /* prout("Ye Faerie Queene has no deep space probes."); */ prout(" Š®à®«¥¢¥ ”¥© ¥â ᪠¨àãîé¨å §®¤®¢."); return; } if (damage[DDSP] != 0.0) { chew(); skip(1); /* prout("Engineer Scott- \"The probe launcher is damaged, Sir.\""); */ prout("ˆ¦¥¥à ‘ª®ââ- \"ã᪮¢ ï ãáâ ®¢ª §®¤®¢ ¯®¢à¥¦¤¥ , ‘íà.\""); return; } if (future[FDSPROB] != 1e30) { chew(); skip(1); if (REPORTS) { /* prout("Uhura- \"The previous probe is still reporting data, Sir.\""); */ prout("“åãà - \" ¥¥ § ¯ãé¥ë¥ §®¤ë ¥é¥ à ¡®â îâ, ‘íà.\""); } else { /* prout("Spock- \"Records show the previous probe has not yet"); prout(" reached its destination.\""); */ prout("‘¯®ª- \"‘ã¤ï ¯® ¦ãà «ã, § ¯ãé¥ë¥ §®¤ë"); prout(" ¥é¥ ¥ ¤®«¥â¥«¨.\""); } return; } key = scan(); if (key == IHEOL) { /* slow mode, so let Kirk know how many probes there are left */ crami(nprobes,1); /* prout(nprobes==1 ? " probe left." : " probes left."); proutn("Are you sure you want to fire a probe? "); */ prout(nprobes==1 ? " §®¤ ®áâ «áï." : " §®¤®¢ ®áâ «®áì."); proutn("‚ë 㢥à¥ë, çâ® å®â¨â¥ § ¯ãáâ¨âì §®¤? "); if (ja()==0) return; } isarmed = FALSE; if (key == IHALPHA && strcmp(citem,"armed") == 0) { isarmed = TRUE; key = scan(); } else if (key == IHEOL) { proutn("‡ à廊âì ¡®¥£®«®¢ªã NOVAMAX?");/*Arm NOVAMAX warhead*/ isarmed = ja(); } getcd(TRUE, key); if (direc == -1.0) return; nprobes--; angle = ((15.0 - direc) * 0.5235988); probeinx = -sin(angle); probeiny = cos(angle); if (fabs(probeinx) > fabs(probeiny)) bigger = fabs(probeinx); else bigger = fabs(probeiny); probeiny /= bigger; probeinx /= bigger; proben = 10.0*dist*bigger +0.5; probex = quadx*10 + sectx - 1; // We will use better packing than original probey = quady*10 + secty - 1; probecx = quadx; probecy = quady; future[FDSPROB] = d.date + 0.01; // Time to move one sector /* prout("Ensign Chekov- \"The deep space probe is launched, Captain.\""); */ prout("Œ¨ç¬ —¥å®¢- \"‡®¤ ¤ «ì¥£® ᪠¨à®¢ ¨ï § ¯ãé¥, Š ¯¨â .\""); return; } void help(void) { /* There's more than one way to move in this game! */ double ddist, xdist, probf; int line, l, ix, iy; chew(); /* Test for conditions which prevent calling for help */ if (condit == IHDOCKED) { /* prout("Lt. Uhura- \"But Captain, we're already docked.\""); */ prout("‹¥©â¥ â “åãà - \"® ª ¯¨â , ¬ë 㦥 ¯à¨áâ몮¢ ë.\""); return; } if (damage[DRADIO] != 0) { /* prout("Subspace radio damaged."); */ prout("®¤¯à®áâà á⢥®¥ à ¤¨® ¯®¢à¥¦¤¥®."); return; } if (d.rembase==0) { /* prout("Lt. Uhura- \"Captain, I'm not getting any response from Starbase.\""); */ prout("‹¥©â¥ â “åãà - \"Š ¯¨â , ï ¥ ¯®«ãç î ®â¢¥â á® áâ 樨.\""); return; } if (landed == 1) { proutn("‚ë ¤®«¦ë ¡ëâì ¡®àâã ");/*You must be aboard the*/ crmshp(); prout("."); return; } /* OK -- call for help from nearest starbase */ nhelp++; if (basex!=0) { /* There's one in this quadrant */ ddist = sqrt(square(basex-sectx)+square(basey-secty)); } else { ddist = 1e30; for (l = 1; l <= d.rembase; l++) { xdist=10.0*sqrt(square(d.baseqx[l]-quadx)+square(d.baseqy[l]-quady)); if (xdist < ddist) { ddist = xdist; line = l; } } /* Since starbase not in quadrant, set up new quadrant */ quadx = d.baseqx[line]; quady = d.baseqy[line]; newqad(1); } /* dematerialize starship */ quad[sectx][secty]=IHDOT; proutn("‘â æ¨ï ¢ â®çª¥");/*Starbase in*/ cramlc(1, quadx, quady); proutn(" ®â¢¥â¨« --");/*responds*/ crmshp(); prout(" ¤¥¬ â¥à¨ «¨§®¢ .");/*dematerializes*/ /* Give starbase three chances to rematerialize starship */ probf = pow((1.0 - pow(0.98,ddist)), 0.33333333); for (l = 1; l <= 3; l++) { switch (l) { case 1: proutn("1ï"); break;/*1st*/ case 2: proutn("2ï"); break;/*2nd*/ case 3: proutn("3ï"); break;/*3rd*/ } proutn(" ¯®¯ë⪠¬ â¥à¨ «¨§®¢ âì ®¡à â® ");/*attempt to re-materialize*/ crmshp(); prouts(" . . . . . "); if (Rand() > probf) break; prout("¯à®¢ «¨« áì.");/*fails*/ } if (l > 3) { finish(FMATERIALIZE); return; } /* Rematerialization attempt should succeed if can get adj to base */ for (l = 1; l <= 5; l++) { ix = basex+3.0*Rand()-1; iy = basey+3.0*Rand()-1; if (ix>=1 && ix<=10 && iy>=1 && iy<=10 && quad[ix][iy]==IHDOT) { /* found one -- finish up */ prout("㤠« áì.");/*succeeds*/ sectx=ix; secty=iy; quad[ix][iy]=ship; dock(); skip(1); /* prout("Lt. Uhura- \"Captain, we made it!\""); */ prout("‹¥©â¥ â “åãà - \"Š ¯¨â , ¬ë ᤥ« «¨ íâ®!\""); return; } } finish(FMATERIALIZE); return; }