mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-16 20:02:35 +03:00
625 lines
18 KiB
C
625 lines
18 KiB
C
#include "sst.h"
|
||
#include <math.h>
|
||
#include <stdlib.h>
|
||
#include <string.h>
|
||
|
||
void attakreport(void) {
|
||
if (future[FCDBAS] < 1e30) {
|
||
proutn("‘â æ¨ï ¢");/*Starbase in*/
|
||
cramlc(1, batx, baty);
|
||
/* prout(" is currently under attack.");
|
||
proutn("It can hold out until Stardate ");
|
||
*/ prout(" 室¨âáï ¯®¤ â ª®©.");
|
||
proutn("Ž ¯à®¤¥à¦¨âáï ¬ ªá¨¬ã¬ ¤® ");
|
||
cramf(future[FCDBAS], 0,1);
|
||
prout(".");
|
||
}
|
||
if (isatb == 1) {
|
||
proutn("‘â æ¨ï ¢");/*Starbase in*/
|
||
cramlc(1, d.isx, d.isy);
|
||
/* prout(" is under Super-commander attack.");
|
||
proutn("It can hold out until Stardate ");
|
||
*/ prout(" 室¨âáï ¯®¤ â ª®© ‘ã¯¥àŠ®¬¬ ¤¥à .");
|
||
proutn("Ž ¯à®¤¥à¦¨âáï ¬ ªá¨¬ã¬ ¤® ");
|
||
cramf(future[FSCDBAS], 0, 1);
|
||
prout(".");
|
||
}
|
||
}
|
||
|
||
|
||
void report(int f) {
|
||
char *s1,*s2,*s3;
|
||
|
||
chew();
|
||
s1 = (thawed?"á®åà ¥ãî ":"");/*thawed*/
|
||
switch (length) {
|
||
case 1: s2="¡ëáâàãî/short"; break;
|
||
case 2: s2="á।îî/medium"; break;
|
||
case 4: s2="¤«¨ãî/long"; break;
|
||
default: s2="¥¨§¢¥á⮩ ¤«¨â¥«ì®áâ¨/unknown length"; break;
|
||
}
|
||
switch (skill) {
|
||
case SNOVICE: s3="®¢¨ç®ª"; break;/*novice*/
|
||
case SFAIR: s3="á « £ "; break;/*fair*/
|
||
case SGOOD: s3="®â«¨ç¨ª"; break;/*good*/
|
||
case SEXPERT: s3="íªá¯¥àâ"; break;/*expert*/
|
||
case SEMERITUS: s3="í¬¥à¨âãá"; break;/*emeritus*/
|
||
default: s3="®¯ëâë©"; break;/*skilled*/
|
||
}
|
||
/* printf("\nYou %s playing a %s%s %s game.\n",
|
||
alldone? "were": "are now", s1, s2, s3);
|
||
*/ printf("\n‚ë %s a %s%s ¨£àã á«®¦®á⨠%s.\n",
|
||
alldone? "áë£à «¨": "ᥩç á ¨£à ¥â¥", s1, s2, s3);
|
||
if (skill>SGOOD && thawed && !alldone) prout("‡ ª ®â«¨ç¨ï ¥ ¢ë¤ ¥âáï.");/*No plaque is allowed*/
|
||
/* if (tourn) printf("This is tournament game %d.\n", tourn); */
|
||
if (tourn) printf("<EFBFBD>â® âãà¨à ï ¨£à %d.\n", tourn);
|
||
/* if (f) printf("Your secret password is \"%s\"\n",passwd); */
|
||
if (f) printf("‚ è ᥪà¥âë© ¯ ஫ì \"%s\"\n",passwd);
|
||
/* printf("%d of %d Klingon ships have been destroyed", */
|
||
printf("%d ¨§ %d ª«¨£®áª¨å ª®à ¡«¥© ã¨ç⮦¥®",
|
||
d.killk+d.killc+d.nsckill, inkling);
|
||
/* if (d.killc) printf(", including %d Commander%s.\n", d.killc, d.killc==1?"":"s"); */
|
||
if (d.killc) printf(", ¢ª«îç ï %d Š®¬¬ ¤¥à%s.\n", d.killc, d.killc==1?" ":"®¢");
|
||
else if (d.killk+d.nsckill > 0) prout(", ® ¨ ®¤®£® Š®¬¬ ¤¥à .");/*but no Commanders*/
|
||
else prout(".");
|
||
/* if (skill > SFAIR) printf("The Super Commander has %sbeen destroyed.\n",
|
||
d.nscrem?"not ":"");
|
||
*/ if (skill > SFAIR) printf("‘ã¯¥àŠ®¬¬ ¤¥à %s¡ë« ã¨ç⮦¥.\n",
|
||
d.nscrem?"¥ ":"");
|
||
if (d.rembase != inbase) {
|
||
/* proutn("There ");
|
||
if (inbase-d.rembase==1) proutn("has been 1 base");
|
||
else {
|
||
proutn("have been ");
|
||
crami(inbase-d.rembase, 1);
|
||
proutn(" bases");
|
||
}
|
||
proutn(" destroyed, ");
|
||
crami(d.rembase, 1);
|
||
prout(" remaining.");
|
||
*/
|
||
if (inbase-d.rembase==1) proutn("…¤¨á⢥ ï áâ æ¨ï ¡ë« ã¨ç⮦¥ ,");
|
||
else {
|
||
proutn("<EFBFBD>ë«® ");
|
||
crami(inbase-d.rembase, 1);
|
||
proutn(" áâ 権 ã¨ç⮦¥®, ");
|
||
}
|
||
crami(d.rembase, 1);
|
||
prout(" ®áâ «®áì.");
|
||
}
|
||
else printf("‚ᥣ® %d áâ 権.\n", inbase);/*There are %d bases*/
|
||
if (REPORTS || iseenit) {
|
||
/* Don't report this if not seen and
|
||
either the radio is dead or not at base! */
|
||
attakreport();
|
||
iseenit = 1;
|
||
}
|
||
/* if (casual) printf("%d casualt%s suffered so far.\n",
|
||
casual, casual==1? "y" : "ies");
|
||
*/ if (casual) printf("%d ᬥàâ%s á।¨ íª¨¯ ¦ .\n",
|
||
casual, casual==1? "ì" : "¥©");
|
||
#ifdef CAPTURE
|
||
/* if (brigcapacity != brigfree) printf("%d Klingon%s in brig.\n",
|
||
brigcapacity-brigfree, brigcapacity-brigfree>1 ? "s" : "");
|
||
*/ if (brigcapacity != brigfree) printf("%d ª«¨£®%s ¡à¨£¥.\n",
|
||
brigcapacity-brigfree, brigcapacity-brigfree>1 ? "®¢" : "");
|
||
/* if (kcaptured > 0) printf("%d captured Klingon%s turned in to Star Fleet.\n",
|
||
kcaptured, kcaptured>1 ? "s" : "");
|
||
*/ if (kcaptured > 0) printf("%d ¯«¥ëå ª«¨£®%s ¯à¨á®¥¤¨¨«¨áì ª ‡¢¥§¤®¬ã ”«®âã.\n",
|
||
kcaptured, kcaptured>1 ? "®¢" : "");
|
||
#endif
|
||
/* if (nhelp) printf("There were %d call%s for help.\n",
|
||
nhelp, nhelp==1 ? "" : "s");
|
||
*/ if (nhelp) printf("‡ 䨪á¨à®¢ ® %d ¢ë§®¢%s ® ¯®¬®é¨.\n",
|
||
nhelp, nhelp==1 ? "" : "®¢");
|
||
if (ship == IHE) {
|
||
proutn("“ ¢ á ®áâ «®áì ");/**/
|
||
if (nprobes) crami(nprobes,1);
|
||
else proutn("0");/*no*/
|
||
proutn(" à §¢¥¤§®¤");/*deep space probe*/
|
||
if (nprobes!=1) proutn("®¢");/*s*/
|
||
prout(".");
|
||
}
|
||
if (REPORTS && future[FDSPROB] != 1e30) {
|
||
if (isarmed)
|
||
/* proutn("An armed deep space probe is in"); */
|
||
proutn("<EFBFBD> §¢¥¤ë¢ ⥫ìë© §®¤ á ¡®¥£®«®¢ª®© ¢ â®çª¥");
|
||
else
|
||
proutn("<EFBFBD> §¢¥¤ë¢ ⥫ìë© §®¤ ¢ â®çª¥");/*A deep space probe is in*/
|
||
cramlc(1, probecx, probecy);
|
||
prout(".");
|
||
}
|
||
if (icrystl) {
|
||
if (cryprob <= .05)
|
||
/* prout("Dilithium crystals aboard ship...not yet used."); */
|
||
prout("„¨«¨â¨¥¢ë¥ ªà¨áâ ««ë ¡®àâã...¥ ¡ë«¨ ¨á¯®«ì§®¢ ë.");
|
||
else {
|
||
int i=0;
|
||
double ai = 0.05;
|
||
while (cryprob > ai) {
|
||
ai *= 2.0;
|
||
i++;
|
||
}
|
||
/* printf("Dilithium crystals have been used %d time%s.\n",
|
||
i, i==1? "" : "s");
|
||
*/ printf("„¨«¨â¨¥¢ë¥ ªà¨áâ «« ¨á¯®«ì§®¢ «¨áì %d à §%s.\n",
|
||
i, (i>1 && i<5)? " " : "");
|
||
}
|
||
}
|
||
skip(1);
|
||
}
|
||
|
||
void lrscan(void) {
|
||
int x, y;
|
||
chew();
|
||
if (damage[DLRSENS] != 0.0) {
|
||
/* Now allow base's sensors if docked */
|
||
if (condit != IHDOCKED) {
|
||
/* prout("LONG-RANGE SENSORS DAMAGED."); */
|
||
prout("‘…<EFBFBD>‘Ž<EFBFBD>› „€‹œ<E280B9>…ƒŽ Ž<>‡Ž<E280A1>€ <20>Ž‚<C5BD>…†„…<E2809E>›.");
|
||
return;
|
||
}
|
||
skip(1);
|
||
/* proutn("Starbase's long-range scan for"); */
|
||
proutn("ˆá¯®«ì§ã¥¬ á¥á®àë áâ 樨 ¤«ï");
|
||
}
|
||
else {
|
||
skip(1);
|
||
/* proutn("Long-range scan for"); */
|
||
proutn("<EFBFBD>ந§¢®¤¨¬ ¤ «ì¥¥ ᪠¨à®¢ ¨¥ ¤«ï");
|
||
}
|
||
cramlc(1, quadx, quady);
|
||
skip(1);
|
||
if (coordfixed)
|
||
for (y = quady+1; y >= quady-1; y--) {
|
||
for (x = quadx-1; x <= quadx+1; x++) {
|
||
if (x == 0 || x > 8 || y == 0 || y > 8)
|
||
printf(" -1");
|
||
else {
|
||
printf("%5d", d.galaxy[x][y]);
|
||
// If radio works, mark star chart so
|
||
// it will show current information.
|
||
// Otherwise mark with current
|
||
// value which is fixed.
|
||
starch[x][y] = damage[DRADIO] > 0 ? d.galaxy[x][y]+1000 :1;
|
||
}
|
||
}
|
||
putchar('\n');
|
||
}
|
||
else
|
||
for (x = quadx-1; x <= quadx+1; x++) {
|
||
for (y = quady-1; y <= quady+1; y++) {
|
||
if (x == 0 || x > 8 || y == 0 || y > 8)
|
||
printf(" -1");
|
||
else {
|
||
printf("%5d", d.galaxy[x][y]);
|
||
// If radio works, mark star chart so
|
||
// it will show current information.
|
||
// Otherwise mark with current
|
||
// value which is fixed.
|
||
starch[x][y] = damage[DRADIO] > 0 ? d.galaxy[x][y]+1000 :1;
|
||
}
|
||
}
|
||
putchar('\n');
|
||
}
|
||
|
||
}
|
||
|
||
void dreprt(void) {
|
||
int jdam = FALSE, i;
|
||
chew();
|
||
|
||
for (i = 1; i <= ndevice; i++) {
|
||
if (damage[i] > 0.0) {
|
||
if (!jdam) {
|
||
skip(1);
|
||
/* prout("DEVICE -REPAIR TIMES-");
|
||
prout(" IN FLIGHT DOCKED");
|
||
*/ prout("<EFBFBD>Ž„‘ˆ‘’…Œ€ -‚<>…ŒŸ <20>€ <20>…ŒŽ<C592>’-");
|
||
prout(" ‚ ŠŽ‘ŒŽ‘… <20>€ ‘’€<E28099>–ˆˆ");
|
||
jdam = TRUE;
|
||
}
|
||
printf(" %16s ", device[i]);
|
||
cramf(damage[i]+0.05, 8, 2);
|
||
proutn(" ");
|
||
cramf(docfac*damage[i]+0.005, 8, 2);
|
||
skip(1);
|
||
}
|
||
}
|
||
/* if (!jdam) prout("All devices functional."); */
|
||
if (!jdam) prout("‚ᥠ¯®¤á¨áâ¥¬ë ¨á¯à ¢ë.");
|
||
}
|
||
|
||
void chart(int nn) {
|
||
int i,j;
|
||
|
||
chew();
|
||
skip(1);
|
||
if (stdamtim != 1e30 && stdamtim != d.date && condit == IHDOCKED) {
|
||
/* prout("Spock- \"I revised the Star Chart from the");
|
||
prout(" starbase's records.\"");
|
||
*/ prout("‘¯®ª- \"Ÿ ®¡®¢¨« §¢¥§¤ãî ª àâã");
|
||
prout(" ¯® ¤ ë¬ áâ 樨.\"");
|
||
skip(1);
|
||
}
|
||
/* if (nn == 0) prout("STAR CHART FOR THE KNOWN GALAXY"); */
|
||
if (nn == 0) prout("‡‚…‡„<EFBFBD>€Ÿ Š€<C5A0>’€ ˆ‡‚…‘’<E28098>Ž‰ —€‘’ˆ ƒ€‹€Š’ˆŠˆ");
|
||
if (stdamtim != 1e30) {
|
||
if (condit == IHDOCKED) {
|
||
/* We are docked, so restore chart from base information -- these values won't update! */
|
||
stdamtim = d.date;
|
||
for (i=1; i <= 8 ; i++)
|
||
for (j=1; j <= 8; j++)
|
||
if (starch[i][j] == 1) starch[i][j] = d.galaxy[i][j]+1000;
|
||
}
|
||
else {
|
||
proutn("(<28>®á«¥¤¥¥ ®¡®¢«¥¨¥ ¤ ëå ");/*Last surveillance update*/
|
||
cramf(d.date-stdamtim, 0, 1);
|
||
prout(" §¢¥§¤ëå «¥â § ¤.)");/*stardates ago*/
|
||
}
|
||
}
|
||
if (nn ==0) skip(1);
|
||
|
||
prout(" 1 2 3 4 5 6 7 8");
|
||
prout(" ----------------------------------------");
|
||
if (nn==0) prout(" -");
|
||
if (coordfixed)
|
||
for (j = 8; j >= 1; j--) {
|
||
printf("%d -", j);
|
||
for (i = 1; i <= 8; i++) {
|
||
if (starch[i][j] < 0) // We know only about the bases
|
||
printf(" .1.");
|
||
else if (starch[i][j] == 0) // Unknown
|
||
printf(" ...");
|
||
else if (starch[i][j] > 999) // Memorized value
|
||
printf("%5d", starch[i][j]-1000);
|
||
else
|
||
printf("%5d", d.galaxy[i][j]); // What is actually there (happens when value is 1)
|
||
}
|
||
prout(" -");
|
||
}
|
||
else
|
||
for (i = 1; i <= 8; i++) {
|
||
printf("%d -", i);
|
||
for (j = 1; j <= 8; j++) {
|
||
if (starch[i][j] < 0) // We know only about the bases
|
||
printf(" .1.");
|
||
else if (starch[i][j] == 0) // Unknown
|
||
printf(" ...");
|
||
else if (starch[i][j] > 999) // Memorized value
|
||
printf("%5d", starch[i][j]-1000);
|
||
else
|
||
printf("%5d", d.galaxy[i][j]); // What is actually there (happens when value is 1)
|
||
}
|
||
prout(" -");
|
||
}
|
||
if (nn == 0) {
|
||
skip(1);
|
||
crmshp();
|
||
proutn(" 室¨âáï ¢ â®çª¥");/*is currently in*/
|
||
cramlc(1, quadx, quady);
|
||
skip(1);
|
||
}
|
||
}
|
||
|
||
|
||
void srscan(int l) {
|
||
static char requests[][3] =
|
||
{"","da","co","po","ls","wa","en","to","sh","kl","ti"};
|
||
char *cp;
|
||
int leftside=TRUE, rightside=TRUE, i, j, jj, k=0, nn=FALSE;
|
||
int goodScan=TRUE;
|
||
switch (l) {
|
||
case 1: // SRSCAN
|
||
if (damage[DSRSENS] != 0) {
|
||
/* Allow base's sensors if docked */
|
||
if (condit != IHDOCKED) {
|
||
/* prout("SHORT-RANGE SENSORS DAMAGED"); */
|
||
prout("<EFBFBD>‹ˆ†<EFBFBD>ˆ… ‘…<E28098>‘Ž<E28098>› <20>Ž‚<C5BD>…†„…<E2809E>›");
|
||
goodScan=FALSE;
|
||
}
|
||
else
|
||
/* prout("[Using starbase's sensors]"); */
|
||
prout("[ˆá¯®«ì§ã¥¬ á¥á®àë áâ 樨]");
|
||
}
|
||
if (goodScan)
|
||
starch[quadx][quady] = damage[DRADIO]>0.0 ?
|
||
d.galaxy[quadx][quady]+1000:1;
|
||
scan();
|
||
if (isit("chart")) nn = TRUE;
|
||
if (isit("no")) rightside = FALSE;
|
||
chew();
|
||
prout("\n 1 2 3 4 5 6 7 8 9 10");
|
||
break;
|
||
case 2: // REQUEST
|
||
while (scan() == IHEOL)
|
||
/* printf("Information desired? "); */
|
||
printf("†¥« ¥¬ ï ¨ä®à¬ æ¨ï? ");
|
||
chew();
|
||
for (k = 1; k <= 10; k++)
|
||
if (strncmp(citem,requests[k],min(2,strlen(citem)))==0)
|
||
break;
|
||
if (k > 10) {
|
||
/* prout("UNRECOGNIZED REQUEST. Legal requests are:\n"
|
||
" date, condition, position, lsupport, warpfactor,\n"
|
||
" energy, torpedoes, shields, klingons, time.");
|
||
*/ prout("‡€<EFBFBD><EFBFBD>Ž‘ <20>…<EFBFBD>€‘<E282AC>Ž‡<C5BD>€<EFBFBD>. Š®à४âë¥ § ¯à®áë (¤¢¥ ¡ãª¢ë):\n"
|
||
" date(¤ â ), condition(á®áâ®ï¨¥), position(¯®«®¦¥¨¥),\n"
|
||
" lsupport (¦¨§¥®¡¥á¯¥ç¥¨¥), warpfactor (¢ à¯-ä ªâ®à),\n"
|
||
" energy(í¥à£¨ï), torpedoes(â®à¯¥¤ë), shields (ᨫ®¢ë¥ é¨âë),\n"
|
||
" klingons(ª«¨£®ë), time(¢à¥¬ï).");
|
||
return;
|
||
}
|
||
// no "break"
|
||
case 3: // STATUS
|
||
chew();
|
||
leftside = FALSE;
|
||
skip(1);
|
||
}
|
||
for (i = 1; i <= 10; i++) {
|
||
int jj = (k!=0 ? k : i);
|
||
if (leftside) {
|
||
if (coordfixed) {
|
||
printf("%2d ", 11-i);
|
||
for (j = 1; j <= 10; j++) {
|
||
if (goodScan || (abs((11-i)-secty)<= 1 && abs(j-sectx) <= 1))
|
||
printf("%c ",quad[j][11-i]);
|
||
else
|
||
printf("- ");
|
||
}
|
||
} else {
|
||
printf("%2d ", i);
|
||
for (j = 1; j <= 10; j++) {
|
||
if (goodScan || (abs(i-sectx)<= 1 && abs(j-secty) <= 1))
|
||
printf("%c ",quad[i][j]);
|
||
else
|
||
printf("- ");
|
||
}
|
||
}
|
||
}
|
||
if (rightside) {
|
||
switch (jj) {
|
||
case 1:
|
||
printf(" ‡¢¥§¤ ï ¤ â %.1f", d.date);/*Stardate*/
|
||
break;
|
||
case 2:
|
||
if (condit != IHDOCKED) newcnd();
|
||
switch (condit) {
|
||
case IHRED: cp = "Š<EFBFBD>€‘<EFBFBD>›‰"; break;/*RED*/
|
||
case IHGREEN: cp = "‡…‹…<EFBFBD>›‰"; break;/*GREEN*/
|
||
case IHYELLOW: cp = "†…‹’›‰"; break;/*YELLOW*/
|
||
case IHDOCKED: cp = "<EFBFBD><EFBFBD>ˆ‘’›ŠŽ‚€<EFBFBD>"; break;/*DOCKED*/
|
||
}
|
||
/* printf(" Condition %s", cp); */
|
||
printf(" ‘®áâ®ï¨¥/‘â âãá %s", cp);
|
||
#ifdef CLOAKING
|
||
if (iscloaked) printf(", Œ€Šˆ<C5A0>Ž‚€<E2809A>");/*CLOAKED*/
|
||
#endif
|
||
break;
|
||
case 3:
|
||
printf(" <20>®«®¦¥¨¥ ");/*Position*/
|
||
cramlc(0, quadx, quady);
|
||
putchar(',');
|
||
cramlc(0, sectx, secty);
|
||
break;
|
||
case 4:
|
||
printf(" †¨§¥®¡¥á¯¥ç¥¨¥ ");/*Life Support*/
|
||
if (damage[DLIFSUP] != 0.0) {
|
||
if (condit == IHDOCKED)
|
||
/* printf("DAMAGED, supported by starbase");
|
||
else
|
||
printf("DAMAGED, reserves=%4.2f", lsupres);
|
||
*/ printf("<EFBFBD>Ž‚<EFBFBD>…†„…<EFBFBD>Ž, ¯¨â ¥¬áï ®â áâ 樨");
|
||
else
|
||
printf("<EFBFBD>Ž‚<EFBFBD>…†„…<EFBFBD>Ž, १¥à¢=%4.2f", lsupres);
|
||
}
|
||
else
|
||
printf("€Š’ˆ‚<EFBFBD>Ž");/*ACTIVE*/
|
||
break;
|
||
case 5:
|
||
printf(" ‚ à¯-ä ªâ®à %.1f", warpfac);/*Warp Factor*/
|
||
break;
|
||
case 6:
|
||
printf(" <20>¥à£¨ï %.2f", energy);/*Energy */
|
||
break;
|
||
case 7:
|
||
printf(" ’®à¯¥¤ %d", torps);/*Torpedoes*/
|
||
break;
|
||
case 8:
|
||
printf(" ‘¨«®¢ë¥ é¨âë ");/*Shields*/
|
||
if (damage[DSHIELD] != 0)
|
||
printf("<EFBFBD>Ž‚<EFBFBD>…†„…<EFBFBD>›,");/*DAMAGED*/
|
||
else if (shldup)
|
||
printf("€Š’ˆ‚<EFBFBD>›,");/*UP*/
|
||
else
|
||
printf("Ž’Š‹ž—…<EFBFBD>›,");/*DOWN*/
|
||
printf(" %d%% %.1f ¥¤¨¨æ",/*units*/
|
||
(int)((100.0*shield)/inshld + 0.5), shield);
|
||
break;
|
||
case 9:
|
||
printf(" Š«¨£®®¢ ®áâ «®áì %d", d.remkl);/*Klingons Left*/
|
||
break;
|
||
case 10:
|
||
printf(" ‚६¥¨ ®áâ «®áì %.2f", d.remtime);/*Time Left*/
|
||
break;
|
||
}
|
||
|
||
}
|
||
skip(1);
|
||
if (k!=0) return;
|
||
}
|
||
if (nn) chart(1);
|
||
}
|
||
|
||
|
||
void eta(void) {
|
||
int key, ix1, ix2, iy1, iy2, prompt=FALSE;
|
||
int wfl;
|
||
double ttime, twarp, tpower;
|
||
if (damage[DCOMPTR] != 0.0) {
|
||
/* prout("COMPUTER DAMAGED, USE A POCKET CALCULATOR."); */
|
||
prout("ŠŽŒ<EFBFBD>œž’…<EFBFBD> <20>Ž‚<C5BD>…†„…<E2809E>, ˆ‘<CB86>Ž‹œ‡“ž <20>€‘’Ž‹œ<E280B9>›‰ Š€‹œŠ“‹Ÿ’Ž<E28099>.");
|
||
skip(1);
|
||
return;
|
||
}
|
||
if (scan() != IHREAL) {
|
||
prompt = TRUE;
|
||
chew();
|
||
/* proutn("Destination quadrant and/or sector? "); */
|
||
proutn("Š¢ ¤à â § ç¥¨ï ¨/¨«¨ ᥪâ®à? ");
|
||
if (scan()!=IHREAL) {
|
||
huh();
|
||
return;
|
||
}
|
||
}
|
||
iy1 = aaitem +0.5;
|
||
if (scan() != IHREAL) {
|
||
huh();
|
||
return;
|
||
}
|
||
ix1 = aaitem + 0.5;
|
||
if (scan() == IHREAL) {
|
||
iy2 = aaitem + 0.5;
|
||
if (scan() != IHREAL) {
|
||
huh();
|
||
return;
|
||
}
|
||
ix2 = aaitem + 0.5;
|
||
}
|
||
else { // same quadrant
|
||
ix2 = ix1;
|
||
iy2 = iy1;
|
||
ix1 = quady; // ya got me why x and y are reversed!
|
||
iy1 = quadx;
|
||
}
|
||
|
||
if (ix1 > 8 || ix1 < 1 || iy1 > 8 || iy1 < 1 ||
|
||
ix2 > 10 || ix2 < 1 || iy2 > 10 || iy2 < 1) {
|
||
huh();
|
||
return;
|
||
}
|
||
dist = sqrt(square(iy1-quadx+0.1*(iy2-sectx))+
|
||
square(ix1-quady+0.1*(ix2-secty)));
|
||
wfl = FALSE;
|
||
|
||
/* if (prompt) prout("Answer \"no\" if you don't know the value:"); */
|
||
if (prompt) prout("Žâ¢¥âì⥠\"no\" ¥á«¨ ¢ë ¥ § ¥â¥ § 票¥:");
|
||
while (TRUE) {
|
||
chew();
|
||
/* proutn("Time or arrival date? "); */
|
||
proutn("‚à¥¬ï ¨«¨ ¤ ⠯ਡëâ¨ï? ");
|
||
if (scan()==IHREAL) {
|
||
ttime = aaitem;
|
||
if (ttime > d.date) ttime -= d.date; // Actually a star date
|
||
if (ttime <= 1e-10 ||
|
||
(twarp=(floor(sqrt((10.0*dist)/ttime)*10.0)+1.0)/10.0) > 10) {
|
||
/* prout("We'll never make it, sir."); */
|
||
prout("Œë ¨ª®£¤ ¥ ᤥ« ¥¬ íâ®, ‘íà.");
|
||
chew();
|
||
return;
|
||
}
|
||
if (twarp < 1.0) twarp = 1.0;
|
||
break;
|
||
}
|
||
chew();
|
||
proutn("‚ à¯-ä ªâ®à? ");/*Warp factor*/
|
||
if (scan()== IHREAL) {
|
||
wfl = TRUE;
|
||
twarp = aaitem;
|
||
if (twarp<1.0 || twarp > 10.0) {
|
||
huh();
|
||
return;
|
||
}
|
||
break;
|
||
}
|
||
/* prout("Captain, certainly you can give me one of these."); */
|
||
prout("Š ¯¨â , ¬¥ ®¯à¥¤¥«¥® 㦮 § âì ®¤¨ ¨§ ¢ ਠ⮢.");
|
||
}
|
||
while (TRUE) {
|
||
chew();
|
||
ttime = (10.0*dist)/square(twarp);
|
||
tpower = dist*twarp*twarp*twarp*(shldup+1);
|
||
if (tpower >= energy) { // Suggestion from Ethan Staffin -- give amount needed
|
||
/* prout("Insufficient energy, sir: we would need "); */
|
||
prout("<EFBFBD>¥¤®áâ â®ç® í¥à£¨¨, ‘íà: ¬ 㦮 ");
|
||
cramf(tpower, 1, 1);
|
||
proutn (" ¥¤¨¨æ.");/*units*/
|
||
if (shldup==0 || tpower > energy*2.0) {
|
||
if (!wfl) return;
|
||
/* proutn("New warp factor to try? "); */
|
||
proutn("<EFBFBD>஡㥬 ¤à㣮© ¢ à¯-ä ªâ®à? ");
|
||
if (scan() == IHREAL) {
|
||
wfl = TRUE;
|
||
twarp = aaitem;
|
||
if (twarp<1.0 || twarp > 10.0) {
|
||
huh();
|
||
return;
|
||
}
|
||
continue;
|
||
}
|
||
else {
|
||
chew();
|
||
skip(1);
|
||
return;
|
||
}
|
||
}
|
||
/* prout("But if you lower your shields,");
|
||
proutn("remaining");
|
||
*/ prout("<EFBFBD>® ¥á«¨ ®¯ãáâ¨âì ᨫ®¢ë¥ é¨âë,");
|
||
proutn("®áâ ¥âáï");
|
||
tpower /= 2;
|
||
}
|
||
else
|
||
proutn("Žáâ ¥âáï"); /*Remaining*/
|
||
proutn(" í¥à£¨¨ ");/*energy will be*/
|
||
cramf(energy-tpower, 1, 1);
|
||
prout(".");
|
||
if (wfl) {
|
||
/* proutn("And we will arrive at stardate "); */
|
||
proutn("ˆ ¬ë ¯à¨«¥â¨¬ ¢ ã¦ãî â®çªã ª ¤ ⥠");
|
||
cramf(d.date+ttime, 1, 1);
|
||
prout(".");
|
||
}
|
||
else if (twarp==1.0)
|
||
/* prout("Any warp speed is adequate."); */
|
||
prout("<EFBFBD> á ãáâà®¨â «î¡ ï ᪮à®áâì ¢ ௠.");
|
||
else {
|
||
/* proutn("Minimum warp needed is "); */
|
||
proutn("Œ¨¨¬ «ì® âॡ㥬 ï ¢ à¯-᪮à®áâì ");
|
||
cramf(twarp, 1, 2);
|
||
skip(1);
|
||
/* proutn("and we will arrive at stardate "); */
|
||
proutn("¨ ¬ë ¯à¨«¥â¨¬ ¢ ã¦ãî â®çªã ª ¤ ⥠");
|
||
cramf(d.date+ttime, 1, 2);
|
||
prout(".");
|
||
}
|
||
if (d.remtime < ttime)
|
||
/* prout("Unfortunately, the Federation will be destroyed by then."); */
|
||
prout("<EFBFBD>¥ç «ì®, ® ª ⮬㠢६¥¨ ”¥¤¥à æ¨ï ¡ã¤¥â ã¨ç⮦¥ .");
|
||
if (twarp > 6.0)
|
||
/* prout("You'll be taking risks at that speed, Captain"); */
|
||
prout("‚ë ¤®«¦ë ¯®¨¬ âì à¨áª¨ â ª®© ᪮à®áâ¨, Š ¯¨â ");
|
||
if ((isatb==1 && d.isy == ix1 && d.isx == iy1 &&
|
||
future[FSCDBAS]< ttime+d.date)||
|
||
(future[FCDBAS]<ttime+d.date && baty==ix1 && batx == iy1))
|
||
/* prout("The starbase there will be destroyed by then."); */
|
||
prout("‘â æ¨ï ¡ã¤¥â 㦥 ã¨ç⮦¥ ª í⮬㠢६¥¨.");
|
||
/* proutn("New warp factor to try? "); */
|
||
proutn("<EFBFBD>஡㥬 ¤à㣮© ¢ à¯-ä ªâ®à? ");
|
||
if (scan() == IHREAL) {
|
||
wfl = TRUE;
|
||
twarp = aaitem;
|
||
if (twarp<1.0 || twarp > 10.0) {
|
||
huh();
|
||
return;
|
||
}
|
||
}
|
||
else {
|
||
chew();
|
||
skip(1);
|
||
return;
|
||
}
|
||
}
|
||
|
||
}
|