+
+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;
+}