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 } 143