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