- if (condit != IHDOCKED) newcnd();
- for (i = 1; i <= 10; i++) {
- jj = (k!=0 ? k : i);
- if (leftside) {
- proutn("%2d ", i);
- for (j = 1; j <= 10; j++) {
- if (goodScan || (abs(i-sectx)<= 1 && abs(j-secty) <= 1)){
- if ((game.quad[i][j]==IHMATER0)||(game.quad[i][j]==IHMATER1)||(game.quad[i][j]==IHMATER2)||(game.quad[i][j]==IHE)||(game.quad[i][j]==IHF)){
- switch (condit) {
- case IHRED: textcolor(RED); break;
- case IHGREEN: textcolor(GREEN); break;
- case IHYELLOW: textcolor(YELLOW); break;
- case IHDOCKED: textcolor(CYAN); break;
- case IHDEAD: textcolor(BROWN);
- }
- if (game.quad[i][j] != ship)
- highvideo();
- }
- if (game.quad[i][j] & DAMAGED)
- highvideo();
- proutn("%c ",game.quad[i][j] & ~DAMAGED);
- textcolor(DEFAULT);
- }
- else
- proutn("- ");
- }
- }
- if (rightside) {
- switch (jj) {
- case 1:
- proutn("Stardate %.1f, Time Left %.2f", game.state.date, game.state.remtime);
- break;
- case 2:
- if (condit != IHDOCKED) newcnd();
- switch (condit) {
- case IHRED: cp = "RED"; break;
- case IHGREEN: cp = "GREEN"; break;
- case IHYELLOW: cp = "YELLOW"; break;
- case IHDOCKED: cp = "DOCKED"; break;
- case IHDEAD: cp="DEAD"; break;
- }
- for (t=0;t<=NDEVICES;t++)
- if (game.damage[t]>0) dam++;
- proutn("Condition %s, %i DAMAGES", cp, dam);
- break;
- case 3:
- proutn("Position %d - %d , %d - %d",
- quadx, quady, sectx, secty);
- break;
- case 4:
- proutn("Life Support ");
- if (game.damage[DLIFSUP] != 0.0) {
- if (condit == IHDOCKED)
- proutn("DAMAGED, Base provides");
- else
- proutn("DAMAGED, reserves=%4.2f", lsupres);
- }
- else
- proutn("ACTIVE");
- break;
- case 5:
- proutn("Warp Factor %.1f", warpfac);
- break;
- case 6:
- proutn("Energy %.2f", energy);
- break;
- case 7:
- proutn("Torpedoes %d", torps);
- break;
- case 8:
- proutn("Shields ");
- if (game.damage[DSHIELD] != 0)
- proutn("DAMAGED,");
- else if (shldup)
- proutn("UP,");
- else
- proutn("DOWN,");
- proutn(" %d%% %.1f units",
- (int)((100.0*shield)/inshld + 0.5), shield);
- break;
- case 9:
- proutn("Klingons Left %d", game.state.remkl);
- break;
- case 10:
- attakreport(1);
- break;
- }
- }
- if (i<10) proutn("\n\r");
- if (k!=0) return(goodScan);
+ else proutn(" Short-range scan\n\r");
+ if (goodScan && !game.damage[DRADIO]) {
+ game.state.chart[quadx][quady].klingons = game.state.galaxy[quadx][quady].klingons;
+ game.state.chart[quadx][quady].starbase = game.state.galaxy[quadx][quady].starbase;
+ game.state.chart[quadx][quady].stars = game.state.galaxy[quadx][quady].stars;
+ game.state.galaxy[quadx][quady].charted = TRUE;
+ }
+ scan();
+ if (isit("chart")) nn = TRUE;
+ if (isit("no")) rightside = FALSE;
+ chew();
+ proutn(" 1 2 3 4 5 6 7 8 9 10\n\r");
+ break;
+ case SCAN_REQUEST:
+ while (scan() == IHEOL)
+ proutn("Information desired? ");
+ chew();
+ for (req = 1; req <= sizeof(requests)/sizeof(requests[0]); req++)
+ if (strncmp(citem,requests[req],min(2,strlen(citem)))==0)
+ break;
+ if (req > sizeof(requests)/sizeof(requests[0])) {
+ prout("UNRECOGNIZED REQUEST. Legal requests are:\n"
+ " date, condition, position, lsupport, warpfactor,\n"
+ " energy, torpedoes, shields, klingons, time, bases.");
+ return FALSE;
+ }
+ // no break
+ case SCAN_STATUS: // STATUS
+ chew();
+ leftside = FALSE;
+ skip(1);
+ // no break
+ case SCAN_NO_LEFTSIDE: // REQUEST
+ leftside=FALSE;
+ break;
+ }
+ if (condit != IHDOCKED) newcnd();
+ for (i = 1; i <= max(QUADSIZE, sizeof(requests)/sizeof(requests[0])); i++) {
+ jj = (req!=0 ? req : i);
+ if (leftside && i <= QUADSIZE) {
+ proutn("%2d ", i);
+ for_sectors(j) {
+ sectscan(goodScan, i, j);
+ }