Source:NetHack 2.3e/shk.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to shk.c from the source code of NetHack 2.3e.

Warning! This is the source code from an old release. For newer releases, see Source code

Screenshots and source code from Hack are used under the CWI license.

1.    /*	SCCS Id: @(#)shk.c	2.3	88/01/24
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    
4.    #include "hack.h"
5.    #ifdef QUEST
6.    int shlevel = 0;
7.    struct monst *mkmon_at(), *shopkeeper = 0;
8.    struct	obj	*billobjs = 0;
9.    obfree(obj,merge) register struct obj *obj, *merge; {
10.   	free((char *) obj);
11.   }
12.   inshop(){ return(0); }
13.   addtobill(){}
14.   subfrombill(){}
15.   splitbill(){}
16.   dopay(){ return(0); }
17.   paybill(){}
18.   doinvbill(){ return(0); }
19.   shkdead(){}
20.   shkcatch(){ return(0); }
21.   shk_move(){ return(0); }
22.   replshk(mtmp,mtmp2) struct monst *mtmp, *mtmp2; {}
23.   char *shkname(){ return(""); }
24.   
25.   #else
26.   #include	"mfndpos.h"
27.   #include	"mkroom.h"
28.   #include	"eshk.h"
29.   
30.   #define	ESHK(mon)	((struct eshk *)(&(mon->mextra[0])))
31.   #define	NOTANGRY(mon)	mon->mpeaceful
32.   #define	ANGRY(mon)	!NOTANGRY(mon)
33.   
34.   extern char plname[], *xname();
35.   extern struct monst *makemon();
36.   extern struct obj *o_on(), *bp_to_obj(),
37.   		  *carrying();
38.   
39.   /* Descriptor of current shopkeeper. Note that the bill need not be
40.      per-shopkeeper, since it is valid only when in a shop. */
41.   static struct monst *shopkeeper = 0;
42.   static struct bill_x *bill;
43.   static int shlevel = 0;	/* level of this shopkeeper */
44.          struct obj *billobjs;	/* objects on bill with bp->useup */
45.   				/* only accessed here and by save & restore */
46.   static long int total;		/* filled by addupbill() */
47.   static long int followmsg;	/* last time of follow message */
48.   static setpaid(), findshk(), dopayobj(), getprice(), realhunger();
49.   
50.   /*
51.   	invariants: obj->unpaid iff onbill(obj) [unless bp->useup]
52.   		obj->quan <= bp->bquan
53.    */
54.   
55.   char *
56.   shkname(mtmp)				/* called in do_name.c */
57.   register struct monst *mtmp;
58.   {
59.   	return(ESHK(mtmp)->shknam);
60.   }
61.   
62.   shkdead(mtmp)				/* called in mon.c */
63.   register struct monst *mtmp;
64.   {
65.   	register struct eshk *eshk = ESHK(mtmp);
66.   
67.   	if(eshk->shoplevel == dlevel)
68.   		rooms[eshk->shoproom].rtype = OROOM;
69.   	if(mtmp == shopkeeper) {
70.   		setpaid();
71.   		shopkeeper = 0;
72.   		bill = (struct bill_x *) -1000;	/* dump core when referenced */
73.   	}
74.   }
75.   
76.   replshk(mtmp,mtmp2)
77.   register struct monst *mtmp, *mtmp2;
78.   {
79.   	if(mtmp == shopkeeper) {
80.   		shopkeeper = mtmp2;
81.   		bill = &(ESHK(shopkeeper)->bill[0]);
82.   	}
83.   }
84.   
85.   static
86.   setpaid(){	/* caller has checked that shopkeeper exists */
87.   		/* either we paid or left the shop or he just died */
88.   register struct obj *obj;
89.   register struct monst *mtmp;
90.   	for(obj = invent; obj; obj = obj->nobj)
91.   		obj->unpaid = 0;
92.   	for(obj = fobj; obj; obj = obj->nobj)
93.   		obj->unpaid = 0;
94.   	for(obj = fcobj; obj; obj = obj->nobj)
95.   		obj->unpaid = 0;
96.   	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
97.   		for(obj = mtmp->minvent; obj; obj = obj->nobj)
98.   			obj->unpaid = 0;
99.   	for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon)
100.  		for(obj = mtmp->minvent; obj; obj = obj->nobj)
101.  			obj->unpaid = 0;
102.  	while(obj = billobjs){
103.  		billobjs = obj->nobj;
104.  		free((char *) obj);
105.  	}
106.  	ESHK(shopkeeper)->billct = 0;
107.  }
108.  
109.  static
110.  addupbill(){	/* delivers result in total */
111.  		/* caller has checked that shopkeeper exists */
112.  register ct = ESHK(shopkeeper)->billct;
113.  register struct bill_x *bp = bill;
114.  	total = 0;
115.  	while(ct--){
116.  		total += bp->price * bp->bquan;
117.  		bp++;
118.  	}
119.  }
120.  
121.  inshop(){
122.  register roomno = inroom(u.ux,u.uy);
123.  
124.  	/* Did we just leave a shop? */
125.  	if(u.uinshop &&
126.  	    (u.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) {
127.  
128.  	/* This is part of the bugfix for shopkeepers not having their
129.  	 * bill paid.  As reported by ab@unido -dgk
130.  	 * I made this standard due to the KOPS code below. -mrs 
131.  	 */
132.  		if(shopkeeper) {
133.  		    if(ESHK(shopkeeper)->billct) {
134.  			if(inroom(shopkeeper->mx, shopkeeper->my) 
135.  			    == u.uinshop - 1)	/* ab@unido */
136.  			    pline("Somehow you escaped the shop without paying!");
137.  			addupbill();
138.  			pline("You stole for a total worth of %ld zorkmids.",
139.  				total);
140.  			ESHK(shopkeeper)->robbed += total;
141.  			setpaid();
142.  			if((rooms[ESHK(shopkeeper)->shoproom].rtype == SHOPBASE)
143.  			    == (rn2(3) == 0))
144.  			    ESHK(shopkeeper)->following = 1;
145.  #ifdef KOPS
146.  			{   /* Keystone Kops srt@ucla */
147.  			    coord mm;
148.  			    register int cnt = dlevel + rnd(3);
149.  			    /* Create a swarm near the staircase */
150.  			    pline("An alarm sounds throughout the dungeon!");
151.  			    pline("The Keystone Kops are after you!");
152.  			    mm.x = xdnstair;
153.  			    mm.y = ydnstair;
154.  			    while(cnt--) {
155.  				    (void) enexto(&mm, mm.x, mm.y);
156.  				    (void) mkmon_at('K', mm.x, mm.y);
157.  			    }
158.  			    /* Create a swarm near the shopkeeper */
159.  			    cnt = dlevel + rnd(3);
160.  			    mm.x = shopkeeper->mx;
161.  			    mm.y = shopkeeper->my;
162.  			    while(cnt--) {
163.  				    (void) enexto(&mm, mm.x, mm.y);
164.  				    (void) mkmon_at('K', mm.x, mm.y);
165.  			    }
166.  			}
167.  #endif
168.  		    }
169.  		    shopkeeper = 0;
170.  		    shlevel = 0;
171.  		}
172.  		u.uinshop = 0;
173.  	}
174.  
175.  	/* Did we just enter a zoo of some kind? */
176.  	if(roomno >= 0) {
177.  		register int rt = rooms[roomno].rtype;
178.  		register struct monst *mtmp;
179.  		if(rt == ZOO) {
180.  			pline("Welcome to David's treasure zoo!");
181.  		} else
182.  		if(rt == SWAMP) {
183.  			pline("It looks rather muddy down here.");
184.  		} else
185.  		if(rt == COURT) {
186.  			pline("You are in an opulent throne room!");
187.  		} else
188.  		if(rt == MORGUE) {
189.  			if(midnight())
190.  				pline("Go away! Go away!");
191.  			else
192.  				pline("You get an uncanny feeling ...");
193.  		} else
194.  			rt = 0;
195.  		if(rt != 0) {
196.  			rooms[roomno].rtype = OROOM;
197.  			for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
198.  				if(rt != ZOO || !rn2(3))
199.  					mtmp->msleep = 0;
200.  		}
201.  	}
202.  
203.  	/* Did we just enter a shop? */
204.  	if(roomno >= 0 && rooms[roomno].rtype >= SHOPBASE) {
205.  	    register int rt = rooms[roomno].rtype;
206.  
207.  	    if(shlevel != dlevel || !shopkeeper
208.  				 || ESHK(shopkeeper)->shoproom != roomno)
209.  		findshk(roomno);
210.  	    if(!shopkeeper) {
211.  		rooms[roomno].rtype = OROOM;
212.  		u.uinshop = 0;
213.  	    } else if(!u.uinshop){
214.  		if(!ESHK(shopkeeper)->visitct ||
215.  		    strncmp(ESHK(shopkeeper)->customer, plname, PL_NSIZ)){
216.  
217.  		    /* He seems to be new here */
218.  		    ESHK(shopkeeper)->visitct = 0;
219.  		    ESHK(shopkeeper)->following = 0;
220.  		    (void) strncpy(ESHK(shopkeeper)->customer,plname,PL_NSIZ);
221.  		    NOTANGRY(shopkeeper) = 1;
222.  		}
223.  		if(!ESHK(shopkeeper)->following) {
224.  		    boolean box, pick;
225.  
226.  		    pline("Hello %s%s! Welcome%s to %s's %s!",
227.  			(Badged) ? "Officer " : "", plname,
228.  			ESHK(shopkeeper)->visitct++ ? " again" : "",
229.  			shkname(shopkeeper),
230.  			shtypes[rt - SHOPBASE].name);
231.  /*			shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype - SHOPBASE].name);
232.  */
233.  		    box = carrying(ICE_BOX) != (struct obj *)0;
234.  		    pick = carrying(PICK_AXE) != (struct obj *)0;
235.  		    if(box || pick) {
236.  			if(dochug(shopkeeper)) {
237.  				u.uinshop = 0;	/* he died moving */
238.  				return(0);
239.  			}
240.  			pline("Will you please leave your %s outside?",
241.  			    (box && pick) ? "box and pick-axe" :
242.  			    box ? "box" : "pick-axe");
243.  		    }
244.  		}
245.  		u.uinshop = roomno + 1;
246.  	    }
247.  	}
248.  	return(u.uinshop);
249.  }
250.  
251.  static
252.  findshk(roomno)
253.  register roomno;
254.  {
255.  register struct monst *mtmp;
256.  	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
257.  	    if(mtmp->isshk && ESHK(mtmp)->shoproom == roomno
258.  			   && ESHK(mtmp)->shoplevel == dlevel) {
259.  		shopkeeper = mtmp;
260.  		bill = &(ESHK(shopkeeper)->bill[0]);
261.  		shlevel = dlevel;
262.  		if(ANGRY(shopkeeper) &&
263.  		   strncmp(ESHK(shopkeeper)->customer,plname,PL_NSIZ))
264.  			NOTANGRY(shopkeeper) = 1;
265.  		/* billobjs = 0; -- this is wrong if we save in a shop */
266.  		/* (and it is harmless to have too many things in billobjs) */
267.  		return;
268.  	}
269.  	shopkeeper = 0;
270.  	shlevel = 0;
271.  	bill = (struct bill_x *) -1000;	/* dump core when referenced */
272.  }
273.  
274.  static struct bill_x *
275.  onbill(obj) register struct obj *obj; {
276.  register struct bill_x *bp;
277.  	if(!shopkeeper) return(0);
278.  	for(bp = bill; bp < &bill[ESHK(shopkeeper)->billct]; bp++)
279.  		if(bp->bo_id == obj->o_id) {
280.  			if(!obj->unpaid) pline("onbill: paid obj on bill?");
281.  			return(bp);
282.  		}
283.  	if(obj->unpaid) pline("onbill: unpaid obj not on bill?");
284.  	return(0);
285.  }
286.  
287.  /* called with two args on merge */
288.  obfree(obj,merge) register struct obj *obj, *merge; {
289.  register struct bill_x *bp = onbill(obj);
290.  register struct bill_x *bpm;
291.  	if(bp) {
292.  		if(!merge){
293.  			bp->useup = 1;
294.  			obj->unpaid = 0;	/* only for doinvbill */
295.  			obj->nobj = billobjs;
296.  			billobjs = obj;
297.  			return;
298.  		}
299.  		bpm = onbill(merge);
300.  		if(!bpm){
301.  			/* this used to be a rename */
302.  			impossible("obfree: not on bill??");
303.  			return;
304.  		} else {
305.  			/* this was a merger */
306.  			bpm->bquan += bp->bquan;
307.  			ESHK(shopkeeper)->billct--;
308.  			*bp = bill[ESHK(shopkeeper)->billct];
309.  		}
310.  	}
311.  	free((char *) obj);
312.  }
313.  
314.  static
315.  pay(tmp,shkp)
316.  long tmp;
317.  register struct monst *shkp;
318.  {
319.  	long robbed = ESHK(shkp)->robbed;
320.  
321.  	u.ugold -= tmp;
322.  	shkp->mgold += tmp;
323.  	flags.botl = 1;
324.  	if(robbed) {
325.  		robbed -= tmp;
326.  		if(robbed < 0) robbed = 0;
327.  		ESHK(shkp)->robbed = robbed;
328.  	}
329.  }
330.  
331.  dopay(){
332.  long ltmp;
333.  register struct bill_x *bp;
334.  register struct monst *shkp;
335.  int pass, tmp;
336.  
337.  	multi = 0;
338.  	(void) inshop();
339.  	for(shkp = fmon; shkp; shkp = shkp->nmon)
340.  		if(shkp->isshk && dist(shkp->mx,shkp->my) < 3)
341.  			break;
342.  	if(!shkp && u.uinshop &&
343.  	   inroom(shopkeeper->mx,shopkeeper->my) == ESHK(shopkeeper)->shoproom)
344.  		shkp = shopkeeper;
345.  
346.  	if(!shkp) {
347.  		pline("There is nobody here to receive your payment.");
348.  		return(0);
349.  	}
350.  	ltmp = ESHK(shkp)->robbed;
351.  	if(shkp != shopkeeper && NOTANGRY(shkp)) {
352.  		if(!ltmp) {
353.  			pline("You do not owe %s anything.", monnam(shkp));
354.  		} else
355.  		if(!u.ugold) {
356.  			pline("You have no money.");
357.  		} else {
358.  		    long ugold = u.ugold;
359.  
360.  		    if(u.ugold > ltmp) {
361.  			pline("You give %s the %ld gold pieces %s asked for.",
362.  			monnam(shkp), ltmp, index("@CGHKLOQTVWZ&ehimt", shkp->data->mlet)
363.  			? "he" : (index("nN", shkp->data->mlet) ? "she" : "it"));
364.  			pay(ltmp, shkp);
365.  		    } else {
366.  			pline("You give %s all your gold.", monnam(shkp));
367.  			pay(u.ugold, shkp);
368.  		    }
369.  		    if(ugold < ltmp/2) {
370.  			pline("Unfortunately, %s doesn't look satisfied.",
371.  			index("@CGHKLOQTVWZ&ehimt", shkp->data->mlet)
372.  			? "he" : (index("nN", shkp->data->mlet) ? "she" : "it"));
373.  		    } else {
374.  			ESHK(shkp)->robbed = 0;
375.  			ESHK(shkp)->following = 0;
376.  			if(ESHK(shkp)->shoplevel != dlevel) {
377.  			/* For convenience's sake, let him disappear */
378.  			    shkp->minvent = 0;		/* %% */
379.  			    shkp->mgold = 0;
380.  			    mondead(shkp);
381.  			}
382.  		    }
383.  		}
384.  		return(1);
385.  	}
386.  		
387.  	if(!ESHK(shkp)->billct){
388.  		pline("You do not owe %s anything.", monnam(shkp));
389.  		if(!u.ugold){
390.  			pline("Moreover, you have no money.");
391.  			return(1);
392.  		}
393.  		if(ESHK(shkp)->robbed){
394.  			pline("But since %s shop has been robbed recently,",
395.  			index("@CGHKLOQTVWZ&ehimt", shkp->data->mlet)
396.  			? "his" : (index("nN", shkp->data->mlet) ? "her" : "its"));
397.  		    pline("you %srepay %s's expenses.",
398.  		      (u.ugold < ESHK(shkp)->robbed) ? "partially " : "",
399.  		      monnam(shkp));
400.  		    pay(min(u.ugold, ESHK(shkp)->robbed), shkp);
401.  		    ESHK(shkp)->robbed = 0;
402.  		    return(1);
403.  		}
404.  		if(ANGRY(shkp)){
405.  			pline("But in order to appease %s,",
406.  				amonnam(shkp, "angry"));
407.  			if(u.ugold >= 1000){
408.  				ltmp = 1000;
409.  				pline(" you give %s 1000 gold pieces.",
410.  				index("@CGHKLOQTVWZ&ehimt", shkp->data->mlet)
411.  				? "him" : (index("nN", shkp->data->mlet) ? "her" : "it"));
412.  			} else {
413.  				ltmp = u.ugold;
414.  				pline(" you give %s all your money.",
415.  				index("@CGHKLOQTVWZ&ehimt", shkp->data->mlet)
416.  				? "him" : (index("nN", shkp->data->mlet) ? "her" : "it"));
417.  			}
418.  			pay(ltmp, shkp);
419.  			if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)
420.  			   || rn2(3)){
421.  				pline("%s calms down.", Monnam(shkp));
422.  				NOTANGRY(shkp) = 1;
423.  			} else	pline("%s is as angry as ever.",
424.  					Monnam(shkp));
425.  		}
426.  		return(1);
427.  	}
428.  	if(shkp != shopkeeper) {
429.  		impossible("dopay: not to shopkeeper?");
430.  		if(shopkeeper) setpaid();
431.  		return(0);
432.  	}
433.  	for(pass = 0; pass <= 1; pass++) {
434.  		tmp = 0;
435.  		while(tmp < ESHK(shopkeeper)->billct) {
436.  			bp = &bill[tmp];
437.  			if(!pass && !bp->useup) {
438.  				tmp++;
439.  				continue;
440.  			}
441.  			if(!dopayobj(bp)) return(1);
442.  #ifdef MSDOS
443.  			*bp = bill[--ESHK(shopkeeper)->billct];
444.  #else
445.  			bill[tmp] = bill[--ESHK(shopkeeper)->billct];
446.  #endif /* MSDOS /**/
447.  		}
448.  	}
449.  	pline("Thank you for shopping in %s's %s!",
450.  		shkname(shopkeeper),
451.  		shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype - SHOPBASE].name);
452.  	NOTANGRY(shopkeeper) = 1;
453.  	return(1);
454.  }
455.  
456.  /* return 1 if paid successfully */
457.  /*        0 if not enough money */
458.  /*       -1 if object could not be found (but was paid) */
459.  static
460.  dopayobj(bp) register struct bill_x *bp; {
461.  register struct obj *obj;
462.  long ltmp;
463.  
464.  	/* find the object on one of the lists */
465.  	obj = bp_to_obj(bp);
466.  
467.  	if(!obj) {
468.  		impossible("Shopkeeper administration out of order.");
469.  		setpaid();	/* be nice to the player */
470.  		return(0);
471.  	}
472.  
473.  	if(!obj->unpaid && !bp->useup){
474.  		impossible("Paid object on bill??");
475.  		return(1);
476.  	}
477.  	obj->unpaid = 0;
478.  	ltmp = bp->price * bp->bquan;
479.  	if(ANGRY(shopkeeper)) ltmp += ltmp/3;
480.  	if(u.ugold < ltmp){
481.  		pline("You don't have gold enough to pay %s.",
482.  			doname(obj));
483.  		obj->unpaid = 1;
484.  		return(0);
485.  	}
486.  	pay(ltmp, shopkeeper);
487.  	pline("You bought %s for %ld gold piece%s.",
488.  		doname(obj), ltmp, plur(ltmp));
489.  	if(bp->useup) {
490.  		register struct obj *otmp = billobjs;
491.  		if(obj == billobjs)
492.  			billobjs = obj->nobj;
493.  		else {
494.  			while(otmp && otmp->nobj != obj) otmp = otmp->nobj;
495.  			if(otmp) otmp->nobj = obj->nobj;
496.  			else pline("Error in shopkeeper administration.");
497.  		}
498.  		free((char *) obj);
499.  	}
500.  	return(1);
501.  }
502.  
503.  /* routine called after dying (or quitting) with nonempty bill */
504.  paybill(){
505.  	if(shlevel == dlevel && shopkeeper && ESHK(shopkeeper)->billct){
506.  		addupbill();
507.  		if(total > u.ugold){
508.  			shopkeeper->mgold += u.ugold;
509.  			u.ugold = 0;
510.  		pline("%s comes and takes all your possessions.",
511.  			Monnam(shopkeeper));
512.  		} else {
513.  			u.ugold -= total;
514.  			shopkeeper->mgold += total;
515.  	pline("%s comes and takes the %ld zorkmids you owed him.",
516.  		Monnam(shopkeeper), total);
517.  		}
518.  		setpaid();	/* in case we create bones */
519.  	}
520.  }
521.  
522.  /* find obj on one of the lists */
523.  struct obj *
524.  bp_to_obj(bp)
525.  register struct bill_x *bp;
526.  {
527.  	register struct obj *obj;
528.  	register struct monst *mtmp;
529.  	register unsigned id = bp->bo_id;
530.  
531.  	if(bp->useup)
532.  		obj = o_on(id, billobjs);
533.  	else if(!(obj = o_on(id, invent)) &&
534.  		!(obj = o_on(id, fobj)) &&
535.  		!(obj = o_on(id, fcobj))) {
536.  		    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
537.  			if(obj = o_on(id, mtmp->minvent))
538.  			    break;
539.  		    for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon)
540.  			if(obj = o_on(id, mtmp->minvent))
541.  			    break;
542.  		}
543.  	return(obj);
544.  }
545.  
546.  /* called in hack.c when we pickup an object */
547.  addtobill(obj) register struct obj *obj; {
548.  register struct bill_x *bp;
549.  char	buf[40];
550.  extern char *typename();
551.  	if(!inshop() ||
552.  	(u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) ||
553.  	(u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y) ||
554.  		onbill(obj) /* perhaps we threw it away earlier */
555.  	  ) return;
556.  	if(ESHK(shopkeeper)->billct == BILLSZ){
557.  		pline("You got that for free!");
558.  		return;
559.  	}
560.  #ifdef DGKMOD
561.  	/* To recognize objects the showkeeper is not interested in. -dgk
562.  	 */
563.  	if (obj->no_charge) {
564.  		obj->no_charge = 0;
565.  		return;
566.  	}
567.  #endif
568.  	bp = &bill[ESHK(shopkeeper)->billct];
569.  	bp->bo_id = obj->o_id;
570.  	bp->bquan = obj->quan;
571.  	bp->useup = 0;
572.  	bp->price = getprice(obj);
573.  	strcpy(buf, "For you, ");
574.  	if (ANGRY(shopkeeper)) strcat(buf, "scum ");
575.  	else {
576.  	    switch(rnd(4)
577.  #ifdef HARD
578.  		   + u.udemigod
579.  #endif
580.  				) {
581.  		case 1:	strcat(buf, "good");
582.  			break;
583.  		case 2:	strcat(buf, "honored");
584.  			break;
585.  		case 3:	strcat(buf, "most gracious");
586.  			break;
587.  		case 4:	strcat(buf, "esteemed");
588.  			break;
589.  		case 5:	strcat(buf, "holy");
590.  			break;
591.  	    }
592.  	    if(u.usym != '@') strcat(buf, " creature");
593.  	    else	      strcat(buf, (flags.female) ? " lady" : " sir");
594.  	}
595.  	pline("%s; only %d %s %s.", buf, bp->price,
596.  			(bp->bquan > 1) ? "per" : "for this",
597.  			typename((int)obj->otyp));
598.  
599.  	ESHK(shopkeeper)->billct++;
600.  	obj->unpaid = 1;
601.  }
602.  
603.  splitbill(obj,otmp) register struct obj *obj, *otmp; {
604.  	/* otmp has been split off from obj */
605.  register struct bill_x *bp;
606.  register int tmp;
607.  	bp = onbill(obj);
608.  	if(!bp) {
609.  		impossible("splitbill: not on bill?");
610.  		return;
611.  	}
612.  	if(bp->bquan < otmp->quan) {
613.  		impossible("Negative quantity on bill??");
614.  	}
615.  	if(bp->bquan == otmp->quan) {
616.  		impossible("Zero quantity on bill??");
617.  	}
618.  	bp->bquan -= otmp->quan;
619.  
620.  	/* addtobill(otmp); */
621.  	if(ESHK(shopkeeper)->billct == BILLSZ) otmp->unpaid = 0;
622.  	else {
623.  		tmp = bp->price;
624.  		bp = &bill[ESHK(shopkeeper)->billct];
625.  		bp->bo_id = otmp->o_id;
626.  		bp->bquan = otmp->quan;
627.  		bp->useup = 0;
628.  		bp->price = tmp;
629.  		ESHK(shopkeeper)->billct++;
630.  	}
631.  }
632.  
633.  subfrombill(obj) register struct obj *obj; {
634.  long ltmp;
635.  register int tmp;
636.  register struct obj *otmp;
637.  register struct bill_x *bp;
638.  	if(!inshop() || (u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) ||
639.  		(u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y))
640.  		return;
641.  	if((bp = onbill(obj)) != 0){
642.  		obj->unpaid = 0;
643.  		if(bp->bquan > obj->quan){
644.  			otmp = newobj(0);
645.  			*otmp = *obj;
646.  			bp->bo_id = otmp->o_id = flags.ident++;
647.  			otmp->quan = (bp->bquan -= obj->quan);
648.  			otmp->owt = 0;	/* superfluous */
649.  			otmp->onamelth = 0;
650.  			bp->useup = 1;
651.  			otmp->nobj = billobjs;
652.  			billobjs = otmp;
653.  			return;
654.  		}
655.  		ESHK(shopkeeper)->billct--;
656.  		*bp = bill[ESHK(shopkeeper)->billct];
657.  		return;
658.  	}
659.  	if(obj->unpaid){
660.  		pline("%s didn't notice.", Monnam(shopkeeper));
661.  		obj->unpaid = 0;
662.  		return;		/* %% */
663.  	}
664.  	/* he dropped something of his own - probably wants to sell it */
665.  	if(shopkeeper->msleep || shopkeeper->mfroz ||
666.  		inroom(shopkeeper->mx,shopkeeper->my) != ESHK(shopkeeper)->shoproom)
667.  		return;
668.  	if(ESHK(shopkeeper)->billct == BILLSZ
669.  	   || !saleable(rooms[ESHK(shopkeeper)->shoproom].rtype-SHOPBASE, obj)
670.  /*
671.  	  ((tmp = shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype-SHOPBASE].symb) && tmp != obj->olet)
672.  */
673.  	   || index("_0", obj->olet)) {
674.  		pline("%s seems not interested.", Monnam(shopkeeper));
675.  #ifdef DGKMOD
676.  		obj->no_charge = 1;
677.  #endif
678.  		return;
679.  	}
680.  	ltmp = getprice(obj) * obj->quan;
681.  	if(ANGRY(shopkeeper)) {
682.  		ltmp /= 3;
683.  		NOTANGRY(shopkeeper) = 1;
684.  	} else	ltmp /= 2;
685.  	if(ESHK(shopkeeper)->robbed){
686.  		if((ESHK(shopkeeper)->robbed -= ltmp) < 0)
687.  			ESHK(shopkeeper)->robbed = 0;
688.  pline("Thank you for your contribution to restock this recently plundered shop.");
689.  		return;
690.  	}
691.  	if(ltmp > shopkeeper->mgold)
692.  		ltmp = shopkeeper->mgold;
693.  	pay(-ltmp, shopkeeper);
694.  	if(!ltmp) {
695.  		pline("%s gladly accepts %s but cannot pay you at present.",
696.  			Monnam(shopkeeper), doname(obj));
697.  #ifdef DGKMOD
698.  			obj->no_charge = 1;
699.  #endif
700.  	} else
701.  	pline("You sold %s and got %ld gold piece%s.", doname(obj), ltmp,
702.  		plur(ltmp));
703.  }
704.  
705.  doinvbill(mode)
706.  int mode;		/* 0: deliver count 1: paged */
707.  {
708.  	register struct bill_x *bp;
709.  	register struct obj *obj;
710.  	long totused, thisused;
711.  	char buf[BUFSZ];
712.  
713.  	if(mode == 0) {
714.  	    register int cnt = 0;
715.  
716.  	    if(shopkeeper)
717.  		for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++)
718.  		    if(bp->useup ||
719.  		      ((obj = bp_to_obj(bp)) && obj->quan < bp->bquan))
720.  			cnt++;
721.  	    return(cnt);
722.  	}
723.  
724.  	if(!shopkeeper) {
725.  		impossible("doinvbill: no shopkeeper?");
726.  		return(0);
727.  	}
728.  
729.  	set_pager(0);
730.  	if(page_line("Unpaid articles already used up:") || page_line(""))
731.  	    goto quit;
732.  
733.  	totused = 0;
734.  	for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++) {
735.  	    obj = bp_to_obj(bp);
736.  	    if(!obj) {
737.  		impossible("Bad shopkeeper administration.");
738.  		goto quit;
739.  	    }
740.  	    if(bp->useup || bp->bquan > obj->quan) {
741.  		register int cnt, oquan, uquan;
742.  
743.  		oquan = obj->quan;
744.  		uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
745.  		thisused = bp->price * uquan;
746.  		totused += thisused;
747.  		obj->quan = uquan;		/* cheat doname */
748.  		(void) sprintf(buf, "x -  %s", doname(obj));
749.  		obj->quan = oquan;		/* restore value */
750.  		for(cnt = 0; buf[cnt]; cnt++);
751.  		while(cnt < 50)
752.  			buf[cnt++] = ' ';
753.  		(void) sprintf(&buf[cnt], " %5ld zorkmids", thisused);
754.  		if(page_line(buf))
755.  			goto quit;
756.  	    }
757.  	}
758.  	(void) sprintf(buf, "Total:%50ld zorkmids", totused);
759.  	if(page_line("") || page_line(buf))
760.  		goto quit;
761.  	set_pager(1);
762.  	return(0);
763.  quit:
764.  	set_pager(2);
765.  	return(0);
766.  }
767.  
768.  static
769.  getprice(obj) register struct obj *obj; {
770.  register int tmp, ac;
771.  	switch(obj->olet){
772.  	case AMULET_SYM:
773.  		tmp = rn1(1500, 3500);
774.  		break;
775.  	case TOOL_SYM:
776.  	    switch(obj->otyp) {
777.  		case EXPENSIVE_CAMERA:	tmp = rn1(400, 200);
778.  					break;
779.  #ifdef MARKER
780.  		case MAGIC_MARKER:	tmp = rn1(100,50);
781.  					break;
782.  #endif
783.  #ifdef WALKIES
784.  		case LEASH:		tmp = rn1(40,20);
785.  					break;
786.  #endif
787.  #ifdef RPH
788.  		case BLINDFOLD:		tmp = rn1(40,20);
789.  					break;
790.  		case MIRROR:		tmp = rn1(80,40);
791.  					break;
792.  #endif
793.  		case STETHOSCOPE:	tmp = rn1(100,80);
794.  					break;
795.  		case CAN_OPENER:	tmp = rn1(50,30);
796.  					break;
797.  		default:		tmp = rn1(20,10);
798.  					break;
799.  	    }
800.  	    break;
801.  	case RING_SYM:
802.  		tmp = rn1(200,100);
803.  		break;
804.  	case WAND_SYM:
805.  		tmp = rn1(300,150);
806.  		break;
807.  	case SCROLL_SYM:
808.  #ifdef MAIL
809.  		if(obj->otyp == SCR_MAIL)
810.  			tmp = rn1(5,5);
811.  		else
812.  #endif
813.  			tmp = rn1(200,100);
814.  		break;
815.  	case POTION_SYM:
816.  		tmp = rn1(200,100);
817.  		break;
818.  #ifdef SPELLS
819.  	case SPBOOK_SYM:
820.  		tmp = rn1(500,500);
821.  		break;
822.  #endif
823.  	case FOOD_SYM:
824.  
825.  		tmp = (2000+objects[obj->otyp].nutrition)/realhunger();
826.  		tmp = rn1((tmp < 10) ? 10 : tmp,
827.  		          objects[obj->otyp].nutrition/20 + 5);
828.  		break;
829.  	case GEM_SYM:
830.  		tmp = rn1(120,60);
831.  		break;
832.  	case ARMOR_SYM:
833.  		ac = ARM_BONUS(obj);
834.  		if(ac <= -10)		/* probably impossible */
835.  			ac = -9;
836.  		tmp = ac*ac+10*rn1(10+ac,10);
837.  		break;
838.  	case WEAPON_SYM:
839.  		if(obj->otyp < BOOMERANG)
840.  			tmp = rn1(4,2);
841.  		else if(obj->otyp == BOOMERANG ||
842.  			obj->otyp == DAGGER ||
843.  			obj->otyp == CLUB ||
844.  			obj->otyp == SLING)
845.  			tmp = rn1(50,50);
846.  		else if(obj->otyp == KATANA)
847.  			tmp = rn1(700,800);
848.  		else if(obj->otyp == LONG_SWORD ||
849.  			obj->otyp == TWO_HANDED_SWORD ||
850.  			obj->otyp == BROAD_SWORD)
851.  			tmp = rn1(500,500);
852.  		else	tmp = rn1(150,100);
853.  		break;
854.  	case CHAIN_SYM:
855.  		pline("Strange ..., carrying a chain?");
856.  	case BALL_SYM:
857.  		tmp = 10;
858.  		break;
859.  	default:
860.  		tmp = 10000;
861.  	}
862.  	return(tmp);
863.  }
864.  
865.  static
866.  realhunger(){	/* not completely foolproof */
867.  register tmp = u.uhunger;
868.  register struct obj *otmp = invent;
869.  	while(otmp){
870.  		if(otmp->olet == FOOD_SYM && !otmp->unpaid)
871.  			tmp += objects[otmp->otyp].nutrition;
872.  		otmp = otmp->nobj;
873.  	}
874.  	return((tmp <= 0) ? 1 : tmp);
875.  }
876.  
877.  shkcatch(obj)
878.  register struct obj *obj;
879.  {
880.  	register struct monst *shkp = shopkeeper;
881.  
882.  	if(u.uinshop && shkp && !shkp->mfroz && !shkp->msleep &&
883.  	    u.dx && u.dy &&
884.  	    inroom(u.ux+u.dx, u.uy+u.dy) + 1 == u.uinshop &&
885.  	    shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y &&
886.  	    u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y) {
887.  		pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj));
888.  		obj->nobj = shkp->minvent;
889.  		shkp->minvent = obj;
890.  		return(1);
891.  	}
892.  	return(0);
893.  }
894.  
895.  /*
896.   * shk_move: return 1: he moved  0: he didnt  -1: let m_move do it
897.   */
898.  shk_move(shkp)
899.  register struct monst *shkp;
900.  {
901.  	register struct monst *mtmp;
902.  	register struct permonst *mdat = shkp->data;
903.  	register xchar gx,gy,omx,omy,nx,ny,nix,niy;
904.  	register schar appr,i;
905.  	register int udist;
906.  	int z;
907.  	schar shkroom,chi,chcnt,cnt;
908.  	boolean uondoor, satdoor, avoid, badinv;
909.  	coord poss[9];
910.  	long info[9];
911.  	struct obj *ib = 0;
912.  
913.  	omx = shkp->mx;
914.  	omy = shkp->my;
915.  
916.  	if((udist = dist(omx,omy)) < 3) {
917.  		if(ANGRY(shkp)) {
918.  			(void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
919.  			return(0);
920.  		}
921.  		if(ESHK(shkp)->following) {
922.  			if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)){
923.  			pline("Hello %s%s! I was looking for %s.",
924.  				(Badged) ? "Officer " : "", 
925.  				plname, ESHK(shkp)->customer);
926.  				ESHK(shkp)->following = 0;
927.  				return(0);
928.  			}
929.  			if(!ESHK(shkp)->robbed) {	/* impossible? */
930.  				ESHK(shkp)->following = 0;
931.  				return(0);
932.  			}
933.  			if(moves > followmsg+4) {
934.  				pline("Hello %s%s! Didn't you forget to pay?",
935.  					(Badged) ? "Officer " : "", plname);
936.  				followmsg = moves;
937.  				if (Badged)
938.  				    pline ("You should be upholding the law!");
939.  #ifdef HARD
940.  				if (!rn2((Badged) ? 3 : 5)) {
941.  	    pline ("%s doesn't like customers who don't pay.", Monnam(shkp));
942.  				    NOTANGRY(shkp) = 0;
943.  				}
944.  #endif				    
945.  			}
946.  			if(udist < 2)
947.  				return(0);
948.  		}
949.  	}
950.  
951.  	shkroom = inroom(omx,omy);
952.  	appr = 1;
953.  	gx = ESHK(shkp)->shk.x;
954.  	gy = ESHK(shkp)->shk.y;
955.  	satdoor = (gx == omx && gy == omy);
956.  	if(ESHK(shkp)->following || ((z = holetime()) >= 0 && z*z <= udist)){
957.  		gx = u.ux;
958.  		gy = u.uy;
959.  		if(shkroom < 0 || shkroom != inroom(u.ux,u.uy))
960.  		    if(udist > 4)
961.  			return(-1);	/* leave it to m_move */
962.  	} else if(ANGRY(shkp)) {
963.  		long saveBlind = Blinded;
964.  		long saveBlindf = Blindfolded;
965.  		Blinded = Blindfolded = 0;
966.  		if(shkp->mcansee && !Invis && cansee(omx,omy)) {
967.  			gx = u.ux;
968.  			gy = u.uy;
969.  		}
970.  		Blinded = saveBlind;
971.  		Blindfolded = saveBlindf;
972.  		avoid = FALSE;
973.  	} else {
974.  #define	GDIST(x,y)	((x-gx)*(x-gx)+(y-gy)*(y-gy))
975.  		if(Invis)
976.  		  avoid = FALSE;
977.  		else {
978.  		  uondoor = (u.ux == ESHK(shkp)->shd.x &&
979.  				u.uy == ESHK(shkp)->shd.y);
980.  		  if(uondoor) {
981.  		    if(ESHK(shkp)->billct)
982.  			pline("Hello %s%s! Will you please pay before leaving?",
983.  				(Badged) ? "Officer " : "", plname);
984.  		    badinv = (carrying(PICK_AXE) || carrying(ICE_BOX));
985.  		    if(satdoor && badinv)
986.  			return(0);
987.  		    avoid = !badinv;
988.  		  } else {
989.  		    avoid = (u.uinshop && dist(gx,gy) > 8);
990.  		    badinv = FALSE;
991.  		  }
992.  
993.  		  if(((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid)
994.  			&& GDIST(omx,omy) < 3){
995.  			if(!badinv && !online(omx,omy))
996.  				return(0);
997.  			if(satdoor)
998.  				appr = gx = gy = 0;
999.  		  }
1000. 		}
1001. 	}
1002. 	if(omx == gx && omy == gy)
1003. 		return(0);
1004. 	if(shkp->mconf) {
1005. 		avoid = FALSE;
1006. 		appr = 0;
1007. 	}
1008. 	nix = omx;
1009. 	niy = omy;
1010. 	cnt = mfndpos(shkp,poss,info,ALLOW_SSM);
1011. 	if(avoid && uondoor) {		/* perhaps we cannot avoid him */
1012. 		for(i=0; i<cnt; i++)
1013. 			if(!(info[i] & NOTONL)) goto notonl_ok;
1014. 		avoid = FALSE;
1015. 	notonl_ok:
1016. 		;
1017. 	}
1018. 	chi = -1;
1019. 	chcnt = 0;
1020. 	for(i=0; i<cnt; i++){
1021. 		nx = poss[i].x;
1022. 		ny = poss[i].y;
1023. 		if(levl[nx][ny].typ == ROOM
1024. 		|| shkroom != ESHK(shkp)->shoproom
1025. 		|| ESHK(shkp)->following) {
1026. #ifdef STUPID
1027. 		    /* cater for stupid compilers */
1028. 		    register int zz;
1029. #endif
1030. 		    if(uondoor && (ib = sobj_at(ICE_BOX, nx, ny))) {
1031. 			nix = nx; niy = ny; chi = i; break;
1032. 		    }
1033. 		    if(avoid && (info[i] & NOTONL))
1034. 			continue;
1035. 		    if((!appr && !rn2(++chcnt)) ||
1036. #ifdef STUPID
1037. 			(appr && (zz = GDIST(nix,niy)) && zz > GDIST(nx,ny))
1038. #else
1039. 			(appr && GDIST(nx,ny) < GDIST(nix,niy))
1040. #endif
1041. 			) {
1042. 			    nix = nx;
1043. 			    niy = ny;
1044. 			    chi = i;
1045. 		    }
1046. 		}
1047. 	}
1048. 	if(nix != omx || niy != omy){
1049. 		if(info[chi] & ALLOW_M){
1050. 			mtmp = m_at(nix,niy);
1051. 			if(hitmm(shkp,mtmp) == 1 && rn2(3) &&
1052. 			   hitmm(mtmp,shkp) == 2) return(2);
1053. 			return(0);
1054. 		} else if(info[chi] & ALLOW_U){
1055. 			(void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
1056. 			return(0);
1057. 		}
1058. 		shkp->mx = nix;
1059. 		shkp->my = niy;
1060. 		pmon(shkp);
1061. 		if(ib) {
1062. 			freeobj(ib);
1063. 			mpickobj(shkp, ib);
1064. 		}
1065. 		return(1);
1066. 	}
1067. 	return(0);
1068. }
1069. #endif /* QUEST /**/
1070. 
1071. online(x,y)		/*	New version to speed things up.
1072. 			 *	Compiler dependant, may not always work.
1073. 			 */
1074. 	register xchar x, y;
1075. {
1076. 	return((x-=u.ux) == 0 || (y-=u.uy) == 0 || x == y || (x+=y) == 0);
1077. }
1078. 
1079. /*			Original version, just in case...
1080.  *online(x,y) {
1081.  *	return(x==u.ux || y==u.uy || (x-u.ux)*(x-u.ux) == (y-u.uy)*(y-u.uy));
1082.  *}
1083.  */
1084. 
1085. /* Does this monster follow me downstairs? */
1086. follower(mtmp)
1087. register struct monst *mtmp;
1088. {
1089. 	return( mtmp->mtame || index("1TVWZi&, ", mtmp->data->mlet) ||
1090. 		(mtmp->isshk && ESHK(mtmp)->following) );
1091. }
1092. 
1093. /* He is digging in the shop. */
1094. shopdig(fall)
1095. register int fall;
1096. {
1097.     if(!fall) {
1098. 	if(u.utraptype == TT_PIT)
1099. 	    pline("\"Be careful, sir, or you might fall through the floor.\"");
1100. 	else
1101. 	    pline("\"Please, do not damage the floor here.\"");
1102.     } else if(dist(shopkeeper->mx, shopkeeper->my) < 3) {
1103. 	register struct obj *obj, *obj2;
1104. 
1105. 	pline("%s grabs your backpack!", shkname(shopkeeper));
1106. 	for(obj = invent; obj; obj = obj2) {
1107. 		obj2 = obj->nobj;
1108. 		if(obj->owornmask) continue;
1109. 		freeinv(obj);
1110. 		obj->nobj = shopkeeper->minvent;
1111. 		shopkeeper->minvent = obj;
1112. 		if(obj->unpaid)
1113. 			subfrombill(obj);
1114. 	}
1115.     }
1116. }