static char *classes[] = {"M","N","O"};
-static int consumeTime(void)
+static bool consumeTime(void)
+/* abort a lengthy operation if an event interrupts it */
{
-/* I think most of this avoidance was caused by overlay scheme.
- Let's see what happens if all events can occur here */
-
-// double asave;
- game.ididit = 1;
-#if 0
- /* Don't worry about this */
- if (scheduled(FTBEAM) <= game.state.date+game.optime && game.state.remcom != 0 && game.condit != IHDOCKED) {
- /* We are about to be tractor beamed -- operation fails */
- return 1;
- }
-#endif
-// asave = scheduled(FSNOVA);
-// unschedule(FSNOVA); /* defer supernovas */
- events(); /* Used to avoid if FSCMOVE is scheduled within time */
-// schedule(FSNOVA, asave-game.state.time);
- /*fails if game over, quadrant super-novas or we've moved to new quadrant*/
- if (game.alldone || game.state.galaxy[game.quadrant.x][game.quadrant.y].supernova || game.justin != 0) return 1;
- return 0;
+ game.ididit = true;
+ events();
+ if (game.alldone || game.state.galaxy[game.quadrant.x][game.quadrant.y].supernova || game.justin)
+ return true;
+ return false;
}
-void preport(void)
+void survey(void)
+/* report on (uninhabited) planets in the galaxy */
{
bool iknow = false;
int i;
prout(_("Spock- \"Planet report follows, Captain.\""));
skip(1);
for (i = 0; i < game.inplan; i++) {
- if ((game.state.plnets[i].known != unknown
- && game.state.plnets[i].crystals != 0)
- || (idebug && game.state.plnets[i].w.x !=0)
- ) {
+ if (game.state.planets[i].pclass == destroyed)
+ continue;
+ if ((game.state.planets[i].known != unknown
+ && game.state.planets[i].inhabited == UNINHABITED)
+ || idebug) {
iknow = true;
- if (idebug && game.state.plnets[i].known==unknown)
+ if (idebug && game.state.planets[i].known==unknown)
proutn("(Unknown) ");
- proutn(cramlc(quadrant, game.state.plnets[i].w));
+ proutn(cramlc(quadrant, game.state.planets[i].w));
proutn(_(" class "));
- proutn(classes[game.state.plnets[i].pclass]);
+ proutn(classes[game.state.planets[i].pclass]);
proutn(" ");
- if (game.state.plnets[i].crystals <= 0) proutn(_("no "));
+ if (game.state.planets[i].crystals != present)
+ proutn(_("no "));
prout(_("dilithium crystals present."));
- if (game.state.plnets[i].known==shuttle_down)
+ if (game.state.planets[i].known==shuttle_down)
prout(_(" Shuttle Craft Galileo on surface."));
}
}
- if (iknow==0) prout(_("No information available."));
+ if (!iknow)
+ prout(_("No information available."));
}
-void orbit(void)
+void orbit(void)
+/* enter standard orbit */
{
skip(1);
chew();
prout(_("Both warp and impulse engines damaged."));
return;
}
- if (game.plnet.x == 0 || abs(game.sector.x-game.plnet.x) > 1 || abs(game.sector.y-game.plnet.y) > 1) {
+ if (!is_valid(game.plnet) || abs(game.sector.x-game.plnet.x) > 1 || abs(game.sector.y-game.plnet.y) > 1) {
crmshp();
prout(_(" not adjacent to planet."));
skip(1);
game.optime = 0.02+0.03*Rand();
prout(_("Helmsman Sulu- \"Entering standard orbit, Sir.\""));
newcnd();
- if (consumeTime()) return;
+ if (consumeTime())
+ return;
game.height = (1400.0+7200.0*Rand());
prout(_("Sulu- \"Entered orbit at altitude %.2f kilometers.\""), game.height);
game.inorbit = true;
game.ididit = true;
}
-void sensor(void)
+void sensor(void)
+/* examine planets in this quadrant */
{
skip(1);
chew();
prout(_("Spock- \"No planet in this quadrant, Captain.\""));
return;
}
- if ((game.plnet.x != 0)&& (game.state.plnets[game.iplnet].known == unknown)) {
+ if ((game.plnet.x != 0)&& (game.state.planets[game.iplnet].known == unknown)) {
prout(_("Spock- \"Sensor scan for %s-"), cramlc(quadrant, game.quadrant));
skip(1);
prout(_(" Planet at %s is of class %s."),
cramlc(sector,game.plnet),
- classes[game.state.plnets[game.iplnet].pclass]);
- if (game.state.plnets[game.iplnet].known==shuttle_down)
+ classes[game.state.planets[game.iplnet].pclass]);
+ if (game.state.planets[game.iplnet].known==shuttle_down)
prout(_(" Sensors show Galileo still on surface."));
proutn(_(" Readings indicate"));
- if (game.state.plnets[game.iplnet].crystals == 0) proutn(_(" no"));
+ if (game.state.planets[game.iplnet].crystals != present)
+ proutn(_(" no"));
prout(_(" dilithium crystals present.\""));
- if (game.state.plnets[game.iplnet].known == unknown) game.state.plnets[game.iplnet].known = known;
+ if (game.state.planets[game.iplnet].known == unknown)
+ game.state.planets[game.iplnet].known = known;
}
}
void beam(void)
+/* use the transporter */
{
chew();
skip(1);
if (damaged(DTRANSP)) {
prout(_("Transporter damaged."));
- if (!damaged(DSHUTTL) && (game.state.plnets[game.iplnet].known==shuttle_down || game.iscraft == 1)) {
+ if (!damaged(DSHUTTL) && (game.state.planets[game.iplnet].known==shuttle_down || game.iscraft == onship)) {
skip(1);
proutn(_("Spock- \"May I suggest the shuttle craft, Sir?\" "));
- if (ja() == true) shuttle();
+ if (ja() == true)
+ shuttle();
}
return;
}
prout(_("Impossible to transport through shields."));
return;
}
- if (game.state.plnets[game.iplnet].known==unknown) {
+ if (game.state.planets[game.iplnet].known==unknown) {
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 (game.landed==1) {
+ if (game.landed) {
/* Coming from planet */
- if (game.state.plnets[game.iplnet].known==shuttle_down) {
+ if (game.state.planets[game.iplnet].known==shuttle_down) {
proutn(_("Spock- \"Wouldn't you rather take the Galileo?\" "));
if (ja() == true) {
chew();
}
else {
/* Going to planet */
- if (game.state.plnets[game.iplnet].crystals==0) {
+ if (game.state.planets[game.iplnet].crystals==absent) {
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?\" "));
skip(1);
prout(_("Kirk- \"Energize.\""));
}
- game.ididit=1;
+ game.ididit = true;
skip(1);
prouts("WWHOOOIIIIIRRRRREEEE.E.E. . . . . . .");
skip(2);
prouts(". . . . . . .E.E.EEEERRRRRIIIIIOOOHWW");
skip(2);
prout(_("Transport complete."));
- game.landed = -game.landed;
- if (game.landed==1 && game.state.plnets[game.iplnet].known==shuttle_down) {
+ game.landed = !game.landed;
+ if (game.landed && game.state.planets[game.iplnet].known==shuttle_down) {
prout(_("The shuttle craft Galileo is here!"));
}
- if (game.landed!=1 && game.imine==1) {
- game.icrystl = 1;
+ if (!game.landed && game.imine) {
+ game.icrystl = true;
game.cryprob = 0.05;
}
- game.imine = 0;
+ game.imine = false;
return;
}
void mine(void)
+/* strip-mine a world for dilithium */
{
skip(1);
chew();
- if (game.landed!= 1) {
+ if (!game.landed) {
prout(_("Mining party not on planet."));
return;
}
- if (game.state.plnets[game.iplnet].crystals == MINED) {
+ if (game.state.planets[game.iplnet].crystals == mined) {
prout(_("This planet has already been strip-mined for dilithium."));
return;
}
- else if (game.state.plnets[game.iplnet].crystals == 0) {
+ else if (game.state.planets[game.iplnet].crystals == absent) {
prout(_("No dilithium crystals on this planet."));
return;
}
- if (game.imine == 1) {
+ if (game.imine) {
prout(_("You've already mined enough crystals for this trip."));
return;
}
- if (game.icrystl == 1 && game.cryprob == 0.05) {
+ if (game.icrystl && game.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;
}
- game.optime = (0.1+0.2*Rand())*game.state.plnets[game.iplnet].pclass;
- if (consumeTime()) return;
+ game.optime = (0.1+0.2*Rand())*game.state.planets[game.iplnet].pclass;
+ if (consumeTime())
+ return;
prout(_("Mining operation complete."));
- game.state.plnets[game.iplnet].crystals = MINED;
- game.imine = 1;
- game.ididit=1;
+ game.state.planets[game.iplnet].crystals = mined;
+ game.imine = game.ididit = true;
}
-void usecrystals(void)
+void usecrystals(void)
+/* use dilithium crystals */
{
- game.ididit=0;
+ game.ididit = false;
skip(1);
chew();
- if (game.icrystl!=1) {
+ if (!game.icrystl) {
prout(_("No dilithium crystals available."));
return;
}
if (game.energy >= 1000) {
prout(_("Spock- \"Captain, Starfleet Regulations prohibit such an operation"));
- prout(_(" except when condition Yellow exists."));
+ prout(_(" except when Condition Yellow exists."));
return;
}
prout(_("Spock- \"Captain, I must warn you that loading"));
prout(_(" are going crazy, but I think it's"));
prout(_(" going to work!! Congratulations, Sir!\""));
game.cryprob *= 2.0;
- game.ididit=1;
+ game.ididit = true;
}
void shuttle(void)
+/* use shuttlecraft for planetary jaunt */
{
chew();
skip(1);
if(damaged(DSHUTTL)) {
if (game.damage[DSHUTTL] == -1.0) {
- if (game.inorbit && game.state.plnets[game.iplnet].known == shuttle_down)
+ if (game.inorbit && game.state.planets[game.iplnet].known == shuttle_down)
prout(_("Ye Faerie Queene has no shuttle craft bay to dock it at."));
else
prout(_("Ye Faerie Queene had no shuttle craft."));
prout(_(" not in standard orbit."));
return;
}
- if ((game.state.plnets[game.iplnet].known != shuttle_down) && game.iscraft != 1) {
+ if ((game.state.planets[game.iplnet].known != shuttle_down) && game.iscraft != onship) {
prout(_("Shuttle craft not currently available."));
return;
}
- if (game.landed==-1 && game.state.plnets[game.iplnet].known==shuttle_down) {
+ if (!game.landed && game.state.planets[game.iplnet].known==shuttle_down) {
prout(_("You will have to beam down to retrieve the shuttle craft."));
return;
}
- if (game.shldup || game.condit == IHDOCKED) {
+ if (game.shldup || game.condition == docked) {
prout(_("Shuttle craft cannot pass through shields."));
return;
}
- if (game.state.plnets[game.iplnet].known==unknown) {
+ if (game.state.planets[game.iplnet].known==unknown) {
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;
}
}
- if (game.landed == 1) {
+ if (game.landed) {
/* Kirk on planet */
- if (game.iscraft==1) {
+ if (game.iscraft == onship) {
/* Galileo on ship! */
if (!damaged(DTRANSP)) {
proutn(_("Spock- \"Would you rather use the transporter?\" "));
else
proutn(_("Rescue party"));
prout(_(" boards Galileo and swoops toward planet surface."));
- game.iscraft = 0;
+ game.iscraft = offship;
skip(1);
- if (consumeTime()) return;
- game.state.plnets[game.iplnet].known=shuttle_down;
+ if (consumeTime())
+ return;
+ game.state.planets[game.iplnet].known=shuttle_down;
prout(_("Trip complete."));
return;
}
prout(_("shuttle craft for the trip back to the Enterprise."));
skip(1);
prout(_("The short hop begins . . ."));
- game.state.plnets[game.iplnet].known=known;
- game.icraft = 1;
+ game.state.planets[game.iplnet].known=known;
+ game.icraft = true;
skip(1);
- game.landed = -1;
- if (consumeTime()) return;
- game.iscraft = 1;
- game.icraft = 0;
- if (game.imine!=0) {
- game.icrystl = 1;
+ game.landed = false;
+ if (consumeTime())
+ return;
+ game.iscraft = onship;
+ game.icraft = false;
+ if (game.imine) {
+ game.icrystl = true;
game.cryprob = 0.05;
}
- game.imine = 0;
+ game.imine = false;
prout(_("Trip complete."));
return;
}
skip(1);
prouts(_("The hangar doors open; the trip begins."));
skip(1);
- game.icraft = 1;
- game.iscraft = 0;
- if (consumeTime()) return;
- game.state.plnets[game.iplnet].known = shuttle_down;
- game.landed = 1;
- game.icraft = 0;
- prout(_("Trip complete"));
+ game.icraft = true;
+ game.iscraft = offship;
+ if (consumeTime())
+ return;
+ game.state.planets[game.iplnet].known = shuttle_down;
+ game.landed = true;
+ game.icraft = false;
+ prout(_("Trip complete."));
return;
}
}
-void deathray(void)
+void deathray(void)
+/* use the big zapper */
{
double dprob, r = Rand();
- game.ididit = 0;
+ game.ididit = false;
skip(1);
chew();
if (game.ship != IHE) {
prout(_("Spock- \"Captain, the 'Experimental Death Ray'"));
prout(_(" is highly unpredictible. Considering the alternatives,"));
proutn(_(" are you sure this is wise?\" "));
- if (ja() == false) return;
+ if (ja() == false)
+ return;
prout(_("Spock- \"Acknowledged.\""));
skip(1);
- game.ididit=1;
+ game.ididit = true;
prouts(_("WHOOEE ... WHOOEE ... WHOOEE ... WHOOEE"));
skip(1);
prout(_("Crew scrambles in emergency preparation."));
prouts(_("Sulu- \"Captain! It's working!\""));
skip(2);
while (game.nenhere > 0)
- deadkl(game.ks[1], game.quad[game.ks[1].x][game.ks[1].y],game.ks[1].x,game.ks[1].y);
+ deadkl(game.ks[1], game.quad[game.ks[1].x][game.ks[1].y],game.ks[1]);
prout(_("Ensign Chekov- \"Congratulations, Captain!\""));
- if (KLINGREM == 0) finish(FWON);
+ if (KLINGREM == 0)
+ finish(FWON);
if ((game.options & OPTION_PLAIN) == 0) {
prout(_("Spock- \"Captain, I believe the `Experimental Death Ray'"));
if (Rand() <= 0.05) {
proutn(_("Spock- \"I believe the word is"));
prouts(_(" *ASTONISHING*"));
prout(_(" Mr. Sulu."));
- for_sectors(i)
- for_sectors(j)
- if (game.quad[i][j] == IHDOT) game.quad[i][j] = IHQUEST;
+ for (i = 1; i <= QUADSIZE; i++)
+ for (j = 1; j <= QUADSIZE; j++)
+ if (game.quad[i][j] == IHDOT)
+ game.quad[i][j] = IHQUEST;
prout(_(" Captain, our quadrant is now infested with"));
prouts(_(" - - - - - - *THINGS*."));
skip(1);
finish(FTRIBBLE);
return;
}
-
-char *systemname(int pindx)
-{
- static char copy[BUFSIZ];
- /* the below array should not be static, or it won't gettextize
- * because of the early initialization. */
- char *names[NINHAB+1] =
- {
- /*
- * I used <http://www.memory-alpha.org> to find planets
- * with references in ST:TOS. Eath and the Alpha Centauri
- * Colony have been omitted.
- *
- * Some planets marked Class G and P here will be displayed as class M
- * because of the way planets are generated. This is a known bug.
- */
- "ERROR",
- // Federation Worlds
- _("Andoria (Fesoan)"), /* several episodes */
- _("Tellar Prime (Miracht)"), /* TOS: "Journey to Babel" */
- _("Vulcan (T'Khasi)"), /* many episodes */
- _("Medusa"), /* TOS: "Is There in Truth No Beauty?" */
- _("Argelius II (Nelphia)"),/* TOS: "Wolf in the Fold" ("IV" in BSD) */
- _("Ardana"), /* TOS: "The Cloud Minders" */
- _("Catulla (Cendo-Prae)"), /* TOS: "The Way to Eden" */
- _("Gideon"), /* TOS: "The Mark of Gideon" */
- _("Aldebaran III"), /* TOS: "The Deadly Years" */
- _("Alpha Majoris I"), /* TOS: "Wolf in the Fold" */
- _("Altair IV"), /* TOS: "Amok Time */
- _("Ariannus"), /* TOS: "Let That Be Your Last Battlefield" */
- _("Benecia"), /* TOS: "The Conscience of the King" */
- _("Beta Niobe I (Sarpeidon)"), /* TOS: "All Our Yesterdays" */
- _("Alpha Carinae II"), /* TOS: "The Ultimate Computer" */
- _("Capella IV (Kohath)"), /* TOS: "Friday's Child" (Class G) */
- _("Daran V"), /* TOS: "For the World is Hollow and I Have Touched the Sky" */
- _("Deneb II"), /* TOS: "Wolf in the Fold" ("IV" in BSD) */
- _("Eminiar VII"), /* TOS: "A Taste of Armageddon" */
- _("Gamma Canaris IV"), /* TOS: "Metamorphosis" */
- _("Gamma Tranguli VI (Vaalel)"), /* TOS: "The Apple" */
- _("Ingraham B"), /* TOS: "Operation: Annihilate" */
- _("Janus IV"), /* TOS: "The Devil in the Dark" */
- _("Makus III"), /* TOS: "The Galileo Seven" */
- _("Marcos XII"), /* TOS: "And the Children Shall Lead", */
- _("Omega IV"), /* TOS: "The Omega Glory" */
- _("Regulus V"), /* TOS: "Amok Time */
- _("Deneva"), /* TOS: "Operation -- Annihilate!" */
- /* Worlds from BSD Trek */
- _("Rigel II"), /* TOS: "Shore Leave" ("III" in BSD) */
- _("Beta III"), /* TOS: "The Return of the Archons" */
- _("Triacus"), /* TOS: "And the Children Shall Lead", */
- _("Exo III"), /* TOS: "What Are Little Girls Made Of?" (Class P) */
-#if 0
- // Others
- _("Hansen's Planet"), /* TOS: "The Galileo Seven" */
- _("Taurus IV"), /* TOS: "The Galileo Seven" (class G) */
- _("Antos IV (Doraphane)"), /* TOS: "Whom Gods Destroy", "Who Mourns for Adonais?" */
- _("Izar"), /* TOS: "Whom Gods Destroy" */
- _("Tiburon"), /* TOS: "The Way to Eden" */
- _("Merak II"), /* TOS: "The Cloud Minders" */
- _("Coridan (Desotriana)"), /* TOS: "Journey to Babel" */
- _("Iotia"), /* TOS: "A Piece of the Action" */
-#endif
- };
-
- strcpy(copy, names[pindx]);
- return copy;
-}
projects / super-star-trek.git / blobdiff