/* * startrek.c * * Super Star Trek Classic (v1.1) * Retro Star Trek Game * C Port Copyright (C) 1996 * * This program is free software; you can redistribute it and/or modify * in any way that you wish. _Star Trek_ is a trademark of Paramount * I think. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * This is a C port of an old BASIC program: the classic Super Star Trek * game. It comes from the book _BASIC Computer Games_ edited by David Ahl * of Creative Computing fame. It was published in 1978 by Workman Publishing, * 1 West 39 Street, New York, New York, and the ISBN is: 0-89489-052-3. * * See http://www.cactus.org/~nystrom/startrek.html for more info. * * Contact Author of C port at: * * Chris Nystrom * 1013 Prairie Dove Circle * Austin, Texas 78758 * * E-Mail: cnystrom@gmail.com, nystrom@cactus.org * * BASIC -> Conversion Issues * * - String Names changed from A$ to sA * - Arrays changed from G(8,8) to g[9][9] so indexes can * stay the same. * * Here is the original BASIC header: * * SUPER STARTREK - MAY 16, 1978 - REQUIRES 24K MEMORY * *** **** STAR TREK **** **** *** SIMULATION OF A MISSION OF THE STARSHIP ENTERPRISE, *** AS SEEN ON THE STAR TREK TV SHOW. *** ORIGINAL PROGRAM BY MIKE MAYFIELD, MODIFIED VERSION *** PUBLISHED IN DEC'S "101 BASIC GAMES", BY DAVE AHL. *** MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY BOB *** LEEDOM - APRIL & DECEMBER 1974, *** WITH A LITTLE HELP FROM HIS FRIENDS . . . *** COMMENTS, EPITHETS, AND SUGGESTIONS SOLICITED -- *** SEND TO: R. C. LEEDOM *** WESTINGHOUSE DEFENSE & ELECTRONICS SYSTEMS CNTR. *** BOX 746, M.S. 338 *** BALTIMORE, MD 21203 *** *** CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN BORDERS *** LINE NUMBERS FROM VERSION STREK7 OF 1/12/75 PRESERVED AS *** MUCH AS POSSIBLE WHILE USING MULTIPLE STATMENTS PER LINE * */ #include #include #include #include #include #ifndef FALSE #define FALSE 0 #endif #ifndef TRUE #define TRUE ! FALSE #endif /* Standard Line Length */ #define MAXLEN 255 /* Standard Terminal Sizes */ #define MAXROW 24 #define MAXCOL 80 /* Standard Page Size */ #define MAXLINES 66 /* Useful typedefs */ typedef int bool; typedef char line[MAXCOL]; typedef char string[MAXLEN]; /* Function Declarations */ void intro(void); void new_game(void); void initialize(void); void new_quadrant(void); void course_control(void); void complete_maneuver(void); void exceed_quadrant_limits(void); void maneuver_energy(void); void short_range_scan(void); void long_range_scan(void); void phaser_control(void); void photon_torpedoes(void); void torpedo_hit(void); void damage_control(void); void sheild_control(void); void library_computer(void); void galactic_record(void); void status_report(void); void torpedo_data(void); void nav_data(void); void dirdist_calc(void); void galaxy_map(void); void end_of_time(void); void resign_commision(void); void won_game(void); void end_of_game(void); void klingons_move(void); void klingons_shoot(void); void repair_damage(void); void find_empty_place(void); void insert_in_quadrant(void); void get_device_name(void); void string_compare(void); void quadrant_name(void); int function_d(int i); int function_r(void); void mid_str(char *a, char *b, int x, int y); int cint(double d); void compute_vector(void); void sub1(void); void sub2(void); void showfile(char *filename); int openfile(char * sFilename, char * sMode); void closefile(void); int getline(char *s); void randomize(void); int get_rand(int iSpread); double rnd(void); /* Global Variables */ int b3; /* Starbases in Quadrant */ int b4, b5; /* Starbase Location in sector */ int b9; /* Total Starbases */ /* @@@ int c[2][10] = */ /* Used for location and movement */ int c[3][10] = /* modified to match MS BASIC array indicies */ { { 0 }, { 0, 0, -1, -1, -1, 0, 1, 1, 1, 0 }, { 1, 1, 1, 0, -1, -1, -1, 0, 1, 1 } }; int d0; /* Docked flag */ int d1; /* Damage Repair Flag */ int e; /* Current Energy */ int e0 = 3000; /* Starting Energy */ int g[9][9]; /* Galaxy */ int g5; /* Quadrant name flag */ int k[4][4]; /* Klingon Data */ int k3; /* Klingons in Quadrant */ int k7; /* Klingons at start */ int k9; /* Total Klingons left */ int n; /* Number of secors to travel */ int p; /* Photon Torpedoes left */ int p0 = 10; /* Photon Torpedo capacity */ int q1, q2; /* Quadrant Position of Enterprise */ int r1, r2; /* Temporary Location Corrdinates */ int s; /* Current shield value */ int s3; /* Stars in quadrant */ int s8; /* Quadrant locating index */ int s9 = 200; /* Klingon Power */ int t0; /* Starting Stardate */ int t9; /* End of time */ int z[9][9]; /* Cumulative Record of Galaxy */ int z3; /* string_compare return value */ int z1, z2; /* Temporary Sector Coordinates */ int z4, z5; /* Temporary quadrant coordinates */ double a, c1; /* Used by Library Computer */ double d[9]; /* Damage Array */ double d4; /* Used for computing damage repair time */ double s1, s2; /* Current Sector Position of Enterprise */ double t; /* Current Stardate */ double w1; /* Warp Factor */ double x, y, x1, x2; /* Navigational coordinates */ char sA[4]; /* An Object in a Sector */ char sC[7]; /* Condition */ char sQ[194]; /* Visual Display of Quadrant */ string sG2; /* Used to pass string results */ FILE *stream; bool bFlag = FALSE; /* Prevent multiple file opens */ void reads(char* buffer) { fflush(stdout); gets(buffer); } /* Main Program */ int main(void) { intro(); new_game(); /* @@@ exit(0); */ /* causes a warning in C++ */ return(0); } void intro(void) { string sTemp; printf ("\n\n"); printf (" *************************************\n"); printf (" * *\n"); printf (" * *\n"); printf (" * * * Super Star Trek * * *\n"); printf (" * *\n"); printf (" * *\n"); printf (" *************************************\n\n\n\n\n"); printf("\nDo you need instructions (y/n): "); reads(sTemp); if (sTemp[0] == 'y' || sTemp[0] == 'Y') showfile("startrek.doc"); printf ("\n\n\n\n\n\n\n"); printf(" ------*------\n"); printf(" ------------- `--- ------'\n"); printf(" `-------- --' / /\n"); printf(" \\\\------- --\n"); printf(" '-----------'\n"); printf("\n The USS Enterprise --- NCC - 1701\n\n\n"); randomize(); t = (get_rand(20) + 20) * 100; } void new_game(void) { string sTemp; initialize(); new_quadrant(); short_range_scan(); while(1) { if (s + e <= 10 && (e < 10 || d[7] < 0)) { printf("\n** Fatal Error ** "); printf("You've just stranded your ship in space.\n\n"); printf("You have insufficient maneuvering energy,"); printf(" and Shield Control is presently\n"); printf("incapable of cross circuiting to engine room!!\n\n"); end_of_time(); } printf("Command? "); reads(sTemp); printf("\n"); if (! strncmp(sTemp, "nav", 3)) course_control(); else if (! strncmp(sTemp, "srs", 3)) short_range_scan(); else if (! strncmp(sTemp, "lrs", 3)) long_range_scan(); else if (! strncmp(sTemp, "pha", 3)) phaser_control(); else if (! strncmp(sTemp, "tor", 3)) photon_torpedoes(); else if (! strncmp(sTemp, "she", 3)) sheild_control(); else if (! strncmp(sTemp, "dam", 3)) damage_control(); else if (! strncmp(sTemp, "com", 3)) library_computer(); else if (! strncmp(sTemp, "xxx", 3)) resign_commision(); else { printf("Enter one of the following:\n\n"); printf(" nav - To Set Course\n"); printf(" srs - Short Range Sensors\n"); printf(" lrs - Long Range Sensors\n"); printf(" pha - Phasers\n"); printf(" tor - Photon Torpedoes\n"); printf(" she - Sheild Control\n"); printf(" dam - Damage Control\n"); printf(" com - Library Computer\n"); printf(" xxx - Resign Command\n"); printf("\n"); } } } void initialize(void) { int i, j; char sX[2] = ""; char sX0[4] = "is"; /* InItialize time */ /* @@@ t0 = t; */ t0 = (int)t; t9 = 25 + get_rand(10); /* Initialize Enterprise */ d0 = 0; e = e0; p = p0; s = 0; q1 = function_r(); q2 = function_r(); s1 = (double) function_r(); s2 = (double) function_r(); for (i = 1; i <= 8; i++) d[i] = 0.0; /* Setup What Exists in Galaxy */ for (i = 1; i <= 8; i++) for (j = 1; j <= 8; j++) { k3 = 0; z[i][j] = 0; r1 = get_rand(100); if (r1 > 98) k3 = 3; else if (r1 > 95) k3 = 2; else if (r1 > 80) k3 = 1; k9 = k9 + k3; b3 = 0; if (get_rand(100) > 96) b3 = 1; b9 = b9 + b3; g[i][j] = k3 * 100 + b3 * 10 + function_r(); } if (k9 > t9) t9 = k9 + 1; if (b9 == 0) { if (g[q1][q2] < 200) { g[q1][q2] = g[q1][q2] + 100; k9++; } g[q1][q2] = g[q1][q2] + 10; b9++; q1 = function_r(); q2 = function_r(); } k7 = k9; if (b9 != 1) { strcpy(sX, "s"); strcpy(sX0, "are"); } printf("Your orders are as follows:\n\n"); printf(" Destroy the %d Klingon warships which have invaded\n", k9); printf(" the galaxy before they can attack Federation Headquarters\n"); printf(" on stardate %d. This gives you %d days. There %s\n", t0 + t9, t9, sX0); printf(" %d starbase%s in the galaxy for resupplying your ship.\n\n", b9, sX); printf("Hit any key to accept command. "); getchar(); } void new_quadrant(void) { int i; z4 = q1; z5 = q2; k3 = 0; b3 = 0; s3 = 0; g5 = 0; d4 = (double) get_rand(100) / 100 / 50; z[q1][q2] = g[q1][q2]; if (q1 >= 1 && q1 <= 8 && q2 >= 1 && q2 <= 8) { quadrant_name(); if (t0 != t) printf("Now entering %s quadrant...\n\n", sG2); else { printf("\nYour mission begins with your starship located\n"); printf("in the galactic quadrant %s.\n\n", sG2); } } /* @@@ k3 = g[q1][q2] * .01; */ k3 = (int)(g[q1][q2] * .01); /* @@@ b3 = g[q1][q2] * .1 - 10 * k3; */ b3 = (int)(g[q1][q2] * .1 - 10 * k3); s3 = g[q1][q2] - 100 * k3 - 10 * b3; if (k3 > 0) { printf("Combat Area Condition Red\n"); if (s < 200) printf("Shields Dangerously Low\n"); } for (i = 1; i <= 3; i++) { k[i][1] = 0; k[i][2] = 0; k[i][3] = 0; } for (i = 0; i <= 192; i++) sQ[i] = ' '; sQ[193] = '\0'; /* Position Enterprise, then Klingons, Starbases, and stars */ strcpy(sA, "<*>"); /* @@@ z1 = cint(s1); */ z1 = (int)s1; /* @@@ z2 = cint(s2); */ z2 = (int)s2; insert_in_quadrant(); if (k3 > 0) { for (i = 1; i <= k3; i++) { find_empty_place(); strcpy(sA, "+K+"); z1 = r1; z2 = r2; insert_in_quadrant(); k[i][1] = r1; k[i][2] = r2; k[i][3] = 100 + get_rand(200); } } if (b3 > 0) { find_empty_place(); strcpy(sA, ">!<"); z1 = r1; z2 = r2; insert_in_quadrant(); b4 = r1; b5 = r2; } for (i = 1; i <= s3; i++) { find_empty_place(); strcpy(sA, " * "); z1 = r1; z2 = r2; insert_in_quadrant(); } } void course_control(void) { register i; /* @@@ int c2, c3, q4, q5; */ int q4, q5; string sTemp; double c1; char sX[4] = "8"; printf("Course (0-9): "); reads(sTemp); printf("\n"); c1 = atof(sTemp); if (c1 == 9.0) c1 = 1.0; if (c1 < 0 || c1 > 9.0) { printf("Lt. Sulu roports:\n"); printf(" Incorrect course data, sir!\n\n"); return; } if (d[1] < 0.0) strcpy(sX, "0.2"); printf("Warp Factor (0-%s): ", sX); reads(sTemp); printf("\n"); w1 = atof(sTemp); if (d[1] < 0.0 && w1 > 0.21) { printf("Warp Engines are damaged. "); printf("Maximum speed = Warp 0.2.\n\n"); return; } if (w1 <= 0.0) return; if (w1 > 8.1) { printf("Chief Engineer Scott reports:\n"); printf(" The engines won't take warp %4.1f!\n\n", w1); return; } n = cint(w1 * 8.0); /* @@@ note: this is a real round in the original basic */ if (e - n < 0) { printf("Engineering reports:\n"); printf(" Insufficient energy available for maneuvering"); printf(" at warp %4.1f!\n\n", w1); if (s >= n && d[7] >= 0.0) { printf("Deflector Control Room acknowledges:\n"); printf(" %d units of energy presently deployed to shields.\n", s); } return; } klingons_move(); repair_damage(); strcpy(sA, " "); /* @@@ z1 = cint(s1); */ z1 = (int)s1; /* @@@ z2 = cint(s2); */ z2 = (int)s2; insert_in_quadrant(); /* @@@ c2 = cint(c1); */ /* @@@ c3 = c2 + 1; */ /* @@@ x1 = c[0][c2] + (c[0][c3] - c[0][c2]) * (c1 - c2); */ /* @@@ x2 = c[1][c2] + (c[1][c3] - c[1][c2]) * (c1 - c2); */ x1 = c[1][(int)c1] + (c[1][(int)c1 + 1] - c[1][(int)c1]) * (c1 - (int)c1); x2 = c[2][(int)c1] + (c[2][(int)c1 + 1] - c[2][(int)c1]) * (c1 - (int)c1); x = s1; y = s2; q4 = q1; q5 = q2; for (i = 1; i <= n; i++) { s1 = s1 + x1; s2 = s2 + x2; /* @@@ z1 = cint(s1); */ z1 = (int)s1; /* @@@ z2 = cint(s2); */ z2 = (int)s2; if (z1 < 1 || z1 >= 9 || z2 < 1 || z2 >= 9) { exceed_quadrant_limits(); complete_maneuver(); return; } string_compare(); if (z3 != 1) /* Sector not empty */ { s1 = s1 - x1; s2 = s2 - x2; printf("Warp Engines shut down at sector "); printf("%d, %d due to bad navigation.\n\n", z1, z2); i = n + 1; } } complete_maneuver(); } void complete_maneuver(void) { double t8; strcpy(sA, "<*>"); /* @@@ z1 = cint(s1); */ z1 = (int)s1; /* @@@ z2 = cint(s2); */ z2 = (int)s2; insert_in_quadrant(); maneuver_energy(); t8 = 1.0; if (w1 < 1.0) t8 = w1; t = t + t8; if (t > t0 + t9) end_of_time(); short_range_scan(); } void exceed_quadrant_limits(void) { int x5 = 0; /* Outside galaxy flag */ /* @@@ x = (8 * (q1 - 1)) + x + (n * x1); */ x = (8 * q1) + x + (n * x1); /* @@@ y = (8 * (q2 - 1)) + y + (n * x2); */ y = (8 * q2) + y + (n * x2); /* @@@ q1 = cint(x / 8.0); */ q1 = (int)(x / 8.0); /* @@@ q2 = cint(y / 8.0); */ q2 = (int)(y / 8.0); /* @@@ s1 = x - ((q1 - 1) * 8); */ s1 = x - (q1 * 8); /* @@@ s2 = y - ((q2 - 1) * 8); */ s2 = y - (q2 * 8); /* @@@ if (cint(s1) == 0) */ if ((int)s1 == 0) { q1 = q1 - 1; s1 = s1 + 8.0; } /* @@@ if (cint(s2) == 0) */ if ((int)s2 == 0) { q2 = q2 - 1; s2 = s2 + 8.0; } /* check if outside galaxy */ if (q1 < 1) { x5 = 1; q1 = 1; s1 = 1.0; } if (q1 > 8) { x5 = 1; q1 = 8; s1 = 8.0; } if (q2 < 1) { x5 = 1; q2 = 1; s2 = 1.0; } if (q2 > 8) { x5 = 1; q2 = 8; s2 = 8.0; } if (x5 == 1) { printf("LT. Uhura reports:\n"); printf(" Message from Starfleet Command:\n\n"); printf(" Permission to attempt crossing of galactic perimeter\n"); printf(" is hereby *denied*. Shut down your engines.\n\n"); printf("Chief Engineer Scott reports:\n"); /* @@@ printf(" Warp Engines shut down at sector %d, ", cint(s1)); */ printf(" Warp Engines shut down at sector %d, ", (int)s1); /* @@@ printf("%d of quadrant %d, %d.\n\n", cint(s2), q1, q2); */ printf("%d of quadrant %d, %d.\n\n", (int)s2, q1, q2); } /* else new_quadrant(); @@@ this causes bugs when bouncing off galaxy walls. basically, if you bounce very far, your quadrant contents won't match your LRS. Cool huh? */ maneuver_energy(); /* this section has a different order in the original. t = t + 1; if (t > t0 + t9) end_of_time(); */ if (t > t0 + t9) end_of_time(); /* @@@ what does this do?? It's in the original. if (8 * q1 + q2 = 8 * q4 + q5) { complete_maneuver(); } */ t = t + 1; new_quadrant(); } void maneuver_energy(void) { e = e - n - 10; if (e >= 0) return; printf("Shield Control supplies energy to complete maneuver.\n\n"); s = s + e; e = 0; if (s <= 0) s = 0; } void short_range_scan(void) { register i, j; strcpy(sC, "GREEN"); if (e < e0 * .1) strcpy(sC, "YELLOW"); if (k3 > 0) strcpy(sC, "*RED*"); /* @@@ need to clear the docked flag here */ d0 = 0; /* @@@ for (i = s1 - 1; i <= s1 + 1; i++) */ for (i = (int)(s1 - 1); i <= (int)(s1 + 1); i++) /* @@@ for (j = s2 - 1; j <= s2 + 1; j++) */ for (j = (int)(s2 - 1); j <= (int)(s2 + 1); j++) if (i >= 1 && i <= 8 && j >= 1 && j <= 8) { strcpy(sA, ">!<"); z1 = i; z2 = j; string_compare(); if (z3 == 1) { d0 = 1; strcpy(sC, "DOCKED"); e = e0; p = p0; printf("Shields dropped for docking purposes.\n"); s = 0; } } if (d[2] < 0.0) { printf("\n*** Short Range Sensors are out ***\n"); return; } printf("------------------------\n"); for (i = 0; i < 8; i++) { for (j = 0; j < 24; j++) putchar(sQ[i * 24 + j]); if (i == 0) printf(" Stardate %d\n", (int) t); if (i == 1) printf(" Condition %s\n", sC); if (i == 2) printf(" Quadrant %d, %d\n", q1, q2); if (i == 3) /* @@@ printf(" Sector %d, %d\n", cint(s1), cint(s2)); */ printf(" Sector %d, %d\n", (int)s1, (int)s2); if (i == 4) printf(" Photon Torpedoes %d\n", p); if (i == 5) printf(" Total Energy %d\n", e + s); if (i == 6) printf(" Shields %d\n", s); if (i == 7) printf(" Klingons Remaining %d\n", k9); } printf("------------------------\n\n"); return; } void long_range_scan(void) { register i, j; if (d[3] < 0.0) { printf("Long Range Sensors are inoperable.\n"); return; } printf("Long Range Scan for Quadrant %d, %d\n\n", q1, q2); for (i = q1 - 1; i <= q1 + 1; i++) { printf("--------------------\n:"); for (j = q2 - 1; j <= q2 + 1; j++) if (i > 0 && i <= 8 && j > 0 && j <= 8) { z[i][j] = g[i][j]; printf(" %3.3d :", z[i][j]); } else printf(" *** :"); printf("\n"); } printf("--------------------\n\n"); } void phaser_control(void) { register i; int iEnergy; int h1, h; string sTemp; if (d[4] < 0.0) { printf("Phasers Inoperative\n\n"); return; } if (k3 <= 0) { printf("Science Officer Spock reports:\n"); printf(" 'Sensors show no enemy ships in this quadrant'\n\n"); return; } if (d[8] < 0.0) /* @@@ printf("Computer failure happers accuracy.\n"); */ printf("Computer failure hampers accuracy.\n"); printf("Phasers locked on target;\n"); printf("Energy available = %d units\n\n", e); printf("Number of units to fire: "); reads(sTemp); printf("\n"); iEnergy = atoi(sTemp); if (iEnergy <= 0) return; if (e - iEnergy < 0) { printf("Not enough energy available.\n\n"); return; } e = e - iEnergy; if (d[8] < 0.0) /* @@@ iEnergy = iEnergy * rnd(); */ iEnergy = (int)(iEnergy * rnd()); h1 = iEnergy / k3; for (i = 1; i <= 3; i++) { if (k[i][3] > 0) { /* @@@ h = (h1 / function_d(0) * (rnd() + 2)); */ h = (int)(h1 / function_d(0) * (rnd() + 2)); if (h <= .15 * k[i][3]) { printf("Sensors show no damage to enemy at "); printf("%d, %d\n\n", k[i][1], k[i][2]); } else { k[i][3] = k[i][3] - h; printf("%d unit hit on Klingon at sector ", h); printf("%d, %d\n", k[i][1], k[i][2]); if (k[i][3] <= 0) { printf("*** Klingon Destroyed ***\n\n"); k3--; k9--; z1 = k[i][1]; z2 = k[i][2]; strcpy(sA, " "); insert_in_quadrant(); k[i][3] = 0; g[q1][q2] = g[q1][q2] - 100; z[q1][q2] = g[q1][q2]; if (k9 <= 0) won_game(); } else /* @@@ printf("\n"); */ printf(" (Sensors show %d units remaining.)\n\n", k[i][3]); } } } klingons_shoot(); } void photon_torpedoes(void) { /* @@@ int c2, c3, x3, y3, x5; */ int x3, y3, x5; string sTemp; double c1; if (p <= 0) { printf("All photon torpedoes expended\n"); return; } if (d[5] < 0.0) { printf("Photon Tubes not operational\n"); return; } printf("Course (0-9): "); reads(sTemp); printf("\n"); c1 = atof(sTemp); if (c1 == 9.0) c1 = 1.0; /* @@@ if (c1 < 0 || c1 > 9.0) */ if (c1 < 1.0 || c1 > 9.0) { printf("Ensign Chekov roports:\n"); printf(" Incorrect course data, sir!\n\n"); return; } e = e - 2; p--; /* @@@ c2 = cint(c1); */ /* @@@ c3 = c2 + 1; */ /* @@@ x1 = c[0][c2] + (c[0][c3] - c[0][c2]) * (c1 - c2); */ /* @@@ x2 = c[1][c2] + (c[1][c3] - c[1][c2]) * (c1 - c2); */ x1 = c[1][(int)c1] + (c[1][(int)c1 + 1] - c[1][(int)c1]) * (c1 - (int)c1); x2 = c[2][(int)c1] + (c[2][(int)c1 + 1] - c[2][(int)c1]) * (c1 - (int)c1); x = s1 + x1; y = s2 + x2; x3 = cint(x); /* @@@ note: this is a true integer round in the MS BASIC version */ y3 = cint(y); /* @@@ note: this is a true integer round in the MS BASIC version */ x5 = 0; printf("Torpedo Track:\n"); while (x3 >= 1 && x3 <= 8 && y3 >= 1 && y3 <= 8) { printf(" %d, %d\n", x3, y3); strcpy(sA, " "); z1 = x3; z2 = y3; string_compare(); if (z3 == 0) { torpedo_hit(); klingons_shoot(); return; } x = x + x1; y = y + x2; x3 = cint(x); /* @@@ note: this is a true integer round in the MS BASIC version */ y3 = cint(y); /* @@@ note: this is a true integer round in the MS BASIC version */ } printf("Torpedo Missed\n\n"); klingons_shoot(); } void torpedo_hit(void) { int i, x3, y3; x3 = cint(x); /* @@@ note: this is a true integer round in the MS BASIC version */ y3 = cint(y); /* @@@ note: this is a true integer round in the MS BASIC version */ z3 = 0; strcpy(sA, " * "); string_compare(); if (z3 == 1) { printf("Star at %d, %d absorbed torpedo energy.\n\n", x3, y3); return; } strcpy(sA, "+K+"); string_compare(); if (z3 == 1) { printf("*** Klingon Destroyed ***\n\n"); k3--; k9--; if (k9 <= 0) won_game(); for (i=0; i<=3; i++) if (x3 == k[i][1] && y3 == k[i][2]) k[i][3] = 0; } strcpy(sA, ">!<"); string_compare(); if (z3 == 1) { printf("*** Starbase Destroyed ***\n"); b3--; b9--; if (b9 <= 0 && k9 <= t - t0 - t9) { printf("That does it, Captain!!"); printf("You are hereby relieved of command\n"); printf("and sentanced to 99 stardates of hard"); printf("labor on Cygnus 12!!\n"); resign_commision(); } printf("Starfleet Command reviewing your record to consider\n"); printf("court martial!\n\n"); d0 = 0; /* Undock */ } z1 = x3; z2 = y3; strcpy(sA," "); insert_in_quadrant(); g[q1][q2] = (k3 * 100) + (b3 * 10) + s3; z[q1][q2] = g[q1][q2]; } void damage_control(void) { int a1; double d3 = 0.0; register i; if (d[6] < 0.0) { printf("Damage Control report not available.\n"); if (d0 == 0) return; d3 = 0.0; for (i = 1; i <= 8; i++) if (d[i] < 0.0) d3 = d3 + .1; if (d3 == 0.0) return; d3 = d3 + d4; if (d3 >= 1.0) d3 = 0.9; printf("\nTechnicians standing by to effect repairs to your"); /* @@@ printf("ship; Will you authorize the repair order (Y/N)? "); */ printf("ship;\nEstimated time to repair: %4.2f stardates.\n", d3); printf("Will you authorize the repair order (Y/N)? "); a1 = getchar(); if (a1 == 'Y' || a1 == 'y') { for (i = 1; i <= 8; i++) if (d[i] < 0.0) d[i] = 0.0; t = t + d3 + 0.1; } } printf("Device State of Repair\n"); for (r1 = 1; r1 <= 8; r1++) { get_device_name(); printf(sG2); /* @@@ for (i = 1; i < 25 - strlen(sG2); i++) */ for (i = 1; i < 25 - (int)strlen(sG2); i++) printf(" "); /* @@@ printf("%4.1f\n", d[r1]); */ printf("%4.2f\n", d[r1]); } printf("\n"); } void sheild_control(void) { int i; string sTemp; if (d[7] < 0.0) { printf("Sheild Control inoperable\n"); return; } printf("Energy available = %d\n\n", e + s); printf("Input number of units to shields: "); reads(sTemp); printf("\n"); i = atoi(sTemp); if (i < 0 || s == i) { printf("\n\n"); return; } if (i >= e + s) { printf("Sheild Control Reports:\n"); printf(" 'This is not the Federation Treasury.'\n"); printf("\n\n"); return; } e = e + s - i; s = i; printf("Deflector Control Room report:\n"); printf(" 'Shields now at %d units per your command.'\n\n", s); } void library_computer(void) { string sTemp; if (d[8] < 0.0) { printf("Library Computer inoperable\n"); return; } printf("Computer active and awating command: "); reads(sTemp); printf("\n"); if (! strncmp(sTemp, "0", 1)) galactic_record(); else if (! strncmp(sTemp, "1", 1)) status_report(); else if (! strncmp(sTemp, "2", 1)) torpedo_data(); else if (! strncmp(sTemp, "3", 1)) nav_data(); else if (! strncmp(sTemp, "4", 1)) dirdist_calc(); else if (! strncmp(sTemp, "5", 1)) galaxy_map(); else { printf("Functions available from Library-Computer:\n\n"); printf(" 0 = Cumulative Galactic Record\n"); printf(" 1 = Status Report\n"); printf(" 2 = Photon Torpedo Data\n"); printf(" 3 = Starbase Nav Data\n"); printf(" 4 = Direction/Distance Calculator\n"); printf(" 5 = Galaxy 'Region Name' Map\n\n"); } } void galactic_record(void) { int i, j; printf("\n Computer Record of Galaxy for Quadrant %d,%d\n\n", q1, q2); printf(" 1 2 3 4 5 6 7 8\n"); for (i = 1; i <= 8; i++) { printf(" ----- ----- ----- ----- ----- ----- ----- -----\n"); printf("%d", i); for (j = 1; j <= 8; j++) { printf(" "); if (z[i][j] == 0) printf("***"); else printf("%3.3d", z[i][j]); } printf("\n"); } printf(" ----- ----- ----- ----- ----- ----- ----- -----\n\n"); } void status_report(void) { char sX[2] = ""; printf(" Status Report:\n\n"); if (k9 > 1) strcpy(sX, "s"); printf("Klingon%s Left: %d\n", sX, k9); printf("Mission must be completed in %4.1f stardates\n", /* @@@ .1 * cint((t0 + t9 - t) * 10)); */ .1 * (int)((t0 + t9 - t) * 10)); if (b9 < 1) { printf("Your stupidity has left you on your own in the galaxy\n"); printf(" -- you have no starbases left!\n"); } else { strcpy(sX, "s"); if (b9 < 2) strcpy(sX, ""); printf("The Federation is maintaining %d starbase%s in the galaxy\n", b9, sX); } printf("\n"); } void torpedo_data(void) { int i; char sX[2] = ""; if (k3 <= 0) { printf("Science Officer Spock reports:\n"); printf(" 'Sensors show no enemy ships in this quadrant.'\n\n"); return; } if (k3 > 1) strcpy(sX, "s"); printf("From Enterprise to Klingon battlecriuser%s:\n\n", sX); for (i = 1; i <= 3; i++) { if (k[i][3] > 0) { w1 = k[i][1]; x = k[i][2]; c1 = s1; a = s2; compute_vector(); } } } void nav_data(void) { if (b3 <= 0) { printf("Mr. Spock reports,\n"); printf(" 'Sensors show no starbases in this quadrant.'\n\n"); return; } w1 = b4; x = b5; c1 = s1; a = s2; compute_vector(); } void dirdist_calc(void) { string sTemp; printf("Direction/Distance Calculator\n\n"); printf("You are at quadrant %d,%d sector %d,%d\n\n", q1, q2, /* @@@ cint(s1), cint(s2)); */ (int)s1, (int)s2); printf("Please enter initial X coordinate: "); reads(sTemp); c1 = atoi(sTemp); printf("Please enter initial Y coordinate: "); reads(sTemp); a = atoi(sTemp); printf("Please enter final X coordinate: "); reads(sTemp); w1 = atoi(sTemp); printf("Please enter final Y coordinate: "); reads(sTemp); x = atoi(sTemp); compute_vector(); } void galaxy_map(void) { int i, j, j0; g5 = 1; printf("\n The Galaxy\n\n"); printf(" 1 2 3 4 5 6 7 8\n"); for (i = 1; i <= 8; i++) { printf(" ----- ----- ----- ----- ----- ----- ----- -----\n"); printf("%d ", i); z4 = i; z5 = 1; quadrant_name(); j0 = (int)(11 - (strlen(sG2) / 2)); for (j = 0; j < j0; j++) printf(" "); printf(sG2); for (j = 0; j < j0; j++) printf(" "); if (! (strlen(sG2) % 2)) printf(" "); z5 = 5; quadrant_name(); j0 = (int)(12 - (strlen(sG2) / 2)); for (j = 0; j < j0; j++) printf(" "); printf(sG2); printf("\n"); } printf(" ----- ----- ----- ----- ----- ----- ----- -----\n\n"); } void compute_vector(void) { x = x - a; a = c1 - w1; if (x <= 0.0) { if (a > 0.0) { c1 = 3.0; sub2(); return; } else { c1 = 5.0; sub1(); return; } } else if (a < 0.0) { c1 = 7.0; sub2(); return; } else { c1 = 1.0; sub1(); return; } } void sub1(void) { x = fabs(x); a = fabs(a); if (a <= x) printf(" DIRECTION = %4.2f\n", c1 + (a / x)); else printf(" DIRECTION = %4.2f\n", c1 + (((a * 2) - x) / a)); printf(" DISTANCE = %4.2f\n\n", (x > a) ? x : a); } void sub2(void) { x = fabs(x); a = fabs(a); if (a >= x) printf(" DIRECTION = %4.2f\n", c1 + (x / a)); else /* @@@ printf(" DIRECTION = %4.2f\n\n", c1 + (((x * 2) - a) / x)); */ printf(" DIRECTION = %4.2f\n", c1 + (((x * 2) - a) / x)); /* @@@ printf(" DISTANCE = %4.2f\n", (x > a) ? x : a); */ printf(" DISTANCE = %4.2f\n\n", (x > a) ? x : a); } void ship_destroyed(void) { printf("The Enterprise has been destroyed. "); printf("The Federation will be conquered.\n\n"); end_of_time(); } void end_of_time(void) { printf("It is stardate %d.\n\n", (int) t); resign_commision(); } void resign_commision(void) { printf("There were %d Klingon Battlecruisers left at the", k9); printf(" end of your mission.\n\n"); end_of_game(); } void won_game(void) { printf("Congradulations, Captain! The last Klingon Battle Cruiser\n"); printf("menacing the Federation has been destoyed.\n\n"); if (t - t0 > 0) printf("Your efficiency rating is %4.2f\n", 1000 * pow(k7 / (t - t0), 2)); end_of_game(); } void end_of_game(void) { string sTemp; if (b9 > 0) { printf("The Federation is in need of a new starship commander"); printf(" for a similar mission.\n"); printf("If there is a volunteer, let him step forward and"); printf(" enter 'aye': "); reads(sTemp); printf("\n"); if (! strncmp(sTemp, "aye", 3)) new_game(); } exit(0); } void klingons_move(void) { int i; for (i = 1; i <= 3; i++) { if (k[i][3] > 0) { strcpy(sA, " "); z1 = k[i][1]; z2 = k[i][2]; insert_in_quadrant(); find_empty_place(); k[i][1] = z1; k[i][2] = z2; strcpy(sA, "+K+"); insert_in_quadrant(); } } klingons_shoot(); } void klingons_shoot(void) { int h, i; if (k3 <= 0) return; if (d0 != 0) { printf("Starbase shields protect the Enterprise\n\n"); return; } for (i = 1; i <= 3; i++) { if (k[i][3] > 0) { h = (int) ((k[i][3] / function_d(i)) * (2 + rnd())); s = s - h; /* @@@ k[i][3] = k[i][3] / (3 + rnd()); */ k[i][3] = (int)(k[i][3] / (3 + rnd())); printf("%d unit hit on Enterprise from sector ", h); printf("%d, %d\n", k[i][1], k[i][2]); if (s <= 0) { printf("\n"); ship_destroyed(); } printf(" \n\n", s); if (h >= 20) { if (rnd() <= 0.6 || (h / s) > 0.2) { r1 = function_r(); d[r1] = d[r1] - (h / s) - (0.5 * rnd()); get_device_name(); printf("Damage Control reports\n"); printf(" '%s' damaged by hit\n\n", sG2); } } } } } void repair_damage(void) { int i; double d6; /* Repair Factor */ d6 = w1; if (w1 >= 1.0) d6 = w1 / 10; for (i = 1; i <= 8; i++) { if (d[i] < 0.0) { d[i] = d[i] + d6; if (d[i] > -0.1 && d[i] < 0) d[i] = -0.1; else if (d[i] >= 0.0) { if (d1 != 1) d1 = 1; printf("Damage Control report:\n"); r1 = i; get_device_name(); printf(" %s repair completed\n\n", sG2); } } } if (rnd() <= 0.2) { r1 = function_r(); if (rnd() < .6) { d[r1] = d[r1] - (rnd() * 5.0 + 1.0); printf("Damage Control report:\n"); get_device_name(); printf(" %s damaged\n\n", sG2); } else { d[r1] = d[r1] + (rnd() * 3.0 + 1.0); printf("Damage Control report:\n"); get_device_name(); printf(" %s state of repair improved\n\n", sG2); } } } /* Misc Functions and Subroutines */ void find_empty_place(void) { /* @@@ while (z3 == 0) this is a nasty one.*/ do { r1 = function_r(); r2 = function_r(); strcpy(sA, " "); z1 = r1; z2 = r2; string_compare(); } while (z3 == 0); z3 = 0; } void insert_in_quadrant(void) { int i, j = 0; /* @@@ s8 = ((z2 - 1) * 3) + ((z1 - 1) * 24) + 1; */ s8 = ((int)(z2 - 0.5) * 3) + ((int)(z1 - 0.5) * 24) + 1; for (i = s8 - 1; i <= s8 + 1; i++) sQ[i] = sA[j++]; return; } void get_device_name(void) { static char * device_name[] = { "", "Warp Engines","Short Range Sensors","Long Range Sensors", "Phaser Control","Photon Tubes","Damage Control","Sheild Control", "Library-Computer"}; if (r1 < 0 || r1 > 8) r1 = 0; strcpy(sG2, device_name[r1]); return; } void string_compare(void) { int i; char sB[4]; z1 = (int)(z1 + 0.5); z2 = (int)(z2 + 0.5); s8 = ((z2 - 1) * 3) + ((z1 - 1) * 24) + 1; mid_str(sB, sQ, s8, 3); i = strncmp(sB, sA, 3); if (i == 0) z3 = 1; else z3 = 0; return; } void quadrant_name(void) { static char * quad_name[] = {"","Antares","Rigel","Procyon","Vega", "Canopus","Altair","Sagittarius","Pollux","Sirius","Deneb","Capella", "Betelgeuse","Aldebaran","Regulus","Arcturus","Spica"}; static char * sect_name[] = {""," I"," II"," III"," IV"}; if (z4 < 1 || z4 > 8 || z5 < 1 || z5 > 8) strcpy(sG2, "Unknown"); if (z5 <= 4) strcpy(sG2, quad_name[z4]); else strcpy(sG2, quad_name[z4+8]); if (g5 != 1) { if (z5 > 4) z5 = z5 - 4; strcat(sG2, sect_name[z5]); } return; } int function_d(int i) { int j; /* @@@ j = sqrt(pow((k[i][1] - s1), 2) + pow((k[i][2] - s2), 2)); */ j = (int)sqrt(pow((k[i][1] - s1), 2) + pow((k[i][2] - s2), 2)); return j; } int function_r(void) { return(get_rand(8)); } void mid_str(char *a, char *b, int x, int y) { --x; y += x; /* @@@ while (x < y && x <= strlen(b)) */ while (x < y && x <= (int)strlen(b)) *a++ = *(b + x++); *a = '\0'; } /* Round off floating point numbers instead of truncating */ int cint (double d) { int i; i = (int) (d + 0.5); return(i); } void showfile(char *filename) { line lBuffer; int iRow = 0; if (openfile(filename, "r") != 0) return; while (getline(lBuffer) != 0) { printf(lBuffer); if (iRow++ > MAXROW - 3) { getchar(); iRow = 0; } } closefile(); } int openfile(char * sFilename, char * sMode) { if (bFlag || (stream = fopen (sFilename, sMode)) == NULL) { fprintf (stderr, "\nError - Unable to open file: %s.\n\n", sFilename); return 1; } bFlag = TRUE; return 0; } void closefile(void) { if (! bFlag) fclose(stream); bFlag = FALSE; } int getline(char *s) { fflush(stdout); if (fgets(s, MAXCOL, stream) == NULL) return(0); else return(strlen(s)); } /* Seed the randomizer with the timer */ void randomize(void) { time_t timer; srand ((unsigned) time (&timer)); } /* Returns an integer from 1 to iSpread */ int get_rand(int iSpread) { return((rand() % iSpread) + 1); } double rnd(void) { double d; d = rand() / (double) RAND_MAX; return(d); }