Source:NetHack 3.0.0/shk.c
(Redirected from NetHack 3.0.0/shk.c)
Jump to navigation
Jump to search
Below is the full text to shk.c from the source code of NetHack 3.0.0. To link to a particular line, write [[NetHack 3.0.0/shk.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: @(#)shk.c 3.0 89/02/10 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* NetHack may be freely redistributed. See license for details. */ 4. 5. /* block some unused #defines to avoid overloading some cpp's */ 6. #define MONATTK_H 7. #include "hack.h" 8. 9. #include "eshk.h" 10. 11. #ifdef KOPS 12. static int makekops(); 13. static void kops_gone(); 14. #endif /* KOPS */ 15. 16. #define NOTANGRY(mon) mon->mpeaceful 17. #define ANGRY(mon) !NOTANGRY(mon) 18. 19. /* Descriptor of current shopkeeper. Note that the bill need not be 20. per-shopkeeper, since it is valid only when in a shop. */ 21. static struct monst *shopkeeper = 0; 22. static struct bill_x *bill; 23. static int shlevel = 0; /* level of this shopkeeper */ 24. /* struct obj *billobjs; /* objects on bill with bp->useup */ 25. /* only accessed here and by save & restore */ 26. static long int total; /* filled by addupbill() */ 27. static long int followmsg; /* last time of follow message */ 28. static void setpaid(), findshk P((int)); 29. static int dopayobj P((struct bill_x *)), getprice P((struct obj *)); 30. static struct obj *bp_to_obj P((struct bill_x *)); 31. 32. /* 33. invariants: obj->unpaid iff onbill(obj) [unless bp->useup] 34. obj->quan <= bp->bquan 35. */ 36. 37. char * 38. shkname(mtmp) /* called in do_name.c */ 39. register struct monst *mtmp; 40. { 41. return(ESHK(mtmp)->shknam); 42. } 43. 44. void 45. shkdead(mtmp) /* called in mon.c */ 46. register struct monst *mtmp; 47. { 48. register struct eshk *eshk = ESHK(mtmp); 49. 50. if(eshk->shoplevel == dlevel) 51. rooms[eshk->shoproom].rtype = OROOM; 52. if(mtmp == shopkeeper) { 53. setpaid(); 54. shopkeeper = 0; 55. bill = (struct bill_x *) -1000; /* dump core when referenced */ 56. } 57. } 58. 59. void 60. replshk(mtmp,mtmp2) 61. register struct monst *mtmp, *mtmp2; 62. { 63. if(mtmp == shopkeeper) { 64. shopkeeper = mtmp2; 65. bill = &(ESHK(shopkeeper)->bill[0]); 66. } 67. } 68. 69. static void 70. setpaid(){ /* caller has checked that shopkeeper exists */ 71. /* either we paid or left the shop or he just died */ 72. register struct obj *obj; 73. register struct monst *mtmp; 74. for(obj = invent; obj; obj = obj->nobj) 75. obj->unpaid = 0; 76. for(obj = fobj; obj; obj = obj->nobj) 77. obj->unpaid = 0; 78. for(obj = fcobj; obj; obj = obj->nobj) 79. obj->unpaid = 0; 80. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 81. for(obj = mtmp->minvent; obj; obj = obj->nobj) 82. obj->unpaid = 0; 83. for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon) 84. for(obj = mtmp->minvent; obj; obj = obj->nobj) 85. obj->unpaid = 0; 86. while(obj = billobjs){ 87. billobjs = obj->nobj; 88. free((genericptr_t) obj); 89. } 90. if(shopkeeper) { 91. ESHK(shopkeeper)->billct = 0; 92. ESHK(shopkeeper)->credit = 0L; 93. ESHK(shopkeeper)->debit = 0L; 94. } 95. } 96. 97. static void 98. addupbill(){ /* delivers result in total */ 99. /* caller has checked that shopkeeper exists */ 100. register int ct = ESHK(shopkeeper)->billct; 101. register struct bill_x *bp = bill; 102. total = 0; 103. while(ct--){ 104. total += bp->price * bp->bquan; 105. bp++; 106. } 107. } 108. 109. int 110. inshop() { 111. register int roomno = inroom(u.ux,u.uy); 112. 113. /* Did we just leave a shop? */ 114. if(u.uinshop && 115. (u.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) { 116. 117. /* This is part of the bugfix for shopkeepers not having their 118. * bill paid. As reported by ab@unido -dgk 119. * I made this standard due to the KOPS code below. -mrs 120. */ 121. if(shopkeeper) { 122. if(ESHK(shopkeeper)->billct || ESHK(shopkeeper)->debit) { 123. if(inroom(shopkeeper->mx, shopkeeper->my) 124. == u.uinshop - 1) /* ab@unido */ 125. You("escaped the shop without paying!"); 126. addupbill(); 127. total += ESHK(shopkeeper)->debit; 128. You("stole %ld zorkmids worth of merchandise.", 129. total); 130. ESHK(shopkeeper)->robbed += total; 131. ESHK(shopkeeper)->credit = 0L; 132. ESHK(shopkeeper)->debit = 0L; 133. if (pl_character[0] != 'R') /* stealing is unlawful */ 134. adjalign(-sgn(u.ualigntyp)); 135. setpaid(); 136. if((rooms[ESHK(shopkeeper)->shoproom].rtype == SHOPBASE) 137. == (rn2(3) == 0)) 138. ESHK(shopkeeper)->following = 1; 139. #ifdef KOPS 140. { /* Keystone Kops srt@ucla */ 141. coord mm; 142. 143. if (flags.soundok) 144. pline("An alarm sounds throughout the dungeon!"); 145. if(flags.verbose) { 146. if((mons[PM_KEYSTONE_KOP].geno & G_GENOD) && 147. (mons[PM_KOP_SERGEANT].geno & G_GENOD) && 148. (mons[PM_KOP_LIEUTENANT].geno & G_GENOD) && 149. (mons[PM_KOP_KAPTAIN].geno & G_GENOD)) { 150. if (flags.soundok) 151. pline("But no one seems to respond to it."); 152. } else 153. pline("The Keystone Kops are after you!"); 154. } 155. /* Create a swarm near the staircase */ 156. mm.x = xdnstair; 157. mm.y = ydnstair; 158. (void) makekops(&mm); 159. /* Create a swarm near the shopkeeper */ 160. mm.x = shopkeeper->mx; 161. mm.y = shopkeeper->my; 162. (void) makekops(&mm); 163. } 164. #endif 165. } 166. shopkeeper = 0; 167. shlevel = 0; 168. } 169. u.uinshop = 0; 170. } 171. 172. /* Did we just enter a zoo of some kind? */ 173. /* This counts everything except shops and vaults 174. -- vault.c insists that a vault remain a VAULT */ 175. if(roomno >= 0) { 176. register int rt = rooms[roomno].rtype; 177. register struct monst *mtmp; 178. 179. switch (rt) { 180. case ZOO: 181. pline("Welcome to David's treasure zoo!"); 182. break; 183. case SWAMP: 184. pline("It looks rather muddy down here."); 185. break; 186. #ifdef THRONES 187. case COURT: 188. You("enter an opulent throne room!"); 189. break; 190. #endif 191. case MORGUE: 192. if(midnight()) 193. pline("Run away! Run away!"); 194. else 195. You("have an uncanny feeling..."); 196. break; 197. case BEEHIVE: 198. You("enter a giant beehive!"); 199. break; 200. #ifdef ARMY 201. case BARRACKS: 202. if(!((mons[PM_SOLDIER].geno & G_GENOD) && 203. (mons[PM_SERGEANT].geno & G_GENOD) && 204. (mons[PM_LIEUTENANT].geno & G_GENOD) && 205. (mons[PM_CAPTAIN].geno & G_GENOD))) 206. You("enter a military barracks!"); 207. else You("enter an abandoned barracks."); 208. break; 209. #endif 210. #ifdef ORACLE 211. case DELPHI: 212. if(!(mons[PM_ORACLE].geno & G_GENOD)) 213. pline("\"Hello, %s, welcome to Delphi!\"", plname); 214. break; 215. #endif 216. default: 217. rt = 0; 218. } 219. 220. if(rt != 0) { 221. rooms[roomno].rtype = OROOM; 222. if(rt==COURT || rt==SWAMP || rt==MORGUE || rt==ZOO) 223. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 224. /* was if(rt != ZOO || !rn2(3)) -- why should ZOO 225. be different from COURT or MORGUE? */ 226. if(!Stealth && !rn2(3)) 227. mtmp->msleep = 0; 228. } 229. } 230. #if defined(ALTARS) && defined(THEOLOGY) 231. if(roomno >= 0 && rooms[roomno].rtype == TEMPLE) { 232. intemple(); 233. } 234. #endif 235. /* Did we just enter a shop? */ 236. if(roomno >= 0 && rooms[roomno].rtype >= SHOPBASE) { 237. register int rt = rooms[roomno].rtype; 238. 239. if(shlevel != dlevel || !shopkeeper 240. || ESHK(shopkeeper)->shoproom != roomno) 241. findshk(roomno); 242. if(!shopkeeper) { 243. rooms[roomno].rtype = OROOM; 244. u.uinshop = 0; 245. } else if(!u.uinshop){ 246. if(!ESHK(shopkeeper)->visitct || 247. strncmp(ESHK(shopkeeper)->customer, plname, PL_NSIZ)) { 248. /* He seems to be new here */ 249. ESHK(shopkeeper)->visitct = 0; 250. ESHK(shopkeeper)->following = 0; 251. (void) strncpy(ESHK(shopkeeper)->customer,plname,PL_NSIZ); 252. NOTANGRY(shopkeeper) = 1; 253. } 254. if(!ESHK(shopkeeper)->following && inhishop(shopkeeper)) { 255. if(ANGRY(shopkeeper)) 256. pline("\"So, %s, you dare return to %s's %s?!\"", 257. plname, 258. shkname(shopkeeper), 259. shtypes[rt - SHOPBASE].name); 260. else 261. if(ESHK(shopkeeper)->robbed) 262. pline("\"Beware, %s! I am upset about missing stock!\"", 263. plname); 264. else 265. pline("\"Hello, %s! Welcome%s to %s's %s!\"", 266. plname, 267. ESHK(shopkeeper)->visitct++ ? " again" : "", 268. shkname(shopkeeper), 269. shtypes[rt - SHOPBASE].name); 270. if(carrying(PICK_AXE) != (struct obj *)0) { 271. pline(NOTANGRY(shopkeeper) ? 272. "\"Will you please leave your pick-axe outside?\"" : 273. "\"Leave the pick-axe outside.\""); 274. if(dochug(shopkeeper)) { 275. u.uinshop = 0; /* he died moving */ 276. return(0); 277. } 278. } 279. } 280. u.uinshop = (unsigned int)(roomno + 1); 281. } 282. } 283. return (int)u.uinshop; 284. } 285. 286. int 287. inhishop(mtmp) 288. register struct monst *mtmp; 289. { 290. return((ESHK(mtmp)->shoproom == inroom(mtmp->mx, mtmp->my) && 291. ESHK(mtmp)->shoplevel == dlevel)); 292. } 293. 294. static void 295. findshk(roomno) 296. register int roomno; 297. { 298. register struct monst *mtmp; 299. 300. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 301. if(mtmp->isshk && ESHK(mtmp)->shoproom == roomno 302. && ESHK(mtmp)->shoplevel == dlevel) { 303. shopkeeper = mtmp; 304. bill = &(ESHK(shopkeeper)->bill[0]); 305. shlevel = dlevel; 306. if(ANGRY(shopkeeper) && 307. strncmp(ESHK(shopkeeper)->customer,plname,PL_NSIZ)) 308. NOTANGRY(shopkeeper) = 1; 309. /* billobjs = 0; -- this is wrong if we save in a shop */ 310. /* (and it is harmless to have too many things in billobjs) */ 311. return; 312. } 313. shopkeeper = 0; 314. shlevel = 0; 315. bill = (struct bill_x *) -1000; /* dump core when referenced */ 316. } 317. 318. static struct bill_x * 319. onbill(obj) 320. register struct obj *obj; 321. { 322. register struct bill_x *bp; 323. if(!shopkeeper) return (struct bill_x *)0; 324. for(bp = bill; bp < &bill[ESHK(shopkeeper)->billct]; bp++) 325. if(bp->bo_id == obj->o_id) { 326. if(!obj->unpaid) pline("onbill: paid obj on bill?"); 327. return(bp); 328. } 329. if(obj->unpaid) pline("onbill: unpaid obj not on bill?"); 330. return (struct bill_x *)0; 331. } 332. 333. /* called with two args on merge */ 334. void 335. obfree(obj, merge) 336. register struct obj *obj, *merge; 337. { 338. register struct bill_x *bp = onbill(obj); 339. register struct bill_x *bpm; 340. if(bp) { 341. if(!merge){ 342. bp->useup = 1; 343. obj->unpaid = 0; /* only for doinvbill */ 344. obj->nobj = billobjs; 345. billobjs = obj; 346. return; 347. } 348. bpm = onbill(merge); 349. if(!bpm){ 350. /* this used to be a rename */ 351. impossible("obfree: not on bill??"); 352. return; 353. } else { 354. /* this was a merger */ 355. bpm->bquan += bp->bquan; 356. ESHK(shopkeeper)->billct--; 357. *bp = bill[ESHK(shopkeeper)->billct]; 358. } 359. } 360. free((genericptr_t) obj); 361. } 362. 363. static long 364. check_credit(tmp, shkp) 365. long tmp; 366. register struct monst *shkp; 367. { 368. long credit = ESHK(shkp)->credit; 369. 370. if(credit == 0L) return(tmp); 371. if(credit >= tmp) { 372. pline("The price is deducted from your credit."); 373. ESHK(shkp)->credit -=tmp; 374. tmp = 0L; 375. } else { 376. pline("The price is partially covered by your credit."); 377. ESHK(shkp)->credit = 0L; 378. tmp -= credit; 379. } 380. return(tmp); 381. } 382. 383. static void 384. pay(tmp,shkp) 385. long tmp; 386. register struct monst *shkp; 387. { 388. long robbed = ESHK(shkp)->robbed; 389. long balance = ((tmp <= 0) ? tmp : check_credit(tmp, shkp)); 390. 391. u.ugold -= balance; 392. shkp->mgold += balance; 393. flags.botl = 1; 394. if(robbed) { 395. robbed -= tmp; 396. if(robbed < 0) robbed = 0; 397. ESHK(shkp)->robbed = robbed; 398. } 399. } 400. 401. /* return shkp to home position */ 402. void 403. home_shk(shkp) 404. register struct monst *shkp; 405. { 406. register xchar x = ESHK(shkp)->shk.x, y = ESHK(shkp)->shk.y; 407. if(levl[x][y].mmask) 408. mnearto(m_at(x,y), x, y, FALSE); 409. levl[shkp->mx][shkp->my].mmask = 0; 410. shkp->mx = x; 411. shkp->my = y; 412. levl[shkp->mx][shkp->my].mmask = 1; 413. unpmon(shkp); 414. } 415. 416. void 417. make_happy_shk(shkp) 418. struct monst *shkp; 419. { 420. register boolean wasmad = ANGRY(shkp); 421. 422. NOTANGRY(shkp) = 1; 423. ESHK(shkp)->following = 0; 424. ESHK(shkp)->robbed = 0; 425. if (pl_character[0] != 'R') 426. adjalign(sgn(u.ualigntyp)); 427. if(!inhishop(shkp)) { 428. pline("Satisfied, %s suddenly disappears!", mon_nam(shkp)); 429. if(ESHK(shkp)->shoplevel == dlevel) 430. home_shk(shkp); 431. else 432. fall_down(shkp, ESHK(shkp)->shoplevel); 433. } else if(wasmad) 434. pline("%s calms down.", Monnam(shkp)); 435. #ifdef KOPS 436. kops_gone(); 437. #endif 438. } 439. 440. static const char no_money[] = "Moreover, you have no money."; 441. 442. int 443. dopay() 444. { 445. long ltmp; 446. register struct bill_x *bp; 447. register struct monst *shkp; 448. int pass, tmp; 449. 450. multi = 0; 451. (void) inshop(); 452. for(shkp = fmon; shkp; shkp = shkp->nmon) 453. if(shkp->isshk && dist(shkp->mx,shkp->my) < 3) 454. break; 455. if(!shkp && u.uinshop && inhishop(shopkeeper)) 456. shkp = shopkeeper; 457. 458. if(!shkp) { 459. pline("There is nobody here to receive your payment."); 460. return(0); 461. } 462. ltmp = ESHK(shkp)->robbed; 463. if(shkp != shopkeeper && NOTANGRY(shkp)) { 464. if(!ltmp) 465. You("do not owe %s anything.", mon_nam(shkp)); 466. else if(!u.ugold) 467. You("have no money."); 468. else { 469. long ugold = u.ugold; 470. 471. if(ugold > ltmp) { 472. You("give %s the %ld gold pieces %s asked for.", 473. mon_nam(shkp), ltmp, 474. ESHK(shkp)->ismale ? "he" : "she"); 475. pay(ltmp, shkp); 476. } else { 477. You("give %s all your gold.", mon_nam(shkp)); 478. pay(u.ugold, shkp); 479. } 480. if(ugold < ltmp/2) 481. pline("Unfortunately, %s doesn't look satisfied.", 482. ESHK(shkp)->ismale ? "he" : "she"); 483. else 484. make_happy_shk(shkp); 485. } 486. return(1); 487. } 488. 489. /* ltmp is still ESHK(shkp)->robbed here */ 490. if(!ESHK(shkp)->billct) { 491. if(!ltmp && NOTANGRY(shkp)) { 492. You("do not owe %s anything.", mon_nam(shkp)); 493. if(!u.ugold) pline(no_money); 494. } else if(ltmp) { 495. pline("%s is after blood, not money!", mon_nam(shkp)); 496. if(u.ugold < ltmp/2) { 497. if(!u.ugold) pline(no_money); 498. else pline("Besides, you don't have enough to interest %s.", 499. ESHK(shkp)->ismale ? "him" : "her"); 500. return(1); 501. } 502. pline("But since %s shop has been robbed recently,", 503. ESHK(shkp)->ismale ? "his" : "her"); 504. pline("you %scompensate %s for %s losses.", 505. (u.ugold < ltmp) ? "partially " : "", 506. mon_nam(shkp), 507. ESHK(shkp)->ismale ? "his" : "her"); 508. pay(u.ugold < ltmp ? u.ugold : ltmp, shkp); 509. make_happy_shk(shkp); 510. } else { 511. /* shopkeeper is angry, but has not been robbed -- 512. * door broken, attacked, etc. */ 513. pline("%s is after your hide, not your money!", 514. mon_nam(shkp)); 515. if(u.ugold < 1000) { 516. if(!u.ugold) pline(no_money); 517. else 518. pline("Besides, you don't have enough to interest %s.", 519. ESHK(shkp)->ismale ? "him" : "her"); 520. return(1); 521. } 522. You("try to appease %s by giving %s 1000 gold pieces.", 523. a_monnam(shkp, "angry"), 524. ESHK(shkp)->ismale ? "him" : "her"); 525. pay(1000L,shkp); 526. if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ) 527. || rn2(3)) 528. make_happy_shk(shkp); 529. else 530. pline("But %s is as angry as ever.", Monnam(shkp)); 531. } 532. return(1); 533. } 534. if(shkp != shopkeeper) { 535. impossible("dopay: not to shopkeeper?"); 536. if(shopkeeper) setpaid(); 537. return(0); 538. } 539. /* pay debt, if any, first */ 540. if(ESHK(shopkeeper)->debit) { 541. You("owe %s %ld zorkmids for the use of merchandise.", 542. shkname(shopkeeper), ESHK(shopkeeper)->debit); 543. if(u.ugold + ESHK(shopkeeper)->credit < 544. ESHK(shopkeeper)->debit) { 545. pline("But you don't have enough gold%s.", 546. ESHK(shopkeeper)->credit ? " or credit" : ""); 547. return(1); 548. } else { 549. long dtmp = ESHK(shopkeeper)->debit; 550. 551. if(ESHK(shopkeeper)->credit >= dtmp) { 552. ESHK(shopkeeper)->credit -= dtmp; 553. ESHK(shopkeeper)->debit = 0L; 554. Your("debt is covered by your credit."); 555. } else if(!ESHK(shopkeeper)->credit) { 556. u.ugold -= dtmp; 557. shopkeeper->mgold += dtmp; 558. ESHK(shopkeeper)->debit = 0L; 559. You("pay that debt."); 560. flags.botl = 1; 561. } else { 562. dtmp -= ESHK(shopkeeper)->credit; 563. ESHK(shopkeeper)->credit = 0L; 564. u.ugold -= dtmp; 565. shopkeeper->mgold += dtmp; 566. ESHK(shopkeeper)->debit = 0L; 567. pline("That debt is partially offset by your credit."); 568. You("pay the remainder."); 569. flags.botl = 1; 570. } 571. } 572. } 573. for(pass = 0; pass <= 1; pass++) { 574. tmp = 0; 575. while(tmp < ESHK(shopkeeper)->billct) { 576. bp = &bill[tmp]; 577. if(!pass && !bp->useup) { 578. tmp++; 579. continue; 580. } 581. if(!dopayobj(bp)) return(1); 582. #ifdef MSDOS 583. *bp = bill[--ESHK(shopkeeper)->billct]; 584. #else 585. bill[tmp] = bill[--ESHK(shopkeeper)->billct]; 586. #endif /* MSDOS /**/ 587. } 588. } 589. pline("\"Thank you for shopping in %s's %s!\"", 590. shkname(shopkeeper), 591. shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype - SHOPBASE].name); 592. NOTANGRY(shopkeeper) = 1; 593. return(1); 594. } 595. 596. /* return 1 if paid successfully */ 597. /* 0 if not enough money */ 598. /* -1 if object could not be found (but was paid) */ 599. static int 600. dopayobj(bp) 601. register struct bill_x *bp; 602. { 603. register struct obj *obj; 604. long ltmp; 605. 606. /* find the object on one of the lists */ 607. obj = bp_to_obj(bp); 608. 609. if(!obj) { 610. impossible("Shopkeeper administration out of order."); 611. setpaid(); /* be nice to the player */ 612. return(0); 613. } 614. 615. if(!obj->unpaid && !bp->useup){ 616. impossible("Paid object on bill??"); 617. return(1); 618. } 619. obj->unpaid = 0; 620. ltmp = bp->price * bp->bquan; 621. if(ANGRY(shopkeeper)) ltmp += ltmp/3; 622. if(u.ugold + ESHK(shopkeeper)->credit < ltmp){ 623. You("don't have gold%s enough to pay for %s.", 624. (ESHK(shopkeeper)->credit > 0L) ? " or credit" : "", 625. doname(obj)); 626. obj->unpaid = 1; 627. return(0); 628. } 629. pay(ltmp, shopkeeper); 630. You("bought %s for %ld gold piece%s.", 631. doname(obj), ltmp, plur(ltmp)); 632. if(bp->useup) { 633. register struct obj *otmp = billobjs; 634. if(obj == billobjs) 635. billobjs = obj->nobj; 636. else { 637. while(otmp && otmp->nobj != obj) otmp = otmp->nobj; 638. if(otmp) otmp->nobj = obj->nobj; 639. else pline("Error in shopkeeper administration."); 640. } 641. free((genericptr_t) obj); 642. } 643. return(1); 644. } 645. 646. /* routine called after dying (or quitting) with nonempty bill or upset shk */ 647. boolean 648. paybill(){ 649. register struct monst *mtmp; 650. register int loss = 0; 651. register struct obj *otmp; 652. register xchar ox, oy; 653. register boolean take = FALSE; 654. register boolean taken = FALSE; 655. 656. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 657. if(mtmp->isshk) { 658. /* for bones: we don't want a shopless shk around */ 659. if(ESHK(mtmp)->shoplevel != dlevel) mongone(mtmp); 660. else shopkeeper = mtmp; 661. } 662. 663. if(!shopkeeper) return(FALSE); 664. 665. /* get one case out of the way: you die in the shop, the */ 666. /* shopkeeper is peaceful, nothing stolen, nothing owed. */ 667. if(in_shop(u.ux,u.uy) && !IS_DOOR(levl[u.ux][u.uy].typ) && 668. !ESHK(shopkeeper)->billct && !ESHK(shopkeeper)->robbed && 669. inhishop(shopkeeper) && NOTANGRY(shopkeeper) && 670. !ESHK(shopkeeper)->following) { 671. pline("%s gratefully inherits all your possessions.", 672. Monnam(shopkeeper)); 673. goto clear; 674. } 675. 676. if(ESHK(shopkeeper)->billct || ESHK(shopkeeper)->robbed) { 677. addupbill(); 678. loss = ((total >= ESHK(shopkeeper)->robbed) ? total : 679. ESHK(shopkeeper)->robbed); 680. take = TRUE; 681. } 682. 683. if(ESHK(shopkeeper)->following || ANGRY(shopkeeper) || take) { 684. if((loss > u.ugold) || !loss) { 685. pline("%s comes and takes all your possessions.", 686. Monnam(shopkeeper)); 687. taken = TRUE; 688. shopkeeper->mgold += u.ugold; 689. u.ugold = 0; 690. /* in case bones: make it be for real... */ 691. if(!in_shop(u.ux, u.uy) || IS_DOOR(levl[u.ux][u.uy].typ)) { 692. /* shk.x,shk.y is the position immediately in 693. * front of the door -- move in one more space 694. */ 695. ox = ESHK(shopkeeper)->shk.x; 696. oy = ESHK(shopkeeper)->shk.y; 697. ox += sgn(ox - ESHK(shopkeeper)->shd.x); 698. oy += sgn(oy - ESHK(shopkeeper)->shd.y); 699. } else { 700. ox = u.ux; 701. oy = u.uy; 702. } 703. 704. if (invent) { 705. levl[ox][oy].omask = 1; 706. for(otmp = invent; otmp; otmp = otmp->nobj) { 707. otmp->ox = ox; 708. otmp->oy = oy; 709. otmp->age = 0; 710. } 711. 712. /* add to main object list at end so invent is 713. still good */ 714. if (fobj) { 715. otmp = fobj; 716. while(otmp->nobj) 717. otmp = otmp->nobj; 718. otmp->nobj = invent; 719. } else 720. fobj = invent; 721. } 722. } else { 723. u.ugold -= loss; 724. shopkeeper->mgold += loss; 725. pline("%s comes and takes %ld zorkmids %sowed %s.", 726. Monnam(shopkeeper), 727. loss, 728. strncmp(ESHK(shopkeeper)->customer, plname, PL_NSIZ) ? "" : "you ", 729. ESHK(shopkeeper)->ismale ? "him" : "her"); 730. } 731. 732. /* in case we create bones */ 733. if(!inhishop(shopkeeper)) 734. home_shk(shopkeeper); 735. } 736. clear: 737. setpaid(); 738. return(taken); 739. } 740. 741. /* find obj on one of the lists */ 742. static struct obj * 743. bp_to_obj(bp) 744. register struct bill_x *bp; 745. { 746. register struct obj *obj; 747. register struct monst *mtmp; 748. register unsigned int id = bp->bo_id; 749. 750. if(bp->useup) 751. obj = o_on(id, billobjs); 752. else if(!(obj = o_on(id, invent)) && 753. !(obj = o_on(id, fobj)) && 754. !(obj = o_on(id, fcobj))) { 755. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 756. if(obj = o_on(id, mtmp->minvent)) 757. break; 758. for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon) 759. if(obj = o_on(id, mtmp->minvent)) 760. break; 761. } 762. return(obj); 763. } 764. 765. static long 766. get_cost(obj) 767. register struct obj *obj; 768. { 769. register long tmp; 770. 771. tmp = getprice(obj); 772. if (!tmp) tmp = 5; 773. if (ANGRY(shopkeeper) || 774. (pl_character[0] == 'T' && u.ulevel < (MAXULEV/2)) 775. #ifdef SHIRT 776. || (uarmu && !uarm) /* wearing just a Hawaiian shirt */ 777. #endif 778. ) 779. tmp += tmp/3; 780. if (ACURR(A_CHA) > 18) tmp /= 2; 781. else if (ACURR(A_CHA) > 17) tmp = (tmp * 2)/3; 782. else if (ACURR(A_CHA) > 15) tmp = (tmp * 3)/4; 783. else if (ACURR(A_CHA) < 11) tmp = (tmp * 4)/3; 784. else if (ACURR(A_CHA) < 8) tmp = (tmp * 3)/2; 785. else if (ACURR(A_CHA) < 6) tmp *= 2; 786. return(tmp); 787. } 788. 789. 790. /* called in hack.c when we pickup an object */ 791. void 792. addtobill(obj, ininv) 793. register struct obj *obj; 794. register boolean ininv; 795. { 796. register struct bill_x *bp; 797. char buf[40]; 798. if(!shopkeeper || !inhishop(shopkeeper)) return; 799. 800. if(!costly_spot(obj->ox,obj->oy) || /* either pickup or kick */ 801. onbill(obj) /* perhaps we threw it away earlier */ 802. ) return; 803. if(ESHK(shopkeeper)->billct == BILLSZ) { 804. You("got that for free!"); 805. return; 806. } 807. /* To recognize objects the shopkeeper is not interested in. -dgk 808. */ 809. if (obj->no_charge) { 810. obj->no_charge = 0; 811. return; 812. } 813. bp = &bill[ESHK(shopkeeper)->billct]; 814. bp->bo_id = obj->o_id; 815. bp->bquan = obj->quan; 816. bp->useup = 0; 817. bp->price = get_cost(obj); 818. Strcpy(buf, "\"For you, "); 819. if (ANGRY(shopkeeper)) Strcat(buf, "scum "); 820. else { 821. switch(rnd(4) 822. #ifdef HARD 823. + u.udemigod 824. #endif 825. ) { 826. case 1: Strcat(buf, "good"); 827. break; 828. case 2: Strcat(buf, "honored"); 829. break; 830. case 3: Strcat(buf, "most gracious"); 831. break; 832. case 4: Strcat(buf, "esteemed"); 833. break; 834. case 5: if (u.ualigntyp == U_CHAOTIC) Strcat(buf, "un"); 835. Strcat(buf, "holy"); 836. break; 837. } 838. #ifdef POLYSELF 839. if(!is_human(uasmon)) Strcat(buf, " creature"); 840. else 841. #endif 842. Strcat(buf, (flags.female) ? " lady" : " sir"); 843. } 844. obj->dknown = 1; /* after all, the shk is telling you what it is */ 845. if(ininv) { 846. obj->quan = 1; /* fool xname() into giving singular */ 847. pline("%s; only %d %s %s.\"", buf, bp->price, 848. (bp->bquan > 1) ? "per" : "for this", xname(obj)); 849. obj->quan = bp->bquan; 850. } else pline("The %s will cost you %d zorkmids%s.", 851. xname(obj), bp->price, 852. (bp->bquan > 1) ? " each" : ""); 853. ESHK(shopkeeper)->billct++; 854. obj->unpaid = 1; 855. } 856. 857. void 858. splitbill(obj, otmp) 859. register struct obj *obj, *otmp; 860. { 861. /* otmp has been split off from obj */ 862. register struct bill_x *bp; 863. register int tmp; 864. bp = onbill(obj); 865. if(!bp) { 866. impossible("splitbill: not on bill?"); 867. return; 868. } 869. if(bp->bquan < otmp->quan) { 870. impossible("Negative quantity on bill??"); 871. } 872. if(bp->bquan == otmp->quan) { 873. impossible("Zero quantity on bill??"); 874. } 875. bp->bquan -= otmp->quan; 876. 877. if(ESHK(shopkeeper)->billct == BILLSZ) otmp->unpaid = 0; 878. else { 879. tmp = bp->price; 880. bp = &bill[ESHK(shopkeeper)->billct]; 881. bp->bo_id = otmp->o_id; 882. bp->bquan = otmp->quan; 883. bp->useup = 0; 884. bp->price = tmp; 885. ESHK(shopkeeper)->billct++; 886. } 887. } 888. 889. void 890. subfrombill(obj) 891. register struct obj *obj; 892. { 893. long ltmp; 894. /* register int tmp; /* use of tmp commented out below */ 895. register struct obj *otmp; 896. register struct bill_x *bp; 897. if(!costly_spot(u.ux,u.uy)) 898. return; 899. if((bp = onbill(obj)) != 0) { 900. obj->unpaid = 0; 901. if(bp->bquan > obj->quan){ 902. otmp = newobj(0); 903. *otmp = *obj; 904. bp->bo_id = otmp->o_id = flags.ident++; 905. otmp->quan = (bp->bquan -= obj->quan); 906. otmp->owt = 0; /* superfluous */ 907. otmp->onamelth = 0; 908. bp->useup = 1; 909. otmp->nobj = billobjs; 910. billobjs = otmp; 911. return; 912. } 913. ESHK(shopkeeper)->billct--; 914. *bp = bill[ESHK(shopkeeper)->billct]; 915. return; 916. } 917. if(obj->unpaid) { 918. if(inhishop(shopkeeper)) 919. pline("%s didn't notice.", Monnam(shopkeeper)); 920. obj->unpaid = 0; 921. return; /* %% */ 922. } 923. /* he dropped something of his own - probably wants to sell it */ 924. if(shopkeeper->msleep || shopkeeper->mfroz || !inhishop(shopkeeper)) 925. return; 926. ltmp = getprice(obj) * obj->quan; 927. if(ESHK(shopkeeper)->billct == BILLSZ 928. || !saleable(rooms[ESHK(shopkeeper)->shoproom].rtype-SHOPBASE, obj) 929. || otmp->olet == BALL_SYM || ltmp == 0L) { 930. pline("%s seems not interested.", Monnam(shopkeeper)); 931. obj->no_charge = 1; 932. return; 933. } 934. if (ANGRY(shopkeeper) || (pl_character[0] == 'T' && u.ulevel < (MAXULEV/2)) 935. #ifdef SHIRT 936. || (uarmu && !uarm) /* wearing just a Hawaiian shirt */ 937. #endif 938. ) { 939. ltmp /= 3; 940. NOTANGRY(shopkeeper) = 1; 941. } else ltmp /= 2; 942. if(ESHK(shopkeeper)->robbed) { 943. if((ESHK(shopkeeper)->robbed -= ltmp) < 0) 944. ESHK(shopkeeper)->robbed = 0; 945. pline("\"Thank you for your contribution to restock this recently plundered shop.\""); 946. return; 947. } 948. if(ltmp > shopkeeper->mgold) 949. ltmp = shopkeeper->mgold; 950. pay(-ltmp, shopkeeper); 951. if(!ltmp) { 952. pline("%s gladly accepts %s but cannot pay you at present.", 953. Monnam(shopkeeper), doname(obj)); 954. obj->no_charge = 1; 955. } else 956. You("sold %s for %ld gold piece%s.", doname(obj), ltmp, 957. plur(ltmp)); 958. } 959. 960. int 961. doinvbill(mode) 962. int mode; /* 0: deliver count 1: paged */ 963. { 964. register struct bill_x *bp; 965. register struct obj *obj; 966. long totused, thisused; 967. char buf[BUFSZ]; 968. 969. if(mode == 0) { 970. register int cnt = 0; 971. 972. if(shopkeeper) 973. for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++) 974. if(bp->useup || 975. ((obj = bp_to_obj(bp)) && obj->quan < bp->bquan)) 976. cnt++; 977. return(cnt); 978. } 979. 980. if(!shopkeeper) { 981. impossible("doinvbill: no shopkeeper?"); 982. return(0); 983. } 984. 985. set_pager(0); 986. if(page_line("Unpaid articles already used up:") || page_line("")) 987. goto quit; 988. 989. totused = 0; 990. for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++) { 991. obj = bp_to_obj(bp); 992. if(!obj) { 993. impossible("Bad shopkeeper administration."); 994. goto quit; 995. } 996. if(bp->useup || bp->bquan > obj->quan) { 997. register int cnt, oquan, uquan; 998. 999. oquan = obj->quan; 1000. uquan = (bp->useup ? bp->bquan : bp->bquan - oquan); 1001. thisused = bp->price * uquan; 1002. totused += thisused; 1003. obj->quan = uquan; /* cheat doname */ 1004. Sprintf(buf, "x - %s", doname(obj)); 1005. obj->quan = oquan; /* restore value */ 1006. for(cnt = 0; buf[cnt]; cnt++); 1007. while(cnt < 50) 1008. buf[cnt++] = ' '; 1009. Sprintf(&buf[cnt], " %5ld zorkmids", thisused); 1010. if(page_line(buf)) 1011. goto quit; 1012. } 1013. } 1014. Sprintf(buf, "Total:%50ld zorkmids", totused); 1015. if(page_line("") || page_line(buf)) 1016. goto quit; 1017. set_pager(1); 1018. return(0); 1019. quit: 1020. set_pager(2); 1021. return(0); 1022. } 1023. 1024. #define HUNGRY 2 1025. static int 1026. getprice(obj) 1027. register struct obj *obj; 1028. { 1029. register int tmp = objects[obj->otyp].oc_cost; 1030. 1031. switch(obj->olet) { 1032. case AMULET_SYM: 1033. if(obj->otyp == AMULET_OF_YENDOR) { 1034. /* don't let the player get rich selling fakes */ 1035. tmp = (obj->spe < 0 ? 0 : 3500); 1036. } 1037. break; 1038. case FOOD_SYM: 1039. /* simpler hunger check, (2-4)*cost */ 1040. if (u.uhs >= HUNGRY) tmp *= u.uhs; 1041. break; 1042. case WAND_SYM: 1043. if (obj->spe == -1) tmp = 0; 1044. break; 1045. case POTION_SYM: 1046. if (obj->otyp == POT_WATER && !obj->blessed && !obj->cursed) 1047. tmp = 0; 1048. break; 1049. case ARMOR_SYM: 1050. if (u.uac > 0) tmp += u.uac * 2; 1051. case WEAPON_SYM: 1052. if (obj->spe > 0) tmp += 10 * obj->spe; 1053. break; 1054. case CHAIN_SYM: 1055. pline("Strange... carrying a chain?"); 1056. break; 1057. } 1058. return(tmp); 1059. } 1060. 1061. int 1062. shkcatch(obj) 1063. register struct obj *obj; 1064. { 1065. register struct monst *shkp = shopkeeper; 1066. 1067. if(u.uinshop && shkp && !shkp->mfroz && !shkp->msleep && 1068. u.dx && u.dy && 1069. inroom(u.ux+u.dx, u.uy+u.dy) + 1 == u.uinshop && 1070. shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y && 1071. u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y) { 1072. pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj)); 1073. obj->nobj = shkp->minvent; 1074. shkp->minvent = obj; 1075. return(1); 1076. } 1077. return(0); 1078. } 1079. 1080. /* 1081. * shk_move: return 1: he moved 0: he didn't -1: let m_move do it -2: died 1082. */ 1083. int 1084. shk_move(shkp) 1085. register struct monst *shkp; 1086. { 1087. register xchar gx,gy,omx,omy; 1088. register int udist; 1089. register schar appr; 1090. int z; 1091. schar shkroom; 1092. boolean uondoor, satdoor, avoid, badinv; 1093. 1094. omx = shkp->mx; 1095. omy = shkp->my; 1096. 1097. if((udist = dist(omx,omy)) < 3) { 1098. if(ANGRY(shkp)) { 1099. if(Displaced) 1100. Your("displaced image doesn't fool %s!", 1101. Monnam(shkp)); 1102. (void) mattacku(shkp); 1103. return(0); 1104. } 1105. if(ESHK(shkp)->following) { 1106. if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)) { 1107. pline("\"Hello, %s! I was looking for %s.\"", 1108. plname, ESHK(shkp)->customer); 1109. ESHK(shkp)->following = 0; 1110. return(0); 1111. } 1112. if(moves > followmsg+4) { 1113. pline("\"Hello, %s! Didn't you forget to pay?\"", 1114. plname); 1115. followmsg = moves; 1116. #ifdef HARD 1117. if (!rn2(4)) { 1118. pline ("%s doesn't like customers who don't pay.", Monnam(shkp)); 1119. NOTANGRY(shkp) = 0; 1120. } 1121. #endif 1122. } 1123. if(udist < 2) 1124. return(0); 1125. } 1126. } 1127. 1128. shkroom = inroom(omx,omy); 1129. appr = 1; 1130. gx = ESHK(shkp)->shk.x; 1131. gy = ESHK(shkp)->shk.y; 1132. satdoor = (gx == omx && gy == omy); 1133. if(ESHK(shkp)->following || ((z = holetime()) >= 0 && z*z <= udist)){ 1134. gx = u.ux; 1135. gy = u.uy; 1136. if(shkroom < 0 || shkroom != inroom(u.ux,u.uy)) 1137. if(udist > 4) 1138. return(-1); /* leave it to m_move */ 1139. } else if(ANGRY(shkp)) { 1140. long saveBlind = Blinded; 1141. struct obj *saveUblindf = ublindf; 1142. Blinded = 0; 1143. ublindf = (struct obj *)0; 1144. if(shkp->mcansee && !Invis && cansee(omx,omy)) { 1145. gx = u.ux; 1146. gy = u.uy; 1147. } 1148. Blinded = saveBlind; 1149. ublindf = saveUblindf; 1150. avoid = FALSE; 1151. } else { 1152. #define GDIST(x,y) (dist2(x,y,gx,gy)) 1153. if(Invis) 1154. avoid = FALSE; 1155. else { 1156. uondoor = (u.ux == ESHK(shkp)->shd.x && 1157. u.uy == ESHK(shkp)->shd.y); 1158. if(uondoor) { 1159. if(ESHK(shkp)->billct && inhishop(shkp)) 1160. pline(NOTANGRY(shkp) ? 1161. "\"Hello, %s! Will you please pay before leaving?\"" : 1162. "\"Hey, %s! Don't leave without paying!\"", 1163. plname); 1164. badinv = (!!carrying(PICK_AXE)); 1165. if(satdoor && badinv) 1166. return(0); 1167. avoid = !badinv; 1168. } else { 1169. avoid = (u.uinshop && dist(gx,gy) > 8); 1170. badinv = FALSE; 1171. } 1172. 1173. if(((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid) 1174. && GDIST(omx,omy) < 3) { 1175. if(!badinv && !online(omx,omy)) 1176. return(0); 1177. if(satdoor) 1178. appr = gx = gy = 0; 1179. } 1180. } 1181. } 1182. 1183. return(move_special(shkp,shkroom,appr,uondoor,avoid,omx,omy,gx,gy)); 1184. } 1185. 1186. int 1187. online(x,y) /* New version to speed things up. 1188. * Compiler dependant, may not always work. 1189. */ 1190. register xchar x, y; 1191. { 1192. return((x-=u.ux) == 0 || (y-=u.uy) == 0 || x == y || (x+=y) == 0); 1193. } 1194. 1195. /* Original version, just in case... 1196. *online(x,y) { 1197. * return(x==u.ux || y==u.uy || (x-u.ux)*(x-u.ux) == (y-u.uy)*(y-u.uy)); 1198. *} 1199. */ 1200. 1201. /* for use in levl_follower (mondata.c) */ 1202. boolean 1203. is_fshk(mtmp) 1204. register struct monst *mtmp; 1205. { 1206. return(mtmp->isshk && ESHK(mtmp)->following); 1207. } 1208. 1209. /* He is digging in the shop. */ 1210. void 1211. shopdig(fall) 1212. register int fall; 1213. { 1214. if(!shopkeeper) return; 1215. if(!inhishop(shopkeeper)) { 1216. if (pl_character[0] == 'K') adjalign(-sgn(u.ualigntyp)); 1217. return; 1218. } 1219. 1220. if(!fall) { 1221. if(u.utraptype == TT_PIT) 1222. pline("\"Be careful, %s, or you might fall through the floor.\"", 1223. flags.female ? "madam" : "sir"); 1224. else 1225. pline("\"%s, do not damage the floor here!\"", 1226. flags.female ? "Madam" : "Sir"); 1227. if (pl_character[0] == 'K') adjalign(-sgn(u.ualigntyp)); 1228. } else if(um_dist(shopkeeper->mx, shopkeeper->my, 2)) { 1229. register struct obj *obj, *obj2; 1230. 1231. if(dist(shopkeeper->mx, shopkeeper->my) > 2) { 1232. mnexto(shopkeeper); 1233. /* for some reason he can't come next to you */ 1234. if(dist(shopkeeper->mx, shopkeeper->my) > 2) { 1235. pline("%s curses you in anger and frustration!", 1236. shkname(shopkeeper)); 1237. NOTANGRY(shopkeeper) = 0; 1238. return; 1239. } else pline("%s leaps, and grabs your backpack!", 1240. shkname(shopkeeper)); 1241. } else pline("%s grabs your backpack!", shkname(shopkeeper)); 1242. 1243. for(obj = invent; obj; obj = obj2) { 1244. obj2 = obj->nobj; 1245. if(obj->owornmask) continue; 1246. freeinv(obj); 1247. obj->nobj = shopkeeper->minvent; 1248. shopkeeper->minvent = obj; 1249. if(obj->unpaid) 1250. subfrombill(obj); 1251. } 1252. } 1253. } 1254. 1255. #ifdef KOPS 1256. static int 1257. makekops(mm) /* returns the number of (all types of) Kops made */ 1258. coord *mm; 1259. { 1260. register int cnt = dlevel + rnd(5); 1261. register int scnt = (cnt / 3) + 1; /* at least one sarge */ 1262. register int lcnt = (cnt / 6); /* maybe a lieutenant */ 1263. register int kcnt = (cnt / 9); /* and maybe a kaptain */ 1264. 1265. while(cnt--) { 1266. enexto(mm, mm->x, mm->y); 1267. (void) makemon(&mons[PM_KEYSTONE_KOP], mm->x, mm->y); 1268. } 1269. while(scnt--) { 1270. enexto(mm, mm->x, mm->y); 1271. (void) makemon(&mons[PM_KOP_SERGEANT], mm->x, mm->y); 1272. } 1273. while(lcnt--) { 1274. enexto(mm, mm->x, mm->y); 1275. (void) makemon(&mons[PM_KOP_LIEUTENANT], mm->x, mm->y); 1276. } 1277. while(kcnt--) { 1278. enexto(mm, mm->x, mm->y); 1279. (void) makemon(&mons[PM_KOP_KAPTAIN], mm->x, mm->y); 1280. } 1281. return(cnt + scnt + lcnt + kcnt); 1282. } 1283. #endif 1284. 1285. boolean 1286. in_shop(x,y) 1287. register int x, y; 1288. { 1289. register int roomno = inroom(x, y); 1290. 1291. if (roomno < 0) return(FALSE); 1292. return (IS_SHOP(rooms[roomno])); 1293. } 1294. 1295. void 1296. pay_for_door(x,y,dmgstr) 1297. register int x, y; 1298. register char *dmgstr; 1299. { 1300. register struct monst *mtmp; 1301. register int ox, oy; 1302. register int roomno = inroom(x, y); 1303. register int damage = (ACURR(A_STR) > 18) ? 400 : 20 * ACURR(A_STR); 1304. 1305. /* make sure this function is not used in the wrong place */ 1306. if(!(IS_DOOR(levl[x][y].typ) && in_shop(x, y))) return; 1307. 1308. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 1309. if(mtmp->isshk && ESHK(mtmp)->shoproom == roomno 1310. && ESHK(mtmp)->shoplevel == dlevel) { 1311. shopkeeper = mtmp; 1312. } 1313. 1314. if(!shopkeeper) return; 1315. 1316. /* not the best introduction to the shk... */ 1317. (void) strncpy(ESHK(shopkeeper)->customer,plname,PL_NSIZ); 1318. 1319. /* if he is already on the war path, be sure it's all out */ 1320. if(ANGRY(shopkeeper) || ESHK(shopkeeper)->following) { 1321. NOTANGRY(shopkeeper) = 0; 1322. ESHK(shopkeeper)->following = 1; 1323. return; 1324. } 1325. 1326. ox = shopkeeper->mx; 1327. oy = shopkeeper->my; 1328. 1329. /* if he's not in his shop.. */ 1330. if(!in_shop(ox, oy)) return; 1331. 1332. /* if a !shopkeeper shows up at the door, move him */ 1333. if(levl[x][y].mmask && (mtmp = m_at(x, y)) != shopkeeper) { 1334. if(flags.soundok) { 1335. You("hear an angry voice: \"Out of my way, scum!\""); 1336. (void) fflush(stdout); 1337. #if defined(SYSV) || defined(ULTRIX) 1338. (void) 1339. #endif 1340. #ifdef UNIX 1341. sleep(1); 1342. #endif 1343. } 1344. mnearto(mtmp, x, y, FALSE); 1345. } 1346. 1347. /* make shk show up at the door */ 1348. levl[shopkeeper->mx][shopkeeper->my].mmask = 0; 1349. levl[x][y].mmask = 1; 1350. shopkeeper->mx = x; 1351. shopkeeper->my = y; 1352. pmon(shopkeeper); 1353. 1354. if(um_dist(x, y, 1)) goto chase; 1355. 1356. if(u.ugold < damage || !rn2(50)) { 1357. chase: 1358. if(um_dist(x, y, 1)) 1359. pline("%s shouts: \"Who dared %s my door?\"", 1360. shkname(shopkeeper), dmgstr); 1361. else pline("\"How dare you %s my door?\"", dmgstr); 1362. NOTANGRY(shopkeeper) = 0; 1363. ESHK(shopkeeper)->following = 1; 1364. return; 1365. } 1366. 1367. pline("\"Cad! You did %d zorkmids worth of damage!\" Pay? ", damage); 1368. if(yn() != 'n') { 1369. u.ugold -= damage; 1370. shopkeeper->mgold += damage; 1371. flags.botl = 1; 1372. pline("Mollified, %s accepts your restitution.", 1373. shkname(shopkeeper)); 1374. 1375. /* clear ox oy of another monster, if one got there somehow */ 1376. if(levl[ox][oy].mmask) mnearto(m_at(ox,oy),ox,oy,FALSE); 1377. 1378. /* move shk back to his orig loc */ 1379. levl[shopkeeper->mx][shopkeeper->my].mmask = 0; 1380. levl[ox][oy].mmask = 1; 1381. shopkeeper->mx = ox; 1382. shopkeeper->my = oy; 1383. unpmon(shopkeeper); 1384. NOTANGRY(shopkeeper) = 1; 1385. } 1386. else { 1387. pline("\"Oh, yes! You'll pay!\""); 1388. ESHK(shopkeeper)->following = 1; 1389. NOTANGRY(shopkeeper) = 0; 1390. adjalign(-sgn(u.ualigntyp)); 1391. } 1392. } 1393. 1394. /* called in dokick.c when we kick an object in a store */ 1395. boolean 1396. costly_spot(x, y) 1397. register int x, y; 1398. { 1399. register struct monst *shkp = shopkeeper; 1400. 1401. if(!shkp) return(FALSE); 1402. 1403. return(in_shop(x, y) && levl[x][y].typ != DOOR && 1404. !(x == ESHK(shkp)->shk.x && y == ESHK(shkp)->shk.y)); 1405. } 1406. 1407. #ifdef KOPS 1408. static void 1409. kops_gone() 1410. { 1411. register int cnt = 0; 1412. register struct monst *mtmp, *mtmp2; 1413. 1414. /* turn off automatic resurrection of kops */ 1415. allow_kops = FALSE; 1416. 1417. for(mtmp = fmon; mtmp; mtmp = mtmp2) { 1418. mtmp2 = mtmp->nmon; 1419. if(mtmp->data->mlet == S_KOP) { 1420. mongone(mtmp); 1421. cnt++; 1422. } 1423. } 1424. if(cnt) pline("The Kops (disappointed) disappear into thin air."); 1425. allow_kops = TRUE; 1426. } 1427. #endif 1428. 1429. static long 1430. cost_per_charge(otmp) 1431. register struct obj *otmp; 1432. { 1433. register long tmp = get_cost(otmp); 1434. 1435. /* The idea is to make the exhaustive use of */ 1436. /* an unpaid item more expansive than buying */ 1437. /* outright. */ 1438. if(otmp->otyp == MAGIC_LAMP) { /* 1 */ 1439. tmp += (tmp/3L); 1440. } else if(otmp->otyp == MAGIC_MARKER) { /* 70 - 100 */ 1441. /* no way to determine in advance */ 1442. /* how many charges will be wasted. */ 1443. /* so, arbitrarily, one half of the */ 1444. /* price per use. */ 1445. tmp = (tmp/2L); 1446. } else if(otmp->otyp == BAG_OF_TRICKS) { /* 1 - 20 */ 1447. tmp = (tmp/5L); 1448. } else if(otmp->otyp == CRYSTAL_BALL || /* 1 - 5 */ 1449. otmp->otyp == LAMP || /* 1-10 */ 1450. #ifdef MUSIC 1451. (otmp->otyp >= MAGIC_FLUTE && 1452. otmp->otyp <= DRUM_OF_EARTHQUAKE) || /* 5 - 9 */ 1453. #endif 1454. otmp->olet == WAND_SYM) { /* 3 - 11 */ 1455. if(otmp->spe == 1) tmp += (tmp/3L); 1456. else tmp = (tmp/4L); 1457. } 1458. else return(0L); 1459. return(tmp); 1460. } 1461. 1462. /* for using charges of unpaid objects */ 1463. void 1464. check_unpaid(otmp) 1465. register struct obj *otmp; 1466. { 1467. if(!in_shop(u.ux, u.uy)) return; 1468. 1469. if(otmp->spe <= 0) return; 1470. 1471. if(otmp->unpaid) { 1472. ESHK(shopkeeper)->debit += cost_per_charge(otmp); 1473. } 1474. }
