|
|
| (One intermediate revision by one other user not shown) |
| Line 1: |
Line 1: |
| − | Below is the full text to '''shknam.c''' from the [[NetHack 1.4f source code|source code]] of [[NetHack 1.4f]]. To link to a particular line, write [[NetHack 1.4f/shknam.c#line123|<nowiki>[[NetHack 1.4f/shknam.c#line123]]</nowiki>]], for example.
| + | The source code file '''shknam.c''' in [[NetHack 1.4f source code|NetHack 1.4f]] is unchanged from [[NetHack 1.3d/shknam.c]]. |
| − | | + | [[Category:NetHack 1.4f source code]] |
| − | '''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
| |
| − | | |
| − | {{CWI}}
| |
| − | <span id="line1">1. /* SCCS Id: @(#)shknam.c 1.3 87/07/14</span>
| |
| − | <span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span>
| |
| − | <span id="line3">3. /* shknam.c - version 1.0.2 */</span>
| |
| − | <span id="line4">4. </span>
| |
| − | <span id="line5">5. #include "hack.h"</span>
| |
| − | <span id="line6">6. </span>
| |
| − | <span id="line7">7. char *shkliquors[] = {</span>
| |
| − | <span id="line8">8. /* Ukraine */</span>
| |
| − | <span id="line9">9. "Njezjin", "Tsjernigof", "Gomel", "Ossipewsk", "Gorlowka",</span>
| |
| − | <span id="line10">10. /* N. Russia */</span>
| |
| − | <span id="line11">11. "Konosja", "Weliki Oestjoeg", "Syktywkar", "Sablja",</span>
| |
| − | <span id="line12">12. "Narodnaja", "Kyzyl",</span>
| |
| − | <span id="line13">13. /* Silezie */</span>
| |
| − | <span id="line14">14. "Walbrzych", "Swidnica", "Klodzko", "Raciborz", "Gliwice",</span>
| |
| − | <span id="line15">15. "Brzeg", "Krnov", "Hradec Kralove",</span>
| |
| − | <span id="line16">16. /* Schweiz */</span>
| |
| − | <span id="line17">17. "Leuk", "Brig", "Brienz", "Thun", "Sarnen", "Burglen", "Elm",</span>
| |
| − | <span id="line18">18. "Flims", "Vals", "Schuls", "Zum Loch",</span>
| |
| − | <span id="line19">19. 0</span>
| |
| − | <span id="line20">20. };</span>
| |
| − | <span id="line21">21. </span>
| |
| − | <span id="line22">22. char *shkbooks[] = {</span>
| |
| − | <span id="line23">23. /* Eire */</span>
| |
| − | <span id="line24">24. "Skibbereen", "Kanturk", "Rath Luirc", "Ennistymon", "Lahinch",</span>
| |
| − | <span id="line25">25. "Loughrea", "Croagh", "Maumakeogh", "Ballyjamesduff",</span>
| |
| − | <span id="line26">26. "Kinnegad", "Lugnaquillia", "Enniscorthy", "Gweebarra",</span>
| |
| − | <span id="line27">27. "Kittamagh", "Nenagh", "Sneem", "Ballingeary", "Kilgarvan",</span>
| |
| − | <span id="line28">28. "Cahersiveen", "Glenbeigh", "Kilmihil", "Kiltamagh",</span>
| |
| − | <span id="line29">29. "Droichead Atha", "Inniscrone", "Clonegal", "Lisnaskea",</span>
| |
| − | <span id="line30">30. "Culdaff", "Dunfanaghy", "Inishbofin", "Kesh",</span>
| |
| − | <span id="line31">31. 0</span>
| |
| − | <span id="line32">32. };</span>
| |
| − | <span id="line33">33. </span>
| |
| − | <span id="line34">34. char *shkarmors[] = {</span>
| |
| − | <span id="line35">35. /* Turquie */</span>
| |
| − | <span id="line36">36. "Demirci", "Kalecik", "Boyabai", "Yildizeli", "Gaziantep",</span>
| |
| − | <span id="line37">37. "Siirt", "Akhalataki", "Tirebolu", "Aksaray", "Ermenak",</span>
| |
| − | <span id="line38">38. "Iskenderun", "Kadirli", "Siverek", "Pervari", "Malasgirt",</span>
| |
| − | <span id="line39">39. "Bayburt", "Ayancik", "Zonguldak", "Balya", "Tefenni",</span>
| |
| − | <span id="line40">40. "Artvin", "Kars", "Makharadze", "Malazgirt", "Midyat",</span>
| |
| − | <span id="line41">41. "Birecik", "Kirikkale", "Alaca", "Polatli", "Nallihan",</span>
| |
| − | <span id="line42">42. 0</span>
| |
| − | <span id="line43">43. };</span>
| |
| − | <span id="line44">44. </span>
| |
| − | <span id="line45">45. char *shkwands[] = {</span>
| |
| − | <span id="line46">46. /* Wales */</span>
| |
| − | <span id="line47">47. "Yr Wyddgrug", "Trallwng", "Mallwyd", "Pontarfynach",</span>
| |
| − | <span id="line48">48. "Rhaeader", "Llandrindod", "Llanfair-ym-muallt",</span>
| |
| − | <span id="line49">49. "Y-Fenni", "Measteg", "Rhydaman", "Beddgelert",</span>
| |
| − | <span id="line50">50. "Curig", "Llanrwst", "Llanerchymedd", "Caergybi",</span>
| |
| − | <span id="line51">51. /* Scotland */</span>
| |
| − | <span id="line52">52. "Nairn", "Turriff", "Inverurie", "Braemar", "Lochnagar",</span>
| |
| − | <span id="line53">53. "Kerloch", "Beinn a Ghlo", "Drumnadrochit", "Morven",</span>
| |
| − | <span id="line54">54. "Uist", "Storr", "Sgurr na Ciche", "Cannich", "Gairloch",</span>
| |
| − | <span id="line55">55. "Kyleakin", "Dunvegan",</span>
| |
| − | <span id="line56">56. 0</span>
| |
| − | <span id="line57">57. };</span>
| |
| − | <span id="line58">58. </span>
| |
| − | <span id="line59">59. char *shkrings[] = {</span>
| |
| − | <span id="line60">60. /* Hollandse familienamen */</span>
| |
| − | <span id="line61">61. "Feyfer", "Flugi", "Gheel", "Havic", "Haynin", "Hoboken",</span>
| |
| − | <span id="line62">62. "Imbyze", "Juyn", "Kinsky", "Massis", "Matray", "Moy",</span>
| |
| − | <span id="line63">63. "Olycan", "Sadelin", "Svaving", "Tapper", "Terwen", "Wirix",</span>
| |
| − | <span id="line64">64. "Ypey",</span>
| |
| − | <span id="line65">65. /* Skandinaviske navne */</span>
| |
| − | <span id="line66">66. "Rastegaisa", "Varjag Njarga", "Kautekeino", "Abisko",</span>
| |
| − | <span id="line67">67. "Enontekis", "Rovaniemi", "Avasaksa", "Haparanda",</span>
| |
| − | <span id="line68">68. "Lulea", "Gellivare", "Oeloe", "Kajaani", "Fauske",</span>
| |
| − | <span id="line69">69. 0</span>
| |
| − | <span id="line70">70. };</span>
| |
| − | <span id="line71">71. </span>
| |
| − | <span id="line72">72. char *shkfoods[] = {</span>
| |
| − | <span id="line73">73. /* Indonesia */</span>
| |
| − | <span id="line74">74. "Djasinga", "Tjibarusa", "Tjiwidej", "Pengalengan",</span>
| |
| − | <span id="line75">75. "Bandjar", "Parbalingga", "Bojolali", "Sarangan",</span>
| |
| − | <span id="line76">76. "Ngebel", "Djombang", "Ardjawinangun", "Berbek",</span>
| |
| − | <span id="line77">77. "Papar", "Baliga", "Tjisolok", "Siboga", "Banjoewangi",</span>
| |
| − | <span id="line78">78. "Trenggalek", "Karangkobar", "Njalindoeng", "Pasawahan",</span>
| |
| − | <span id="line79">79. "Pameunpeuk", "Patjitan", "Kediri", "Pemboeang", "Tringanoe",</span>
| |
| − | <span id="line80">80. "Makin", "Tipor", "Semai", "Berhala", "Tegal", "Samoe",</span>
| |
| − | <span id="line81">81. 0</span>
| |
| − | <span id="line82">82. };</span>
| |
| − | <span id="line83">83. </span>
| |
| − | <span id="line84">84. char *shkweapons[] = {</span>
| |
| − | <span id="line85">85. /* Perigord */</span>
| |
| − | <span id="line86">86. "Voulgezac", "Rouffiac", "Lerignac", "Touverac", "Guizengeard",</span>
| |
| − | <span id="line87">87. "Melac", "Neuvicq", "Vanzac", "Picq", "Urignac", "Corignac",</span>
| |
| − | <span id="line88">88. "Fleac", "Lonzac", "Vergt", "Queyssac", "Liorac", "Echourgnac",</span>
| |
| − | <span id="line89">89. "Cazelon", "Eypau", "Carignan", "Monbazillac", "Jonzac",</span>
| |
| − | <span id="line90">90. "Pons", "Jumilhac", "Fenouilledes", "Laguiolet", "Saujon",</span>
| |
| − | <span id="line91">91. "Eymoutiers", "Eygurande", "Eauze", "Labouheyre",</span>
| |
| − | <span id="line92">92. 0</span>
| |
| − | <span id="line93">93. };</span>
| |
| − | <span id="line94">94. </span>
| |
| − | <span id="line95">95. char *shkgeneral[] = {</span>
| |
| − | <span id="line96">96. /* Suriname */</span>
| |
| − | <span id="line97">97. "Hebiwerie", "Possogroenoe", "Asidonhopo", "Manlobbi",</span>
| |
| − | <span id="line98">98. "Adjama", "Pakka Pakka", "Kabalebo", "Wonotobo",</span>
| |
| − | <span id="line99">99. "Akalapi", "Sipaliwini",</span>
| |
| − | <span id="line100">100. /* Greenland */</span>
| |
| − | <span id="line101">101. "Annootok", "Upernavik", "Angmagssalik",</span>
| |
| − | <span id="line102">102. /* N. Canada */</span>
| |
| − | <span id="line103">103. "Aklavik", "Inuvik", "Tuktoyaktuk",</span>
| |
| − | <span id="line104">104. "Chicoutimi", "Ouiatchouane", "Chibougamau",</span>
| |
| − | <span id="line105">105. "Matagami", "Kipawa", "Kinojevis",</span>
| |
| − | <span id="line106">106. "Abitibi", "Maganasipi",</span>
| |
| − | <span id="line107">107. /* Iceland */</span>
| |
| − | <span id="line108">108. "Akureyri", "Kopasker", "Budereyri", "Akranes", "Bordeyri",</span>
| |
| − | <span id="line109">109. "Holmavik",</span>
| |
| − | <span id="line110">110. 0</span>
| |
| − | <span id="line111">111. };</span>
| |
| − | <span id="line112">112. </span>
| |
| − | <span id="line113">113. struct shk_nx {</span>
| |
| − | <span id="line114">114. char x;</span>
| |
| − | <span id="line115">115. char **xn;</span>
| |
| − | <span id="line116">116. } shk_nx[] = {</span>
| |
| − | <span id="line117">117. { POTION_SYM, shkliquors },</span>
| |
| − | <span id="line118">118. { SCROLL_SYM, shkbooks },</span>
| |
| − | <span id="line119">119. { ARMOR_SYM, shkarmors },</span>
| |
| − | <span id="line120">120. { WAND_SYM, shkwands },</span>
| |
| − | <span id="line121">121. { RING_SYM, shkrings },</span>
| |
| − | <span id="line122">122. { FOOD_SYM, shkfoods },</span>
| |
| − | <span id="line123">123. { WEAPON_SYM, shkweapons },</span>
| |
| − | <span id="line124">124. { 0, shkgeneral }</span>
| |
| − | <span id="line125">125. };</span>
| |
| − | <span id="line126">126. </span>
| |
| − | <span id="line127">127. findname(nampt, let) char *nampt; char let; {</span>
| |
| − | <span id="line128">128. register struct shk_nx *p = shk_nx;</span>
| |
| − | <span id="line129">129. register char **q;</span>
| |
| − | <span id="line130">130. register int i;</span>
| |
| − | <span id="line131">131. while(p->x && p->x != let) p++;</span>
| |
| − | <span id="line132">132. q = p->xn;</span>
| |
| − | <span id="line133">133. for(i=0; i<dlevel; i++) if(!q[i]){</span>
| |
| − | <span id="line134">134. /* Not enough names, try general name */</span>
| |
| − | <span id="line135">135. if(let) findname(nampt, 0);</span>
| |
| − | <span id="line136">136. else (void) strcpy(nampt, "Dirk");</span>
| |
| − | <span id="line137">137. return;</span>
| |
| − | <span id="line138">138. }</span>
| |
| − | <span id="line139">139. (void) strncpy(nampt, q[i], PL_NSIZ);</span>
| |
| − | <span id="line140">140. nampt[PL_NSIZ-1] = 0;</span>
| |
| − | <span id="line141">141. }</span>
| |
| − | [[Category:NetHack 1.4f source code|shknam.c]] | |
