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.4 2006/08/21 19:45:32 pavalos Exp $ */
8 static const char *shkliquors[] = {
10 "Njezjin", "Tsjernigof", "Gomel", "Ossipewsk", "Gorlowka",
12 "Konosja", "Weliki Oestjoeg", "Syktywkar", "Sablja",
15 "Walbrzych", "Swidnica", "Klodzko", "Raciborz", "Gliwice",
16 "Brzeg", "Krnov", "Hradec Kralove",
18 "Leuk", "Brig", "Brienz", "Thun", "Sarnen", "Burglen", "Elm",
19 "Flims", "Vals", "Schuls", "Zum Loch",
23 static const char *shkbooks[] = {
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",
35 static const char *shkarmors[] = {
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",
46 static const char *shkwands[] = {
48 "Yr Wyddgrug", "Trallwng", "Mallwyd", "Pontarfynach",
49 "Rhaeader", "Llandrindod", "Llanfair-ym-muallt",
50 "Y-Fenni", "Measteg", "Rhydaman", "Beddgelert",
51 "Curig", "Llanrwst", "Llanerchymedd", "Caergybi",
53 "Nairn", "Turriff", "Inverurie", "Braemar", "Lochnagar",
54 "Kerloch", "Beinn a Ghlo", "Drumnadrochit", "Morven",
55 "Uist", "Storr", "Sgurr na Ciche", "Cannich", "Gairloch",
56 "Kyleakin", "Dunvegan",
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",
66 /* Skandinaviske navne */
67 "Rastegaisa", "Varjag Njarga", "Kautekeino", "Abisko",
68 "Enontekis", "Rovaniemi", "Avasaksa", "Haparanda",
69 "Lulea", "Gellivare", "Oeloe", "Kajaani", "Fauske",
73 static const char *shkfoods[] = {
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",
85 static const char *shkweapons[] = {
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",
96 static const char *shkgeneral[] = {
98 "Hebiwerie", "Possogroenoe", "Asidonhopo", "Manlobbi",
99 "Adjama", "Pakka Pakka", "Kabalebo", "Wonotobo",
100 "Akalapi", "Sipaliwini",
102 "Annootok", "Upernavik", "Angmagssalik",
104 "Aklavik", "Inuvik", "Tuktoyaktuk",
105 "Chicoutimi", "Ouiatchouane", "Chibougamau",
106 "Matagami", "Kipawa", "Kinojevis",
107 "Abitibi", "Maganasipi",
109 "Akureyri", "Kopasker", "Budereyri", "Akranes", "Bordeyri",
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 },
129 findname(char *nampt, char let)
131 struct shk_nx *p = shk_nx;
135 while (p->x && p->x != let)
138 for (i = 0; i < dlevel; i++)
140 /* Not enough names, try general name */
144 strcpy(nampt, "Dirk");
147 strncpy(nampt, q[i], PL_NSIZ);
148 nampt[PL_NSIZ - 1] = 0;