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.3 2005/05/22 03:37:05 y0netan1 Exp $ */ 5 6 #include "hack.h" 7 8 static const 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 static const 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 static const 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 static const 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 static const 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 static const 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 static const 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 static const 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 const 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 const 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 } 143