Source:SLASH'EM 0.0.7E7F2/shk.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to shk.c from the source code of SLASH'EM 0.0.7E7F2. To link to a particular line, write [[Source:SLASH'EM 0.0.7E7F2/shk.c#line123]], for example.

Source code for vanilla NetHack is at 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.4	2003/12/04	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include "hack.h"
6.    #include "eshk.h"
7.    
8.    /*#define DEBUG*/
9.    
10.   #define PAY_SOME    2
11.   #define PAY_BUY     1
12.   #define PAY_CANT    0	/* too poor */
13.   #define PAY_SKIP  (-1)
14.   #define PAY_BROKE (-2)
15.   
16.   #ifdef KOPS
17.   STATIC_DCL void FDECL(makekops, (coord *));
18.   STATIC_DCL void FDECL(call_kops, (struct monst *,BOOLEAN_P));
19.   # ifdef OVLB
20.   STATIC_DCL void FDECL(kops_gone, (BOOLEAN_P));
21.   # endif /* OVLB */
22.   #endif /* KOPS */
23.   
24.   #define IS_SHOP(x)	(rooms[x].rtype >= SHOPBASE)
25.   #define no_cheat      ((ACURR(A_CHA) - rnl(3)) > 7)
26.   
27.   extern const struct shclass shtypes[];	/* defined in shknam.c */
28.   extern struct obj *thrownobj;		/* defined in dothrow.c */
29.   
30.   STATIC_VAR NEARDATA long int followmsg;	/* last time of follow message */
31.   
32.   STATIC_DCL void FDECL(setpaid, (struct monst *));
33.   STATIC_DCL long FDECL(addupbill, (struct monst *));
34.   STATIC_DCL void FDECL(pacify_shk, (struct monst *));
35.   STATIC_DCL struct bill_x *FDECL(onbill, (struct obj *, struct monst *, BOOLEAN_P));
36.   STATIC_DCL struct monst *FDECL(next_shkp, (struct monst *, BOOLEAN_P));
37.   STATIC_DCL long FDECL(shop_debt, (struct eshk *));
38.   STATIC_DCL char *FDECL(shk_owns, (char *,struct obj *));
39.   STATIC_DCL char *FDECL(mon_owns, (char *,struct obj *));
40.   STATIC_DCL void FDECL(clear_unpaid,(struct obj *));
41.   STATIC_DCL long FDECL(check_credit, (long, struct monst *));
42.   STATIC_DCL void FDECL(pay, (long, struct monst *));
43.   STATIC_DCL long FDECL(get_cost, (struct obj *, struct monst *));
44.   STATIC_DCL long FDECL(set_cost, (struct obj *, struct monst *));
45.   STATIC_DCL const char *FDECL(shk_embellish, (struct obj *, long));
46.   STATIC_DCL long FDECL(cost_per_charge, (struct monst *,struct obj *,BOOLEAN_P));
47.   STATIC_DCL long FDECL(cheapest_item, (struct monst *));
48.   STATIC_DCL int FDECL(dopayobj, (struct monst *, struct bill_x *,
49.   			    struct obj **, int, BOOLEAN_P));
50.   STATIC_DCL long FDECL(stolen_container, (struct obj *, struct monst *, long,
51.   				     BOOLEAN_P, BOOLEAN_P));
52.   STATIC_DCL long FDECL(getprice, (struct obj *,BOOLEAN_P));
53.   STATIC_DCL void FDECL(shk_names_obj,
54.   		 (struct monst *,struct obj *,const char *,long,const char *));
55.   STATIC_DCL struct obj *FDECL(bp_to_obj, (struct bill_x *));
56.   STATIC_DCL boolean FDECL(inherits, (struct monst *,int,int));
57.   STATIC_DCL void FDECL(set_repo_loc, (struct eshk *));
58.   STATIC_DCL boolean NDECL(angry_shk_exists);
59.   STATIC_DCL void FDECL(rile_shk, (struct monst *));
60.   STATIC_DCL void FDECL(rouse_shk, (struct monst *,BOOLEAN_P));
61.   STATIC_DCL void FDECL(remove_damage, (struct monst *, BOOLEAN_P));
62.   STATIC_DCL void FDECL(sub_one_frombill, (struct obj *, struct monst *));
63.   STATIC_DCL void FDECL(add_one_tobill, (struct obj *, BOOLEAN_P));
64.   STATIC_DCL void FDECL(dropped_container, (struct obj *, struct monst *,
65.   				      BOOLEAN_P));
66.   STATIC_DCL void FDECL(add_to_billobjs, (struct obj *));
67.   STATIC_DCL void FDECL(bill_box_content, (struct obj *, BOOLEAN_P, BOOLEAN_P,
68.   				     struct monst *));
69.   #ifdef OVL1
70.   static boolean FDECL(rob_shop, (struct monst *));
71.   #endif
72.   
73.   #ifdef OTHER_SERVICES
74.   #define NOBOUND         (-1)    /* No lower/upper limit to charge       */
75.   static void NDECL(shk_other_services);
76.   static void FDECL(shk_identify, (char *, struct monst *));
77.   static void FDECL(shk_uncurse, (char *, struct monst *));
78.   static void FDECL(shk_appraisal, (char *, struct monst *));
79.   static void FDECL(shk_weapon_works, (char *, struct monst *));
80.   static void FDECL(shk_armor_works, (char *, struct monst *));
81.   static void FDECL(shk_charge, (char *, struct monst *));
82.   static boolean FDECL(shk_obj_match, (struct obj *, struct monst *));
83.   /*static int FDECL(shk_class_match, (long class, struct monst *shkp));*/
84.   static boolean FDECL(shk_offer_price, (char *, long, struct monst *));
85.   static void FDECL(shk_smooth_charge, (int *, int, int));
86.   #endif
87.   
88.   #ifdef OVLB
89.   /*
90.   	invariants: obj->unpaid iff onbill(obj) [unless bp->useup]
91.   		obj->quan <= bp->bquan
92.    */
93.   
94.   
95.   #ifdef GOLDOBJ
96.   /*
97.       Transfer money from inventory to monster when paying
98.       shopkeepers, priests, oracle, succubus, & other demons.
99.       Simple with only gold coins.
100.      This routine will handle money changing when multiple
101.      coin types is implemented, only appropriate
102.      monsters will pay change.  (Peaceful shopkeepers, priests
103.      & the oracle try to maintain goodwill while selling
104.      their wares or services.  Angry monsters and all demons
105.      will keep anything they get their hands on.
106.      Returns the amount actually paid, so we can know
107.      if the monster kept the change.
108.   */
109.  long
110.  money2mon(mon, amount)
111.  struct monst *mon;
112.  long amount;
113.  {
114.      struct obj *ygold = findgold(invent);
115.  
116.      if (amount <= 0) {
117.  	impossible("%s payment in money2mon!", amount ? "negative" : "zero");
118.  	return 0L;
119.      }
120.      if (!ygold || ygold->quan < amount) {
121.  	impossible("Paying without %s money?", ygold ? "enough" : "");
122.  	return 0L;
123.      }
124.  
125.      if (ygold->quan > amount)
126.  	ygold = splitobj(ygold, amount);
127.      else if (ygold->owornmask)
128.  	remove_worn_item(ygold, FALSE);		/* quiver */
129.      freeinv(ygold);
130.      add_to_minv(mon, ygold);
131.      flags.botl = 1;
132.      return amount;
133.  }
134.  
135.  
136.  /*
137.      Transfer money from monster to inventory.
138.      Used when the shopkeeper pay for items, and when
139.      the priest gives you money for an ale.
140.   */
141.  void
142.  money2u(mon, amount)
143.  struct monst *mon;
144.  long amount;
145.  {
146.      struct obj *mongold = findgold(mon->minvent);
147.  
148.      if (amount <= 0) {
149.  	impossible("%s payment in money2u!", amount ? "negative" : "zero");
150.  	return;
151.      }
152.      if (!mongold || mongold->quan < amount) {
153.  	impossible("%s paying without %s money?", a_monnam(mon),
154.  		   mongold ? "enough" : "");
155.  	return;
156.      }
157.  
158.      if (mongold->quan > amount) mongold = splitobj(mongold, amount);
159.      obj_extract_self(mongold);
160.  
161.      if (!merge_choice(invent, mongold) && inv_cnt() >= 52) {
162.  	You("have no room for the money!");
163.  	dropy(mongold);
164.      } else {
165.  	addinv(mongold);
166.  	flags.botl = 1;
167.      }
168.  }
169.  
170.  #endif /* GOLDOBJ */
171.  
172.  STATIC_OVL struct monst *
173.  next_shkp(shkp, withbill)
174.  register struct monst *shkp;
175.  register boolean withbill;
176.  {
177.  	for (; shkp; shkp = shkp->nmon) {
178.  	    if (DEADMONSTER(shkp)) continue;
179.  	    if (shkp->isshk && (ESHK(shkp)->billct || !withbill)) break;
180.  	}
181.  
182.  	if (shkp) {
183.  	    if (NOTANGRY(shkp)) {
184.  		if (ESHK(shkp)->surcharge) pacify_shk(shkp);
185.  	    } else {
186.  		if (!ESHK(shkp)->surcharge) rile_shk(shkp);
187.  	    }
188.  	}
189.  	return(shkp);
190.  }
191.  
192.  char *
193.  shkname(mtmp)				/* called in do_name.c */
194.  register struct monst *mtmp;
195.  {
196.  	return(ESHK(mtmp)->shknam);
197.  }
198.  
199.  void
200.  shkgone(mtmp)				/* called in mon.c */
201.  struct monst *mtmp;
202.  {
203.  	struct eshk *eshk = ESHK(mtmp);
204.  	struct mkroom *sroom = &rooms[eshk->shoproom - ROOMOFFSET];
205.  	struct obj *otmp;
206.  	char *p;
207.  	int sx, sy;
208.  
209.  	/* [BUG: some of this should be done on the shop level */
210.  	/*       even when the shk dies on a different level.] */
211.  	if (on_level(&eshk->shoplevel, &u.uz)) {
212.  	    remove_damage(mtmp, TRUE);
213.  	    sroom->resident = (struct monst *)0;
214.  	    if (!search_special(ANY_SHOP))
215.  		level.flags.has_shop = 0;
216.  
217.  	    /* items on shop floor revert to ordinary objects */
218.  	    for (sx = sroom->lx; sx <= sroom->hx; sx++)
219.  	      for (sy = sroom->ly; sy <= sroom->hy; sy++)
220.  		for (otmp = level.objects[sx][sy]; otmp; otmp = otmp->nexthere)
221.  		    otmp->no_charge = 0;
222.  
223.  	    /* Make sure bill is set only when the
224.  	       dead shk is the resident shk. */
225.  	    if ((p = index(u.ushops, eshk->shoproom)) != 0) {
226.  		setpaid(mtmp);
227.  		eshk->bill_p = (struct bill_x *)0;
228.  		/* remove eshk->shoproom from u.ushops */
229.  		do { *p = *(p + 1); } while (*++p);
230.  	    }
231.  	}
232.  }
233.  
234.  void
235.  set_residency(shkp, zero_out)
236.  register struct monst *shkp;
237.  register boolean zero_out;
238.  {
239.  	if (on_level(&(ESHK(shkp)->shoplevel), &u.uz))
240.  	    rooms[ESHK(shkp)->shoproom - ROOMOFFSET].resident =
241.  		(zero_out)? (struct monst *)0 : shkp;
242.  }
243.  
244.  void
245.  replshk(mtmp,mtmp2)
246.  register struct monst *mtmp, *mtmp2;
247.  {
248.  	rooms[ESHK(mtmp2)->shoproom - ROOMOFFSET].resident = mtmp2;
249.  	if (inhishop(mtmp) && *u.ushops == ESHK(mtmp)->shoproom) {
250.  		ESHK(mtmp2)->bill_p = &(ESHK(mtmp2)->bill[0]);
251.  	}
252.  }
253.  
254.  /* do shopkeeper specific structure munging -dlc */
255.  void
256.  restshk(shkp, ghostly)
257.  struct monst *shkp;
258.  boolean ghostly;
259.  {
260.      if (u.uz.dlevel) {
261.  	struct eshk *eshkp = ESHK(shkp);
262.  
263.  	if (eshkp->bill_p != (struct bill_x *) -1000)
264.  	    eshkp->bill_p = &eshkp->bill[0];
265.  	/* shoplevel can change as dungeons move around */
266.  	/* savebones guarantees that non-homed shk's will be gone */
267.  	if (ghostly) {
268.  	    assign_level(&eshkp->shoplevel, &u.uz);
269.  	    if (ANGRY(shkp) && strncmpi(eshkp->customer, plname, PL_NSIZ))
270.  		pacify_shk(shkp);
271.  	}
272.      }
273.  }
274.  
275.  #endif /* OVLB */
276.  #ifdef OVL3
277.  
278.  /* Clear the unpaid bit on all of the objects in the list. */
279.  STATIC_OVL void
280.  clear_unpaid(list)
281.  register struct obj *list;
282.  {
283.      while (list) {
284.  	if (Has_contents(list)) clear_unpaid(list->cobj);
285.  	list->unpaid = 0;
286.  	list = list->nobj;
287.      }
288.  }
289.  #endif /*OVL3*/
290.  #ifdef OVLB
291.  
292.  /* either you paid or left the shop or the shopkeeper died */
293.  STATIC_OVL void
294.  setpaid(shkp)
295.  register struct monst *shkp;
296.  {
297.  	register struct obj *obj;
298.  	register struct monst *mtmp;
299.  
300.  	/* FIXME: object handling should be limited to
301.  	   items which are on this particular shk's bill */
302.  
303.  	clear_unpaid(invent);
304.  	clear_unpaid(fobj);
305.  	clear_unpaid(level.buriedobjlist);
306.  	if (thrownobj) thrownobj->unpaid = 0;
307.  	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
308.  		clear_unpaid(mtmp->minvent);
309.  	for(mtmp = migrating_mons; mtmp; mtmp = mtmp->nmon)
310.  		clear_unpaid(mtmp->minvent);
311.  
312.  	while ((obj = billobjs) != 0) {
313.  		obj_extract_self(obj);
314.  		dealloc_obj(obj);
315.  	}
316.  	if(shkp) {
317.  		ESHK(shkp)->billct = 0;
318.  		ESHK(shkp)->credit = 0L;
319.  		ESHK(shkp)->debit = 0L;
320.  		ESHK(shkp)->loan = 0L;
321.  	}
322.  }
323.  
324.  STATIC_OVL long
325.  addupbill(shkp)
326.  register struct monst *shkp;
327.  {
328.  	register int ct = ESHK(shkp)->billct;
329.  	register struct bill_x *bp = ESHK(shkp)->bill_p;
330.  	register long total = 0L;
331.  
332.  	while(ct--){
333.  		total += bp->price * bp->bquan;
334.  		bp++;
335.  	}
336.  	return(total);
337.  }
338.  
339.  #endif /* OVLB */
340.  #ifdef OVL1
341.  
342.  #ifdef KOPS
343.  STATIC_OVL void
344.  call_kops(shkp, nearshop)
345.  register struct monst *shkp;
346.  register boolean nearshop;
347.  {
348.  	/* Keystone Kops srt@ucla */
349.  	register boolean nokops;
350.  	char kopname[20];
351.    
352.  	Strcpy(kopname, "Keystone Kops");
353.  
354.  	if(!shkp) return;
355.  
356.  	if (flags.soundok)
357.  	    pline("An alarm sounds!");
358.  
359.  	nokops = ((mvitals[PM_KEYSTONE_KOP].mvflags & G_GONE) &&
360.  		  (mvitals[PM_KOP_SERGEANT].mvflags & G_GONE) &&
361.  		  (mvitals[PM_KOP_LIEUTENANT].mvflags & G_GONE) &&
362.  		  (mvitals[PM_KOP_KAPTAIN].mvflags & G_GONE));
363.  
364.  #ifdef BLACKMARKET
365.        if (Is_blackmarket(&u.uz)) {
366.  	nokops = ((mvitals[PM_SOLDIER].mvflags & G_GONE) &&
367.  		  (mvitals[PM_SERGEANT].mvflags & G_GONE) &&
368.  		  (mvitals[PM_LIEUTENANT].mvflags & G_GONE) &&
369.  		  (mvitals[PM_CAPTAIN].mvflags & G_GONE));
370.   
371.  	Strcpy(kopname, "guards");
372.        }
373.  #endif /* defined(BLACKMARKET) */
374.   
375.  	if(!angry_guards(!flags.soundok) && nokops) {
376.  	    if(flags.verbose && flags.soundok)
377.  		pline("But no one seems to respond to it.");
378.  	    return;
379.  	}
380.  
381.  	if(nokops) return;
382.  
383.  	{
384.  	    coord mm;
385.  
386.  	    if (nearshop)
387.  #ifdef BLACKMARKET                
388.  	    if (!Is_blackmarket(&u.uz)) 
389.  #endif /* BLACKMARKET */
390.  		{
391.  		/* Create swarm around you, if you merely "stepped out" */
392.  		if (flags.verbose)
393.  		    pline_The("%s appear!", kopname);
394.  		mm.x = u.ux;
395.  		mm.y = u.uy;
396.  		makekops(&mm);
397.  		return;
398.  	    }
399.  	    if (flags.verbose)
400.  		 pline_The("%s are after you!", kopname);
401.  	    /* Create swarm near down staircase (hinders return to level) */
402.  #ifdef BLACKMARKET            
403.  	    if (Is_blackmarket(&u.uz)) {
404.  	      struct trap *trap = ftrap;
405.  	      while (trap) {
406.  		if (trap->ttyp == MAGIC_PORTAL) {
407.  		  mm.x = trap->tx;
408.  		  mm.y = trap->ty;
409.  		}
410.  		trap = trap->ntrap;
411.  	      }
412.  	    } else {
413.  		mm.x = xdnstair;
414.  		mm.y = ydnstair;
415.  	    }            
416.  #else /* BLACKMARKET */
417.  	    mm.x = xdnstair;
418.  	    mm.y = ydnstair;
419.  #endif /* BLACKMARKET */
420.  	    makekops(&mm);
421.  	    /* Create swarm near shopkeeper (hinders return to shop) */
422.  	    mm.x = shkp->mx;
423.  	    mm.y = shkp->my;
424.  	    makekops(&mm);
425.  	}
426.  }
427.  #endif	/* KOPS */
428.  
429.  
430.  #ifdef BLACKMARKET
431.  void 
432.  blkmar_guards(shkp)
433.  register struct monst *shkp;
434.  {
435.      register struct monst *mt;
436.      register struct eshk *eshkp = ESHK(shkp);
437.      boolean mesg_given = FALSE;	/* Only give message if assistants peaceful */
438.      static boolean rlock = FALSE; /* Prevent recursive calls (via wakeup) */
439.  
440.      if (rlock)  return;
441.      rlock = TRUE;
442.  
443.      /* wake up assistants */
444.      for (mt = fmon; mt; mt = mt->nmon) {
445.  	if (DEADMONSTER(mt)) continue;
446.  	/* non-tame named monsters are presumably
447.  	 * black marketeer's assistants */
448.  	if (!mt->mtame && NAME(mt) && *NAME(mt) && mt->mpeaceful &&
449.  		mt != shkp && inside_shop(mt->mx, mt->my) == eshkp->shoproom) {
450.  	    if (!mesg_given) {
451.  		pline("%s calls for %s assistants!",
452.  			noit_Monnam(shkp), mhis(shkp));
453.  		mesg_given = TRUE;
454.  	    }
455.  	    wakeup(mt);
456.  	}
457.      }
458.      rlock = FALSE;
459.  }
460.  #endif /* BLACKMARKET */
461.  
462.  
463.  /* x,y is strictly inside shop */
464.  char
465.  inside_shop(x, y)
466.  register xchar x, y;
467.  {
468.  	register char rno;
469.  
470.  	rno = levl[x][y].roomno;
471.  	if ((rno < ROOMOFFSET) || levl[x][y].edge || !IS_SHOP(rno-ROOMOFFSET))
472.  	    return(NO_ROOM);
473.  	else
474.  	    return(rno);
475.  }
476.  
477.  void
478.  u_left_shop(leavestring, newlev)
479.  char *leavestring;
480.  boolean newlev;
481.  {
482.  	struct monst *shkp;
483.  	struct eshk *eshkp;
484.  
485.  	/*
486.  	 * IF player
487.  	 * ((didn't leave outright) AND
488.  	 *  ((he is now strictly-inside the shop) OR
489.  	 *   (he wasn't strictly-inside last turn anyway)))
490.  	 * THEN (there's nothing to do, so just return)
491.  	 */
492.  	if(!*leavestring &&
493.  	   (!levl[u.ux][u.uy].edge || levl[u.ux0][u.uy0].edge))
494.  	    return;
495.  
496.  	shkp = shop_keeper(*u.ushops0);
497.  	if (!shkp || !inhishop(shkp))
498.  	    return;	/* shk died, teleported, changed levels... */
499.  
500.  	eshkp = ESHK(shkp);
501.  	if (!eshkp->billct && !eshkp->debit)	/* bill is settled */
502.  	    return;
503.  
504.  	if (!*leavestring && shkp->mcanmove && !shkp->msleeping) {
505.  	    /*
506.  	     * Player just stepped onto shop-boundary (known from above logic).
507.  	     * Try to intimidate him into paying his bill
508.  	     */
509.  	    verbalize(NOTANGRY(shkp) ?
510.  		      "%s!  Please pay before leaving." :
511.  		      "%s!  Don't you leave without paying!",
512.  		      plname);
513.  	    return;
514.  	}
515.  
516.  	if (rob_shop(shkp)) {
517.  
518.  #ifdef BLACKMARKET
519.  	    if (Is_blackmarket(&u.uz))
520.  		blkmar_guards(shkp);
521.  #endif
522.  
523.  #ifdef KOPS
524.  	    call_kops(shkp, (!newlev && levl[u.ux0][u.uy0].edge));
525.  #else
526.  	    (void) angry_guards(FALSE);
527.  #endif
528.  	}
529.  }
530.  
531.  /* robbery from outside the shop via telekinesis or grappling hook */
532.  void
533.  remote_burglary(x, y)
534.  xchar x, y;
535.  {
536.  	struct monst *shkp;
537.  	struct eshk *eshkp;
538.  
539.  	shkp = shop_keeper(*in_rooms(x, y, SHOPBASE));
540.  	if (!shkp || !inhishop(shkp))
541.  	    return;	/* shk died, teleported, changed levels... */
542.  
543.  	eshkp = ESHK(shkp);
544.  	if (!eshkp->billct && !eshkp->debit)	/* bill is settled */
545.  	    return;
546.  
547.  	if (rob_shop(shkp)) {
548.  
549.  #ifdef BLACKMARKET
550.  	    if (Is_blackmarket(&u.uz))
551.  		blkmar_guards(shkp);
552.  #endif
553.  
554.  #ifdef KOPS
555.  	    /*[might want to set 2nd arg based on distance from shop doorway]*/
556.  	    call_kops(shkp, FALSE);
557.  #else
558.  	    (void) angry_guards(FALSE);
559.  #endif
560.  	}
561.  }
562.  
563.  /* shop merchandise has been taken; pay for it with any credit available;
564.     return false if the debt is fully covered by credit, true otherwise */
565.  static boolean
566.  rob_shop(shkp)
567.  struct monst *shkp;
568.  {
569.  	struct eshk *eshkp;
570.  	long total;
571.  
572.  	eshkp = ESHK(shkp);
573.  	rouse_shk(shkp, TRUE);
574.  	total = (addupbill(shkp) + eshkp->debit);
575.  	if (eshkp->credit >= total) {
576.  	    Your("credit of %ld %s is used to cover your shopping bill.",
577.  		 eshkp->credit, currency(eshkp->credit));
578.  	    total = 0L;		/* credit gets cleared by setpaid() */
579.  	} else {
580.  	    You("escaped the shop without paying!");
581.  	    total -= eshkp->credit;
582.  	}
583.  	setpaid(shkp);
584.  	if (!total) return FALSE;
585.  
586.  	/* by this point, we know an actual robbery has taken place */
587.  	eshkp->robbed += total;
588.  	You("stole %ld %s worth of merchandise.",
589.  	    total, currency(total));
590.  	if (!Role_if(PM_ROGUE)) {     /* stealing is unlawful */
591.  	    adjalign(-sgn(u.ualign.type));
592.  	    You("feel like an evil rogue.");
593.  	}
594.  
595.  	hot_pursuit(shkp);
596.  	return TRUE;
597.  }
598.  
599.  void
600.  u_entered_shop(enterstring)
601.  register char *enterstring;
602.  {
603.  
604.  	register int rt;
605.  	register struct monst *shkp;
606.  	register struct eshk *eshkp;
607.  	static const char no_shk[] = "This shop appears to be deserted.";
608.  	static char empty_shops[5];
609.  
610.  	if(!*enterstring)
611.  		return;
612.  
613.  	if(!(shkp = shop_keeper(*enterstring))) {
614.  	    if (!index(empty_shops, *enterstring) &&
615.  		in_rooms(u.ux, u.uy, SHOPBASE) !=
616.  				  in_rooms(u.ux0, u.uy0, SHOPBASE))
617.  		pline(no_shk);
618.  	    Strcpy(empty_shops, u.ushops);
619.  	    u.ushops[0] = '\0';
620.  	    return;
621.  	}
622.  
623.  	eshkp = ESHK(shkp);
624.  
625.  	if (!inhishop(shkp)) {
626.  	    /* dump core when referenced */
627.  	    eshkp->bill_p = (struct bill_x *) -1000;
628.  	    if (!index(empty_shops, *enterstring))
629.  		pline(no_shk);
630.  	    Strcpy(empty_shops, u.ushops);
631.  	    u.ushops[0] = '\0';
632.  	    return;
633.  	}
634.  
635.  	eshkp->bill_p = &(eshkp->bill[0]);
636.  
637.  	if ((!eshkp->visitct || *eshkp->customer) &&
638.  	    strncmpi(eshkp->customer, plname, PL_NSIZ)) {
639.  	    /* You seem to be new here */
640.  	    eshkp->visitct = 0;
641.  	    eshkp->following = 0;
642.  	    (void) strncpy(eshkp->customer,plname,PL_NSIZ);
643.  	    pacify_shk(shkp);
644.  	}
645.  
646.  	if (shkp->msleeping || !shkp->mcanmove || eshkp->following)
647.  	    return;	/* no dialog */
648.  
649.  	if (Invis) {
650.  	    pline("%s senses your presence.", shkname(shkp));
651.  #ifdef BLACKMARKET            
652.  	    if (!Is_blackmarket(&u.uz)) {
653.  	    verbalize("Invisible customers are not welcome!");
654.  	    return;
655.  	}
656.  #else /* BLACKMARKET */
657.  	    verbalize("Invisible customers are not welcome!");
658.  	    return;
659.  #endif /* BLACKMARKET */
660.  	}
661.   
662.  #ifdef BLACKMARKET
663.  	    if (Is_blackmarket(&u.uz) &&
664.  		u.umonnum>0 && mons[u.umonnum].mlet != S_HUMAN) {
665.  	      verbalize("Non-human customers are not welcome!");
666.  	      return;
667.  	}
668.  #endif /* BLACKMARKET */
669.  
670.  	rt = rooms[*enterstring - ROOMOFFSET].rtype;
671.  
672.  	if (ANGRY(shkp)) {
673.  	    verbalize("So, %s, you dare return to %s %s?!",
674.  		      plname,
675.  		      s_suffix(shkname(shkp)),
676.  		      shtypes[rt - SHOPBASE].name);
677.  	} else if (eshkp->robbed) {
678.  	    pline("%s mutters imprecations against shoplifters.", shkname(shkp));
679.  	} else {
680.  	    verbalize("%s, %s!  Welcome%s to %s %s!",
681.  		      Hello(shkp), plname,
682.  		      eshkp->visitct++ ? " again" : "",
683.  		      s_suffix(shkname(shkp)),
684.  		      shtypes[rt - SHOPBASE].name);
685.  	}
686.  	/* can't do anything about blocking if teleported in */
687.  	if (!inside_shop(u.ux, u.uy)) {
688.  	    boolean should_block;
689.  	    int cnt;
690.  	    const char *tool;
691.  	    struct obj *pick = carrying(PICK_AXE),
692.  		       *mattock = carrying(DWARVISH_MATTOCK);
693.  
694.  	    if (pick || mattock) {
695.  		cnt = 1;
696.  		if (pick && mattock) {	/* carrying both types */
697.  		    tool = "digging tool";
698.  		    cnt = 2;	/* `more than 1' is all that matters */
699.  		} else if (pick) {
700.  		    tool = "pick-axe";
701.  		    /* hack: `pick' already points somewhere into inventory */
702.  		    while ((pick = pick->nobj) != 0)
703.  			if (pick->otyp == PICK_AXE) ++cnt;
704.  		} else {	/* assert(mattock != 0) */
705.  		    tool = "mattock";
706.  		    while ((mattock = mattock->nobj) != 0)
707.  			if (mattock->otyp == DWARVISH_MATTOCK) ++cnt;
708.  		    /* [ALI] Shopkeeper indicates mattock(s) */
709.  		    if (!Blind) makeknown(DWARVISH_MATTOCK);
710.  		}
711.  		verbalize(NOTANGRY(shkp) ?
712.  			  "Will you please leave your %s%s outside?" :
713.  			  "Leave the %s%s outside.",
714.  			  tool, plur(cnt));
715.  		should_block = TRUE;
716.  #ifdef STEED
717.  	    } else if (u.usteed) {
718.  		verbalize(NOTANGRY(shkp) ?
719.  			  "Will you please leave %s outside?" :
720.  			  "Leave %s outside.", y_monnam(u.usteed));
721.  		should_block = TRUE;
722.  #endif
723.  	    } else {
724.  		should_block = (Fast && (sobj_at(PICK_AXE, u.ux, u.uy) ||
725.  				      sobj_at(DWARVISH_MATTOCK, u.ux, u.uy)));
726.  	    }
727.  	    if (should_block) (void) dochug(shkp);  /* shk gets extra move */
728.  	}
729.  	return;
730.  }
731.  
732.  /*
733.     Decide whether two unpaid items are mergable; caller is responsible for
734.     making sure they're unpaid and the same type of object; we check the price
735.     quoted by the shopkeeper and also that they both belong to the same shk.
736.   */
737.  boolean
738.  same_price(obj1, obj2)
739.  struct obj *obj1, *obj2;
740.  {
741.  	register struct monst *shkp1, *shkp2;
742.  	register struct bill_x *bp1 = 0, *bp2 = 0;
743.  	register boolean are_mergable = FALSE;
744.  
745.  	/* look up the first object by finding shk whose bill it's on */
746.  	for (shkp1 = next_shkp(fmon, TRUE); shkp1;
747.  		shkp1 = next_shkp(shkp1->nmon, TRUE))
748.  	    if ((bp1 = onbill(obj1, shkp1, TRUE)) != 0) break;
749.  	/* second object is probably owned by same shk; if not, look harder */
750.  	if (shkp1 && (bp2 = onbill(obj2, shkp1, TRUE)) != 0) {
751.  	    shkp2 = shkp1;
752.  	} else {
753.  	    for (shkp2 = next_shkp(fmon, TRUE); shkp2;
754.  		    shkp2 = next_shkp(shkp2->nmon, TRUE))
755.  		if ((bp2 = onbill(obj2, shkp2, TRUE)) != 0) break;
756.  	}
757.  
758.  	if (!bp1 || !bp2) impossible("same_price: object wasn't on any bill!");
759.  	else are_mergable = (shkp1 == shkp2 && bp1->price == bp2->price);
760.  	return are_mergable;
761.  }
762.  
763.  /*
764.   * Figure out how much is owed to a given shopkeeper.
765.   * At present, we ignore any amount robbed from the shop, to avoid
766.   * turning the `$' command into a way to discover that the current
767.   * level is bones data which has a shk on the warpath.
768.   */
769.  STATIC_OVL long
770.  shop_debt(eshkp)
771.  struct eshk *eshkp;
772.  {
773.  	struct bill_x *bp;
774.  	int ct;
775.  	long debt = eshkp->debit;
776.  
777.  	for (bp = eshkp->bill_p, ct = eshkp->billct; ct > 0; bp++, ct--)
778.  	    debt += bp->price * bp->bquan;
779.  	return debt;
780.  }
781.  
782.  /* called in response to the `$' command */
783.  void
784.  shopper_financial_report()
785.  {
786.  	struct monst *shkp, *this_shkp = shop_keeper(inside_shop(u.ux, u.uy));
787.  	struct eshk *eshkp;
788.  	long amt;
789.  	int pass;
790.  
791.  	if (this_shkp &&
792.  	    !(ESHK(this_shkp)->credit || shop_debt(ESHK(this_shkp)))) {
793.  	    You("have no credit or debt in here.");
794.  	    this_shkp = 0;	/* skip first pass */
795.  	}
796.  
797.  	/* pass 0: report for the shop we're currently in, if any;
798.  	   pass 1: report for all other shops on this level. */
799.  	for (pass = this_shkp ? 0 : 1; pass <= 1; pass++)
800.  	    for (shkp = next_shkp(fmon, FALSE);
801.  		    shkp; shkp = next_shkp(shkp->nmon, FALSE)) {
802.  		if ((shkp != this_shkp) ^ pass) continue;
803.  		eshkp = ESHK(shkp);
804.  		if ((amt = eshkp->credit) != 0)
805.  		    You("have %ld %s credit at %s %s.",
806.  			amt, currency(amt), s_suffix(shkname(shkp)),
807.  			shtypes[eshkp->shoptype - SHOPBASE].name);
808.  		else if (shkp == this_shkp)
809.  		    You("have no credit in here.");
810.  		if ((amt = shop_debt(eshkp)) != 0)
811.  		    You("owe %s %ld %s.",
812.  			shkname(shkp), amt, currency(amt));
813.  		else if (shkp == this_shkp)
814.  		    You("don't owe any money here.");
815.  	    }
816.  }
817.  
818.  #endif /* OVL1 */
819.  #ifdef OVLB
820.  
821.  int
822.  inhishop(mtmp)
823.  register struct monst *mtmp;
824.  {
825.  	return(index(in_rooms(mtmp->mx, mtmp->my, SHOPBASE),
826.  		     ESHK(mtmp)->shoproom) &&
827.  		on_level(&(ESHK(mtmp)->shoplevel), &u.uz));
828.  }
829.  
830.  struct monst *
831.  shop_keeper(rmno)
832.  register char rmno;
833.  {
834.  	struct monst *shkp = rmno >= ROOMOFFSET ?
835.  				rooms[rmno - ROOMOFFSET].resident : 0;
836.  
837.  	if (shkp) {
838.  	    if (NOTANGRY(shkp)) {
839.  		if (ESHK(shkp)->surcharge) pacify_shk(shkp);
840.  	    } else {
841.  		if (!ESHK(shkp)->surcharge) rile_shk(shkp);
842.  	    }
843.  	}
844.  	return shkp;
845.  }
846.  
847.  boolean
848.  tended_shop(sroom)
849.  register struct mkroom *sroom;
850.  {
851.  	register struct monst *mtmp = sroom->resident;
852.  
853.  	if (!mtmp)
854.  		return(FALSE);
855.  	else
856.  		return((boolean)(inhishop(mtmp)));
857.  }
858.  
859.  STATIC_OVL struct bill_x *
860.  onbill(obj, shkp, silent)
861.  register struct obj *obj;
862.  register struct monst *shkp;
863.  register boolean silent;
864.  {
865.  	if (shkp) {
866.  		register struct bill_x *bp = ESHK(shkp)->bill_p;
867.  		register int ct = ESHK(shkp)->billct;
868.  
869.  		while (--ct >= 0)
870.  		    if (bp->bo_id == obj->o_id) {
871.  			if (!obj->unpaid) pline("onbill: paid obj on bill?");
872.  			return bp;
873.  		    } else bp++;
874.  	}
875.  	if(obj->unpaid & !silent) pline("onbill: unpaid obj not on bill?");
876.  	return (struct bill_x *)0;
877.  }
878.  
879.  /* Delete the contents of the given object. */
880.  void
881.  delete_contents(obj)
882.  register struct obj *obj;
883.  {
884.  	register struct obj *curr;
885.  
886.  	while ((curr = obj->cobj) != 0) {
887.  	    if (Has_contents(curr)) delete_contents(curr);
888.  	    obj_extract_self(curr);
889.  	    if (evades_destruction(curr)) {
890.  		switch (obj->where) {
891.  		    case OBJ_FREE:
892.  		    case OBJ_ONBILL:
893.  			impossible("indestructible object %s",
894.  			  obj->where == OBJ_FREE ? "free" : "on bill");
895.  			obfree(curr, (struct obj *)0);
896.  			break;
897.  		    case OBJ_FLOOR:
898.  			place_object(curr, obj->ox, obj->oy);
899.  			/* No indestructible objects currently stack */
900.  			break;
901.  		    case OBJ_CONTAINED:
902.  			add_to_container(obj->ocontainer, curr);
903.  			break;
904.  		    case OBJ_INVENT:
905.  			if (!flooreffects(curr, u.ux, u.uy, "fall"))
906.  			    place_object(curr, u.ux, u.uy);
907.  			break;
908.  		    case OBJ_MINVENT:
909.  			if (!flooreffects(curr,
910.  				obj->ocarry->mx, obj->ocarry->my, "fall"))
911.  			    place_object(curr, obj->ocarry->mx, obj->ocarry->my);
912.  			break;
913.  		    case OBJ_MIGRATING:
914.  			add_to_migration(curr);
915.  			/* Copy migration destination */
916.  			curr->ox = obj->ox;
917.  			curr->oy = obj->oy;
918.  			curr->owornmask = obj->owornmask;
919.  			break;
920.  		    case OBJ_BURIED:
921.  			add_to_buried(curr);
922.  			curr->ox = obj->ox;
923.  			curr->oy = obj->oy;
924.  			break;
925.  		    default:
926.  			panic("delete_contents");
927.  			break;
928.  		}
929.  	    }
930.  	    else
931.  	    obfree(curr, (struct obj *)0);
932.  	}
933.  }
934.  
935.  /* called with two args on merge */
936.  void
937.  obfree(obj, merge)
938.  register struct obj *obj, *merge;
939.  {
940.  	register struct bill_x *bp;
941.  	register struct bill_x *bpm;
942.  	register struct monst *shkp;
943.  
944.  #ifdef STEED
945.  	if (obj == usaddle) dismount_steed(DISMOUNT_GENERIC);
946.  #endif
947.  
948.  	if (obj->otyp == LEASH && obj->leashmon) o_unleash(obj);
949.  	if (obj->oclass == SPBOOK_CLASS) book_disappears(obj);
950.  	if (obj->oclass == FOOD_CLASS) food_disappears(obj);
951.  	/* [ALI] Enforce new rules: Containers must have their contents
952.  	 * deleted while still in situ so that we can place any
953.  	 * indestructible objects they may contain.
954.  	 */
955.  	if (Has_contents(obj)) {
956.  	    FILE *fp;
957.  	    int known;
958.  	    xchar x, y;
959.  	    struct obj *otmp;
960.  	    pline("BUG: obfree() called on non-empty container.  See buglog for details.");
961.  	    fp = fopen_datafile("buglog", "a", TROUBLEPREFIX);
962.  	    if (fp) {
963.  		(void) fprintf(fp,
964.  		  "%08ld: BUG: obfree() called on non-empty container.\n",
965.  		  yyyymmdd((time_t)0L));
966.  		known = objects[obj->otyp].oc_name_known;
967.  		objects[obj->otyp].oc_name_known = 1;
968.  		obj->known = obj->bknown = obj->dknown = obj->rknown = 1;
969.  		(void) fprintf(fp, "Container: %s\n", doname(obj));
970.  		objects[obj->otyp].oc_name_known = known;
971.  		(void) fprintf(fp, "ID: %d\n", obj->o_id);
972.  		(void) fprintf(fp, "Contents of %s:\n", the(xname(obj)));
973.  		for(otmp = obj->cobj; otmp; otmp = obj->nobj) {
974.  		    known = objects[otmp->otyp].oc_name_known;
975.  		    objects[otmp->otyp].oc_name_known = 1;
976.  		    otmp->known = otmp->bknown =
977.  			    otmp->dknown = otmp->rknown = 1;
978.  		    (void) fprintf(fp, "\t%s\n", doname(otmp));
979.  		    objects[otmp->otyp].oc_name_known = known;
980.  		}
981.  		switch (obj->where) {
982.  		    case OBJ_FREE:
983.  			(void) fprintf(fp, "Container is on free list.\n");
984.  			break;
985.  		    case OBJ_FLOOR:
986.  			(void) fprintf(fp,
987.  				"Container is on the floor at (%d, %d)\n",
988.  				obj->ox, obj->oy);
989.  			break;
990.  		    case OBJ_CONTAINED:
991.  			otmp = obj->ocontainer;
992.  			known = objects[otmp->otyp].oc_name_known;
993.  			objects[otmp->otyp].oc_name_known = 1;
994.  			otmp->known = otmp->bknown =
995.  				otmp->dknown = otmp->rknown = 1;
996.  			get_obj_location(otmp, &x, &y,
997.  				BURIED_TOO | CONTAINED_TOO);
998.  			(void) fprintf(fp,
999.  				"Container is contained in %s at (%d, %d)\n",
1000. 				doname(otmp), x, y);
1001. 			objects[otmp->otyp].oc_name_known = known;
1002. 			break;
1003. 		    case OBJ_INVENT:
1004. 			(void) fprintf(fp,
1005. 				"Container is in hero's inventory\n");
1006. 			break;
1007. 		    case OBJ_MINVENT:
1008. 			get_obj_location(otmp, &x, &y, 0);
1009. 			(void) fprintf(fp,
1010. 				"Container is in %s's inventory at (%d, %d)\n",
1011. 				s_suffix(noit_mon_nam(obj->ocarry)), x, y);
1012. 			break;
1013. 		    case OBJ_MIGRATING:
1014. 			(void) fprintf(fp,
1015. 				"Container is migrating to level %d of %s\n",
1016. 				otmp->oy, dungeons[otmp->ox].dname);
1017. 			break;
1018. 		    case OBJ_BURIED:
1019. 			(void) fprintf(fp, "Container is buried at (%d, %d)\n",
1020. 				obj->ox, obj->oy);
1021. 			break;
1022. 		    case OBJ_ONBILL:
1023. 			(void) fprintf(fp, "Container is on shopping bill.\n");
1024. 			break;
1025. 		    default:
1026. 			(void) fprintf(fp,
1027. 				"Container is nowhere (%d).\n", obj->where);
1028. 			break;
1029. 		}
1030. 		(void) fprintf(fp, "\n");
1031. 		fclose(fp);
1032. 	    }
1033. 	}
1034. 	if (Has_contents(obj)) delete_contents(obj);
1035. 
1036. 	shkp = 0;
1037. 	if (obj->unpaid) {
1038. 	    /* look for a shopkeeper who owns this object */
1039. 	    for (shkp = next_shkp(fmon, TRUE); shkp;
1040. 		    shkp = next_shkp(shkp->nmon, TRUE))
1041. 		if (onbill(obj, shkp, TRUE)) break;
1042. 	}
1043. 	/* sanity check, more or less */
1044. 	if (!shkp) shkp = shop_keeper(*u.ushops);
1045. 		/*
1046. 		 * Note:  `shkp = shop_keeper(*u.ushops)' used to be
1047. 		 *	  unconditional.  But obfree() is used all over
1048. 		 *	  the place, so making its behavior be dependent
1049. 		 *	  upon player location doesn't make much sense.
1050. 		 */
1051. 
1052. 	if ((bp = onbill(obj, shkp, FALSE)) != 0) {
1053. 		if(!merge){
1054. 			bp->useup = 1;
1055. 			obj->unpaid = 0;	/* only for doinvbill */
1056. 			add_to_billobjs(obj);
1057. 			return;
1058. 		}
1059. 		bpm = onbill(merge, shkp, FALSE);
1060. 		if(!bpm){
1061. 			/* this used to be a rename */
1062. 			impossible("obfree: not on bill??");
1063. 			return;
1064. 		} else {
1065. 			/* this was a merger */
1066. 			bpm->bquan += bp->bquan;
1067. 			ESHK(shkp)->billct--;
1068. #ifdef DUMB
1069. 			{
1070. 			/* DRS/NS 2.2.6 messes up -- Peter Kendell */
1071. 				int indx = ESHK(shkp)->billct;
1072. 				*bp = ESHK(shkp)->bill_p[indx];
1073. 			}
1074. #else
1075. 			*bp = ESHK(shkp)->bill_p[ESHK(shkp)->billct];
1076. #endif
1077. 		}
1078. 	}
1079. 	dealloc_obj(obj);
1080. }
1081. #endif /* OVLB */
1082. #ifdef OVL3
1083. 
1084. STATIC_OVL long
1085. check_credit(tmp, shkp)
1086. long tmp;
1087. register struct monst *shkp;
1088. {
1089. 	long credit = ESHK(shkp)->credit;
1090. 
1091. 	if(credit == 0L) return(tmp);
1092. 	if(credit >= tmp) {
1093. 		pline_The("price is deducted from your credit.");
1094. 		ESHK(shkp)->credit -=tmp;
1095. 		tmp = 0L;
1096. 	} else {
1097. 		pline_The("price is partially covered by your credit.");
1098. 		ESHK(shkp)->credit = 0L;
1099. 		tmp -= credit;
1100. 	}
1101. 	return(tmp);
1102. }
1103. 
1104. STATIC_OVL void
1105. pay(tmp,shkp)
1106. long tmp;
1107. register struct monst *shkp;
1108. {
1109. 	long robbed = ESHK(shkp)->robbed;
1110. 	long balance = ((tmp <= 0L) ? tmp : check_credit(tmp, shkp));
1111. 
1112. #ifndef GOLDOBJ
1113. 	u.ugold -= balance;
1114. 	shkp->mgold += balance;
1115. #else
1116. 	if (balance > 0) money2mon(shkp, balance);
1117. 	else if (balance < 0) money2u(shkp, -balance);
1118. #endif
1119. 	flags.botl = 1;
1120. 	if(robbed) {
1121. 		robbed -= tmp;
1122. 		if(robbed < 0) robbed = 0L;
1123. 		ESHK(shkp)->robbed = robbed;
1124. 	}
1125. }
1126. #endif /*OVL3*/
1127. #ifdef OVLB
1128. 
1129. /* return shkp to home position */
1130. void
1131. home_shk(shkp, killkops)
1132. register struct monst *shkp;
1133. register boolean killkops;
1134. {
1135. 	register xchar x = ESHK(shkp)->shk.x, y = ESHK(shkp)->shk.y;
1136. 
1137. 	(void) mnearto(shkp, x, y, TRUE);
1138. 	level.flags.has_shop = 1;
1139. 	if (killkops) {
1140. #ifdef KOPS
1141. 		kops_gone(TRUE);
1142. #else
1143. 		You_feel("vaguely apprehensive.");
1144. #endif
1145. 		pacify_guards();
1146. 	}
1147. 	after_shk_move(shkp);
1148. }
1149. 
1150. STATIC_OVL boolean
1151. angry_shk_exists()
1152. {
1153. 	register struct monst *shkp;
1154. 
1155. 	for (shkp = next_shkp(fmon, FALSE);
1156. 		shkp; shkp = next_shkp(shkp->nmon, FALSE))
1157. 	    if (ANGRY(shkp)) return(TRUE);
1158. 	return(FALSE);
1159. }
1160. 
1161. /* remove previously applied surcharge from all billed items */
1162. STATIC_OVL void
1163. pacify_shk(shkp)
1164. register struct monst *shkp;
1165. {
1166. 	NOTANGRY(shkp) = TRUE;	/* make peaceful */
1167. 	if (ESHK(shkp)->surcharge) {
1168. 		register struct bill_x *bp = ESHK(shkp)->bill_p;
1169. 		register int ct = ESHK(shkp)->billct;
1170. 
1171. 		ESHK(shkp)->surcharge = FALSE;
1172. 		while (ct-- > 0) {
1173. 			register long reduction = (bp->price + 3L) / 4L;
1174. 			bp->price -= reduction;		/* undo 33% increase */
1175. 			bp++;
1176. 		}
1177. 	}
1178. }
1179. 
1180. /* add aggravation surcharge to all billed items */
1181. STATIC_OVL void
1182. rile_shk(shkp)
1183. register struct monst *shkp;
1184. {
1185. 	NOTANGRY(shkp) = FALSE;	/* make angry */
1186. 	if (!ESHK(shkp)->surcharge) {
1187. 		register struct bill_x *bp = ESHK(shkp)->bill_p;
1188. 		register int ct = ESHK(shkp)->billct;
1189. 
1190. 		ESHK(shkp)->surcharge = TRUE;
1191. 		while (ct-- > 0) {
1192. 			register long surcharge = (bp->price + 2L) / 3L;
1193. 			bp->price += surcharge;
1194. 			bp++;
1195. 		}
1196. 	}
1197. }
1198. 
1199. /* wakeup and/or unparalyze shopkeeper */
1200. STATIC_OVL void
1201. rouse_shk(shkp, verbosely)
1202. struct monst *shkp;
1203. boolean verbosely;
1204. {
1205. 	if (!shkp->mcanmove || shkp->msleeping) {
1206. 	    /* greed induced recovery... */
1207. 	    if (verbosely && canspotmon(shkp))
1208. 		pline("%s %s.", Monnam(shkp),
1209. 		      shkp->msleeping ? "wakes up" : "can move again");
1210. 	    shkp->msleeping = 0;
1211. 	    shkp->mfrozen = 0;
1212. 	    shkp->mcanmove = 1;
1213. 	}
1214. }
1215. 
1216. void
1217. make_happy_shk(shkp, silentkops)
1218. register struct monst *shkp;
1219. register boolean silentkops;
1220. {
1221. 	boolean wasmad = ANGRY(shkp);
1222. 	struct eshk *eshkp = ESHK(shkp);
1223. 	boolean guilty = wasmad ||
1224. 		eshkp->surcharge || eshkp->following || eshkp->robbed;
1225. 
1226. 	pacify_shk(shkp);
1227. 	eshkp->following = 0;
1228. 	eshkp->robbed = 0L;
1229. 	if (guilty && !Role_if(PM_ROGUE)) {
1230. 		adjalign(sgn(u.ualign.type));
1231. 		You("feel your guilt vanish.");        
1232. 	}
1233. 	if(!inhishop(shkp)) {
1234. 		char shk_nam[BUFSZ];
1235. 		boolean vanished = canseemon(shkp);
1236. 
1237. 		Strcpy(shk_nam, mon_nam(shkp));
1238. 		if (on_level(&eshkp->shoplevel, &u.uz)) {
1239. 			home_shk(shkp, FALSE);
1240. 			/* didn't disappear if shk can still be seen */
1241. 			if (canseemon(shkp)) vanished = FALSE;
1242. 		} else {
1243. 			/* if sensed, does disappear regardless whether seen */
1244. 			if (sensemon(shkp)) vanished = TRUE;
1245. 			/* can't act as porter for the Amulet, even if shk
1246. 			   happens to be going farther down rather than up */
1247. 			mdrop_special_objs(shkp);
1248. 			/* arrive near shop's door */
1249. 			migrate_to_level(shkp, ledger_no(&eshkp->shoplevel),
1250. 					 MIGR_APPROX_XY, &eshkp->shd);
1251. 		}
1252. 		if (vanished)
1253. 		    pline("Satisfied, %s suddenly disappears!", shk_nam);
1254. 	} else if(wasmad)
1255. 		pline("%s calms down.", Monnam(shkp));
1256. 
1257. 	if(!angry_shk_exists()) {
1258. #ifdef KOPS
1259. 		kops_gone(silentkops);
1260. #endif
1261. 		pacify_guards();
1262. 	}
1263. }
1264. 
1265. void
1266. hot_pursuit(shkp)
1267. register struct monst *shkp;
1268. {
1269. 	if(!shkp->isshk) return;
1270. 
1271. 	rile_shk(shkp);
1272. 	(void) strncpy(ESHK(shkp)->customer, plname, PL_NSIZ);
1273. 	ESHK(shkp)->following = 1;
1274. }
1275. 
1276. /* used when the shkp is teleported or falls (ox == 0) out of his shop,
1277.  * or when the player is not on a costly_spot and he
1278.  * damages something inside the shop.  these conditions
1279.  * must be checked by the calling function.
1280.  */
1281. void
1282. make_angry_shk(shkp, ox, oy)
1283. register struct monst *shkp;
1284. register xchar ox,oy;
1285. {
1286. 	xchar sx, sy;
1287. 	struct eshk *eshkp = ESHK(shkp);
1288. 
1289. 	/* all pending shop transactions are now "past due" */
1290. 	if (eshkp->billct || eshkp->debit || eshkp->loan || eshkp->credit) {
1291. 	    eshkp->robbed += (addupbill(shkp) + eshkp->debit + eshkp->loan);
1292. 	    eshkp->robbed -= eshkp->credit;
1293. 	    if (eshkp->robbed < 0L) eshkp->robbed = 0L;
1294. 	    /* billct, debit, loan, and credit will be cleared by setpaid */
1295. 	    setpaid(shkp);
1296. 	}
1297. 
1298. 	/* If you just used a wand of teleportation to send the shk away, you
1299. 	   might not be able to see her any more.  Monnam would yield "it",
1300. 	   which makes this message look pretty silly, so temporarily restore
1301. 	   her original location during the call to Monnam. */
1302. 	sx = shkp->mx,  sy = shkp->my;
1303. 	if (isok(ox, oy) && cansee(ox, oy) && !cansee(sx, sy))
1304. 		shkp->mx = ox,  shkp->my = oy;
1305. 	pline("%s %s!", Monnam(shkp),
1306. 	      !ANGRY(shkp) ? "gets angry" : "is furious");
1307. 	shkp->mx = sx,  shkp->my = sy;
1308. 	hot_pursuit(shkp);
1309. }
1310. 
1311. STATIC_VAR const char no_money[] = "Moreover, you%s have no money.";
1312. STATIC_VAR const char not_enough_money[] =
1313. 			    "Besides, you don't have enough to interest %s.";
1314. 
1315. #else
1316. STATIC_VAR const char no_money[];
1317. STATIC_VAR const char not_enough_money[];
1318. #endif /*OVLB*/
1319. 
1320. #ifdef OVL3
1321. 
1322. STATIC_OVL long
1323. cheapest_item(shkp)   /* delivers the cheapest item on the list */
1324. register struct monst *shkp;
1325. {
1326. 	register int ct = ESHK(shkp)->billct;
1327. 	register struct bill_x *bp = ESHK(shkp)->bill_p;
1328. 	register long gmin = (bp->price * bp->bquan);
1329. 
1330. 	while(ct--){
1331. 		if(bp->price * bp->bquan < gmin)
1332. 			gmin = bp->price * bp->bquan;
1333. 		bp++;
1334. 	}
1335. 	return(gmin);
1336. }
1337. #endif /*OVL3*/
1338. #ifdef OVL0
1339. 
1340. int
1341. dopay()
1342. {
1343. 	register struct eshk *eshkp;
1344. 	register struct monst *shkp;
1345. 	struct monst *nxtm, *resident;
1346. 	long ltmp;
1347. #ifdef GOLDOBJ
1348. 	long umoney;
1349. #endif
1350. 	int pass, tmp, sk = 0, seensk = 0;
1351. 	boolean paid = FALSE, stashed_gold = (hidden_gold() > 0L);
1352. 
1353. 	multi = 0;
1354. 
1355. 	/* find how many shk's there are, how many are in */
1356. 	/* sight, and are you in a shop room with one.    */
1357. 	nxtm = resident = 0;
1358. 	for (shkp = next_shkp(fmon, FALSE);
1359. 		shkp; shkp = next_shkp(shkp->nmon, FALSE)) {
1360. 	    sk++;
1361. 	    if (ANGRY(shkp) && distu(shkp->mx, shkp->my) <= 2) nxtm = shkp;
1362. 	    if (canspotmon(shkp)) seensk++;
1363. 	    if (inhishop(shkp) && (*u.ushops == ESHK(shkp)->shoproom))
1364. 		resident = shkp;
1365. 	}
1366. 
1367. 	if (nxtm) {			/* Player should always appease an */
1368. 	     shkp = nxtm;		/* irate shk standing next to them. */
1369. 	     goto proceed;
1370. 	}
1371. 
1372. 	/* KMH -- Permit paying adjacent gypsies */
1373. 	for (nxtm = fmon; nxtm; nxtm = nxtm->nmon) {
1374. 		if (!nxtm->isgyp || !nxtm->mpeaceful ||
1375. 				distu(nxtm->mx, nxtm->my) > 2 || !canspotmon(nxtm))
1376. 			continue;
1377. 		shkp = nxtm;
1378. 		sk++;
1379. 	    seensk++;
1380. 	}
1381. 
1382. 	if ((!sk && (!Blind || Blind_telepat)) || (!Blind && !seensk)) {
1383.       There("appears to be no shopkeeper here to receive your payment.");
1384. 		return(0);
1385. 	}
1386. 
1387. 	if(!seensk) {
1388. 		You_cant("see...");
1389. 		return(0);
1390. 	}
1391. 
1392. 	/* the usual case.  allow paying at a distance when */
1393. 	/* inside a tended shop.  should we change that?    */
1394. 	if(sk == 1 && resident) {
1395. 		shkp = resident;
1396. 		goto proceed;
1397. 	}
1398. 
1399. 	if (seensk == 1) {
1400. 		/* KMH -- Permit paying gypsies */
1401. 		if (shkp && shkp->isgyp) {
1402. 			gypsy_chat(shkp);
1403. 			return (1);
1404. 		}
1405. 
1406. 		for (shkp = next_shkp(fmon, FALSE);
1407. 			shkp; shkp = next_shkp(shkp->nmon, FALSE))
1408. 		    if (canspotmon(shkp)) break;
1409. 		if (shkp != resident && distu(shkp->mx, shkp->my) > 2) {
1410. 		    pline("%s is not near enough to receive your payment.",
1411. 					     Monnam(shkp));
1412. 		    return(0);
1413. 		}
1414. 	} else {
1415. 		struct monst *mtmp;
1416. 		coord cc;
1417. 		int cx, cy;
1418. 
1419. 		pline("Pay whom?");
1420. 		cc.x = u.ux;
1421. 		cc.y = u.uy;
1422. 		if (getpos(&cc, TRUE, "the creature you want to pay") < 0)
1423. 		    return 0;	/* player pressed ESC */
1424. 		cx = cc.x;
1425. 		cy = cc.y;
1426. 		if(cx < 0) {
1427. 		     pline("Try again...");
1428. 		     return(0);
1429. 		}
1430. 		if(u.ux == cx && u.uy == cy) {
1431. 		     You("are generous to yourself.");
1432. 		     return(0);
1433. 		}
1434. 		mtmp = m_at(cx, cy);
1435. 		if(!mtmp) {
1436. 		     There("is no one there to receive your payment.");
1437. 		     return(0);
1438. 		}
1439. 		/* KMH -- Permit paying gypsies */
1440. 		if (mtmp->isgyp && mtmp->mpeaceful) {
1441. 			if (distu(mtmp->mx, mtmp->my) <= 2) {
1442. 				gypsy_chat(mtmp);
1443. 				return (1);
1444. 			}
1445. 		} else
1446. 		if(!mtmp->isshk) {
1447. 		     pline("%s is not interested in your payment.",
1448. 				    Monnam(mtmp));
1449. 		     return(0);
1450. 		}
1451. 		if (mtmp != resident && distu(mtmp->mx, mtmp->my) > 2) {
1452. 		     pline("%s is too far to receive your payment.",
1453. 				    Monnam(mtmp));
1454. 		     return(0);
1455. 		}
1456. 		shkp = mtmp;
1457. 	}
1458. 
1459. 	if(!shkp) {
1460. #ifdef DEBUG
1461. 		pline("dopay: null shkp.");
1462. #endif
1463. 		return(0);
1464. 	}
1465. proceed:
1466. 	eshkp = ESHK(shkp);
1467. 	ltmp = eshkp->robbed;
1468. 
1469. 	/* wake sleeping shk when someone who owes money offers payment */
1470. 	if (ltmp || eshkp->billct || eshkp->debit) 
1471. 	    rouse_shk(shkp, TRUE);
1472. 
1473. 	if (!shkp->mcanmove || shkp->msleeping) { /* still asleep/paralyzed */
1474. 		pline("%s %s.", Monnam(shkp),
1475. 		      rn2(2) ? "seems to be napping" : "doesn't respond");
1476. 		return 0;
1477. 	}
1478. 
1479. 	if(shkp != resident && NOTANGRY(shkp)) {
1480. #ifdef GOLDOBJ
1481.                 umoney = money_cnt(invent);
1482. #endif
1483. 		if(!ltmp)
1484. 		    You("do not owe %s anything.", mon_nam(shkp));
1485. #ifndef GOLDOBJ
1486. 		else if(!u.ugold) {
1487. #else
1488. 		else if(!umoney) {
1489. #endif
1490. 		    You("%shave no money.", stashed_gold ? "seem to " : "");
1491. 		    if(stashed_gold)
1492. 
1493. #ifndef GOLDOBJ
1494. 			pline("But you have some gold stashed away.");
1495. #else
1496. 				pline("But you have some money stashed away.");
1497. #endif
1498. 		} else {
1499. #ifndef GOLDOBJ
1500. 		    long ugold = u.ugold;
1501. 		    if(ugold > ltmp) {
1502. #else
1503. 		    if(umoney > ltmp) {
1504. #endif
1505. 			You("give %s the %ld gold piece%s %s asked for.",
1506. 			    mon_nam(shkp), ltmp, plur(ltmp), mhe(shkp));
1507. 			pay(ltmp, shkp);
1508. 		    } else {
1509. #ifndef GOLDOBJ
1510. 			You("give %s all your%s gold.", mon_nam(shkp),
1511. #else
1512. 			You("give %s all your%s money.", mon_nam(shkp),
1513. #endif
1514. 					stashed_gold ? " openly kept" : "");
1515. #ifndef GOLDOBJ
1516. 			pay(u.ugold, shkp);
1517. 			if (stashed_gold) pline("But you have hidden gold!");
1518. #else
1519. 			pay(umoney, shkp);
1520. 			if (stashed_gold) pline("But you have hidden money!");
1521. #endif
1522. 		    }
1523. #ifndef GOLDOBJ
1524. 		    if((ugold < ltmp/2L) || (ugold < ltmp && stashed_gold))
1525. #else
1526. 		    if((umoney < ltmp/2L) || (umoney < ltmp && stashed_gold))
1527. #endif
1528. 			pline("Unfortunately, %s doesn't look satisfied.",
1529. 			      mhe(shkp));
1530. 		    else
1531. 			make_happy_shk(shkp, FALSE);
1532. 		}
1533. 		return(1);
1534. 	}
1535. 
1536. 	/* ltmp is still eshkp->robbed here */
1537. 	if (!eshkp->billct && !eshkp->debit) {
1538. #ifdef GOLDOBJ
1539.                 umoney = money_cnt(invent);
1540. #endif
1541. 		if(!ltmp && NOTANGRY(shkp)) {
1542. 		    You("do not owe %s anything.", mon_nam(shkp));
1543. #ifndef GOLDOBJ
1544. 		    if (!u.ugold)
1545. #else
1546. 		    if (!umoney)
1547. #endif
1548. 			pline(no_money, stashed_gold ? " seem to" : "");
1549. 		 
1550. #ifdef OTHER_SERVICES
1551. /*		    else */
1552. 			shk_other_services();
1553. #endif                
1554. 		
1555. 		} else if(ltmp) {
1556. 		    pline("%s is after blood, not money!", Monnam(shkp));
1557. #ifndef GOLDOBJ
1558. 		    if(u.ugold < ltmp/2L ||
1559. 				(u.ugold < ltmp && stashed_gold)) {
1560. 			if (!u.ugold)
1561. #else
1562. 		    if(umoney < ltmp/2L ||
1563. 				(umoney < ltmp && stashed_gold)) {
1564. 			if (!umoney)
1565. #endif
1566. 			    pline(no_money, stashed_gold ? " seem to" : "");
1567. 			else pline(not_enough_money, mhim(shkp));
1568. 			return(1);
1569. 		    }
1570. 		    pline("But since %s shop has been robbed recently,",
1571. 			  mhis(shkp));
1572. 		    pline("you %scompensate %s for %s losses.",
1573. #ifndef GOLDOBJ
1574. 			  (u.ugold < ltmp) ? 
1575. #else
1576. 			  (umoney < ltmp) ?
1577. #endif
1578. 			  "partially " : "",
1579. 			  mon_nam(shkp), mhis(shkp));
1580. #ifndef GOLDOBJ
1581. 		    pay(u.ugold < ltmp ? u.ugold : ltmp, shkp);
1582. #else
1583. 		    pay(umoney < ltmp ? umoney : ltmp, shkp);
1584. #endif
1585. 		    make_happy_shk(shkp, FALSE);
1586. 		} else {
1587. 		    /* shopkeeper is angry, but has not been robbed --
1588. 		     * door broken, attacked, etc. */
1589. 		    pline("%s is after your hide, not your money!",
1590. 			  Monnam(shkp));
1591. #ifndef GOLDOBJ
1592. 		    if(u.ugold < 1000L) {
1593. 			if (!u.ugold)
1594. #else
1595. 		    if(umoney < 1000L) {
1596. 			if (!umoney)
1597. #endif
1598. 			    pline(no_money, stashed_gold ? " seem to" : "");
1599. 			else pline(not_enough_money, mhim(shkp));
1600. 			return(1);
1601. 		    }
1602. 		    You("try to appease %s by giving %s 1000 gold pieces.",
1603. 			x_monnam(shkp, ARTICLE_THE, "angry", 0, FALSE),
1604. 			mhim(shkp));
1605. 		    pay(1000L,shkp);
1606. 		    if (strncmp(eshkp->customer, plname, PL_NSIZ) || rn2(3))
1607. 			make_happy_shk(shkp, FALSE);
1608. 		    else
1609. 			pline("But %s is as angry as ever.", mon_nam(shkp));
1610. 		}
1611. 		return(1);
1612. 	}
1613. 	if(shkp != resident) {
1614. 		impossible("dopay: not to shopkeeper?");
1615. 		if(resident) setpaid(resident);
1616. 		return(0);
1617. 	}        
1618. 	/* pay debt, if any, first */
1619. 	if(eshkp->debit) {
1620. 		long dtmp = eshkp->debit;
1621. 		long loan = eshkp->loan;
1622. 		char sbuf[BUFSZ];
1623. #ifdef GOLDOBJ
1624.                 umoney = money_cnt(invent);
1625. #endif
1626. 		Sprintf(sbuf, "You owe %s %ld %s ",
1627. 					   shkname(shkp), dtmp, currency(dtmp));
1628. 		if(loan) {
1629. 		    if(loan == dtmp)
1630. 			Strcat(sbuf, "you picked up in the store.");
1631. 		    else Strcat(sbuf,
1632. 			   "for gold picked up and the use of merchandise.");
1633. 		} else Strcat(sbuf, "for the use of merchandise.");
1634. 		pline(sbuf);
1635. #ifndef GOLDOBJ
1636. 		if (u.ugold + eshkp->credit < dtmp) {
1637. 		    pline("But you don't%s have enough gold%s.",
1638. #else
1639. 		if (umoney + eshkp->credit < dtmp) {
1640. 		    pline("But you don't%s have enough money%s.",
1641. #endif
1642. 
1643. 			stashed_gold ? " seem to" : "",
1644. 			eshkp->credit ? " or credit" : "");
1645. 		    return(1);
1646. 		} else {
1647. 		    if (eshkp->credit >= dtmp) {
1648. 			eshkp->credit -= dtmp;
1649. 			eshkp->debit = 0L;
1650. 			eshkp->loan = 0L;
1651. 			Your("debt is covered by your credit.");
1652. 		    } else if (!eshkp->credit) {
1653. #ifndef GOLDOBJ
1654. 			u.ugold -= dtmp;
1655.  			shkp->mgold += dtmp;
1656. #else
1657.                         money2mon(shkp, dtmp);
1658. #endif
1659. 			eshkp->debit = 0L;
1660. 			eshkp->loan = 0L;
1661. 			You("pay that debt.");
1662. 			flags.botl = 1;
1663. 		    } else {
1664. 			dtmp -= eshkp->credit;
1665. 			eshkp->credit = 0L;
1666. #ifndef GOLDOBJ
1667. 			u.ugold -= dtmp;
1668. 			shkp->mgold += dtmp;
1669. #else
1670.                         money2mon(shkp, dtmp);
1671. #endif
1672. 			eshkp->debit = 0L;
1673. 			eshkp->loan = 0L;
1674. 			pline("That debt is partially offset by your credit.");
1675. 			You("pay the remainder.");
1676. 			flags.botl = 1;
1677. 		    }
1678. 		    paid = TRUE;
1679. 		}
1680. 	}
1681. 	/* now check items on bill */
1682. 	if (eshkp->billct) {
1683. 	    register boolean itemize;
1684. #ifndef GOLDOBJ
1685. 	    if (!u.ugold && !eshkp->credit) {
1686. #else
1687.             umoney = money_cnt(invent);
1688. 	    if (!umoney && !eshkp->credit) {
1689. #endif
1690. 		You("%shave no money or credit%s.",
1691. 				    stashed_gold ? "seem to " : "",
1692. 				    paid ? " left" : "");
1693. 		return(0);
1694. 	    }
1695. #ifndef GOLDOBJ
1696. 	    if ((u.ugold + eshkp->credit) < cheapest_item(shkp)) {
1697. #else
1698. 	    if ((umoney + eshkp->credit) < cheapest_item(shkp)) {
1699. #endif
1700. 		You("don't have enough money to buy%s the item%s you picked.",
1701. 		    eshkp->billct > 1 ? " any of" : "", plur(eshkp->billct));
1702. 		if(stashed_gold)
1703. #ifndef GOLDOBJ
1704. 		    pline("Maybe you have some gold stashed away?");
1705. #else
1706. 		    pline("Maybe you have some money stashed away?");
1707. #endif
1708. 		return(0);
1709. 	    }
1710. 
1711. 	    /* this isn't quite right; it itemizes without asking if the
1712. 	     * single item on the bill is partly used up and partly unpaid */
1713. 	    itemize = (eshkp->billct > 1 ? yn("Itemized billing?") == 'y' : 1);
1714. 
1715. 	    for (pass = 0; pass <= 1; pass++) {
1716. 		tmp = 0;
1717. 		while (tmp < eshkp->billct) {
1718. 		    struct obj *otmp;
1719. 		    register struct bill_x *bp = &(eshkp->bill_p[tmp]);
1720. 
1721. 		    /* find the object on one of the lists */
1722. 		    if ((otmp = bp_to_obj(bp)) != 0) {
1723. 			/* if completely used up, object quantity is stale;
1724. 			   restoring it to its original value here avoids
1725. 			   making the partly-used-up code more complicated */
1726. 			if (bp->useup) otmp->quan = bp->bquan;
1727. 		    } else {
1728. 			impossible("Shopkeeper administration out of order.");
1729. 			setpaid(shkp);	/* be nice to the player */
1730. 			return 1;
1731. 		    }
1732. 		    if (pass == bp->useup && otmp->quan == bp->bquan) {
1733. 			/* pay for used-up items on first pass and others
1734. 			 * on second, so player will be stuck in the store
1735. 			 * less often; things which are partly used up
1736. 			 * are processed on both passes */
1737. 			tmp++;
1738. 		    } else {
1739. 			switch (dopayobj(shkp, bp, &otmp, pass, itemize)) {
1740. 			  case PAY_CANT:
1741. 				return 1;	/*break*/
1742. 			  case PAY_BROKE:
1743. 				paid = TRUE;
1744. 				goto thanks;	/*break*/
1745. 			  case PAY_SKIP:
1746. 				tmp++;
1747. 				continue;	/*break*/
1748. 			  case PAY_SOME:
1749. 				paid = TRUE;
1750. 				if (itemize) bot();
1751. 				continue;	/*break*/
1752. 			  case PAY_BUY:
1753. 				paid = TRUE;
1754. 				break;
1755. 			}
1756. 			if (itemize) bot();
1757. 			*bp = eshkp->bill_p[--eshkp->billct];
1758. 		    }
1759. 		}
1760. 	    }
1761. 	thanks:
1762. 	    if (!itemize)
1763. 	        update_inventory(); /* Done in dopayobj() if itemize. */
1764. 	}
1765. 	if(!ANGRY(shkp) && paid)
1766. 	    verbalize("Thank you for shopping in %s %s!",
1767. 		s_suffix(shkname(shkp)),
1768. 		shtypes[eshkp->shoptype - SHOPBASE].name);
1769. 	return(1);
1770. }
1771. 
1772. #ifdef OTHER_SERVICES
1773. /*
1774. ** FUNCTION shk_other_services
1775. **
1776. ** Called when you don't owe any money.  Called after all checks have been
1777. ** made (in shop, not angry shopkeeper, etc.)
1778. */
1779. static void
1780. shk_other_services()
1781. {
1782. 	char *slang;		/* What shk calls you		*/
1783. 	struct monst *shkp;		/* The shopkeeper		*/
1784. 	/*WAC - Windowstuff*/
1785. 	winid tmpwin;
1786. 	anything any;
1787. 	menu_item *selected;
1788. 	int n;
1789. 
1790. 	/* Do you want to use other services */
1791. 	if (yn("Do you wish to try our other services?") != 'y' ) return;
1792. 
1793. 	/* Init your name */
1794. 	if (!is_human(youmonst.data))
1795. 		slang = "ugly";
1796. 	else
1797. 		slang = (flags.female) ? "lady" : "buddy";
1798. 
1799. 	/* Init the shopkeeper */
1800. 	shkp = shop_keeper(/* roomno= */*u.ushops);
1801. 	if (!ESHK(shkp)->services) return;
1802. 
1803. 	/*
1804. 	** Figure out what services he offers
1805. 	**
1806. 	** i = identify
1807. 	** a = appraise weapon's worth
1808. 	** u = uncurse
1809. 	** w = weapon-works (including poison)
1810. 	** p = poison weapon
1811. 	** r = armor-works
1812. 	** c = charge wands
1813. 	*/
1814. 	/*WAC - did this using the windowing system...*/
1815. 	any.a_void = 0;         /* zero out all bits */
1816. 	tmpwin = create_nhwindow(NHW_MENU);
1817. 	start_menu(tmpwin);
1818. 
1819.   	/* All shops can identify (some better than others) */
1820. 	any.a_int = 1;
1821. 	if (ESHK(shkp)->services & (SHK_ID_BASIC|SHK_ID_PREMIUM))
1822. 	     add_menu(tmpwin, NO_GLYPH, &any , 'i', 0, ATR_NONE,
1823. 	         "Identify", MENU_UNSELECTED);
1824.   
1825.   	/* All shops can uncurse */
1826. 	any.a_int = 2;
1827. 	if (ESHK(shkp)->services & (SHK_UNCURSE))
1828. 	     add_menu(tmpwin, NO_GLYPH, &any , 'u', 0, ATR_NONE,
1829. 	         "Uncurse", MENU_UNSELECTED);
1830.   
1831.   	/* Weapon appraisals.  Weapon & general stores can do this. */
1832. 	if ((ESHK(shkp)->services & (SHK_UNCURSE)) &&
1833. 			(shk_class_match(WEAPON_CLASS, shkp))) {
1834. 		any.a_int = 3;
1835. 		add_menu(tmpwin, NO_GLYPH, &any , 'a', 0, ATR_NONE,
1836. 				"Appraise", MENU_UNSELECTED);
1837. 	}
1838.   
1839.   	/* Weapon-works!  Only a weapon store. */
1840. 	if ((ESHK(shkp)->services & (SHK_SPECIAL_A|SHK_SPECIAL_B|SHK_SPECIAL_C))
1841. 			&& (shk_class_match(WEAPON_CLASS, shkp) == SHK_MATCH)) {
1842. 		any.a_int = 4;
1843. 		if (ESHK(shkp)->services & (SHK_SPECIAL_A|SHK_SPECIAL_B))
1844. 			add_menu(tmpwin, NO_GLYPH, &any , 'w', 0, ATR_NONE,
1845. 				"Weapon-works", MENU_UNSELECTED);
1846. 		else
1847. 			add_menu(tmpwin, NO_GLYPH, &any , 'p', 0, ATR_NONE,
1848. 				"Poison", MENU_UNSELECTED);
1849. 	}
1850.   
1851.   	/* Armor-works */
1852. 	if ((ESHK(shkp)->services & (SHK_SPECIAL_A|SHK_SPECIAL_B))
1853. 			 && (shk_class_match(ARMOR_CLASS, shkp) == SHK_MATCH)) {
1854. 		any.a_int = 5;
1855. 		add_menu(tmpwin, NO_GLYPH, &any , 'r', 0, ATR_NONE,
1856. 				"Armor-works", MENU_UNSELECTED);
1857. 	}
1858.   
1859.   	/* Charging: / ( = */
1860. 	if ((ESHK(shkp)->services & (SHK_SPECIAL_A|SHK_SPECIAL_B)) &&
1861. 			((shk_class_match(WAND_CLASS, shkp) == SHK_MATCH) ||
1862. 			(shk_class_match(TOOL_CLASS, shkp) == SHK_MATCH) ||
1863. 			(shk_class_match(SPBOOK_CLASS, shkp) == SHK_MATCH) ||
1864. 			(shk_class_match(RING_CLASS, shkp) == SHK_MATCH))) {
1865. 		any.a_int = 6;
1866. 		add_menu(tmpwin, NO_GLYPH, &any , 'c', 0, ATR_NONE,
1867. 				"Charge", MENU_UNSELECTED);
1868. 	}
1869. 
1870. 	end_menu(tmpwin, "Services Available:");
1871. 	n = select_menu(tmpwin, PICK_ONE, &selected);
1872. 	destroy_nhwindow(tmpwin);
1873. 
1874. 	if (n > 0)
1875. 	    switch (selected[0].item.a_int) {
1876. 	        case 1:
1877. 	                shk_identify(slang, shkp);
1878. 	                break;
1879. 
1880. 	        case 2:
1881. 	                shk_uncurse(slang, shkp);
1882. 	                break;
1883. 
1884. 	        case 3:
1885. 	                shk_appraisal(slang, shkp);
1886. 	                break;
1887. 
1888. 	        case 4:
1889. 	                shk_weapon_works(slang, shkp);
1890. 	                break;
1891. 
1892. 	        case 5:
1893. 	                shk_armor_works(slang, shkp);
1894. 	                break;
1895. 
1896. 	        case 6:
1897. 	                shk_charge(slang, shkp);
1898. 	                break;
1899. 	        default:
1900. 	                pline ("Unknown Service");
1901. 	                break;
1902. 	    }
1903. }
1904. #endif /* OTHER_SERVICES */
1905. 
1906. #endif /*OVL0*/
1907. #ifdef OVL3
1908. 
1909. /* return 2 if used-up portion paid */
1910. /*	  1 if paid successfully    */
1911. /*	  0 if not enough money     */
1912. /*	 -1 if skip this object     */
1913. /*	 -2 if no money/credit left */
1914. STATIC_OVL int
1915. dopayobj(shkp, bp, obj_p, which, itemize)
1916. register struct monst *shkp;
1917. register struct bill_x *bp;
1918. struct obj **obj_p;
1919. int	which;		/* 0 => used-up item, 1 => other (unpaid or lost) */
1920. boolean itemize;
1921. {
1922. 	register struct obj *obj = *obj_p;
1923. 	long ltmp, quan, save_quan;
1924. #ifdef GOLDOBJ
1925. 	long umoney = money_cnt(invent);
1926. #endif
1927. 	int buy;
1928. 	boolean stashed_gold = (hidden_gold() > 0L),
1929. 		consumed = (which == 0);
1930. 
1931. 	if(!obj->unpaid && !bp->useup){
1932. 		impossible("Paid object on bill??");
1933. 		return PAY_BUY;
1934. 	}
1935. #ifndef GOLDOBJ
1936. 	if(itemize && u.ugold + ESHK(shkp)->credit == 0L){
1937. #else
1938. 	if(itemize && umoney + ESHK(shkp)->credit == 0L){
1939. #endif
1940. 		You("%shave no money or credit left.",
1941. 			     stashed_gold ? "seem to " : "");
1942. 		return PAY_BROKE;
1943. 	}
1944. 	/* we may need to temporarily adjust the object, if part of the
1945. 	   original quantity has been used up but part remains unpaid  */
1946. 	save_quan = obj->quan;
1947. 	if (consumed) {
1948. 	    /* either completely used up (simple), or split needed */
1949. 	    quan = bp->bquan;
1950. 	    if (quan > obj->quan)	/* difference is amount used up */
1951. 		quan -= obj->quan;
1952. 	} else {
1953. 	    /* dealing with ordinary unpaid item */
1954. 	    quan = obj->quan;
1955. 	}
1956. 	obj->quan = quan;	/* to be used by doname() */
1957. 	obj->unpaid = 0;	/* ditto */
1958. 	ltmp = bp->price * quan;
1959. 	buy = PAY_BUY;		/* flag; if changed then return early */
1960. 
1961. 	if (itemize) {
1962. 	    char qbuf[BUFSZ];
1963. 	    Sprintf(qbuf,"%s for %ld %s.  Pay?", quan == 1L ?
1964. 		    Doname2(obj) : doname(obj), ltmp, currency(ltmp));
1965. 	    if (yn(qbuf) == 'n') {
1966. 		buy = PAY_SKIP;		/* don't want to buy */
1967. 	    } else if (quan < bp->bquan && !consumed) { /* partly used goods */
1968. 		obj->quan = bp->bquan - save_quan;	/* used up amount */
1969. 		verbalize("%s for the other %s before buying %s.",
1970. 			  ANGRY(shkp) ? "Pay" : "Please pay", xname(obj),
1971. 			  save_quan > 1L ? "these" : "this one");
1972. 		buy = PAY_SKIP;		/* shk won't sell */
1973. 	    }
1974. 	}
1975. #ifndef GOLDOBJ
1976. 	if (buy == PAY_BUY && u.ugold + ESHK(shkp)->credit < ltmp) {
1977. 	    You("don't%s have gold%s enough to pay for %s.",
1978. #else
1979. 	if (buy == PAY_BUY && umoney + ESHK(shkp)->credit < ltmp) {
1980. 	    You("don't%s have money%s enough to pay for %s.",
1981. #endif
1982. 		stashed_gold ? " seem to" : "",
1983. 		(ESHK(shkp)->credit > 0L) ? " or credit" : "",
1984. 		doname(obj));
1985. 	    buy = itemize ? PAY_SKIP : PAY_CANT;
1986. 	}
1987. 
1988. 	if (buy != PAY_BUY) {
1989. 	    /* restore unpaid object to original state */
1990. 	    obj->quan = save_quan;
1991. 	    obj->unpaid = 1;
1992. 	    return buy;
1993. 	}
1994. 
1995. 	pay(ltmp, shkp);
1996. 	shk_names_obj(shkp, obj, consumed ?
1997. 			"paid for %s at a cost of %ld gold piece%s.%s" :
1998. 			"bought %s for %ld gold piece%s.%s", ltmp, "");
1999. 	obj->quan = save_quan;		/* restore original count */
2000. 	/* quan => amount just bought, save_quan => remaining unpaid count */
2001. 	if (consumed) {
2002. 	    if (quan != bp->bquan) {
2003. 		/* eliminate used-up portion; remainder is still unpaid */
2004. 		bp->bquan = obj->quan;
2005. 		obj->unpaid = 1;
2006. 		bp->useup = 0;
2007. 		buy = PAY_SOME;
2008. 	    } else {	/* completely used-up, so get rid of it */
2009. 		obj_extract_self(obj);
2010. 	     /* assert( obj == *obj_p ); */
2011. 		dealloc_obj(obj);
2012. 		*obj_p = 0;	/* destroy pointer to freed object */
2013. 	    }
2014. 	} else if (itemize)
2015. 	    update_inventory();	/* Done just once in dopay() if !itemize. */
2016. 	return buy;
2017. }
2018. #endif /*OVL3*/
2019. #ifdef OVLB
2020. 
2021. static coord repo_location;	/* repossession context */
2022. 
2023. /* routine called after dying (or quitting) */
2024. boolean
2025. paybill(croaked)
2026. int croaked;	/* -1: escaped dungeon; 0: quit; 1: died */
2027. {
2028. 	register struct monst *mtmp, *mtmp2, *resident= (struct monst *)0;
2029. 	register boolean taken = FALSE;
2030. 	register int numsk = 0;
2031. 
2032. 	/* if we escaped from the dungeon, shopkeepers can't reach us;
2033. 	   shops don't occur on level 1, but this could happen if hero
2034. 	   level teleports out of the dungeon and manages not to die */
2035. 	if (croaked < 0) return FALSE;
2036. 
2037. 	/* this is where inventory will end up if any shk takes it */
2038. 	repo_location.x = repo_location.y = 0;
2039. 
2040. 	/* give shopkeeper first crack */
2041. 	if ((mtmp = shop_keeper(*u.ushops)) && inhishop(mtmp)) {
2042. 	    numsk++;
2043. 	    resident = mtmp;
2044. 	    taken = inherits(resident, numsk, croaked);
2045. 	}
2046. 	for (mtmp = next_shkp(fmon, FALSE);
2047. 		mtmp; mtmp = next_shkp(mtmp2, FALSE)) {
2048. 	    mtmp2 = mtmp->nmon;
2049. 	    if (mtmp != resident) {
2050. 		/* for bones: we don't want a shopless shk around */
2051. 		if(!on_level(&(ESHK(mtmp)->shoplevel), &u.uz))
2052. 			mongone(mtmp);
2053. 		else {
2054. 		    numsk++;
2055. 		    taken |= inherits(mtmp, numsk, croaked);
2056. 		}
2057. 	    }
2058. 	}
2059. 	if(numsk == 0) return(FALSE);
2060. 	return(taken);
2061. }
2062. 
2063. STATIC_OVL boolean
2064. inherits(shkp, numsk, croaked)
2065. struct monst *shkp;
2066. int numsk;
2067. int croaked;
2068. {
2069. 	long loss = 0L;
2070. #ifdef GOLDOBJ
2071. 	long umoney;
2072. #endif
2073. 	struct eshk *eshkp = ESHK(shkp);
2074. 	boolean take = FALSE, taken = FALSE;
2075. 	int roomno = *u.ushops;
2076. 	char takes[BUFSZ];
2077. 
2078. 	/* the simplifying principle is that first-come */
2079. 	/* already took everything you had.		*/
2080. 	if (numsk > 1) {
2081. 	    if (cansee(shkp->mx, shkp->my) && croaked)
2082. 		pline("%s %slooks at your corpse%s and %s.",
2083. 		      Monnam(shkp),
2084. 		      (!shkp->mcanmove || shkp->msleeping) ? "wakes up, " : "",
2085. 		      !rn2(2) ? (shkp->female ? ", shakes her head," :
2086. 			   ", shakes his head,") : "",
2087. 		      !inhishop(shkp) ? "disappears" : "sighs");
2088. 	    rouse_shk(shkp, FALSE);	/* wake shk for bones */    
2089. 	    taken = (roomno == eshkp->shoproom);
2090. 	    goto skip;
2091. 	}
2092. 
2093. 	/* get one case out of the way: you die in the shop, the */
2094. 	/* shopkeeper is peaceful, nothing stolen, nothing owed. */
2095. 	if(roomno == eshkp->shoproom && inhishop(shkp) &&
2096. 	    !eshkp->billct && !eshkp->robbed && !eshkp->debit &&
2097. 	     NOTANGRY(shkp) && !eshkp->following) {
2098. 		if (invent)
2099. 			pline("%s gratefully inherits all your possessions.",
2100. 				shkname(shkp));
2101. 		set_repo_loc(eshkp);
2102. 		goto clear;
2103. 	}
2104. 
2105. 	if (eshkp->billct || eshkp->debit || eshkp->robbed) {
2106. 		if(roomno == eshkp->shoproom && inhishop(shkp))
2107. 		    loss = addupbill(shkp) + eshkp->debit;
2108. 		if (loss < eshkp->robbed) loss = eshkp->robbed;
2109. 		take = TRUE;
2110. 	}
2111. 
2112. 	if (eshkp->following || ANGRY(shkp) || take) {
2113. #ifndef GOLDOBJ
2114. 		if (!invent && !u.ugold) goto skip;
2115. #else
2116. 		if (!invent) goto skip;
2117.                 umoney = money_cnt(invent);
2118. #endif
2119. 		takes[0] = '\0';
2120. 		if (!shkp->mcanmove || shkp->msleeping)
2121. 			Strcat(takes, "wakes up and ");
2122. 		if (distu(shkp->mx, shkp->my) > 2)
2123. 			Strcat(takes, "comes and ");
2124. 		Strcat(takes, "takes");
2125. 
2126. #ifndef GOLDOBJ
2127. 		if (loss > u.ugold || !loss || roomno == eshkp->shoproom) {
2128. 			eshkp->robbed -= u.ugold;
2129. 			if (eshkp->robbed < 0L) eshkp->robbed = 0L;
2130. 			shkp->mgold += u.ugold;
2131. 			u.ugold = 0L;
2132. #else
2133. 		if (loss > umoney || !loss || roomno == eshkp->shoproom) {
2134. 			eshkp->robbed -= umoney;
2135. 			if (eshkp->robbed < 0L) eshkp->robbed = 0L;
2136. 			  if (umoney > 0) money2mon(shkp, umoney);
2137. #endif
2138. 			flags.botl = 1;
2139. 			pline("%s %s all your possessions.",
2140. 			      shkname(shkp), takes);
2141. 			taken = TRUE;
2142. 			/* where to put player's invent (after disclosure) */
2143. 			set_repo_loc(eshkp);
2144. 		} else {
2145. #ifndef GOLDOBJ
2146. 			shkp->mgold += loss;
2147. 			u.ugold -= loss;
2148. #else
2149.                         money2mon(shkp, loss);
2150. #endif
2151. 			flags.botl = 1;
2152. 			pline("%s %s the %ld %s %sowed %s.",
2153. 			      Monnam(shkp), takes,
2154. 			      loss, currency(loss),
2155. 			      strncmp(eshkp->customer, plname, PL_NSIZ) ?
2156. 					"" : "you ",
2157. 			      shkp->female ? "her" : "him");
2158. 			/* shopkeeper has now been paid in full */
2159. 			pacify_shk(shkp);
2160. 			eshkp->following = 0;
2161. 			eshkp->robbed = 0L;
2162. 		}
2163. skip:
2164. 		/* in case we create bones */
2165. 		rouse_shk(shkp, FALSE);	/* wake up */
2166. 		if(!inhishop(shkp))
2167. 			home_shk(shkp, FALSE);
2168. 	}
2169. clear:
2170. 	setpaid(shkp);
2171. 	return(taken);
2172. }
2173. 
2174. STATIC_OVL void
2175. set_repo_loc(eshkp)
2176. struct eshk *eshkp;
2177. {
2178. 	register xchar ox, oy;
2179. 
2180. 	/* if you're not in this shk's shop room, or if you're in its doorway
2181. 	    or entry spot, then your gear gets dumped all the way inside */
2182. 	if (*u.ushops != eshkp->shoproom ||
2183. 		IS_DOOR(levl[u.ux][u.uy].typ) ||
2184. 		(u.ux == eshkp->shk.x && u.uy == eshkp->shk.y)) {
2185. 	    /* shk.x,shk.y is the position immediately in
2186. 	     * front of the door -- move in one more space
2187. 	     */
2188. 	    ox = eshkp->shk.x;
2189. 	    oy = eshkp->shk.y;
2190. 	    ox += sgn(ox - eshkp->shd.x);
2191. 	    oy += sgn(oy - eshkp->shd.y);
2192. 	} else {		/* already inside this shk's shop */
2193. 	    ox = u.ux;
2194. 	    oy = u.uy;
2195. 	}
2196. 	/* finish_paybill will deposit invent here */
2197. 	repo_location.x = ox;
2198. 	repo_location.y = oy;
2199. }
2200. 
2201. /* called at game exit, after inventory disclosure but before making bones */
2202. void
2203. finish_paybill()
2204. {
2205. 	register struct obj *otmp;
2206. 	int ox = repo_location.x,
2207. 	    oy = repo_location.y;
2208. 
2209. #if 0		/* don't bother */
2210. 	if (ox == 0 && oy == 0) impossible("finish_paybill: no location");
2211. #endif
2212. 	/* normally done by savebones(), but that's too late in this case */
2213. 	unleash_all();
2214. 	/* transfer all of the character's inventory to the shop floor */
2215. 	while ((otmp = invent) != 0) {
2216. 	    otmp->owornmask = 0L;	/* perhaps we should call setnotworn? */
2217. 	    otmp->lamplit = 0;		/* avoid "goes out" msg from freeinv */
2218. 	    if (rn2(5)) curse(otmp);	/* normal bones treatment for invent */
2219. 	    obj_extract_self(otmp);
2220. 	    place_object(otmp, ox, oy);
2221. 	}
2222. }
2223. 
2224. /* find obj on one of the lists */
2225. STATIC_OVL struct obj *
2226. bp_to_obj(bp)
2227. register struct bill_x *bp;
2228. {
2229. 	register struct obj *obj;
2230. 	register unsigned int id = bp->bo_id;
2231. 
2232. 	if(bp->useup)
2233. 		obj = o_on(id, billobjs);
2234. 	else
2235. 		obj = find_oid(id);
2236. 	return obj;
2237. }
2238. 
2239. /*
2240.  * Look for o_id on all lists but billobj.  Return obj or NULL if not found.
2241.  * Its OK for restore_timers() to call this function, there should not
2242.  * be any timeouts on the billobjs chain.
2243.  */
2244. struct obj *
2245. find_oid(id)
2246. unsigned id;
2247. {
2248. 	struct obj *obj;
2249. 	struct monst *mon, *mmtmp[3];
2250. 	int i;
2251. 
2252. 	/* first check various obj lists directly */
2253. 	if ((obj = o_on(id, invent)) != 0) return obj;
2254. 	if ((obj = o_on(id, fobj)) != 0) return obj;
2255. 	if ((obj = o_on(id, level.buriedobjlist)) != 0) return obj;
2256. 	if ((obj = o_on(id, migrating_objs)) != 0) return obj;
2257. 
2258. 	/* not found yet; check inventory for members of various monst lists */
2259. 	mmtmp[0] = fmon;
2260. 	mmtmp[1] = migrating_mons;
2261. 	mmtmp[2] = mydogs;		/* for use during level changes */
2262. 	for (i = 0; i < 3; i++)
2263. 	    for (mon = mmtmp[i]; mon; mon = mon->nmon)
2264. 		if ((obj = o_on(id, mon->minvent)) != 0) return obj;
2265. 
2266. 	/* not found at all */
2267. 	return (struct obj *)0;
2268. }
2269. #endif /*OVLB*/
2270. #ifdef OVL3
2271. 
2272. /* calculate the value that the shk will charge for [one of] an object */
2273. STATIC_OVL long
2274. get_cost(obj, shkp)
2275. register struct obj *obj;
2276. register struct monst *shkp;	/* if angry, impose a surcharge */
2277. {
2278. 	register long tmp = getprice(obj, FALSE);
2279. 
2280. 	if (!tmp) tmp = 5L;
2281. 	/* shopkeeper may notice if the player isn't very knowledgeable -
2282. 	   especially when gem prices are concerned */
2283. 	if (!obj->dknown || !objects[obj->otyp].oc_name_known) {
2284. 		if (obj->oclass == GEM_CLASS &&
2285. 			objects[obj->otyp].oc_material == GLASS) {
2286. 		    int i;
2287. 		    /* get a value that's 'random' from game to game, but the
2288. 		       same within the same game */
2289. 		    boolean pseudorand =
2290. 			(((int)u.ubirthday % obj->otyp) >= obj->otyp/2);
2291. 
2292. 		    /* all gems are priced high - real or not */
2293. 		    switch(obj->otyp - LAST_GEM) {
2294. 			case 1: /* white */
2295. 			    i = pseudorand ? DIAMOND : OPAL;
2296. 			    break;
2297. 			case 2: /* blue */
2298. 			    i = pseudorand ? SAPPHIRE : AQUAMARINE;
2299. 			    break;
2300. 			case 3: /* red */
2301. 			    i = pseudorand ? RUBY : JASPER;
2302. 			    break;
2303. 			case 4: /* yellowish brown */
2304. 			    i = pseudorand ? AMBER : TOPAZ;
2305. 			    break;
2306. 			case 5: /* orange */
2307. 			    i = pseudorand ? JACINTH : AGATE;
2308. 			    break;
2309. 			case 6: /* yellow */
2310. 			    i = pseudorand ? CITRINE : CHRYSOBERYL;
2311. 			    break;
2312. 			case 7: /* black */
2313. 			    i = pseudorand ? BLACK_OPAL : JET;
2314. 			    break;
2315. 			case 8: /* green */
2316. 			    i = pseudorand ? EMERALD : JADE;
2317. 			    break;
2318. 			case 9: /* violet */
2319. 			    i = pseudorand ? AMETHYST : FLUORITE;
2320. 			    break;
2321. 			default: impossible("bad glass gem %d?", obj->otyp);
2322. 			    i = STRANGE_OBJECT;
2323. 			    break;
2324. 		    }
2325. 		    tmp = (long) objects[i].oc_cost;
2326. 		} else if (!(obj->o_id % 4)) /* arbitrarily impose surcharge */
2327. 		    tmp += tmp / 3L;
2328. 	}
2329. #ifdef TOURIST
2330. 	if ((Role_if(PM_TOURIST) && u.ulevel < (MAXULEV/2))
2331. 	    || (uarmu && !uarm && !uarmc))	/* touristy shirt visible */
2332. 		tmp += tmp / 3L;
2333. 	else
2334. #endif
2335. 	if (uarmh && uarmh->otyp == DUNCE_CAP)
2336. 		tmp += tmp / 3L;
2337. 
2338. 	if (ACURR(A_CHA) > 18)		tmp /= 2L;
2339. 	else if (ACURR(A_CHA) > 17)	tmp -= tmp / 3L;
2340. 	else if (ACURR(A_CHA) > 15)	tmp -= tmp / 4L;
2341. 	else if (ACURR(A_CHA) < 6)	tmp *= 2L;
2342. 	else if (ACURR(A_CHA) < 8)	tmp += tmp / 2L;
2343. 	else if (ACURR(A_CHA) < 11)	tmp += tmp / 3L;
2344. 	if (tmp <= 0L) tmp = 1L;
2345. 	else if (obj->oartifact) tmp *= 4L;
2346. 
2347. 	/* character classes who are discriminated against... */
2348. 	/* barbarians are gullible... */
2349. 	if (Role_if(PM_BARBARIAN)) tmp *= 3L;
2350. 	/* rogues are untrustworthy... */
2351. 	if (Role_if(PM_ROGUE)) tmp *= 2L;
2352. 	/* samurais are from out of town... */
2353. 	if (Role_if(PM_SAMURAI)) tmp *= 2L;
2354. 
2355. 	/* anger surcharge should match rile_shk's */
2356. 	if (shkp && ESHK(shkp)->surcharge) tmp += (tmp + 2L) / 3L;
2357. 
2358. #ifdef BLACKMARKET
2359. 	/* KMH, balance patch -- healthstone replaces rotting/health */
2360. 	if (Is_blackmarket(&u.uz)) {
2361. 	  if (obj->oclass==RING_CLASS    || obj->oclass==AMULET_CLASS   ||
2362. 	      obj->oclass==POTION_CLASS  || obj->oclass==SCROLL_CLASS   ||
2363. 	      obj->oclass==SPBOOK_CLASS  || obj->oclass==WAND_CLASS     ||
2364. 	      obj->otyp==LUCKSTONE       || obj->otyp==LOADSTONE        || 
2365. 	      obj->otyp==HEALTHSTONE || objects[obj->otyp].oc_magic) {
2366. 	    tmp *= 50;
2367. 	  } else {
2368. 	    tmp *= 25;
2369. 	  }
2370. 	}
2371. #endif /* BLACKMARKET */
2372. 
2373. 	return tmp;
2374. }
2375. #endif /*OVL3*/
2376. #ifdef OVLB
2377. 
2378. /* returns the price of a container's content.  the price
2379.  * of the "top" container is added in the calling functions.
2380.  * a different price quoted for selling as vs. buying.
2381.  */
2382. long
2383. contained_cost(obj, shkp, price, usell, unpaid_only)
2384. register struct obj *obj;
2385. register struct monst *shkp;
2386. long price;
2387. register boolean usell;
2388. register boolean unpaid_only;
2389. {
2390. 	register struct obj *otmp;
2391. 
2392. 	/* the price of contained objects */
2393. 	for (otmp = obj->cobj; otmp; otmp = otmp->nobj) {
2394. 	    if (otmp->oclass == COIN_CLASS) continue;
2395. 	    /* the "top" container is evaluated by caller */
2396. 	    if (usell) {
2397. 		if (saleable(shkp, otmp) &&
2398. 			!otmp->unpaid && otmp->oclass != BALL_CLASS &&
2399. #if defined(UNPOLYPILE)
2400. 			!is_hazy(otmp) &&
2401. #endif
2402. 			!(otmp->oclass == FOOD_CLASS && otmp->oeaten) &&
2403. 			!(Is_candle(otmp) && otmp->age <
2404. 				20L * (long)objects[otmp->otyp].oc_cost))
2405. 		    price += set_cost(otmp, shkp);
2406. 	    } else if (!otmp->no_charge &&
2407. 		      (!unpaid_only || (unpaid_only && otmp->unpaid))) {
2408. 		    price += get_cost(otmp, shkp) * otmp->quan;
2409. 	    }
2410. 
2411. 	    if (Has_contents(otmp))
2412. 		    price += contained_cost(otmp, shkp, price, usell, unpaid_only);
2413. 	}
2414. 
2415. 	return(price);
2416. }
2417. 
2418. long
2419. contained_gold(obj)
2420. register struct obj *obj;
2421. {
2422. 	register struct obj *otmp;
2423. 	register long value = 0L;
2424. 
2425. 	/* accumulate contained gold */
2426. 	for (otmp = obj->cobj; otmp; otmp = otmp->nobj)
2427. 	    if (otmp->oclass == COIN_CLASS)
2428. 		value += otmp->quan;
2429. 	    else if (Has_contents(otmp))
2430. 		value += contained_gold(otmp);
2431. 
2432. 	return(value);
2433. }
2434. 
2435. STATIC_OVL void
2436. dropped_container(obj, shkp, sale)
2437. register struct obj *obj;
2438. register struct monst *shkp;
2439. register boolean sale;
2440. {
2441. 	register struct obj *otmp;
2442. 
2443. 	/* the "top" container is treated in the calling fn */
2444. 	for (otmp = obj->cobj; otmp; otmp = otmp->nobj) {
2445. 	    if (otmp->oclass == COIN_CLASS) continue;
2446. 
2447. 	    if (!otmp->unpaid && !(sale && saleable(shkp, otmp)))
2448. 		otmp->no_charge = 1;
2449. 
2450. 	    if (Has_contents(otmp))
2451. 		dropped_container(otmp, shkp, sale);
2452. 	}
2453. }
2454. 
2455. void
2456. picked_container(obj)
2457. register struct obj *obj;
2458. {
2459. 	register struct obj *otmp;
2460. 
2461. 	/* the "top" container is treated in the calling fn */
2462. 	for (otmp = obj->cobj; otmp; otmp = otmp->nobj) {
2463. 	    if (otmp->oclass == COIN_CLASS) continue;
2464. 
2465. 	    if (otmp->no_charge)
2466. 		otmp->no_charge = 0;
2467. 
2468. 	    if (Has_contents(otmp))
2469. 		picked_container(otmp);
2470. 	}
2471. }
2472. #endif /*OVLB*/
2473. #ifdef OVL3
2474. 
2475. /* calculate how much the shk will pay when buying [all of] an object */
2476. STATIC_OVL long
2477. set_cost(obj, shkp)
2478. register struct obj *obj;
2479. register struct monst *shkp;
2480. {
2481. 	long tmp = getprice(obj, TRUE) * obj->quan;
2482. 
2483. #ifdef TOURIST
2484. 	if ((Role_if(PM_TOURIST) && u.ulevel < (MAXULEV/2))
2485. 	    || (uarmu && !uarm && !uarmc))	/* touristy shirt visible */
2486. 		tmp /= 3L;
2487. 	else
2488. #endif
2489. 	if (uarmh && uarmh->otyp == DUNCE_CAP)
2490. 		tmp /= 3L;
2491. 	else
2492. 		tmp /= 2L;
2493. 
2494. 	/* shopkeeper may notice if the player isn't very knowledgeable -
2495. 	   especially when gem prices are concerned */
2496. 	if (!obj->dknown || !objects[obj->otyp].oc_name_known) {
2497. 		if (obj->oclass == GEM_CLASS) {
2498. 			/* different shop keepers give different prices */
2499. 			if (objects[obj->otyp].oc_material == GEMSTONE ||
2500. 			    objects[obj->otyp].oc_material == GLASS) {
2501. 				tmp = (obj->otyp % (6 - shkp->m_id % 3));
2502. 				tmp = (tmp + 3) * obj->quan;
2503. 			}
2504. 		} else if (tmp > 1L && !rn2(4))
2505. 			tmp -= tmp / 4L;
2506. 	}
2507. 	return tmp;
2508. }
2509. 
2510. #endif /*OVL3*/
2511. #ifdef OVLB
2512. 
2513. /* called from doinv(invent.c) for inventory of unpaid objects */
2514. long
2515. unpaid_cost(unp_obj)
2516. register struct obj *unp_obj;	/* known to be unpaid */
2517. {
2518. 	register struct bill_x *bp = (struct bill_x *)0;
2519. 	register struct monst *shkp;
2520. 
2521. 	for(shkp = next_shkp(fmon, TRUE); shkp;
2522. 					shkp = next_shkp(shkp->nmon, TRUE))
2523. 	    if ((bp = onbill(unp_obj, shkp, TRUE)) != 0) break;
2524. 
2525. 	/* onbill() gave no message if unexpected problem occurred */
2526. 	if(!bp) impossible("unpaid_cost: object wasn't on any bill!");
2527. 
2528. 	return bp ? unp_obj->quan * bp->price : 0L;
2529. }
2530. 
2531. STATIC_OVL void
2532. add_one_tobill(obj, dummy)
2533. register struct obj *obj;
2534. register boolean dummy;
2535. {
2536. 	register struct monst *shkp;
2537. 	register struct bill_x *bp;
2538. 	register int bct;
2539. 	register char roomno = *u.ushops;
2540. 
2541. 	if (!roomno) return;
2542. 	if (!(shkp = shop_keeper(roomno))) return;
2543. 	if (!inhishop(shkp)) return;
2544. 
2545. 	if (onbill(obj, shkp, FALSE) || /* perhaps thrown away earlier */
2546. 		    (obj->oclass == FOOD_CLASS && obj->oeaten))
2547. 		return;
2548. 
2549. 	if (ESHK(shkp)->billct == BILLSZ) {
2550. 		You("got that for free!");
2551. 		return;
2552. 	}
2553. 
2554. 	/* To recognize objects the shopkeeper is not interested in. -dgk
2555. 	 */
2556. 	if (obj->no_charge) {
2557. 		obj->no_charge = 0;
2558. 		return;
2559. 	}
2560. 
2561. 	bct = ESHK(shkp)->billct;
2562. 	bp = &(ESHK(shkp)->bill_p[bct]);
2563. 	bp->bo_id = obj->o_id;
2564. 	bp->bquan = obj->quan;
2565. 	if(dummy) {		  /* a dummy object must be inserted into  */
2566. 	    bp->useup = 1;	  /* the billobjs chain here.  crucial for */
2567. 	    add_to_billobjs(obj); /* eating floorfood in shop.  see eat.c  */
2568. 	} else	bp->useup = 0;
2569. 	bp->price = get_cost(obj, shkp);
2570. 	ESHK(shkp)->billct++;
2571. 	obj->unpaid = 1;
2572. }
2573. 
2574. STATIC_OVL void
2575. add_to_billobjs(obj)
2576.     struct obj *obj;
2577. {
2578.     if (obj->where != OBJ_FREE)
2579. 	panic("add_to_billobjs: obj not free");
2580.     if (obj->timed)
2581. 	obj_stop_timers(obj);
2582. 
2583.     obj->nobj = billobjs;
2584.     billobjs = obj;
2585.     obj->where = OBJ_ONBILL;
2586. }
2587. 
2588. /* recursive billing of objects within containers. */
2589. STATIC_OVL void
2590. bill_box_content(obj, ininv, dummy, shkp)
2591. register struct obj *obj;
2592. register boolean ininv, dummy;
2593. register struct monst *shkp;
2594. {
2595. 	register struct obj *otmp;
2596. 
2597. 	for (otmp = obj->cobj; otmp; otmp = otmp->nobj) {
2598. 		if (otmp->oclass == COIN_CLASS) continue;
2599. 
2600. 		/* the "top" box is added in addtobill() */
2601. 		if (!otmp->no_charge)
2602. 		    add_one_tobill(otmp, dummy);
2603. 		if (Has_contents(otmp))
2604. 		    bill_box_content(otmp, ininv, dummy, shkp);
2605. 	}
2606. 
2607. }
2608. 
2609. /* shopkeeper tells you what you bought or sold, sometimes partly IDing it */
2610. STATIC_OVL void
2611. shk_names_obj(shkp, obj, fmt, amt, arg)
2612. struct monst *shkp;
2613. struct obj *obj;
2614. const char *fmt;	/* "%s %ld %s %s", doname(obj), amt, plur(amt), arg */
2615. long amt;
2616. const char *arg;
2617. {
2618. 	char *obj_name, fmtbuf[BUFSZ];
2619. 	boolean was_unknown = !obj->dknown;
2620. 
2621. 	obj->dknown = TRUE;
2622. 	/* Use real name for ordinary weapons/armor, and spell-less
2623. 	 * scrolls/books (that is, blank and mail), but only if the
2624. 	 * object is within the shk's area of interest/expertise.
2625. 	 */
2626. 	if (!objects[obj->otyp].oc_magic && saleable(shkp, obj) &&
2627. 	    (obj->oclass == WEAPON_CLASS || obj->oclass == ARMOR_CLASS ||
2628. 	     obj->oclass == SCROLL_CLASS || obj->oclass == SPBOOK_CLASS ||
2629. 	     obj->otyp == MIRROR)) {
2630. 	    was_unknown |= !objects[obj->otyp].oc_name_known;
2631. 	    makeknown(obj->otyp);
2632. 	}
2633. 	obj_name = doname(obj);
2634. 	/* Use an alternate message when extra information is being provided */
2635. 	if (was_unknown) {
2636. 	    Sprintf(fmtbuf, "%%s; you %s", fmt);
2637. 	    obj_name[0] = highc(obj_name[0]);
2638. 	    pline(fmtbuf, obj_name, (obj->quan > 1) ? "them" : "it",
2639. 		  amt, plur(amt), arg);
2640. 	} else {
2641. 	    You(fmt, obj_name, amt, plur(amt), arg);
2642. 	}
2643. }
2644. 
2645. void
2646. addtobill(obj, ininv, dummy, silent)
2647. register struct obj *obj;
2648. register boolean ininv, dummy, silent;
2649. {
2650. 	register struct monst *shkp;
2651. 	register char roomno = *u.ushops;
2652. 	long ltmp = 0L, cltmp = 0L, gltmp = 0L;
2653. 	register boolean container = Has_contents(obj);
2654. 
2655. 	if(!*u.ushops) return;
2656. 
2657. 	if(!(shkp = shop_keeper(roomno))) return;
2658. 
2659. 	if(!inhishop(shkp)) return;
2660. 
2661. 	if(/* perhaps we threw it away earlier */
2662. 		 onbill(obj, shkp, FALSE) ||
2663. 		 (obj->oclass == FOOD_CLASS && obj->oeaten)
2664. 	      ) return;
2665. 
2666. 	if(ESHK(shkp)->billct == BILLSZ) {
2667. 		You("got that for free!");
2668. 		return;
2669. 	}
2670. 
2671. 	if(obj->oclass == COIN_CLASS) {
2672. 		costly_gold(obj->ox, obj->oy, obj->quan);
2673. 		return;
2674. 	}
2675. 
2676. 	if(!obj->no_charge)
2677. 	    ltmp = get_cost(obj, shkp);
2678. 
2679. 	if (obj->no_charge && !container) {
2680. 		obj->no_charge = 0;
2681. 		return;
2682. 	}
2683. 
2684. 	if(container) {
2685. 	    if(obj->cobj == (struct obj *)0) {
2686. 		if(obj->no_charge) {
2687. 		    obj->no_charge = 0;
2688. 		    return;
2689. 		} else {
2690. 		    add_one_tobill(obj, dummy);
2691. 		    goto speak;
2692. 		}
2693. 	    } else {
2694. 		cltmp += contained_cost(obj, shkp, cltmp, FALSE, FALSE);
2695. 		gltmp += contained_gold(obj);
2696. 	    }
2697. 
2698. 	    if(ltmp) add_one_tobill(obj, dummy);
2699. 	    if(cltmp) bill_box_content(obj, ininv, dummy, shkp);
2700. 	    picked_container(obj); /* reset contained obj->no_charge */
2701. 
2702. 	    ltmp += cltmp;
2703. 
2704. 	    if(gltmp) {
2705. 		costly_gold(obj->ox, obj->oy, gltmp);
2706. 		if(!ltmp) return;
2707. 	    }
2708. 
2709. 	    if(obj->no_charge)
2710. 		obj->no_charge = 0;
2711. 
2712. 	} else /* i.e., !container */
2713. 	    add_one_tobill(obj, dummy);
2714. speak:
2715. 	if (shkp->mcanmove && !shkp->msleeping && !silent) {
2716. 	    char buf[BUFSZ];
2717. 
2718. 	    if(!ltmp) {
2719. 		pline("%s has no interest in %s.", Monnam(shkp),
2720. 					     the(xname(obj)));
2721. 		return;
2722. 	    }
2723. 	    Strcpy(buf, "\"For you, ");
2724. 	    if (ANGRY(shkp)) Strcat(buf, "scum ");
2725. 	    else {
2726. 		static const char *honored[5] = {
2727. 		  "good", "honored", "most gracious", "esteemed",
2728. 		  "most renowned and sacred"
2729. 		};
2730. 		Strcat(buf, honored[rn2(4) + u.uevent.udemigod]);
2731. 		if (!is_human(youmonst.data)) Strcat(buf, " creature");
2732. 		else
2733. 		    Strcat(buf, (flags.female) ? " lady" : " sir");
2734. 	    }
2735. 	    if(ininv) {
2736. 		long quan = obj->quan;
2737. 		obj->quan = 1L; /* fool xname() into giving singular */
2738. 		pline("%s; only %ld %s %s.\"", buf, ltmp,
2739. 			(quan > 1L) ? "per" : "for this", xname(obj));
2740. 		obj->quan = quan;
2741. 	    } else
2742. 		pline("%s will cost you %ld %s%s.",
2743. 			The(xname(obj)), ltmp, currency(ltmp),
2744. 			(obj->quan > 1L) ? " each" : "");
2745. 	} else if(!silent) {
2746. 	    if(ltmp) pline_The("list price of %s is %ld %s%s.",
2747. 				   the(xname(obj)), ltmp, currency(ltmp),
2748. 				   (obj->quan > 1L) ? " each" : "");
2749. 	    else pline("%s does not notice.", Monnam(shkp));
2750. 	}
2751. }
2752. 
2753. void
2754. splitbill(obj, otmp)
2755. register struct obj *obj, *otmp;
2756. {
2757. 	/* otmp has been split off from obj */
2758. 	register struct bill_x *bp;
2759. 	register long tmp;
2760. 	register struct monst *shkp = shop_keeper(*u.ushops);
2761. 
2762. 	if(!shkp || !inhishop(shkp)) {
2763. 		impossible("splitbill: no resident shopkeeper??");
2764. 		return;
2765. 	}
2766. 	bp = onbill(obj, shkp, FALSE);
2767. 	if(!bp) {
2768. 		impossible("splitbill: not on bill?");
2769. 		return;
2770. 	}
2771. 	if(bp->bquan < otmp->quan) {
2772. 		impossible("Negative quantity on bill??");
2773. 	}
2774. 	if(bp->bquan == otmp->quan) {
2775. 		impossible("Zero quantity on bill??");
2776. 	}
2777. 	bp->bquan -= otmp->quan;
2778. 
2779. 	if(ESHK(shkp)->billct == BILLSZ) otmp->unpaid = 0;
2780. 	else {
2781. 		tmp = bp->price;
2782. 		bp = &(ESHK(shkp)->bill_p[ESHK(shkp)->billct]);
2783. 		bp->bo_id = otmp->o_id;
2784. 		bp->bquan = otmp->quan;
2785. 		bp->useup = 0;
2786. 		bp->price = tmp;
2787. 		ESHK(shkp)->billct++;
2788. 	}
2789. }
2790. 
2791. STATIC_OVL void
2792. sub_one_frombill(obj, shkp)
2793. register struct obj *obj;
2794. register struct monst *shkp;
2795. {
2796. 	register struct bill_x *bp;
2797. 
2798. 	if((bp = onbill(obj, shkp, FALSE)) != 0) {
2799. 		register struct obj *otmp;
2800. 
2801. 		obj->unpaid = 0;
2802. 		if(bp->bquan > obj->quan){
2803. 			otmp = newobj(0);
2804. 			*otmp = *obj;
2805. 			bp->bo_id = otmp->o_id = flags.ident++;
2806. 			otmp->where = OBJ_FREE;
2807. 			otmp->quan = (bp->bquan -= obj->quan);
2808. 			otmp->owt = 0;	/* superfluous */
2809. 			otmp->onamelth = 0;
2810. 			otmp->oxlth = 0;
2811. 			otmp->oattached = OATTACHED_NOTHING;
2812. 			bp->useup = 1;
2813. 			add_to_billobjs(otmp);
2814. 			return;
2815. 		}
2816. 		ESHK(shkp)->billct--;
2817. #ifdef DUMB
2818. 		{
2819. 		/* DRS/NS 2.2.6 messes up -- Peter Kendell */
2820. 			int indx = ESHK(shkp)->billct;
2821. 			*bp = ESHK(shkp)->bill_p[indx];
2822. 		}
2823. #else
2824. 		*bp = ESHK(shkp)->bill_p[ESHK(shkp)->billct];
2825. #endif
2826. 		return;
2827. 	} else if (obj->unpaid) {
2828. 		impossible("sub_one_frombill: unpaid object not on bill");
2829. 		obj->unpaid = 0;
2830. 	}
2831. }
2832. 
2833. /* recursive check of unpaid objects within nested containers. */
2834. void
2835. subfrombill(obj, shkp)
2836. register struct obj *obj;
2837. register struct monst *shkp;
2838. {
2839. 	register struct obj *otmp;
2840. 
2841. 	sub_one_frombill(obj, shkp);
2842. 
2843. 	if (Has_contents(obj))
2844. 	    for(otmp = obj->cobj; otmp; otmp = otmp->nobj) {
2845. 		if(otmp->oclass == COIN_CLASS) continue;
2846. 
2847. 		if (Has_contents(otmp))
2848. 		    subfrombill(otmp, shkp);
2849. 		else
2850. 		    sub_one_frombill(otmp, shkp);
2851. 	    }
2852. }
2853. 
2854. #endif /*OVLB*/
2855. #ifdef OVL3
2856. 
2857. STATIC_OVL long
2858. stolen_container(obj, shkp, price, ininv, destruction)
2859. register struct obj *obj;
2860. register struct monst *shkp;
2861. long price;
2862. register boolean ininv, destruction;
2863. {
2864. 	register struct obj *otmp;
2865. 
2866. 	if (!(destruction && evades_destruction(obj))) {
2867. 	if(ininv && obj->unpaid)
2868. 	    price += get_cost(obj, shkp);
2869. 	else {
2870. 	    if(!obj->no_charge)
2871. 		price += get_cost(obj, shkp);
2872. 	    obj->no_charge = 0;
2873. 	}
2874. 	}
2875. 
2876. 	/* the price of contained objects, if any */
2877. 	for(otmp = obj->cobj; otmp; otmp = otmp->nobj) {
2878. 
2879. 	    if(otmp->oclass == COIN_CLASS) continue;
2880. 
2881. 	    if (!Has_contents(otmp)) {
2882. 	      if (!(destruction && evades_destruction(otmp))) {
2883. 		if(ininv) {
2884. 		    if(otmp->unpaid)
2885. 			price += otmp->quan * get_cost(otmp, shkp);
2886. 		} else {
2887. 		    if(!otmp->no_charge) {
2888. 			if(otmp->oclass != FOOD_CLASS || !otmp->oeaten)
2889. 			    price += otmp->quan * get_cost(otmp, shkp);
2890. 		    }
2891. 		    otmp->no_charge = 0;
2892. 		}
2893. 	      }
2894. 	    } else
2895. 		price += stolen_container(otmp, shkp, price, ininv,
2896. 			destruction);
2897. 	}
2898. 
2899. 	return(price);
2900. }
2901. #endif /*OVL3*/
2902. #ifdef OVLB
2903. 
2904. long
2905. stolen_value(obj, x, y, peaceful, silent, destruction)
2906. register struct obj *obj;
2907. register xchar x, y;
2908. register boolean peaceful, silent, destruction;
2909. {
2910. 	register long value = 0L, gvalue = 0L;
2911. 	register struct monst *shkp = shop_keeper(*in_rooms(x, y, SHOPBASE));
2912. 
2913. 	if (!shkp || !inhishop(shkp))
2914. 	    return (0L);
2915. 
2916. 	if(obj->oclass == COIN_CLASS) {
2917. 	    gvalue += obj->quan;
2918. 	} else if (Has_contents(obj)) {
2919. 	    register boolean ininv = !!count_unpaid(obj->cobj);
2920. 
2921. 	    value += stolen_container(obj, shkp, value, ininv, destruction);
2922. 	    if(!ininv) gvalue += contained_gold(obj);
2923. 	} else if (!obj->no_charge && saleable(shkp, obj) &&
2924. 		!(destruction && evades_destruction(obj))) {
2925. 	    value += get_cost(obj, shkp);
2926. 	}
2927. 
2928. 	if(gvalue + value == 0L) return(0L);
2929. 
2930. 	value += gvalue;
2931. 
2932. 	if(peaceful) {
2933. 	    boolean credit_use = !!ESHK(shkp)->credit;
2934. 	    value = check_credit(value, shkp);
2935. 	    /* 'peaceful' affects general treatment, but doesn't affect
2936. 	     * the fact that other code expects that all charges after the
2937. 	     * shopkeeper is angry are included in robbed, not debit */
2938. 	    if (ANGRY(shkp))
2939. 		ESHK(shkp)->robbed += value;
2940. 	    else 
2941. 		ESHK(shkp)->debit += value;
2942. 
2943. 	    if(!silent) {
2944. 		const char *still = "";
2945. 
2946. 		if (credit_use) {
2947. 		    if (ESHK(shkp)->credit) {
2948. 			You("have %ld %s credit remaining.",
2949. 				 ESHK(shkp)->credit, currency(ESHK(shkp)->credit));
2950. 			return value;
2951. 		    } else if (!value) {
2952. 			You("have no credit remaining.");
2953. 			return 0;
2954. 		    }
2955. 		    still = "still ";
2956. 		}
2957. 		if(obj->oclass == COIN_CLASS)
2958. 		    You("%sowe %s %ld %s!", still,
2959. 			mon_nam(shkp), value, currency(value));
2960. 		else
2961. 		    You("%sowe %s %ld %s for %s!", still,
2962. 			mon_nam(shkp), value, currency(value),
2963. 			obj->quan > 1L ? "them" : "it");
2964. 	    }
2965. 	} else {
2966. 	    ESHK(shkp)->robbed += value;
2967. 
2968. 	    if(!silent) {
2969. 		if(cansee(shkp->mx, shkp->my)) {
2970. 		    Norep("%s booms: \"%s, you are a thief!\"",
2971. 				Monnam(shkp), plname);
2972. 		} else  Norep("You hear a scream, \"Thief!\"");
2973. 	    }
2974. 	    hot_pursuit(shkp);
2975. 	    (void) angry_guards(FALSE);
2976. 	}
2977. 	return(value);
2978. }
2979. 
2980. /* auto-response flag for/from "sell foo?" 'a' => 'y', 'q' => 'n' */
2981. static char sell_response = 'a';
2982. static int sell_how = SELL_NORMAL;
2983. /* can't just use sell_response='y' for auto_credit because the 'a' response
2984.    shouldn't carry over from ordinary selling to credit selling */
2985. static boolean auto_credit = FALSE;
2986. 
2987. void
2988. sellobj_state(deliberate)
2989. int deliberate;
2990. {
2991. 	/* If we're deliberately dropping something, there's no automatic
2992. 	   response to the shopkeeper's "want to sell" query; however, if we
2993. 	   accidentally drop anything, the shk will buy it/them without asking.
2994. 	   This retains the old pre-query risk that slippery fingers while in
2995. 	   shops entailed:  you drop it, you've lost it.
2996. 	 */
2997. 	sell_response = (deliberate != SELL_NORMAL) ? '\0' : 'a';
2998. 	sell_how = deliberate;
2999. 	auto_credit = FALSE;
3000. }
3001. 
3002. void
3003. sellobj(obj, x, y)
3004. register struct obj *obj;
3005. xchar x, y;
3006. {
3007. 	register struct monst *shkp;
3008. 	register struct eshk *eshkp;
3009. 	long ltmp = 0L, cltmp = 0L, gltmp = 0L, offer;
3010. 	boolean saleitem, cgold = FALSE, container = Has_contents(obj);
3011. 	boolean isgold = (obj->oclass == COIN_CLASS);
3012. 	boolean only_partially_your_contents = FALSE;
3013. 
3014. 	if(!(shkp = shop_keeper(*in_rooms(x, y, SHOPBASE))) ||
3015. 	   !inhishop(shkp)) return;
3016. 	if(!costly_spot(x, y))	return;
3017. 	if(!*u.ushops) return;
3018. 
3019. 	if(obj->unpaid && !container && !isgold) {
3020. 	    sub_one_frombill(obj, shkp);
3021. 	    return;
3022. 	}
3023. 	if(container) {
3024. 		/* find the price of content before subfrombill */
3025. 		cltmp += contained_cost(obj, shkp, cltmp, TRUE, FALSE);
3026. 		/* find the value of contained gold */
3027. 		gltmp += contained_gold(obj);
3028. 		cgold = (gltmp > 0L);
3029. 	}
3030. 
3031. 	saleitem = saleable(shkp, obj);
3032. 	if(!isgold && !obj->unpaid && saleitem)
3033. 	    ltmp = set_cost(obj, shkp);
3034. 
3035. 	offer = ltmp + cltmp;
3036. 
3037. 	/* get one case out of the way: nothing to sell, and no gold */
3038. 	if(!isgold &&
3039. 	   ((offer + gltmp) == 0L || sell_how == SELL_DONTSELL)) {
3040. 		register boolean unpaid = (obj->unpaid ||
3041. 				  (container && count_unpaid(obj->cobj)));
3042. 
3043. 		if(container) {
3044. 			dropped_container(obj, shkp, FALSE);
3045. 			if(!obj->unpaid && !saleitem)
3046. 			    obj->no_charge = 1;
3047. 			if(obj->unpaid || count_unpaid(obj->cobj))
3048. 			    subfrombill(obj, shkp);
3049. 		} else obj->no_charge = 1;
3050. 
3051. 		if(!unpaid && (sell_how != SELL_DONTSELL))
3052. 		    pline("%s seems uninterested.", Monnam(shkp));
3053. 		return;
3054. 	}
3055. 
3056. 	/* you dropped something of your own - probably want to sell it */
3057. 	rouse_shk(shkp, TRUE);	/* wake up sleeping or paralyzed shk */
3058. 	eshkp = ESHK(shkp);
3059. 
3060. 	if (ANGRY(shkp)) { /* they become shop-objects, no pay */
3061. 		pline("Thank you, scum!");
3062. 		subfrombill(obj, shkp);
3063. 		return;
3064. 	}
3065. 
3066. 	if(eshkp->robbed) {  /* shkp is not angry? */
3067. 		if(isgold) offer = obj->quan;
3068. 		else if(cgold) offer += cgold;
3069. 		if((eshkp->robbed -= offer < 0L))
3070. 			eshkp->robbed = 0L;
3071. 		if(offer) verbalize(
3072.   "Thank you for your contribution to restock this recently plundered shop.");
3073. 		subfrombill(obj, shkp);
3074. 		return;
3075. 	}
3076. 
3077. 	if(isgold || cgold) {
3078. 		if(!cgold) gltmp = obj->quan;
3079. 
3080. 		if(eshkp->debit >= gltmp) {
3081. 		    if(eshkp->loan) { /* you carry shop's gold */
3082. 			 if(eshkp->loan >= gltmp)
3083. 			     eshkp->loan -= gltmp;
3084. 			 else eshkp->loan = 0L;
3085. 		    }
3086. 		    eshkp->debit -= gltmp;
3087. 		    Your("debt is %spaid off.",
3088. 				eshkp->debit ? "partially " : "");
3089. 		} else {
3090. 		    long delta = gltmp - eshkp->debit;
3091. 
3092. 		    eshkp->credit += delta;
3093. 		    if(eshkp->debit) {
3094. 			eshkp->debit = 0L;
3095. 			eshkp->loan = 0L;
3096. 			Your("debt is paid off.");
3097. 		    }
3098. 		    pline("%ld %s %s added to your credit.",
3099. 				delta, currency(delta), delta > 1L ? "are" : "is");
3100. 		}
3101. 		if(offer) goto move_on;
3102. 		else {
3103. 		    if(!isgold) {
3104. 			if (container)
3105. 			    dropped_container(obj, shkp, FALSE);
3106. 			if (!obj->unpaid && !saleitem) obj->no_charge = 1;
3107. 			subfrombill(obj, shkp);
3108. 		    }
3109. 		    return;
3110. 		}
3111. 	}
3112. move_on:
3113. 	if((!saleitem && !(container && cltmp > 0L))
3114. 	   || eshkp->billct == BILLSZ
3115. 	   || obj->oclass == BALL_CLASS
3116. 	   || obj->oclass == CHAIN_CLASS || offer == 0L
3117. #if defined(UNPOLYPILE)
3118. 	   || is_hazy(obj)
3119. #endif
3120. 	   || (obj->oclass == FOOD_CLASS && obj->oeaten)
3121. 	   || (Is_candle(obj) &&
3122. 		   obj->age < 20L * (long)objects[obj->otyp].oc_cost)) {
3123. 		pline("%s seems uninterested%s.", Monnam(shkp),
3124. 			cgold ? " in the rest" : "");
3125. 		if (container)
3126. 		    dropped_container(obj, shkp, FALSE);
3127. 		obj->no_charge = 1;
3128. 		return;
3129. 	}
3130.         
3131. #ifndef GOLDOBJ
3132. 	if(!shkp->mgold) {
3133. #else
3134. 	if(!money_cnt(shkp->minvent)) {
3135. #endif
3136. 		char c, qbuf[BUFSZ];
3137. 		long tmpcr = ((offer * 9L) / 10L) + (offer <= 1L);
3138. 
3139. 		if (sell_how == SELL_NORMAL || auto_credit) {
3140. 		    c = sell_response = 'y';
3141. 		} else if (sell_response != 'n') {
3142. 		    pline("%s cannot pay you at present.", Monnam(shkp));
3143. 		    Sprintf(qbuf,
3144. 			    "Will you accept %ld %s in credit for %s?",
3145. 			    tmpcr, currency(tmpcr), doname(obj));
3146. 		    /* won't accept 'a' response here */
3147. 		    /* KLY - 3/2000 yes, we will, it's a damn nuisance
3148.                        to have to constantly hit 'y' to sell for credit */
3149. 		    c = ynaq(qbuf);
3150. 		    if (c == 'a') {
3151. 			c = 'y';
3152. 			auto_credit = TRUE;
3153. 		    }
3154. 		} else		/* previously specified "quit" */
3155. 		    c = 'n';
3156. 
3157. 		if (c == 'y') {
3158. 		    shk_names_obj(shkp, obj, (sell_how != SELL_NORMAL) ?
3159. 			    "traded %s for %ld zorkmid%s in %scredit." :
3160. 			"relinquish %s and acquire %ld zorkmid%s in %scredit.",
3161. 			    tmpcr,
3162. 			    (eshkp->credit > 0L) ? "additional " : "");
3163. 		    eshkp->credit += tmpcr;
3164. 		    subfrombill(obj, shkp);
3165. 		} else {
3166. 		    if (c == 'q') sell_response = 'n';
3167. 		    if (container)
3168. 			dropped_container(obj, shkp, FALSE);
3169. 		    if (!obj->unpaid) obj->no_charge = 1;
3170. 		    subfrombill(obj, shkp);
3171. 		}
3172. 	} else {
3173. 		char qbuf[BUFSZ];
3174. #ifndef GOLDOBJ
3175. 		boolean short_funds = (offer > shkp->mgold);
3176. 		if (short_funds) offer = shkp->mgold;
3177. #else
3178.                 long shkmoney = money_cnt(shkp->minvent);
3179. 		boolean short_funds = (offer > shkmoney);
3180. 		if (short_funds) offer = shkmoney;
3181. #endif
3182. 		if (!sell_response) {
3183. 		    only_partially_your_contents =
3184. 			(contained_cost(obj, shkp, 0L, FALSE, FALSE) !=
3185. 			 contained_cost(obj, shkp, 0L, FALSE, TRUE));
3186. 		    Sprintf(qbuf,
3187. 			 "%s offers%s %ld gold piece%s for%s %s %s.  Sell %s?",
3188. 			    Monnam(shkp), short_funds ? " only" : "",
3189. 			    offer, plur(offer),
3190. 			    (!ltmp && cltmp && only_partially_your_contents) ?
3191. 			     " your items in" : (!ltmp && cltmp) ? " the contents of" : "",
3192. 			    obj->unpaid ? "the" : "your", cxname(obj),
3193. 			    (obj->quan == 1L &&
3194. 			    !(!ltmp && cltmp && only_partially_your_contents)) ?
3195. 			    "it" : "them");
3196. 		} else  qbuf[0] = '\0';		/* just to pacify lint */
3197. 
3198. 		switch (sell_response ? sell_response : ynaq(qbuf)) {
3199. 		 case 'q':  sell_response = 'n';
3200. 		 case 'n':  if (container)
3201. 				dropped_container(obj, shkp, FALSE);
3202. 			    if (!obj->unpaid) obj->no_charge = 1;
3203. 			    subfrombill(obj, shkp);
3204. 			    break;
3205. 		 case 'a':  sell_response = 'y';
3206. 		 case 'y':  if (container)
3207. 				dropped_container(obj, shkp, TRUE);
3208. 			    if (!obj->unpaid && !saleitem) obj->no_charge = 1;
3209. 			    subfrombill(obj, shkp);
3210. 			    pay(-offer, shkp);
3211. 			    shk_names_obj(shkp, obj, (sell_how != SELL_NORMAL) ?
3212. 				    (!ltmp && cltmp && only_partially_your_contents) ?
3213. 			    	    "sold some items inside %s for %ld gold pieces%s.%s" :
3214. 				    "sold %s for %ld gold piece%s.%s" :
3215. 	       "relinquish %s and receive %ld gold piece%s in compensation.%s",
3216. 				    offer, "");
3217. 			    break;
3218. 		 default:   impossible("invalid sell response");
3219. 		}
3220. 	}
3221. }
3222. 
3223. int
3224. doinvbill(mode)
3225. int mode;		/* 0: deliver count 1: paged */
3226. {
3227. #ifdef	__SASC
3228. 	void sasc_bug(struct obj *, unsigned);
3229. #endif
3230. 	struct monst *shkp;
3231. 	struct eshk *eshkp;
3232. 	struct bill_x *bp, *end_bp;
3233. 	struct obj *obj;
3234. 	long totused;
3235. 	char *buf_p;
3236. 	winid datawin;
3237. 
3238. 	shkp = shop_keeper(*u.ushops);
3239. 	if (!shkp || !inhishop(shkp)) {
3240. 	    if (mode != 0) impossible("doinvbill: no shopkeeper?");
3241. 	    return 0;
3242. 	}
3243. 	eshkp = ESHK(shkp);
3244. 
3245. 	if (mode == 0) {
3246. 	    /* count expended items, so that the `I' command can decide
3247. 	       whether to include 'x' in its prompt string */
3248. 	    int cnt = !eshkp->debit ? 0 : 1;
3249. 
3250. 	    for (bp = eshkp->bill_p, end_bp = &eshkp->bill_p[eshkp->billct];
3251. 		    bp < end_bp; bp++)
3252. 		if (bp->useup ||
3253. 			((obj = bp_to_obj(bp)) != 0 && obj->quan < bp->bquan))
3254. 		    cnt++;
3255. 	    return cnt;
3256. 	}
3257. 
3258. 	datawin = create_nhwindow(NHW_MENU);
3259. 	putstr(datawin, 0, "Unpaid articles already used up:");
3260. 	putstr(datawin, 0, "");
3261. 
3262. 	totused = 0L;
3263. 	for (bp = eshkp->bill_p, end_bp = &eshkp->bill_p[eshkp->billct];
3264. 		bp < end_bp; bp++) {
3265. 	    obj = bp_to_obj(bp);
3266. 	    if(!obj) {
3267. 		impossible("Bad shopkeeper administration.");
3268. 		goto quit;
3269. 	    }
3270. 	    if(bp->useup || bp->bquan > obj->quan) {
3271. 		long oquan, uquan, thisused;
3272. 		unsigned save_unpaid;
3273. 
3274. 		save_unpaid = obj->unpaid;
3275. 		oquan = obj->quan;
3276. 		uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
3277. 		thisused = bp->price * uquan;
3278. 		totused += thisused;
3279. 		obj->unpaid = 0;		/* ditto */
3280. 		/* Why 'x'?  To match `I x', more or less. */
3281. 		buf_p = xprname(obj, (char *)0, 'x', FALSE, thisused, uquan);
3282. #ifdef __SASC
3283. 				/* SAS/C 6.2 can't cope for some reason */
3284. 		sasc_bug(obj,save_unpaid);
3285. #else
3286. 		obj->unpaid = save_unpaid;
3287. #endif
3288. 		putstr(datawin, 0, buf_p);
3289. 	    }
3290. 	}
3291. 	if (eshkp->debit) {
3292. 	    /* additional shop debt which has no itemization available */
3293. 	    if (totused) putstr(datawin, 0, "");
3294. 	    totused += eshkp->debit;
3295. 	    buf_p = xprname((struct obj *)0,
3296. 			    "usage charges and/or other fees",
3297. 			    GOLD_SYM, FALSE, eshkp->debit, 0L);
3298. 	    putstr(datawin, 0, buf_p);
3299. 	}
3300. 	buf_p = xprname((struct obj *)0, "Total:", '*', FALSE, totused, 0L);
3301. 	putstr(datawin, 0, "");
3302. 	putstr(datawin, 0, buf_p);
3303. 	display_nhwindow(datawin, FALSE);
3304.     quit:
3305. 	destroy_nhwindow(datawin);
3306. 	return(0);
3307. }
3308. 
3309. #define HUNGRY	2
3310. 
3311. STATIC_OVL long
3312. getprice(obj, shk_buying)
3313. register struct obj *obj;
3314. boolean shk_buying;
3315. {
3316. 	register long tmp = (long) objects[obj->otyp].oc_cost;
3317. 
3318. 	if (obj->oartifact) {
3319. 	    tmp = arti_cost(obj);
3320. 	    if (shk_buying) tmp /= 4;
3321. 	}
3322. 	switch(obj->oclass) {
3323. 	case FOOD_CLASS:
3324. 		/* simpler hunger check, (2-4)*cost */
3325. 		if (u.uhs >= HUNGRY && !shk_buying) tmp *= (long) u.uhs;
3326. 		if (obj->oeaten) tmp = 0L;
3327. 		break;
3328. 	case WAND_CLASS:
3329. 		if (obj->spe == -1) tmp = 0L;
3330. 		break;
3331. 	case POTION_CLASS:
3332. 		if (obj->otyp == POT_WATER && !obj->blessed && !obj->cursed)
3333. 			tmp = 0L;
3334. 		break;
3335. 	case ARMOR_CLASS:
3336. 	case WEAPON_CLASS:
3337. 		if (obj->spe > 0) tmp += 10L * (long) obj->spe;
3338. #ifdef FIREARMS
3339. 		/* Don't buy activated explosives! */
3340. 		if (is_grenade(obj) && obj->oarmed) tmp = 0L;
3341. #endif
3342. 		break;
3343. 	case TOOL_CLASS:
3344. 		if (Is_candle(obj) &&
3345. 			obj->age < 20L * (long)objects[obj->otyp].oc_cost)
3346. 		    tmp /= 2L;
3347. 		else if (obj->otyp == TORCH) {
3348. 		  if (obj->age == 0) {
3349. 		    tmp = 0L;
3350. 		  }
3351. 		  else if (obj->age < 25) {
3352. 		    tmp /= 4L;
3353. 		  }
3354. 		  else if (obj->age < 50) {
3355. 		    tmp /= 2L;
3356. 		  }
3357. 		}
3358. 		break;
3359. 	}
3360. 	return tmp;
3361. }
3362. 
3363. /* shk catches thrown pick-axe */
3364. struct monst *
3365. shkcatch(obj, x, y)
3366. register struct obj *obj;
3367. register xchar x, y;
3368. {
3369. 	register struct monst *shkp;
3370. 
3371. 	if (!(shkp = shop_keeper(inside_shop(x, y))) ||
3372. 	    !inhishop(shkp)) return(0);
3373. 
3374. 	if (shkp->mcanmove && !shkp->msleeping &&
3375. 	    (*u.ushops != ESHK(shkp)->shoproom || !inside_shop(u.ux, u.uy)) &&
3376. 	    dist2(shkp->mx, shkp->my, x, y) < 3 &&
3377. 	    /* if it is the shk's pos, you hit and anger him */
3378. 	    (shkp->mx != x || shkp->my != y)) {
3379. 		if (mnearto(shkp, x, y, TRUE))
3380. 		    verbalize("Out of my way, scum!");
3381. 		if (cansee(x, y)) {
3382. 		    pline("%s nimbly%s catches %s.",
3383. 			  Monnam(shkp),
3384. 			  (x == shkp->mx && y == shkp->my) ? "" : " reaches over and",
3385. 			  the(xname(obj)));
3386. 		    if (!canspotmon(shkp))
3387. 			map_invisible(x, y);
3388. 		    delay_output();
3389. 		    mark_synch();
3390. 		}
3391. 		subfrombill(obj, shkp);
3392. 		(void) mpickobj(shkp, obj);
3393. 		return shkp;
3394. 	}
3395. 	return (struct monst *)0;
3396. }
3397. 
3398. void
3399. add_damage(x, y, cost)
3400. register xchar x, y;
3401. long cost;
3402. {
3403. 	struct damage *tmp_dam;
3404. 	char *shops;
3405. 
3406. 	if (IS_DOOR(levl[x][y].typ)) {
3407. 	    struct monst *mtmp;
3408. 
3409. 	    /* Don't schedule for repair unless it's a real shop entrance */
3410. 	    for (shops = in_rooms(x, y, SHOPBASE); *shops; shops++)
3411. 		if ((mtmp = shop_keeper(*shops)) != 0 &&
3412. 			x == ESHK(mtmp)->shd.x && y == ESHK(mtmp)->shd.y)
3413. 		    break;
3414. 	    if (!*shops) return;
3415. 	}
3416. 	for (tmp_dam = level.damagelist; tmp_dam; tmp_dam = tmp_dam->next)
3417. 	    if (tmp_dam->place.x == x && tmp_dam->place.y == y) {
3418. 		tmp_dam->cost += cost;
3419. 		return;
3420. 	    }
3421. 	tmp_dam = (struct damage *)alloc((unsigned)sizeof(struct damage));
3422. 	tmp_dam->when = monstermoves;
3423. 	tmp_dam->place.x = x;
3424. 	tmp_dam->place.y = y;
3425. 	tmp_dam->cost = cost;
3426. 	tmp_dam->typ = levl[x][y].typ;
3427. 	tmp_dam->next = level.damagelist;
3428. 	level.damagelist = tmp_dam;
3429. 	/* If player saw damage, display as a wall forever */
3430. 	if (cansee(x, y))
3431. 	    levl[x][y].seenv = SVALL;
3432. }
3433. 
3434. #endif /*OVLB*/
3435. #ifdef OVL0
3436. 
3437. /*
3438.  * Do something about damage. Either (!croaked) try to repair it, or
3439.  * (croaked) just discard damage structs for non-shared locations, since
3440.  * they'll never get repaired. Assume that shared locations will get
3441.  * repaired eventually by the other shopkeeper(s). This might be an erroneous
3442.  * assumption (they might all be dead too), but we have no reasonable way of
3443.  * telling that.
3444.  */
3445. STATIC_OVL
3446. void
3447. remove_damage(shkp, croaked)
3448. register struct monst *shkp;
3449. register boolean croaked;
3450. {
3451. 	register struct damage *tmp_dam, *tmp2_dam;
3452. 	register boolean did_repair = FALSE, saw_door = FALSE;
3453. 	register boolean saw_floor = FALSE, stop_picking = FALSE;
3454. 	register boolean saw_untrap = FALSE;
3455. 	uchar saw_walls = 0;
3456. 
3457. 	tmp_dam = level.damagelist;
3458. 	tmp2_dam = 0;
3459. 	while (tmp_dam) {
3460. 	    register xchar x = tmp_dam->place.x, y = tmp_dam->place.y;
3461. 	    char shops[5];
3462. 	    int disposition;
3463. 
3464. 	    disposition = 0;
3465. 	    Strcpy(shops, in_rooms(x, y, SHOPBASE));
3466. 	    if (index(shops, ESHK(shkp)->shoproom)) {
3467. 		if (croaked)
3468. 		    disposition = (shops[1])? 0 : 1;
3469. 		else if (stop_picking)
3470. 		    disposition = repair_damage(shkp, tmp_dam, FALSE);
3471. 		else {
3472. 		    /* Defer the stop_occupation() until after repair msgs */
3473. 		    if (closed_door(x, y))
3474. 			stop_picking = picking_at(x, y);
3475. 		    disposition = repair_damage(shkp, tmp_dam, FALSE);
3476. 		    if (!disposition)
3477. 			stop_picking = FALSE;
3478. 		}
3479. 	    }
3480. 
3481. 	    if (!disposition) {
3482. 		tmp2_dam = tmp_dam;
3483. 		tmp_dam = tmp_dam->next;
3484. 		continue;
3485. 	    }
3486. 
3487. 	    if (disposition > 1) {
3488. 		did_repair = TRUE;
3489. 		if (cansee(x, y)) {
3490. 		    if (IS_WALL(levl[x][y].typ))
3491. 			saw_walls++;
3492. 		    else if (IS_DOOR(levl[x][y].typ))
3493. 			saw_door = TRUE;
3494. 		    else if (disposition == 3)		/* untrapped */
3495. 			saw_untrap = TRUE;
3496. 		    else
3497. 			saw_floor = TRUE;
3498. 		}
3499. 	    }
3500. 
3501. 	    tmp_dam = tmp_dam->next;
3502. 	    if (!tmp2_dam) {
3503. 		free((genericptr_t)level.damagelist);
3504. 		level.damagelist = tmp_dam;
3505. 	    } else {
3506. 		free((genericptr_t)tmp2_dam->next);
3507. 		tmp2_dam->next = tmp_dam;
3508. 	    }
3509. 	}
3510. 	if (!did_repair)
3511. 	    return;
3512. 	if (saw_walls) {
3513. 	    pline("Suddenly, %s section%s of wall close%s up!",
3514. 		  (saw_walls == 1) ? "a" : (saw_walls <= 3) ?
3515. 						  "some" : "several",
3516. 		  (saw_walls == 1) ? "" : "s", (saw_walls == 1) ? "s" : "");
3517. 	    if (saw_door)
3518. 		pline_The("shop door reappears!");
3519. 	    if (saw_floor)
3520. 		pline_The("floor is repaired!");
3521. 	} else {
3522. 	    if (saw_door)
3523. 		pline("Suddenly, the shop door reappears!");
3524. 	    else if (saw_floor)
3525. 		pline("Suddenly, the floor damage is gone!");
3526. 	    else if (saw_untrap)
3527. 	        pline("Suddenly, the trap is removed from the floor!");
3528. 	    else if (inside_shop(u.ux, u.uy) == ESHK(shkp)->shoproom)
3529. 		You_feel("more claustrophobic than before.");
3530. 	    else if (flags.soundok && !rn2(10))
3531. 		Norep("The dungeon acoustics noticeably change.");
3532. 	}
3533. 	if (stop_picking)
3534. 		stop_occupation();
3535. }
3536. 
3537. /*
3538.  * 0: repair postponed, 1: silent repair (no messages), 2: normal repair
3539.  * 3: untrap
3540.  */
3541. int
3542. repair_damage(shkp, tmp_dam, catchup)
3543. register struct monst *shkp;
3544. register struct damage *tmp_dam;
3545. boolean catchup;	/* restoring a level */
3546. {
3547. 	register xchar x, y, i;
3548. 	xchar litter[9];
3549. 	register struct monst *mtmp;
3550. 	register struct obj *otmp;
3551. 	register struct trap *ttmp;
3552. 
3553. 	if ((monstermoves - tmp_dam->when) < REPAIR_DELAY)
3554. 	    return(0);
3555. 	if (shkp->msleeping || !shkp->mcanmove || ESHK(shkp)->following)
3556. 	    return(0);
3557. 	x = tmp_dam->place.x;
3558. 	y = tmp_dam->place.y;
3559. 	if (!IS_ROOM(tmp_dam->typ)) {
3560. 	    if (x == u.ux && y == u.uy)
3561. 		if (!Passes_walls)
3562. 		    return(0);
3563. 	    if (x == shkp->mx && y == shkp->my)
3564. 		return(0);
3565. 	    if ((mtmp = m_at(x, y)) && (!passes_walls(mtmp->data)))
3566. 		return(0);
3567. 	}
3568. 	if ((ttmp = t_at(x, y)) != 0) {
3569. 	    if (x == u.ux && y == u.uy)
3570. 		if (!Passes_walls)
3571. 		    return(0);
3572. 	    if (ttmp->ttyp == LANDMINE || ttmp->ttyp == BEAR_TRAP) {
3573. 		/* convert to an object */
3574. 		otmp = mksobj((ttmp->ttyp == LANDMINE) ? LAND_MINE :
3575. 				BEARTRAP, TRUE, FALSE);
3576. 		otmp->quan= 1;
3577. 		otmp->owt = weight(otmp);
3578. 		(void) mpickobj(shkp, otmp);
3579. 	    }
3580. 	    deltrap(ttmp);
3581. 	    if(IS_DOOR(tmp_dam->typ)) {
3582. 		levl[x][y].doormask = D_CLOSED; /* arbitrary */
3583. 		block_point(x, y);
3584. 	    } else if (IS_WALL(tmp_dam->typ)) {
3585. 		levl[x][y].typ = tmp_dam->typ;
3586. 		block_point(x, y);
3587. 	    }
3588. 	    newsym(x, y);
3589. 	    return(3);
3590. 	}
3591. 	if (IS_ROOM(tmp_dam->typ)) {
3592. 	    /* No messages, because player already filled trap door */
3593. 	    return(1);
3594. 	}
3595. 	if ((tmp_dam->typ == levl[x][y].typ) &&
3596. 	    (!IS_DOOR(tmp_dam->typ) || (levl[x][y].doormask > D_BROKEN)))
3597. 	    /* No messages if player already replaced shop door */
3598. 	    return(1);
3599. 	levl[x][y].typ = tmp_dam->typ;
3600. 	(void) memset((genericptr_t)litter, 0, sizeof(litter));
3601. 	if ((otmp = level.objects[x][y]) != 0) {
3602. 	    /* Scatter objects haphazardly into the shop */
3603. #define NEED_UPDATE 1
3604. #define OPEN	    2
3605. #define INSHOP	    4
3606. #define horiz(i) ((i%3)-1)
3607. #define vert(i)  ((i/3)-1)
3608. 	    for (i = 0; i < 9; i++) {
3609. 		if ((i == 4) || (!ZAP_POS(levl[x+horiz(i)][y+vert(i)].typ)))
3610. 		    continue;
3611. 		litter[i] = OPEN;
3612. 		if (inside_shop(x+horiz(i),
3613. 				y+vert(i)) == ESHK(shkp)->shoproom)
3614. 		    litter[i] |= INSHOP;
3615. 	    }
3616. 	    if (Punished && !u.uswallow &&
3617. 				((uchain->ox == x && uchain->oy == y) ||
3618. 				 (uball->ox == x && uball->oy == y))) {
3619. 		/*
3620. 		 * Either the ball or chain is in the repair location.
3621. 		 *
3622. 		 * Take the easy way out and put ball&chain under hero.
3623. 		 */
3624. 		verbalize("Get your junk out of my wall!");
3625. 		unplacebc();	/* pick 'em up */
3626. 		placebc();	/* put 'em down */
3627. 	    }
3628. 	    while ((otmp = level.objects[x][y]) != 0)
3629. 		/* Don't mess w/ boulders -- just merge into wall */
3630. 		if ((otmp->otyp == BOULDER) || (otmp->otyp == ROCK)) {
3631. 		    obj_extract_self(otmp);
3632. 		    obfree(otmp, (struct obj *)0);
3633. 		} else {
3634. 		    while (!(litter[i = rn2(9)] & INSHOP));
3635. 			remove_object(otmp);
3636. 			place_object(otmp, x+horiz(i), y+vert(i));
3637. 			litter[i] |= NEED_UPDATE;
3638. 		}
3639. 	}
3640. 	if (catchup) return 1;	/* repair occurred while off level */
3641. 
3642. 	block_point(x, y);
3643. 	if(IS_DOOR(tmp_dam->typ)) {
3644. 	    levl[x][y].doormask = D_CLOSED; /* arbitrary */
3645. 	    newsym(x, y);
3646. 	} else {
3647. 	    /* don't set doormask  - it is (hopefully) the same as it was */
3648. 	    /* if not, perhaps save it with the damage array...  */
3649. 
3650. 	    if (IS_WALL(tmp_dam->typ) && cansee(x, y)) {
3651. 	    /* Player sees actual repair process, so they KNOW it's a wall */
3652. 		levl[x][y].seenv = SVALL;
3653. 		newsym(x, y);
3654. 	    }
3655. 	    /* Mark this wall as "repaired".  There currently is no code */
3656. 	    /* to do anything about repaired walls, so don't do it.	 */
3657. 	}
3658. 	for (i = 0; i < 9; i++)
3659. 	    if (litter[i] & NEED_UPDATE)
3660. 		newsym(x+horiz(i), y+vert(i));
3661. 	return(2);
3662. #undef NEED_UPDATE
3663. #undef OPEN
3664. #undef INSHOP
3665. #undef vert
3666. #undef horiz
3667. }
3668. #endif /*OVL0*/
3669. #ifdef OVL3
3670. /*
3671.  * shk_move: return 1: moved  0: didn't  -1: let m_move do it  -2: died
3672.  */
3673. int
3674. shk_move(shkp)
3675. register struct monst *shkp;
3676. {
3677. 	register xchar gx,gy,omx,omy;
3678. 	register int udist;
3679. 	register schar appr;
3680. 	register struct eshk *eshkp = ESHK(shkp);
3681. 	int z;
3682. 	boolean uondoor = FALSE, satdoor, avoid = FALSE, badinv;
3683. 
3684. 	omx = shkp->mx;
3685. 	omy = shkp->my;
3686. 
3687. 	if (inhishop(shkp))
3688. 	    remove_damage(shkp, FALSE);
3689. 
3690. 	if((udist = distu(omx,omy)) < 3 &&
3691. 	   (shkp->data != &mons[PM_GRID_BUG] || (omx==u.ux || omy==u.uy))) {
3692. 		if(ANGRY(shkp) ||
3693. 		   (Conflict && !resist(shkp, RING_CLASS, 0, 0))) {
3694. 			if(Displaced)
3695. 			  Your("displaced image doesn't fool %s!",
3696. 				mon_nam(shkp));
3697. 			(void) mattacku(shkp);
3698. 			return(0);
3699. 		}
3700. 		if(eshkp->following) {
3701. 			if(strncmp(eshkp->customer, plname, PL_NSIZ)) {
3702. 			    verbalize("%s, %s!  I was looking for %s.",
3703. 				    Hello(shkp), plname, eshkp->customer);
3704. 				    eshkp->following = 0;
3705. 			    return(0);
3706. 			}
3707. 			if(moves > followmsg+4) {
3708. 			    verbalize("%s, %s!  Didn't you forget to pay?",
3709. 				    Hello(shkp), plname);
3710. 			    followmsg = moves;
3711. 			    if (!rn2(9)) {
3712. 			      pline("%s doesn't like customers who don't pay.",
3713. 				    Monnam(shkp));
3714. 				rile_shk(shkp);
3715. 			    }
3716. 			}
3717. 			if(udist < 2)
3718. 			    return(0);
3719. 		}
3720. 	}
3721. 
3722. 	appr = 1;
3723. 	gx = eshkp->shk.x;
3724. 	gy = eshkp->shk.y;
3725. 	satdoor = (gx == omx && gy == omy);
3726. 	if(eshkp->following || ((z = holetime()) >= 0 && z*z <= udist)){
3727. 		/* [This distance check used to apply regardless of
3728. 		    whether the shk was following, but that resulted in
3729. 		    m_move() sometimes taking the shk out of the shop if
3730. 		    the player had fenced him in with boulders or traps.
3731. 		    Such voluntary abandonment left unpaid objects in
3732. 		    invent, triggering billing impossibilities on the
3733. 		    next level once the character fell through the hole.] */
3734. 		if (udist > 4 && eshkp->following && !eshkp->billct)
3735. 		    return(-1);	/* leave it to m_move */
3736. 		gx = u.ux;
3737. 		gy = u.uy;
3738. 	} else if(ANGRY(shkp)) {
3739. 		/* Move towards the hero if the shopkeeper can see him. */
3740. 		if(shkp->mcansee && m_canseeu(shkp)) {
3741. 			gx = u.ux;
3742. 			gy = u.uy;
3743. 		}
3744. 		avoid = FALSE;
3745. 	} else {
3746. #define	GDIST(x,y)	(dist2(x,y,gx,gy))
3747. #ifdef BLACKMARKET
3748. 	    if ((Is_blackmarket(&u.uz) && u.umonnum>0 &&
3749. 		 mons[u.umonnum].mlet != S_HUMAN) ||
3750.                 /* WAC Let you out if you're stuck inside */                
3751.                 (!Is_blackmarket(&u.uz) && (Invis 
3752. #ifdef STEED
3753. 			|| u.usteed
3754. #endif
3755. 			                          ) && !inside_shop(u.ux, u.uy)))
3756. #else /* BLACKMARKET */
3757. 		if(Invis
3758. #ifdef STEED
3759. 			|| u.usteed
3760. #endif
3761. 		        )
3762. #endif /* BLACKMARKET */
3763. 		{
3764. 		    avoid = FALSE;
3765. 		} else {
3766. 		    uondoor = (u.ux == eshkp->shd.x && u.uy == eshkp->shd.y);
3767. 		    if(uondoor) {
3768. 			badinv = (carrying(PICK_AXE) || carrying(DWARVISH_MATTOCK) ||
3769. 				  (Fast && (sobj_at(PICK_AXE, u.ux, u.uy) ||
3770. 				  sobj_at(DWARVISH_MATTOCK, u.ux, u.uy))));
3771. 			if(satdoor && badinv)
3772. 			    return(0);
3773. 			avoid = !badinv;
3774. 		    } else {
3775. 			avoid = (*u.ushops && distu(gx,gy) > 8);
3776. 			badinv = FALSE;
3777. 		    }
3778. 
3779. 		    if(((!eshkp->robbed && !eshkp->billct && !eshkp->debit)
3780. 			|| avoid) && GDIST(omx,omy) < 3) {
3781. 			if (!badinv && !onlineu(omx,omy))
3782. 			    return(0);
3783. 			if(satdoor)
3784. 			    appr = gx = gy = 0;
3785. 		    }
3786. 		}
3787. 	}
3788. 
3789. 	z = move_special(shkp,inhishop(shkp),appr,uondoor,avoid,omx,omy,gx,gy);
3790. 	if (z > 0) after_shk_move(shkp);
3791. 
3792. 	return z;
3793. }
3794. 
3795. /* called after shopkeeper moves, in case the move causes re-entry into shop */
3796. void
3797. after_shk_move(shkp)
3798. struct monst *shkp;
3799. {
3800. 	struct eshk *eshkp = ESHK(shkp);
3801. 
3802. 	if (eshkp->bill_p == (struct bill_x *) -1000 && inhishop(shkp)) {
3803. 	    /* reset bill_p, need to re-calc player's occupancy too */
3804. 	    eshkp->bill_p = &eshkp->bill[0];
3805. 	    check_special_room(FALSE);
3806. 	}
3807. }
3808. 
3809. #endif /*OVL3*/
3810. #ifdef OVLB
3811. 
3812. /* for use in levl_follower (mondata.c) */
3813. boolean
3814. is_fshk(mtmp)
3815. register struct monst *mtmp;
3816. {
3817. 	return((boolean)(mtmp->isshk && ESHK(mtmp)->following));
3818. }
3819. 
3820. /* You are digging in the shop. */
3821. void
3822. shopdig(fall)
3823. register int fall;
3824. {
3825.     register struct monst *shkp = shop_keeper(*u.ushops);
3826.     int lang;
3827.     const char *grabs = "grabs";
3828. 
3829.     if(!shkp) return;
3830. 
3831.     /* 0 == can't speak, 1 == makes animal noises, 2 == speaks */
3832.     lang = 0;
3833.     if (shkp->msleeping || !shkp->mcanmove || is_silent(shkp->data))
3834. 	;	/* lang stays 0 */
3835.     else if (shkp->data->msound <= MS_ANIMAL)
3836. 	lang = 1;
3837.     else if (shkp->data->msound >= MS_HUMANOID)
3838. 	lang = 2;
3839. 
3840.     if(!inhishop(shkp)) {
3841. 	if (Role_if(PM_KNIGHT)) {
3842. 	    You_feel("like a common thief.");
3843. 	    adjalign(-sgn(u.ualign.type));
3844. 	}
3845.         /* WAC He may not be here now,  but... */
3846.         make_angry_shk(shkp, 0, 0); /* No spot in particular*/
3847. 	return;
3848.     }
3849. 
3850.     if(!fall) {
3851. 	if (lang == 2) {
3852. 	    if(u.utraptype == TT_PIT)
3853. 		verbalize(
3854. 			"Be careful, %s, or you might fall through the floor.",
3855. 			flags.female ? "madam" : "sir");
3856. 	    else
3857. 		verbalize("%s, do not damage the floor here!",
3858. 			flags.female ? "Madam" : "Sir");
3859. 	}
3860. 	if (Role_if(PM_KNIGHT)) {
3861. 	    You_feel("like a common thief.");
3862. 	    adjalign(-sgn(u.ualign.type));
3863. 	}
3864.     } else if(!um_dist(shkp->mx, shkp->my, 5) &&
3865. 		!shkp->msleeping && shkp->mcanmove &&
3866. 		(ESHK(shkp)->billct || ESHK(shkp)->debit)) {
3867. 	    register struct obj *obj, *obj2;
3868. 	    if (nolimbs(shkp->data)) {
3869. 		grabs = "knocks off";
3870. #if 0
3871. 	       /* This is what should happen, but for balance
3872. 	        * reasons, it isn't currently.
3873. 	        */
3874. 		if (lang == 2)
3875. 		    pline("%s curses %s inability to grab your backpack!",
3876. 			  shkname(shkp), mhim(shkp));
3877. 		rile_shk(shkp);
3878. 		return;
3879. #endif
3880. 	    }
3881. 	    if (distu(shkp->mx, shkp->my) > 2) {
3882. 		mnexto(shkp);
3883. 		/* for some reason the shopkeeper can't come next to you */
3884. 		if (distu(shkp->mx, shkp->my) > 2) {
3885. 		    if (lang == 2)
3886. 			pline("%s curses you in anger and frustration!",
3887. 			      shkname(shkp));
3888. 		    rile_shk(shkp);
3889. 		    return;
3890. 		} else
3891. 		    pline("%s %s, and %s your backpack!",
3892. 			  shkname(shkp),
3893. 			  makeplural(locomotion(shkp->data,"leap")), grabs);
3894. 	    } else
3895. 		pline("%s %s your backpack!", shkname(shkp), grabs);
3896. 
3897. 	    for(obj = invent; obj; obj = obj2) {
3898. 		obj2 = obj->nobj;
3899. 		if ((obj->owornmask & ~(W_SWAPWEP|W_QUIVER)) != 0 ||
3900. 			(obj == uswapwep && u.twoweap) ||
3901. 			(obj->otyp == LEASH && obj->leashmon)) continue;
3902. 		if (obj == current_wand) continue;
3903. 		setnotworn(obj);
3904. 		freeinv(obj);
3905. 		subfrombill(obj, shkp);
3906. 		(void) add_to_minv(shkp, obj);	/* may free obj */
3907. 	    }
3908.    } else
3909.         /* WAC He may not be here now,  but... */
3910.         rile_shk(shkp);
3911. }
3912. 
3913. #ifdef KOPS
3914. /* modified by M. Campostrini (campo@sunthpi3.difi.unipi.it) */
3915. /* to allow for multiple choices of kops */
3916. STATIC_OVL void
3917. makekops(mm)
3918. coord *mm;
3919. {
3920. 	int kop_cnt[5];        
3921. 	int kop_pm[5];
3922. 	int ik, cnt;
3923. 	coord *mc;
3924.   
3925. 	kop_pm[0] = PM_KEYSTONE_KOP;
3926. 	kop_pm[1] = PM_KOP_SERGEANT;
3927. 	kop_pm[2] = PM_KOP_LIEUTENANT;
3928. 	kop_pm[3] = PM_KOP_KAPTAIN;
3929. 	kop_pm[4] = 0;
3930.   
3931. 	cnt = abs(depth(&u.uz)) + rnd(5);
3932.   
3933. #ifdef BLACKMARKET
3934. 	if (Is_blackmarket(&u.uz)) {
3935. 	  kop_pm[0] = PM_SOLDIER;
3936. 	  kop_pm[1] = PM_SERGEANT;
3937. 	  kop_pm[2] = PM_LIEUTENANT;
3938. 	  kop_pm[3] = PM_CAPTAIN;
3939. 	  kop_pm[4] = 0;
3940.   
3941. 	  cnt = 7 + rnd(10);
3942. 	}
3943. #endif /* BLACKMARKET */
3944.  
3945. 	kop_cnt[0] = cnt;
3946. 	kop_cnt[1] = (cnt / 3) + 1;   /* at least one sarge */
3947. 	kop_cnt[2] = (cnt / 6);       /* maybe a lieutenant */
3948. 	kop_cnt[3] = (cnt / 9);       /* and maybe a kaptain */
3949.  
3950. 	mc = (coord *)alloc(cnt * sizeof(coord));
3951. 	for (ik=0; kop_pm[ik]; ik++) {
3952. 	  if (!(mvitals[kop_pm[ik]].mvflags & G_GONE)) {
3953. 	    cnt = epathto(mc, kop_cnt[ik], mm->x, mm->y, &mons[kop_pm[ik]]);
3954. 	    while(--cnt >= 0)
3955. 		(void) makemon(&mons[kop_pm[ik]], mc[cnt].x, mc[cnt].y, NO_MM_FLAGS);
3956. 	}
3957. 	}
3958. 	free((genericptr_t)mc);
3959. }
3960. #endif	/* KOPS */
3961. 
3962. void
3963. pay_for_damage(dmgstr, cant_mollify)
3964. const char *dmgstr;
3965. boolean cant_mollify;
3966. {
3967. 	register struct monst *shkp = (struct monst *)0;
3968. 	char shops_affected[5];
3969. 	register boolean uinshp = (*u.ushops != '\0');
3970. 	char qbuf[80];
3971. 	register xchar x, y;
3972. 	boolean dugwall = !strcmp(dmgstr, "dig into") ||	/* wand */
3973. 			  !strcmp(dmgstr, "damage");		/* pick-axe */
3974. 	struct damage *tmp_dam, *appear_here = 0;
3975. 	/* any number >= (80*80)+(24*24) would do, actually */
3976. 	long cost_of_damage = 0L;
3977. 	unsigned int nearest_shk = 7000, nearest_damage = 7000;
3978. 	int picks = 0;
3979. 
3980. 	for (tmp_dam = level.damagelist;
3981. 	     (tmp_dam && (tmp_dam->when == monstermoves));
3982. 	     tmp_dam = tmp_dam->next) {
3983. 	    char *shp;
3984. 
3985. 	    if (!tmp_dam->cost)
3986. 		continue;
3987. 	    cost_of_damage += tmp_dam->cost;
3988. 	    Strcpy(shops_affected,
3989. 		   in_rooms(tmp_dam->place.x, tmp_dam->place.y, SHOPBASE));
3990. 	    for (shp = shops_affected; *shp; shp++) {
3991. 		struct monst *tmp_shk;
3992. 		unsigned int shk_distance;
3993. 
3994. 		if (!(tmp_shk = shop_keeper(*shp)))
3995. 		    continue;
3996. 		if (tmp_shk == shkp) {
3997. 		    unsigned int damage_distance =
3998. 				   distu(tmp_dam->place.x, tmp_dam->place.y);
3999. 
4000. 		    if (damage_distance < nearest_damage) {
4001. 			nearest_damage = damage_distance;
4002. 			appear_here = tmp_dam;
4003. 		    }
4004. 		    continue;
4005. 		}
4006. 		if (!inhishop(tmp_shk))
4007. 		    continue;
4008. 		shk_distance = distu(tmp_shk->mx, tmp_shk->my);
4009. 		if (shk_distance > nearest_shk)
4010. 		    continue;
4011. 		if ((shk_distance == nearest_shk) && picks) {
4012. 		    if (rn2(++picks))
4013. 			continue;
4014. 		} else
4015. 		    picks = 1;
4016. 		shkp = tmp_shk;
4017. 		nearest_shk = shk_distance;
4018. 		appear_here = tmp_dam;
4019. 		nearest_damage = distu(tmp_dam->place.x, tmp_dam->place.y);
4020. 	    }
4021. 	}
4022. 
4023. 	if (!cost_of_damage || !shkp)
4024. 	    return;
4025. 
4026. 	x = appear_here->place.x;
4027. 	y = appear_here->place.y;
4028. 
4029. 	/* not the best introduction to the shk... */
4030. 	(void) strncpy(ESHK(shkp)->customer,plname,PL_NSIZ);
4031. 
4032. 	/* if the shk is already on the war path, be sure it's all out */
4033. 	if(ANGRY(shkp) || ESHK(shkp)->following) {
4034. 		hot_pursuit(shkp);
4035. 		return;
4036. 	}
4037. 
4038. 	/* if the shk is not in their shop.. */
4039. 	if(!*in_rooms(shkp->mx,shkp->my,SHOPBASE)) {
4040. 		if(!cansee(shkp->mx, shkp->my))
4041. 			return;
4042. 		goto getcad;
4043. 	}
4044. 
4045. 	if(uinshp) {
4046. 		if(um_dist(shkp->mx, shkp->my, 1) &&
4047. 			!um_dist(shkp->mx, shkp->my, 3)) {
4048. 		    pline("%s leaps towards you!", shkname(shkp));
4049. 		    mnexto(shkp);
4050. 		}
4051. 		if(um_dist(shkp->mx, shkp->my, 1)) goto getcad;
4052. 	} else {
4053. 	    /*
4054. 	     * Make shkp show up at the door.  Effect:  If there is a monster
4055. 	     * in the doorway, have the hero hear the shopkeeper yell a bit,
4056. 	     * pause, then have the shopkeeper appear at the door, having
4057. 	     * yanked the hapless critter out of the way.
4058. 	     */
4059. 	    if (MON_AT(x, y)) {
4060. 		if(flags.soundok) {
4061. 		    You_hear("an angry voice:");
4062. 		    verbalize("Out of my way, scum!");
4063. 		    wait_synch();
4064. #if defined(UNIX) || defined(VMS)
4065. # if defined(SYSV) || defined(ULTRIX) || defined(VMS)
4066. 		    (void)
4067. # endif
4068. 			sleep(1);
4069. #endif
4070. 		}
4071. 	    }
4072. 	    (void) mnearto(shkp, x, y, TRUE);
4073. 	}
4074. 
4075. 	if((um_dist(x, y, 1) && !uinshp) || cant_mollify ||
4076. #ifndef GOLDOBJ
4077. 	   (u.ugold + ESHK(shkp)->credit) < cost_of_damage
4078. #else
4079. 	   (money_cnt(invent) + ESHK(shkp)->credit) < cost_of_damage
4080. #endif
4081. 				|| !rn2(50)) {
4082. 		if(um_dist(x, y, 1) && !uinshp) {
4083. 		    pline("%s shouts:", shkname(shkp));
4084. 		    verbalize("Who dared %s my %s?", dmgstr,
4085. 					 dugwall ? "shop" : "door");
4086. 		} else {
4087. getcad:
4088. 		    verbalize("How dare you %s my %s?", dmgstr,
4089. 					 dugwall ? "shop" : "door");
4090. 		}
4091. 		hot_pursuit(shkp);
4092. 		return;
4093. 	}
4094. 
4095. 	if (Invis) Your("invisibility does not fool %s!", shkname(shkp));
4096. 	Sprintf(qbuf,"\"Cad!  You did %ld %s worth of damage!\"  Pay? ",
4097. 		 cost_of_damage, currency(cost_of_damage));
4098. 	if(yn(qbuf) != 'n') {
4099. 		cost_of_damage = check_credit(cost_of_damage, shkp);
4100. #ifndef GOLDOBJ
4101. 		u.ugold -= cost_of_damage;
4102. 		shkp->mgold += cost_of_damage;
4103. #else
4104.                 money2mon(shkp, cost_of_damage);
4105. #endif
4106. 		flags.botl = 1;
4107. 		pline("Mollified, %s accepts your restitution.",
4108. 			shkname(shkp));
4109. 		/* move shk back to his home loc */
4110. 		home_shk(shkp, FALSE);
4111. 		pacify_shk(shkp);
4112. 	} else {
4113. 		verbalize("Oh, yes!  You'll pay!");
4114. 		hot_pursuit(shkp);
4115. 		adjalign(-sgn(u.ualign.type));
4116. 	}
4117. }
4118. #endif /*OVLB*/
4119. #ifdef OVL0
4120. /* called in dokick.c when we kick an object that might be in a store */
4121. boolean
4122. costly_spot(x, y)
4123. register xchar x, y;
4124. {
4125. 	register struct monst *shkp;
4126. 
4127. 	if (!level.flags.has_shop) return FALSE;
4128. 	shkp = shop_keeper(*in_rooms(x, y, SHOPBASE));
4129. 	if(!shkp || !inhishop(shkp)) return(FALSE);
4130. 
4131. 	return((boolean)(inside_shop(x, y) &&
4132. 		!(x == ESHK(shkp)->shk.x &&
4133. 			y == ESHK(shkp)->shk.y)));
4134. }
4135. #endif /*OVL0*/
4136. #ifdef OVLB
4137. 
4138. /* called by dotalk(sounds.c) when #chatting; returns obj if location
4139.    contains shop goods and shopkeeper is willing & able to speak */
4140. struct obj *
4141. shop_object(x, y)
4142. register xchar x, y;
4143. {
4144.     register struct obj *otmp;
4145.     register struct monst *shkp;
4146. 
4147.     if(!(shkp = shop_keeper(*in_rooms(x, y, SHOPBASE))) || !inhishop(shkp))
4148. 	return(struct obj *)0;
4149. 
4150.     for (otmp = level.objects[x][y]; otmp; otmp = otmp->nexthere)
4151. 	if (otmp->oclass != COIN_CLASS)
4152. 	    break;
4153.     /* note: otmp might have ->no_charge set, but that's ok */
4154.     return (otmp && costly_spot(x, y) && NOTANGRY(shkp)
4155. 	    && shkp->mcanmove && !shkp->msleeping)
4156. 		? otmp : (struct obj *)0;
4157. }
4158. 
4159. /* give price quotes for all objects linked to this one (ie, on this spot) */
4160. void
4161. price_quote(first_obj)
4162. register struct obj *first_obj;
4163. {
4164.     register struct obj *otmp;
4165.     char buf[BUFSZ], price[40];
4166.     long cost;
4167.     int cnt = 0;
4168.     winid tmpwin;
4169.     struct monst *shkp = shop_keeper(inside_shop(u.ux, u.uy));
4170. 
4171.     tmpwin = create_nhwindow(NHW_MENU);
4172.     putstr(tmpwin, 0, "Fine goods for sale:");
4173.     putstr(tmpwin, 0, "");
4174.     for (otmp = first_obj; otmp; otmp = otmp->nexthere) {
4175. 	if (otmp->oclass == COIN_CLASS) continue;
4176. 	cost = (otmp->no_charge || otmp == uball || otmp == uchain) ? 0L :
4177. 		get_cost(otmp, (struct monst *)0);
4178. 	if (Has_contents(otmp))
4179. 	    cost += contained_cost(otmp, shkp, 0L, FALSE, FALSE);
4180. 	if (!cost) {
4181. 	    Strcpy(price, "no charge");
4182. 	} else {
4183. 	    Sprintf(price, "%ld %s%s", cost, currency(cost),
4184. 		    otmp->quan > 1L ? " each" : "");
4185. 	}
4186. 	Sprintf(buf, "%s, %s", doname(otmp), price);
4187. 	putstr(tmpwin, 0, buf),  cnt++;
4188.     }
4189.     if (cnt > 1) {
4190. 	display_nhwindow(tmpwin, TRUE);
4191.     } else if (cnt == 1) {
4192. 	if (first_obj->no_charge || first_obj == uball || first_obj == uchain){
4193. 	    pline("%s!", buf);	/* buf still contains the string */
4194. 	} else {
4195. 	    /* print cost in slightly different format, so can't reuse buf */
4196. 	    cost = get_cost(first_obj, (struct monst *)0);
4197. 	    if (Has_contents(first_obj))
4198. 		cost += contained_cost(first_obj, shkp, 0L, FALSE, FALSE);
4199. 	    pline("%s, price %ld %s%s%s", doname(first_obj),
4200. 		cost, currency(cost), first_obj->quan > 1L ? " each" : "",
4201. 		shk_embellish(first_obj, cost));
4202. 	}
4203.     }
4204.     destroy_nhwindow(tmpwin);
4205. }
4206. #endif /*OVLB*/
4207. #ifdef OVL3
4208. 
4209. STATIC_OVL const char *
4210. shk_embellish(itm, cost)
4211. register struct obj *itm;
4212. long cost;
4213. {
4214.     if (!rn2(3)) {
4215. 	register int o, choice = rn2(5);
4216. 	if (choice == 0) choice = (cost < 100L ? 1 : cost < 500L ? 2 : 3);
4217. 	switch (choice) {
4218. 	    case 4:
4219. 		if (cost < 10L) break; else o = itm->oclass;
4220. 		if (o == FOOD_CLASS) return ", gourmets' delight!";
4221. 		if (objects[itm->otyp].oc_name_known
4222. 		    ? objects[itm->otyp].oc_magic
4223. 		    : (o == AMULET_CLASS || o == RING_CLASS   ||
4224. 		       o == WAND_CLASS   || o == POTION_CLASS ||
4225. 		       o == SCROLL_CLASS || o == SPBOOK_CLASS))
4226. 		    return ", painstakingly developed!";
4227. 		return ", superb craftsmanship!";
4228. 	    case 3: return ", finest quality.";
4229. 	    case 2: return ", an excellent choice.";
4230. 	    case 1: return ", a real bargain.";
4231. 	   default: break;
4232. 	}
4233.     } else if (itm->oartifact) {
4234. 	return ", one of a kind!";
4235.     }
4236.     return ".";
4237. }
4238. #endif /*OVL3*/
4239. #ifdef OVLB
4240. 
4241. /* First 4 supplied by Ronen and Tamar, remainder by development team */
4242. const char *Izchak_speaks[]={
4243.     "%s says: 'These shopping malls give me a headache.'",
4244.     "%s says: 'Slow down.  Think clearly.'",
4245.     "%s says: 'You need to take things one at a time.'",
4246.     "%s says: 'I don't like poofy coffee... give me Columbian Supremo.'",
4247.     "%s says that getting the devteam's agreement on anything is difficult.",
4248.     "%s says that he has noticed those who serve their deity will prosper.",
4249.     "%s says: 'Don't try to steal from me - I have friends in high places!'",
4250.     "%s says: 'You may well need something from this shop in the future.'",
4251.     "%s comments about the Valley of the Dead as being a gateway."
4252. };
4253. 
4254. void
4255. shk_chat(shkp)
4256. struct monst *shkp;
4257. {
4258. 	struct eshk *eshk;
4259. #ifdef GOLDOBJ
4260. 	long shkmoney;
4261. #endif
4262. 	if (!shkp->isshk) {
4263. 		/* The monster type is shopkeeper, but this monster is
4264. 		   not actually a shk, which could happen if someone
4265. 		   wishes for a shopkeeper statue and then animates it.
4266. 		   (Note: shkname() would be "" in a case like this.) */
4267. 		pline("%s asks whether you've seen any untended shops recently.",
4268. 		      Monnam(shkp));
4269. 		/* [Perhaps we ought to check whether this conversation
4270. 		   is taking place inside an untended shop, but a shopless
4271. 		   shk can probably be expected to be rather disoriented.] */
4272. 		return;
4273. 	}
4274. 
4275. 	eshk = ESHK(shkp);
4276. 	if (ANGRY(shkp))
4277. 		pline("%s mentions how much %s dislikes %s customers.",
4278. 			shkname(shkp), mhe(shkp),
4279. 			eshk->robbed ? "non-paying" : "rude");
4280. 	else if (eshk->following) {
4281. 		if (strncmp(eshk->customer, plname, PL_NSIZ)) {
4282. 		    verbalize("%s %s!  I was looking for %s.",
4283. 			    Hello(shkp), plname, eshk->customer);
4284. 		    eshk->following = 0;
4285. 		} else {
4286. 		    verbalize("%s %s!  Didn't you forget to pay?",
4287. 			      Hello(shkp), plname);
4288. 		}
4289. 	} else if (eshk->billct) {
4290. 		register long total = addupbill(shkp) + eshk->debit;
4291. 		pline("%s says that your bill comes to %ld %s.",
4292. 		      shkname(shkp), total, currency(total));
4293. 	} else if (eshk->debit)
4294. 		pline("%s reminds you that you owe %s %ld %s.",
4295. 		      shkname(shkp), mhim(shkp),
4296. 		      eshk->debit, currency(eshk->debit));
4297. 	else if (eshk->credit)
4298. 		pline("%s encourages you to use your %ld %s of credit.",
4299. 		      shkname(shkp), eshk->credit, currency(eshk->credit));
4300. 	else if (eshk->robbed)
4301. 		pline("%s complains about a recent robbery.", shkname(shkp));
4302. #ifndef GOLDOBJ
4303. 	else if (shkp->mgold < 50)
4304. #else
4305. 	else if ((shkmoney = money_cnt(shkp->minvent)) < 50)
4306. #endif
4307. 		pline("%s complains that business is bad.", shkname(shkp));
4308. #ifndef GOLDOBJ
4309. 	else if (shkp->mgold > 4000)
4310. #else
4311. 	else if (shkmoney > 4000)
4312. #endif
4313. 		pline("%s says that business is good.", shkname(shkp));
4314. 	else if (strcmp(shkname(shkp), "Izchak") == 0)
4315. 		pline(Izchak_speaks[rn2(SIZE(Izchak_speaks))],shkname(shkp));
4316. 	else
4317. 		pline("%s talks about the problem of shoplifters.",shkname(shkp));
4318. }
4319. 
4320. #ifdef KOPS
4321. STATIC_OVL void
4322. kops_gone(silent)
4323. register boolean silent;
4324. {
4325. 	register int cnt = 0;
4326. 	register struct monst *mtmp, *mtmp2;
4327. 
4328. 	for (mtmp = fmon; mtmp; mtmp = mtmp2) {
4329. 	    mtmp2 = mtmp->nmon;
4330. 	    if (mtmp->data->mlet == S_KOP) {
4331. 		if (canspotmon(mtmp)) cnt++;
4332. 		mongone(mtmp);
4333. 	    }
4334. 	}
4335. 	if (cnt && !silent)
4336. 	    pline_The("Kop%s (disappointed) vanish%s into thin air.",
4337. 		      plur(cnt), cnt == 1 ? "es" : "");
4338. }
4339. #endif	/* KOPS */
4340. 
4341. #endif /*OVLB*/
4342. #ifdef OVL3
4343. 
4344. STATIC_OVL long
4345. cost_per_charge(shkp, otmp, altusage)
4346. struct monst *shkp;
4347. struct obj *otmp;
4348. boolean altusage; /* some items have an "alternate" use with different cost */
4349. {
4350. 	long tmp = 0L;
4351. 
4352. 	if(!shkp || !inhishop(shkp)) return(0L); /* insurance */
4353. 	tmp = get_cost(otmp, shkp);
4354. 
4355. 	/* The idea is to make the exhaustive use of */
4356. 	/* an unpaid item more expensive than buying */
4357. 	/* it outright.				     */
4358. 	/* KMH, balance patch -- removed abusive orbs */
4359. 	if(otmp->otyp == MAGIC_LAMP /*|| 
4360. 	   otmp->otyp == ORB_OF_DESTRUCTION*/) {           /* 1 */
4361. 		/* normal use (ie, as light source) of a magic lamp never
4362. 		   degrades its value, but not charging anything would make
4363. 		   identifcation too easy; charge an amount comparable to
4364. 		   what is charged for an ordinary lamp (don't bother with
4365. 		   angry shk surchage) */
4366. 		if (!altusage) tmp = (long) objects[OIL_LAMP].oc_cost;
4367. 		else tmp += tmp / 3L;	/* djinni is being released */
4368. 	} else if(otmp->otyp == MAGIC_MARKER) {		 /* 70 - 100 */
4369. 		/* no way to determine in advance   */
4370. 		/* how many charges will be wasted. */
4371. 		/* so, arbitrarily, one half of the */
4372. 		/* price per use.		    */
4373. 		tmp /= 2L;
4374. 	} else if(otmp->otyp == BAG_OF_TRICKS ||	 /* 1 - 20 */
4375. 		  otmp->otyp == MEDICAL_KIT ||                  
4376. 		  otmp->otyp == HORN_OF_PLENTY) {
4377. 		tmp /= 5L;
4378. 	} else if(otmp->otyp == CRYSTAL_BALL ||		 /* 1 - 5 */
4379. 		  /*otmp->otyp == ORB_OF_ENCHANTMENT ||                  
4380. 		  otmp->otyp == ORB_OF_CHARGING ||*/
4381. 		  otmp->otyp == OIL_LAMP ||		 /* 1 - 10 */
4382. 		  otmp->otyp == BRASS_LANTERN ||
4383. 		 (otmp->otyp >= MAGIC_FLUTE &&
4384. 		  otmp->otyp <= DRUM_OF_EARTHQUAKE) ||	 /* 5 - 9 */
4385. 		  otmp->oclass == WAND_CLASS) {		 /* 3 - 11 */
4386. 		if (otmp->spe > 1) tmp /= 4L;
4387. 	} else if (otmp->otyp == TORCH) {
4388. 	            tmp /= 2L;	
4389. 	} else if (otmp->oclass == SPBOOK_CLASS) {
4390. 		/* Normal use is studying. Alternate use is using up a charge */
4391. 		if (altusage) tmp /= 10L;		 /* 2 - 4 */
4392. 		else tmp -= tmp / 5L;
4393. 	} else if (otmp->otyp == CAN_OF_GREASE ||
4394. 		   otmp->otyp == TINNING_KIT
4395. #ifdef TOURIST
4396. 		   || otmp->otyp == EXPENSIVE_CAMERA
4397. #endif
4398. 		   ) {
4399. 		tmp /= 10L;
4400. 	} else if (otmp->otyp == POT_OIL) {
4401. 		tmp /= 5L;
4402. 	}
4403. 	return(tmp);
4404. }
4405. #endif /*OVL3*/
4406. #ifdef OVLB
4407. 
4408. /* Charge the player for partial use of an unpaid object.
4409.  *
4410.  * Note that bill_dummy_object() should be used instead
4411.  * when an object is completely used.
4412.  */
4413. void
4414. check_unpaid_usage(otmp, altusage)
4415. struct obj *otmp;
4416. boolean altusage;
4417. {
4418. 	struct monst *shkp;
4419. 	const char *fmt, *arg1, *arg2;
4420. 	long tmp;
4421. 
4422. 	/* MRKR: Torches are a special case. As weapons they can have */
4423. 	/*       a 'charge' == plus value, which is independent of their */
4424. 	/*       use as a light source. */
4425. 
4426. 	/* WAC - now checks for items that aren't carried */
4427. 	if ((!otmp->unpaid || !*u.ushops ||
4428. 		(otmp->spe <= 0 && objects[otmp->otyp].oc_charged &&
4429. 		 otmp->otyp != TORCH))
4430. 		&& (carried(otmp) || !costly_spot(otmp->ox, otmp->oy) ||
4431. 		otmp->no_charge))
4432. 	    return;
4433. 	if (!(shkp = shop_keeper(*u.ushops)) || !inhishop(shkp))
4434. 	    return;
4435. 	if ((tmp = cost_per_charge(shkp, otmp, altusage)) == 0L)
4436. 	    return;
4437. 
4438. 	arg1 = arg2 = "";
4439. 	if (otmp->oclass == SPBOOK_CLASS && !altusage) {
4440. 	    fmt = "%sYou owe%s %ld %s.";
4441. 	    arg1 = rn2(2) ? "This is no free library, cad!  " : "";
4442. 	    arg2 = ESHK(shkp)->debit > 0L ? " an additional" : "";
4443. 	} else if (otmp->otyp == POT_OIL) {
4444. 	    fmt = "%s%sThat will cost you %ld %s (Yendorian Fuel Tax).";
4445. 	} else {
4446. 	    fmt = "%s%sUsage fee, %ld %s.";
4447. 	    if (!rn2(3)) arg1 = "Hey!  ";
4448. 	    if (!rn2(3)) arg2 = "Ahem.  ";
4449. 	}
4450. 
4451. 	if (shkp->mcanmove || !shkp->msleeping)
4452. 	    verbalize(fmt, arg1, arg2, tmp, currency(tmp));
4453. 	ESHK(shkp)->debit += tmp;
4454. 	exercise(A_WIS, TRUE);		/* you just got info */
4455. }
4456. 
4457. /* for using charges of unpaid objects "used in the normal manner" */
4458. void
4459. check_unpaid(otmp)
4460. struct obj *otmp;
4461. {
4462. 	check_unpaid_usage(otmp, FALSE);		/* normal item use */
4463. }
4464. 
4465. void
4466. costly_gold(x, y, amount)
4467. register xchar x, y;
4468. register long amount;
4469. {
4470. 	register long delta;
4471. 	register struct monst *shkp;
4472. 	register struct eshk *eshkp;
4473. 
4474. 	if(!costly_spot(x, y)) return;
4475. 	/* shkp now guaranteed to exist by costly_spot() */
4476. 	shkp = shop_keeper(*in_rooms(x, y, SHOPBASE));
4477. 
4478. 	eshkp = ESHK(shkp);
4479. 	if(eshkp->credit >= amount) {
4480. 	    if(eshkp->credit > amount)
4481. 		Your("credit is reduced by %ld %s.",
4482. 					amount, currency(amount));
4483. 	    else Your("credit is erased.");
4484. 	    eshkp->credit -= amount;
4485. 	} else {
4486. 	    delta = amount - eshkp->credit;
4487. 	    if(eshkp->credit)
4488. 		Your("credit is erased.");
4489. 	    if(eshkp->debit)
4490. 		Your("debt increases by %ld %s.",
4491. 					delta, currency(delta));
4492. 	    else You("owe %s %ld %s.",
4493. 				shkname(shkp), delta, currency(delta));
4494. 	    eshkp->debit += delta;
4495. 	    eshkp->loan += delta;
4496. 	    eshkp->credit = 0L;
4497. 	}
4498. }
4499. 
4500. /* used in domove to block diagonal shop-exit */
4501. /* x,y should always be a door */
4502. boolean
4503. block_door(x,y)
4504. register xchar x, y;
4505. {
4506. 	register int roomno = *in_rooms(x, y, SHOPBASE);
4507. 	register struct monst *shkp;
4508. 
4509. 	if(roomno < 0 || !IS_SHOP(roomno)) return(FALSE);
4510. 	if(!IS_DOOR(levl[x][y].typ)) return(FALSE);
4511. 	if(roomno != *u.ushops) return(FALSE);
4512. 
4513. 	if(!(shkp = shop_keeper((char)roomno)) || !inhishop(shkp))
4514. 		return(FALSE);
4515. 
4516. 	if(shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y
4517. 	    /* Actually, the shk should be made to block _any_
4518. 	     * door, including a door the player digs, if the
4519. 	     * shk is within a 'jumping' distance.
4520. 	     */
4521. 	    && ESHK(shkp)->shd.x == x && ESHK(shkp)->shd.y == y
4522. 	    && shkp->mcanmove && !shkp->msleeping
4523. 	    && (ESHK(shkp)->debit || ESHK(shkp)->billct ||
4524. 		ESHK(shkp)->robbed)) {
4525. 		pline("%s%s blocks your way!", shkname(shkp),
4526. 				Invis ? " senses your motion and" : "");
4527. 		return(TRUE);
4528. 	}
4529. 	return(FALSE);
4530. }
4531. 
4532. /* used in domove to block diagonal shop-entry */
4533. /* u.ux, u.uy should always be a door */
4534. boolean
4535. block_entry(x,y)
4536. register xchar x, y;
4537. {
4538. 	register xchar sx, sy;
4539. 	register int roomno;
4540. 	register struct monst *shkp;
4541. 
4542. 	if(!(IS_DOOR(levl[u.ux][u.uy].typ) &&
4543. 		levl[u.ux][u.uy].doormask == D_BROKEN)) return(FALSE);
4544. 
4545. 	roomno = *in_rooms(x, y, SHOPBASE);
4546. 	if(roomno < 0 || !IS_SHOP(roomno)) return(FALSE);
4547. 	if(!(shkp = shop_keeper((char)roomno)) || !inhishop(shkp))
4548. 		return(FALSE);
4549. 
4550. 	if(ESHK(shkp)->shd.x != u.ux || ESHK(shkp)->shd.y != u.uy)
4551. 		return(FALSE);
4552. 
4553. 	sx = ESHK(shkp)->shk.x;
4554. 	sy = ESHK(shkp)->shk.y;
4555. 
4556. 	/* KMH, balacne patch -- allow other picks */
4557. 	if(shkp->mx == sx && shkp->my == sy
4558. 		&& shkp->mcanmove && !shkp->msleeping
4559. 		&& (x == sx-1 || x == sx+1 || y == sy-1 || y == sy+1)
4560. 		&& (Invis || carrying(PICK_AXE) || carrying(DWARVISH_MATTOCK)
4561. #ifdef STEED
4562. 			|| u.usteed
4563. #endif
4564. 	  )) {
4565. 		pline("%s%s blocks your way!", shkname(shkp),
4566. 				Invis ? " senses your motion and" : "");
4567. 		return(TRUE);
4568. 	}
4569. 	return(FALSE);
4570. }
4571. 
4572. #endif /* OVLB */
4573. #ifdef OVL2
4574. 
4575. char *
4576. shk_your(buf, obj)
4577. char *buf;
4578. struct obj *obj;
4579. {
4580. 	if (!shk_owns(buf, obj) && !mon_owns(buf, obj))
4581. 	    Strcpy(buf, carried(obj) ? "your" : "the");
4582. 	return buf;
4583. }
4584. 
4585. char *
4586. Shk_Your(buf, obj)
4587. char *buf;
4588. struct obj *obj;
4589. {
4590. 	(void) shk_your(buf, obj);
4591. 	*buf = highc(*buf);
4592. 	return buf;
4593. }
4594. 
4595. STATIC_OVL char *
4596. shk_owns(buf, obj)
4597. char *buf;
4598. struct obj *obj;
4599. {
4600. 	struct monst *shkp;
4601. 	xchar x, y;
4602. 
4603. 	if (get_obj_location(obj, &x, &y, 0) &&
4604. 	    (obj->unpaid ||
4605. 	     (obj->where==OBJ_FLOOR && !obj->no_charge && costly_spot(x,y)))) {
4606. 	    shkp = shop_keeper(inside_shop(x, y));
4607. 	    return strcpy(buf, shkp ? s_suffix(shkname(shkp)) : "the");
4608. 	}
4609. 	return (char *)0;
4610. }
4611. 
4612. STATIC_OVL char *
4613. mon_owns(buf, obj)
4614. char *buf;
4615. struct obj *obj;
4616. {
4617. 	if (obj->where == OBJ_MINVENT)
4618. 	    return strcpy(buf, s_suffix(mon_nam(obj->ocarry)));
4619. 	return (char *)0;
4620. }
4621. 
4622. #endif /* OVL2 */
4623. #ifdef OVLB
4624. 
4625. #ifdef __SASC
4626. void
4627. sasc_bug(struct obj *op, unsigned x){
4628. 	op->unpaid=x;
4629. }
4630. #endif
4631. 
4632. #ifdef OTHER_SERVICES
4633. static NEARDATA const char identify_types[] = { ALL_CLASSES, 0 };
4634. static NEARDATA const char weapon_types[] = { WEAPON_CLASS, TOOL_CLASS, 0 };
4635. static NEARDATA const char armor_types[] = { ARMOR_CLASS, 0 };
4636. 
4637. /*
4638. ** FUNCTION shk_identify
4639. **
4640. ** Pay the shopkeeper to identify an item.
4641. */
4642. static NEARDATA const char ident_chars[] = "bp";
4643. 
4644. static void
4645. shk_identify(slang, shkp)
4646. 	char *slang;
4647. 	struct monst *shkp;
4648. {
4649. 	register struct obj *obj;       /* The object to identify       */
4650. 	int charge, mult;               /* Cost to identify             */
4651. /*
4652. 	char sbuf[BUFSZ];
4653.  */
4654. 	boolean guesswork;              /* Will shkp be guessing?       */
4655. 	boolean ripoff=FALSE;           /* Shkp ripping you off?        */
4656. 	char ident_type;
4657. 
4658. 	/* Pick object */
4659. 	if ( !(obj = getobj(identify_types, "have identified"))) return;
4660. 
4661. 	/* Will shk be guessing? */
4662.         if ((guesswork = !shk_obj_match(obj, shkp)))
4663. 	{
4664. 		verbalize("I don't handle that sort of item, but I could try...");
4665. 	}
4666. 
4667. 	/* Here we go */
4668. 	/* KMH -- fixed */
4669. 	if (ESHK(shkp)->services & (SHK_ID_BASIC|SHK_ID_PREMIUM) ==
4670. 			SHK_ID_BASIC|SHK_ID_PREMIUM) {
4671. 		ident_type = yn_function("[B]asic service or [P]remier",
4672. 		     ident_chars, '\0');
4673. 		if (ident_type == '\0') return;
4674. 	} else if (ESHK(shkp)->services & SHK_ID_BASIC) {
4675. 		verbalize("I only offer basic identification.");
4676. 		ident_type = 'b';
4677. 	} else if (ESHK(shkp)->services & SHK_ID_PREMIUM) {
4678. 		verbalize("I only make complete identifications.");
4679. 		ident_type = 'p';
4680. 	}
4681. 
4682. 	/*
4683. 	** Shopkeeper is ripping you off if:
4684. 	** Basic service and object already known.
4685. 	** Premier service, object known, + know blessed/cursed and
4686. 	**      rustproof, etc.
4687. 	*/
4688. 	if (obj->dknown && objects[obj->otyp].oc_name_known)
4689. 	{
4690. 		if (ident_type=='b') ripoff=TRUE;
4691. 		if (ident_type=='p' && obj->bknown && obj->rknown && obj->known) ripoff=TRUE;
4692. 	}
4693. 
4694. 	/* Compute the charge */
4695. 	
4696. 	if (ripoff)
4697. 	{
4698. 		if (no_cheat) {
4699. 			verbalize("That item's already identified!");
4700. 			return;
4701. 		}
4702. 		/* Object already identified: Try and cheat the customer. */
4703. 		pline("%s chuckles greedily...", mon_nam(shkp));
4704. 		mult = 1;
4705. 	
4706. 	/* basic */        
4707. 	} else if (ident_type=='b') mult = 1;
4708. 
4709. 	/* premier */
4710. 	else mult = 2;
4711. 	
4712. 	switch (obj->oclass) {        
4713. 		case AMULET_CLASS:      charge = 375 * mult;
4714. 					break;
4715. 		case WEAPON_CLASS:      charge = 75 * mult;
4716. 					break;
4717. 		case ARMOR_CLASS:       charge = 100 * mult;
4718. 					break;
4719. 		case FOOD_CLASS:        charge = 25 * mult;   
4720. 					break;
4721. 		case SCROLL_CLASS:      charge = 150 * mult;   
4722. 					break;
4723. 		case SPBOOK_CLASS:      charge = 250 * mult;   
4724. 					break;
4725. 		case POTION_CLASS:      charge = 150 * mult;   
4726. 					break;
4727. 		case RING_CLASS:        charge = 300 * mult;   
4728. 					break;
4729. 		case WAND_CLASS:        charge = 200 * mult;   
4730. 					break;
4731. 		case TOOL_CLASS:        charge = 50 * mult;   
4732. 					break;
4733. 		case GEM_CLASS:         charge = 500 * mult;
4734. 					break;
4735. 		default:                charge = 75 * mult;
4736. 					break;
4737. 	}
4738. 		
4739. 	/* Artifacts cost more to deal with */
4740. 	/* KMH -- Avoid floating-point */
4741. 	if (obj->oartifact) charge = charge * 3 / 2;
4742. 	
4743. 	/* Smooth out the charge a bit (lower bound only) */
4744. 	shk_smooth_charge(&charge, 25, 750);
4745. 	
4746. 	/* Go ahead? */
4747. 	if (shk_offer_price(slang, charge, shkp) == FALSE) return;
4748. 
4749. 	/* Shopkeeper deviousness */
4750. 	if (ident_type == 'b') {
4751. 	    if (Hallucination) {
4752. 		pline("You hear %s tell you it's a pot of flowers.",
4753. 			mon_nam(shkp));
4754. 		return;
4755. 	    } else if (Confusion) {
4756. 		pline("%s tells you but you forget.", mon_nam(shkp));
4757. 		return;
4758. 	    }
4759. 	}
4760. 
4761. 	/* Is shopkeeper guessing? */
4762. 	if (guesswork)
4763. 	{
4764. 		/*
4765. 		** Identify successful if rn2() < #.  
4766. 		*/
4767. 		if (!rn2(ident_type == 'b' ? 4 : 2)) {
4768. 			verbalize("Success!");
4769. 			/* Rest of msg will come from identify(); */
4770. 		} else {
4771. 			verbalize("Sorry.  I guess it's not your lucky day.");
4772. 			return;
4773. 		}
4774. 	}
4775. 
4776. 	/* Premier service */
4777. 	if (ident_type == 'p') {
4778. 		identify(obj);
4779. 	} else { 
4780. 		/* Basic */
4781. 		makeknown(obj->otyp);
4782. 		obj->dknown = 1;
4783.     		prinv((char *)0, obj, 0L); /* Print result */
4784. 	}
4785. }
4786. 
4787. 
4788. /*
4789. ** FUNCTION shk_uncurse
4790. **
4791. ** Uncurse an item for the customer
4792. */
4793. static void
4794. shk_uncurse(slang, shkp)
4795. 	char *slang;
4796. 	struct monst *shkp;
4797. {
4798. 	struct obj *obj;                /* The object picked            */
4799. 	int charge;                     /* How much to uncurse          */
4800. 
4801. 	/* Pick object */
4802. 	if ( !(obj = getobj(identify_types, "uncurse"))) return;
4803. 
4804. 	/* Charge is same as cost */
4805. 	charge = get_cost(obj, shop_keeper(/* roomno= */*u.ushops));
4806. 		
4807. 	/* Artifacts cost more to deal with */
4808. 	/* KMH -- Avoid floating-point */
4809. 	if (obj->oartifact) charge = charge * 3 / 2;
4810. 
4811. 	/* Smooth out the charge a bit */
4812. 	shk_smooth_charge(&charge, 50, 250);
4813. 
4814. 	/* Go ahead? */
4815. 	if (shk_offer_price(slang, charge, shkp) == FALSE) return;
4816. 
4817. 	/* Shopkeeper responses */
4818. 	/* KMH -- fixed bknown, curse(), bless(), uncurse() */
4819. 	if (!obj->bknown && !Role_if(PM_PRIEST) && !Role_if(PM_NECROMANCER) &&
4820. 	    !no_cheat)
4821. 	{
4822. 		/* Not identified! */
4823. 		pline("%s snickers and says \"See, nice and uncursed!\"",
4824. 			mon_nam(shkp));
4825. 		obj->bknown = FALSE;
4826. 	}
4827. 	else if (Confusion)
4828. 	{
4829. 		/* Curse the item! */
4830. 		You("accidentally ask for the item to be cursed");
4831. 		curse(obj);
4832. 	}
4833. 	else if (Hallucination)
4834. 	{
4835. 		/*
4836. 		** Let's have some fun:  If you're hallucinating,
4837. 		** then there's a chance for the object to be blessed!
4838. 		*/
4839. 		if (!rn2(4))
4840. 		{
4841. 		    pline("Distracted by your blood-shot %s, the shopkeeper",
4842. 			makeplural(body_part(EYE)));
4843. 		    pline("accidentally blesses the item!");
4844. 		    bless(obj);
4845. 		}
4846. 		else
4847. 		{
4848. 			You("can't see straight and point to the wrong item");
4849. 		}
4850. 	}
4851. 	else
4852. 	{
4853. 		verbalize("All done - safe to handle, now!");
4854. 		uncurse(obj);
4855. 	}
4856. }
4857. 
4858. 
4859. /*
4860. ** FUNCTION shk_appraisal
4861. **
4862. ** Appraise a weapon or armor
4863. */
4864. static const char basic_damage[] =
4865. 	"Basic damage against small foes %s, against large foes %s.";
4866. 
4867. static void
4868. shk_appraisal(slang, shkp)
4869. 	char *slang;
4870. 	struct monst *shkp;
4871. {
4872. 	struct obj *obj;                /* The object picked            */
4873. 	int charge;                     /* How much for appraisal       */
4874. 	boolean guesswork;              /* Shopkeeper unsure?           */
4875. 	char ascii_wsdam[5];            /* Ascii form of damage         */
4876. 	char ascii_wldam[5];
4877. 
4878. 
4879. 	/* Pick object */
4880. 	if ( !(obj = getobj(weapon_types, "appraise"))) return;
4881. 
4882. 	charge = get_cost(obj, shop_keeper(/* roomno= */*u.ushops)) / 3;
4883. 
4884. 	/* Smooth out the charge a bit */
4885. 	shk_smooth_charge(&charge, 5, 50);
4886. 
4887. 	/* If not identified, complain. */
4888. 	/* KMH -- Why should it matter? */
4889. /*	if ( ! (obj->known && objects[obj->otyp].oc_name_known) )
4890. 	{
4891. 		verbalize("This weapon needs to be identified first!");
4892. 		return;
4893. 	} else */
4894. 	if (shk_class_match(WEAPON_CLASS, shkp) == SHK_MATCH)
4895. 	{
4896. 		verbalize("Ok, %s, let's see what we have here.", slang);
4897. 		guesswork = FALSE;
4898. 	}
4899. 	else
4900. 	{
4901. 		verbalize("Mind you, I'm not an expert in this field.");
4902. 		guesswork = TRUE;
4903. 	}
4904. 
4905. 	/* Go ahead? */
4906. 	if (shk_offer_price(slang, charge, shkp) == FALSE) return;
4907. 
4908. 	/* Shopkeeper deviousness */
4909. 	if (Confusion)
4910. 	{
4911. 		pline("The numbers get all mixed up in your head.");
4912. 		return;
4913. 	}
4914. 	else if (Hallucination)
4915. 	{
4916. 		You("hear %s say it'll \"knock 'em dead\"",
4917. 			mon_nam(shkp));
4918. 		return;
4919. 	}
4920. 
4921. 	/* Convert damage to ascii */
4922. 	Sprintf(ascii_wsdam, "%d", objects[obj->otyp].oc_wsdam);
4923. 	Sprintf(ascii_wldam, "%d", objects[obj->otyp].oc_wldam);
4924. 
4925. 	/* Will shopkeeper be unsure? */
4926. 	if (guesswork)
4927. 	{
4928. 		switch (rn2(10))
4929. 		{
4930. 		    case 1:
4931. 			/* Shkp's an idiot */
4932. 			verbalize("Sorry, %s, but I'm not certain.", slang);
4933. 			break;
4934. 
4935. 		    case 2:
4936. 			/* Not sure about large foes */
4937. 			verbalize(basic_damage, ascii_wsdam, "?");
4938. 			break;
4939. 
4940. 		    case 3:
4941. 			/* Not sure about small foes */
4942. 			verbalize(basic_damage, "?", ascii_wldam);
4943. 			break;
4944. 
4945. 		    default:
4946. 			verbalize(basic_damage, ascii_wsdam, ascii_wldam);
4947. 			break;
4948. 			
4949. 		}
4950. 	}
4951. 	else
4952. 	{
4953. 		verbalize(basic_damage, ascii_wsdam, ascii_wldam);
4954. 	}
4955. }
4956. 
4957. 
4958. /*
4959. ** FUNCTION shk_weapon_works
4960. **
4961. ** Perform ops on weapon for customer
4962. */
4963. static const char we_offer[] = "We offer the finest service available!";
4964. static void
4965. shk_weapon_works(slang, shkp)
4966. char *slang;
4967. struct monst *shkp;
4968. {
4969.     struct obj *obj;
4970.     int charge;
4971.     winid tmpwin;
4972.     anything any;
4973.     menu_item *selected;
4974.     int service;
4975.     int n;
4976. 
4977.     /* Pick weapon */
4978.     if (ESHK(shkp)->services & (SHK_SPECIAL_A | SHK_SPECIAL_B))
4979. 	obj = getobj(weapon_types, "improve");
4980.     else
4981. 	obj = getobj(weapon_types, "poison");
4982.     if (!obj) return;
4983. 
4984.     /* Check if you asked for a non weapon tool to be improved */
4985.     if (obj->oclass == TOOL_CLASS && !is_weptool(obj))
4986. 	pline("%s grins greedily...", mon_nam(shkp));
4987. 
4988.     if (ESHK(shkp)->services & (SHK_SPECIAL_A | SHK_SPECIAL_B)) {
4989. 	any.a_void = 0;         /* zero out all bits */
4990. 	tmpwin = create_nhwindow(NHW_MENU);
4991. 	start_menu(tmpwin);
4992. 
4993. 	if (ESHK(shkp)->services & SHK_SPECIAL_A) {
4994. 	    any.a_int = 1;
4995. 	    add_menu(tmpwin, NO_GLYPH, &any , 'w', 0, ATR_NONE,
4996. 		    "Ward against damage", MENU_UNSELECTED);
4997. 	}
4998. 	if (ESHK(shkp)->services & SHK_SPECIAL_B) {
4999. 	    any.a_int = 2;
5000. 	    add_menu(tmpwin, NO_GLYPH, &any , 'e', 0, ATR_NONE,
5001. 		    "Enchant", MENU_UNSELECTED);
5002. 	}
5003. 
5004. 	/* Can object be poisoned? */
5005. 	if (is_poisonable(obj) && (ESHK(shkp)->services & SHK_SPECIAL_C)) {
5006. 	    any.a_int = 3;
5007. 	    add_menu(tmpwin, NO_GLYPH, &any , 'p', 0, ATR_NONE,
5008. 		    "Poison", MENU_UNSELECTED);
5009. 	}
5010. 
5011. 	end_menu(tmpwin, "Weapon-works:");
5012. 	n = select_menu(tmpwin, PICK_ONE, &selected);
5013. 	destroy_nhwindow(tmpwin);
5014. 	if (n > 0)
5015. 	    service = selected[0].item.a_int;
5016. 	else
5017. 	    service = 0;
5018.     } else
5019. 	service = 3;
5020. 
5021.     /* Here we go */
5022.     if (service > 0)
5023. 	verbalize(we_offer);
5024.     else
5025. 	pline(Never_mind);
5026. 
5027.     switch(service) {
5028. 	case 0:
5029. 	    break;
5030. 
5031. 	case 1:
5032. 	    verbalize("This'll leave your %s untouchable!", xname(obj));
5033. 	    
5034. 	    /* Costs more the more eroded it is (oeroded 0-3 * 2) */
5035. 	    charge = 500 * (obj->oeroded + obj->oeroded2 + 1);
5036. 	    if (obj->oeroded + obj->oeroded2 > 2)
5037. 		verbalize("This thing's in pretty sad condition, %s", slang);
5038. 
5039. 	    /* Another warning if object is naturally rustproof */
5040. 	    if (obj->oerodeproof || !is_damageable(obj))
5041. 		pline("%s gives you a suspciously happy smile...",
5042. 			mon_nam(shkp));
5043. 
5044. 	    /* Artifacts cost more to deal with */
5045. 	    if (obj->oartifact) charge = charge * 3 / 2;
5046. 
5047. 	    /* Smooth out the charge a bit */
5048. 	    shk_smooth_charge(&charge, 200, 1500);
5049. 
5050. 	    if (shk_offer_price(slang, charge, shkp) == FALSE) return;
5051. 
5052. 	    /* Have some fun, but for this $$$ it better work. */
5053. 	    if (Confusion)
5054. 		You("fall over in appreciation");
5055. 	    else if (Hallucination)
5056. 		Your(" - tin roof, un-rusted!");
5057. 
5058. 	    obj->oeroded = obj->oeroded2 = 0;
5059. 	    obj->rknown = TRUE;
5060. 	    obj->oerodeproof = TRUE;
5061. 	    break;
5062. 
5063. 	case 2:
5064. 	    verbalize("Guaranteed not to harm your weapon, or your money back!");
5065. 	    /*
5066. 	    ** The higher the enchantment, the more costly!
5067. 	    ** Gets to the point where you need to rob fort ludios
5068. 	    ** in order to get it to +5!!
5069. 	    */
5070. 	    charge = (obj->spe+1) * (obj->spe+1) * 625;
5071. 
5072. 	    if (obj->spe < 0) charge = 100;
5073. 
5074. 	    /* Artifacts cost more to deal with */
5075. 	    if (obj->oartifact) charge *= 2;
5076. 
5077. 	    /* Smooth out the charge a bit (lower bound only) */
5078. 	    shk_smooth_charge(&charge, 50, NOBOUND);
5079. 
5080. 	    if (shk_offer_price(slang, charge, shkp) == FALSE) return;
5081. 	    if (obj->spe+1 > 5) { 
5082. 		verbalize("I can't enchant this any higher!");
5083. 		charge = 0;
5084. 		break;
5085. 	    }
5086. 	    /* Have some fun! */
5087. 	    if (Confusion)
5088. 		Your("%s unexpectedly!", aobjnam(obj, "vibrate"));
5089. 	    else if (Hallucination)
5090. 		Your("%s to evaporate into thin air!", aobjnam(obj, "seem"));
5091. 	    /* ...No actual vibrating and no evaporating */
5092. 
5093. 	    if (obj->otyp == WORM_TOOTH) {
5094. 		obj->otyp = CRYSKNIFE;
5095. 		Your("weapon seems sharper now.");
5096. 		obj->cursed = 0;
5097. 		break;
5098. 	    }
5099. 
5100. 	    obj->spe++;
5101. 	    break;
5102. 
5103. 	case 3:
5104. 	    verbalize("Just imagine what poisoned %s can do!", xname(obj));
5105. 
5106. 	    charge = 10 * obj->quan;
5107. 
5108. 	    if (shk_offer_price(slang, charge, shkp) == FALSE) return;
5109. 
5110. 	    obj->opoisoned = TRUE;
5111. 	    break;
5112. 
5113. 	default:
5114. 	    impossible("Unknown Weapon Enhancement");
5115. 	    break;
5116.     }
5117. }
5118. 
5119. 
5120. /*
5121. ** FUNCTION shk_armor_works
5122. **
5123. ** Perform ops on armor for customer
5124. */
5125. static void
5126. shk_armor_works(slang, shkp)
5127. 	char *slang;
5128. 	struct monst *shkp;
5129. {
5130. 	struct obj *obj;
5131. 	int charge;
5132. /*WAC - Windowstuff*/
5133. 	winid tmpwin;
5134. 	anything any;
5135. 	menu_item *selected;
5136. 	int n;
5137. 
5138. 	/* Pick armor */
5139. 	if ( !(obj = getobj(armor_types, "improve"))) return;
5140. 
5141. 	/* Here we go */
5142. 	/*WAC - did this using the windowing system...*/
5143. 	any.a_void = 0;         /* zero out all bits */
5144. 	tmpwin = create_nhwindow(NHW_MENU);
5145. 	start_menu(tmpwin);
5146. 	any.a_int = 1;
5147. 	if (ESHK(shkp)->services & (SHK_SPECIAL_A))
5148. 		add_menu(tmpwin, NO_GLYPH, &any , 'r', 0, ATR_NONE, "Rust/Fireproof", MENU_UNSELECTED);
5149. 	any.a_int = 2;
5150. 	if (ESHK(shkp)->services & (SHK_SPECIAL_B))
5151. 		add_menu(tmpwin, NO_GLYPH, &any , 'e', 0, ATR_NONE, "Enchant", MENU_UNSELECTED);
5152. 	end_menu(tmpwin, "Armor-works:");
5153. 	n = select_menu(tmpwin, PICK_ONE, &selected);
5154. 	destroy_nhwindow(tmpwin);
5155. 
5156. 	verbalize(we_offer);
5157. 
5158. 	if (n > 0)
5159. 	switch(selected[0].item.a_int) {
5160. 		case 1:
5161. 		if (!flags.female && is_human(youmonst.data))
5162. 		     verbalize("They'll call you the man of stainless steel!");
5163. 
5164. 		/* Costs more the more rusty it is (oeroded 0-3) */
5165. 		charge = 300 * (obj->oeroded+1);
5166. 		if (obj->oeroded > 2) verbalize("Yikes!  This thing's a mess!");
5167. 
5168. 		/* Artifacts cost more to deal with */
5169. 		/* KMH -- Avoid floating-point */
5170. 		if (obj->oartifact) charge = charge * 3 / 2;
5171. 		
5172. 		/* Smooth out the charge a bit */
5173. 		shk_smooth_charge(&charge, 100, 1000);
5174. 
5175. 		if (shk_offer_price(slang, charge, shkp) == FALSE) return;
5176. 
5177. 		/* Have some fun, but for this $$$ it better work. */
5178. 		if (Confusion)
5179. 			You("forget how to put your %s back on!", xname(obj));
5180. 		else if (Hallucination)
5181. 			You("mistake your %s for a pot and...", xname(obj));
5182. 
5183. 		obj->oeroded = 0;
5184. 		obj->rknown = TRUE;
5185. 		obj->oerodeproof = TRUE;
5186. 		break;
5187. 
5188. 		case 2:
5189. 		verbalize("Nobody will ever hit on you again.");
5190.  
5191. 		/* Higher enchantment levels cost more. */
5192. 		charge = (obj->spe+1) * (obj->spe+1) * 500;
5193. 						
5194. 		if (obj->spe < 0) charge = 100;                
5195. 
5196. 		/* Artifacts cost more to deal with */
5197. 		if (obj->oartifact) charge *= 2;
5198. 		
5199. 		/* Smooth out the charge a bit */
5200. 		shk_smooth_charge(&charge, 50, NOBOUND);
5201. 
5202. 		if (shk_offer_price(slang, charge, shkp) == FALSE) return;
5203. 		if (obj->spe+1 > 3) { 
5204. 			verbalize("I can't enchant this any higher!");
5205. 			charge = 0;
5206. 			break;
5207. 			}
5208. 		 /* Have some fun! */
5209. 		if (Hallucination) Your("%s looks dented.", xname(obj));
5210. 		
5211. 		if (obj->otyp >= GRAY_DRAGON_SCALES &&
5212. 					obj->otyp <= YELLOW_DRAGON_SCALES) {
5213. 			/* dragon scales get turned into dragon scale mail */
5214. 			Your("%s merges and hardens!", xname(obj));
5215. 			setworn((struct obj *)0, W_ARM);
5216. 			/* assumes same order */
5217. 			obj->otyp = GRAY_DRAGON_SCALE_MAIL +
5218. 						obj->otyp - GRAY_DRAGON_SCALES;
5219. 			obj->cursed = 0;
5220. 			obj->known = 1;
5221. 			setworn(obj, W_ARM);
5222. 			break;
5223. 		}
5224. 
5225. 		obj->spe++;
5226. 		adj_abon(obj, 1);
5227. 		break;
5228. 
5229. 	    default:
5230.                 pline ("Unknown Armor Enhancement");
5231.                 break;
5232. 	}
5233. }
5234. 
5235. 
5236. /*
5237. ** FUNCTION shk_charge
5238. **
5239. ** Charge something (for a price!)
5240. */
5241. static NEARDATA const char wand_types[] = { WAND_CLASS, 0 };
5242. static NEARDATA const char tool_types[] = { TOOL_CLASS, 0 };
5243. static NEARDATA const char ring_types[] = { RING_CLASS, 0 };
5244. static NEARDATA const char spbook_types[] = { SPBOOK_CLASS, 0 };
5245. 
5246. static void
5247. shk_charge(slang, shkp)
5248. 	char *slang;
5249. 	struct monst *shkp;
5250. {
5251. 	struct obj *obj = NULL; /* The object picked            */
5252. 	struct obj *tobj;       /* Temp obj                     */
5253. 	char type;              /* Basic/premier service        */
5254. 	int charge;             /* How much to charge customer  */
5255. 	char invlet;            /* Inventory letter             */
5256. 
5257. 	/* What type of shop are we? */
5258. 	if (shk_class_match(WAND_CLASS, shkp) == SHK_MATCH)
5259. 		obj = getobj(wand_types, "charge");
5260. 	else if (shk_class_match(TOOL_CLASS, shkp) == SHK_MATCH)
5261. 		obj = getobj(tool_types, "charge");
5262. 	else if (shk_class_match(RING_CLASS, shkp) == SHK_MATCH)
5263. 		obj = getobj(ring_types, "charge");
5264. 	else if (shk_class_match(SPBOOK_CLASS, shkp) == SHK_MATCH)
5265. 		obj = getobj(spbook_types, "charge");
5266. 	if (!obj) return;
5267. 
5268. 	/*
5269. 	** Wand shops can offer special service!
5270. 	** Extra charges (for a lot of extra money!)
5271. 	*/
5272. 	if (obj->oclass == WAND_CLASS)
5273. 	{
5274. 		/* What type of service? */
5275. 		if ((ESHK(shkp)->services & (SHK_SPECIAL_A|SHK_SPECIAL_B)) ==
5276. 				(SHK_SPECIAL_A|SHK_SPECIAL_B)) {
5277. 			type = yn_function("[B]asic service or [P]remier",
5278. 					ident_chars, '\0');
5279. 			if (type == '\0') return;
5280. 		} else if (ESHK(shkp)->services & SHK_SPECIAL_A) {
5281. 			pline ("I only perform basic charging.");
5282. 			type = 'b';
5283. 		} else if (ESHK(shkp)->services & SHK_SPECIAL_B) {
5284. 			pline ("I only perform complete charging.");
5285. 			type = 'p';
5286. 		}
5287.  	}
5288. 	else
5289. 	{
5290. 		type = 'b';
5291. 	}
5292. 
5293. 	/* Compute charge */
5294. 	if (type == 'b')
5295. 		charge = 300;
5296. 	else
5297. 		charge = 1000;
5298. 
5299. 	/* Wands of wishing should be hard to get recharged */
5300. 	if (/*obj->oclass == WAND_CLASS &&*/ obj->otyp == WAN_WISHING)
5301. 		charge *= 3;
5302. 	else /* Smooth out the charge a bit */
5303. 		shk_smooth_charge(&charge, 100, 1000);
5304. 
5305. 	/* Go for it? */
5306. 	if (shk_offer_price(slang, charge, shkp) == FALSE) return;
5307. 
5308. 	/* Shopkeeper deviousness */
5309. 	if ((Confusion || Hallucination) && !no_cheat)
5310. 	{
5311. 		pline("%s says it's charged and pushes you toward the door",
5312. 			Monnam(shkp));
5313. 		return;
5314. 	}
5315. 
5316. 	/* Do it */
5317. 	invlet = obj->invlet;
5318. 	recharge(obj, (type=='b') ? 0 : 1);
5319. 
5320. 	/*
5321. 	** Did the object blow up?  We need to check this in a way
5322. 	** that has nothing to do with dereferencing the obj pointer.
5323. 	** We saved the inventory letter of this item; now cycle
5324. 	** through all objects and see if there is an object
5325. 	** with that letter.
5326. 	*/
5327. 	for(obj=0, tobj=invent; tobj; tobj=tobj->nobj)
5328. 		if(tobj->invlet == invlet)
5329. 		{
5330. 			obj = tobj;
5331. 			break;
5332. 		}
5333. 	if (!obj)
5334. 	{
5335. 		verbalize("Oops!  Sorry about that...");
5336. 		return;
5337. 	}
5338. 
5339. 	/* Wands get special treatment */
5340. 	if (obj->oclass == WAND_CLASS)
5341. 	{
5342. 		/* Wand of wishing? */
5343. 		if (obj->otyp == WAN_WISHING)
5344. 		{
5345. 			/* Premier gives you ONE more charge */
5346. 			/* KMH -- Okay, but that's pretty generous */
5347. 			if (type == 'p') obj->spe++;
5348. 
5349. 			/* Fun */
5350. 			verbalize("Since you'll have everything you always wanted,");
5351. 			verbalize("...How about loaning me some money?");
5352. #ifndef GOLDOBJ
5353. 			shkp->mgold += u.ugold;
5354. 			u.ugold = 0;
5355. #else
5356. 			money2mon(shkp, money_cnt(invent));
5357. #endif
5358. 			makeknown(obj->otyp);
5359. 			bot();
5360. 		}
5361. 		else
5362. 		{
5363. 			/*
5364. 			** Basic: recharge() will have given 1 charge.
5365. 			** Premier: recharge() will have given 5-10, say.
5366. 			** Add a few more still.
5367. 			*/
5368. 			if (obj->spe < 16) obj->spe += rn1(5,5);
5369. 			else if (obj->spe < 20) obj->spe += 1;
5370. 		}
5371. 	}
5372. }
5373. 
5374. 
5375. /*
5376. ** FUNCTION shk_obj_match
5377. **
5378. ** Does object "obj" match the type of shop?
5379. */
5380. static boolean
5381. shk_obj_match(obj, shkp)
5382. 	struct obj *obj;
5383. 	struct monst *shkp;
5384. {
5385. 	/* object matches type of shop? */
5386. 	return(saleable(shkp, obj));
5387. }
5388. 
5389. 
5390. /*
5391. ** FUNCTION shk_offer_price
5392. **
5393. ** Tell customer how much it'll cost, ask if he wants to pay,
5394. ** and deduct from $$ if agreable.
5395. */
5396. static boolean
5397. shk_offer_price(slang, charge, shkp)
5398. 	char *slang;
5399. 	long charge;
5400. 	struct monst *shkp;
5401. {
5402. 	char sbuf[BUFSZ];
5403. 	long credit = ESHK(shkp)->credit;
5404. 
5405. 	/* Ask y/n if player wants to pay */
5406.         Sprintf(sbuf, "It'll cost you %ld zorkmid%s.  Interested?",
5407. 		charge, plur(charge));
5408. 
5409. 	if ( yn(sbuf) != 'y' ) {
5410. 		verbalize("It's your call, %s.", slang);
5411. 		return(FALSE);
5412. 	}
5413. 
5414. 	/* Player _wants_ to pay, but can he? */
5415. 	/* WAC -- Check the credit:  but don't use check_credit
5416. 	 * since we don't want to charge him for part of it if he can't pay for all 
5417. 	 * of it 
5418. 	 */
5419. #ifndef GOLDOBJ
5420. 	if (charge > (u.ugold + credit)) {
5421. #else
5422. 	if (charge > (money_cnt(invent) + credit)) {  
5423. #endif
5424. 		verbalize("Cash on the spot, %s, and you ain't got the dough!",
5425. 			slang);
5426. 		return(FALSE);
5427. 	}
5428. 
5429. 	/* Charge the customer */
5430. 	charge = check_credit (charge, shkp); /* Deduct the credit first */
5431. 
5432. #ifndef GOLDOBJ
5433. 	u.ugold -= charge;
5434. 	shkp->mgold += charge;
5435. #else
5436. 	money2mon(shkp, charge);
5437. #endif
5438. 	bot();
5439. 
5440. 	return(TRUE);
5441. }
5442. 
5443. 
5444. /*
5445. ** FUNCTION shk_smooth_charge
5446. **
5447. ** Smooth out the lower/upper bounds on the price to get something
5448. ** done.  Make sure that it (1) varies depending on charisma and
5449. ** (2) is constant.
5450. */
5451. static void
5452. shk_smooth_charge(pcharge, lower, upper)
5453. 	int *pcharge;
5454. 	int lower;
5455. 	int upper;
5456. {
5457. 	int charisma;
5458. 	int bonus;
5459. 
5460. 	/* KMH -- Avoid using floating-point arithmetic */
5461. 	     if(ACURR(A_CHA) > 21) *pcharge *= 11;
5462. 	else if(ACURR(A_CHA) > 18) *pcharge *= 12;
5463. 	else if(ACURR(A_CHA) > 15) *pcharge *= 13;
5464. 	else if(ACURR(A_CHA) > 12) *pcharge *= 14;
5465. 	else if(ACURR(A_CHA) > 10) *pcharge *= 15;
5466. 	else if(ACURR(A_CHA) > 8)  *pcharge *= 16;
5467. 	else if(ACURR(A_CHA) > 7)  *pcharge *= 17;
5468. 	else if(ACURR(A_CHA) > 6)  *pcharge *= 18;
5469. 	else if(ACURR(A_CHA) > 5)  *pcharge *= 19;
5470. 	else if(ACURR(A_CHA) > 4)  *pcharge *= 20;
5471. 	else *pcharge *= 21;
5472. 	*pcharge /= 10;
5473. 
5474. #ifdef BLACKMARKET
5475. 	if (Is_blackmarket(&u.uz)) *pcharge *= 3;
5476. #endif
5477. 	/* Skip upper stuff? */
5478. 	if (upper == NOBOUND) goto check_lower;
5479. 
5480. 	/* This should give us something like a charisma of 5 to 25. */
5481. 	charisma = ABASE(A_CHA) + ABON(A_CHA) + ATEMP(A_CHA);        
5482. 
5483. 	/* Now: 0 to 10 = 0.  11 and up = 1 to whatever. */
5484. 	if (charisma <= 10)
5485. 		charisma = 0;
5486. 	else
5487. 		charisma -= 10;
5488. 
5489. 	/* Charismatic players get smaller upper bounds */
5490. 	bonus=((upper/50)*charisma);
5491. 
5492. 	/* Adjust upper.  Upper > lower! */
5493. 	upper -= bonus;
5494. 	upper = (upper>=lower) ? upper : lower;
5495. 
5496. 	/* Ok, do the min/max stuff */
5497. 	if (*pcharge > upper) *pcharge=upper;
5498. check_lower:
5499. 	if (*pcharge < lower) *pcharge=lower;
5500. }
5501. 
5502. #endif /* OTHER_SERVICES */
5503. 
5504. 
5505. #endif /* OVLB */
5506. 
5507. #ifdef DEBUG
5508. int
5509. wiz_debug_cmd()	/* in this case, display your bill(s) */
5510. {
5511.     int win, special = 0;
5512.     struct obj *obj;
5513.     struct monst *shkp, *ushkp;
5514.     struct bill_x *bp;
5515.     int ct;
5516.     char buf[BUFSIZ];
5517.     char buf2[BUFSIZ];
5518. 
5519.     win = create_nhwindow(NHW_MENU);
5520.     ushkp = shop_keeper(*u.ushops);
5521.     shkp = next_shkp(fmon, TRUE);
5522.     if (!shkp) {
5523. 	shkp = ushkp;
5524. 	special++;
5525.     }
5526.     if (!shkp)
5527. 	putstr(win, 0, "No shopkeepers with bills");
5528.     else
5529. 	for (; shkp; ) {
5530. 	    bp = ESHK(shkp)->bill_p;
5531. 	    ct = ESHK(shkp)->billct;
5532. 	    if (ct) {
5533. 		Sprintf(buf, "Your bill with %s", noit_mon_nam(shkp));
5534. 		if (shkp == ushkp) {
5535. 		    Strcat(buf, " (here)");
5536. 		    ushkp = NULL;
5537. 		}
5538. 		Strcat(buf, ":");
5539. 		putstr(win, 0, buf);
5540. 		putstr(win, 0, "Price   Quan    Used?   Object");
5541. 		while (--ct >= 0) {
5542. 		    obj = bp_to_obj(bp);
5543. 		    if (obj) {
5544. 			if (!obj->unpaid)
5545. 			    *buf2='*';		/* Bad entry */
5546. 			Strcpy(obj->unpaid ? buf2 : buf2 + 1, xname(obj));
5547. 		    }
5548. 		    else
5549. 			Sprintf(buf2, "Unknown, with ID %d", bp->bo_id);
5550. 		    Sprintf(buf, "%-7d %-7d %-7s %s", bp->price, bp->bquan,
5551. 		      bp->useup ? "Yes" : "No", buf2);
5552. 		    putstr(win, 0, buf);
5553. 		    bp++;
5554. 		}
5555. 	    }
5556. 	    else {
5557. 		Sprintf(buf, "You do not owe %s anything.", noit_mon_nam(shkp));
5558. 		putstr(win, 0, buf);
5559. 	    }
5560. 	    if (special)
5561. 		break;
5562. 	    shkp = next_shkp(shkp->nmon, TRUE);
5563. 	    if (!shkp) {
5564. 		shkp = ushkp;
5565. 		special++;
5566. 	    }
5567. 	    if (shkp)
5568. 		putstr(win, 0, "");
5569. 	}
5570.     display_nhwindow(win, FALSE);
5571.     destroy_nhwindow(win);
5572.     return 0;
5573. }
5574. #endif	/* DEBUG */
5575. 
5576. /*shk.c*/