c-version/src/sst.c

   1 #include <ctype.h>
   2 #include <getopt.h>
   3 #include <time.h>
   4 #include "sstlinux.h"
   5 #include "sst.h"
   6
   7 #define DOC_NAME "sst.doc"
   8
   9 /*
  10
  11 Dave Matuszek says:
  12
  13    SRSCAN, MOVE, PHASERS, CALL, STATUS, IMPULSE, PHOTONS, ABANDON,
  14    LRSCAN, WARP, SHIELDS, DESTRUCT, CHART, REST, DOCK, QUIT, and DAMAGE
  15    were in the original non-"super" version of UT FORTRAN Star Trek.
  16
  17    Tholians weren't in the original. Dave is dubious about their merits.
  18    (They are now controlled by OPTION_THOLIAN and turned off if the game
  19    type is "plain".)
  20
  21    Planets and dilithium crystals weren't in the original.  Dave is OK
  22    with this idea. (It's now controlled by OPTION_PLANETS and turned
  23    off if the game type is "plain".)
  24
  25    Dave says the bit about the Galileo getting turned into a
  26    McDonald's is "consistant with our original vision".  (This has been
  27    left permanently enabled, as it can only happen if OPTION_PLANETS
  28    is on.)
  29
  30    Dave also says the Space Thingy should not be preserved across saved
  31    games, so you can't prove to others that you've seen it.  He says it
  32    shouldn't fire back, either.  It should do nothing except scream and
  33    disappear when hit by photon torpedos.  It's OK that it may move
  34    when attacked, but it didn't in the original.  (Whether the Thingy
  35    can fire back is now controlled by OPTION_THINGY and turned off if the
  36    game type is "plain" or "almy".  The no-save behavior has been restored.)
  37
  38    The Faerie Queen, black holes, and time warping were in the original.
  39
  40 Here are Tom Almy's changes:
  41
  42    In early 1997, I got the bright idea to look for references to
  43    "Super Star Trek" on the World Wide Web. There weren't many hits,
  44    but there was one that came up with 1979 Fortran sources! This
  45    version had a few additional features that mine didn't have,
  46    however mine had some feature it didn't have. So I merged its
  47    features that I liked. I also took a peek at the DECUS version (a
  48    port, less sources, to the PDP-10), and some other variations.
  49
  50    1, Compared to the original UT version, I've changed the "help" command to
  51       "call" and the "terminate" command to "quit" to better match
  52       user expectations. The DECUS version apparently made those changes
  53       as well as changing "freeze" to "save". However I like "freeze".
  54       (Both "freeze" and "save" work in SST2K.)
  55
  56    2. The experimental deathray originally had only a 5% chance of
  57       success, but could be used repeatedly. I guess after a couple
  58       years of use, it was less "experimental" because the 1979
  59       version had a 70% success rate. However it was prone to breaking
  60       after use. I upgraded the deathray, but kept the original set of
  61       failure modes (great humor!).  (Now controlled by OPTION_DEATHRAY
  62       and turned off if game type is "plain".)
  63
  64    3. The 1979 version also mentions srscan and lrscan working when
  65       docked (using the starbase's scanners), so I made some changes here
  66       to do this (and indicating that fact to the player), and then realized
  67       the base would have a subspace radio as well -- doing a Chart when docked
  68       updates the star chart, and all radio reports will be heard. The Dock
  69       command will also give a report if a base is under attack.
  70
  71    4. Tholian Web from the 1979 version.  (Now controlled by
  72       OPTION_THOLIAN and turned off if game type is "plain".)
  73
  74    5. Enemies can ram the Enterprise. (Now controlled by OPTION_RAMMING
  75       and turned off if game type is "plain".)
  76
  77    6. Regular Klingons and Romulans can move in Expert and Emeritus games.
  78       This code could use improvement. (Now controlled by OPTION_MVBADDY
  79       and turned off if game type is "plain".)
  80
  81    7. The deep-space probe feature from the DECUS version.  (Now controlled
  82       by OPTION_PROBE and turned off if game type is "plain").
  83
  84    8. 'emexit' command from the 1979 version.
  85
  86    9. Bugfix: Klingon commander movements are no longer reported if long-range
  87       sensors are damaged.
  88
  89    10. Bugfix: Better base positioning at startup (more spread out).
  90       That made sense to add because most people abort games with
  91       bad base placement.
  92
  93    In June 2002, I fixed two known bugs and a documentation typo.
  94    In June 2004 I fixed a number of bugs involving: 1) parsing invalid
  95    numbers, 2) manual phasers when SR scan is damaged and commander is
  96    present, 3) time warping into the future, 4) hang when moving
  97    klingons in crowded quadrants.  (These fixes are in SST2K.)
  98
  99 Here are Stas Sergeev's changes:
 100
 101    1. The Space Thingy can be shoved, if you ram it, and can fire back if
 102       fired upon. (Now controlled by OPTION_THINGY and turned off if game
 103       type is "plain" or "almy".)
 104
 105    2. When you are docked, base covers you with an almost invincible shield.
 106       (A commander can still ram you, or a Romulan can destroy the base,
 107       or a SCom can even succeed with direct attack IIRC, but this rarely
 108       happens.)  (Now controlled by OPTION_BASE and turned off if game
 109       type is "plain" or "almy".)
 110
 111    3. Ramming a black hole is no longer instant death.  There is a
 112       chance you might get timewarped instead. (Now controlled by
 113       OPTION_BLKHOLE and turned off if game type is "plain" or "almy".)
 114
 115    4. The Tholian can be hit with phasers.
 116
 117    5. SCom can't escape from you if no more enemies remain
 118       (without this, chasing SCom can take an eternity).
 119
 120    6. Probe target you enter is now the destination quadrant. Before I don't
 121       remember what it was, but it was something I had difficulty using.
 122
 123    7. Secret password is now autogenerated.
 124
 125    8. "Plaque" is adjusted for A4 paper :-)
 126
 127    9. Phasers now tells you how much energy needed, but only if the computer
 128       is alive.
 129
 130    10. Planets are auto-scanned when you enter the quadrant.
 131
 132    11. Mining or using crystals in presense of enemy now yields an attack.
 133        There are other minor adjustments to what yields an attack
 134        and what does not.
 135
 136    12. "freeze" command reverts to "save", most people will understand this
 137        better anyway. (SST2K recognizes both.)
 138
 139    13. Screen-oriented interface, with sensor scans always up.  (SST2K
 140        supports both screen-oriented and TTY modes.)
 141
 142 Eric Raymond's changes:
 143
 144 Mainly, I translated this C code out of FORTRAN into C -- created #defines
 145 for a lot of magic numbers and refactored the heck out of it.
 146
 147    1. "sos" and "call" becomes "mayday", "freeze" and "save" are both good.
 148
 149    2. Status report now indicates when dilithium crystals are on board.
 150
 151    3. Per Dave Matuszek's remarks, Thingy state is never saved across games.
 152
 153    4. Added game option selection so you can play a close (but not bug-for-
 154       bug identical) approximation of older versions.
 155
 156    5. Half the quadrants now have inhabited planets, from which one
 157       cannot mine dilithium (there will still be the same additional number
 158       of dilithium-bearing planets).  Torpedoing an inhabited world is *bad*.
 159       There is BSD-Trek-like logic for Klingons to attack and enslave
 160       inhabited worlds, producing more ships (only is skill is 'good' or
 161       better). (Controlled by OPTION_WORLDS and turned off if game
 162       type is "plain" or "almy".)
 163
 164    6. User input is now logged so we can do regression testing.
 165
 166    7. More BSD-Trek features: You can now lose if your entire crew
 167       dies in battle.  When abandoning ship in a game with inhabited
 168       worlds enabled, they must have one in the quadrant to beam down
 169       to; otherwise they die in space and this counts heavily against
 170       your score.  Docking at a starbase replenishes your crew.
 171
 172    8. Still more BSD-Trek: we now have a weighted damage table.
 173       Also, the nav subsystem (enabling automatic course
 174       setting) can be damaged separately from the main computer (which
 175       handles weapons targeting, ETA calculation, and self-destruct).
 176 */
 177
 178 /* the input queue */
 179 static char line[128], *linep = line;
 180
 181 struct game game;
 182 coord thing;
 183 bool iqhere, iqengry;
 184 int iscore, iskill;     // Common PLAQ
 185 double aaitem;
 186 double perdate;
 187 char citem[12];
 188 int seed;               // the random-number seed
 189 bool idebug;            // debug mode
 190 FILE *logfp, *replayfp;
 191
 192 char *systnames[NINHAB];
 193 char *device[NDEVICES];
 194
 195 static struct
 196 {
 197     char *name;
 198     int value;
 199     unsigned long option;
 200 }
 201
 202 commands[] = {
 203 #define SRSCAN  0
 204         {"SRSCAN",      SRSCAN,         OPTION_TTY},
 205 #define STATUS  1
 206         {"STATUS",      STATUS,         OPTION_TTY},
 207 #define REQUEST 2
 208         {"REQUEST",     REQUEST,        OPTION_TTY},
 209 #define LRSCAN  3
 210         {"LRSCAN",      LRSCAN,         OPTION_TTY},
 211 #define PHASERS 4
 212         {"PHASERS",     PHASERS,        0},
 213 #define TORPEDO 5
 214         {"TORPEDO",     TORPEDO,        0},
 215         {"PHOTONS",     TORPEDO,        0},
 216 #define MOVE    7
 217         {"MOVE",        MOVE,           0},
 218 #define SHIELDS 8
 219         {"SHIELDS",     SHIELDS,        0},
 220 #define DOCK    9
 221         {"DOCK",        DOCK,           0},
 222 #define DAMAGES 10
 223         {"DAMAGES",     DAMAGES,        0},
 224 #define CHART   11
 225         {"CHART",       CHART,          0},
 226 #define IMPULSE 12
 227         {"IMPULSE",     IMPULSE,        0},
 228 #define REST    13
 229         {"REST",        REST,           0},
 230 #define WARP    14
 231         {"WARP",        WARP,           0},
 232 #define SCORE   15
 233         {"SCORE",       SCORE,          0},
 234 #define SENSORS 16
 235         {"SENSORS",     SENSORS,        OPTION_PLANETS},
 236 #define ORBIT   17
 237         {"ORBIT",       ORBIT,          OPTION_PLANETS},
 238 #define TRANSPORT       18
 239         {"TRANSPORT",   TRANSPORT,      OPTION_PLANETS},
 240 #define MINE    19
 241         {"MINE",        MINE,           OPTION_PLANETS},
 242 #define CRYSTALS        20
 243         {"CRYSTALS",    CRYSTALS,       OPTION_PLANETS},
 244 #define SHUTTLE 21
 245         {"SHUTTLE",     SHUTTLE,        OPTION_PLANETS},
 246 #define PLANETS 22
 247         {"PLANETS",     PLANETS,        OPTION_PLANETS},
 248 #define REPORT  23
 249         {"REPORT",      REPORT,         0},
 250 #define COMPUTER        24
 251         {"COMPUTER",    COMPUTER,       0},
 252 #define COMMANDS        25
 253         {"COMMANDS",    COMMANDS,       0},
 254 #define EMEXIT  26
 255         {"EMEXIT",      EMEXIT,         0},
 256 #define PROBE   27
 257         {"PROBE",       PROBE,          OPTION_PROBE},
 258 #define SAVE    28
 259         {"SAVE",        SAVE,           0},
 260         {"FREEZE",      SAVE,           0},
 261 #define ABANDON 30
 262         {"ABANDON",     ABANDON,        0},
 263 #define DESTRUCT        31
 264         {"DESTRUCT",    DESTRUCT,       0},
 265 #define DEATHRAY        32
 266         {"DEATHRAY",    DEATHRAY,       0},
 267 #define DEBUGCMD        33
 268         {"DEBUG",       DEBUGCMD,       0},
 269 #define MAYDAY  34
 270         {"MAYDAY",      MAYDAY,         0},
 271         //{"SOS",               MAYDAY,         0},
 272         //{"CALL",      MAYDAY,         0},
 273 #define QUIT    35
 274         {"QUIT",        QUIT,           0},
 275 #define HELP    36
 276         {"HELP",        HELP,           0},
 277 #define SEED    37
 278         {"SEED",        SEED,           0},
 279 #ifdef BSD_BUG_FOR_BUG
 280 #define VISUAL  38
 281         {"VISUAL",      VISUAL,         0},
 282 #endif
 283 };
 284
 285 #define NUMCOMMANDS     ARRAY_SIZE(commands)
 286 #define ACCEPT(i)       (!commands[i].option || (commands[i].option & game.options))
 287
 288 static void listCommands(void)
 289 /* generate a list of legal commands */
 290 {
 291     int i, k = 0;
 292     proutn(_("LEGAL COMMANDS ARE:"));
 293     for (i = 0; i < NUMCOMMANDS; i++) {
 294         if (!ACCEPT(i))
 295             continue;
 296         if (k % 5 == 0)
 297             skip(1);
 298         proutn("%-12s ", commands[i].name);
 299         k++;
 300     }
 301     skip(1);
 302 }
 303
 304 static void helpme(void)
 305 /* browse on-line help */
 306 {
 307     int i, j;
 308     char cmdbuf[32], *cp;
 309     char linebuf[132];
 310     FILE *fp;
 311     /* Give help on commands */
 312     int key;
 313     key = scan();
 314     for(;;) {
 315         if (key == IHEOL) {
 316             setwnd(prompt_window);
 317             proutn(_("Help on what command? "));
 318             key = scan();
 319         }
 320         setwnd(message_window);
 321         if (key == IHEOL)
 322             return;
 323         for (i = 0; i < NUMCOMMANDS; i++) {
 324             if (ACCEPT(i) && strcasecmp(commands[i].name, citem)==0) {
 325                 i = commands[i].value;
 326                 break;
 327             }
 328         }
 329         if (i != NUMCOMMANDS)
 330             break;
 331         skip(1);
 332         listCommands();
 333         key = IHEOL;
 334         chew();
 335         skip(1);
 336     }
 337     if (i == COMMANDS) {
 338         strcpy(cmdbuf, " ABBREV");
 339     }
 340     else {
 341         for (j = 0; commands[i].name[j]; j++)
 342             cmdbuf[j] = toupper(commands[i].name[j]);
 343         cmdbuf[j] = '\0';
 344     }
 345     fp = fopen(SSTDOC, "r");
 346     if (fp == NULL)
 347         fp = fopen(DOC_NAME, "r");
 348     if (fp == NULL) {
 349         prout(_("Spock-  \"Captain, that information is missing from the"));
 350         proutn(_("   computer. You need to find "));
 351         proutn(DOC_NAME);
 352         prout(_(" and put it in the"));
 353         proutn(_("   current directory or to "));
 354         proutn(SSTDOC);
 355         prout(".\"");
 356         /*
 357          * This used to continue: "You need to find SST.DOC and put
 358          * it in the current directory."
 359          */
 360         return;
 361     }
 362     for (;;) {
 363         if (fgets(linebuf, sizeof(linebuf), fp) == NULL) {
 364             prout(_("Spock- \"Captain, there is no information on that command.\""));
 365             fclose(fp);
 366             return;
 367         }
 368         if (linebuf[0] == '%' && linebuf[1] == '%'&& linebuf[2] == ' ') {
 369             for (cp = linebuf+3; isspace(*cp); cp++)
 370                 continue;
 371             linebuf[strlen(linebuf)-1] = '\0';
 372             if (strcasecmp(cp, cmdbuf) == 0)
 373                 break;
 374         }
 375     }
 376
 377     skip(1);
 378     prout(_("Spock- \"Captain, I've found the following information:\""));
 379     skip(1);
 380
 381     while (fgets(linebuf, sizeof(linebuf), fp)) {
 382         char *eol;
 383         if (strstr(linebuf, "******"))
 384             break;
 385         if ((eol = strpbrk(linebuf, "\r\n")))
 386             *eol = 0;
 387         prout(linebuf);
 388     }
 389     fclose(fp);
 390 }
 391
 392 static void makemoves(void)
 393 /* command-interpretation loop */
 394 {
 395     int key, i, v = 0;
 396     bool hitme;
 397     clrscr();
 398     setwnd(message_window);
 399     for(;;) { /* command loop */
 400         drawmaps(1);
 401         for(;;)  { /* get a command */
 402             hitme = false;
 403             game.justin = false;
 404             game.optime = 0.0;
 405             i = -1;
 406             chew();
 407             setwnd(prompt_window);
 408             clrscr();
 409             proutn("COMMAND> ");
 410             if (scan() == IHEOL) {
 411                 if (game.options & OPTION_CURSES)
 412                     makechart();
 413                 continue;
 414             }
 415             game.ididit = false;
 416             clrscr();
 417             setwnd(message_window);
 418             clrscr();
 419             for (i=0; i < ABANDON; i++)
 420                 if (ACCEPT(i) && isit(commands[i].name)) {
 421                     v = commands[i].value;
 422                     break;
 423                 }
 424             if (i < ABANDON && (!commands[i].option || (commands[i].option & game.options)))
 425                 break;
 426             for (; i < NUMCOMMANDS; i++)
 427                 if (ACCEPT(i) && strcasecmp(commands[i].name, citem) == 0) {
 428                     v = commands[i].value;
 429                     break;
 430                 }
 431             if (i < NUMCOMMANDS && (!commands[i].option || (commands[i].option & game.options)))
 432                 break;
 433             listCommands();
 434         }
 435         commandhook(commands[i].name, true);
 436         switch (v) { /* command switch */
 437         case SRSCAN:                 // srscan
 438             srscan();
 439             break;
 440         case STATUS:                 // status
 441             status(0);
 442             break;
 443         case REQUEST:                   // status request
 444             request();
 445             break;
 446         case LRSCAN:                    // lrscan
 447             lrscan();
 448             break;
 449         case PHASERS:                   // phasers
 450             phasers();
 451             if (game.ididit)
 452                 hitme = true;
 453             break;
 454         case TORPEDO:                   // photon torpedoes
 455             torps();
 456             if (game.ididit)
 457                 hitme = true;
 458             break;
 459         case MOVE:                      // move
 460             warp(false);
 461             break;
 462         case SHIELDS:                   // shields
 463             doshield(false);
 464             if (game.ididit) {
 465                 hitme = true;
 466                 game.shldchg = false;
 467             }
 468             break;
 469         case DOCK:                      // dock
 470             dock(true);
 471             if (game.ididit)
 472                 attack(false);
 473             break;
 474         case DAMAGES:                   // damages
 475             damagereport();
 476             break;
 477         case CHART:                     // chart
 478             makechart();
 479             break;
 480         case IMPULSE:                   // impulse
 481             impulse();
 482             break;
 483         case REST:                      // rest
 484             wait();
 485             if (game.ididit)
 486                 hitme = true;
 487             break;
 488         case WARP:                      // warp
 489             setwarp();
 490             break;
 491         case SCORE:                     // score
 492             score();
 493             break;
 494         case SENSORS:                   // sensors
 495             sensor();
 496             break;
 497         case ORBIT:                     // orbit
 498             orbit();
 499             if (game.ididit)
 500                 hitme = true;
 501             break;
 502         case TRANSPORT:                 // transport "beam"
 503             beam();
 504             break;
 505         case MINE:                      // mine
 506             mine();
 507             if (game.ididit)
 508                 hitme = true;
 509             break;
 510         case CRYSTALS:                  // crystals
 511             usecrystals();
 512             if (game.ididit)
 513                 hitme = true;
 514             break;
 515         case SHUTTLE:                   // shuttle
 516             shuttle();
 517             if (game.ididit)
 518                 hitme = true;
 519             break;
 520         case PLANETS:                   // Planet list
 521             survey();
 522             break;
 523         case REPORT:                    // Game Report
 524             report();
 525             break;
 526         case COMPUTER:                  // use COMPUTER!
 527             eta();
 528             break;
 529         case COMMANDS:
 530             listCommands();
 531             break;
 532         case EMEXIT:                    // Emergency exit
 533             clrscr();                   // Hide screen
 534             freeze(true);               // forced save
 535             exit(1);                    // And quick exit
 536             break;
 537         case PROBE:
 538             probe();                    // Launch probe
 539             if (game.ididit)
 540                 hitme = true;
 541             break;
 542         case ABANDON:                   // Abandon Ship
 543             abandon();
 544             break;
 545         case DESTRUCT:                  // Self Destruct
 546             selfdestruct();
 547             break;
 548         case SAVE:                      // Save Game
 549             freeze(false);
 550             clrscr();
 551             if (game.skill > SKILL_GOOD)
 552                 prout(_("WARNING--Saved games produce no plaques!"));
 553             break;
 554         case DEATHRAY:                  // Try a desparation measure
 555             deathray();
 556             if (game.ididit)
 557                 hitme = true;
 558             break;
 559         case DEBUGCMD:                  // What do we want for debug???
 560             debugme();
 561             break;
 562         case MAYDAY:                    // Call for help
 563             mayday();
 564             if (game.ididit)
 565                 hitme = true;
 566             break;
 567         case QUIT:
 568             game.alldone = true;                // quit the game
 569             break;
 570         case HELP:
 571             helpme();                   // get help
 572             break;
 573         case SEED:                      // set random-number seed
 574             key = scan();
 575             if (key == IHREAL)
 576                 seed = (int)aaitem;
 577             break;
 578 #ifdef BSD_BUG_FOR_BUG
 579         case VISUAL:
 580             visual();                   // perform visual scan
 581             break;
 582 #endif
 583         }
 584         commandhook(commands[i].name, false);
 585         for (;;) {
 586             if (game.alldone)
 587                 break;          // Game has ended
 588             if (game.optime != 0.0) {
 589                 events();
 590                 if (game.alldone)
 591                     break;      // Events did us in
 592             }
 593             if (game.state.galaxy[game.quadrant.x][game.quadrant.y].supernova) { // Galaxy went Nova!
 594                 atover(false);
 595                 continue;
 596             }
 597             if (hitme && !game.justin) {
 598                 attack(true);
 599                 if (game.alldone)
 600                     break;
 601                 if (game.state.galaxy[game.quadrant.x][game.quadrant.y].supernova) {    // went NOVA!
 602                     atover(false);
 603                     hitme = true;
 604                     continue;
 605                 }
 606             }
 607             break;
 608         }
 609         if (game.alldone)
 610             break;
 611     }
 612     if (idebug)
 613         prout("=== Ending");
 614 }
 615
 616
 617 int main(int argc, char **argv)
 618 {
 619     int i, option;
 620
 621     game.options = OPTION_ALL &~ (OPTION_IOMODES | OPTION_SHOWME | OPTION_PLAIN | OPTION_ALMY);
 622     if (getenv("TERM"))
 623         game.options |= OPTION_CURSES | OPTION_SHOWME;
 624     else
 625         game.options |= OPTION_TTY;
 626
 627     seed = (int)time(NULL);
 628     while ((option = getopt(argc, argv, "r:tx")) != -1) {
 629         switch (option) {
 630         case 'r':
 631             replayfp = fopen(optarg, "r");
 632             if (replayfp == NULL) {
 633                 fprintf(stderr, "sst: can't open replay file %s\n", optarg);
 634                 exit(1);
 635             }
 636             if (fscanf(replayfp, "seed %d\n", &seed) != 1) {
 637                 fprintf(stderr, "sst: replay file %s is ill-formed\n", optarg);
 638                 exit(1);
 639             }
 640             /* FALL THROUGH */
 641         case 't':
 642             game.options |= OPTION_TTY;
 643             game.options &=~ OPTION_CURSES;
 644             break;
 645         case 'x':
 646             idebug = true;
 647             break;
 648         default:
 649             fprintf(stderr, "usage: sst [-t] [-x] [startcommand...].\n");
 650             exit(0);
 651         }
 652     }
 653     /* where to save the input in case of bugs */
 654     logfp = fopen("/usr/tmp/sst-input.log", "w");
 655     if (logfp) {
 656         setlinebuf(logfp);
 657         fprintf(logfp, "seed %d\n", seed);
 658     }
 659     srand(seed);
 660
 661     iostart();
 662
 663     line[0] = '\0';
 664     for (i = optind; i < argc;  i++) {
 665         strcat(line, argv[i]);
 666         strcat(line, " ");
 667     }
 668     for(;;) { /* Play a game */
 669         setwnd(fullscreen_window);
 670         clrscr();
 671         prelim();
 672         setup(line[0] == '\0');
 673         if (game.alldone) {
 674             score();
 675             game.alldone = false;
 676         }
 677         else
 678             makemoves();
 679         skip(1);
 680         stars();
 681         skip(1);
 682
 683         if (game.tourn && game.alldone) {
 684             proutn(_("Do you want your score recorded?"));
 685             if (ja() == true) {
 686                 chew2();
 687                 freeze(false);
 688             }
 689         }
 690         proutn(_("Do you want to play again? "));
 691         if (!ja())
 692             break;
 693     }
 694     skip(1);
 695     prout(_("May the Great Bird of the Galaxy roost upon your home planet."));
 696     return 0;
 697 }
 698
 699
 700 void cramen(feature i)
 701 /* print the name of an enemy */
 702 {
 703     /* return an enemy */
 704     char *s;
 705
 706     switch (i) {
 707     case IHR: s = _("Romulan"); break;
 708     case IHK: s = _("Klingon"); break;
 709     case IHC: s = _("Commander"); break;
 710     case IHS: s = _("Super-commander"); break;
 711     case IHSTAR: s = _("Star"); break;
 712     case IHP: s = _("Planet"); break;
 713     case IHB: s = _("Starbase"); break;
 714     case IHBLANK: s = _("Black hole"); break;
 715     case IHT: s = _("Tholian"); break;
 716     case IHWEB: s = _("Tholian web"); break;
 717     case IHQUEST: s = _("Stranger"); break;
 718     case IHW: s = _("Inhabited World"); break;
 719     default: s = "Unknown??"; break;
 720     }
 721     proutn(s);
 722 }
 723
 724 char *cramlc(enum loctype key, coord w)
 725 /* name a location */
 726 {
 727     static char buf[32];
 728     buf[0] = '\0';
 729     if (key == quadrant)
 730         strcpy(buf, _("Quadrant "));
 731     else if (key == sector)
 732         strcpy(buf, _("Sector "));
 733     sprintf(buf+strlen(buf), "%d - %d", w.x, w.y);
 734     return buf;
 735 }
 736
 737 void crmena(bool stars, feature enemy, enum loctype key, coord w)
 738 /* print an enemy and his location */
 739 {
 740     if (stars)
 741         proutn("***");
 742     cramen(enemy);
 743     proutn(_(" at "));
 744     proutn(cramlc(key, w));
 745 }
 746
 747 void crmshp(void)
 748 /* print our ship name */
 749 {
 750     char *s;
 751     switch (game.ship) {
 752     case IHE: s = _("Enterprise"); break;
 753     case IHF: s = _("Faerie Queene"); break;
 754     default:  s = "Ship???"; break;
 755     }
 756     proutn(s);
 757 }
 758
 759 void stars(void)
 760 /* print a line of stars */
 761 {
 762     prouts("******************************************************");
 763     skip(1);
 764 }
 765
 766 double expran(double avrage)
 767 {
 768     return -avrage*log(1e-7 + Rand());
 769 }
 770
 771 double Rand(void)
 772 {
 773     return rand()/(1.0 + (double)RAND_MAX);
 774 }
 775
 776 coord randplace(int size)
 777 /* choose a random location */
 778 {
 779     coord w;
 780     w.x = Rand()*(size*1.0) + 1.0;
 781     w.y = Rand()*(size*1.0) + 1.0;
 782     return w;
 783 }
 784
 785 void chew(void)
 786 {
 787     linep = line;
 788     *linep = 0;
 789 }
 790
 791 void chew2(void)
 792 {
 793     /* return IHEOL next time */
 794     linep = line+1;
 795     *linep = 0;
 796 }
 797
 798 int scan(void)
 799 {
 800     int i;
 801     char *cp;
 802
 803     // Init result
 804     aaitem = 0.0;
 805     *citem = 0;
 806
 807     // Read a line if nothing here
 808     if (*linep == 0) {
 809         if (linep != line) {
 810             chew();
 811             return IHEOL;
 812         }
 813         cgetline(line, sizeof(line));
 814         fflush(stdin);
 815         if (curwnd==prompt_window){
 816             clrscr();
 817             setwnd(message_window);
 818             clrscr();
 819         }
 820         linep = line;
 821     }
 822     // Skip leading white space
 823     while (*linep == ' ') linep++;
 824     // Nothing left
 825     if (*linep == 0) {
 826         chew();
 827         return IHEOL;
 828     }
 829     i = 0;
 830     // try a number
 831     if (sscanf(linep, "%lf%n", &aaitem, &i) > 0) {
 832         // skip to end
 833         linep += i;
 834         return IHREAL;
 835     }
 836     // Treat as alpha
 837     cp = citem;
 838     while (*linep && *linep!=' ') {
 839         if ((cp - citem) < 9)
 840             *cp++ = tolower(*linep);
 841         linep++;
 842     }
 843     *cp = 0;
 844     return IHALPHA;
 845 }
 846
 847 bool ja(void)
 848 /* yes-or-no confirmation */
 849 {
 850     chew();
 851     for(;;) {
 852         scan();
 853         chew();
 854         if (*citem == 'y')
 855             return true;
 856         if (*citem == 'n')
 857             return false;
 858         proutn(_("Please answer with \"y\" or \"n\": "));
 859     }
 860 }
 861
 862 void huh(void)
 863 /* complain about unparseable input */
 864 {
 865     chew();
 866     skip(1);
 867     prout(_("Beg your pardon, Captain?"));
 868 }
 869
 870 bool isit(char *s)
 871 /* compares s to citem and returns true if it matches to the length of s */
 872 {
 873     return strncasecmp(s, citem, max(1, strlen(citem))) == 0;
 874 }
 875
 876 void debugme(void)
 877 /* access to the internals for debugging */
 878 {
 879     proutn("Reset levels? ");
 880     if (ja() == true) {
 881         if (game.energy < game.inenrg)
 882             game.energy = game.inenrg;
 883         game.shield = game.inshld;
 884         game.torps = game.intorps;
 885         game.lsupres = game.inlsr;
 886     }
 887     proutn("Reset damage? ");
 888     if (ja() == true) {
 889         int i;
 890         for (i=0; i < NDEVICES; i++)
 891             if (game.damage[i] > 0.0)
 892                 game.damage[i] = 0.0;
 893     }
 894     proutn("Toggle debug flag? ");
 895     if (ja() == true) {
 896         idebug = !idebug;
 897         if (idebug)
 898             prout("Debug output ON");
 899         else
 900             prout("Debug output OFF");
 901     }
 902     proutn("Cause selective damage? ");
 903     if (ja() == true) {
 904         int i, key;
 905         for (i=0; i < NDEVICES; i++) {
 906             proutn("Kill ");
 907             proutn(device[i]);
 908             proutn("? ");
 909             chew();
 910             key = scan();
 911             if (key == IHALPHA &&  isit("y")) {
 912                 game.damage[i] = 10.0;
 913             }
 914         }
 915     }
 916     proutn("Examine/change events? ");
 917     if (ja() == true) {
 918         event *ev;
 919         coord w;
 920         int i;
 921         for (i = 1; i < NEVENTS; i++) {
 922             int key;
 923             switch (i) {
 924             case FSNOVA:  proutn("Supernova       "); break;
 925             case FTBEAM:  proutn("T Beam          "); break;
 926             case FSNAP:   proutn("Snapshot        "); break;
 927             case FBATTAK: proutn("Base Attack     "); break;
 928             case FCDBAS:  proutn("Base Destroy    "); break;
 929             case FSCMOVE: proutn("SC Move         "); break;
 930             case FSCDBAS: proutn("SC Base Destroy "); break;
 931             case FDSPROB: proutn("Probe Move      "); break;
 932             case FDISTR:  proutn("Distress Call   "); break;
 933             case FENSLV:  proutn("Enlavement      "); break;
 934             case FREPRO:  proutn("Klingon Build   "); break;
 935             }
 936             if (is_scheduled(i)) {
 937                 proutn("%.2f", scheduled(i)-game.state.date);
 938                 if (i == FENSLV || i == FREPRO) {
 939                     ev = findevent(i);
 940                     proutn(" in %d-%d", ev->quadrant.x,ev->quadrant.y);
 941                 }
 942             } else
 943                 proutn("never");
 944             proutn("? ");
 945             chew();
 946             key = scan();
 947             if (key == 'n') {
 948                 unschedule(i);
 949                 chew();
 950             } else if (key == IHREAL) {
 951                 ev = schedule(i, aaitem);
 952                 if (i == FENSLV || i == FREPRO) {
 953                     chew();
 954                     proutn("In quadrant- ");
 955                     key = scan();
 956                     /* IHEOL says to leave coordinates as they are */
 957                     if (key != IHEOL) {
 958                         if (key != IHREAL) {
 959                             prout("Event %d canceled, no x coordinate.", i);
 960                             unschedule(i);
 961                             continue;
 962                         }
 963                         w.x = (int)aaitem;
 964                         key = scan();
 965                         if (key != IHREAL) {
 966                             prout("Event %d canceled, no y coordinate.", i);
 967                             unschedule(i);
 968                             continue;
 969                         }
 970                         w.y = (int)aaitem;
 971                         ev->quadrant = w;
 972                     }
 973                 }
 974             }
 975         }
 976         chew();
 977     }
 978     proutn("Induce supernova here? ");
 979     if (ja() == true) {
 980         game.state.galaxy[game.quadrant.x][game.quadrant.y].supernova = true;
 981         atover(true);
 982     }
 983 }