Source:NetHack 1.3d/u init.c
Jump to navigation
Jump to search
Below is the full text to u_init.c from the source code of NetHack 1.3d. To link to a particular line, write [[NetHack 1.3d/u_init.c#line123]], for example.
Warning! This is the source code from an old release. For the latest release, see Source code
Screenshots and source code from Hack are used under the CWI license.
1. /* SCCS Id: @(#)u_init.c 1.3 87/07/14 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* u_init.c - version 1.0.3 */ 4. 5. #include <stdio.h> 6. #include <signal.h> 7. #include "hack.h" 8. #define Strcpy (void) strcpy 9. #define Strcat (void) strcat 10. #define UNDEF_TYP 0 11. #define UNDEF_SPE '\177' 12. extern struct obj *addinv(); 13. extern char *eos(); 14. extern char plname[]; 15. 16. struct you zerou; 17. char pl_character[PL_CSIZ]; 18. char *(roles[]) = { /* must all have distinct first letter */ 19. /* roles[4] & [7] may be changed for females */ 20. "Archeologist", "Tourist", "Fighter", "Knight", "Cave-man", 21. #ifdef NEWCLASS 22. "Samurai", "Ninja", "Priest", 23. #endif 24. #ifdef KAA 25. "Valkyrie", "Elf", "Healer", 26. #endif 27. "Wizard" 28. }; 29. #define NR_OF_ROLES SIZE(roles) 30. char rolesyms[NR_OF_ROLES + 1]; /* filled by u_init() */ 31. 32. struct trobj { 33. uchar trotyp; 34. schar trspe; 35. char trolet; 36. Bitfield(trquan,6); 37. Bitfield(trknown,1); 38. }; 39. 40. #ifdef WIZARD 41. struct trobj Extra_objs[] = { 42. { 0, 0, 0, 0, 0 }, 43. { 0, 0, 0, 0, 0 } 44. }; 45. #endif 46. 47. struct trobj Cave_man[] = { 48. #ifdef KAA 49. { CLUB, 1, WEAPON_SYM, 1, 1 }, 50. #else 51. { MACE, 1, WEAPON_SYM, 1, 1 }, 52. #endif 53. { BOW, 1, WEAPON_SYM, 1, 1 }, 54. { ARROW, 0, WEAPON_SYM, 25, 1 }, /* quan is variable */ 55. { LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1 }, 56. { 0, 0, 0, 0, 0} 57. }; 58. 59. struct trobj Fighter[] = { 60. { TWO_HANDED_SWORD, 0, WEAPON_SYM, 1, 1 }, 61. { RING_MAIL, 0, ARMOR_SYM, 1, 1 }, 62. { 0, 0, 0, 0, 0 } 63. }; 64. 65. struct trobj Knight[] = { 66. { LONG_SWORD, 0, WEAPON_SYM, 1, 1 }, 67. { SPEAR, 2, WEAPON_SYM, 1, 1 }, 68. { RING_MAIL, 1, ARMOR_SYM, 1, 1 }, 69. { HELMET, 0, ARMOR_SYM, 1, 1 }, 70. { SHIELD, 0, ARMOR_SYM, 1, 1 }, 71. { PAIR_OF_GLOVES, 0, ARMOR_SYM, 1, 1 }, 72. { 0, 0, 0, 0, 0 } 73. }; 74. 75. #ifdef KAA 76. struct trobj Elf[] = { 77. { SHORT_SWORD, 0, WEAPON_SYM, 1, 1 }, 78. { BOW, 0, WEAPON_SYM, 1, 1 }, 79. { ARROW, 0, WEAPON_SYM, 25, 1 }, 80. { UNDEF_TYP, 0, ARMOR_SYM, 1, 1 }, 81. { 0, 0, 0, 0, 0 } 82. }; 83. 84. struct trobj Valkyrie[] = { 85. { LONG_SWORD, 1, WEAPON_SYM, 1, 1 }, 86. { SHIELD, 3, ARMOR_SYM, 1, 1 }, 87. { FOOD_RATION, 0, FOOD_SYM, 1, 1 }, 88. { 0, 0, 0, 0, 0 } 89. }; 90. 91. struct trobj Healer[] = { 92. { STETHOSCOPE, 0, TOOL_SYM, 1, 0 }, 93. { POT_HEALING, 0, POTION_SYM, 4, 0 }, 94. { POT_EXTRA_HEALING, 0, POTION_SYM, 4, 0 }, 95. { APPLE, 0, FOOD_SYM, 5, 0 }, 96. { 0, 0, 0, 0, 0} 97. }; 98. #endif /* KAA /**/ 99. 100. struct trobj Archeologist[] = { 101. { STUDDED_LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1 }, 102. { UNDEF_TYP, 0, POTION_SYM, 2, 0 }, 103. { FOOD_RATION, 0, FOOD_SYM, 3, 1 }, 104. { PICK_AXE, UNDEF_SPE, TOOL_SYM, 1, 0 }, 105. { ICE_BOX, 0, TOOL_SYM, 1, 0 }, 106. { 0, 0, 0, 0, 0} 107. }; 108. 109. struct trobj Tinopener[] = { 110. { CAN_OPENER, 0, TOOL_SYM, 1, 1 }, 111. { 0, 0, 0, 0, 0 } 112. }; 113. 114. #ifdef MARKER 115. struct trobj Magicmarker[] = { 116. { MAGIC_MARKER, 50, TOOL_SYM, 1, 0 }, 117. { 0, 0, 0, 0, 0 } 118. }; 119. #endif 120. 121. #ifdef WALKIES 122. struct trobj Leash[] = { 123. { LEASH, 0, CHAIN_SYM, 1, 0 }, 124. { 0, 0, 0, 0, 0 } 125. }; 126. #endif 127. 128. struct trobj Tourist[] = { 129. { UNDEF_TYP, 0, FOOD_SYM, 10, 1 }, 130. { POT_EXTRA_HEALING, 0, POTION_SYM, 2, 0 }, 131. { EXPENSIVE_CAMERA, 0, TOOL_SYM, 1, 1 }, 132. { DART, 2, WEAPON_SYM, 25, 1 }, /* quan is variable */ 133. { 0, 0, 0, 0, 0 } 134. }; 135. 136. struct trobj Wizard[] = { 137. { ELVEN_CLOAK, 0, ARMOR_SYM, 1, 1 }, 138. { UNDEF_TYP, UNDEF_SPE, WAND_SYM, 2, 0 }, 139. { UNDEF_TYP, UNDEF_SPE, RING_SYM, 2, 0 }, 140. { UNDEF_TYP, UNDEF_SPE, POTION_SYM, 2, 0 }, 141. { UNDEF_TYP, UNDEF_SPE, SCROLL_SYM, 3, 0 }, 142. #ifdef SPELLS 143. { UNDEF_TYP, UNDEF_SPE, SPBOOK_SYM, 1, 0 }, 144. #endif 145. { 0, 0, 0, 0, 0 } 146. }; 147. 148. #ifdef NEWCLASS 149. struct trobj Samurai[] = { 150. { KATANA, 0, WEAPON_SYM, 1, 1 }, 151. { BOW, 1, WEAPON_SYM, 1, 1 }, 152. { ARROW, 0, WEAPON_SYM, 25, 1 }, /* quan is variable */ 153. { SPLINT_MAIL, 0, ARMOR_SYM, 1, 1}, 154. { 0, 0, 0, 0, 0 } 155. }; 156. 157. struct trobj Ninja[] = { 158. { KATANA, 0, WEAPON_SYM, 1, 1 }, 159. { SHURIKEN, 0, WEAPON_SYM, 25, 1 }, /* quan is variable */ 160. { LEATHER_ARMOR, 1, ARMOR_SYM, 1, 1}, 161. { 0, 0, 0, 0, 0 } 162. }; 163. 164. struct trobj Priest[] = { 165. { CHAIN_MAIL, 0, ARMOR_SYM, 1, 1 }, 166. { SHIELD, 0, ARMOR_SYM, 1, 1 }, 167. { MACE, 1, WEAPON_SYM, 1, 1 }, 168. #ifdef SPELLS 169. { UNDEF_TYP, UNDEF_SPE, SPBOOK_SYM, 2, 0 }, 170. #endif 171. { 0, 0, 0, 0, 0 } 172. }; 173. #endif /* NEWCLASS /**/ 174. 175. u_init(){ 176. register int i; 177. char exper = 'y', pc; 178. extern char readchar(); 179. if(flags.female) { /* should have been set in HACKOPTIONS */ 180. roles[4] = "Cave-woman"; 181. #ifdef NEWCLASS 182. roles[7] = "Priestess"; 183. #endif 184. } 185. for(i = 0; i < NR_OF_ROLES; i++) 186. rolesyms[i] = roles[i][0]; 187. rolesyms[i] = 0; 188. 189. if(pc = pl_character[0]) { 190. if('a' <= pc && pc <= 'z') pc += 'A'-'a'; 191. if((i = role_index(pc)) >= 0) 192. goto got_suffix; /* implies experienced */ 193. printf("\nUnknown role: %c\n", pc); 194. pl_character[0] = pc = 0; 195. } 196. 197. printf("\nShall I pick a character for you (yes, no, or quit) ? [ynq] "); 198. 199. while(!index("yYnNqQ", (exper = readchar()))) bell(); 200. 201. printf("%c\n", exper); /* echo */ 202. 203. if (index("qQ", exper)) exit(0); 204. 205. if(index("Yy", exper)) { 206. exper = 0; 207. goto beginner; 208. } 209. 210. printf("\n Tell me what kind of character you are:\n"); 211. printf(" Are you"); 212. for(i = 0; i < NR_OF_ROLES; i++) { 213. printf(" %s %s", index("AEIOU",roles[i][0]) ? "an" : "a", roles[i]); 214. if((((i + 1) % 4) == 0) && (i != NR_OF_ROLES -1)) printf(",\n\t"); 215. else if(i < NR_OF_ROLES - 2) printf(","); 216. if(i == NR_OF_ROLES - 2) printf(" or"); 217. } 218. printf("? [%s or q(quit)] ", rolesyms); 219. 220. while(pc = readchar()) { 221. if (pc == 'q' || pc == 'Q') exit(0); 222. if('a' <= pc && pc <= 'z') pc += 'A'-'a'; 223. if((i = role_index(pc)) >= 0) { 224. printf("%c\n", pc); /* echo */ 225. (void) fflush(stdout); /* should be seen */ 226. break; 227. } 228. if(pc == '\n') break; 229. bell(); 230. } 231. if(pc == '\n') pc = 0; 232. 233. beginner: 234. if(!pc) { 235. i = rn2(NR_OF_ROLES); 236. pc = rolesyms[i]; 237. printf("\nThis game you will be %s %s%s.\n", 238. (exper || index("AEIOU", roles[i][0])) ? "an" : "a", 239. exper ? "experienced " : "", roles[i]); 240. getret(); 241. /* give him some feedback in case mklev takes much time */ 242. (void) putchar('\n'); 243. (void) fflush(stdout); 244. } 245. if(exper) { 246. roles[i][0] = pc; 247. } 248. 249. got_suffix: 250. 251. (void) strncpy(pl_character, roles[i], PL_CSIZ-1); 252. pl_character[PL_CSIZ-1] = 0; 253. flags.beginner = 1; 254. u = zerou; 255. u.usym = '@'; 256. u.ulevel = 1; 257. #ifdef SPELLS 258. u.uen = u.uenmax = 1; 259. #endif 260. #ifdef PRAYERS 261. u.ublesscnt = 300; /* no prayers just yet */ 262. u.ublessed = 0; /* not worthy yet */ 263. u.ugangr = 0; /* gods not angry */ 264. #endif 265. #ifdef KAA 266. u.mh = u.mhmax = u.umonnum = u.mtimedone = 0; 267. #endif 268. init_uhunger(); 269. #ifdef QUEST 270. u.uhorizon = 6; 271. #endif 272. uarm = uarm2 = uarmh = uarms = uarmg = uwep = uball = uchain = 273. uleft = uright = 0; 274. #ifdef SPELLS 275. for (i = 0; i <= MAXSPELL; i++) spl_book[i].sp_id = NO_SPELL; 276. #endif 277. switch(pc) { 278. case 'c': 279. case 'C': 280. Cave_man[2].trquan = 12 + rnd(9)*rnd(9); 281. u.uhp = u.uhpmax = 16; 282. u.ustr = u.ustrmax = 18; 283. ini_inv(Cave_man); 284. break; 285. case 't': 286. case 'T': 287. #ifdef KAA 288. objects[POT_EXTRA_HEALING].oc_name_known=1; 289. #endif 290. Tourist[3].trquan = 20 + rnd(20); 291. u.ugold = u.ugold0 = rnd(1000); 292. u.uhp = u.uhpmax = 10; 293. u.ustr = u.ustrmax = 8; 294. ini_inv(Tourist); 295. if(!rn2(25)) ini_inv(Tinopener); 296. #ifdef MARKER 297. else if(!rn2(25)) ini_inv(Magicmarker); 298. #endif 299. #ifdef WALKIES 300. else if(!rn2(25)) ini_inv(Leash); 301. #endif 302. break; 303. case 'w': 304. case 'W': 305. for(i=1; i<=4; i++) if(!rn2(5)) 306. Wizard[i].trquan += rn2(3) - 1; 307. u.uhp = u.uhpmax = 15; 308. u.ustr = u.ustrmax = 16; 309. #ifdef SPELLS 310. u.uen = u.uenmax += rn2(4); 311. #endif 312. ini_inv(Wizard); 313. #ifdef MARKER 314. if(!rn2(5)) ini_inv(Magicmarker); 315. #endif 316. break; 317. case 'a': 318. case 'A': 319. Fast = INTRINSIC; 320. Stealth = INTRINSIC; 321. u.uhp = u.uhpmax = 12; 322. u.ustr = u.ustrmax = 10; 323. ini_inv(Archeologist); 324. if(!rn2(10)) ini_inv(Tinopener); 325. #ifdef MARKER 326. else if(!rn2(10)) ini_inv(Magicmarker); 327. #endif 328. break; 329. #ifdef KAA 330. case 'e': 331. case 'E': 332. Elf[2].trquan = 15+rnd(20); 333. Elf[3].trotyp = (rn2(2) ? ELFIN_CHAIN_MAIL : ELVEN_CLOAK); 334. Fast = INTRINSIC; 335. HSee_invisible = INTRINSIC; 336. u.uhp = u.uhpmax = 16; 337. u.ustr = u.ustrmax = 16; 338. ini_inv(Elf); 339. break; 340. case 'v': 341. case 'V': 342. Stealth = INTRINSIC; 343. HCold_resistance = INTRINSIC; 344. flags.female = TRUE; 345. u.uhp = u.uhpmax = 16; 346. u.ustr = u.ustrmax = 17; 347. ini_inv(Valkyrie); 348. break; 349. case 'h': 350. case 'H': 351. objects[POT_HEALING].oc_name_known=1; 352. objects[POT_EXTRA_HEALING].oc_name_known=1; 353. HPoison_resistance = INTRINSIC; 354. u.uhp = u.uhpmax = 16; 355. u.ustr = u.ustrmax = 15; 356. ini_inv(Healer); 357. break; 358. #endif 359. case 'k': 360. case 'K': 361. u.uhp = u.uhpmax = 12; 362. u.ustr = u.ustrmax = 10; 363. ini_inv(Knight); 364. break; 365. case 'f': 366. case 'F': 367. u.uhp = u.uhpmax = 14; 368. u.ustr = u.ustrmax = 17; 369. ini_inv(Fighter); 370. break; 371. #ifdef NEWCLASS 372. case 's': 373. case 'S': 374. Fast = INTRINSIC; 375. u.uhp = u.uhpmax = 16; 376. u.ustr = u.ustrmax = 16; 377. Samurai[2].trquan = 12 + rnd(9)*rnd(9); 378. ini_inv(Samurai); 379. break; 380. case 'n': 381. case 'N': 382. Fast = INTRINSIC; 383. Stealth = INTRINSIC; 384. u.uhp = u.uhpmax = 15; 385. u.ustr = u.ustrmax = 10; 386. Ninja[1].trquan = 12 + rnd(9)*rnd(9); 387. ini_inv(Ninja); 388. break; 389. case 'p': 390. case 'P': 391. u.uhp = u.uhpmax = 13; 392. u.ustr = u.ustrmax = 15; 393. # ifdef SPELLS 394. u.uen = u.uenmax += rn2(4); 395. # endif 396. ini_inv(Priest); 397. # ifdef MARKER 398. if(!rn2(10)) ini_inv(Magicmarker); 399. # endif 400. break; 401. #endif /* NEWCLASS /**/ 402. default: /* impossible */ 403. u.uhp = u.uhpmax = 12; 404. u.ustr = u.ustrmax = 16; 405. } 406. find_ac(); 407. if(!rn2(20)) { 408. register int d = rn2(7) - 2; /* biased variation */ 409. u.ustr += d; 410. u.ustrmax += d; 411. } 412. 413. #ifdef WIZARD 414. if(wizard) wiz_inv(); 415. #endif 416. 417. /* make sure he can carry all he has - especially for T's */ 418. while(inv_weight() > 0 && u.ustr < 118) 419. u.ustr++, u.ustrmax++; 420. } 421. 422. ini_inv(trop) register struct trobj *trop; { 423. register struct obj *obj; 424. extern struct obj *mkobj(); 425. while(trop->trolet) { 426. obj = mkobj(trop->trolet); 427. obj->known = trop->trknown; 428. /* not obj->dknown = 1; - let him look at it at least once */ 429. obj->cursed = 0; 430. if(obj->olet == WEAPON_SYM){ 431. obj->quan = trop->trquan; 432. trop->trquan = 1; 433. } 434. if(trop->trspe != UNDEF_SPE) 435. obj->spe = trop->trspe; 436. if(trop->trotyp != UNDEF_TYP) 437. obj->otyp = trop->trotyp; 438. else 439. if(obj->otyp == WAN_WISHING) /* gitpyr!robert */ 440. obj->otyp = WAN_DEATH; 441. obj->owt = weight(obj); /* defined after setting otyp+quan */ 442. obj = addinv(obj); 443. if(obj->olet == ARMOR_SYM){ 444. switch(obj->otyp){ 445. case SHIELD: 446. if(!uarms) setworn(obj, W_ARMS); 447. break; 448. case HELMET: 449. if(!uarmh) setworn(obj, W_ARMH); 450. break; 451. case PAIR_OF_GLOVES: 452. if(!uarmg) setworn(obj, W_ARMG); 453. break; 454. case ELVEN_CLOAK: 455. if(!uarm2) 456. setworn(obj, W_ARM); 457. break; 458. default: 459. if(!uarm) setworn(obj, W_ARM); 460. } 461. } 462. /* below changed by GAN 01/09/87 to allow wielding of 463. * pick-axe or can-opener if there is no weapon 464. */ 465. if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE || 466. obj->otyp == CAN_OPENER) 467. if(!uwep) setuwep(obj); 468. #ifndef PYRAMID_BUG 469. if(--trop->trquan) continue; /* make a similar object */ 470. #else 471. if(trop->trquan) { /* check if zero first */ 472. --trop->trquan; 473. if(trop->trquan) 474. continue; /* make a similar object */ 475. } 476. #endif 477. trop++; 478. } 479. } 480. 481. #ifdef WIZARD 482. wiz_inv(){ 483. register struct trobj *trop = &Extra_objs[0]; 484. extern char *getenv(); 485. register char *ep = getenv("INVENT"); 486. register int type; 487. while(ep && *ep) { 488. type = atoi(ep); 489. ep = index(ep, ','); 490. if(ep) while(*ep == ',' || *ep == ' ') ep++; 491. if(type <= 0 || type > NROFOBJECTS) continue; 492. trop->trotyp = type; 493. trop->trolet = objects[type].oc_olet; 494. trop->trspe = 4; 495. trop->trknown = 1; 496. trop->trquan = 1; 497. ini_inv(trop); 498. } 499. /* give him a wand of wishing by default */ 500. trop->trotyp = WAN_WISHING; 501. trop->trolet = WAND_SYM; 502. trop->trspe = 20; 503. trop->trknown = 1; 504. trop->trquan = 1; 505. ini_inv(trop); 506. } 507. #endif /* WIZARD /**/ 508. 509. plnamesuffix() { 510. register char *p; 511. if(p = rindex(plname, '-')) { 512. *p = 0; 513. pl_character[0] = p[1]; 514. pl_character[1] = 0; 515. if(!plname[0]) { 516. askname(); 517. plnamesuffix(); 518. } 519. } 520. } 521. 522. role_index(pc) 523. char pc; 524. { /* must be called only from u_init() */ 525. /* so that rolesyms[] is defined */ 526. register char *cp; 527. 528. if(cp = index(rolesyms, pc)) 529. return(cp - rolesyms); 530. return(-1); 531. }
