X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=src%2Fplanets.c;h=8471848718b1cc544ef51b2e48b3c2d3f2d319e9;hp=217ce1414e72a47ce740e163cd1b02d0989a8532;hb=2cae1cd3feb922843b40af851f43f9e08bb18f0d;hpb=e535e2ef833a03ec84d0f002d684c07ddde893f1 diff --git a/src/planets.c b/src/planets.c index 217ce14..8471848 100644 --- a/src/planets.c +++ b/src/planets.c @@ -8,45 +8,44 @@ static int consumeTime(void) Let's see what happens if all events can occur here */ // double asave; - ididit = 1; + game.ididit = 1; #if 0 /* Don't worry about this */ - if (future[FTBEAM] <= game.state.date+Time && game.state.remcom != 0 && condit != IHDOCKED) { + 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 = future[FSNOVA]; -// future[FSNOVA] = FOREVER; /* defer supernovas */ - events(); /* Used to avoid if future[FSCMOVE] within time */ -// future[FSNOVA] = asave; +// 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 (alldone || game.state.galaxy[quadx][quady].supernova || justin != 0) return 1; + if (game.alldone || game.state.galaxy[game.quadrant.x][game.quadrant.y].supernova || game.justin != 0) return 1; return 0; } void preport(void) { - int iknow = 0, i; + bool iknow = false; + int i; skip(1); chew(); prout("Spock- \"Planet report follows, Captain.\""); skip(1); - for (i = 0; i < inplan; i++) { - if (game.state.plnets[i].known != unknown -#ifdef DEBUG - || ( idebug && game.state.plnets[i].x !=0) -#endif + 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) ) { - iknow = 1; -#ifdef DEBUG - if (idebug && game.state.plnets[i].known==unknown) proutn("(Unknown) "); -#endif - proutn(cramlc(quadrant, game.state.plnets[i].x, game.state.plnets[i].y)); + iknow = true; + if (idebug && game.state.plnets[i].known==unknown) + proutn("(Unknown) "); + proutn(cramlc(quadrant, game.state.plnets[i].w)); proutn(" class "); proutn(classes[game.state.plnets[i].pclass]); proutn(" "); - if (game.state.plnets[i].crystals == 0) proutn("no "); + if (game.state.plnets[i].crystals <= 0) proutn("no "); prout("dilithium crystals present."); if (game.state.plnets[i].known==shuttle_down) prout(" Shuttle Craft Galileo on surface."); @@ -59,54 +58,54 @@ void orbit(void) { skip(1); chew(); - if (inorbit!=0) { + if (game.inorbit) { prout("Already in standard orbit."); return; } - if (game.damage[DWARPEN] != 0 && game.damage[DIMPULS] != 0) { + if (damaged(DWARPEN) && damaged(DIMPULS)) { prout("Both warp and impulse engines damaged."); return; } - if (plnetx == 0 || abs(sectx-plnetx) > 1 || abs(secty-plnety) > 1) { + if (game.plnet.x == 0 || abs(game.sector.x-game.plnet.x) > 1 || abs(game.sector.y-game.plnet.y) > 1) { crmshp(); prout(" not adjacent to planet."); skip(1); return; } - Time = 0.02+0.03*Rand(); + game.optime = 0.02+0.03*Rand(); prout("Helmsman Sulu- \"Entering standard orbit, Sir.\""); newcnd(); if (consumeTime()) return; game.height = (1400.0+7200.0*Rand()); prout("Sulu- \"Entered orbit at altitude %.2f kilometers.\"", game.height); - inorbit = 1; - ididit=1; + game.inorbit = true; + game.ididit = true; } void sensor(void) { skip(1); chew(); - if (game.damage[DSRSENS] != 0.0) { + if (damaged(DSRSENS)) { prout("Short range sensors damaged."); return; } - if (!plnetx && (game.options & OPTION_TTY)) { + if (!game.plnet.x && (game.options & OPTION_TTY)) { prout("Spock- \"No planet in this quadrant, Captain.\""); return; } - if ((plnetx != 0)&& (game.state.plnets[iplnet].known == unknown)) { - prout("Spock- \"Sensor scan for %s-", cramlc(quadrant, quadx, quady)); + if ((game.plnet.x != 0)&& (game.state.plnets[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, plnetx, plnety), - classes[game.state.plnets[iplnet].pclass]); - if (game.state.plnets[iplnet].known==shuttle_down) + 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) prout(" Sensors show Galileo still on surface."); proutn(" Readings indicate"); - if (game.state.plnets[iplnet].crystals == 0) proutn(" no"); + if (game.state.plnets[game.iplnet].crystals == 0) proutn(" no"); prout(" dilithium crystals present.\""); - if (game.state.plnets[iplnet].known == unknown) game.state.plnets[iplnet].known = known; + if (game.state.plnets[game.iplnet].known == unknown) game.state.plnets[game.iplnet].known = known; } } @@ -114,33 +113,33 @@ void beam(void) { chew(); skip(1); - if (game.damage[DTRANSP] != 0) { + if (damaged(DTRANSP)) { prout("Transporter damaged."); - if (game.damage[DSHUTTL]==0 && (game.state.plnets[iplnet].known==shuttle_down || iscraft == 1)) { + if (!damaged(DSHUTTL) && (game.state.plnets[game.iplnet].known==shuttle_down || game.iscraft == 1)) { skip(1); proutn("Spock- \"May I suggest the shuttle craft, Sir?\" "); if (ja() != 0) shuttle(); } return; } - if (inorbit==0) { + if (!game.inorbit) { crmshp(); prout(" not in standard orbit."); return; } - if (shldup!=0) { + if (game.shldup) { prout("Impossible to transport through shields."); return; } - if (game.state.plnets[iplnet].known==unknown) { + if (game.state.plnets[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 (landed==1) { + if (game.landed==1) { /* Coming from planet */ - if (game.state.plnets[iplnet].known==shuttle_down) { + if (game.state.plnets[game.iplnet].known==shuttle_down) { proutn("Spock- \"Wouldn't you rather take the Galileo?\" "); if (ja() != 0) { chew(); @@ -157,7 +156,7 @@ void beam(void) } else { /* Going to planet */ - if (game.state.plnets[iplnet].crystals==0) { + if (game.state.plnets[game.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?\" "); @@ -172,7 +171,7 @@ void beam(void) skip(1); prout("Kirk- \"Energize.\""); } - ididit=1; + game.ididit=1; skip(1); prouts("WWHOOOIIIIIRRRRREEEE.E.E. . . . . . ."); skip(2); @@ -186,15 +185,15 @@ void beam(void) prouts(". . . . . . .E.E.EEEERRRRRIIIIIOOOHWW"); skip(2); prout("Transport complete."); - landed = -landed; - if (landed==1 && game.state.plnets[iplnet].known==shuttle_down) { + game.landed = -game.landed; + if (game.landed==1 && game.state.plnets[game.iplnet].known==shuttle_down) { prout("The shuttle craft Galileo is here!"); } - if (landed!=1 && imine==1) { - icrystl = 1; - cryprob = 0.05; + if (game.landed!=1 && game.imine==1) { + game.icrystl = 1; + game.cryprob = 0.05; } - imine = 0; + game.imine = 0; return; } @@ -202,44 +201,49 @@ void mine(void) { skip(1); chew(); - if (landed!= 1) { + if (game.landed!= 1) { prout("Mining party not on planet."); return; } - if (game.state.plnets[iplnet].crystals == 0) { + if (game.state.plnets[game.iplnet].crystals == MINED) { + prout("This planet has already been strip-mined for dilithium."); + return; + } + else if (game.state.plnets[game.iplnet].crystals == 0) { prout("No dilithium crystals on this planet."); return; } - if (imine == 1) { + if (game.imine == 1) { prout("You've already mined enough crystals for this trip."); return; } - if (icrystl == 1 && cryprob == 0.05) { + if (game.icrystl == 1 && 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; } - Time = (0.1+0.2*Rand())*game.state.plnets[iplnet].pclass; + game.optime = (0.1+0.2*Rand())*game.state.plnets[game.iplnet].pclass; if (consumeTime()) return; prout("Mining operation complete."); - imine = 1; - ididit=1; + game.state.plnets[game.iplnet].crystals = MINED; + game.imine = 1; + game.ididit=1; } void usecrystals(void) { - ididit=0; + game.ididit=0; skip(1); chew(); - if (icrystl!=1) { + if (game.icrystl!=1) { prout("No dilithium crystals available."); return; } - if (energy >= 1000) { + if (game.energy >= 1000) { prout("Spock- \"Captain, Starfleet Regulations prohibit such an operation"); - prout(" except when condition Yellow exists."); + prout(" except when game.condition Yellow exists."); return; } prout("Spock- \"Captain, I must warn you that loading"); @@ -259,7 +263,7 @@ void usecrystals(void) skip(1); prouts("Scotty- \"Keep your fingers crossed, Sir!\""); skip(1); - if (Rand() <= cryprob) { + if (Rand() <= game.cryprob) { prouts(" \"Activating now! - - No good! It's***"); skip(2); prouts("***RED ALERT! RED A*L********************************"); @@ -270,71 +274,72 @@ void usecrystals(void) kaboom(); return; } - energy += 5000.0*(1.0 + 0.9*Rand()); + game.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; - ididit=1; + game.cryprob *= 2.0; + game.ididit=1; } void shuttle(void) { chew(); skip(1); - if(game.damage[DSHUTTL] != 0.0) { + if(damaged(DSHUTTL)) { if (game.damage[DSHUTTL] == -1.0) { - if (inorbit && game.state.plnets[iplnet].known == shuttle_down) + if (game.inorbit && game.state.plnets[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."); } else if (game.damage[DSHUTTL] > 0) prout("The Galileo is damaged."); - else prout("Shuttle craft is now serving Big Macs."); + else /* game.damage[DSHUTTL] < 0 */ + prout("Shuttle craft is now serving Big Macs."); return; } - if (inorbit==0) { + if (!game.inorbit) { crmshp(); prout(" not in standard orbit."); return; } - if ((game.state.plnets[iplnet].known != shuttle_down) && iscraft != 1) { + if ((game.state.plnets[game.iplnet].known != shuttle_down) && game.iscraft != 1) { prout("Shuttle craft not currently available."); return; } - if (landed==-1 && game.state.plnets[iplnet].known==shuttle_down) { + if (game.landed==-1 && game.state.plnets[game.iplnet].known==shuttle_down) { prout("You will have to beam down to retrieve the shuttle craft."); return; } - if (shldup!=0 || condit == IHDOCKED) { + if (game.shldup || game.condit == IHDOCKED) { prout("Shuttle craft cannot pass through shields."); return; } - if (game.state.plnets[iplnet].known==unknown) { + if (game.state.plnets[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; } - Time = 3.0e-5*game.height; - if (Time >= 0.8*game.state.remtime) { + game.optime = 3.0e-5*game.height; + if (game.optime >= 0.8*game.state.remtime) { prout("First Officer Spock- \"Captain, I compute that such"); proutn(" a maneuver would require approximately 2d%% of our", - (int)(100*Time/game.state.remtime)); + (int)(100*game.optime/game.state.remtime)); prout("remaining time."); proutn("Are you sure this is wise?\" "); if (ja()==0) { - Time = 0.0; + game.optime = 0.0; return; } } - if (landed == 1) { + if (game.landed == 1) { /* Kirk on planet */ - if (iscraft==1) { + if (game.iscraft==1) { /* Galileo on ship! */ - if (game.damage[DTRANSP]==0) { + if (!damaged(DTRANSP)) { proutn("Spock- \"Would you rather use the transporter?\" "); if (ja() != 0) { beam(); @@ -345,10 +350,10 @@ void shuttle(void) else proutn("Rescue party"); prout(" boards Galileo and swoops toward planet surface."); - iscraft = 0; + game.iscraft = 0; skip(1); if (consumeTime()) return; - game.state.plnets[iplnet].known=shuttle_down; + game.state.plnets[game.iplnet].known=shuttle_down; prout("Trip complete."); return; } @@ -358,18 +363,18 @@ void shuttle(void) prout("shuttle craft for the trip back to the Enterprise."); skip(1); prout("The short hop begins . . ."); - game.state.plnets[iplnet].known=known; - icraft = 1; + game.state.plnets[game.iplnet].known=known; + game.icraft = 1; skip(1); - landed = -1; + game.landed = -1; if (consumeTime()) return; - iscraft = 1; - icraft = 0; - if (imine!=0) { - icrystl = 1; - cryprob = 0.05; + game.iscraft = 1; + game.icraft = 0; + if (game.imine!=0) { + game.icrystl = 1; + game.cryprob = 0.05; } - imine = 0; + game.imine = 0; prout("Trip complete."); return; } @@ -382,12 +387,12 @@ void shuttle(void) skip(1); prouts("The hangar doors open; the trip begins."); skip(1); - icraft = 1; - iscraft = 0; + game.icraft = 1; + game.iscraft = 0; if (consumeTime()) return; - game.state.plnets[iplnet].known = shuttle_down; - landed = 1; - icraft = 0; + game.state.plnets[game.iplnet].known = shuttle_down; + game.landed = 1; + game.icraft = 0; prout("Trip complete"); return; } @@ -397,18 +402,18 @@ void deathray(void) { double dprob, r = Rand(); - ididit = 0; + game.ididit = 0; skip(1); chew(); - if (ship != IHE) { + if (game.ship != IHE) { prout("Ye Faerie Queene has no death ray."); return; } - if (nenhere==0) { + if (game.nenhere==0) { prout("Sulu- \"But Sir, there are no enemies in this quadrant.\""); return; } - if (game.damage[DDRAY] > 0.0) { + if (damaged(DDRAY)) { prout("Death Ray is damaged."); return; } @@ -418,7 +423,7 @@ void deathray(void) if (ja()==0) return; prout("Spock- \"Acknowledged.\""); skip(1); - ididit=1; + game.ididit=1; prouts("WHOOEE ... WHOOEE ... WHOOEE ... WHOOEE"); skip(1); prout("Crew scrambles in emergency preparation."); @@ -436,8 +441,8 @@ void deathray(void) if (r > dprob) { prouts("Sulu- \"Captain! It's working!\""); skip(2); - while (nenhere > 0) - deadkl(game.kx[1],game.ky[1],game.quad[game.kx[1]][game.ky[1]],game.kx[1],game.ky[1]); + 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); prout("Ensign Chekov- \"Congratulations, Captain!\""); if (KLINGREM == 0) finish(FWON); if ((game.options & OPTION_PLAIN) == 0) { @@ -504,3 +509,66 @@ void deathray(void) finish(FTRIBBLE); return; } + +char *systemname(int pindx) +{ + static char *names[NINHAB] = + { + /* + * I used 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 */ + "Deeva", /* 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 + }; + + return names[pindx]; +}