forked from KolibriOS/kolibrios
506 lines
13 KiB
C
506 lines
13 KiB
C
|
#include "sst.h"
|
||
|
|
|
||
|
|
static char classes[4][2]={"","M","N","O"};
|
||
|
|
static int height;
|
||
|
|
|
||
|
|
static int consumeTime(void) {
|
||
|
|
/* I think most of this avoidance was caused by overlay scheme.
|
||
|
|
Let's see what happens if all events can occur here */
|
||
|
|
|
||
|
|
// double asave;
|
||
|
|
ididit = 1;
|
||
|
|
#if 0
|
||
|
|
/* Don't wory about this */
|
||
|
|
if (future[FTBEAM] <= d.date+Time && d.remcom != 0 && condit != IHDOCKED) {
|
||
|
|
/* We are about to be tractor beamed -- operation fails */
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
// asave = future[FSNOVA];
|
||
|
|
// future[FSNOVA] = 1e30; /* defer supernovas */
|
||
|
|
events(); /* Used to avoid if future[FSCMOVE] within time */
|
||
|
|
// future[FSNOVA] = asave;
|
||
|
|
/*fails if game over, quadrant super-novas or we've moved to new quadrant*/
|
||
|
|
if (alldone || d.galaxy[quadx][quady] == 1000 || justin != 0) return 1;
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void preport(void) {
|
||
|
|
int iknow = 0, i;
|
||
|
|
skip(1);
|
||
|
|
chew();
|
||
|
|
prout("Spock- \"Planet report follows, Captain.\"");
|
||
|
|
skip(1);
|
||
|
|
for (i = 1; i <= inplan; i++) {
|
||
|
|
if (d.plnets[i].known
|
||
|
|
#ifdef DEBUG
|
||
|
|
|| ( idebug && d.plnets[i].x !=0)
|
||
|
|
#endif
|
||
|
|
) {
|
||
|
|
iknow = 1;
|
||
|
|
#ifdef DEBUG
|
||
|
|
if (idebug && d.plnets[i].known==0) proutn("(Unknown) ");
|
||
|
|
#endif
|
||
|
|
cramlc(1, d.plnets[i].x, d.plnets[i].y);
|
||
|
|
proutn(" class ");
|
||
|
|
proutn(classes[d.plnets[i].pclass]);
|
||
|
|
proutn(" ");
|
||
|
|
if (d.plnets[i].crystals == 0) proutn("no ");
|
||
|
|
prout("dilithium crystals present.");
|
||
|
|
if (d.plnets[i].known==2)
|
||
|
|
prout(" Shuttle Craft Galileo on surface.");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (iknow==0) prout("No information available.");
|
||
|
|
}
|
||
|
|
|
||
|
|
void orbit(void) {
|
||
|
|
double asave;
|
||
|
|
|
||
|
|
skip(1);
|
||
|
|
chew();
|
||
|
|
ididit=0;
|
||
|
|
if (inorbit!=0) {
|
||
|
|
prout("Already in standard orbit.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (damage[DWARPEN] != 0 && damage[DIMPULS] != 0) {
|
||
|
|
prout("Both warp and impulse engines damaged.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (plnetx == 0 || abs(sectx-plnetx) > 1 || abs(secty-plnety) > 1) {
|
||
|
|
crmshp();
|
||
|
|
prout(" not adjacent to planet.\n");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
Time = 0.02+0.03*Rand();
|
||
|
|
prout("Helmsman Sulu- \"Entering standard orbit, Sir.\"");
|
||
|
|
newcnd();
|
||
|
|
if (consumeTime()) return;
|
||
|
|
proutn("Sulu- \"Entered orbit at altitude ");
|
||
|
|
cramf(height = (1400.+7200.*Rand()), 0, 2);
|
||
|
|
prout(" kilometers.\"");
|
||
|
|
inorbit = 1;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
void sensor(void) {
|
||
|
|
skip(1);
|
||
|
|
chew();
|
||
|
|
if (damage[DSRSENS] != 0.0) {
|
||
|
|
prout("Short range sensors damaged.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (plnetx == 0) {
|
||
|
|
prout("No planet in this quadrant.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
proutn("Spock- \"Sensor scan for");
|
||
|
|
cramlc(1, quadx, quady);
|
||
|
|
prout("-");
|
||
|
|
skip(1);
|
||
|
|
proutn(" Planet at");
|
||
|
|
cramlc(2, plnetx, plnety);
|
||
|
|
proutn(" is of class ");
|
||
|
|
proutn(classes[d.plnets[iplnet].pclass]);
|
||
|
|
prout(".");
|
||
|
|
if (d.plnets[iplnet].known==2)
|
||
|
|
prout(" Sensors show Galileo still on surface.");
|
||
|
|
proutn(" Readings indicate");
|
||
|
|
if (d.plnets[iplnet].crystals == 0) proutn(" no");
|
||
|
|
prout(" dilithium crystals present.\"");
|
||
|
|
if (d.plnets[iplnet].known == 0) d.plnets[iplnet].known = 1;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
void beam(void) {
|
||
|
|
chew();
|
||
|
|
skip(1);
|
||
|
|
if (damage[DTRANSP] != 0) {
|
||
|
|
prout("Transporter damaged.");
|
||
|
|
if (damage[DSHUTTL]==0 && (d.plnets[iplnet].known==2 || iscraft == 1)) {
|
||
|
|
skip(1);
|
||
|
|
prout("Spock- \"May I suggest the shuttle craft, Sir?\" ");
|
||
|
|
if (ja() != 0) shuttle();
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (inorbit==0) {
|
||
|
|
crmshp();
|
||
|
|
prout(" not in standard orbit.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (shldup!=0) {
|
||
|
|
prout("Impossible to transport through shields.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (d.plnets[iplnet].known==0) {
|
||
|
|
prout("Spock- \"Captain, we have no information on this planet");
|
||
|
|
prout(" and Starfleet Regulations clearly state that in this situation");
|
||
|
|
prout(" you may not go down.\"");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (landed==1) {
|
||
|
|
/* Coming from planet */
|
||
|
|
if (d.plnets[iplnet].known==2) {
|
||
|
|
proutn("Spock- \"Wouldn't you rather take the Galileo?\" ");
|
||
|
|
if (ja() != 0) {
|
||
|
|
chew();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
prout("Your crew hides the Galileo to prevent capture by aliens.");
|
||
|
|
}
|
||
|
|
prout("Landing party assembled, ready to beam up.");
|
||
|
|
skip(1);
|
||
|
|
prout("Kirk whips out communicator...");
|
||
|
|
prouts("BEEP BEEP BEEP");
|
||
|
|
skip(2);
|
||
|
|
prout("\"Kirk to enterprise- Lock on coordinates...energize.\"");
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
/* Going to planet */
|
||
|
|
if (d.plnets[iplnet].crystals==0) {
|
||
|
|
prout("Spock- \"Captain, I fail to see the logic in");
|
||
|
|
prout(" exploring a planet with no dilithium crystals.");
|
||
|
|
proutn(" Are you sure this is wise?\" ");
|
||
|
|
if (ja()==0) {
|
||
|
|
chew();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
prout("Scotty- \"Transporter room ready, Sir.\"");
|
||
|
|
skip(1);
|
||
|
|
prout("Kirk, and landing party prepare to beam down to planet surface.");
|
||
|
|
skip(1);
|
||
|
|
prout("Kirk- \"Energize.\"");
|
||
|
|
}
|
||
|
|
skip(1);
|
||
|
|
prouts("WWHOOOIIIIIRRRRREEEE.E.E. . . . . . .");
|
||
|
|
skip(2);
|
||
|
|
if (Rand() > 0.98) {
|
||
|
|
prouts("BOOOIIIOOOIIOOOOIIIOIING . . .");
|
||
|
|
skip(2);
|
||
|
|
prout("Scotty- \"Oh my God! I've lost them.\"");
|
||
|
|
finish(FLOST);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
prouts(". . . . . . .E.E.EEEERRRRRIIIIIOOOHWW");
|
||
|
|
skip(2);
|
||
|
|
prout("Transport complete.");
|
||
|
|
landed = -landed;
|
||
|
|
if (landed==1 && d.plnets[iplnet].known==2) {
|
||
|
|
prout("The shuttle craft Galileo is here!");
|
||
|
|
}
|
||
|
|
if (landed!=1 && imine==1) {
|
||
|
|
icrystl = 1;
|
||
|
|
cryprob = 0.05;
|
||
|
|
}
|
||
|
|
imine = 0;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
void mine(void) {
|
||
|
|
|
||
|
|
ididit = 0;
|
||
|
|
skip(1);
|
||
|
|
chew();
|
||
|
|
if (landed!= 1) {
|
||
|
|
prout("Mining party not on planet.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (d.plnets[iplnet].crystals == 0) {
|
||
|
|
prout("No dilithium crystals on this planet.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (imine == 1) {
|
||
|
|
prout("You've already mined enough crystals for this trip.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (icrystl == 1 && cryprob == 0.05) {
|
||
|
|
proutn("With all those fresh crystals aboard the ");
|
||
|
|
crmshp();
|
||
|
|
skip(1);
|
||
|
|
prout("there's no reason to mine more at this time.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
Time = (0.1+0.2*Rand())*d.plnets[iplnet].pclass;
|
||
|
|
if (consumeTime()) return;
|
||
|
|
prout("Mining operation complete.");
|
||
|
|
imine = 1;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
void usecrystals(void) {
|
||
|
|
|
||
|
|
skip(1);
|
||
|
|
chew();
|
||
|
|
if (icrystl!=1) {
|
||
|
|
prout("No dilithium crystals available.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (energy >= 1000) {
|
||
|
|
prout("Spock- \"Captain, Starfleet Regulations prohibit such an operation");
|
||
|
|
prout(" except when condition Yellow exists.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
prout("Spock- \"Captain, I must warn you that loading");
|
||
|
|
prout(" raw dilithium crystals into the ship's power");
|
||
|
|
prout(" system may risk a severe explosion.");
|
||
|
|
proutn(" Are you sure this is wise?\" ");
|
||
|
|
if (ja()==0) {
|
||
|
|
chew();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
skip(1);
|
||
|
|
prout("Engineering Officer Scott- \"(GULP) Aye Sir.");
|
||
|
|
prout(" Mr. Spock and I will try it.\"");
|
||
|
|
skip(1);
|
||
|
|
prout("Spock- \"Crystals in place, Sir.");
|
||
|
|
prout(" Ready to activate circuit.\"");
|
||
|
|
skip(1);
|
||
|
|
prouts("Scotty- \"Keep your fingers crossed, Sir!\"");
|
||
|
|
skip(1);
|
||
|
|
if (Rand() <= cryprob) {
|
||
|
|
prouts(" \"Activating now! - - No good! It's***");
|
||
|
|
skip(2);
|
||
|
|
prouts("***RED ALERT! RED A*L********************************");
|
||
|
|
skip(1);
|
||
|
|
stars();
|
||
|
|
prouts("****************** KA-BOOM!!!! *******************");
|
||
|
|
skip(1);
|
||
|
|
kaboom();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
energy += 5000.0*(1.0 + 0.9*Rand());
|
||
|
|
prouts(" \"Activating now! - - ");
|
||
|
|
prout("The instruments");
|
||
|
|
prout(" are going crazy, but I think it's");
|
||
|
|
prout(" going to work!! Congratulations, Sir!\"");
|
||
|
|
cryprob *= 2.0;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
void shuttle(void) {
|
||
|
|
|
||
|
|
chew();
|
||
|
|
skip(1);
|
||
|
|
ididit = 0;
|
||
|
|
if(damage[DSHUTTL] != 0.0) {
|
||
|
|
if (damage[DSHUTTL] == -1.0) {
|
||
|
|
if (inorbit && d.plnets[iplnet].known == 2)
|
||
|
|
prout("Ye Faerie Queene has no shuttle craft bay to dock it at.");
|
||
|
|
else
|
||
|
|
prout("Ye Faerie Queene had no shuttle craft.");
|
||
|
|
}
|
||
|
|
else if (damage[DSHUTTL] > 0)
|
||
|
|
prout("The Galileo is damaged.");
|
||
|
|
else prout("Shuttle craft is now serving Big Mac's.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (inorbit==0) {
|
||
|
|
crmshp();
|
||
|
|
prout(" not in standard orbit.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if ((d.plnets[iplnet].known != 2) && iscraft != 1) {
|
||
|
|
prout("Shuttle craft not currently available.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (landed==-1 && d.plnets[iplnet].known==2) {
|
||
|
|
prout("You will have to beam down to retrieve the shuttle craft.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (shldup!=0 || condit == IHDOCKED) {
|
||
|
|
prout("Shuttle craft cannot pass through shields.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (d.plnets[iplnet].known==0) {
|
||
|
|
prout("Spock- \"Captain, we have no information on this planet");
|
||
|
|
prout(" and Starfleet Regulations clearly state that in this situation");
|
||
|
|
prout(" you may not fly down.\"");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
Time = 3.0e-5*height;
|
||
|
|
if (Time >= 0.8*d.remtime) {
|
||
|
|
prout("First Officer Spock- \"Captain, I compute that such");
|
||
|
|
prout(" a maneuver would require approximately ");
|
||
|
|
cramf(100*Time/d.remtime,0,4);
|
||
|
|
prout("% of our");
|
||
|
|
prout("remaining time.");
|
||
|
|
prout("Are you sure this is wise?\" ");
|
||
|
|
if (ja()==0) {
|
||
|
|
Time = 0.0;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (landed == 1) {
|
||
|
|
/* Kirk on planet */
|
||
|
|
if (iscraft==1) {
|
||
|
|
/* Galileo on ship! */
|
||
|
|
if (damage[DTRANSP]==0) {
|
||
|
|
proutn("Spock- \"Would you rather use the transporter?\" ");
|
||
|
|
if (ja() != 0) {
|
||
|
|
beam();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
proutn("Shuttle crew");
|
||
|
|
}
|
||
|
|
else
|
||
|
|
proutn("Rescue party");
|
||
|
|
prout(" boards Galileo and swoops toward planet surface.");
|
||
|
|
iscraft = 0;
|
||
|
|
skip(1);
|
||
|
|
if (consumeTime()) return;
|
||
|
|
d.plnets[iplnet].known=2;
|
||
|
|
prout("Trip complete.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
/* Ready to go back to ship */
|
||
|
|
prout("You and your mining party board the");
|
||
|
|
prout("shuttle craft for the trip back to the Enterprise.");
|
||
|
|
skip(1);
|
||
|
|
prout("The short hop begins . . .");
|
||
|
|
d.plnets[iplnet].known=1;
|
||
|
|
icraft = 1;
|
||
|
|
skip(1);
|
||
|
|
landed = -1;
|
||
|
|
if (consumeTime()) return;
|
||
|
|
iscraft = 1;
|
||
|
|
icraft = 0;
|
||
|
|
if (imine!=0) {
|
||
|
|
icrystl = 1;
|
||
|
|
cryprob = 0.05;
|
||
|
|
}
|
||
|
|
imine = 0;
|
||
|
|
prout("Trip complete.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
/* Kirk on ship */
|
||
|
|
/* and so is Galileo */
|
||
|
|
prout("Mining party assembles in the hangar deck,");
|
||
|
|
prout("ready to board the shuttle craft \"Galileo\".");
|
||
|
|
skip(1);
|
||
|
|
prouts("The hangar doors open; the trip begins.");
|
||
|
|
skip(1);
|
||
|
|
icraft = 1;
|
||
|
|
iscraft = 0;
|
||
|
|
if (consumeTime()) return;
|
||
|
|
d.plnets[iplnet].known = 2;
|
||
|
|
landed = 1;
|
||
|
|
icraft = 0;
|
||
|
|
prout("Trip complete");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void deathray(void) {
|
||
|
|
double r = Rand();
|
||
|
|
|
||
|
|
ididit = 0;
|
||
|
|
skip(1);
|
||
|
|
chew();
|
||
|
|
if (ship != IHE) {
|
||
|
|
prout("Ye Faerie Queene has no death ray.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (nenhere==0) {
|
||
|
|
prout("Sulu- \"But Sir, there are no enemies in this quadrant.\"");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (damage[DDRAY] > 0.0) {
|
||
|
|
prout("Death Ray is damaged.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
prout("Spock- \"Captain, the 'Experimental Death Ray'");
|
||
|
|
prout(" is highly unpredictable. Considering the alternatives,");
|
||
|
|
prout(" are you sure this is wise?\" ");
|
||
|
|
if (ja()==0) return;
|
||
|
|
prout("Spock- \"Acknowledged.\"");
|
||
|
|
skip(1);
|
||
|
|
ididit=1;
|
||
|
|
prouts("WHOOEE ... WHOOEE ... WHOOEE ... WHOOEE");
|
||
|
|
skip(1);
|
||
|
|
prout("Crew scrambles in emergency preparation.");
|
||
|
|
prout("Spock and Scotty ready the death ray and");
|
||
|
|
prout("prepare to channel all ship's power to the device.");
|
||
|
|
skip(1);
|
||
|
|
prout("Spock- \"Preparations complete, sir.\"");
|
||
|
|
prout("Kirk- \"Engage!\"");
|
||
|
|
skip(1);
|
||
|
|
prouts("WHIRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR");
|
||
|
|
skip(1);
|
||
|
|
if (r > .30) {
|
||
|
|
prouts("Sulu- \"Captain! It's working!\"");
|
||
|
|
skip(2);
|
||
|
|
while (nenhere > 0) {
|
||
|
|
deadkl(kx[1],ky[1],quad[kx[1]][ky[1]],kx[1],ky[1]);
|
||
|
|
}
|
||
|
|
prout("Ensign Chekov- \"Congratulations, Captain!\"");
|
||
|
|
if (d.remkl == 0) finish(FWON);
|
||
|
|
prout("Spock- \"Captain, I believe the `Experimental Death Ray'");
|
||
|
|
if (Rand() <= 0.05) {
|
||
|
|
prout(" is still operational.\"");
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
prout(" has been rendered dysfunctional.\"");
|
||
|
|
damage[DDRAY] = 39.95;
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
r = Rand(); // Pick failure method
|
||
|
|
if (r <= .30) {
|
||
|
|
prouts("Sulu- \"Captain! It's working!\"");
|
||
|
|
skip(1);
|
||
|
|
prouts("***RED ALERT! RED ALERT!");
|
||
|
|
skip(1);
|
||
|
|
prout("***MATTER-ANTIMATTER IMPLOSION IMMINENT!");
|
||
|
|
skip(1);
|
||
|
|
prouts("***RED ALERT! RED A*L********************************");
|
||
|
|
skip(1);
|
||
|
|
stars();
|
||
|
|
prouts("****************** KA-BOOM!!!! *******************");
|
||
|
|
skip(1);
|
||
|
|
kaboom();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (r <= .55) {
|
||
|
|
prouts("Sulu- \"Captain! Yagabandaghangrapl, brachriigringlanbla!\"");
|
||
|
|
skip(1);
|
||
|
|
prout("Lt. Uhura- \"Graaeek! Graaeek!\"");
|
||
|
|
skip(1);
|
||
|
|
prout("Spock- \"Fascinating! . . . All humans aboard");
|
||
|
|
prout(" have apparently been transformed into strange mutations.");
|
||
|
|
prout(" Vulcans do not seem to be affected.");
|
||
|
|
skip(1);
|
||
|
|
prout("Kirk- \"Raauch! Raauch!\"");
|
||
|
|
finish(FDRAY);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (r <= 0.75) {
|
||
|
|
int i,j;
|
||
|
|
prouts("Sulu- \"Captain! It's --WHAT?!?!\"");
|
||
|
|
skip(2);
|
||
|
|
proutn("Spock- \"I believe the word is");
|
||
|
|
prouts(" *ASTONISHING*");
|
||
|
|
prout(" Mr. Sulu.");
|
||
|
|
for (i=1; i<=10; i++)
|
||
|
|
for (j=1; j<=10; j++)
|
||
|
|
if (quad[i][j] == IHDOT) quad[i][j] = IHQUEST;
|
||
|
|
prout(" Captain, our quadrant is now infested with");
|
||
|
|
prouts(" - - - - - - *THINGS*.");
|
||
|
|
skip(1);
|
||
|
|
prout(" I have no logical explanation.\"");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
prouts("Sulu- \"Captain! The Death Ray is creating tribbles!\"");
|
||
|
|
skip(1);
|
||
|
|
prout("Scotty- \"There are so many tribbles down here");
|
||
|
|
prout(" in Engineering, we can't move for 'em, Captain.\"");
|
||
|
|
finish(FTRIBBLE);
|
||
|
|
return;
|
||
|
|
}
|