X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=src%2Fsetup.c;h=d464616f04714d21812b37364fa8c5e07f982d67;hp=5c67f231cdf980fe3a999e5343a945d700f8fb0c;hb=ad1478c7cc24b761592a1e355015b44b243aeeda;hpb=d5b31ded06283b5ae9788716c7753108d23b777c diff --git a/src/setup.c b/src/setup.c index 5c67f23..d464616 100644 --- a/src/setup.c +++ b/src/setup.c @@ -28,7 +28,7 @@ void freeze(bool boss) } else { if ((key = scan()) == IHEOL) { - proutn("File name: "); + proutn(_("File name: ")); key = scan(); } if (key != IHALPHA) { @@ -41,7 +41,7 @@ void freeze(bool boss) } } if ((fp = fopen(citem, "wb")) == NULL) { - proutn("Can't freeze game as file "); + proutn(_("Can't freeze game as file ")); proutn(citem); skip(1); return; @@ -92,9 +92,31 @@ int thaw(void) return 0; } +/* +** Abandon Ship +** +** The ship is abandoned. If your current ship is the Faire +** Queene, or if your shuttlecraft is dead, you're out of +** luck. You need the shuttlecraft in order for the captain +** (that's you!!) to escape. +** +** Your crew can beam to an inhabited starsystem in the +** quadrant, if there is one and if the transporter is working. +** If there is no inhabited starsystem, or if the transporter +** is out, they are left to die in outer space. +** +** If there are no starbases left, you are captured by the +** Klingons, who torture you mercilessly. However, if there +** is at least one starbase, you are returned to the +** Federation in a prisoner of war exchange. Of course, this +** can't happen unless you have taken some prisoners. +** +*/ + void abandn(void) { int nb, l; + struct quadrant *q; chew(); if (game.condit==IHDOCKED) { @@ -132,13 +154,25 @@ void abandn(void) prouts("***ALL HANDS ABANDON SHIP!"); skip(2); prout("Captain and crew escape in shuttle craft."); - prout("Remainder of ship's complement beam down"); - prout("to nearest habitable planet."); if (game.state.rembase==0) { /* Oops! no place to go... */ finish(FABANDN); return; } + q = &game.state.galaxy[game.quadrant.x][game.quadrant.y]; + /* Dispose of crew */ + if (!(game.options & OPTION_WORLDS) && !damaged(DTRANSP)) { + prout("Remainder of ship's complement beam down"); + prout("to nearest habitable planet."); + } else if (q->planet != NOPLANET && !damaged(DTRANSP)) { + prout("Remainder of ship's complement beam down"); + prout("to %s.", systemname(q->planet)); + } else { + prout("Entire crew of %d left to die in outer space."); + game.casual += game.state.crew; + game.abandoned += game.state.crew; + } + /* If at least one base left, give 'em the Faerie Queene */ skip(1); game.icrystl = 0; /* crystals are lost */ @@ -147,11 +181,10 @@ void abandn(void) prout("the Federation in a prisoner-of-war exchange."); nb = Rand()*game.state.rembase+1; /* Set up quadrant and position FQ adjacient to base */ - if (game.quadrant.x!=game.state.baseq[nb].x || game.quadrant.y!=game.state.baseq[nb].y) { - game.quadrant.x = game.state.baseq[nb].x; - game.quadrant.y = game.state.baseq[nb].y; + if (!same(game.quadrant, game.state.baseq[nb])) { + game.quadrant = game.state.baseq[nb]; game.sector.x = game.sector.y = 5; - newqad(1); + newqad(true); } for (;;) { /* position next to base by trial and error */ @@ -165,17 +198,18 @@ void abandn(void) if (l < QUADSIZE+1) break; /* found a spot */ game.sector.x=QUADSIZE/2; game.sector.y=QUADSIZE/2; - newqad(1); + newqad(true); } } /* Get new commission */ game.quad[game.sector.x][game.sector.y] = game.ship = IHF; + game.state.crew = FULLCREW; prout("Starfleet puts you in command of another ship,"); prout("the Faerie Queene, which is antiquated but,"); prout("still useable."); if (game.icrystl!=0) prout("The dilithium crystals have been moved."); - game.imine=0; - game.iscraft=0; /* Gallileo disappears */ + game.imine = false; + game.iscraft=0; /* Galileo disappears */ /* Resupply ship */ game.condit=IHDOCKED; for (l = 0; l < NDEVICES; l++) @@ -185,27 +219,26 @@ void abandn(void) game.shield = game.inshld = 1250.0; game.torps = game.intorps = 6; game.lsupres=game.inlsr=3.0; - game.shldup=0; + game.shldup=false; game.warpfac=5.0; game.wfacsq=25.0; return; } -void setup(int needprompt) +void setup(bool needprompt) { int i,j, krem, klumper; int ix, iy; -#ifdef DEBUG - game.idebug = 0; -#endif // Decide how many of everything if (choose(needprompt)) return; // frozen game // Prepare the Enterprise - game.alldone = game.gamewon = 0; + game.alldone = game.gamewon = false; game.ship = IHE; + game.state.crew = FULLCREW; game.energy = game.inenrg = 5000.0; game.shield = game.inshld = 2500.0; - game.shldchg = game.shldup = 0; + game.shldchg = 0; + game.shldup = false; game.inlsr = 4.0; game.lsupres = 4.0; iran(GALSIZE, &game.quadrant.x, &game.quadrant.y); @@ -219,8 +252,9 @@ void setup(int needprompt) // Set up assorted game parameters game.battle.x = game.battle.y = 0; game.state.date = game.indate = 100.0*(int)(31.0*Rand()+20.0); - game.nkinks = game.nhelp = game.resting = game.casual = 0; - game.isatb = game.iscate = game.imine = game.icrystl = game.icraft = game.state.nplankl = 0; + game.nkinks = game.nhelp = game.casual = game.abandoned = 0; + game.resting = game.imine = game.icraft = false; + game.isatb = game.iscate = game.icrystl = game.state.nplankl = 0; game.state.starkl = game.state.basekl = 0; game.iscraft = 1; game.landed = -1; @@ -230,14 +264,12 @@ void setup(int needprompt) for_quadrants(j) { struct quadrant *quad = &game.state.galaxy[i][j]; quad->charted = 0; - quad->planet = NULL; + quad->planet = NOPLANET; quad->romulans = 0; quad->klingons = 0; quad->starbase = 0; quad->supernova = 0; -#ifdef EXPERIMENTAL quad->status = secure; -#endif /* EXPERIMENTAL */ } // Initialize times for extraneous events schedule(FSNOVA, expran(0.5 * game.intime)); @@ -251,12 +283,12 @@ void setup(int needprompt) unschedule(FSCMOVE); unschedule(FSCDBAS); unschedule(FDSPROB); -#ifdef EXPERIMENTAL - if (game.options & OPTION_WORLDS) + if ((game.options & OPTION_WORLDS) && game.skill >= SKILL_GOOD) schedule(FDISTR, expran(1.0 + game.intime)); + else + unschedule(FDISTR); unschedule(FENSLV); unschedule(FREPRO); -#endif /* EXPERIMENTAL */ // Starchart is functional but we've never seen it game.lastchart = FOREVER; // Put stars in the galaxy @@ -279,16 +311,14 @@ void setup(int needprompt) double distq = square(ix-game.state.baseq[j].x) + square(iy-game.state.baseq[j].y); if (distq < 6.0*(BASEMAX+1-game.inbase) && Rand() < 0.75) { contflag = true; -#ifdef DEBUG - prout("DEBUG: Abandoning base #%d at %d-%d", i, ix, iy); -#endif + if (idebug) + prout("=== Abandoning base #%d at %d-%d", i, ix, iy); break; } -#ifdef DEBUG else if (distq < 6.0 * (BASEMAX+1-game.inbase)) { - prout("DEBUG: saving base #%d, close to #%d", i, j); + if (idebug) + prout("=== Saving base #%d, close to #%d", i, j); } -#endif } } while (contflag); @@ -300,7 +330,8 @@ void setup(int needprompt) // Position ordinary Klingon Battle Cruisers krem = game.inkling; klumper = 0.25*game.skill*(9.0-game.length)+1.0; - if (klumper > 9) klumper = 9; // Can't have more than 9 in quadrant + if (klumper > MAXKLQUAD) + klumper = MAXKLQUAD; do { double r = Rand(); int klump = (1.0 - r*r)*klumper; @@ -312,20 +343,20 @@ void setup(int needprompt) game.state.galaxy[ix][iy].klingons += klump; } while (krem > 0); // Position Klingon Commander Ships -#ifdef DEBUG +#ifdef ODEBUG klumper = 1; -#endif +#endif /* ODEBUG */ for (i = 1; i <= game.incom; i++) { do { do { /* IF debugging, put commanders by bases, always! */ -#ifdef DEBUG +#ifdef ODEBUG if (game.idebug && klumper <= game.inbase) { ix = game.state.baseq[klumper].x; iy = game.state.baseq[klumper].y; klumper++; } else -#endif +#endif /* ODEBUG */ iran(GALSIZE, &ix, &iy); } while ((!game.state.galaxy[ix][iy].klingons && Rand() < 0.75)|| @@ -341,7 +372,7 @@ void setup(int needprompt) } // Locate planets in galaxy for (i = 0; i < game.inplan; i++) { - do iran(GALSIZE, &ix, &iy); while (game.state.galaxy[ix][iy].planet); + do iran(GALSIZE, &ix, &iy); while (game.state.galaxy[ix][iy].planet != NOPLANET); game.state.plnets[i].w.x = ix; game.state.plnets[i].w.y = iy; if (i < NINHAB) { @@ -356,7 +387,7 @@ void setup(int needprompt) game.state.plnets[i].inhabited = UNINHABITED; } if ((game.options & OPTION_WORLDS) || i >= NINHAB) - game.state.galaxy[ix][iy].planet = game.state.plnets + i; + game.state.galaxy[ix][iy].planet = i; } // Locate Romulans for (i = 1; i <= game.state.nromrem; i++) { @@ -418,8 +449,8 @@ void setup(int needprompt) prout("Good Luck!"); if (game.state.nscrem) prout(" YOU'LL NEED IT."); waitfor(); - newqad(0); - if (game.nenhere-iqhere-game.ithere) game.shldup=1.0; + newqad(false); + if (game.nenhere-iqhere-game.ithere) game.shldup = true; if (game.neutz) attack(0); // bad luck to start in a Romulan Neutral Zone } @@ -508,9 +539,10 @@ bool choose(bool needprompt) prout("\"?"); } setpassword(); -#ifdef DEBUG - if (strcmp(game.passwd, "debug")==0) game.idebug = 1; -#endif + if (strcmp(game.passwd, "debug")==0) { + idebug = true; + fputs("=== Debug mode enabled\n", stdout); + } // Use parameters to generate initial values of things game.damfac = 0.5 * game.skill; @@ -559,51 +591,51 @@ void newkling(int i, coord *pi) game.kpower[i] = Rand()*150.0 +300.0 +25.0*game.skill; } -void newqad(int shutup) +void newqad(bool shutup) { int i, j; coord w; - struct quadrant *here; + struct quadrant *q; game.iattak = 1; - game.justin = 1; + game.justin = true; game.base.x = game.base.y = 0; game.klhere = 0; game.comhere = 0; game.plnet.x = game.plnet.y = 0; - game.ishere = 0; + game.ishere = false; game.irhere = 0; game.iplnet = 0; game.nenhere = 0; - game.neutz = 0; - game.inorbit = 0; + game.neutz = false; + game.inorbit = false; game.landed = -1; - game.ientesc = 0; - game.ithere = 0; - iqhere=0; - iqengry=0; + game.ientesc = false; + game.ithere = false; + iqhere = false; + iqengry = false; game.iseenit = 0; if (game.iscate) { // Attempt to escape Super-commander, so tbeam back! game.iscate = 0; - game.ientesc = 1; + game.ientesc = true; } // Clear quadrant for_sectors(i) for_sectors(j) game.quad[i][j] = IHDOT; - here = &game.state.galaxy[game.quadrant.x][game.quadrant.y]; + q = &game.state.galaxy[game.quadrant.x][game.quadrant.y]; // cope with supernova - if (here->supernova) + if (q->supernova) return; - game.klhere = here->klingons; - game.irhere = here->romulans; + game.klhere = q->klingons; + game.irhere = q->romulans; game.nenhere = game.klhere + game.irhere; // Position Starship game.quad[game.sector.x][game.sector.y] = game.ship; - if (here->klingons) { + if (q->klingons) { // Position ordinary Klingons for (i = 1; i <= game.klhere; i++) newkling(i, &w); @@ -622,7 +654,7 @@ void newqad(int shutup) game.quad[game.ks[1].x][game.ks[1].y] = IHS; game.kpower[1] = 1175.0 + 400.0*Rand() + 125.0*game.skill; game.iscate = game.state.remkl>1; - game.ishere = 1; + game.ishere = true; } } // Put in Romulans if needed @@ -633,13 +665,13 @@ void newqad(int shutup) game.kpower[i] = Rand()*400.0 + 450.0 + 50.0*game.skill; } // If quadrant needs a starbase, put it in - if (here->starbase) + if (q->starbase) dropin(IHB, &game.base); // If quadrant needs a planet, put it in - if (here->planet) { - game.iplnet = here->planet - game.state.plnets; - if (here->planet->inhabited == UNINHABITED) + if (q->planet != NOPLANET) { + game.iplnet = q->planet; + if (game.state.plnets[q->planet].inhabited == UNINHABITED) dropin(IHP, &game.plnet); else dropin(IHW, &game.plnet); @@ -647,13 +679,13 @@ void newqad(int shutup) // Check for game.condition newcnd(); // And finally the stars - for (i = 1; i <= here->stars; i++) + for (i = 1; i <= q->stars; i++) dropin(IHSTAR, &w); // Check for RNZ - if (game.irhere > 0 && game.klhere == 0 && (!here->planet || here->planet->inhabited == UNINHABITED)) { + if (game.irhere > 0 && game.klhere == 0 && (q->planet == NOPLANET || game.state.plnets[q->planet].inhabited == UNINHABITED)) { game.neutz = 1; - if (game.damage[DRADIO] <= 0.0) { + if (!damaged(DRADIO)) { skip(1); prout("LT. Uhura- \"Captain, an urgent message."); prout(" I'll put it on audio.\" CLICK"); @@ -674,7 +706,7 @@ void newqad(int shutup) game.kdist[game.nenhere] = game.kavgd[game.nenhere] = sqrt(square(game.sector.x-w.x) + square(game.sector.y-w.y)); game.kpower[game.nenhere] = Rand()*6000.0 +500.0 +250.0*game.skill; - if (game.damage[DSRSENS] == 0.0) { + if (!damaged(DSRSENS)) { skip(1); prout("MR. SPOCK- \"Captain, this is most unusual."); prout(" Please examine your short-range scan.\""); @@ -687,16 +719,13 @@ void newqad(int shutup) if ((game.skill < SKILL_GOOD && Rand() <= 0.02) || /* Lighten up if skill is low */ (game.skill == SKILL_GOOD && Rand() <= 0.05) || (game.skill > SKILL_GOOD && Rand() <= 0.08) - #ifdef DEBUG - || strcmp(game.passwd, "tholianx")==0 - #endif ) { do { game.tholian.x = Rand() > 0.5 ? QUADSIZE : 1; game.tholian.y = Rand() > 0.5 ? QUADSIZE : 1; } while (game.quad[game.tholian.x][game.tholian.y] != IHDOT); game.quad[game.tholian.x][game.tholian.y] = IHT; - game.ithere = 1; + game.ithere = true; game.nenhere++; game.ks[game.nenhere].x = game.tholian.x; game.ks[game.nenhere].y = game.tholian.y; @@ -760,3 +789,20 @@ void sortkl(void) } } while (sw); } + +void setpassword(void) +{ + if (!(game.options & OPTION_CURSES)) { + while (TRUE) { + scan(); + strcpy(game.passwd, citem); + chew(); + if (*game.passwd != 0) break; + proutn(_("Please type in a secret password-")); + } + } else { + int i; + for(i=0;i<3;i++) game.passwd[i]=(char)(97+(int)(Rand()*25)); + game.passwd[3]=0; + } +}