usr/othersrc/games/hack/hack.shknam.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.shknam.c - version 1.0.2 */

#include "hack.h"

char *shkliquors[] = {
        /* Ukraine */
        "Njezjin", "Tsjernigof", "Gomel", "Ossipewsk", "Gorlowka",
        /* N. Russia */
        "Konosja", "Weliki Oestjoeg", "Syktywkar", "Sablja",
        "Narodnaja", "Kyzyl",
        /* Silezie */
        "Walbrzych", "Swidnica", "Klodzko", "Raciborz", "Gliwice",
        "Brzeg", "Krnov", "Hradec Kralove",
        /* Schweiz */
        "Leuk", "Brig", "Brienz", "Thun", "Sarnen", "Burglen", "Elm",
        "Flims", "Vals", "Schuls", "Zum Loch",
        0
};

char *shkbooks[] = {
        /* Eire */
        "Skibbereen", "Kanturk", "Rath Luirc", "Ennistymon", "Lahinch",
        "Loughrea", "Croagh", "Maumakeogh", "Ballyjamesduff",
        "Kinnegad", "Lugnaquillia", "Enniscorthy", "Gweebarra",
        "Kittamagh", "Nenagh", "Sneem", "Ballingeary", "Kilgarvan",
        "Cahersiveen", "Glenbeigh", "Kilmihil", "Kiltamagh",
        "Droichead Atha", "Inniscrone", "Clonegal", "Lisnaskea",
        "Culdaff", "Dunfanaghy", "Inishbofin", "Kesh",
        0
};

char *shkarmors[] = {
        /* Turquie */
        "Demirci", "Kalecik", "Boyabai", "Yildizeli", "Gaziantep",
        "Siirt", "Akhalataki", "Tirebolu", "Aksaray", "Ermenak",
        "Iskenderun", "Kadirli", "Siverek", "Pervari", "Malasgirt",
        "Bayburt", "Ayancik", "Zonguldak", "Balya", "Tefenni",
        "Artvin", "Kars", "Makharadze", "Malazgirt", "Midyat",
        "Birecik", "Kirikkale", "Alaca", "Polatli", "Nallihan",
        0
};

char *shkwands[] = {
        /* Wales */
        "Yr Wyddgrug", "Trallwng", "Mallwyd", "Pontarfynach",
        "Rhaeader", "Llandrindod", "Llanfair-ym-muallt",
        "Y-Fenni", "Measteg", "Rhydaman", "Beddgelert",
        "Curig", "Llanrwst", "Llanerchymedd", "Caergybi",
        /* Scotland */
        "Nairn", "Turriff", "Inverurie", "Braemar", "Lochnagar",
        "Kerloch", "Beinn a Ghlo", "Drumnadrochit", "Morven",
        "Uist", "Storr", "Sgurr na Ciche", "Cannich", "Gairloch",
        "Kyleakin", "Dunvegan",
        0
};

char *shkrings[] = {
        /* Hollandse familienamen */
        "Feyfer", "Flugi", "Gheel", "Havic", "Haynin", "Hoboken",
        "Imbyze", "Juyn", "Kinsky", "Massis", "Matray", "Moy",
        "Olycan", "Sadelin", "Svaving", "Tapper", "Terwen", "Wirix",
        "Ypey",
        /* Skandinaviske navne */
        "Rastegaisa", "Varjag Njarga", "Kautekeino", "Abisko",
        "Enontekis", "Rovaniemi", "Avasaksa", "Haparanda",
        "Lulea", "Gellivare", "Oeloe", "Kajaani", "Fauske",
        0
};

char *shkfoods[] = {
        /* Indonesia */
        "Djasinga", "Tjibarusa", "Tjiwidej", "Pengalengan",
        "Bandjar", "Parbalingga", "Bojolali", "Sarangan",
        "Ngebel", "Djombang", "Ardjawinangun", "Berbek",
        "Papar", "Baliga", "Tjisolok", "Siboga", "Banjoewangi",
        "Trenggalek", "Karangkobar", "Njalindoeng", "Pasawahan",
        "Pameunpeuk", "Patjitan", "Kediri", "Pemboeang", "Tringanoe",
        "Makin", "Tipor", "Semai", "Berhala", "Tegal", "Samoe",
        0
};

char *shkweapons[] = {
        /* Perigord */
        "Voulgezac", "Rouffiac", "Lerignac", "Touverac", "Guizengeard",
        "Melac", "Neuvicq", "Vanzac", "Picq", "Urignac", "Corignac",
        "Fleac", "Lonzac", "Vergt", "Queyssac", "Liorac", "Echourgnac",
        "Cazelon", "Eypau", "Carignan", "Monbazillac", "Jonzac",
        "Pons", "Jumilhac", "Fenouilledes", "Laguiolet", "Saujon",
        "Eymoutiers", "Eygurande", "Eauze", "Labouheyre",
        0
};

char *shkgeneral[] = {
        /* Suriname */
        "Hebiwerie", "Possogroenoe", "Asidonhopo", "Manlobbi",
        "Adjama", "Pakka Pakka", "Kabalebo", "Wonotobo",
        "Akalapi", "Sipaliwini",
        /* Greenland */
        "Annootok", "Upernavik", "Angmagssalik",
        /* N. Canada */
        "Aklavik", "Inuvik", "Tuktoyaktuk",
        "Chicoutimi", "Ouiatchouane", "Chibougamau",
        "Matagami", "Kipawa", "Kinojevis",
        "Abitibi", "Maganasipi",
        /* Iceland */
        "Akureyri", "Kopasker", "Budereyri", "Akranes", "Bordeyri",
        "Holmavik",
        0
};

struct shk_nx {
        char x;
        char **xn;
} shk_nx[] = {
        { POTION_SYM,   shkliquors },
        { SCROLL_SYM,   shkbooks },
        { ARMOR_SYM,    shkarmors },
        { WAND_SYM,     shkwands },
        { RING_SYM,     shkrings },
        { FOOD_SYM,     shkfoods },
        { WEAPON_SYM,   shkweapons },
        { 0,            shkgeneral }
};

findname(nampt, let) char *nampt; char let; {
register struct shk_nx *p = shk_nx;
register char **q;
register int i;
        while(p->x && p->x != let) p++;
        q = p->xn;
        for(i=0; i<dlevel; i++) if(!q[i]){
                /* Not enough names, try general name */
                if(let) findname(nampt, 0);
                else (void) strcpy(nampt, "Dirk");
                return;
        }
        (void) strncpy(nampt, q[i], PL_NSIZ);
        nampt[PL_NSIZ-1] = 0;
}