Source:NetHack 2.3e/do.c
Jump to navigation
Jump to search
Below is the full text to do.c from the source code of NetHack 2.3e.
Warning! This is the source code from an old release. For newer releases, see Source code
Screenshots and source code from Hack are used under the CWI license.
1. /* SCCS Id: @(#)do.c 2.3 88/02/11 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. 4. /* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */ 5. 6. #include "hack.h" 7. 8. extern struct obj *splitobj(), *addinv(); 9. extern boolean hmon(); 10. extern boolean level_exists[]; 11. extern struct monst youmonst; 12. extern char *Doname(); 13. extern char *nomovemsg; 14. int identify(); 15. #ifdef KAA 16. extern char *xname(); 17. #endif 18. 19. dodrop() { 20. if(u.ugold) return(drop(getobj("0$#", "drop"))); 21. else return(drop(getobj("0#", "drop"))); 22. } 23. 24. static 25. drop(obj) register struct obj *obj; { 26. if(!obj) return(0); 27. if(obj->olet == GOLD_SYM) { /* pseudo object */ 28. register long amount = OGOLD(obj); 29. 30. if(amount == 0) 31. pline("You didn't drop any gold pieces."); 32. /* Fix bug with dropping huge amounts of gold read as negative KAA */ 33. else if(amount < 0) { 34. u.ugold += amount; 35. pline("The LRS would be very interested to know you have that much."); 36. } else { 37. /* uswallow test added by GAN 01/29/87 */ 38. pline("You dropped %ld gold piece%s.", 39. amount, plur(amount)); 40. if(u.uswallow) 41. (u.ustuck)->mgold += amount; 42. else { 43. mkgold(amount, u.ux, u.uy); 44. if(Invisible) newsym(u.ux, u.uy); 45. } 46. } 47. free((char *) obj); 48. return(1); 49. } 50. if(obj->owornmask & (W_ARMOR | W_RING | W_TOOL)){ 51. pline("You cannot drop something you are wearing."); 52. return(0); 53. } 54. if(obj == uwep) { 55. if(uwep->cursed) { 56. pline("Your weapon is welded to your hand!"); 57. return(0); 58. } 59. setuwep((struct obj *) 0); 60. } 61. #ifdef WALKIES 62. if (obj->otyp == LEASH) { 63. register struct monst *mtmp = fmon; 64. while (mtmp && !mtmp->mleashed) mtmp = mtmp->nmon; 65. if (mtmp) { 66. pline ("Your leash is tied around your hand."); 67. return (0); 68. } 69. } 70. #endif 71. #ifdef SINKS 72. if((obj->olet == RING_SYM) && IS_SINK(levl[u.ux][u.uy].typ)) 73. if (u.uswallow) { 74. freeinv(obj); 75. mpickobj(u.ustuck,obj); 76. return(1); 77. } 78. else { 79. dosinkring(obj); 80. return(1); 81. } 82. #endif 83. pline("You dropped %s.", doname(obj)); 84. dropx(obj); 85. return(1); 86. } 87. 88. /* Called in several places - should not produce texts */ 89. dropx(obj) 90. register struct obj *obj; 91. { 92. freeinv(obj); 93. dropy(obj); 94. } 95. 96. dropy(obj) 97. register struct obj *obj; 98. { 99. if(obj->otyp == CRYSKNIFE) 100. obj->otyp = WORM_TOOTH; 101. /* uswallow check done by GAN 01/29/87 */ 102. if(u.uswallow) 103. mpickobj(u.ustuck,obj); 104. else { 105. obj->ox = u.ux; 106. obj->oy = u.uy; 107. /* Blind check added by GAN 02/18/87 */ 108. if(Blind) { 109. #ifdef KAA 110. if(obj->olet != ')') 111. #endif 112. obj->dknown = index("/=!?*",obj->olet) ? 0 : 1; 113. obj->known = 0; 114. } 115. obj->nobj = fobj; 116. fobj = obj; 117. if(Invisible) newsym(u.ux,u.uy); 118. subfrombill(obj); 119. stackobj(obj); 120. } 121. } 122. 123. /* drop several things */ 124. doddrop() { 125. return(ggetobj("drop", drop, 0)); 126. } 127. 128. dodown() 129. { 130. if(u.ux != xdnstair || u.uy != ydnstair) { 131. pline("You can't go down here."); 132. return(0); 133. } 134. if(u.ustuck) { 135. pline("You are being held, and cannot go down."); 136. return(1); 137. } 138. if(Levitation) { 139. pline("Your floating high above the stairs."); 140. return(0); 141. } 142. 143. goto_level(dlevel+1, TRUE); 144. return(1); 145. } 146. 147. doup() 148. { 149. if(u.ux != xupstair || u.uy != yupstair) { 150. pline("You can't go up here."); 151. return(0); 152. } 153. if(u.ustuck) { 154. pline("You are being held, and cannot go up."); 155. return(1); 156. } 157. if(!Levitation && inv_weight() + 5 > 0) { 158. pline("Your load is too heavy to climb the stairs."); 159. return(1); 160. } 161. 162. goto_level(dlevel-1, TRUE); 163. return(1); 164. } 165. 166. goto_level(newlevel, at_stairs) 167. register int newlevel; 168. register boolean at_stairs; 169. { 170. register fd; 171. register boolean up = (newlevel < dlevel); 172. 173. if(newlevel <= 0) done("escaped"); /* in fact < 0 is impossible */ 174. if(newlevel > MAXLEVEL) newlevel = MAXLEVEL; /* strange ... */ 175. if(newlevel == dlevel) return; /* this can happen */ 176. 177. glo(dlevel); 178. #ifdef DGK 179. /* Use O_TRUNC to force the file to be shortened if it already 180. * exists and is currently longer. 181. */ 182. fd = open(lock, O_WRONLY | O_BINARY | O_CREAT | O_TRUNC, FMASK); 183. #else 184. fd = creat(lock, FMASK); 185. #endif 186. if(fd < 0) { 187. /* 188. * This is not quite impossible: e.g., we may have 189. * exceeded our quota. If that is the case then we 190. * cannot leave this level, and cannot save either. 191. * Another possibility is that the directory was not 192. * writable. 193. */ 194. #ifdef DGK 195. pline("Cannot create level file '%s'.", lock); 196. #else 197. pline("A mysterious force prevents you from going %s.", 198. up ? "up" : "down"); 199. #endif 200. return; 201. } 202. 203. #ifdef DGK 204. if (!savelev(fd, dlevel, COUNT)) { 205. (void) close(fd); 206. (void) unlink(lock); 207. pline("HACK is out of disk space for making levels!"); 208. pline("You can save, quit, or continue playing."); 209. return; 210. } 211. #endif 212. if(Punished) unplacebc(); 213. u.utrap = 0; /* needed in level_tele */ 214. u.ustuck = 0; /* idem */ 215. keepdogs(); 216. seeoff(1); 217. if(u.uswallow) /* idem */ 218. u.uswldtim = u.uswallow = 0; 219. flags.nscrinh = 1; 220. u.ux = FAR; /* hack */ 221. (void) inshop(); /* probably was a trapdoor */ 222. 223. #ifdef DGK 224. savelev(fd,dlevel, WRITE); 225. #else 226. savelev(fd,dlevel); 227. #endif 228. (void) close(fd); 229. 230. dlevel = newlevel; 231. if(maxdlevel < dlevel) 232. maxdlevel = dlevel; 233. glo(dlevel); 234. #ifdef MSDOS 235. /* If the level has no where yet, it hasn't been made 236. */ 237. if(!fileinfo[dlevel].where) 238. #else 239. if(!level_exists[dlevel]) 240. #endif 241. mklev(); 242. else { 243. extern int hackpid; 244. #ifdef DGK 245. /* If not currently accessible, swap it in. 246. */ 247. if (fileinfo[dlevel].where != ACTIVE) 248. swapin_file(dlevel); 249. 250. if((fd = open(lock, O_RDONLY | O_BINARY)) < 0) { 251. #else 252. if((fd = open(lock,0)) < 0) { 253. #endif 254. pline("Cannot open %s .", lock); 255. pline("Probably someone removed it."); 256. done("tricked"); 257. } 258. getlev(fd, hackpid, dlevel); 259. (void) close(fd); 260. } 261. 262. if(at_stairs) { 263. if(up) { 264. u.ux = xdnstair; 265. u.uy = ydnstair; 266. if(!u.ux) { /* entering a maze from below? */ 267. u.ux = xupstair; /* this will confuse the player! */ 268. u.uy = yupstair; 269. } 270. /* Remove bug which crashes with levitation/punishment KAA */ 271. if(Punished) { 272. if(!Levitation) 273. pline("With great effort you climb the stairs."); 274. placebc(1); 275. } 276. } else { 277. u.ux = xupstair; 278. u.uy = yupstair; 279. if(inv_weight() + 5 > 0 || Punished){ 280. pline("You fall down the stairs."); /* %% */ 281. losehp(rnd(3), "fall"); 282. if(Punished) { 283. if(uwep != uball && rn2(3)){ 284. pline("... and are hit by the iron ball."); 285. losehp(rnd(20), "iron ball"); 286. } 287. placebc(1); 288. } 289. selftouch("Falling, you"); 290. } 291. } 292. { register struct monst *mtmp = m_at(u.ux, u.uy); 293. if(mtmp) 294. mnexto(mtmp); 295. } 296. } else { /* trapdoor or level_tele */ 297. do { 298. u.ux = rnd(COLNO-1); 299. u.uy = rn2(ROWNO); 300. } while(levl[u.ux][u.uy].typ != ROOM || 301. m_at(u.ux,u.uy)); 302. if(Punished){ 303. if(uwep != uball && !up /* %% */ && rn2(5)){ 304. pline("The iron ball falls on your head."); 305. losehp(rnd(25), "iron ball"); 306. } 307. placebc(1); 308. } 309. selftouch("Falling, you"); 310. } 311. (void) inshop(); 312. initrack(); 313. 314. losedogs(); 315. { register struct monst *mtmp; 316. if(mtmp = m_at(u.ux, u.uy)) mnexto(mtmp); /* riv05!a3 */ 317. } 318. flags.nscrinh = 0; 319. setsee(); 320. seeobjs(); /* make old cadavers disappear - riv05!a3 */ 321. docrt(); 322. pickup(1); 323. read_engr_at(u.ux,u.uy); 324. } 325. 326. donull() { 327. return(1); /* Do nothing, but let other things happen */ 328. } 329. 330. #if defined(KAA) && defined(KOPS) 331. wipeoff() 332. { 333. if(u.ucreamed < 4) u.ucreamed = 0; 334. else u.ucreamed -= 4; 335. if(u.ucreamed > 0) { 336. Blinded -= 4; 337. if(Blind <= 1) { 338. pline("You've got the glop off."); 339. u.ucreamed = 0; 340. Blinded = 1; 341. return(0); 342. } 343. return(1); /* still busy */ 344. } 345. pline("Your face feels clean now."); 346. u.ucreamed = 0; 347. return(0); 348. } 349. 350. dowipe() 351. { 352. if(u.ucreamed) { 353. #ifdef DGKMOD 354. set_occupation(wipeoff, "wiping off your face", 0); 355. #else 356. occupation = wipeoff; 357. occtxt = "wiping off your face"; 358. #endif 359. return(1); 360. } 361. pline("Your face is already clean."); 362. return(1); 363. } 364. #endif 365. 366. /* split obj so that it gets size num */ 367. /* remainder is put in the object structure delivered by this call */ 368. struct obj * 369. splitobj(obj, num) register struct obj *obj; register int num; { 370. register struct obj *otmp; 371. otmp = newobj(0); 372. *otmp = *obj; /* copies whole structure */ 373. otmp->o_id = flags.ident++; 374. otmp->onamelth = 0; 375. obj->quan = num; 376. obj->owt = weight(obj); 377. otmp->quan -= num; 378. otmp->owt = weight(otmp); /* -= obj->owt ? */ 379. obj->nobj = otmp; 380. if(obj->unpaid) splitbill(obj,otmp); 381. return(otmp); 382. } 383. 384. more_experienced(exp,rexp) 385. register int exp, rexp; 386. { 387. extern char pl_character[]; 388. 389. u.uexp += exp; 390. u.urexp += 4*exp + rexp; 391. if(exp) flags.botl = 1; 392. if(u.urexp >= ((pl_character[0] == 'W') ? 1000 : 2000)) 393. flags.beginner = 0; 394. } 395. 396. set_wounded_legs(side, timex) 397. register long side; 398. register int timex; 399. { 400. if(!Wounded_legs || (Wounded_legs & TIMEOUT)) 401. Wounded_legs |= side + timex; 402. else 403. Wounded_legs |= side; 404. } 405. 406. heal_legs() 407. { 408. if(Wounded_legs) { 409. if((Wounded_legs & BOTH_SIDES) == BOTH_SIDES) 410. pline("Your legs feel somewhat better."); 411. else 412. pline("Your leg feels somewhat better."); 413. Wounded_legs = 0; 414. } 415. } 416. 417. #ifdef SINKS 418. trycall(obj) 419. register struct obj *obj; 420. { 421. if(!objects[obj->otyp].oc_name_known && 422. !objects[obj->otyp].oc_uname) 423. docall(obj); 424. } 425. 426. dosinkring(obj) /* obj is a ring being dropped over a kitchen sink */ 427. register struct obj *obj; 428. { 429. register struct obj *otmp,*otmp2; 430. register short eaten; 431. pline("You drop %s down the drain.", doname(obj)); 432. switch(obj->otyp) { 433. case RIN_ADORNMENT: { 434. pline("The faucets flash brightly for a moment."); 435. trycall(obj); 436. break; 437. } 438. case RIN_REGENERATION: { 439. pline("The sink looks as good as new."); 440. trycall(obj); 441. break; 442. } 443. case RIN_SEARCHING: 444. break; 445. case RIN_SEE_INVISIBLE: 446. break; 447. case RIN_STEALTH: { 448. pline("The sink seems to blend into the floor for a moment."); 449. trycall(obj); 450. break; 451. } 452. case RIN_LEVITATION: { 453. pline("The sink quivers upward for a moment."); 454. trycall(obj); 455. break; 456. } 457. case RIN_POISON_RESISTANCE: 458. break; 459. case RIN_AGGRAVATE_MONSTER: 460. break; 461. case RIN_HUNGER: { 462. eaten = 0; 463. for(otmp=fobj; otmp; otmp=otmp2) { 464. otmp2 = otmp->nobj; 465. if(otmp->ox == u.ux && otmp->oy == u.uy) 466. if(!Punished || 467. (otmp->otyp != HEAVY_IRON_BALL && otmp->otyp != IRON_CHAIN)) { 468. eaten++; 469. pline("Suddenly, %s vanishes from the sink!",doname(otmp)); 470. delobj(otmp); 471. } 472. } 473. if(eaten) 474. trycall(obj); 475. break; 476. } 477. case RIN_FIRE_RESISTANCE: { 478. pline("The hot water faucet flashes brightly for a moment."); 479. trycall(obj); 480. break; 481. } 482. case RIN_COLD_RESISTANCE: { 483. pline("The cold water faucet flashes brightly for a moment."); 484. trycall(obj); 485. break; 486. } 487. case RIN_PROTECTION_FROM_SHAPE_CHAN: { 488. pline("The sink momentarily looks nothing like a fountain."); 489. trycall(obj); 490. break; 491. } 492. case RIN_CONFLICT: 493. break; 494. case RIN_GAIN_STRENGTH: 495. break; 496. case RIN_INCREASE_DAMAGE: 497. break; 498. case RIN_PROTECTION: 499. break; 500. case RIN_WARNING: { 501. pline("The sink glows white for a moment."); 502. trycall(obj); 503. break; 504. } 505. case RIN_TELEPORTATION: /* fall through */ 506. case RIN_TELEPORT_CONTROL: { 507. pline("The sink momentarily vanishes."); 508. trycall(obj); 509. break; 510. } 511. case RIN_POLYMORPH: /* fall through */ 512. case RIN_POLYMORPH_CONTROL: { 513. pline("The sink momentarily looks like a fountain."); 514. trycall(obj); 515. break; 516. } 517. } 518. if (!rn2(20)) { 519. pline("The sink backs up, leaving %s.", doname(obj)); 520. dropx(obj); 521. } 522. else 523. useup(obj); 524. } 525. #endif
