Get rid of obnoxious visible "have we paused?" state.
[super-star-trek.git] / src / setup.c
1 #include <time.h>
2 #include <sys/stat.h>
3 #include "sst.h"
4
5 static long filelength(int fd) {
6 struct stat buf;
7     fstat(fd, &buf);
8     return buf.st_size;
9 }
10
11 void prelim(void)
12 /* issue a historically correct banner */
13 {
14     skip(2);
15     prout(_("-SUPER- STAR TREK"));
16     skip(1);
17 #ifdef __HISTORICAL__
18     prout(_("Latest update-21 Sept 78"));
19     skip(1);
20 #endif /* __HISTORICAL__ */
21 }
22
23 void freeze(bool boss)
24 /* save game */
25 {
26     FILE *fp;
27     int key;
28     if (boss) {
29         strcpy(citem, "emsave.trk");
30     }
31     else {
32         if ((key = scan()) == IHEOL) {
33             proutn(_("File name: "));
34             key = scan();
35         }
36         if (key != IHALPHA) {
37             huh();
38             return;
39         }
40         chew();
41         if (strchr(citem, '.') == NULL) {
42             strcat(citem, ".trk");
43         }
44     }
45     if ((fp = fopen(citem, "wb")) == NULL) {
46         proutn(_("Can't freeze game as file "));
47         proutn(citem);
48         skip(1);
49         return;
50     }
51     strcpy(game.magic, SSTMAGIC);
52     fwrite(&game, sizeof(game), 1, fp);
53
54     fclose(fp);
55 }
56
57
58 bool thaw(void) 
59 /* retrieve saved game */
60 {
61     FILE *fp;
62     int key;
63
64     game.passwd[0] = '\0';
65     if ((key = scan()) == IHEOL) {
66         proutn(_("File name: "));
67         key = scan();
68     }
69     if (key != IHALPHA) {
70         huh();
71         return true;
72     }
73     chew();
74     if (strchr(citem, '.') == NULL) {
75         strcat(citem, ".trk");
76     }
77     if ((fp = fopen(citem, "rb")) == NULL) {
78         proutn(_("Can't find game file "));
79         proutn(citem);
80         skip(1);
81         return 1;
82     }
83     fread(&game, sizeof(game), 1, fp);
84     if (feof(fp) || ftell(fp) != filelength(fileno(fp)) || strcmp(game.magic, SSTMAGIC)) {
85         proutn(_("Game file format is bad, should begin with "));
86         prout(SSTMAGIC);
87         skip(1);
88         fclose(fp);
89         return 1;
90     }
91
92     fclose(fp);
93
94     return false;
95 }
96
97 #define SYSTEM_NAMES \
98     { \
99         /* \
100          * I used <http://www.memory-alpha.org> to find planets \
101          * with references in ST:TOS.  Eath and the Alpha Centauri \
102          * Colony have been omitted. \
103          * \
104          * Some planets marked Class G and P here will be displayed as class M \
105          * because of the way planets are generated. This is a known bug. \
106          */ \
107         "ERROR", \
108         /* Federation Worlds */ \
109         _("Andoria (Fesoan)"),  /* several episodes */ \
110         _("Tellar Prime (Miracht)"),    /* TOS: "Journey to Babel" */ \
111         _("Vulcan (T'Khasi)"),  /* many episodes */ \
112         _("Medusa"),            /* TOS: "Is There in Truth No Beauty?" */ \
113         _("Argelius II (Nelphia)"),/* TOS: "Wolf in the Fold" ("IV" in BSD) */ \
114         _("Ardana"),            /* TOS: "The Cloud Minders" */ \
115         _("Catulla (Cendo-Prae)"),      /* TOS: "The Way to Eden" */ \
116         _("Gideon"),            /* TOS: "The Mark of Gideon" */ \
117         _("Aldebaran III"),     /* TOS: "The Deadly Years" */ \
118         _("Alpha Majoris I"),   /* TOS: "Wolf in the Fold" */ \
119         _("Altair IV"),         /* TOS: "Amok Time */ \
120         _("Ariannus"),          /* TOS: "Let That Be Your Last Battlefield" */ \
121         _("Benecia"),           /* TOS: "The Conscience of the King" */ \
122         _("Beta Niobe I (Sarpeidon)"),  /* TOS: "All Our Yesterdays" */ \
123         _("Alpha Carinae II"),  /* TOS: "The Ultimate Computer" */ \
124         _("Capella IV (Kohath)"),       /* TOS: "Friday's Child" (Class G) */ \
125         _("Daran V"),           /* TOS: "For the World is Hollow and I Have Touched the Sky" */ \
126         _("Deneb II"),          /* TOS: "Wolf in the Fold" ("IV" in BSD) */ \
127         _("Eminiar VII"),               /* TOS: "A Taste of Armageddon" */ \
128         _("Gamma Canaris IV"),  /* TOS: "Metamorphosis" */ \
129         _("Gamma Tranguli VI (Vaalel)"),        /* TOS: "The Apple" */ \
130         _("Ingraham B"),                /* TOS: "Operation: Annihilate" */ \
131         _("Janus IV"),          /* TOS: "The Devil in the Dark" */ \
132         _("Makus III"),         /* TOS: "The Galileo Seven" */ \
133         _("Marcos XII"),                /* TOS: "And the Children Shall Lead", */ \
134         _("Omega IV"),          /* TOS: "The Omega Glory" */ \
135         _("Regulus V"),         /* TOS: "Amok Time */ \
136         _("Deneva"),            /* TOS: "Operation -- Annihilate!" */ \
137         /* Worlds from BSD Trek */ \
138         _("Rigel II"),          /* TOS: "Shore Leave" ("III" in BSD) */ \
139         _("Beta III"),          /* TOS: "The Return of the Archons" */ \
140         _("Triacus"),           /* TOS: "And the Children Shall Lead", */ \
141         _("Exo III"),           /* TOS: "What Are Little Girls Made Of?" (Class P) */ \
142     }
143 #if 0   /* Others */
144         _("Hansen's Planet"),   /* TOS: "The Galileo Seven" */
145         _("Taurus IV"),         /* TOS: "The Galileo Seven" (class G) */
146         _("Antos IV (Doraphane)"),      /* TOS: "Whom Gods Destroy", "Who Mourns for Adonais?" */
147         _("Izar"),                      /* TOS: "Whom Gods Destroy" */
148         _("Tiburon"),           /* TOS: "The Way to Eden" */
149         _("Merak II"),          /* TOS: "The Cloud Minders" */
150         _("Coridan (Desotriana)"),      /* TOS: "Journey to Babel" */
151         _("Iotia"),             /* TOS: "A Piece of the Action" */
152 #endif
153
154 #define DEVICE_NAMES \
155     { \
156         _("S. R. Sensors"), \
157         _("L. R. Sensors"), \
158         _("Phasers"), \
159         _("Photon Tubes"), \
160         _("Life Support"), \
161         _("Warp Engines"), \
162         _("Impulse Engines"), \
163         _("Shields"), \
164         _("Subspace Radio"), \
165         _("Shuttle Craft"), \
166         _("Computer"), \
167         _("Navigation System"), \
168         _("Transporter"), \
169         _("Shield Control"), \
170         _("Death Ray"), \
171         _("D. S. Probe") \
172     }
173
174 static void setup_names(void)
175 /* Sets up some arrays with localized names.
176  * Must be done after iostart() for localization to work. */
177 {
178     char *tmp1[ARRAY_SIZE(systnames)] = SYSTEM_NAMES;
179     char *tmp2[ARRAY_SIZE(device)] = DEVICE_NAMES;
180
181     memcpy(systnames, tmp1, sizeof(systnames));
182     memcpy(device, tmp2, sizeof(device));
183 }
184         
185 void setup(bool needprompt) 
186 /* prepare to play, set up cosmos */
187 {
188     int i,j, krem, klumper;
189     coord w;
190
191     /* call the setup hooks here */
192     setup_names();
193
194     //  Decide how many of everything
195     if (choose(needprompt)) return; // frozen game
196     // Prepare the Enterprise
197     game.alldone = game.gamewon = false;
198     game.ship = IHE;
199     game.state.crew = FULLCREW;
200     game.energy = game.inenrg = 5000.0;
201     game.shield = game.inshld = 2500.0;
202     game.shldchg = false;
203     game.shldup = false;
204     game.inlsr = 4.0;
205     game.lsupres = 4.0;
206     game.quadrant = randplace(GALSIZE);
207     game.sector = randplace(QUADSIZE);
208     game.torps = game.intorps = 10;
209     game.nprobes = (int)(3.0*Rand() + 2.0);     /* Give them 2-4 of these wonders */
210     game.warpfac = 5.0;
211     game.wfacsq = game.warpfac * game.warpfac;
212     for (i=0; i < NDEVICES; i++) 
213         game.damage[i] = 0.0;
214     // Set up assorted game parameters
215     invalidate(game.battle);
216     game.state.date = game.indate = 100.0*(int)(31.0*Rand()+20.0);
217     game.nkinks = game.nhelp = game.casual = game.abandoned = 0;
218     game.iscate = game.resting = game.imine = game.icrystl = game.icraft = false;
219     game.isatb = game.state.nplankl = 0;
220     game.state.starkl = game.state.basekl = 0;
221     game.iscraft = onship;
222     game.landed = false;
223     game.alive = true;
224     game.docfac = 0.25;
225     for_quadrants(i)
226         for_quadrants(j) {
227         struct quadrant *quad = &game.state.galaxy[i][j];
228             quad->charted = 0;
229             quad->planet = NOPLANET;
230             quad->romulans = 0;
231             quad->klingons = 0;
232             quad->starbase = false;
233             quad->supernova = false;
234             quad->status = secure;
235         }
236     // Initialize times for extraneous events
237     schedule(FSNOVA, expran(0.5 * game.intime));
238     schedule(FTBEAM, expran(1.5 * (game.intime / game.state.remcom)));
239     schedule(FSNAP, 1.0 + Rand()); // Force an early snapshot
240     schedule(FBATTAK, expran(0.3*game.intime));
241     unschedule(FCDBAS);
242     if (game.state.nscrem)
243         schedule(FSCMOVE, 0.2777);
244     else
245         unschedule(FSCMOVE);
246     unschedule(FSCDBAS);
247     unschedule(FDSPROB);
248     if ((game.options & OPTION_WORLDS) && game.skill >= SKILL_GOOD)
249         schedule(FDISTR, expran(1.0 + game.intime));
250     else
251         unschedule(FDISTR);
252     unschedule(FENSLV);
253     unschedule(FREPRO);
254     // Starchart is functional but we've never seen it
255     game.lastchart = FOREVER;
256     // Put stars in the galaxy
257     game.instar = 0;
258     for_quadrants(i)
259         for_quadrants(j) {
260             int k = Rand()*9.0 + 1.0;
261             game.instar += k;
262             game.state.galaxy[i][j].stars = k;
263         }
264     // Locate star bases in galaxy
265     for (i = 1; i <= game.inbase; i++) {
266         bool contflag;
267         do {
268             do w = randplace(GALSIZE);
269             while (game.state.galaxy[w.x][w.y].starbase);
270             contflag = false;
271             for (j = i-1; j > 0; j--) {
272                 /* Improved placement algorithm to spread out bases */
273                 double distq = square(w.x-game.state.baseq[j].x) + square(w.y-game.state.baseq[j].y);
274                 if (distq < 6.0*(BASEMAX+1-game.inbase) && Rand() < 0.75) {
275                     contflag = true;
276                     if (idebug)
277                         prout("=== Abandoning base #%d at %d-%d", i, w.x, w.y);
278                     break;
279                 }
280                 else if (distq < 6.0 * (BASEMAX+1-game.inbase)) {
281                     if (idebug)
282                         prout("=== Saving base #%d, close to #%d", i, j);
283                 }
284             }
285         } while (contflag);
286                         
287         game.state.baseq[i] = w;
288         game.state.galaxy[w.x][w.y].starbase = true;
289         game.state.chart[w.x][w.y].starbase = true;
290     }
291     // Position ordinary Klingon Battle Cruisers
292     krem = game.inkling;
293     klumper = 0.25*game.skill*(9.0-game.length)+1.0;
294     if (klumper > MAXKLQUAD) 
295         klumper = MAXKLQUAD;
296     do {
297         double r = Rand();
298         int klump = (1.0 - r*r)*klumper;
299         if (klump > krem)
300             klump = krem;
301         krem -= klump;
302         do w = randplace(GALSIZE);
303         while (game.state.galaxy[w.x][w.y].supernova ||
304                 game.state.galaxy[w.x][w.y].klingons + klump > 9);
305         game.state.galaxy[w.x][w.y].klingons += klump;
306     } while (krem > 0);
307     // Position Klingon Commander Ships
308 #ifdef ODEBUG
309     klumper = 1;
310 #endif /* ODEBUG */
311     for (i = 1; i <= game.incom; i++) {
312         do {
313             do { /* IF debugging, put commanders by bases, always! */
314 #ifdef ODEBUG
315                 if (game.idebug && klumper <= game.inbase) {
316                     w = game.state.baseq[klumper];
317                     klumper++;
318                 }
319                 else
320 #endif /* ODEBUG */
321                     w = randplace(GALSIZE);
322             }
323             while ((!game.state.galaxy[w.x][w.y].klingons && Rand() < 0.75)||
324                    game.state.galaxy[w.x][w.y].supernova||
325                    game.state.galaxy[w.x][w.y].klingons > 8);
326             // check for duplicate
327             for (j = 1; j < i; j++)
328                 if (same(game.state.kcmdr[j], w))
329                     break;
330         } while (j < i);
331         game.state.galaxy[w.x][w.y].klingons++;
332         game.state.kcmdr[i] = w;
333     }
334     // Locate planets in galaxy
335     for (i = 0; i < game.inplan; i++) {
336         do w = randplace(GALSIZE); 
337         while (game.state.galaxy[w.x][w.y].planet != NOPLANET);
338         game.state.planets[i].w = w;
339         if (i < NINHAB) {
340             game.state.planets[i].pclass = M;   // All inhabited planets are class M
341             game.state.planets[i].crystals = absent;
342             game.state.planets[i].known = known;
343             game.state.planets[i].inhabited = i;
344         } else {
345             game.state.planets[i].pclass = Rand()*3.0; // Planet class M N or O
346             game.state.planets[i].crystals = Rand()*1.5;                // 1 in 3 chance of crystals
347             game.state.planets[i].known = unknown;
348             game.state.planets[i].inhabited = UNINHABITED;
349         }
350         if ((game.options & OPTION_WORLDS) || i >= NINHAB)
351             game.state.galaxy[w.x][w.y].planet = i;
352     }
353     // Locate Romulans
354     for (i = 1; i <= game.state.nromrem; i++) {
355         w = randplace(GALSIZE);
356         game.state.galaxy[w.x][w.y].romulans = 1;
357     }
358     // Locate the Super Commander
359     if (game.state.nscrem > 0) {
360         do w = randplace(GALSIZE);
361         while (game.state.galaxy[w.x][w.y].supernova || game.state.galaxy[w.x][w.y].klingons > 8);
362         game.state.kscmdr = w;
363         game.state.galaxy[w.x][w.y].klingons++;
364     }
365     // Place thing (in tournament game, thingx == -1, don't want one!)
366     if (thing.x != -1) {
367         thing = randplace(GALSIZE);
368     }
369     else
370         invalidate(thing);
371
372     skip(2);
373     game.state.snap = false;
374                 
375     if (game.skill == SKILL_NOVICE) {
376         prout(_("It is stardate %d. The Federation is being attacked by"),
377               (int)game.state.date);
378         prout(_("a deadly Klingon invasion force. As captain of the United"));
379         prout(_("Starship U.S.S. Enterprise, it is your mission to seek out"));
380         prout(_("and destroy this invasion force of %d battle cruisers."),
381               INKLINGTOT);
382         prout(_("You have an initial allotment of %d stardates to complete"), (int)game.intime);
383         prout(_("your mission.  As you proceed you may be given more time."));
384         skip(1);
385         prout(_("You will have %d supporting starbases."), game.inbase);
386         proutn(_("Starbase locations-  "));
387     }
388     else {
389         prout(_("Stardate %d."), (int)game.state.date);
390         skip(1);
391         prout(_("%d Klingons."), INKLINGTOT);
392         prout(_("An unknown number of Romulans."));
393         if (game.state.nscrem)
394             prout(_("And one (GULP) Super-Commander."));
395         prout(_("%d stardates."),(int)game.intime);
396         proutn(_("%d starbases in "), game.inbase);
397     }
398     for (i = 1; i <= game.inbase; i++) {
399         proutn(cramlc(0, game.state.baseq[i]));
400         proutn("  ");
401     }
402     skip(2);
403     proutn(_("The Enterprise is currently in "));
404     proutn(cramlc(quadrant, game.quadrant));
405     proutn(" ");
406     proutn(cramlc(sector, game.sector));
407     skip(2);
408     prout(_("Good Luck!"));
409     if (game.state.nscrem)
410         prout(_("  YOU'LL NEED IT."));
411     waitfor();
412     newqad(false);
413     if (game.nenhere-iqhere-game.ithere)
414         game.shldup = true;
415     if (game.neutz)     // bad luck to start in a Romulan Neutral Zone
416         attack(false);
417 }
418
419 bool choose(bool needprompt) 
420 /* choose your game type */
421 {
422     for(;;) {
423         game.tourn = 0;
424         game.thawed = false;
425         game.skill = SKILL_NONE;
426         game.length = 0;
427         if (needprompt) /* Can start with command line options */
428             proutn(_("Would you like a regular, tournament, or saved game? "));
429         scan();
430         if (strlen(citem)==0) continue; // Try again
431         if (isit("tournament")) {
432             while (scan() == IHEOL) {
433                 proutn(_("Type in tournament number-"));
434             }
435             if (aaitem == 0) {
436                 chew();
437                 continue; // We don't want a blank entry
438             }
439             game.tourn = (int)aaitem;
440             thing.x = -1;
441             srand((unsigned int)(int)aaitem);
442             break;
443         }
444         if (isit("saved") || isit("frozen")) {
445             if (thaw())
446                 continue;
447             chew();
448             if (*game.passwd==0)
449                 continue;
450             if (!game.alldone)
451                 game.thawed = true; // No plaque if not finished
452             report();
453             waitfor();
454             return true;
455         }
456         if (isit("regular"))
457             break;
458         proutn(_("What is \""));
459         proutn(citem);
460         prout("\"?");
461         chew();
462     }
463     while (game.length==0 || game.skill==SKILL_NONE) {
464         if (scan() == IHALPHA) {
465             if (isit("short"))
466                 game.length = 1;
467             else if (isit("medium"))
468                 game.length = 2;
469             else if (isit("long"))
470                 game.length = 4;
471             else if (isit("novice"))
472                 game.skill = SKILL_NOVICE;
473             else if (isit("fair"))
474                 game.skill = SKILL_FAIR;
475             else if (isit("good"))
476                 game.skill = SKILL_GOOD;
477             else if (isit("expert"))
478                 game.skill = SKILL_EXPERT;
479             else if (isit("emeritus"))
480                 game.skill = SKILL_EMERITUS;
481             else {
482                 proutn(_("What is \""));
483                 proutn(citem);
484                 prout("\"?");
485             }
486         }
487         else {
488             chew();
489             if (game.length==0)
490                 proutn(_("Would you like a Short, Medium, or Long game? "));
491             else if (game.skill == SKILL_NONE)
492                 proutn(_("Are you a Novice, Fair, Good, Expert, or Emeritus player? "));
493         }
494     }
495     // Choose game options -- added by ESR for SST2K
496     if (scan() != IHALPHA) {
497         chew();
498         proutn(_("Choose your game style (or just press enter): "));
499         scan();
500     }
501     if (isit("plain")) {
502         // Approximates the UT FORTRAN version.
503         game.options &=~ (OPTION_THOLIAN | OPTION_PLANETS | OPTION_THINGY | OPTION_PROBE | OPTION_RAMMING | OPTION_MVBADDY | OPTION_BLKHOLE | OPTION_BASE | OPTION_WORLDS);
504         game.options |= OPTION_PLAIN;
505     } 
506     else if (isit("almy")) {
507         // Approximates Tom Almy's version.
508         game.options &=~ (OPTION_THINGY | OPTION_BLKHOLE | OPTION_BASE | OPTION_WORLDS);
509         game.options |= OPTION_ALMY;
510     }
511     else if (isit("fancy"))
512         /* do nothing */;
513     else if (strlen(citem)) {
514             proutn(_("What is \""));
515             proutn(citem);
516             prout("\"?");
517     }
518     setpassword();
519     if (strcmp(game.passwd, "debug")==0) {
520         idebug = true;
521         fputs("=== Debug mode enabled\n", stdout);
522     }
523
524     // Use parameters to generate initial values of things
525     game.damfac = 0.5 * game.skill;
526     game.state.rembase = 2.0 + Rand()*(BASEMAX-2.0);
527     game.inbase = game.state.rembase;
528     if (game.options & OPTION_PLANETS)
529         game.inplan = NINHAB + (MAXUNINHAB/2) + (MAXUNINHAB/2+1)*Rand();
530     game.state.nromrem = game.inrom = (2.0+Rand())*game.skill;
531     game.state.nscrem = game.inscom = (game.skill > SKILL_FAIR ? 1 : 0);
532     game.state.remtime = 7.0 * game.length;
533     game.intime = game.state.remtime;
534     game.state.remkl = game.inkling = 2.0*game.intime*((game.skill+1 - 2*Rand())*game.skill*0.1+.15);
535     game.incom = game.skill + 0.0625*game.inkling*Rand();
536     game.state.remcom = min(10, game.incom);
537     game.incom = game.state.remcom;
538     game.state.remres = (game.inkling+4*game.incom)*game.intime;
539     game.inresor = game.state.remres;
540     if (game.inkling > 50) {
541         game.inbase = (game.state.rembase += 1);
542     }
543     return false;
544 }
545
546 coord dropin(feature iquad)
547 /* drop a feature on a random dot in the current quadrant */
548 {
549     coord w;
550     do w = randplace(QUADSIZE);
551     while (game.quad[w.x][w.y] != IHDOT);
552     game.quad[w.x][w.y] = iquad;
553     return w;
554 }
555
556 void newcnd(void)
557 /* update our alert status */
558 {
559     game.condition = green;
560     if (game.energy < 1000.0)
561         game.condition = yellow;
562     if (game.state.galaxy[game.quadrant.x][game.quadrant.y].klingons || game.state.galaxy[game.quadrant.x][game.quadrant.y].romulans)
563         game.condition = red;
564     if (!game.alive)
565         game.condition=dead;
566 }
567
568 coord newkling(int i)
569 /* drop new Klingon into current quadrant */
570 {
571     coord pi = dropin(IHK);
572     game.ks[i] = pi;
573     game.kdist[i] = game.kavgd[i] = distance(game.sector, pi);
574     game.kpower[i] = Rand()*150.0 +300.0 +25.0*game.skill;
575     return pi;
576 }
577
578 void newqad(bool shutup)
579 /* set up a new state of quadrant, for when we enter or re-enter it */
580 {
581     int i, j;
582     coord w;
583     struct quadrant *q;
584
585     game.justin = true;
586     invalidate(game.base);
587     game.klhere = 0;
588     game.comhere = false;
589     invalidate(game.plnet);
590     game.ishere = false;
591     game.irhere = 0;
592     game.iplnet = 0;
593     game.nenhere = 0;
594     game.neutz = false;
595     game.inorbit = false;
596     game.landed = false;
597     game.ientesc = false;
598     game.ithere = false;
599     iqhere = false;
600     iqengry = false;
601     game.iseenit = false;
602     if (game.iscate) {
603         // Attempt to escape Super-commander, so tbeam back!
604         game.iscate = false;
605         game.ientesc = true;
606     }
607     // Clear quadrant
608     for_sectors(i)
609         for_sectors(j) 
610             game.quad[i][j] = IHDOT;
611     q = &game.state.galaxy[game.quadrant.x][game.quadrant.y];
612     // cope with supernova
613     if (q->supernova)
614         return;
615     game.klhere = q->klingons;
616     game.irhere = q->romulans;
617     game.nenhere = game.klhere + game.irhere;
618
619     // Position Starship
620     game.quad[game.sector.x][game.sector.y] = game.ship;
621
622     if (q->klingons) {
623         w.x = w.y = 0;  /* quiet a gcc warning */
624         // Position ordinary Klingons
625         for (i = 1; i <= game.klhere; i++)
626             w = newkling(i);
627         // If we need a commander, promote a Klingon
628         for_commanders(i)
629             if (same(game.state.kcmdr[i], game.quadrant))
630                 break;
631                         
632         if (i <= game.state.remcom) {
633             game.quad[w.x][w.y] = IHC;
634             game.kpower[game.klhere] = 950.0+400.0*Rand()+50.0*game.skill;
635             game.comhere = true;
636         }
637
638         // If we need a super-commander, promote a Klingon
639         if (same(game.quadrant, game.state.kscmdr)) {
640             game.quad[game.ks[1].x][game.ks[1].y] = IHS;
641             game.kpower[1] = 1175.0 + 400.0*Rand() + 125.0*game.skill;
642             game.iscate = (game.state.remkl > 1);
643             game.ishere = true;
644         }
645     }
646     // Put in Romulans if needed
647     for (i = game.klhere+1; i <= game.nenhere; i++) {
648         w = dropin(IHR);
649         game.ks[i] = w;
650         game.kdist[i] = game.kavgd[i] = distance(game.sector, w);
651         game.kpower[i] = Rand()*400.0 + 450.0 + 50.0*game.skill;
652     }
653     // If quadrant needs a starbase, put it in
654     if (q->starbase)
655         game.base = dropin(IHB);
656         
657     // If quadrant needs a planet, put it in
658     if (q->planet != NOPLANET) {
659         game.iplnet = q->planet;
660         if (game.state.planets[q->planet].inhabited == UNINHABITED)
661             game.plnet = dropin(IHP);
662         else
663             game.plnet = dropin(IHW);
664     }
665     // Check for condition
666     newcnd();
667     // And finally the stars
668     for (i = 1; i <= q->stars; i++) 
669         dropin(IHSTAR);
670
671     // Check for RNZ
672     if (game.irhere > 0 && game.klhere == 0 && (q->planet == NOPLANET || game.state.planets[q->planet].inhabited == UNINHABITED)) {
673         game.neutz = true;
674         if (!damaged(DRADIO)) {
675             skip(1);
676             prout(_("LT. Uhura- \"Captain, an urgent message."));
677             prout(_("  I'll put it on audio.\"  CLICK"));
678             skip(1);
679             prout(_("INTRUDER! YOU HAVE VIOLATED THE ROMULAN NEUTRAL ZONE."));
680             prout(_("LEAVE AT ONCE, OR YOU WILL BE DESTROYED!"));
681         }
682     }
683
684     if (shutup==0) {
685         // Put in THING if needed
686         if (same(thing, game.quadrant)) {
687             w = dropin(IHQUEST);
688             thing = randplace(GALSIZE);
689             game.nenhere++;
690             iqhere = true;
691             game.ks[game.nenhere] = w;
692             game.kdist[game.nenhere] = game.kavgd[game.nenhere] =
693                 distance(game.sector, w);
694             game.kpower[game.nenhere] = Rand()*6000.0 +500.0 +250.0*game.skill;
695             if (!damaged(DSRSENS)) {
696                 skip(1);
697                 prout(_("Mr. Spock- \"Captain, this is most unusual."));
698                 prout(_("    Please examine your short-range scan.\""));
699             }
700         }
701     }
702
703     // Decide if quadrant needs a Tholian
704     if (game.options & OPTION_THOLIAN) {
705         if ((game.skill < SKILL_GOOD && Rand() <= 0.02) ||   /* Lighten up if skill is low */
706             (game.skill == SKILL_GOOD && Rand() <= 0.05) ||
707             (game.skill > SKILL_GOOD && Rand() <= 0.08)
708             ) {
709             do {
710                 game.tholian.x = Rand() > 0.5 ? QUADSIZE : 1;
711                 game.tholian.y = Rand() > 0.5 ? QUADSIZE : 1;
712             } while (game.quad[game.tholian.x][game.tholian.y] != IHDOT);
713             game.quad[game.tholian.x][game.tholian.y] = IHT;
714             game.ithere = true;
715             game.nenhere++;
716             game.ks[game.nenhere] = game.tholian;
717             game.kdist[game.nenhere] = game.kavgd[game.nenhere] =
718                 distance(game.sector, game.tholian);
719             game.kpower[game.nenhere] = Rand()*400.0 +100.0 +25.0*game.skill;
720             /* Reserve unocupied corners */
721             if (game.quad[1][1]==IHDOT)
722                 game.quad[1][1] = 'X';
723             if (game.quad[1][QUADSIZE]==IHDOT)
724                 game.quad[1][QUADSIZE] = 'X';
725             if (game.quad[QUADSIZE][1]==IHDOT)
726                 game.quad[QUADSIZE][1] = 'X';
727             if (game.quad[QUADSIZE][QUADSIZE]==IHDOT)
728                 game.quad[QUADSIZE][QUADSIZE] = 'X';
729         }
730     }
731
732     sortkl();
733
734     // Put in a few black holes
735     for (i = 1; i <= 3; i++)
736         if (Rand() > 0.5) 
737             dropin(IHBLANK);
738
739     // Take out X's in corners if Tholian present
740     if (game.ithere) {
741         if (game.quad[1][1]=='X')
742             game.quad[1][1] = IHDOT;
743         if (game.quad[1][QUADSIZE]=='X')
744             game.quad[1][QUADSIZE] = IHDOT;
745         if (game.quad[QUADSIZE][1]=='X')
746             game.quad[QUADSIZE][1] = IHDOT;
747         if (game.quad[QUADSIZE][QUADSIZE]=='X')
748             game.quad[QUADSIZE][QUADSIZE] = IHDOT;
749     }           
750 }
751
752 void sortkl(void) 
753 /* sort Klingons by distance from us */
754 {
755     double t;
756     int j, k;
757     bool sw;
758
759     // The author liked bubble sort. So we will use it. :-(
760
761     if (game.nenhere-iqhere-game.ithere < 2)
762         return;
763
764     do {
765         sw = false;
766         for (j = 1; j < game.nenhere; j++)
767             if (game.kdist[j] > game.kdist[j+1]) {
768                 sw = true;
769                 t = game.kdist[j];
770                 game.kdist[j] = game.kdist[j+1];
771                 game.kdist[j+1] = t;
772                 t = game.kavgd[j];
773                 game.kavgd[j] = game.kavgd[j+1];
774                 game.kavgd[j+1] = t;
775                 k = game.ks[j].x;
776                 game.ks[j].x = game.ks[j+1].x;
777                 game.ks[j+1].x = k;
778                 k = game.ks[j].y;
779                 game.ks[j].y = game.ks[j+1].y;
780                 game.ks[j+1].y = k;
781                 t = game.kpower[j];
782                 game.kpower[j] = game.kpower[j+1];
783                 game.kpower[j+1] = t;
784             }
785     } while (sw);
786 }
787
788 void setpassword(void)
789 /* set the self-destruct password */
790 {
791     if (game.options & OPTION_PLAIN) {
792         while (TRUE) {
793             chew();
794             proutn(_("Please type in a secret password- "));
795             scan();
796             strcpy(game.passwd, citem);
797             if (*game.passwd != 0)
798                 break;
799         }
800     } else {
801         int i;
802         for(i=0;i<3;i++)
803             game.passwd[i]=(char)(97+(int)(Rand()*25));
804         game.passwd[3]=0;
805     }
806 }