Source:NetHack 3.0.0/read.c
(Redirected from NetHack 3.0.0/read.c)
Jump to navigation
Jump to search
Below is the full text to read.c from the source code of NetHack 3.0.0. To link to a particular line, write [[NetHack 3.0.0/read.c#line123]], for example.
Warning! This is the source code from an old release. For the latest release, see Source code
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.
1. /* SCCS Id: @(#)read.c 3.0 88/04/13 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* NetHack may be freely redistributed. See license for details. */ 4. 5. #include "hack.h" 6. 7. boolean known; 8. 9. static const char readable[] = { '#', SCROLL_SYM, 10. #ifdef SPELLS 11. SPBOOK_SYM, 12. #endif 13. 0 }; 14. 15. static void explode P((struct obj *)); 16. static void do_class_genocide(); 17. 18. int 19. doread() { 20. register struct obj *scroll; 21. register boolean confused = (Confusion != 0); 22. 23. known = FALSE; 24. scroll = getobj(readable, "read"); /* "#-" added by GAN 10/22/86 */ 25. if(!scroll) return(0); 26. 27. /* below added to allow reading of fortune cookies */ 28. if(scroll->otyp == FORTUNE_COOKIE) { 29. if(flags.verbose) 30. You("break up the cookie and throw away the pieces."); 31. outrumor(bcsign(scroll), TRUE); 32. useup(scroll); 33. return(1); 34. } else 35. if(scroll->olet != SCROLL_SYM 36. #ifdef SPELLS 37. && scroll->olet != SPBOOK_SYM 38. #endif 39. ) { 40. pline("That is a silly thing to read."); 41. return(0); 42. } 43. 44. if(Blind) 45. #ifdef SPELLS 46. if (scroll->olet == SPBOOK_SYM) { 47. pline("Being blind, you cannot read the mystic runes."); 48. return(0); 49. } else 50. #endif 51. if (!scroll->dknown) { 52. pline("Being blind, you cannot read the formula on the scroll."); 53. return(0); 54. } 55. #ifdef SPELLS 56. if(scroll->olet == SPBOOK_SYM) { 57. if(confused) { 58. You("cannot grasp the meaning of this tome."); 59. useup(scroll); 60. return(0); 61. } else 62. return(study_book(scroll)); 63. } 64. #endif 65. if(scroll->otyp != SCR_BLANK_PAPER) { 66. if(Blind) 67. pline("As you pronounce the formula on it, the scroll disappears."); 68. else 69. pline("As you read the scroll, it disappears."); 70. if(confused) { 71. if (Hallucination) 72. pline("Being so trippy, you screw up..."); 73. else 74. pline("Being confused, you mispronounce the magic words..."); 75. } 76. } 77. if(!seffects(scroll)) { 78. if(!objects[scroll->otyp].oc_name_known) { 79. if(known && !confused) { 80. makeknown(scroll->otyp); 81. more_experienced(0,10); 82. } else if(!objects[scroll->otyp].oc_uname) 83. docall(scroll); 84. } 85. if(!(scroll->otyp == SCR_BLANK_PAPER) || confused) 86. useup(scroll); 87. } 88. return(1); 89. } 90. 91. static void 92. stripspe(obj) 93. register struct obj *obj; 94. { 95. if (obj->blessed) pline(nothing_happens); 96. else { 97. if (obj->spe > 0) { 98. obj->spe = 0; 99. Your("%s vibrates briefly.",xname(obj)); 100. } else pline(nothing_happens); 101. } 102. } 103. 104. static void 105. p_glow1(otmp) 106. register struct obj *otmp; 107. { 108. Your("%s %s briefly.", xname(otmp), 109. Blind ? "vibrates" : "glows"); 110. } 111. 112. static void 113. p_glow2(otmp,color) 114. register struct obj *otmp; 115. register char *color; 116. { 117. Your("%s %s%s for a moment.", 118. xname(otmp), 119. Blind ? "vibrates" : "glows ", 120. Blind ? "" : Hallucination ? hcolor() : color); 121. } 122. 123. int 124. seffects(sobj) 125. register struct obj *sobj; 126. { 127. register int cval = 0; 128. register boolean confused = (Confusion != 0); 129. 130. switch(sobj->otyp) { 131. #ifdef MAIL 132. case SCR_MAIL: 133. known = TRUE; 134. if (sobj->spe) 135. pline("This seems to be junk mail addressed to the finder of the Eye of Larn."); 136. /* note to the puzzled: the game Larn actually sends you junk 137. * mail if you win! 138. */ 139. else readmail(/* scroll */); 140. break; 141. #endif 142. case SCR_ENCHANT_ARMOR: 143. { 144. register struct obj *otmp = some_armor(); 145. register schar s = 0; 146. if(!otmp) { 147. strange_feeling(sobj, 148. !Blind ? "Your skin glows then fades." : 149. "Your skin feels warm for a moment."); 150. return(1); 151. } 152. if(confused) { 153. if(Blind) 154. Your("%s feels warm for a moment.", 155. xname(otmp)); 156. else 157. Your("%s is covered by a %s %s %s!", 158. xname(otmp), 159. sobj->cursed ? "mottled" : "shimmering", 160. Hallucination ? hcolor() : 161. sobj->cursed ? black : "gold", 162. sobj->cursed ? "glow" : 163. (is_shield(otmp) ? "layer" : "shield")); 164. if(!(otmp->rustfree)) 165. otmp->rustfree = !(sobj->cursed); 166. break; 167. } 168. #ifdef TOLKIEN 169. if((otmp->spe > ((otmp->otyp == ELVEN_MITHRIL_COAT) ? 5 : 3)) 170. #else 171. if((otmp->spe > 3) 172. #endif 173. && rn2(otmp->spe) && !sobj->cursed) { 174. Your("%s violently %s%s for a while, then evaporates.", 175. xname(otmp), 176. Blind ? "vibrates" : "glows ", 177. Blind ? "" : Hallucination ? hcolor() : silver); 178. if(is_cloak(otmp)) (void) Cloak_off(); 179. if(is_boots(otmp)) (void) Boots_off(); 180. if(is_helmet(otmp)) (void) Helmet_off(); 181. if(is_gloves(otmp)) (void) Gloves_off(); 182. if(is_shield(otmp)) (void) Shield_off(); 183. if(otmp == uarm) (void) Armor_gone(); 184. useup(otmp); 185. break; 186. } 187. s = sobj->blessed ? rnd(3) : sobj->cursed ? -1 : 1; 188. Your("%s %s%s for a %s.", 189. xname(otmp), 190. Blind ? "vibrates" : "glows ", 191. Blind ? "" : Hallucination ? hcolor() : 192. sobj->cursed ? black : silver, 193. (s*s>1) ? "while" : "moment"); 194. otmp->cursed = sobj->cursed; 195. otmp->blessed = sobj->blessed; 196. otmp->spe += s; 197. adj_abon(otmp, s); 198. break; 199. } 200. case SCR_DESTROY_ARMOR: 201. { register struct obj *otmp = some_armor(); 202. 203. if(confused) { 204. if(!otmp) { 205. strange_feeling(sobj,"Your bones itch."); 206. return(1); 207. } 208. p_glow2(otmp,purple); 209. otmp->rustfree = sobj->cursed; 210. break; 211. } 212. if(!sobj->cursed || (sobj->cursed && (!otmp || !otmp->cursed))) { 213. if(!destroy_arm(otmp)) { 214. strange_feeling(sobj,"Your skin itches."); 215. return(1); 216. } 217. } else { /* armor and scroll both cursed */ 218. Your("%s vibrates", xname(otmp)); 219. otmp->spe--; 220. make_stunned(HStun + rn1(10, 10), TRUE); 221. } 222. } 223. break; 224. case SCR_CONFUSE_MONSTER: 225. #ifdef SPELLS 226. case SPE_CONFUSE_MONSTER: 227. #endif 228. if(u.usym != S_HUMAN || sobj->cursed) { 229. if(!HConfusion) You("feel confused."); 230. make_confused(HConfusion + rnd(100),FALSE); 231. } else if(confused) { 232. if(!sobj->blessed) { 233. Your("%s begin to %s%s.", 234. makeplural(body_part(HAND)), 235. Blind ? "tingle" : "glow ", 236. Blind ? "" : Hallucination ? hcolor() : purple); 237. make_confused(HConfusion + rnd(100),FALSE); 238. } else { 239. pline("A %s%s surrounds your %s.", 240. Blind ? "" : Hallucination ? hcolor() : red, 241. Blind ? "faint buzz" : " glow", 242. body_part(HEAD)); 243. make_confused(0L,TRUE); 244. } 245. } else { 246. Your("%s%s %s.", 247. makeplural(body_part(HAND)), 248. Blind ? "" : " begin to glow", 249. Blind ? "tingle" : Hallucination ? hcolor() : red); 250. u.umconf = 1; 251. } 252. break; 253. case SCR_SCARE_MONSTER: 254. #ifdef SPELLS 255. case SPE_CAUSE_FEAR: 256. #endif 257. { register int ct = 0; 258. register struct monst *mtmp; 259. 260. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 261. if(cansee(mtmp->mx,mtmp->my)) { 262. if(confused || sobj->cursed) 263. mtmp->mflee = mtmp->mfroz = mtmp->msleep = 0; 264. else 265. if (! resist(mtmp, sobj->olet, 0, NOTELL)) 266. mtmp->mflee = 1; 267. if(!mtmp->mtame) ct++; /* pets don't laugh at you */ 268. } 269. if(!ct) 270. You("hear %s in the distance.", 271. (confused || sobj->cursed) ? "sad wailing" : 272. "maniacal laughter"); 273. else 274. #ifdef SPELLS 275. if(sobj->otyp == SCR_SCARE_MONSTER) 276. #endif 277. You("hear %s close by.", 278. (confused || sobj->cursed) ? "sad wailing" : 279. "maniacal laughter"); 280. break; 281. } 282. case SCR_BLANK_PAPER: 283. if(confused) 284. You("try to read the strange patterns on this scroll, but it disappears."); 285. else { 286. pline("This scroll seems to be blank."); 287. known = TRUE; 288. } 289. break; 290. case SCR_REMOVE_CURSE: 291. #ifdef SPELLS 292. case SPE_REMOVE_CURSE: 293. #endif 294. { register struct obj *obj; 295. if(confused) 296. if (Hallucination) 297. You("feel the power of the Force against you!"); 298. else 299. You("feel like you need some help."); 300. else 301. if (Hallucination) 302. You("feel in touch with the Universal Oneness."); 303. else 304. You("feel like someone is helping you."); 305. 306. if(sobj->cursed) pline("The scroll disintegrates."); 307. else { 308. for(obj = invent; obj ; obj = obj->nobj) 309. if(sobj->blessed || obj->owornmask || 310. (obj->otyp == LOADSTONE)) { 311. if(confused) blessorcurse(obj, 2); 312. else obj->cursed = 0; 313. } 314. } 315. if(Punished && !confused) unpunish(); 316. break; 317. } 318. case SCR_CREATE_MONSTER: 319. #if defined(WIZARD) || defined(EXPLORE_MODE) 320. if (wizard || discover) 321. known = TRUE; 322. #endif /* WIZARD || EXPLORE_MODE */ 323. #ifdef SPELLS 324. case SPE_CREATE_MONSTER: 325. #endif 326. { register int cnt = 1; 327. 328. if(!rn2(73)) cnt += rnd(4); 329. if(confused || sobj->cursed) cnt += 12; 330. while(cnt--) { 331. #if defined(WIZARD) || defined(EXPLORE_MODE) 332. if(wizard || discover) 333. if (!create_particular()) 334. #endif /* WIZARD || EXPLORE_MODE */ 335. (void) makemon (confused ? &mons[PM_ACID_BLOB] : 336. (struct permonst *) 0, u.ux, u.uy); 337. } 338. break; 339. } 340. /* break; /*NOTREACHED*/ 341. case SCR_ENCHANT_WEAPON: 342. if(uwep && (uwep->olet == WEAPON_SYM || uwep->olet == PICK_AXE) 343. && confused) { 344. /* olet check added 10/25/86 GAN */ 345. if(Blind) 346. Your("weapon feels warm for a moment."); 347. else 348. Your("%s covered by a %s %s %s!", 349. aobjnam(uwep, "are"), 350. sobj->cursed ? "mottled" : "shimmering", 351. Hallucination ? hcolor() : 352. sobj->cursed ? purple : "gold", 353. sobj->cursed ? "glow" : "shield"); 354. uwep->rustfree = !(sobj->cursed); 355. } else return !chwepon(sobj, bcsign(sobj)*2+1); 356. break; 357. case SCR_TAMING: 358. #ifdef SPELLS 359. case SPE_CHARM_MONSTER: 360. #endif 361. { register int i,j; 362. register int bd = confused ? 5 : 1; 363. register struct monst *mtmp; 364. 365. for(i = -bd; i <= bd; i++) for(j = -bd; j <= bd; j++) 366. if(levl[u.ux+i][u.uy+j].mmask && (mtmp = m_at(u.ux+i, u.uy+j))) { 367. if(sobj->cursed) { 368. if(!mtmp->mtame) mtmp->mpeaceful = 0; 369. } else { 370. if (mtmp->isshk) { 371. if (!mtmp->mpeaceful) { 372. kludge("%s calms down.", Monnam(mtmp)); 373. mtmp->mpeaceful = 1; 374. } 375. } else if(!resist(mtmp, sobj->olet, 0, NOTELL)) 376. (void) tamedog(mtmp, (struct obj *) 0); 377. } 378. } 379. break; 380. } 381. case SCR_GENOCIDE: 382. You("have found a scroll of genocide!"); 383. #ifdef SPELLS 384. case SPE_GENOCIDE: 385. #endif 386. known = TRUE; 387. if (sobj->blessed) do_class_genocide(); 388. else do_genocide(!sobj->cursed | (2 * !!Confusion)); 389. break; 390. case SCR_LIGHT: 391. if(!Blind) known = TRUE; 392. litroom(!confused && !sobj->cursed); 393. break; 394. case SCR_TELEPORTATION: 395. if(confused || sobj->cursed) level_tele(); 396. else { 397. register int uroom = inroom(u.ux, u.uy); 398. 399. if (sobj->blessed && !Teleport_control) { 400. known = TRUE; 401. pline("Do you wish to teleport? "); 402. if (yn()=='n') break; 403. } 404. tele(); 405. if(uroom != inroom(u.ux, u.uy)) known = TRUE; 406. if(Teleport_control) known = TRUE; 407. } 408. break; 409. case SCR_GOLD_DETECTION: 410. if (confused || sobj->cursed) return(trap_detect(sobj)); 411. else return(gold_detect(sobj)); 412. case SCR_FOOD_DETECTION: 413. #ifdef SPELLS 414. case SPE_DETECT_FOOD: 415. #endif 416. if (food_detect(sobj)) 417. return(1); /* nothing detected */ 418. break; 419. case SCR_IDENTIFY: 420. /* known = TRUE; */ 421. if(confused) 422. You("identify this as an identify scroll."); 423. else 424. pline("This is an identify scroll."); 425. if (sobj->blessed || (!sobj->cursed && !rn2(5))) 426. cval = rn2(5); 427. /* Note: if rn2(5)==0, identify all items */ 428. else cval = 1; 429. useup(sobj); 430. makeknown(SCR_IDENTIFY); 431. #ifdef SPELLS 432. case SPE_IDENTIFY: 433. #endif 434. if(!confused) 435. while(invent && !ggetobj("identify", identify, cval)); 436. return(1); 437. case SCR_CHARGING: 438. { register struct obj *obj; 439. register int n; 440. if (confused) { 441. You("feel charged up!"); 442. break; 443. } 444. known = TRUE; 445. pline("This is a charging scroll."); 446. obj = getobj("0#", "charge"); 447. if (!obj) break; 448. if (obj->olet != WAND_SYM) { 449. switch(obj->otyp) { 450. case MAGIC_MARKER: 451. if (sobj->cursed) stripspe(obj); 452. else if (sobj->blessed) { 453. n = obj->spe; 454. if (n < 50) obj->spe = 50; 455. if (n >= 50 && n < 75) obj->spe = 75; 456. if (n >= 75) obj->spe += 10; 457. p_glow2(obj,blue); 458. } else { 459. if (obj->spe < 50) obj->spe = 50; 460. else obj->spe++; 461. p_glow2(obj,white); 462. } 463. break; 464. case LAMP: 465. if (sobj->cursed) stripspe(obj); 466. else if (sobj->blessed) { 467. n = rn2(11); 468. if (obj->spe < n) obj->spe = n; 469. else obj->spe += rnd(3); 470. p_glow2(obj,blue); 471. } else { 472. obj->spe++; 473. p_glow1(obj); 474. } 475. break; 476. case MAGIC_LAMP: 477. if (sobj->cursed) stripspe(obj); 478. else if (sobj->blessed) { 479. if (obj->spe == 1) pline(nothing_happens); 480. else { 481. obj->spe = 1; 482. p_glow1(obj); 483. } 484. } else { 485. if (obj->spe == 1) pline(nothing_happens); 486. else { 487. n = rn2(2); 488. if (!n) { 489. obj->spe = 1; 490. p_glow1(obj); 491. } else pline(nothing_happens); 492. } 493. } 494. break; 495. case CRYSTAL_BALL: 496. if (sobj->cursed) stripspe(obj); 497. else if (sobj->blessed) { 498. obj->spe = 6; 499. p_glow2(obj,blue); 500. } else { 501. if (obj->spe < 5) { 502. obj->spe++; 503. p_glow1(obj); 504. } else pline(nothing_happens); 505. } 506. break; 507. case BAG_OF_TRICKS: 508. if (sobj->cursed) stripspe(obj); 509. else if (sobj->blessed) { 510. if (obj->spe <= 10) 511. obj->spe += (5 + rnd(10)); 512. else obj->spe += (5 + rnd(5)); 513. p_glow2(obj,blue); 514. } else { 515. obj->spe += rnd(5); 516. p_glow1(obj); 517. } 518. break; 519. default: 520. pline("The scroll %s%s, and disintegrates.", 521. Blind ? "vibrates violently" : "glows ", 522. Blind ? "" : Hallucination ? hcolor() : "dark red"); 523. } /* switch */ 524. break; 525. } 526. else { 527. if (obj->otyp == WAN_WISHING) { 528. if (obj->recharged) { /* recharged once already? */ 529. explode(obj); 530. break; 531. } 532. if (sobj->cursed) stripspe(obj); 533. else if (sobj->blessed) { 534. if (obj->spe != 3) { 535. obj->spe = 3; 536. p_glow2(obj,blue); 537. } else { 538. explode(obj); 539. break; 540. } 541. } else { 542. if (obj->spe < 3) { 543. obj->spe++; 544. p_glow2(obj,blue); 545. } else pline(nothing_happens); 546. } 547. obj->recharged = 1; /* another recharging disallowed */ 548. } 549. else { 550. if (sobj->cursed) stripspe(obj); 551. else if (sobj->blessed) { 552. if (objects[obj->otyp].bits & NODIR) { 553. n = rn1(5,11); 554. if (obj->spe < n) obj->spe = n; 555. else obj->spe++; 556. } 557. else { 558. n = rn1(5,4); 559. if (obj->spe < n) obj->spe = n; 560. else obj->spe++; 561. } 562. p_glow2(obj,blue); 563. } else { 564. obj->spe++; 565. p_glow1(obj); 566. } 567. break; 568. } 569. } 570. } 571. break; 572. case SCR_MAGIC_MAPPING: 573. known = TRUE; 574. pline("On this scroll %s a map.", confused ? "was" : "is"); 575. #ifdef SPELLS 576. case SPE_MAGIC_MAPPING: 577. #endif 578. cval = (sobj->cursed && !confused); 579. if(cval) HConfusion = 1; /* to screw up map */ 580. do_mapping(); 581. if(cval) { 582. HConfusion = 0; /* restore */ 583. pline("Unfortunately, it is of a very poor quality."); 584. } 585. break; 586. case SCR_AMNESIA: 587. { register int zx, zy; 588. 589. known = TRUE; 590. for(zx = 0; zx < COLNO; zx++) for(zy = 0; zy < ROWNO; zy++) 591. if(!confused || sobj->cursed || rn2(7)) 592. if(!cansee(zx,zy)) 593. levl[zx][zy].seen = levl[zx][zy].new = 594. levl[zx][zy].scrsym = 0; 595. docrt(); 596. if (Hallucination) /* Ommmmmm! */ 597. Your("mind releases itself from mundane concerns."); 598. else if (!strncmp(plname, "Maud", 4)) 599. pline("As your mind turns inward on itself, you forget everything else."); 600. else if (flags.female) 601. pline("Who was that Maud person anyway?"); 602. else 603. pline("Thinking of Maud you forget everything else."); 604. #ifdef SPELLS 605. if(!sobj->blessed) losespells(); 606. #endif 607. break; 608. } 609. case SCR_FIRE: 610. { register int num; 611. register struct monst *mtmp; 612. /* 613. * Note: Modifications have been made as of 3.0 to allow for some damage 614. * under all potential cases. 615. */ 616. cval = bcsign(sobj); 617. useup(sobj); 618. makeknown(SCR_FIRE); 619. if(confused) { 620. if(Fire_resistance) { 621. shieldeff(u.ux, u.uy); 622. if(!Blind) 623. pline("Oh, look, what a pretty fire in your %s.", 624. makeplural(body_part(HAND))); 625. else You("feal a pleasant warmth in your %s.", 626. makeplural(body_part(HAND))); 627. } else { 628. pline("The scroll catches fire and you burn your %s.", 629. makeplural(body_part(HAND))); 630. losehp(1, "scroll of fire"); 631. } 632. return(1); 633. } 634. pline("The scroll erupts in a tower of flame!"); 635. num = rnd(6) - 3 * cval; 636. if(num <= 0 || Fire_resistance) { 637. shieldeff(u.ux, u.uy); 638. You("are uninjured."); 639. } else { 640. u.uhpmax -= num; 641. losehp(num, "scroll of fire"); 642. } 643. destroy_item(SCROLL_SYM, AD_FIRE); 644. #ifdef SPELLS 645. destroy_item(SPBOOK_SYM, AD_FIRE); 646. #endif 647. destroy_item(POTION_SYM, AD_FIRE); 648. 649. num = (2*(rn1(3, 3) + 2 * cval) + 1)/3; 650. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) { 651. if(dist(mtmp->mx,mtmp->my) < 3) { 652. if (resists_fire(mtmp->data)) continue; 653. if (u.uswallow) { 654. if (mtmp != u.ustuck) continue; 655. pline("%s gets heartburn.", Monnam(u.ustuck)); 656. num *= 2; 657. } 658. mtmp->mhp -= num; /* No saving throw! */ 659. if(resists_cold(mtmp->data)) 660. mtmp->mhp -= 3*num; 661. if(mtmp->mhp < 1) { 662. killed(mtmp); 663. break; /* primitive */ 664. } 665. } 666. } 667. return(1); 668. } 669. case SCR_PUNISHMENT: 670. known = TRUE; 671. if(confused || sobj->blessed) { 672. You("feel guilty."); 673. break; 674. } 675. punish(sobj); 676. break; 677. default: 678. impossible("What weird effect is this? (%u)", sobj->otyp); 679. } 680. return(0); 681. } 682. 683. static void 684. explode(obj) 685. register struct obj *obj; 686. { 687. Your("%s vibrates violently, and explodes!",xname(obj)); 688. bell(); 689. losehp(rn2(2*(u.uhpmax+1)/3),"exploding wand"); 690. useup(obj); 691. } 692. 693. int 694. identify(otmp) /* also called by newmail() */ 695. register struct obj *otmp; 696. { 697. makeknown(otmp->otyp); 698. otmp->known = otmp->dknown = otmp->bknown = 1; 699. prinv(otmp); 700. return(1); 701. } 702. 703. void 704. litroom(on) 705. register boolean on; 706. { 707. register int zx,zy; 708. 709. /* first produce the text (provided he is not blind) */ 710. if(Blind) goto do_it; 711. if(!on) { 712. if(u.uswallow || is_maze_lev || levl[u.ux][u.uy].typ == CORR || 713. !levl[u.ux][u.uy].lit) { 714. pline("It seems even darker in here than before."); 715. return; 716. } else 717. pline("It suddenly becomes dark in here."); 718. } else { 719. if(u.uswallow){ 720. pline("%s's stomach is lit.", Monnam(u.ustuck)); 721. return; 722. } 723. if(is_maze_lev){ 724. pline(nothing_happens); 725. return; 726. } 727. if(levl[u.ux][u.uy].typ == CORR) { 728. pline("The corridor lights up around you, then fades."); 729. return; 730. } else if(levl[u.ux][u.uy].lit) { 731. pline("The light here seems better now."); 732. return; 733. } else 734. pline("The room is lit."); 735. } 736. 737. do_it: 738. if(levl[u.ux][u.uy].lit == on) 739. return; 740. if (inroom(u.ux,u.uy) < 0) 741. return; 742. getcorners(&seelx,&seehx,&seely,&seehy,&seelx2,&seehx2,&seely2,&seehy2); 743. 744. for(zy = seely; zy <= seehy; zy++) 745. for(zx = seelx; zx <= seehx; zx++) { 746. levl[zx][zy].lit = on; 747. if(!Blind && dist(zx,zy) > 2) 748. if(on) prl(zx,zy); else nosee(zx,zy); 749. } 750. for(zy = seely2; zy <= seehy2; zy++) 751. for(zx = seelx2; zx <= seehx2; zx++) { 752. levl[zx][zy].lit = on; 753. if(!Blind && dist(zx,zy) > 2) 754. if(on) prl(zx,zy); else nosee(zx,zy); 755. } 756. if(!on) seehx = 0; 757. } 758. 759. static void 760. do_class_genocide() 761. { 762. register int i, j, immunecnt, gonecnt, goodcnt; 763. char buf[BUFSZ]; 764. 765. for(j=0; ; j++) { 766. if (j >= 5) { 767. pline(thats_enough_tries); 768. return; 769. } 770. pline("What class of monsters do you wish to genocide? [type a letter] "); 771. do { 772. getlin(buf); 773. } while (buf[0]=='\033' || strlen(buf) != 1); 774. immunecnt = gonecnt = goodcnt = 0; 775. for(i=0; mons[i].mlet; i++) { 776. if(mons[i].mlet == buf[0]) { 777. if (!(mons[i].geno & G_GENO)) immunecnt++; 778. else if(mons[i].geno & G_GENOD) gonecnt++; 779. else goodcnt++; 780. } 781. } 782. if (!goodcnt && buf[0] != S_HUMAN) { 783. if (gonecnt) 784. pline("All such monsters are already nonexistent."); 785. else if (immunecnt) 786. You("aren't permitted to genocide such monsters."); 787. else 788. pline("That symbol does not represent any monster."); 789. continue; 790. } 791. for(i=0; mons[i].mlet; i++) { 792. if(mons[i].mlet == buf[0]) { 793. register struct monst *mtmp, *mtmp2; 794. char *n = makeplural(mons[i].mname); 795. 796. if (&mons[i]==player_mon() || ((mons[i].geno & G_GENO) 797. && !(mons[i].geno & G_GENOD))) { 798. /* This check must be first since player monsters might 799. * have G_GENOD or !G_GENO. 800. */ 801. pline("Wiped out all %s.", n); 802. if (&mons[i] == player_mon()) { 803. u.uhp = -1; 804. killer = "scroll of genocide"; 805. #ifdef POLYSELF 806. if (u.umonnum >= 0) 807. You("feel dead inside."); 808. else 809. #endif 810. done("died"); 811. } 812. /* for simplicity (and fairness) let's avoid 813. * alignment changes here... 814. */ 815. #ifdef POLYSELF 816. if (i==u.umonnum) rehumanize(); 817. #endif 818. mons[i].geno |= G_GENOD; 819. for(mtmp = fmon; mtmp; mtmp = mtmp2) { 820. mtmp2 = mtmp->nmon; 821. if(mtmp->data == &mons[i]) 822. mondead(mtmp); 823. } 824. } else if (mons[i].geno & G_GENOD) 825. pline("All %s are already nonexistent.", n); 826. else 827. You("aren't permitted to genocide %s%s.", 828. i == PM_WIZARD_OF_YENDOR ? "the " : "", 829. type_is_pname(&mons[i]) ? mons[i].mname : n); 830. } 831. } 832. return; 833. } 834. } 835. 836. #define REALLY 1 837. #define PLAYER 2 838. void 839. do_genocide(how) 840. int how; 841. /* 0 = no genocide; create monsters (cursed scroll) */ 842. /* 1 = normal genocide */ 843. /* 3 = forced genocide of player */ 844. { 845. char buf[BUFSZ]; 846. register int i, j, killplayer = 0; 847. register struct permonst *ptr; 848. register struct monst *mtmp, *mtmp2; 849. 850. if (how & PLAYER) { 851. ptr = player_mon(); 852. Strcpy(buf, ptr->mname); 853. killplayer++; 854. } else { 855. for(j = 0; ; j++) { 856. if(j >= 5) { 857. pline(thats_enough_tries); 858. return; 859. } 860. pline("What monster do you want to genocide? [type the name] "); 861. getlin(buf); 862. 863. if(strlen(buf) && (!strncmp(buf, pl_character, PL_CSIZ))) { 864. /* Note: pl_character starts with capitals and player_mon does not */ 865. ptr = player_mon(); 866. killplayer++; 867. goto deadmeat; 868. } else { 869. i = name_to_mon(buf); 870. if(i == -1 || (mons[i].geno & G_GENOD)) { 871. pline("Such creatures do not exist in this world."); 872. continue; 873. } 874. ptr = &mons[i]; 875. if (ptr == player_mon()) { 876. killplayer++; 877. goto deadmeat; 878. } 879. if (is_human(ptr)) adjalign(-sgn(u.ualigntyp)); 880. if (is_demon(ptr)) adjalign(sgn(u.ualigntyp)); 881. 882. if(!(ptr->geno & G_GENO)) { 883. if(flags.soundok) { 884. if(flags.verbose) 885. pline("A thunderous voice booms though the caverns:"); 886. pline("\"No, mortal! That will not be done.\""); 887. } 888. continue; 889. } 890. break; 891. } 892. } 893. } 894. deadmeat: 895. if (Hallucination) { 896. #ifdef POLYSELF 897. if (u.umonnum != -1) 898. Strcpy(buf,uasmon->mname); 899. else 900. #endif 901. { 902. Strcpy(buf, pl_character); 903. buf[0] += 'a' - 'A'; 904. } 905. } else Strcpy(buf,ptr->mname); /* make sure we have standard singular */ 906. if (how & REALLY) { 907. pline("Wiped out all %s.", makeplural(buf)); 908. if(killplayer) { 909. u.uhp = -1; 910. killer = "genocide spell"; 911. #ifdef POLYSELF 912. /* A polymorphed character will die as soon as he is rehumanized. */ 913. if(u.umonnum >= 0) You("feel dead inside."); 914. else 915. #endif 916. done("died"); 917. return; 918. } 919. #ifdef POLYSELF 920. else if ((how & REALLY) && ptr == &mons[u.umonnum]) rehumanize(); 921. #endif 922. ptr->geno |= G_GENOD; 923. for(mtmp = fmon; mtmp; mtmp = mtmp2) { 924. mtmp2 = mtmp->nmon; 925. if(mtmp->data == ptr) 926. mondead(mtmp); 927. } 928. } else { 929. pline("Sent in some %s.", makeplural(buf)); 930. j = rnd(3) + 3; 931. for(i=1; i<=j; i++) 932. (void) makemon(ptr, u.ux, u.uy); 933. } 934. } 935. 936. static void 937. show_map_spot(x, y) 938. register int x, y; 939. { 940. register struct rm *lev; 941. register int num; 942. 943. if((Confusion != 0) && rn2(7)) return; 944. lev = &(levl[x][y]); 945. if((num = lev->typ) == 0) return; 946. 947. if(num == SCORR) { 948. lev->typ = CORR; 949. lev->scrsym = CORR_SYM; 950. /* 951. * magic mapping shouldn't find secret doors, 952. * especially on the stronghold level 953. */ 954. } else if(lev->seen) return; 955. if(num != ROOM) 956. { 957. lev->seen = lev->new = 1; 958. if(lev->scrsym == STONE_SYM || !lev->scrsym) 959. newsym(x, y); 960. else on_scr(x, y); 961. } 962. } 963. 964. void 965. do_mapping() { 966. register int zx, zy; 967. 968. for(zy = 0; zy < ROWNO; zy++) 969. for(zx = 0; zx < COLNO; zx++) 970. show_map_spot(zx, zy); 971. } 972. 973. void 974. do_vicinity_map() { 975. register int zx, zy; 976. 977. for(zy = (u.uy-5 < 0 ? 0 : u.uy-5); 978. zy < (u.uy+6 > ROWNO ? ROWNO : u.uy+6); zy++) 979. for(zx = (u.ux-9 < 0 ? 0 : u.ux-9); 980. zx < (u.ux+10 > COLNO ? COLNO : u.ux+10); zx++) 981. show_map_spot(zx, zy); 982. } 983. 984. int 985. destroy_arm(atmp) 986. register struct obj *atmp; 987. { 988. register struct obj *otmp; 989. 990. if((otmp = uarmc) && (!atmp || atmp == uarmc)) { 991. Your("cloak crumbles and turns to dust!"); 992. (void) Cloak_off(); 993. useup(otmp); 994. } else if((otmp = uarm) && (!atmp || atmp == uarm)) { 995. Your("armor turns to dust and falls to the floor!"); 996. (void) Armor_gone(); 997. useup(otmp); 998. #ifdef SHIRT 999. } else if((otmp = uarmu) && (!atmp || atmp == uarmu)) { 1000. Your("shirt crumbles into tiny threads and falls apart!"); 1001. useup(otmp); 1002. #endif 1003. } else if((otmp = uarmh) && (!atmp || atmp == uarmh)) { 1004. Your("helmet turns to dust and is blown away!"); 1005. (void) Helmet_off(); 1006. useup(otmp); 1007. } else if((otmp = uarmg) && (!atmp || atmp == uarmg)) { 1008. Your("gloves vanish!"); 1009. (void) Gloves_off(); 1010. useup(otmp); 1011. selftouch("You"); 1012. } else if((otmp = uarmf) && (!atmp || atmp == uarmf)) { 1013. Your("boots disintegrate!"); 1014. (void) Boots_off(); 1015. useup(otmp); 1016. } else if((otmp =uarms) && (!atmp || atmp == uarms)) { 1017. Your("shield crumbles away!"); 1018. (void) Shield_off(); 1019. useup(otmp); 1020. } else return(0); /* could not destroy anything */ 1021. 1022. return(1); 1023. } 1024. 1025. /* the detections are pulled out so they can */ 1026. /* also be used in the crystal ball routine */ 1027. /* returns 1 if nothing was detected */ 1028. /* returns 0 if something was detected */ 1029. int 1030. trap_detect(sobj) 1031. register struct obj *sobj; 1032. /* sobj is null if crystal ball, *scroll if gold detection scroll */ 1033. { 1034. register struct trap *ttmp; 1035. register struct obj *obj; 1036. register int door; 1037. boolean found = FALSE; 1038. coord cc; 1039. 1040. for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) { 1041. if(ttmp->tx != u.ux || ttmp->ty != u.uy) 1042. goto outtrapmap; 1043. else found = TRUE; 1044. } 1045. for(obj = fobj; obj; obj = obj->nobj) { 1046. if ((obj->otyp==LARGE_BOX || obj->otyp==CHEST) && obj->otrapped) 1047. if (obj->ox != u.ux || obj->oy != u.uy) 1048. goto outtrapmap; 1049. else found = TRUE; 1050. } 1051. for(door=0; door<=doorindex; door++) { 1052. cc = doors[door]; 1053. if (levl[cc.x][cc.y].doormask & D_TRAPPED) 1054. if (cc.x != u.ux || cc.x != u.uy) 1055. goto outtrapmap; 1056. else found = TRUE; 1057. } 1058. if(!found) { 1059. char buf[42]; 1060. Sprintf(buf, "Your %s stop itching.", 1061. makeplural(body_part(TOE))); 1062. strange_feeling(sobj,buf); 1063. return(1); 1064. } 1065. /* traps exist, but only under me - no separate display required */ 1066. Your("%s itch.", makeplural(body_part(TOE))); 1067. return(0); 1068. outtrapmap: 1069. cls(); 1070. #define SYMBOL (uchar)(Hallucination ? rndobjsym() : \ 1071. (sobj && sobj->cursed) ? GOLD_SYM : TRAP_SYM) 1072. #define AT Hallucination || (sobj && sobj->cursed) ? AT_OBJ : AT_MAP 1073. for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) 1074. at(ttmp->tx, ttmp->ty, SYMBOL, AT); 1075. for(obj = fobj; obj; obj = obj->nobj) { 1076. if ((obj->otyp==LARGE_BOX || obj->otyp==CHEST) && obj->otrapped) 1077. at(obj->ox, obj->oy, SYMBOL, AT); 1078. } 1079. for(door=0; door<=doorindex; door++) { 1080. cc = doors[door]; 1081. if (levl[cc.x][cc.y].doormask & D_TRAPPED) 1082. at(cc.x, cc.y, SYMBOL, AT); 1083. } 1084. #undef SYMBOL 1085. #undef AT 1086. prme(); 1087. if (sobj && sobj->cursed) 1088. You("feel very greedy."); 1089. else 1090. You("feel entrapped."); 1091. more(); 1092. docrt(); 1093. return(0); 1094. } 1095. 1096. int 1097. gold_detect(sobj) 1098. register struct obj *sobj; 1099. { 1100. register struct gold *gtmp; 1101. 1102. if(!fgold) { 1103. if(sobj) 1104. strange_feeling(sobj, "You feel materially poor."); 1105. return(1); 1106. } else { 1107. known = TRUE; 1108. for(gtmp = fgold; gtmp; gtmp = gtmp->ngold) 1109. if(gtmp->gx != u.ux || gtmp->gy != u.uy) 1110. goto outgoldmap; 1111. /* only under me - no separate display required */ 1112. You("notice some gold between your %s.", 1113. makeplural(body_part(FOOT))); 1114. return(0); 1115. outgoldmap: 1116. cls(); 1117. for(gtmp = fgold; gtmp; gtmp = gtmp->ngold) 1118. at( gtmp->gx, gtmp->gy, 1119. (uchar)(Hallucination ? rndobjsym() : GOLD_SYM), 1120. AT_OBJ); 1121. prme(); 1122. You("feel very greedy, and sense gold!"); 1123. more(); 1124. docrt(); 1125. } 1126. return(0); 1127. } 1128. 1129. /* food_detection is pulled out so that it */ 1130. /* can also be used in the crystal ball routine */ 1131. /* returns 1 if nothing was detected */ 1132. /* returns 0 if something was detected */ 1133. int 1134. food_detect(sobj) 1135. register struct obj *sobj; 1136. { 1137. register boolean confused = (Confusion || (sobj && sobj->cursed)); 1138. register int ct = 0, ctu = 0; 1139. register struct obj *obj; 1140. register char foodsym = confused ? POTION_SYM : FOOD_SYM; 1141. 1142. for(obj = fobj; obj; obj = obj->nobj) 1143. if(obj->olet == foodsym) { 1144. if(obj->ox == u.ux && obj->oy == u.uy) ctu++; 1145. else ct++; 1146. } 1147. if(!ct && !ctu) { 1148. if (sobj) strange_feeling(sobj,"Your nose twitches."); 1149. return(1); 1150. } else if(!ct) { 1151. known = TRUE; 1152. You("%s %s close nearby.", sobj ? "smell" : "sense", 1153. confused ? "something" : "food"); 1154. } else { 1155. known = TRUE; 1156. cls(); 1157. for(obj = fobj; obj; obj = obj->nobj) 1158. if(obj->olet == foodsym) 1159. at(obj->ox, obj->oy, 1160. (uchar)(Hallucination ? rndobjsym() : FOOD_SYM), 1161. AT_OBJ); 1162. prme(); 1163. if (sobj) Your("nose tingles and you smell %s.", 1164. confused ? "something" : "food"); 1165. else You("sense %s.", confused ? "something" : "food"); 1166. more(); 1167. docrt(); 1168. } 1169. return(0); 1170. } 1171. 1172. void 1173. punish(sobj) 1174. register struct obj *sobj; 1175. { 1176. You("are being punished for your misbehavior!"); 1177. if(Punished){ 1178. Your("iron ball gets heavier."); 1179. uball->owt += 15 * (1 + sobj->cursed); 1180. return; 1181. } 1182. setworn(mkobj_at(CHAIN_SYM, u.ux, u.uy), W_CHAIN); 1183. setworn(mkobj_at(BALL_SYM, u.ux, u.uy), W_BALL); 1184. uball->spe = 1; /* special ball (see save) */ 1185. } 1186. 1187. void 1188. unpunish() 1189. { /* remove the ball and chain */ 1190. freeobj(uchain); 1191. unpobj(uchain); 1192. free((genericptr_t) uchain); 1193. setworn((struct obj *)0, W_CHAIN); 1194. uball->spe = 0; 1195. setworn((struct obj *)0, W_BALL); 1196. } 1197. 1198. /* some creatures have special data structures that only make sense in their 1199. * normal locations -- if the player tries to create one elsewhere, or to revive 1200. * one, the disoriented creature becomes a zombie 1201. */ 1202. boolean 1203. cant_create(mtype) 1204. int *mtype; 1205. { 1206. 1207. if (*mtype==PM_GUARD || *mtype==PM_SHOPKEEPER 1208. #if defined(ALTARS) && defined(THEOLOGY) 1209. || *mtype==PM_TEMPLE_PRIEST || *mtype==PM_TEMPLE_PRIESTESS 1210. #endif 1211. ) { 1212. *mtype = PM_HUMAN_ZOMBIE; 1213. return TRUE; 1214. } else 1215. return FALSE; 1216. } 1217. 1218. #if defined(WIZARD) || defined(EXPLORE_MODE) 1219. boolean 1220. create_particular() 1221. { 1222. char buf[BUFSZ]; 1223. int which; 1224. 1225. do { 1226. pline("Create what kind of monster? [type the name] "); 1227. getlin(buf); 1228. } while(strlen(buf) < 1); 1229. which = name_to_mon(buf); 1230. if (which != -1) { 1231. if (!(mons[which].geno & G_GENOD) && cant_create(&which) && 1232. !Blind) { 1233. if (mons[which].geno & G_GENOD) 1234. pline("An image of the creature forms, wavers momentarily, then fades."); 1235. else 1236. pline("The disoriented creature's eyes slowly glaze over."); 1237. } 1238. (void) makemon(&mons[which], u.ux, u.uy); 1239. return TRUE; 1240. } 1241. return FALSE; 1242. } 1243. #endif /* WIZARD || EXPLORE_MODE */
