ab8b63434d
Use const. Add __noreturn__ attributes. Add a __format__ attribute. Add __unused__ attributes. Use symbolic constants for open() and lseek(). Declare types of all function parameters; convert some function definitions to ISO C form. Ensure standard file descriptors are open on startup. Check for errors writing output of makedefs. Avoid duplicate definitions of variables.
174 lines
4.7 KiB
C
174 lines
4.7 KiB
C
/* $NetBSD: hack.shknam.c,v 1.5 2001/03/25 20:44:03 jsm Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
__RCSID("$NetBSD: hack.shknam.c,v 1.5 2001/03/25 20:44:03 jsm Exp $");
|
|
#endif /* not lint */
|
|
|
|
#include "hack.h"
|
|
#include "extern.h"
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const char *const 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
|
|
};
|
|
|
|
const struct shk_nx {
|
|
char x;
|
|
const char *const *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
|
|
}
|
|
};
|
|
|
|
void
|
|
findname(nampt, let)
|
|
char *nampt;
|
|
char let;
|
|
{
|
|
const struct shk_nx *p = shk_nx;
|
|
const char *const *q;
|
|
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;
|
|
}
|