d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
ack/examples/startrek.c

1962 lines
39 KiB
C
Raw Blame History

/*
* startrek.c
*
* Super Star Trek Classic (v1.1)
* Retro Star Trek Game
* C Port Copyright (C) 1996 <Chris Nystrom>
*
* 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 <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <time.h>
#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("<Sheilds Unchanged>\n\n");
return;
}
if (i >= e + s)
{
printf("Sheild Control Reports:\n");
printf(" 'This is not the Federation Treasury.'\n");
printf("<Sheilds Unchanged>\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(" <Shields down to %d units>\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);
}
Reference in a new issue View git blame Copy permalink