games/hack/hack.shknam.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* hack.shknam.c - version 1.0.2 */
   3 /* $FreeBSD: src/games/hack/hack.shknam.c,v 1.3 1999/11/16 02:57:11 billf Exp $ */
   4 /* $DragonFly: src/games/hack/hack.shknam.c,v 1.2 2003/06/17 04:25:24 dillon Exp $ */
   5
   6 #include "hack.h"
   7
   8 char *shkliquors[] = {
   9         /* Ukraine */
  10         "Njezjin", "Tsjernigof", "Gomel", "Ossipewsk", "Gorlowka",
  11         /* N. Russia */
  12         "Konosja", "Weliki Oestjoeg", "Syktywkar", "Sablja",
  13         "Narodnaja", "Kyzyl",
  14         /* Silezie */
  15         "Walbrzych", "Swidnica", "Klodzko", "Raciborz", "Gliwice",
  16         "Brzeg", "Krnov", "Hradec Kralove",
  17         /* Schweiz */
  18         "Leuk", "Brig", "Brienz", "Thun", "Sarnen", "Burglen", "Elm",
  19         "Flims", "Vals", "Schuls", "Zum Loch",
  20         0
  21 };
  22
  23 char *shkbooks[] = {
  24         /* Eire */
  25         "Skibbereen", "Kanturk", "Rath Luirc", "Ennistymon", "Lahinch",
  26         "Loughrea", "Croagh", "Maumakeogh", "Ballyjamesduff",
  27         "Kinnegad", "Lugnaquillia", "Enniscorthy", "Gweebarra",
  28         "Kittamagh", "Nenagh", "Sneem", "Ballingeary", "Kilgarvan",
  29         "Cahersiveen", "Glenbeigh", "Kilmihil", "Kiltamagh",
  30         "Droichead Atha", "Inniscrone", "Clonegal", "Lisnaskea",
  31         "Culdaff", "Dunfanaghy", "Inishbofin", "Kesh",
  32         0
  33 };
  34
  35 char *shkarmors[] = {
  36         /* Turquie */
  37         "Demirci", "Kalecik", "Boyabai", "Yildizeli", "Gaziantep",
  38         "Siirt", "Akhalataki", "Tirebolu", "Aksaray", "Ermenak",
  39         "Iskenderun", "Kadirli", "Siverek", "Pervari", "Malasgirt",
  40         "Bayburt", "Ayancik", "Zonguldak", "Balya", "Tefenni",
  41         "Artvin", "Kars", "Makharadze", "Malazgirt", "Midyat",
  42         "Birecik", "Kirikkale", "Alaca", "Polatli", "Nallihan",
  43         0
  44 };
  45
  46 char *shkwands[] = {
  47         /* Wales */
  48         "Yr Wyddgrug", "Trallwng", "Mallwyd", "Pontarfynach",
  49         "Rhaeader", "Llandrindod", "Llanfair-ym-muallt",
  50         "Y-Fenni", "Measteg", "Rhydaman", "Beddgelert",
  51         "Curig", "Llanrwst", "Llanerchymedd", "Caergybi",
  52         /* Scotland */
  53         "Nairn", "Turriff", "Inverurie", "Braemar", "Lochnagar",
  54         "Kerloch", "Beinn a Ghlo", "Drumnadrochit", "Morven",
  55         "Uist", "Storr", "Sgurr na Ciche", "Cannich", "Gairloch",
  56         "Kyleakin", "Dunvegan",
  57         0
  58 };
  59
  60 char *shkrings[] = {
  61         /* Hollandse familienamen */
  62         "Feyfer", "Flugi", "Gheel", "Havic", "Haynin", "Hoboken",
  63         "Imbyze", "Juyn", "Kinsky", "Massis", "Matray", "Moy",
  64         "Olycan", "Sadelin", "Svaving", "Tapper", "Terwen", "Wirix",
  65         "Ypey",
  66         /* Skandinaviske navne */
  67         "Rastegaisa", "Varjag Njarga", "Kautekeino", "Abisko",
  68         "Enontekis", "Rovaniemi", "Avasaksa", "Haparanda",
  69         "Lulea", "Gellivare", "Oeloe", "Kajaani", "Fauske",
  70         0
  71 };
  72
  73 char *shkfoods[] = {
  74         /* Indonesia */
  75         "Djasinga", "Tjibarusa", "Tjiwidej", "Pengalengan",
  76         "Bandjar", "Parbalingga", "Bojolali", "Sarangan",
  77         "Ngebel", "Djombang", "Ardjawinangun", "Berbek",
  78         "Papar", "Baliga", "Tjisolok", "Siboga", "Banjoewangi",
  79         "Trenggalek", "Karangkobar", "Njalindoeng", "Pasawahan",
  80         "Pameunpeuk", "Patjitan", "Kediri", "Pemboeang", "Tringanoe",
  81         "Makin", "Tipor", "Semai", "Berhala", "Tegal", "Samoe",
  82         0
  83 };
  84
  85 char *shkweapons[] = {
  86         /* Perigord */
  87         "Voulgezac", "Rouffiac", "Lerignac", "Touverac", "Guizengeard",
  88         "Melac", "Neuvicq", "Vanzac", "Picq", "Urignac", "Corignac",
  89         "Fleac", "Lonzac", "Vergt", "Queyssac", "Liorac", "Echourgnac",
  90         "Cazelon", "Eypau", "Carignan", "Monbazillac", "Jonzac",
  91         "Pons", "Jumilhac", "Fenouilledes", "Laguiolet", "Saujon",
  92         "Eymoutiers", "Eygurande", "Eauze", "Labouheyre",
  93         0
  94 };
  95
  96 char *shkgeneral[] = {
  97         /* Suriname */
  98         "Hebiwerie", "Possogroenoe", "Asidonhopo", "Manlobbi",
  99         "Adjama", "Pakka Pakka", "Kabalebo", "Wonotobo",
 100         "Akalapi", "Sipaliwini",
 101         /* Greenland */
 102         "Annootok", "Upernavik", "Angmagssalik",
 103         /* N. Canada */
 104         "Aklavik", "Inuvik", "Tuktoyaktuk",
 105         "Chicoutimi", "Ouiatchouane", "Chibougamau",
 106         "Matagami", "Kipawa", "Kinojevis",
 107         "Abitibi", "Maganasipi",
 108         /* Iceland */
 109         "Akureyri", "Kopasker", "Budereyri", "Akranes", "Bordeyri",
 110         "Holmavik",
 111         0
 112 };
 113
 114 struct shk_nx {
 115         char x;
 116         char **xn;
 117 } shk_nx[] = {
 118         { POTION_SYM,   shkliquors },
 119         { SCROLL_SYM,   shkbooks },
 120         { ARMOR_SYM,    shkarmors },
 121         { WAND_SYM,     shkwands },
 122         { RING_SYM,     shkrings },
 123         { FOOD_SYM,     shkfoods },
 124         { WEAPON_SYM,   shkweapons },
 125         { 0,            shkgeneral }
 126 };
 127
 128 findname(nampt, let) char *nampt; char let; {
 129 struct shk_nx *p = shk_nx;
 130 char **q;
 131 int i;
 132         while(p->x && p->x != let) p++;
 133         q = p->xn;
 134         for(i=0; i<dlevel; i++) if(!q[i]){
 135                 /* Not enough names, try general name */
 136                 if(let) findname(nampt, 0);
 137                 else (void) strcpy(nampt, "Dirk");
 138                 return;
 139         }
 140         (void) strncpy(nampt, q[i], PL_NSIZ);
 141         nampt[PL_NSIZ-1] = 0;
 142 }