X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=sst.c;h=1d4ca2feb1d55d33a9e89a00d7a43326c0828f26;hp=dc26b35442556fcf1b04a2747ec573f8d1f8c2f7;hb=f1af4f83e663d93c704ce0ada75ea4aa9ae3c65b;hpb=89e52d61fcf689e15a8f831dea084a33ceaa8217 diff --git a/sst.c b/sst.c index dc26b35..1d4ca2f 100644 --- a/sst.c +++ b/sst.c @@ -11,9 +11,29 @@ /* +Dave Matuszek says: + + SRSCAN, MOVE, PHASERS, CALL, STATUS, IMPULSE, PHOTONS, ABANDON, + LRSCAN, WARP, SHIELDS, DESTRUCT, CHART, REST, DOCK, QUIT, and DAMAGE + were in the original non-"super" version. + + Tholians weren't in the original. Dave is dubious about their merits. + + Planets and dilithium crystals weren't in the original. Dave is OK + with this idea. He says the bit about the Galileo getting + turned into a McDonald's is "consistant with our original vision". + + Dave also says the Space Thingy should not be preserved across saved + games, so you can't prove to others that you've seen it. He says it + shouldn't fire back, either. It should do nothing except scream and + disappear when hit by photon torpedos. It's OK that it may move + when attacked, but it didn't in the original. + + The Faerie Queen, black holes, and time warping were in the original. + Here are Tom Almy's changes: - Compared to original version, I've changed the "help" command to + Compared to original version, I've changed the "help" command to "call" and the "terminate" command to "quit" to better match user expectations. The DECUS version apparently made those changes as well as changing "freeze" to "save". However I like "freeze". @@ -48,7 +68,7 @@ Here are Tom Almy's changes: Here are Stas Sergeev's changes: - 1. The Space Thingy can be shoved, if you it ram, and can fire back if + 1. The Space Thingy can be shoved, if you ram it, and can fire back if fired upon. 2. The Tholian can be hit with phasers @@ -62,7 +82,7 @@ Here are Stas Sergeev's changes: chasing SCom can take an eternity). 5. Probe target you enter is now the destination quadrant. Before I don't - remember what it was, but it was something I had difficulty using) + remember what it was, but it was something I had difficulty using. 6. Secret password is now autogenerated. @@ -87,8 +107,14 @@ Here are Stas Sergeev's changes: Eric Raymond's changes: + Mainly, I translated this C code out of FORTRAN into C -- created #defines + for a lot of magic numbers and refactored the heck out of it. + 1. "sos" and "call" becomes "mayday", "freeze" and "save" are both good. + 2. Status report now indicates when dilithium crystals are on board. + + 3. Per Dave Matuszek's remarks, Thingy state is not saved across games. */ /* the input queue */ @@ -98,651 +124,683 @@ static struct { char *name; int value; + unsigned long option; } commands[] = { -#define SRSCAN 1 - {"SRSCAN", SRSCAN}, -#define STATUS 2 - {"STATUS", STATUS}, -#define REQUEST 3 - {"REQUEST", REQUEST}, -#define LRSCAN 4 - {"LRSCAN", LRSCAN}, -#define PHASERS 5 - {"PHASERS", PHASERS}, -#define TORPEDO 6 - {"TORPEDO", TORPEDO}, - {"PHOTONS", TORPEDO}, -#define MOVE 7 - {"MOVE", MOVE}, -#define SHIELDS 8 - {"SHIELDS", SHIELDS}, -#define DOCK 9 - {"DOCK", DOCK}, -#define DAMAGES 10 - {"DAMAGES", DAMAGES}, -#define CHART 11 - {"CHART", CHART}, -#define IMPULSE 12 - {"IMPULSE", IMPULSE}, -#define REST 13 - {"REST", REST}, -#define WARP 14 - {"WARP", WARP}, -#define SCORE 15 - {"SCORE", SCORE}, -#define SENSORS 16 - {"SENSORS", SENSORS}, -#define ORBIT 17 - {"ORBIT", ORBIT}, -#define TRANSPORT 18 - {"TRANSPORT", TRANSPORT}, -#define MINE 19 - {"MINE", MINE}, -#define CRYSTALS 20 - {"CRYSTALS", CRYSTALS}, -#define SHUTTLE 21 - {"SHUTTLE", SHUTTLE}, -#define PLANETS 22 - {"PLANETS", PLANETS}, -#define REPORT 23 - {"REPORT", REPORT}, -#define COMPUTER 24 - {"COMPUTER", COMPUTER}, -#define COMMANDS 25 - {"COMMANDS", COMMANDS}, -#define EMEXIT 26 - {"EMEXIT", EMEXIT}, -#define PROBE 27 - {"PROBE", PROBE}, -#define SAVE 28 - {"SAVE", SAVE}, - {"FREEZE", SAVE}, -#define ABANDON 29 - {"ABANDON", ABANDON}, -#define DESTRUCT 30 - {"DESTRUCT", DESTRUCT}, -#define DEATHRAY 31 - {"DEATHRAY", DEATHRAY}, -#define DEBUGCMD 32 - {"DEBUG", DEBUGCMD}, -#define MAYDAY 33 - {"MAYDAY", MAYDAY}, - {"SOS", MAYDAY}, - {"CALL", MAYDAY}, -#define QUIT 34 - {"QUIT", QUIT}, -#define HELP 35 - {"HELP", HELP}, +#define SRSCAN 0 + {"SRSCAN", SRSCAN, OPTION_TTY}, +#define STATUS 1 + {"STATUS", STATUS, OPTION_TTY}, +#define REQUEST 2 + {"REQUEST", REQUEST, OPTION_TTY}, +#define LRSCAN 3 + {"LRSCAN", LRSCAN, OPTION_TTY}, +#define PHASERS 4 + {"PHASERS", PHASERS, 0}, +#define TORPEDO 5 + {"TORPEDO", TORPEDO, 0}, + {"PHOTONS", TORPEDO, 0}, +#define MOVE 6 + {"MOVE", MOVE, 0}, +#define SHIELDS 7 + {"SHIELDS", SHIELDS, 0}, +#define DOCK 8 + {"DOCK", DOCK, 0}, +#define DAMAGES 9 + {"DAMAGES", DAMAGES, 0}, +#define CHART 10 + {"CHART", CHART, 0}, +#define IMPULSE 11 + {"IMPULSE", IMPULSE, 0}, +#define REST 12 + {"REST", REST, 0}, +#define WARP 13 + {"WARP", WARP, 0}, +#define SCORE 14 + {"SCORE", SCORE, 0}, +#define SENSORS 15 + {"SENSORS", SENSORS, OPTION_PLANETS}, +#define ORBIT 16 + {"ORBIT", ORBIT, OPTION_PLANETS}, +#define TRANSPORT 17 + {"TRANSPORT", TRANSPORT, OPTION_PLANETS}, +#define MINE 18 + {"MINE", MINE, OPTION_PLANETS}, +#define CRYSTALS 19 + {"CRYSTALS", CRYSTALS, OPTION_PLANETS}, +#define SHUTTLE 20 + {"SHUTTLE", SHUTTLE, OPTION_PLANETS}, +#define PLANETS 21 + {"PLANETS", PLANETS, OPTION_PLANETS}, +#define REPORT 22 + {"REPORT", REPORT, 0}, +#define COMPUTER 23 + {"COMPUTER", COMPUTER, 0}, +#define COMMANDS 24 + {"COMMANDS", COMMANDS, 0}, +#define EMEXIT 25 + {"EMEXIT", EMEXIT, 0}, +#define PROBE 26 + {"PROBE", PROBE, OPTION_PROBE}, +#define SAVE 27 + {"SAVE", SAVE, 0}, + {"FREEZE", SAVE, 0}, +#define ABANDON 28 + {"ABANDON", ABANDON, 0}, +#define DESTRUCT 29 + {"DESTRUCT", DESTRUCT, 0}, +#define DEATHRAY 30 + {"DEATHRAY", DEATHRAY, 0}, +#define DEBUGCMD 31 + {"DEBUG", DEBUGCMD, 0}, +#define MAYDAY 32 + {"MAYDAY", MAYDAY, 0}, + //{"SOS", MAYDAY, 0}, + {"CALL", MAYDAY, 0}, +#define QUIT 33 + {"QUIT", QUIT, 0}, +#define HELP 34 + {"HELP", HELP, 0}, }; #define NUMCOMMANDS sizeof(commands)/sizeof(commands[0]) +#define ACCEPT(i) (!commands[i].option || (commands[i].option & game.options)) -static void listCommands(int x) { - int i; - prout("LEGAL COMMANDS ARE:"); +static void listCommands(void) { + int i, k = 0; + proutn("LEGAL COMMANDS ARE:"); for (i = 0; i < NUMCOMMANDS; i++) { - proutn("%-12s ", commands[i].name); - if (i % 5 == 4) + if (!ACCEPT(i)) + continue; + if (k % 5 == 0) skip(1); + proutn("%-12s ", commands[i].name); + k++; } skip(1); } -static void helpme(void) { - int i, j; - char cmdbuf[32], *cp; - char linebuf[132]; - FILE *fp; - /* Give help on commands */ - int key; - key = scan(); - while (TRUE) { - if (key == IHEOL) { - setwnd(BOTTOM_WINDOW); - proutn("Help on what command? "); - key = scan(); - } - setwnd(LOWER_WINDOW); - if (key == IHEOL) return; - for (i = 0; i < NUMCOMMANDS; i++) { - if (strcasecmp(commands[i].name, citem)==0) { - i = commands[i].value; - break; - } - } - if (i != NUMCOMMANDS) break; - skip(1); - prout("Valid commands:"); - listCommands(FALSE); - key = IHEOL; - chew(); - skip(1); - } - if (i == COMMANDS) { - strcpy(cmdbuf, " ABBREV"); - } - else { - for (j = 0; commands[i].name[j]; j++) - cmdbuf[j] = toupper(commands[i].name[j]); - cmdbuf[j] = '\0'; - } - fp = fopen(SSTDOC, "r"); - if (fp == NULL) { - prout("Spock- \"Captain, that information is missing from the"); - prout(" computer.\""); - /* - * This used to continue: "You need to find SST.DOC and put - * it in the current directory." - */ - return; +static void helpme(void) +{ + int i, j; + char cmdbuf[32], *cp; + char linebuf[132]; + FILE *fp; + /* Give help on commands */ + int key; + key = scan(); + while (TRUE) { + if (key == IHEOL) { + setwnd(prompt_window); + proutn("Help on what command? "); + key = scan(); } - for (;;) { - if (fgets(linebuf, sizeof(linebuf), fp) == NULL) { - prout("Spock- \"Captain, there is no information on that command.\""); - fclose(fp); - return; - } - if (linebuf[0] == '%' && linebuf[1] == '%'&& linebuf[2] == ' ') { - for (cp = linebuf+3; isspace(*cp); cp++) - continue; - linebuf[strlen(linebuf)-1] = '\0'; - if (strcasecmp(cp, cmdbuf) == 0) - break; + setwnd(message_window); + if (key == IHEOL) return; + for (i = 0; i < NUMCOMMANDS; i++) { + if (ACCEPT(i) && strcasecmp(commands[i].name, citem)==0) { + i = commands[i].value; + break; } } - + if (i != NUMCOMMANDS) break; skip(1); - prout("Spock- \"Captain, I've found the following information:\""); + prout("Valid commands:"); + listCommands(); + key = IHEOL; + chew(); skip(1); - - while (fgets(linebuf, sizeof(linebuf),fp)) { - if (strstr(linebuf, "******")) - break; - proutn(linebuf); + } + if (i == COMMANDS) { + strcpy(cmdbuf, " ABBREV"); + } + else { + for (j = 0; commands[i].name[j]; j++) + cmdbuf[j] = toupper(commands[i].name[j]); + cmdbuf[j] = '\0'; + } + fp = fopen(SSTDOC, "r"); + if (fp == NULL) { + prout("Spock- \"Captain, that information is missing from the"); + prout(" computer.\""); + /* + * This used to continue: "You need to find SST.DOC and put + * it in the current directory." + */ + return; + } + for (;;) { + if (fgets(linebuf, sizeof(linebuf), fp) == NULL) { + prout("Spock- \"Captain, there is no information on that command.\""); + fclose(fp); + return; + } + if (linebuf[0] == '%' && linebuf[1] == '%'&& linebuf[2] == ' ') { + for (cp = linebuf+3; isspace(*cp); cp++) + continue; + linebuf[strlen(linebuf)-1] = '\0'; + if (strcasecmp(cp, cmdbuf) == 0) + break; } - fclose(fp); + } + + skip(1); + prout("Spock- \"Captain, I've found the following information:\""); + skip(1); + + while (fgets(linebuf, sizeof(linebuf),fp)) { + if (strstr(linebuf, "******")) + break; + proutn(linebuf); + } + fclose(fp); } -void enqueue(char *s) { +void enqueue(char *s) +{ strcpy(line, s); } -static void makemoves(void) { - int i, hitme; - clrscr(); - setwnd(LOWER_WINDOW); - while (TRUE) { /* command loop */ - drawmaps(1); - while (TRUE) { /* get a command */ - hitme = FALSE; - justin = 0; - Time = 0.0; - i = -1; - chew(); - setwnd(BOTTOM_WINDOW); - clrscr(); - proutn("COMMAND> "); - if (scan() == IHEOL) { - makechart(); - continue; - } - ididit=0; - clrscr(); - setwnd(LOWER_WINDOW); - clrscr(); - for (i=0; i < ABANDON; i++) - if (isit(commands[i].name)) { - i = commands[i].value; - break; - } - if (i < ABANDON) break; - for (; i < NUMCOMMANDS; i++) - if (strcasecmp(commands[i].name, citem) == 0) { - i = commands[i].value; - break; - } - if (i < NUMCOMMANDS) break; - - listCommands(TRUE); +static void makemoves(void) +{ + int i, v = 0, hitme; + clrscr(); + setwnd(message_window); + while (TRUE) { /* command loop */ + drawmaps(1); + while (TRUE) { /* get a command */ + hitme = FALSE; + justin = 0; + Time = 0.0; + i = -1; + chew(); + setwnd(prompt_window); + clrscr(); + proutn("COMMAND> "); + if (scan() == IHEOL) { + makechart(); + continue; + } + ididit=0; + clrscr(); + setwnd(message_window); + clrscr(); + for (i=0; i < ABANDON; i++) + if (ACCEPT(i) && isit(commands[i].name)) { + v = commands[i].value; + break; + } + if (i < ABANDON && (!commands[i].option || (commands[i].option & game.options))) + break; + for (; i < NUMCOMMANDS; i++) + if (ACCEPT(i) && strcasecmp(commands[i].name, citem) == 0) { + v = commands[i].value; + break; } - commandhook(commands[i].name, TRUE); - switch (i) { /* command switch */ - case SRSCAN: // srscan - srscan(SCAN_FULL); - break; - case STATUS: // status - srscan(SCAN_STATUS); - break; - case REQUEST: // status request - srscan(SCAN_REQUEST); - break; - case LRSCAN: // lrscan - lrscan(); - break; - case PHASERS: // phasers - phasers(); - if (ididit) hitme = TRUE; - break; - case TORPEDO: // photons - photon(); - if (ididit) hitme = TRUE; - break; - case MOVE: // move - warp(1); - break; - case SHIELDS: // shields - doshield(1); - if (ididit) { - hitme=TRUE; - shldchg = 0; - } - break; - case DOCK: // dock - dock(1); - if (ididit) attack(0); - break; - case DAMAGES: // damages - dreprt(); - break; - case CHART: // chart - chart(0); - break; - case IMPULSE: // impulse - impuls(); - break; - case REST: // rest - wait(); - if (ididit) hitme = TRUE; - break; - case WARP: // warp - setwrp(); - break; - case SCORE: // score - score(); - break; - case SENSORS: // sensors - sensor(); - break; - case ORBIT: // orbit - orbit(); - if (ididit) hitme = TRUE; - break; - case TRANSPORT: // transport "beam" - beam(); - break; - case MINE: // mine - mine(); - if (ididit) hitme = TRUE; - break; - case CRYSTALS: // crystals - usecrystals(); - if (ididit) hitme = TRUE; - break; - case SHUTTLE: // shuttle - shuttle(); - if (ididit) hitme = TRUE; - break; - case PLANETS: // Planet list - preport(); - break; - case REPORT: // Game Report - report(); - break; - case COMPUTER: // use COMPUTER! - eta(); - break; - case COMMANDS: - listCommands(TRUE); - break; - case EMEXIT: // Emergency exit - clrscr(); // Hide screen - freeze(TRUE); // forced save - exit(1); // And quick exit - break; - case PROBE: - probe(); // Launch probe - if (ididit) hitme = TRUE; - break; - case ABANDON: // Abandon Ship - abandn(); - break; - case DESTRUCT: // Self Destruct - dstrct(); - break; - case SAVE: // Save Game - freeze(FALSE); - clrscr(); - if (skill > 3) - prout("WARNING--Saved games produce no plaques!"); - break; - case DEATHRAY: // Try a desparation measure - deathray(); - if (ididit) hitme = TRUE; - break; - case DEBUGCMD: // What do we want for debug??? + if (i < NUMCOMMANDS && (!commands[i].option || (commands[i].option & game.options))) + break; + listCommands(); + } + commandhook(commands[i].name, TRUE); + switch (v) { /* command switch */ + case SRSCAN: // srscan + srscan(SCAN_FULL); + break; + case STATUS: // status + srscan(SCAN_STATUS); + break; + case REQUEST: // status request + srscan(SCAN_REQUEST); + break; + case LRSCAN: // lrscan + lrscan(); + break; + case PHASERS: // phasers + phasers(); + if (ididit) hitme = TRUE; + break; + case TORPEDO: // photons + photon(); + if (ididit) hitme = TRUE; + break; + case MOVE: // move + warp(1); + break; + case SHIELDS: // shields + doshield(1); + if (ididit) { + hitme=TRUE; + shldchg = 0; + } + break; + case DOCK: // dock + dock(1); + if (ididit) attack(0); + break; + case DAMAGES: // damages + dreprt(); + break; + case CHART: // chart + chart(0); + break; + case IMPULSE: // impulse + impuls(); + break; + case REST: // rest + wait(); + if (ididit) hitme = TRUE; + break; + case WARP: // warp + setwrp(); + break; + case SCORE: // score + score(); + break; + case SENSORS: // sensors + sensor(); + break; + case ORBIT: // orbit + orbit(); + if (ididit) hitme = TRUE; + break; + case TRANSPORT: // transport "beam" + beam(); + break; + case MINE: // mine + mine(); + if (ididit) hitme = TRUE; + break; + case CRYSTALS: // crystals + usecrystals(); + if (ididit) hitme = TRUE; + break; + case SHUTTLE: // shuttle + shuttle(); + if (ididit) hitme = TRUE; + break; + case PLANETS: // Planet list + preport(); + break; + case REPORT: // Game Report + report(); + break; + case COMPUTER: // use COMPUTER! + eta(); + break; + case COMMANDS: + listCommands(); + break; + case EMEXIT: // Emergency exit + clrscr(); // Hide screen + freeze(TRUE); // forced save + exit(1); // And quick exit + break; + case PROBE: + probe(); // Launch probe + if (ididit) hitme = TRUE; + break; + case ABANDON: // Abandon Ship + abandn(); + break; + case DESTRUCT: // Self Destruct + dstrct(); + break; + case SAVE: // Save Game + freeze(FALSE); + clrscr(); + if (skill > SKILL_GOOD) + prout("WARNING--Saved games produce no plaques!"); + break; + case DEATHRAY: // Try a desparation measure + deathray(); + if (ididit) hitme = TRUE; + break; + case DEBUGCMD: // What do we want for debug??? #ifdef DEBUG - debugme(); + debugme(); #endif - break; - case MAYDAY: // Call for help - help(); - if (ididit) hitme = TRUE; - break; - case QUIT: - alldone = 1; // quit the game + break; + case MAYDAY: // Call for help + help(); + if (ididit) hitme = TRUE; + break; + case QUIT: + alldone = 1; // quit the game #ifdef DEBUG - if (idebug) score(); + if (idebug) score(); #endif - break; - case HELP: - helpme(); // get help - break; - } - commandhook(commands[i].name, FALSE); - for (;;) { - if (alldone) break; // Game has ended + break; + case HELP: + helpme(); // get help + break; + } + commandhook(commands[i].name, FALSE); + for (;;) { + if (alldone) break; // Game has ended #ifdef DEBUG - if (idebug) prout("2500"); + if (idebug) prout("2500"); #endif - if (Time != 0.0) { - events(); - if (alldone) break; // Events did us in - } - if (game.state.galaxy[quadx][quady] == 1000) { // Galaxy went Nova! - atover(0); - continue; - } - if (hitme && justin==0) { - attack(2); - if (alldone) break; - if (game.state.galaxy[quadx][quady] == 1000) { // went NOVA! - atover(0); - hitme = TRUE; - continue; - } - } - break; - } + if (Time != 0.0) { + events(); + if (alldone) break; // Events did us in + } + if (game.state.galaxy[quadx][quady].supernova) { // Galaxy went Nova! + atover(0); + continue; + } + if (hitme && justin==0) { + attack(2); if (alldone) break; + if (game.state.galaxy[quadx][quady].supernova) { // went NOVA! + atover(0); + hitme = TRUE; + continue; + } + } + break; } + if (alldone) break; + } } -int main(int argc, char **argv) { - int i, option, usecurses = TRUE; - - while ((option = getopt(argc, argv, "t")) != -1) { - switch (option) { - case 't': - usecurses = FALSE; - break; - default: - fprintf(stderr, "usage: sst [-t] [startcommand...].\n"); - exit(0); - } +int main(int argc, char **argv) +{ + int i, option; + + game.options = OPTION_ALL &~ (OPTION_IOMODES | OPTION_SHOWME); + if (getenv("TERM")) + game.options |= OPTION_CURSES | OPTION_SHOWME; + else + game.options |= OPTION_TTY; + + while ((option = getopt(argc, argv, "t")) != -1) { + switch (option) { + case 't': + game.options |= OPTION_TTY; + game.options &=~ OPTION_CURSES; + break; + default: + fprintf(stderr, "usage: sst [-t] [startcommand...].\n"); + exit(0); } + } - randomize(); - iostart(usecurses); + randomize(); + iostart(); - line[0] = '\0'; - for (i = optind; i < argc; i++) { - strcat(line, argv[i]); - strcat(line, " "); - } - while (TRUE) { /* Play a game */ - setwnd(FULLSCREEN_WINDOW); - clrscr(); - prelim(); - setup(line[0] == '\0'); - if (alldone) { - score(); - alldone = 0; - } - else makemoves(); - skip(1); - stars(); - skip(1); - - if (tourn && alldone) { - proutn("Do you want your score recorded?"); - if (ja()) { - chew2(); - freeze(FALSE); - } - } - proutn("Do you want to play again? "); - if (!ja()) break; + line[0] = '\0'; + for (i = optind; i < argc; i++) { + strcat(line, argv[i]); + strcat(line, " "); + } + while (TRUE) { /* Play a game */ + setwnd(fullscreen_window); +#ifdef DEBUG + prout("INITIAL OPTIONS: %0lx", game.options); +#endif /* DEBUG */ + clrscr(); + prelim(); + setup(line[0] == '\0'); + if (alldone) { + score(); + alldone = 0; } + else makemoves(); skip(1); - prout("May the Great Bird of the Galaxy roost upon your home planet."); - return 0; + stars(); + skip(1); + + if (tourn && alldone) { + proutn("Do you want your score recorded?"); + if (ja()) { + chew2(); + freeze(FALSE); + } + } + proutn("Do you want to play again? "); + if (!ja()) break; + } + skip(1); + prout("May the Great Bird of the Galaxy roost upon your home planet."); + return 0; } -void cramen(int i) { - /* return an enemy */ - char *s; +void cramen(int i) +{ + /* return an enemy */ + char *s; - switch (i) { - case IHR: s = "Romulan"; break; - case IHK: s = "Klingon"; break; - case IHC: s = "Commander"; break; - case IHS: s = "Super-commander"; break; - case IHSTAR: s = "Star"; break; - case IHP: s = "Planet"; break; - case IHB: s = "Starbase"; break; - case IHBLANK: s = "Black hole"; break; - case IHT: s = "Tholian"; break; - case IHWEB: s = "Tholian web"; break; - case IHQUEST: s = "Stranger"; break; - default: s = "Unknown??"; break; - } - proutn(s); + switch (i) { + case IHR: s = "Romulan"; break; + case IHK: s = "Klingon"; break; + case IHC: s = "Commander"; break; + case IHS: s = "Super-commander"; break; + case IHSTAR: s = "Star"; break; + case IHP: s = "Planet"; break; + case IHB: s = "Starbase"; break; + case IHBLANK: s = "Black hole"; break; + case IHT: s = "Tholian"; break; + case IHWEB: s = "Tholian web"; break; + case IHQUEST: s = "Stranger"; break; + default: s = "Unknown??"; break; + } + proutn(s); } -char *cramlc(enum loctype key, int x, int y) { - static char buf[32]; - buf[0] = '\0'; - if (key == quadrant) strcpy(buf, "Quadrant "); - else if (key == sector) strcpy(buf, "Sector "); - sprintf(buf+strlen(buf), "%d - %d", x, y); - return buf; +char *cramlc(enum loctype key, int x, int y) +{ + static char buf[32]; + buf[0] = '\0'; + if (key == quadrant) strcpy(buf, "Quadrant "); + else if (key == sector) strcpy(buf, "Sector "); + sprintf(buf+strlen(buf), "%d - %d", x, y); + return buf; } -void crmena(int i, int enemy, int key, int x, int y) { - if (i == 1) proutn("***"); - cramen(enemy); - proutn(" at "); - proutn(cramlc(key, x, y)); +void crmena(int i, int enemy, int key, int x, int y) +{ + if (i == 1) proutn("***"); + cramen(enemy); + proutn(" at "); + proutn(cramlc(key, x, y)); } -void crmshp(void) { - char *s; - switch (ship) { - case IHE: s = "Enterprise"; break; - case IHF: s = "Faerie Queene"; break; - default: s = "Ship???"; break; - } - proutn(s); +void crmshp(void) +{ + char *s; + switch (ship) { + case IHE: s = "Enterprise"; break; + case IHF: s = "Faerie Queene"; break; + default: s = "Ship???"; break; + } + proutn(s); } -void stars(void) { - prouts("******************************************************"); - skip(1); +void stars(void) +{ + prouts("******************************************************"); + skip(1); } -double expran(double avrage) { - return -avrage*log(1e-7 + Rand()); +double expran(double avrage) +{ + return -avrage*log(1e-7 + Rand()); } double Rand(void) { return rand()/(1.0 + (double)RAND_MAX); } -void iran8(int *i, int *j) { - *i = Rand()*8.0 + 1.0; - *j = Rand()*8.0 + 1.0; -} - -void iran10(int *i, int *j) { - *i = Rand()*10.0 + 1.0; - *j = Rand()*10.0 + 1.0; +void iran(int size, int *i, int *j) +{ + *i = Rand()*(size*1.0) + 1.0; + *j = Rand()*(size*1.0) + 1.0; } -void chew(void) { - linep = line; - *linep = 0; +void chew(void) +{ + linep = line; + *linep = 0; } -void chew2(void) { - /* return IHEOL next time */ - linep = line+1; - *linep = 0; +void chew2(void) +{ + /* return IHEOL next time */ + linep = line+1; + *linep = 0; } -int scan(void) { - int i; - char *cp; +int scan(void) +{ + int i; + char *cp; - // Init result - aaitem = 0.0; - *citem = 0; + // Init result + aaitem = 0.0; + *citem = 0; - // Read a line if nothing here - if (*linep == 0) { - if (linep != line) { - chew(); - return IHEOL; - } - cgetline(line, sizeof(line)); - fflush(stdin); - if (curwnd==BOTTOM_WINDOW){ - clrscr(); - setwnd(LOWER_WINDOW); - clrscr(); - } - linep = line; + // Read a line if nothing here + if (*linep == 0) { + if (linep != line) { + chew(); + return IHEOL; } - // Skip leading white space - while (*linep == ' ') linep++; - // Nothing left - if (*linep == 0) { - chew(); - return IHEOL; + cgetline(line, sizeof(line)); + fflush(stdin); + if (curwnd==prompt_window){ + clrscr(); + setwnd(message_window); + clrscr(); } - if (isdigit(*linep) || *linep=='+' || *linep=='-' || *linep=='.') { - // treat as a number - i = 0; - if (sscanf(linep, "%lf%n", &aaitem, &i) < 1) { - linep = line; // Invalid numbers are ignored - *linep = 0; - return IHEOL; - } - else { - // skip to end - linep += i; - return IHREAL; - } + linep = line; + } + // Skip leading white space + while (*linep == ' ') linep++; + // Nothing left + if (*linep == 0) { + chew(); + return IHEOL; + } + if (isdigit(*linep) || *linep=='+' || *linep=='-' || *linep=='.') { + // treat as a number + i = 0; + if (sscanf(linep, "%lf%n", &aaitem, &i) < 1) { + linep = line; // Invalid numbers are ignored + *linep = 0; + return IHEOL; } - // Treat as alpha - cp = citem; - while (*linep && *linep!=' ') { - if ((cp - citem) < 9) *cp++ = tolower(*linep); - linep++; + else { + // skip to end + linep += i; + return IHREAL; } - *cp = 0; - return IHALPHA; + } + // Treat as alpha + cp = citem; + while (*linep && *linep!=' ') { + if ((cp - citem) < 9) *cp++ = tolower(*linep); + linep++; + } + *cp = 0; + return IHALPHA; } -int ja(void) { +int ja(void) +{ + chew(); + while (TRUE) { + scan(); chew(); - while (TRUE) { - scan(); - chew(); - if (*citem == 'y') return TRUE; - if (*citem == 'n') return FALSE; - proutn("Please answer with \"Y\" or \"N\": "); - } + if (*citem == 'y') return TRUE; + if (*citem == 'n') return FALSE; + proutn("Please answer with \"Y\" or \"N\": "); + } } -void huh(void) { - chew(); - skip(1); - prout("Beg your pardon, Captain?"); +void huh(void) +{ + chew(); + skip(1); + prout("Beg your pardon, Captain?"); } -int isit(char *s) { - /* New function -- compares s to scaned citem and returns true if it - matches to the length of s */ +int isit(char *s) +{ + /* New function -- compares s to scanned citem and returns true if it + matches to the length of s */ - return strncasecmp(s, citem, max(1, strlen(citem))) == 0; + return strncasecmp(s, citem, max(1, strlen(citem))) == 0; } #ifdef DEBUG -void debugme(void) { - proutn("Reset levels? "); - if (ja() != 0) { - if (energy < inenrg) energy = inenrg; - shield = inshld; - torps = intorps; - lsupres = inlsr; - } - proutn("Reset damage? "); - if (ja() != 0) { - int i; - for (i=0; i <= NDEVICES; i++) if (damage[i] > 0.0) damage[i] = 0.0; - stdamtim = 1e30; - } - proutn("Toggle idebug? "); - if (ja() != 0) { - idebug = !idebug; - if (idebug) prout("Debug output ON"); - else prout("Debug output OFF"); - } - proutn("Cause selective damage? "); - if (ja() != 0) { - int i, key; - for (i=1; i <= NDEVICES; i++) { - proutn("Kill "); - proutn(device[i]); - proutn("? "); - chew(); - key = scan(); - if (key == IHALPHA && isit("y")) { - damage[i] = 10.0; - if (i == DRADIO) stdamtim = game.state.date; - } - } +void debugme(void) +{ + proutn("Reset levels? "); + if (ja() != 0) { + if (energy < inenrg) energy = inenrg; + shield = inshld; + torps = intorps; + lsupres = inlsr; + } + proutn("Reset damage? "); + if (ja() != 0) { + int i; + for (i=0; i < NDEVICES; i++) + if (game.damage[i] > 0.0) + game.damage[i] = 0.0; + } + proutn("Toggle idebug? "); + if (ja() != 0) { + idebug = !idebug; + if (idebug) prout("Debug output ON"); + else prout("Debug output OFF"); + } + proutn("Cause selective damage? "); + if (ja() != 0) { + int i, key; + for (i=0; i < NDEVICES; i++) { + proutn("Kill "); + proutn(device[i]); + proutn("? "); + chew(); + key = scan(); + if (key == IHALPHA && isit("y")) { + game.damage[i] = 10.0; + } } - proutn("Examine/change events? "); - if (ja() != 0) { - int i; - for (i = 1; i < NEVENTS; i++) { - int key; - if (future[i] == 1e30) continue; - switch (i) { - case FSNOVA: proutn("Supernova "); break; - case FTBEAM: proutn("T Beam "); break; - case FSNAP: proutn("Snapshot "); break; - case FBATTAK: proutn("Base Attack "); break; - case FCDBAS: proutn("Base Destroy "); break; - case FSCMOVE: proutn("SC Move "); break; - case FSCDBAS: proutn("SC Base Destroy "); break; - } - proutn("%.2f", future[i]-game.state.date); - chew(); - proutn(" ?"); - key = scan(); - if (key == IHREAL) { - future[i] = game.state.date + aaitem; - } - } - chew(); + } + proutn("Examine/change events? "); + if (ja() != 0) { + int i; + for (i = 1; i < NEVENTS; i++) { + int key; + if (game.future[i] == FOREVER) continue; + switch (i) { + case FSNOVA: proutn("Supernova "); break; + case FTBEAM: proutn("T Beam "); break; + case FSNAP: proutn("Snapshot "); break; + case FBATTAK: proutn("Base Attack "); break; + case FCDBAS: proutn("Base Destroy "); break; + case FSCMOVE: proutn("SC Move "); break; + case FSCDBAS: proutn("SC Base Destroy "); break; + } + proutn("%.2f", game.future[i]-game.state.date); + chew(); + proutn(" ?"); + key = scan(); + if (key == IHREAL) { + game.future[i] = game.state.date + aaitem; + } } + chew(); + } + proutn("Induce supernova here? "); + if (ja() != 0) { + game.state.galaxy[quadx][quady].supernova = TRUE; + atover(1); + } } - - #endif