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