finish(FTRIBBLE);
return;
}
-
-char *systemname(int pindx)
-/* return the name of a given solar system */
-{
- 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;
-}