| abstract
| - Below is the full text to hack.c from the source code of NetHack 3.2.0. To link to a particular line, write [[NetHack 3.2.0/hack.c#line123]], for example. Warning! This is the source code from an old release. For the latest release, see Source code 1. /* SCCS Id: @(#)hack.c 3.2 96/03/09 */ 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. STATIC_DCL int NDECL(moverock); 8. STATIC_DCL int FDECL(still_chewing,(XCHAR_P,XCHAR_P)); 9. #ifdef SINKS 10. STATIC_DCL void NDECL(dosinkfall); 11. #endif 12. STATIC_DCL boolean FDECL(monstinroom, (struct permonst *,int)); 13. 14. static void FDECL(move_update, (BOOLEAN_P)); 15. 16. #define IS_SHOP(x) (rooms[x].rtype >= SHOPBASE) 17. 18. #ifdef OVL2 19. 20. boolean 21. revive_nasty(x, y, msg) 22. int x,y; 23. const char *msg; 24. { 25. register struct obj *otmp, *otmp2; 26. struct monst *mtmp; 27. coord cc; 28. boolean revived = FALSE; 29. 30. for(otmp = level.objects[x][y]; otmp; otmp = otmp2) { 31. otmp2 = otmp->nexthere; 32. if (otmp->otyp == CORPSE && 33. (is_rider(&mons[otmp->corpsenm]) || 34. otmp->corpsenm == PM_WIZARD_OF_YENDOR)) { 35. /* move any living monster already at that location */ 36. if((mtmp = m_at(x,y)) && enexto(&cc, x, y, mtmp->data)) 37. rloc_to(mtmp, cc.x, cc.y); 38. if(msg) Norep("%s", msg); 39. revived = revive_corpse(otmp); 40. } 41. } 42. 43. /* this location might not be safe, if not, move revived monster */ 44. if (revived) { 45. mtmp = m_at(x,y); 46. if (mtmp && !goodpos(x, y, mtmp, mtmp->data) && 47. enexto(&cc, x, y, mtmp->data)) { 48. rloc_to(mtmp, cc.x, cc.y); 49. } 50. /* else impossible? */ 51. } 52. 53. return (revived); 54. } 55. 56. STATIC_OVL int 57. moverock() 58. { 59. register xchar rx, ry; 60. register struct obj *otmp; 61. register struct trap *ttmp; 62. register struct monst *mtmp; 63. 64. while ((otmp = sobj_at(BOULDER, u.ux+u.dx, u.uy+u.dy)) != 0) { 65. rx = u.ux+2*u.dx; 66. ry = u.uy+2*u.dy; 67. nomul(0); 68. if (Levitation || Is_airlevel(&u.uz)) { 69. if (Blind) feel_location(u.ux+u.dx,u.uy+u.dy); 70. You("don't have enough leverage to push %s.", the(xname(otmp))); 71. /* Give them a chance to climb over it? */ 72. return -1; 73. } 74. if (verysmall(uasmon)) { 75. if (Blind) feel_location(u.ux+u.dx,u.uy+u.dy); 76. pline("You're too small to push that %s.", xname(otmp)); 77. goto cannot_push; 78. } 79. if (isok(rx,ry) && !IS_ROCK(levl[rx][ry].typ) && 80. (!IS_DOOR(levl[rx][ry].typ) || !(u.dx && u.dy) || ( 81. #ifdef REINCARNATION 82. !Is_rogue_level(&u.uz) && 83. #endif 84. (levl[rx][ry].doormask & ~D_BROKEN) == D_NODOOR)) && 85. !sobj_at(BOULDER, rx, ry)) { 86. ttmp = t_at(rx, ry); 87. mtmp = m_at(rx, ry); 88. 89. if (revive_nasty(rx, ry, "You sense movement on the other side.")) 90. return (-1); 91. 92. if (mtmp && !noncorporeal(mtmp->data) && 93. (!mtmp->mtrapped || 94. !(ttmp && ((ttmp->ttyp == PIT) || 95. (ttmp->ttyp == SPIKED_PIT))))) { 96. if (canspotmon(mtmp)) 97. pline("There's %s on the other side.", mon_nam(mtmp)); 98. else { 99. if (Blind) feel_location(u.ux+u.dx,u.uy+u.dy); 100. You_hear("a monster behind %s.", the(xname(otmp))); 101. } 102. if (flags.verbose) 103. pline("Perhaps that's why you cannot move it."); 104. goto cannot_push; 105. } 106. 107. if (ttmp) 108. switch(ttmp->ttyp) { 109. case LANDMINE: 110. if (rn2(10)) { 111. pline("KAABLAMM!!! %s triggers %s land mine.", 112. The(xname(otmp)), 113. ttmp->madeby_u ? "your" : "a"); 114. obj_extract_self(otmp); 115. place_object(otmp, rx, ry); 116. deltrap(ttmp); 117. del_engr_at(rx,ry); 118. scatter(rx,ry, 4, MAY_DESTROY|MAY_HIT|MAY_FRACTURE|VIS_EFFECTS); 119. if (cansee(rx,ry)) newsym(rx,ry); 120. continue; 121. } 122. break; 123. case SPIKED_PIT: 124. case PIT: 125. obj_extract_self(otmp); 126. /* vision kludge to get messages right; 127. the pit will temporarily be seen even 128. if this is one among multiple boulders */ 129. if (!Blind) viz_array[ry][rx] |= IN_SIGHT; 130. if (!flooreffects(otmp, rx, ry, "fall")) { 131. place_object(otmp, rx, ry); 132. } 133. continue; 134. case HOLE: 135. case TRAPDOOR: 136. pline("%s %s and plugs a %s in the %s!", 137. The(xname(otmp)), 138. (ttmp->ttyp == TRAPDOOR) ? "triggers" : "falls into", 139. (ttmp->ttyp == TRAPDOOR) ? "trap door" : "hole", 140. surface(rx, ry)); 141. deltrap(ttmp); 142. delobj(otmp); 143. bury_objs(rx, ry); 144. if (cansee(rx,ry)) newsym(rx,ry); 145. continue; 146. case LEVEL_TELEP: 147. case TELEP_TRAP: 148. You("push %s and suddenly it disappears!", 149. the(xname(otmp))); 150. if (ttmp->ttyp == TELEP_TRAP) 151. rloco(otmp); 152. else { 153. int newlev = random_teleport_level(); 154. d_level dest; 155. 156. if (newlev == depth(&u.uz) || In_endgame(&u.uz)) 157. continue; 158. obj_extract_self(otmp); 159. add_to_migration(otmp); 160. get_level(&dest, newlev); 161. otmp->ox = dest.dnum; 162. otmp->oy = dest.dlevel; 163. otmp->owornmask = (long)MIGR_RANDOM; 164. } 165. seetrap(ttmp); 166. continue; 167. } 168. if (closed_door(rx, ry)) 169. goto nopushmsg; 170. if (boulder_hits_pool(otmp, rx, ry, TRUE)) 171. continue; 172. /* 173. * Re-link at top of fobj chain so that pile order is preserved 174. * when level is restored. 175. */ 176. if (otmp != fobj) { 177. remove_object(otmp); 178. place_object(otmp, otmp->ox, otmp->oy); 179. } 180. 181. { 182. #ifdef LINT /* static long lastmovetime; */ 183. long lastmovetime; 184. lastmovetime = 0; 185. #else 186. static NEARDATA long lastmovetime; 187. #endif 188. /* note: this var contains garbage initially and 189. after a restore */ 190. if (moves > lastmovetime+2 || moves < lastmovetime) 191. pline("With great effort you move %s.", the(xname(otmp))); 192. exercise(A_STR, TRUE); 193. lastmovetime = moves; 194. } 195. 196. /* Move the boulder *after* the message. */ 197. movobj(otmp, rx, ry); /* does newsym(rx,ry) */ 198. if (Blind) { 199. feel_location(rx,ry); 200. feel_location(u.ux+u.dx, u.uy+u.dy); 201. } else { 202. newsym(u.ux+u.dx, u.uy+u.dy); 203. } 204. } else { 205. nopushmsg: 206. You("try to move %s, but in vain.", the(xname(otmp))); 207. if (Blind) feel_location(u.ux+u.dx, u.uy+u.dy); 208. cannot_push: 209. if (throws_rocks(uasmon)) { 210. pline("However, you can easily %s.", 211. flags.pickup ? "pick it up" : "push it aside"); 212. break; 213. } 214. if (((!invent || inv_weight() <= -850) && 215. (!u.dx || !u.dy || (IS_ROCK(levl[u.ux][u.uy+u.dy].typ) 216. && IS_ROCK(levl[u.ux+u.dx][u.uy].typ)))) 217. || verysmall(uasmon)) { 218. pline("However, you can squeeze yourself into a small opening."); 219. break; 220. } else 221. return (-1); 222. } 223. } 224. return (0); 225. } 226. 227. /* 228. * still_chewing() 229. * 230. * Chew on a wall, door, or boulder. Returns TRUE if still eating, FALSE 231. * when done. 232. */ 233. STATIC_OVL int 234. still_chewing(x,y) 235. xchar x, y; 236. { 237. struct rm *lev = &levl[x][y]; 238. struct obj *boulder = sobj_at(BOULDER,x,y); 239. const char *digtxt = (char *)0, *dmgtxt = (char *)0; 240. 241. if (digging.down) /* not continuing previous dig (w/ pick-axe) */ 242. (void) memset((genericptr_t)&digging, 0, sizeof digging); 243. 244. if (!boulder && IS_ROCK(lev->typ) && !may_dig(x,y)) { 245. You("hurt your teeth on the hard stone."); 246. nomul(0); 247. return 1; 248. } else if (digging.pos.x != x || digging.pos.y != y || 249. !on_level(&digging.level, &u.uz)) { 250. digging.down = FALSE; 251. digging.chew = TRUE; 252. digging.pos.x = x; 253. digging.pos.y = y; 254. assign_level(&digging.level, &u.uz); 255. /* solid rock takes more work & time to dig through */ 256. digging.effort = (IS_ROCK(lev->typ) ? 30 : 60) + u.udaminc; 257. You("start chewing %s %s.", 258. boulder ? "on a" : "a hole in the", 259. boulder ? "boulder" : IS_ROCK(lev->typ) ? "rock" : "door"); 260. return 1; 261. } else if ((digging.effort += (30 + u.udaminc)) <= 100) { 262. if (flags.verbose) 263. You("%s chewing on the %s.", 264. digging.chew ? "continue" : "begin", 265. boulder ? "boulder" : IS_ROCK(lev->typ) ? "rock" : "door"); 266. digging.chew = TRUE; 267. return 1; 268. } 269. 270. if (boulder) { 271. delobj(boulder); /* boulder goes bye-bye */ 272. You("eat the boulder."); /* yum */ 273. 274. /* 275. * The location could still block because of 276. * 1. More than one boulder 277. * 2. Boulder stuck in a wall/stone/door. 278. * 279. * [perhaps use does_block() below (from vision.c)] 280. */ 281. if (IS_ROCK(lev->typ) || closed_door(x,y) || sobj_at(BOULDER,x,y)) { 282. block_point(x,y); /* delobj will unblock the point */ 283. /* reset dig state */ 284. (void) memset((genericptr_t)&digging, 0, sizeof digging); 285. return 1; 286. } 287. 288. } else if (IS_WALL(lev->typ)) { 289. if (*in_rooms(x, y, SHOPBASE)) { 290. add_damage(x, y, 10L * ACURRSTR); 291. dmgtxt = "damage"; 292. } 293. digtxt = "chew a hole in the wall."; 294. if (level.flags.is_maze_lev) { 295. lev->typ = ROOM; 296. } else if (level.flags.is_cavernous_lev) { 297. lev->typ = CORR; 298. } else { 299. lev->typ = DOOR; 300. lev->doormask = D_NODOOR; 301. } 302. } else if (lev->typ == SDOOR) { 303. if (lev->doormask & D_TRAPPED) { 304. lev->doormask = D_NODOOR; 305. b_trapped("secret door", 0); 306. } else { 307. digtxt = "chew through the secret door."; 308. lev->doormask = D_BROKEN; 309. } 310. lev->typ = DOOR; 311. 312. } else if (IS_DOOR(lev->typ)) { 313. if (*in_rooms(x, y, SHOPBASE)) { 314. add_damage(x, y, 400L); 315. dmgtxt = "break"; 316. } 317. if (lev->doormask & D_TRAPPED) { 318. lev->doormask = D_NODOOR; 319. b_trapped("door", 0); 320. } else { 321. digtxt = "chew through the door."; 322. lev->doormask = D_BROKEN; 323. } 324. 325. } else { /* STONE or SCORR */ 326. digtxt = "chew a passage through the rock."; 327. lev->typ = CORR; 328. } 329. 330. unblock_point(x, y); /* vision */ 331. newsym(x, y); 332. if (digtxt) You(digtxt); /* after newsym */ 333. if (dmgtxt) pay_for_damage(dmgtxt); 334. (void) memset((genericptr_t)&digging, 0, sizeof digging); 335. return 0; 336. } 337. 338. #endif /* OVL2 */ 339. #ifdef OVLB 340. 341. void 342. movobj(obj, ox, oy) 343. register struct obj *obj; 344. register xchar ox, oy; 345. { 346. /* optimize by leaving on the fobj chain? */ 347. remove_object(obj); 348. newsym(obj->ox, obj->oy); 349. place_object(obj, ox, oy); 350. newsym(ox, oy); 351. } 352. 353. #ifdef SINKS 354. static NEARDATA const char fell_on_sink[] = "fell onto a sink"; 355. 356. STATIC_OVL void 357. dosinkfall() 358. { 359. register struct obj *obj; 360. 361. if (is_floater(uasmon) || (HLevitation & FROMOUTSIDE)) { 362. You("wobble unsteadily for a moment."); 363. } else { 364. You("crash to the floor!"); 365. losehp((rn1(10, 20 - (int)ACURR(A_CON))), 366. fell_on_sink, NO_KILLER_PREFIX); 367. exercise(A_DEX, FALSE); 368. for(obj = level.objects[u.ux][u.uy]; obj; obj = obj->nexthere) 369. if(obj->oclass == WEAPON_CLASS) { 370. You("fell on %s.",doname(obj)); 371. losehp(rnd(3), fell_on_sink, NO_KILLER_PREFIX); 372. exercise(A_CON, FALSE); 373. } 374. } 375. 376. HLevitation &= ~(I_SPECIAL|W_ARTI|TIMEOUT); 377. HLevitation++; 378. if(uleft && uleft->otyp == RIN_LEVITATION) { 379. obj = uleft; 380. Ring_off(obj); 381. off_msg(obj); 382. } 383. if(uright && uright->otyp == RIN_LEVITATION) { 384. obj = uright; 385. Ring_off(obj); 386. off_msg(obj); 387. } 388. if(uarmf && uarmf->otyp == LEVITATION_BOOTS) { 389. obj = uarmf; 390. (void)Boots_off(); 391. off_msg(obj); 392. } 393. HLevitation--; 394. } 395. #endif 396. 397. boolean 398. may_dig(x,y) 399. register xchar x,y; 400. /* intended to be called only on ROCKs */ 401. { 402. return (boolean)(!(IS_STWALL(levl[x][y].typ) && 403. (levl[x][y].wall_info & W_NONDIGGABLE))); 404. } 405. 406. boolean 407. may_passwall(x,y) 408. register xchar x,y; 409. { 410. return (boolean)(!(IS_STWALL(levl[x][y].typ) && 411. (levl[x][y].wall_info & W_NONPASSWALL))); 412. } 413. 414. #endif /* OVLB */ 415. #ifdef OVL1 416. 417. boolean 418. bad_rock(mdat,x,y) 419. struct permonst *mdat; 420. register xchar x,y; 421. { 422. return((boolean)(IS_ROCK(levl[x][y].typ) 423. && (!tunnels(mdat) || needspick(mdat) || !may_dig(x,y)) 424. && !(passes_walls(mdat) && may_passwall(x,y)))); 425. } 426. 427. boolean 428. invocation_pos(x, y) 429. xchar x, y; 430. { 431. return((boolean)(Invocation_lev(&u.uz) && x == inv_pos.x && y == inv_pos.y)); 432. } 433. 434. #endif /* OVL1 */ 435. #ifdef OVL3 436. 437. void 438. domove() 439. { 440. register struct monst *mtmp; 441. register struct rm *tmpr,*ust; 442. register xchar x,y; 443. struct trap *trap; 444. int wtcap; 445. boolean on_ice; 446. xchar chainx, chainy, ballx, bally; /* ball&chain new positions */ 447. int bc_control; /* control for ball&chain */ 448. boolean cause_delay = FALSE; /* dragging ball will skip a move */ 449. 450. u_wipe_engr(rnd(5)); 451. 452. if(((wtcap = near_capacity()) >= OVERLOADED 453. || (wtcap > SLT_ENCUMBER && 454. (u.mtimedone ? (u.mh < 5 && u.mh != u.mhmax) 455. : (u.uhp < 10 && u.uhp != u.uhpmax)))) 456. && !Is_airlevel(&u.uz)) { 457. if(wtcap < OVERLOADED) { 458. You("don't have enough stamina to move."); 459. exercise(A_CON, FALSE); 460. } else 461. You("collapse under your load."); 462. nomul(0); 463. return; 464. } 465. if(u.uswallow) { 466. u.dx = u.dy = 0; 467. u.ux = x = u.ustuck->mx; 468. u.uy = y = u.ustuck->my; 469. mtmp = u.ustuck; 470. } else { 471. if (Is_airlevel(&u.uz) && rn2(4) && 472. !Levitation && !is_flyer(uasmon)) { 473. switch(rn2(3)) { 474. case 0: 475. You("tumble in place."); 476. exercise(A_DEX, FALSE); 477. break; 478. case 1: 479. You_cant("control your movements very well."); break; 480. case 2: 481. pline("It's hard to walk in thin air."); 482. exercise(A_DEX, TRUE); 483. break; 484. } 485. return; 486. } 487. 488. /* check slippery ice */ 489. on_ice = !Levitation && is_ice(u.ux, u.uy); 490. if (on_ice) { 491. static int skates = 0; 492. if (!skates) skates = find_skates(); 493. if ((uarmf && uarmf->otyp == skates) 494. || resists_cold(&youmonst) || is_flyer(uasmon) 495. || is_floater(uasmon) || is_clinger(uasmon) 496. || is_whirly(uasmon)) 497. on_ice = FALSE; 498. else if (!rn2(Cold_resistance ? 3 : 2)) { 499. Fumbling |= FROMOUTSIDE; 500. Fumbling &= ~TIMEOUT; 501. Fumbling += 1; /* slip on next move */ 502. } 503. } 504. if (!on_ice && (Fumbling & FROMOUTSIDE)) 505. Fumbling &= ~FROMOUTSIDE; 506. 507. x = u.ux + u.dx; 508. y = u.uy + u.dy; 509. if(Stunned || (Confusion && !rn2(5))) { 510. register int tries = 0; 511. 512. do { 513. if(tries++ > 50) { 514. nomul(0); 515. return; 516. } 517. confdir(); 518. x = u.ux + u.dx; 519. y = u.uy + u.dy; 520. } while(!isok(x, y) || bad_rock(uasmon, x, y)); 521. } 522. /* turbulence might alter your actual destination */ 523. if (u.uinwater) { 524. water_friction(); 525. if (!u.dx && !u.dy) { 526. nomul(0); 527. return; 528. } 529. x = u.ux + u.dx; 530. y = u.uy + u.dy; 531. } 532. if(!isok(x, y)) { 533. nomul(0); 534. return; 535. } 536. if((trap = t_at(x, y)) && trap->tseen) { 537. if(flags.run >= 2) { 538. nomul(0); 539. flags.move = 0; 540. return; 541. } else 542. nomul(0); 543. } 544. 545. if (u.ustuck && (x != u.ustuck->mx || y != u.ustuck->my)) { 546. if (distu(u.ustuck->mx, u.ustuck->my) > 2) { 547. /* perhaps it fled (or was teleported or ... ) */ 548. u.ustuck = 0; 549. } else if (sticks(uasmon)) { 550. /* When polymorphed into a sticking monster, 551. * u.ustuck means it's stuck to you, not you to it. 552. */ 553. You("release %s.", mon_nam(u.ustuck)); 554. u.ustuck = 0; 555. } else { 556. /* If holder is asleep or paralyzed: 557. * 37.5% chance of getting away, 558. * 12.5% chance of waking/releasing it; 559. * otherwise: 560. * 7.5% chance of getting away. 561. * [strength ought to be a factor] 562. */ 563. switch (rn2(!u.ustuck->mcanmove ? 8 : 40)) { 564. case 0: case 1: case 2: 565. You("pull free from %s.", mon_nam(u.ustuck)); 566. u.ustuck = 0; 567. break; 568. case 3: 569. if (!u.ustuck->mcanmove) { 570. /* it's free to move on next turn */ 571. u.ustuck->mfrozen = 1; 572. u.ustuck->msleep = 0; 573. } 574. /*FALLTHRU*/ 575. default: 576. You("cannot escape from %s!", mon_nam(u.ustuck)); 577. nomul(0); 578. return; 579. } 580. } 581. } 582. 583. mtmp = m_at(x,y); 584. if (mtmp) { 585. /* Don't attack if you're running, and can see it */ 586. if (flags.run && 587. ((!Blind && mon_visible(mtmp) && 588. ((mtmp->m_ap_type != M_AP_FURNITURE && 589. mtmp->m_ap_type != M_AP_OBJECT) || 590. Protection_from_shape_changers)) || 591. sensemon(mtmp))) { 592. nomul(0); 593. flags.move = 0; 594. return; 595. } 596. } 597. } 598. 599. u.ux0 = u.ux; 600. u.uy0 = u.uy; 601. bhitpos.x = x; 602. bhitpos.y = y; 603. tmpr = &levl[x][y]; 604. 605. /* attack monster */ 606. if(mtmp) { 607. nomul(0); 608. /* only attack if we know it's there */ 609. /* or if it hides_under, in which case we call attack() to print 610. * the Wait! message. 611. * This is different from ceiling hiders, who aren't handled in 612. * attack(). 613. */ 614. if(!mtmp->mundetected || sensemon(mtmp) || 615. ((hides_under(mtmp->data) || mtmp->data->mlet == S_EEL) && 616. !is_safepet(mtmp))){ 617. gethungry(); 618. if(wtcap >= HVY_ENCUMBER && moves%3) { 619. if(u.uhp > 1) 620. u.uhp--; 621. else { 622. You("pass out from exertion!"); 623. exercise(A_CON, FALSE); 624. fall_asleep(-10, FALSE); 625. } 626. } 627. if(multi < 0) return; /* we just fainted */ 628. 629. /* try to attack; note that it might evade */ 630. /* also, we don't attack tame when _safepet_ */ 631. if(attack(mtmp)) return; 632. } 633. } 634. 635. /* not attacking an animal, so we try to move */ 636. if(!uasmon->mmove) { 637. You("are rooted %s.", 638. Levitation || Is_airlevel(&u.uz) || Is_waterlevel(&u.uz) ? 639. "in place" : "to the ground"); 640. nomul(0); 641. return; 642. } 643. if(u.utrap) { 644. if(u.utraptype == TT_PIT) { 645. if (!rn2(2) && sobj_at(BOULDER, u.ux, u.uy)) { 646. Your("%s gets stuck in a crevice.", body_part(LEG)); 647. display_nhwindow(WIN_MESSAGE, FALSE); 648. clear_nhwindow(WIN_MESSAGE); 649. You("free your %s.", body_part(LEG)); 650. } else if (!(--u.utrap)) { 651. You("crawl to the edge of the pit."); 652. fill_pit(u.ux, u.uy); 653. vision_full_recalc = 1; /* vision limits change */ 654. } else if (flags.verbose) 655. Norep( (Hallucination && !rn2(5)) ? 656. "You've fallen, and you can't get up." : 657. "You are still in a pit." ); 658. } else if (u.utraptype == TT_LAVA) { 659. if(flags.verbose) 660. Norep("You are stuck in the lava."); 661. if(!is_lava(x,y)) { 662. u.utrap--; 663. if((u.utrap & 0xff) == 0) { 664. You("pull yourself to the edge of the lava."); 665. u.utrap = 0; 666. } 667. } 668. u.umoved = TRUE; 669. } else if (u.utraptype == TT_WEB) { 670. if(uwep && uwep->oartifact == ART_STING) { 671. u.utrap = 0; 672. pline("Sting cuts through the web!"); 673. return; 674. } 675. if(--u.utrap) { 676. if(flags.verbose) 677. Norep("You are stuck to the web."); 678. } else You("disentangle yourself."); 679. } else if (u.utraptype == TT_INFLOOR) { 680. if(--u.utrap) { 681. if(flags.verbose) 682. Norep("You are stuck in the floor."); 683. } else You("finally wiggle free."); 684. } else { 685. if(flags.verbose) 686. Norep("You are caught in a bear trap."); 687. if((u.dx && u.dy) || !rn2(5)) u.utrap--; 688. } 689. return; 690. } 691. 692. 693. /* 694. * Check for physical obstacles. First, the place we are going. 695. */ 696. if (IS_ROCK(tmpr->typ)) { 697. if (Blind) feel_location(x,y); 698. if (passes_walls(uasmon) && may_passwall(x,y)) { 699. ; /* do nothing */ 700. } else if (tunnels(uasmon) && !needspick(uasmon)) { 701. /* Eat the rock. */ 702. if (still_chewing(x,y)) return; 703. } else { 704. if (Is_stronghold(&u.uz) && is_db_wall(x,y)) 705. pline_The("drawbridge is up!"); 706. flags.move = 0; 707. nomul(0); 708. return; 709. } 710. } else if (IS_DOOR(tmpr->typ)) { 711. if (closed_door(x,y)) { 712. if (Blind) feel_location(x,y); 713. if (passes_walls(uasmon)) 714. ; /* do nothing */ 715. else if (amorphous(uasmon)) 716. You("ooze under the door."); 717. else if (tunnels(uasmon) && !needspick(uasmon)) { 718. /* Eat the door. */ 719. if (still_chewing(x,y)) return; 720. } else { 721. flags.move = 0; 722. if (x == u.ux || y == u.uy) { 723. if (Blind || Stunned || ACURR(A_DEX) < 10 || Fumbling) { 724. pline("Ouch! You bump into a door."); 725. exercise(A_DEX, FALSE); 726. } else pline("That door is closed."); 727. } 728. nomul(0); 729. return; 730. } 731. } else if (u.dx && u.dy && !passes_walls(uasmon) 732. && ((tmpr->doormask & ~D_BROKEN) 733. #ifdef REINCARNATION 734. || Is_rogue_level(&u.uz) 735. #endif 736. || block_door(x,y))) { 737. /* Diagonal moves into a door are not allowed. */ 738. if (Blind) feel_location(x,y); /* ?? */ 739. flags.move = 0; 740. nomul(0); 741. return; 742. } 743. } 744. if (u.dx && u.dy 745. && bad_rock(uasmon,u.ux,y) && bad_rock(uasmon,x,u.uy)) { 746. /* Move at a diagonal. */ 747. if (bigmonst(uasmon)) { 748. Your("body is too large to fit through."); 749. nomul(0); 750. return; 751. } 752. if (invent && (inv_weight() + weight_cap() > 600)) { 753. You("are carrying too much to get through."); 754. nomul(0); 755. return; 756. } 757. } 758. 759. ust = &levl[u.ux][u.uy]; 760. 761. /* Now see if other things block our way . . */ 762. if (u.dx && u.dy && !passes_walls(uasmon) 763. && (IS_DOOR(ust->typ) && ((ust->doormask & ~D_BROKEN) 764. #ifdef REINCARNATION 765. || Is_rogue_level(&u.uz) 766. #endif 767. || block_entry(x, y)) 768. )) { 769. /* Can't move at a diagonal out of a doorway with door. */ 770. flags.move = 0; 771. nomul(0); 772. return; 773. } 774. 775. if (sobj_at(BOULDER,x,y) && !passes_walls(uasmon)) { 776. if (!(Blind || Hallucination) && (flags.run >= 2)) { 777. nomul(0); 778. flags.move = 0; 779. return; 780. } 781. /* tunneling monsters will chew before pushing */ 782. if (tunnels(uasmon) && !needspick(uasmon)) { 783. if (still_chewing(x,y)) return; 784. } else 785. if (moverock() < 0) return; 786. } 787. 788. /* OK, it is a legal place to move. */ 789. 790. /* Move ball and chain. */ 791. if (Punished) 792. if (!drag_ball(x,y, &bc_control, &ballx, &bally, &chainx, &chainy, 793. &cause_delay)) 794. return; 795. 796. /* now move the hero */ 797. mtmp = m_at(x, y); 798. u.ux += u.dx; 799. u.uy += u.dy; 800. /* if safepet at destination then move the pet to the hero's 801. * previous location using the same conditions as in attack(). 802. * there are special extenuating circumstances: 803. * (1) if the pet dies then your god angers, 804. * (2) if the pet gets trapped then your god may disapprove, 805. * (3) if the pet was already trapped and you attempt to free it 806. * not only do you encounter the trap but you may frighten your 807. * pet causing it to go wild! moral: don't abuse this privilege. 808. */ 809. /* Ceiling-hiding pets are skipped by this section of code, to 810. * be caught by the normal falling-monster code. 811. */ 812. if (is_safepet(mtmp) && !(is_hider(mtmp->data) && mtmp->mundetected)) { 813. int swap_result; 814. 815. /* if trapped, there's a chance the pet goes wild */ 816. if (mtmp->mtrapped) { 817. if (!rn2(mtmp->mtame)) { 818. mtmp->mtame = mtmp->mpeaceful = mtmp->msleep = 0; 819. growl(mtmp); 820. } else { 821. yelp(mtmp); 822. } 823. } 824. 825. if (mtmp->m_ap_type) seemimic(mtmp); 826. else if (!mtmp->mtame) newsym(mtmp->mx, mtmp->my); 827. 828. mtmp->mtrapped = 0; 829. mtmp->mundetected = 0; 830. remove_monster(x, y); 831. place_monster(mtmp, u.ux0, u.uy0); 832. 833. /* check first to see if monster drowned. 834. * then check for traps. 835. */ 836. if (minwater(mtmp)) { 837. swap_result = 2; 838. } else swap_result = mintrap(mtmp); 839. 840. switch (swap_result) { 841. case 0: 842. You("%s %s.", mtmp->mtame ? "displaced" : "frightened", 843. mtmp->mnamelth ? NAME(mtmp) : mon_nam(mtmp)); 844. break; 845. case 1: /* trapped */ 846. case 3: /* changed levels */ 847. /* there's already been a trap message, reinforce it */ 848. abuse_dog(mtmp); 849. adjalign(-3); 850. break; 851. case 2: 852. /* it may have drowned or died. that's no way to 853. * treat a pet! your god gets angry. 854. */ 855. if (rn2(4)) { 856. You_feel("guilty about losing your pet like this."); 857. u.ugangr++; 858. adjalign(-15); 859. } 860. break; 861. default: 862. pline("that's strange, unknown mintrap result!"); 863. break; 864. } 865. } 866. 867. reset_occupations(); 868. if (flags.run) { 869. if (IS_DOOR(tmpr->typ) || IS_ROCK(tmpr->typ) || 870. IS_FURNITURE(tmpr->typ)) 871. nomul(0); 872. } 873. 874. if (hides_under(uasmon)) 875. u.uundetected = OBJ_AT(u.ux, u.uy); 876. else if (uasmon->mlet == S_EEL) 877. u.uundetected = is_pool(u.ux, u.uy) && !Is_waterlevel(&u.uz); 878. else if (u.dx || u.dy) { 879. if (u.usym == S_MIMIC_DEF) 880. u.usym = S_MIMIC; 881. u.uundetected = 0; 882. } 883. 884. check_leash(u.ux0,u.uy0); 885. 886. if(u.ux0 != u.ux || u.uy0 != u.uy) { 887. u.umoved = TRUE; 888. /* Clean old position -- vision_recalc() will print our new one. */ 889. newsym(u.ux0,u.uy0); 890. /* Since the hero has moved, adjust what can be seen/unseen. */ 891. vision_recalc(1); /* Do the work now in the recover time. */ 892. 893. /* a special clue-msg when on the Invocation position */ 894. if(invocation_pos(u.ux, u.uy) && !On_stairs(u.ux, u.uy)) { 895. struct obj *otmp = carrying(CANDELABRUM_OF_INVOCATION); 896. 897. You_feel("a strange vibration under your %s.", 898. makeplural(body_part(FOOT))); 899. if (otmp && otmp->spe == 7 && otmp->lamplit) 900. pline("%s %s!", The(xname(otmp)), 901. Blind ? "throbs palpably" : 902. "glows with a strange light"); 903. } 904. } 905. 906. if (Punished) /* put back ball and chain */ 907. move_bc(0,bc_control,ballx,bally,chainx,chainy); 908. 909. spoteffects(); 910. 911. /* delay next move because of ball dragging */ 912. /* must come after we finished picking up, in spoteffects() */ 913. if (cause_delay) { 914. nomul(-2); 915. nomovemsg = ""; 916. } 917. } 918. 919. #endif /* OVL3 */ 920. #ifdef OVL2 921. 922. void 923. spoteffects() 924. { 925. register struct trap *trap; 926. register struct monst *mtmp; 927. 928. if(u.uinwater) { 929. int was_underwater; 930. 931. if (!is_pool(u.ux,u.uy)) { 932. if (Is_waterlevel(&u.uz)) 933. You("pop into an air bubble."); 934. else if (is_lava(u.ux, u.uy)) 935. You("leave the water..."); /* oops! */ 936. else 937. You("are on solid %s again.", 938. is_ice(u.ux, u.uy) ? "ice" : "land"); 939. } 940. else if (Is_waterlevel(&u.uz)) 941. goto stillinwater; 942. else if (Levitation) 943. You("pop out of the water like a cork!"); 944. else if (is_flyer(uasmon)) 945. You("fly out of the water."); 946. else if (Wwalking) 947. You("slowly rise above the surface."); 948. else 949. goto stillinwater; 950. was_underwater = Underwater && !Is_waterlevel(&u.uz); 951. u.uinwater = 0; /* leave the water */ 952. if (was_underwater) { /* restore vision */ 953. docrt(); 954. vision_full_recalc = 1; 955. } 956. } 957. stillinwater:; 958. if (!Levitation && !u.ustuck && !is_flyer(uasmon)) { 959. /* limit recursive calls through teleds() */ 960. if(is_lava(u.ux,u.uy) && lava_effects()) 961. return; 962. if(is_pool(u.ux,u.uy) && !Wwalking && drown()) 963. return; 964. } 965. check_special_room(FALSE); 966. #ifdef SINKS 967. if(IS_SINK(levl[u.ux][u.uy].typ) && Levitation) 968. dosinkfall(); 969. #endif 970. pickup(1); 971. if ((trap = t_at(u.ux,u.uy)) != 0) 972. dotrap(trap); /* fall into pit, arrow trap, etc. */ 973. if((mtmp = m_at(u.ux, u.uy)) && !u.uswallow) { 974. mtmp->mundetected = mtmp->msleep = 0; 975. switch(mtmp->data->mlet) { 976. case S_PIERCER: 977. pline("%s suddenly drops from the %s!", 978. Amonnam(mtmp), ceiling(u.ux,u.uy)); 979. if(mtmp->mtame) /* jumps to greet you, not attack */ 980. ; 981. else if(uarmh) 982. pline("Its blow glances off your helmet."); 983. else if (u.uac + 3 <= rnd(20)) 984. You("are almost hit by %s!", 985. x_monnam(mtmp, 2, "falling", 1)); 986. else { 987. int dmg; 988. You("are hit by %s!", 989. x_monnam(mtmp, 2, "falling", 1)); 990. dmg = d(4,6); 991. if(Half_physical_damage) dmg = (dmg+1) / 2; 992. mdamageu(mtmp, dmg); 993. } 994. break; 995. default: /* monster surprises you. */ 996. if(mtmp->mtame) 997. pline("%s jumps near you from the %s.", 998. Amonnam(mtmp), ceiling(u.ux,u.uy)); 999. else if(mtmp->mpeaceful) { 1000. You("surprise %s!", 1001. Blind && !sensemon(mtmp) ? 1002. something : a_monnam(mtmp)); 1003. mtmp->mpeaceful = 0; 1004. } else 1005. pline("%s attacks you by surprise!", 1006. Amonnam(mtmp)); 1007. break; 1008. } 1009. mnexto(mtmp); /* have to move the monster */ 1010. } 1011. } 1012. 1013. STATIC_OVL boolean 1014. monstinroom(mdat,roomno) 1015. struct permonst *mdat; 1016. int roomno; 1017. { 1018. register struct monst *mtmp; 1019. 1020. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 1021. if(mtmp->data == mdat && 1022. index(in_rooms(mtmp->mx, mtmp->my, 0), roomno + ROOMOFFSET)) 1023. return(TRUE); 1024. return(FALSE); 1025. } 1026. 1027. char * 1028. in_rooms(x, y, typewanted) 1029. register xchar x, y; 1030. register int typewanted; 1031. { 1032. static char buf[5]; 1033. char rno, *ptr = &buf[4]; 1034. int typefound, min_x, min_y, max_x, max_y_offset, step; 1035. register struct rm *lev; 1036. 1037. #define goodtype(rno) (!typewanted || \ 1038. ((typefound = rooms[rno - ROOMOFFSET].rtype) == typewanted) || \ 1039. ((typewanted == SHOPBASE) && (typefound > SHOPBASE))) \ 1040. 1041. switch (rno = levl[x][y].roomno) { 1042. case NO_ROOM: 1043. return(ptr); 1044. case SHARED: 1045. step = 2; 1046. break; 1047. case SHARED_PLUS: 1048. step = 1; 1049. break; 1050. default: /* i.e. a regular room # */ 1051. if (goodtype(rno)) 1052. *(--ptr) = rno; 1053. return(ptr); 1054. } 1055. 1056. min_x = x - 1; 1057. max_x = x + 1; 1058. if (x < 1) 1059. min_x += step; 1060. else 1061. if (x >= COLNO) 1062. max_x -= step; 1063. 1064. min_y = y - 1; 1065. max_y_offset = 2; 1066. if (min_y < 0) { 1067. min_y += step; 1068. max_y_offset -= step; 1069. } else 1070. if ((min_y + max_y_offset) >= ROWNO) 1071. max_y_offset -= step; 1072. 1073. for (x = min_x; x <= max_x; x += step) { 1074. lev = &levl[x][min_y]; 1075. y = 0; 1076. if (((rno = lev[y].roomno) >= ROOMOFFSET) && 1077. !index(ptr, rno) && goodtype(rno)) 1078. *(--ptr) = rno; 1079. y += step; 1080. if (y > max_y_offset) 1081. continue; 1082. if (((rno = lev[y].roomno) >= ROOMOFFSET) && 1083. !index(ptr, rno) && goodtype(rno)) 1084. *(--ptr) = rno; 1085. y += step; 1086. if (y > max_y_offset) 1087. continue; 1088. if (((rno = lev[y].roomno) >= ROOMOFFSET) && 1089. !index(ptr, rno) && goodtype(rno)) 1090. *(--ptr) = rno; 1091. } 1092. return(ptr); 1093. } 1094. 1095. static void 1096. move_update(newlev) 1097. register boolean newlev; 1098. { 1099. char *ptr1, *ptr2, *ptr3, *ptr4; 1100. 1101. Strcpy(u.urooms0, u.urooms); 1102. Strcpy(u.ushops0, u.ushops); 1103. if (newlev) { 1104. u.urooms[0] = '\0'; 1105. u.uentered[0] = '\0'; 1106. u.ushops[0] = '\0'; 1107. u.ushops_entered[0] = '\0'; 1108. Strcpy(u.ushops_left, u.ushops0); 1109. return; 1110. } 1111. Strcpy(u.urooms, in_rooms(u.ux, u.uy, 0)); 1112. 1113. for (ptr1 = &u.urooms[0], 1114. ptr2 = &u.uentered[0], 1115. ptr3 = &u.ushops[0], 1116. ptr4 = &u.ushops_entered[0]; 1117. *ptr1; ptr1++) { 1118. if (!index(u.urooms0, *ptr1)) 1119. *(ptr2++) = *ptr1; 1120. if (IS_SHOP(*ptr1 - ROOMOFFSET)) { 1121. *(ptr3++) = *ptr1; 1122. if (!index(u.ushops0, *ptr1)) 1123. *(ptr4++) = *ptr1; 1124. } 1125. } 1126. *ptr2 = '\0'; 1127. *ptr3 = '\0'; 1128. *ptr4 = '\0'; 1129. 1130. /* filter u.ushops0 -> u.ushops_left */ 1131. for (ptr1 = &u.ushops0[0], ptr2 = &u.ushops_left[0]; *ptr1; ptr1++) 1132. if (!index(u.ushops, *ptr1)) 1133. *(ptr2++) = *ptr1; 1134. *ptr2 = '\0'; 1135. } 1136. 1137. void 1138. check_special_room(newlev) 1139. register boolean newlev; 1140. { 1141. register struct monst *mtmp; 1142. char *ptr; 1143. 1144. move_update(newlev); 1145. 1146. if (*u.ushops0) 1147. u_left_shop(u.ushops_left, newlev); 1148. 1149. if (!*u.uentered && !*u.ushops_entered) /* implied by newlev */ 1150. return; /* no entrance messages necessary */ 1151. 1152. /* Did we just enter a shop? */ 1153. if (*u.ushops_entered) 1154. u_entered_shop(u.ushops_entered); 1155. 1156. for (ptr = &u.uentered[0]; *ptr; ptr++) { 1157. register int roomno = *ptr - ROOMOFFSET, rt = rooms[roomno].rtype; 1158. 1159. /* Did we just enter some other special room? */ 1160. /* vault.c insists that a vault remain a VAULT, 1161. * and temples should remain TEMPLEs, 1162. * but everything else gives a message only the first time */ 1163. switch (rt) { 1164. case ZOO: 1165. pline("Welcome to David's treasure zoo!"); 1166. break; 1167. case SWAMP: 1168. pline("It %s rather %s down here.", 1169. Blind ? "feels" : "looks", 1170. Blind ? "humid" : "muddy"); 1171. break; 1172. case COURT: 1173. You("enter an opulent throne room!"); 1174. break; 1175. case MORGUE: 1176. if(midnight()) { 1177. const char *run = locomotion(uasmon, "Run"); 1178. pline("%s away! %s away!", run, run); 1179. } else 1180. You("have an uncanny feeling..."); 1181. break; 1182. case BEEHIVE: 1183. You("enter a giant beehive!"); 1184. break; 1185. case BARRACKS: 1186. if(monstinroom(&mons[PM_SOLDIER], roomno) || 1187. monstinroom(&mons[PM_SERGEANT], roomno) || 1188. monstinroom(&mons[PM_LIEUTENANT], roomno) || 1189. monstinroom(&mons[PM_CAPTAIN], roomno)) 1190. You("enter a military barracks!"); 1191. else 1192. You("enter an abandoned barracks."); 1193. break; 1194. case DELPHI: 1195. if(monstinroom(&mons[PM_ORACLE], roomno)) 1196. verbalize("Hello, %s, welcome to Delphi!", plname); 1197. break; 1198. case TEMPLE: 1199. intemple(roomno + ROOMOFFSET); 1200. /* fall through */ 1201. default: 1202. rt = 0; 1203. } 1204. 1205. if (rt != 0) { 1206. rooms[roomno].rtype = OROOM; 1207. if (!search_special(rt)) { 1208. /* No more room of that type */ 1209. switch(rt) { 1210. case COURT: 1211. level.flags.has_court = 0; 1212. break; 1213. case SWAMP: 1214. level.flags.has_swamp = 0; 1215. break; 1216. case MORGUE: 1217. level.flags.has_morgue = 0; 1218. break; 1219. case ZOO: 1220. level.flags.has_zoo = 0; 1221. break; 1222. case BARRACKS: 1223. level.flags.has_barracks = 0; 1224. break; 1225. case TEMPLE: 1226. level.flags.has_temple = 0; 1227. break; 1228. case BEEHIVE: 1229. level.flags.has_beehive = 0; 1230. break; 1231. } 1232. } 1233. if(rt==COURT || rt==SWAMP || rt==MORGUE || rt==ZOO) 1234. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 1235. if(!Stealth && !rn2(3)) 1236. mtmp->msleep = 0; 1237. } 1238. } 1239. 1240. return; 1241. } 1242. 1243. #endif /* OVL2 */ 1244. #ifdef OVLB 1245. 1246. int 1247. dopickup() 1248. { 1249. int count; 1250. /* awful kludge to work around parse()'s pre-decrement */ 1251. count = (multi || (save_cm && *save_cm == ',')) ? multi + 1 : 0; 1252. multi = 0; /* always reset */ 1253. /* uswallow case added by GAN 01/29/87 */ 1254. if(u.uswallow) { 1255. if (is_animal(u.ustuck->data)) { 1256. You("pick up %s tongue.", 1257. s_suffix(mon_nam(u.ustuck))); 1258. pline("But it's kind of slimy, so you drop it."); 1259. } else 1260. You("don't %s anything in here to pick up.", 1261. Blind ? "feel" : "see"); 1262. return(1); 1263. } 1264. if(is_pool(u.ux, u.uy)) { 1265. if (Wwalking || is_flyer(uasmon) || is_clinger(uasmon)) { 1266. You("cannot dive into the water to pick things up."); 1267. return(1); 1268. } else if (!Underwater) { 1269. You_cant("even see the bottom, let alone pick up %s.", 1270. something); 1271. return(1); 1272. } 1273. } 1274. if(!OBJ_AT(u.ux, u.uy)) { 1275. pline("There is nothing here to pick up."); 1276. return(0); 1277. } 1278. if (!can_reach_floor()) { 1279. You("cannot reach the %s.", surface(u.ux,u.uy)); 1280. return(1); 1281. } 1282. pickup(-count); 1283. return(1); 1284. } 1285. 1286. #endif /* OVLB */ 1287. #ifdef OVL2 1288. 1289. /* stop running if we see something interesting */ 1290. /* turn around a corner if that is the only way we can proceed */ 1291. /* do not turn left or right twice */ 1292. void 1293. lookaround() 1294. { 1295. register int x, y, i, x0 = 0, y0 = 0, m0 = 1, i0 = 9; 1296. register int corrct = 0, noturn = 0; 1297. register struct monst *mtmp; 1298. register struct trap *trap; 1299. 1300. /* Grid bugs stop if trying to move diagonal, even if blind. Maybe */ 1301. /* they polymorphed while in the middle of a long move. */ 1302. if (u.umonnum == PM_GRID_BUG && u.dx && u.dy) { 1303. nomul(0); 1304. return; 1305. } 1306. 1307. if(Blind || flags.run == 0) return; 1308. for(x = u.ux-1; x <= u.ux+1; x++) for(y = u.uy-1; y <= u.uy+1; y++) { 1309. if(!isok(x,y)) continue; 1310. 1311. if(u.umonnum == PM_GRID_BUG && x != u.ux && y != u.uy) continue; 1312. 1313. if(x == u.ux && y == u.uy) continue; 1314. 1315. if((mtmp = m_at(x,y)) && 1316. mtmp->m_ap_type != M_AP_FURNITURE && 1317. mtmp->m_ap_type != M_AP_OBJECT && 1318. (!mtmp->minvis || See_invisible) && !mtmp->mundetected) { 1319. if((flags.run != 1 && !mtmp->mtame) 1320. || (x == u.ux+u.dx && y == u.uy+u.dy)) 1321. goto stop; 1322. } 1323. 1324. if (levl[x][y].typ == STONE) continue; 1325. if (x == u.ux-u.dx && y == u.uy-u.dy) continue; 1326. 1327. if (IS_ROCK(levl[x][y].typ) || (levl[x][y].typ == ROOM) || 1328. IS_AIR(levl[x][y].typ)) 1329. continue; 1330. else if (closed_door(x,y)) { 1331. if(x != u.ux && y != u.uy) continue; 1332. if(flags.run != 1) goto stop; 1333. goto bcorr; 1334. } else if (levl[x][y].typ == CORR) { 1335. bcorr: 1336. if(levl[u.ux][u.uy].typ != ROOM) { 1337. if(flags.run == 1 || flags.run == 3) { 1338. i = dist2(x,y,u.ux+u.dx,u.uy+u.dy); 1339. if(i > 2) continue; 1340. if(corrct == 1 && dist2(x,y,x0,y0) != 1) 1341. noturn = 1; 1342. if(i < i0) { 1343. i0 = i; 1344. x0 = x; 1345. y0 = y; 1346. m0 = mtmp ? 1 : 0; 1347. } 1348. } 1349. corrct++; 1350. } 1351. continue; 1352. } else if ((trap = t_at(x,y)) && trap->tseen) { 1353. if(flags.run == 1) goto bcorr; /* if you must */ 1354. if(x == u.ux+u.dx && y == u.uy+u.dy) goto stop; 1355. continue; 1356. } else if (is_pool(x,y) || is_lava(x,y)) { 1357. /* water and lava only stop you if directly in front, and stop 1358. * you even if you are running 1359. */ 1360. if(!Levitation && !is_flyer(uasmon) && !is_clinger(uasmon) && 1361. x == u.ux+u.dx && y == u.uy+u.dy) 1362. /* No Wwalking check; otherwise they'd be able 1363. * to test boots by trying to SHIFT-direction 1364. * into a pool and seeing if the game allowed it 1365. */ 1366. goto stop; 1367. continue; 1368. } else { /* e.g. objects or trap or stairs */ 1369. if(flags.run == 1) goto bcorr; 1370. if(mtmp) continue; /* d */ 1371. if(((x == u.ux - u.dx) && (y != u.uy + u.dy)) || 1372. ((y == u.uy - u.dy) && (x != u.ux + u.dx))) 1373. continue; 1374. } 1375. stop: 1376. nomul(0); 1377. return; 1378. } /* end for loops */ 1379. 1380. if(corrct > 1 && flags.run == 2) goto stop; 1381. if((flags.run == 1 || flags.run == 3) && !noturn && !m0 && i0 && 1382. (corrct == 1 || (corrct == 2 && i0 == 1))) { 1383. /* make sure that we do not turn too far */ 1384. if(i0 == 2) { 1385. if(u.dx == y0-u.uy && u.dy == u.ux-x0) 1386. i = 2; /* straight turn right */ 1387. else 1388. i = -2; /* straight turn left */ 1389. } else if(u.dx && u.dy) { 1390. if((u.dx == u.dy && y0 == u.uy) || (u.dx != u.dy && y0 != u.uy)) 1391. i = -1; /* half turn left */ 1392. else 1393. i = 1; /* half turn right */ 1394. } else { 1395. if((x0-u.ux == y0-u.uy && !u.dy) || (x0-u.ux != y0-u.uy && u.dy)) 1396. i = 1; /* half turn right */ 1397. else 1398. i = -1; /* half turn left */ 1399. } 1400. 1401. i += u.last_str_turn; 1402. if(i <= 2 && i >= -2) { 1403. u.last_str_turn = i; 1404. u.dx = x0-u.ux; 1405. u.dy = y0-u.uy; 1406. } 1407. } 1408. } 1409. 1410. /* something like lookaround, but we are not running */ 1411. /* react only to monsters that might hit us */ 1412. int 1413. monster_nearby() 1414. { 1415. register int x,y; 1416. register struct monst *mtmp; 1417. 1418. /* Also see the similar check in dochugw() in monmove.c */ 1419. for(x = u.ux-1; x <= u.ux+1; x++) 1420. for(y = u.uy-1; y <= u.uy+1; y++) { 1421. if(!isok(x,y)) continue; 1422. if(x == u.ux && y == u.uy) continue; 1423. if((mtmp = m_at(x,y)) && 1424. mtmp->m_ap_type != M_AP_FURNITURE && 1425. mtmp->m_ap_type != M_AP_OBJECT && 1426. (!mtmp->mpeaceful || Hallucination) && 1427. (!is_hider(mtmp->data) || !mtmp->mundetected) && 1428. !noattacks(mtmp->data) && 1429. mtmp->mcanmove && !mtmp->msleep && /* aplvax!jcn */ 1430. !onscary(u.ux, u.uy, mtmp) && 1431. canspotmon(mtmp)) 1432. return(1); 1433. } 1434. return(0); 1435. } 1436. 1437. void 1438. nomul(nval) 1439. register int nval; 1440. { 1441. if(multi < nval) return; /* This is a bug fix by ab@unido */ 1442. u.uinvulnerable = FALSE; /* Kludge to avoid ctrl-C bug -dlc */ 1443. u.usleep = 0; 1444. multi = nval; 1445. flags.mv = flags.run = 0; 1446. } 1447. 1448. /* called when a non-movement, multi-turn action has completed */ 1449. void unmul(msg_override) 1450. const char *msg_override; 1451. { 1452. multi = 0; /* caller will usually have done this already */ 1453. if (msg_override) nomovemsg = msg_override; 1454. else if (!nomovemsg) nomovemsg = "You can move again."; 1455. if (*nomovemsg) pline(nomovemsg); 1456. nomovemsg = 0; 1457. u.usleep = 0; 1458. if (afternmv) (*afternmv)(); 1459. afternmv = 0; 1460. } 1461. 1462. #endif /* OVL2 */ 1463. #ifdef OVL1 1464. 1465. void 1466. losehp(n, knam, k_format) 1467. register int n; 1468. register const char *knam; 1469. boolean k_format; 1470. { 1471. if (u.mtimedone) { 1472. u.mh -= n; 1473. if (u.mhmax < u.mh) u.mhmax = u.mh; 1474. flags.botl = 1; 1475. if (u.mh < 1) rehumanize(); 1476. return; 1477. } 1478. 1479. u.uhp -= n; 1480. if(u.uhp > u.uhpmax) 1481. u.uhpmax = u.uhp; /* perhaps n was negative */ 1482. flags.botl = 1; 1483. if(u.uhp < 1) { 1484. killer_format = k_format; 1485. killer = knam; /* the thing that killed you */ 1486. You("die..."); 1487. done(DIED); 1488. } else if(u.uhp*10 < u.uhpmax && moves-wailmsg > 50 && n > 0){ 1489. wailmsg = moves; 1490. if (Role_is('W') || Role_is('E') || Role_is('V')) { 1491. if (u.uhp == 1) 1492. pline("%s is about to die.", pl_character); 1493. else if (4 <= (!!(HTeleportation & INTRINSIC)) + 1494. (!!(HSee_invisible & INTRINSIC)) + 1495. (!!(HPoison_resistance & INTRINSIC)) + 1496. (!!(HCold_resistance & INTRINSIC)) + 1497. (!!(HShock_resistance & INTRINSIC)) + 1498. (!!(HFire_resistance & INTRINSIC)) + 1499. (!!(HSleep_resistance & INTRINSIC)) + 1500. (!!(HDisint_resistance & INTRINSIC)) + 1501. (!!(HTeleport_control & INTRINSIC)) + 1502. (!!(Stealth & INTRINSIC)) + 1503. (!!(Fast & INTRINSIC)) + 1504. (!!(HInvis & INTRINSIC))) 1505. pline("%s, all your powers will be lost...", 1506. pl_character); 1507. else 1508. pline("%s, your life force is running out.", 1509. pl_character); 1510. } else { 1511. if(u.uhp == 1) 1512. You_hear("the wailing of the Banshee..."); 1513. else 1514. You_hear("the howling of the CwnAnnwn..."); 1515. } 1516. } 1517. } 1518. 1519. int 1520. weight_cap() 1521. { 1522. register long carrcap; 1523. 1524. carrcap = (((ACURRSTR + ACURR(A_CON))/2)+1)*50; 1525. if (u.mtimedone) { 1526. /* consistent with can_carry() in mon.c */ 1527. if (u.usym == S_NYMPH) 1528. carrcap = MAX_CARR_CAP; 1529. else if (!uasmon->cwt) 1530. carrcap = (carrcap * (long)uasmon->msize) / MZ_HUMAN; 1531. else if (!strongmonst(uasmon) 1532. || (strongmonst(uasmon) && (uasmon->cwt > WT_HUMAN))) 1533. carrcap = (carrcap * (long)uasmon->cwt / WT_HUMAN); 1534. } 1535. 1536. if(Levitation || Is_airlevel(&u.uz)) /* pugh@cornell */ 1537. carrcap = MAX_CARR_CAP; 1538. else { 1539. if(carrcap > MAX_CARR_CAP) carrcap = MAX_CARR_CAP; 1540. if (!is_flyer(uasmon)) { 1541. if(Wounded_legs & LEFT_SIDE) carrcap -= 100; 1542. if(Wounded_legs & RIGHT_SIDE) carrcap -= 100; 1543. } 1544. if (carrcap < 0) carrcap = 0; 1545. } 1546. return((int) carrcap); 1547. } 1548. 1549. static int wc; /* current weight_cap(); valid after call to inv_weight() */ 1550. 1551. /* returns how far beyond the normal capacity the player is currently. */ 1552. /* inv_weight() is negative if the player is below normal capacity. */ 1553. int 1554. inv_weight() 1555. { 1556. register struct obj *otmp = invent; 1557. register int wt; 1558. 1559. /* when putting stuff into containers, gold is inserted at the head 1560. of invent for easier manipulation by askchain & co, but it's also 1561. retained in u.ugold in order to keep the status line accurate; we 1562. mustn't add its weight in twice under that circumstance */ 1563. wt = (otmp && otmp->oclass == GOLD_CLASS) ? 0 : 1564. (int)((u.ugold + 50L) / 100L); 1565. 1566. while (otmp) { 1567. if (otmp->otyp != BOULDER || !throws_rocks(uasmon)) 1568. wt += otmp->owt; 1569. otmp = otmp->nobj; 1570. } 1571. wc = weight_cap(); 1572. return (wt - wc); 1573. } 1574. 1575. /* 1576. * Returns 0 if below normal capacity, or the number of "capacity units" 1577. * over the normal capacity the player is loaded. Max is 5. 1578. */ 1579. int 1580. calc_capacity(xtra_wt) 1581. int xtra_wt; 1582. { 1583. int cap, wt = inv_weight() + xtra_wt; 1584. 1585. if (wt <= 0) return UNENCUMBERED; 1586. if (wc <= 1) return OVERLOADED; 1587. cap = (wt*2 / wc) + 1; 1588. return min(cap, OVERLOADED); 1589. } 1590. 1591. int 1592. near_capacity() 1593. { 1594. return calc_capacity(0); 1595. } 1596. 1597. int 1598. max_capacity() 1599. { 1600. int wt = inv_weight(); 1601. 1602. return (wt - (2 * wc)); 1603. } 1604. 1605. boolean 1606. check_capacity(str) 1607. const char *str; 1608. { 1609. if(near_capacity() >= EXT_ENCUMBER) { 1610. if(str) 1611. pline(str); 1612. else 1613. You_cant("do that while carrying so much stuff."); 1614. return 1; 1615. } 1616. return 0; 1617. } 1618. 1619. #endif /* OVL1 */ 1620. #ifdef OVLB 1621. 1622. int 1623. inv_cnt() 1624. { 1625. register struct obj *otmp = invent; 1626. register int ct = 0; 1627. 1628. while(otmp){ 1629. ct++; 1630. otmp = otmp->nobj; 1631. } 1632. return(ct); 1633. } 1634. 1635. #endif /* OVLB */ 1636. 1637. /*hack.c*/
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)