home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / misc / 40 / shk2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-07-17  |  12.2 KB  |  505 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2. /* 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. 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 QUEST
  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 obj *o_on(), *bp_to_obj();
  36.  
  37. /* Descriptor of current shopkeeper. Note that the bill need not be
  38.    per-shopkeeper, since it is valid only when in a shop. */
  39. extern struct monst *shopkeeper;
  40. extern struct bill_x *bill;
  41. extern int shlevel;    /* level of this shopkeeper */
  42. extern       struct obj *billobjs;    /* objects on bill with bp->useup */
  43.                 /* only accessed here and by save & restore */
  44. extern long int total;        /* filled by addupbill() */
  45. extern long int followmsg;    /* last time of follow message */
  46.  
  47. /*
  48.     invariants: obj->unpaid iff onbill(obj) [unless bp->useup]
  49.         obj->quan <= bp->bquan
  50.  */
  51.  
  52.  
  53. extern char shtypes[];
  54.  
  55. extern char *shopnam[];
  56.  
  57. extern char * shkname();
  58.  
  59. extern struct bill_x *onbill();
  60. extern struct obj *bp_to_obj();
  61.  
  62. splitbill(obj,otmp) register struct obj *obj, *otmp; {
  63.     /* otmp has been split off from obj */
  64. register struct bill_x *bp;
  65. register int tmp;
  66.     bp = onbill(obj);
  67.     if(!bp) {
  68.         impossible("splitbill: not on bill?");
  69.         return;
  70.     }
  71.     if(bp->bquan < otmp->quan) {
  72.         impossible("Negative quantity on bill??");
  73.     }
  74.     if(bp->bquan == otmp->quan) {
  75.         impossible("Zero quantity on bill??");
  76.     }
  77.     bp->bquan -= otmp->quan;
  78.  
  79.     /* addtobill(otmp); */
  80.     if(ESHK(shopkeeper)->billct == BILLSZ) otmp->unpaid = 0;
  81.     else {
  82.         tmp = bp->price;
  83.         bp = &bill[ESHK(shopkeeper)->billct];
  84.         bp->bo_id = otmp->o_id;
  85.         bp->bquan = otmp->quan;
  86.         bp->useup = 0;
  87.         bp->price = tmp;
  88.         ESHK(shopkeeper)->billct++;
  89.     }
  90. }
  91.  
  92. subfrombill(obj) register struct obj *obj; {
  93. long ltmp;
  94. register int tmp;
  95. register struct obj *otmp;
  96. register struct bill_x *bp;
  97.     if(!inshop() || (u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) ||
  98.         (u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y))
  99.         return;
  100.     if((bp = onbill(obj)) != 0){
  101.         obj->unpaid = 0;
  102.         if(bp->bquan > obj->quan){
  103.             otmp = newobj(0);
  104.             *otmp = *obj;
  105.             bp->bo_id = otmp->o_id = flags.ident++;
  106.             otmp->quan = (bp->bquan -= obj->quan);
  107.             otmp->owt = 0;    /* superfluous */
  108.             otmp->onamelth = 0;
  109.             bp->useup = 1;
  110.             otmp->nobj = billobjs;
  111.             billobjs = otmp;
  112.             return;
  113.         }
  114.         ESHK(shopkeeper)->billct--;
  115.         *bp = bill[ESHK(shopkeeper)->billct];
  116.         return;
  117.     }
  118.     if(obj->unpaid){
  119.         pline("%s didn't notice.", Monnam(shopkeeper));
  120.         obj->unpaid = 0;
  121.         return;        /* %% */
  122.     }
  123.     /* he dropped something of his own - probably wants to sell it */
  124.     if(shopkeeper->msleep || shopkeeper->mfroz ||
  125.         inroom(shopkeeper->mx,shopkeeper->my) != ESHK(shopkeeper)->shoproom)
  126.         return;
  127.     if(ESHK(shopkeeper)->billct == BILLSZ ||
  128.       ((tmp = shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype-8]) && tmp != obj->olet)
  129.       || index("_0", obj->olet)) {
  130.         pline("%s seems not interested.", Monnam(shopkeeper));
  131.         return;
  132.     }
  133.     ltmp = getprice(obj) * obj->quan;
  134.     if(ANGRY(shopkeeper)) {
  135.         ltmp /= 3;
  136.         NOTANGRY(shopkeeper) = 1;
  137.     } else    ltmp /= 2;
  138.     if(ESHK(shopkeeper)->robbed){
  139.         if((ESHK(shopkeeper)->robbed -= ltmp) < 0)
  140.             ESHK(shopkeeper)->robbed = 0;
  141. pline("Thank you for your contribution to restock this recently plundered shop.");
  142.         return;
  143.     }
  144.     if(ltmp > shopkeeper->mgold)
  145.         ltmp = shopkeeper->mgold;
  146.     pay(-ltmp, shopkeeper);
  147.     if(!ltmp)
  148.     pline("%s gladly accepts %s but cannot pay you at present.",
  149.         Monnam(shopkeeper), doname(obj));
  150.     else
  151.     pline("You sold %s and got %ld gold piece%s.", doname(obj), ltmp,
  152.         plur(ltmp));
  153. }
  154.  
  155. doinvbill(mode)
  156. int mode;        /* 0: deliver count 1: paged */
  157. {
  158.     register struct bill_x *bp;
  159.     register struct obj *obj;
  160.     long totused, thisused;
  161.     char buf[BUFSZ];
  162.  
  163.     if(mode == 0) {
  164.         register int cnt = 0;
  165.  
  166.         if(shopkeeper)
  167.         for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++)
  168.             if(bp->useup ||
  169.               ((obj = bp_to_obj(bp)) && obj->quan < bp->bquan))
  170.             cnt++;
  171.         return(cnt);
  172.     }
  173.  
  174.     if(!shopkeeper) {
  175.         impossible("doinvbill: no shopkeeper?");
  176.         return(0);
  177.     }
  178.  
  179.     set_pager(0);
  180.     if(page_line("Unpaid articles already used up:") || page_line(""))
  181.         goto quit;
  182.  
  183.     totused = 0;
  184.     for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++) {
  185.         obj = bp_to_obj(bp);
  186.         if(!obj) {
  187.         impossible("Bad shopkeeper administration.");
  188.         goto quit;
  189.         }
  190.         if(bp->useup || bp->bquan > obj->quan) {
  191.         register int cnt, oquan, uquan;
  192.  
  193.         oquan = obj->quan;
  194.         uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
  195.         thisused = bp->price * uquan;
  196.         totused += thisused;
  197.         obj->quan = uquan;        /* cheat doname */
  198.         (void) sprintf(buf, "x -  %s", doname(obj));
  199.         obj->quan = oquan;        /* restore value */
  200.         for(cnt = 0; buf[cnt]; cnt++);
  201.         while(cnt < 50)
  202.             buf[cnt++] = ' ';
  203.         (void) sprintf(&buf[cnt], " %5ld zorkmids", thisused);
  204.         if(page_line(buf))
  205.             goto quit;
  206.         }
  207.     }
  208.     (void) sprintf(buf, "Total:%50ld zorkmids", totused);
  209.     if(page_line("") || page_line(buf))
  210.         goto quit;
  211.     set_pager(1);
  212.     return(0);
  213. quit:
  214.     set_pager(2);
  215.     return(0);
  216. }
  217.  
  218. getprice(obj) register struct obj *obj; {
  219. register int tmp, ac;
  220.     switch(obj->olet){
  221.     case AMULET_SYM:
  222.         tmp = 10*rnd(500);
  223.         break;
  224.     case TOOL_SYM:
  225.         tmp = 10*rnd((obj->otyp == EXPENSIVE_CAMERA) ? 150 : 30);
  226.         break;
  227.     case RING_SYM:
  228.         tmp = 10*rnd(100);
  229.         break;
  230.     case WAND_SYM:
  231.         tmp = 10*rnd(100);
  232.         break;
  233.     case SCROLL_SYM:
  234.         tmp = 10*rnd(50);
  235. #ifdef MAIL
  236.         if(obj->otyp == SCR_MAIL)
  237.             tmp = rnd(5);
  238. #endif MAIL
  239.         break;
  240.     case POTION_SYM:
  241.         tmp = 10*rnd(50);
  242.         break;
  243.     case FOOD_SYM:
  244.         tmp = 10*rnd(5 + (2000/realhunger()));
  245.         break;
  246.     case GEM_SYM:
  247.         tmp = 10*rnd(20);
  248.         break;
  249.     case ARMOR_SYM:
  250.         ac = ARM_BONUS(obj);
  251.         if(ac <= -10)        /* probably impossible */
  252.             ac = -9;
  253.         tmp = 100 + ac*ac*rnd(10+ac);
  254.         break;
  255.     case WEAPON_SYM:
  256.         if(obj->otyp < BOOMERANG)
  257.             tmp = 5*rnd(10);
  258.         else if(obj->otyp == LONG_SWORD ||
  259.             obj->otyp == TWO_HANDED_SWORD)
  260.             tmp = 10*rnd(150);
  261.         else    tmp = 10*rnd(75);
  262.         break;
  263.     case CHAIN_SYM:
  264.         pline("Strange ..., carrying a chain?");
  265.     case BALL_SYM:
  266.         tmp = 10;
  267.         break;
  268.     default:
  269.         tmp = 10000;
  270.     }
  271.     return(tmp);
  272. }
  273.  
  274. realhunger(){    /* not completely foolproof */
  275. register tmp = u.uhunger;
  276. register struct obj *otmp = invent;
  277.     while(otmp){
  278.         if(otmp->olet == FOOD_SYM && !otmp->unpaid)
  279.             tmp += objects[otmp->otyp].nutrition;
  280.         otmp = otmp->nobj;
  281.     }
  282.     return((tmp <= 0) ? 1 : tmp);
  283. }
  284.  
  285. shkcatch(obj)
  286. register struct obj *obj;
  287. {
  288.     register struct monst *shkp = shopkeeper;
  289.  
  290.     if(u.uinshop && shkp && !shkp->mfroz && !shkp->msleep &&
  291.         u.dx && u.dy &&
  292.         inroom(u.ux+u.dx, u.uy+u.dy) + 1 == u.uinshop &&
  293.         shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y &&
  294.         u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y) {
  295.         pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj));
  296.         obj->nobj = shkp->minvent;
  297.         shkp->minvent = obj;
  298.         return(1);
  299.     }
  300.     return(0);
  301. }
  302.  
  303. /*
  304.  * shk_move: return 1: he moved  0: he didnt  -1: let m_move do it
  305.  */
  306. shk_move(shkp)
  307. register struct monst *shkp;
  308. {
  309.     register struct monst *mtmp;
  310.     register struct permonst *mdat = shkp->data;
  311.     register xchar gx,gy,omx,omy,nx,ny,nix,niy;
  312.     register schar appr,i;
  313.     register int udist;
  314.     int z;
  315.     schar shkroom,chi,chcnt,cnt;
  316.     boolean uondoor, satdoor, avoid, badinv;
  317.     coord poss[9];
  318.     int info[9];
  319.     struct obj *ib = 0;
  320.  
  321.     omx = shkp->mx;
  322.     omy = shkp->my;
  323.  
  324.     if((udist = dist(omx,omy)) < 3) {
  325.         if(ANGRY(shkp)) {
  326.             (void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
  327.             return(0);
  328.         }
  329.         if(ESHK(shkp)->following) {
  330.             if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)){
  331.                 pline("Hello %s! I was looking for %s.",
  332.                     plname, ESHK(shkp)->customer);
  333.                 ESHK(shkp)->following = 0;
  334.                 return(0);
  335.             }
  336.             if(!ESHK(shkp)->robbed) {    /* impossible? */
  337.                 ESHK(shkp)->following = 0;
  338.                 return(0);
  339.             }
  340.             if(moves > followmsg+4) {
  341.                 pline("Hello %s! Didn't you forget to pay?",
  342.                     plname);
  343.                 followmsg = moves;
  344.             }
  345.             if(udist < 2)
  346.                 return(0);
  347.         }
  348.     }
  349.  
  350.     shkroom = inroom(omx,omy);
  351.     appr = 1;
  352.     gx = ESHK(shkp)->shk.x;
  353.     gy = ESHK(shkp)->shk.y;
  354.     satdoor = (gx == omx && gy == omy);
  355.     if(ESHK(shkp)->following || ((z = holetime()) >= 0 && z*z <= udist)){
  356.         gx = u.ux;
  357.         gy = u.uy;
  358.         if(shkroom < 0 || shkroom != inroom(u.ux,u.uy))
  359.             if(udist > 4)
  360.             return(-1);    /* leave it to m_move */
  361.     } else if(ANGRY(shkp)) {
  362.         long saveBlind = Blind;
  363.         Blind = 0;
  364.         if(shkp->mcansee && !Invis && cansee(omx,omy)) {
  365.             gx = u.ux;
  366.             gy = u.uy;
  367.         }
  368.         Blind = saveBlind;
  369.         avoid = FALSE;
  370.     } else {
  371. #define    GDIST(x,y)    ((x-gx)*(x-gx)+(y-gy)*(y-gy))
  372.         if(Invis)
  373.           avoid = FALSE;
  374.         else {
  375.           uondoor = (u.ux == ESHK(shkp)->shd.x &&
  376.                 u.uy == ESHK(shkp)->shd.y);
  377.           if(uondoor) {
  378.             if(ESHK(shkp)->billct)
  379.             pline("Hello %s! Will you please pay before leaving?",
  380.                 plname);
  381.             badinv = (carrying(PICK_AXE) || carrying(ICE_BOX));
  382.             if(satdoor && badinv)
  383.             return(0);
  384.             avoid = !badinv;
  385.           } else {
  386.             avoid = (u.uinshop && dist(gx,gy) > 8);
  387.             badinv = FALSE;
  388.           }
  389.  
  390.           if(((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid)
  391.               && GDIST(omx,omy) < 3){
  392.               if(!badinv && !online(omx,omy))
  393.                 return(0);
  394.               if(satdoor)
  395.                   appr = gx = gy = 0;
  396.           }
  397.         }
  398.     }
  399.     if(omx == gx && omy == gy)
  400.         return(0);
  401.     if(shkp->mconf) {
  402.         avoid = FALSE;
  403.         appr = 0;
  404.     }
  405.     nix = omx;
  406.     niy = omy;
  407.     cnt = mfndpos(shkp,poss,info,ALLOW_SSM);
  408.     if(avoid && uondoor) {        /* perhaps we cannot avoid him */
  409.         for(i=0; i<cnt; i++)
  410.             if(!(info[i] & NOTONL)) goto notonl_ok;
  411.         avoid = FALSE;
  412.     notonl_ok:
  413.         ;
  414.     }
  415.     chi = -1;
  416.     chcnt = 0;
  417.     for(i=0; i<cnt; i++){
  418.         nx = poss[i].x;
  419.         ny = poss[i].y;
  420.            if(levl[nx][ny].typ == ROOM
  421.         || shkroom != ESHK(shkp)->shoproom
  422.         || ESHK(shkp)->following) {
  423. #ifdef STUPID
  424.             /* cater for stupid compilers */
  425.             register int zz;
  426. #endif STUPID
  427.             if(uondoor && (ib = sobj_at(ICE_BOX, nx, ny))) {
  428.             nix = nx; niy = ny; chi = i; break;
  429.             }
  430.             if(avoid && (info[i] & NOTONL))
  431.             continue;
  432.             if((!appr && !rn2(++chcnt)) ||
  433. #ifdef STUPID
  434.             (appr && (zz = GDIST(nix,niy)) && zz > GDIST(nx,ny))
  435. #else
  436.             (appr && GDIST(nx,ny) < GDIST(nix,niy))
  437. #endif STUPID
  438.             ) {
  439.                 nix = nx;
  440.                 niy = ny;
  441.                 chi = i;
  442.             }
  443.         }
  444.     }
  445.     if(nix != omx || niy != omy){
  446.         if(info[chi] & ALLOW_M){
  447.             mtmp = m_at(nix,niy);
  448.             if(hitmm(shkp,mtmp) == 1 && rn2(3) &&
  449.                hitmm(mtmp,shkp) == 2) return(2);
  450.             return(0);
  451.         } else if(info[chi] & ALLOW_U){
  452.             (void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
  453.             return(0);
  454.         }
  455.         shkp->mx = nix;
  456.         shkp->my = niy;
  457.         pmon(shkp);
  458.         if(ib) {
  459.             freeobj(ib);
  460.             mpickobj(shkp, ib);
  461.         }
  462.         return(1);
  463.     }
  464.     return(0);
  465. }
  466. #endif QUEST
  467.  
  468. online(x,y) {
  469.     return(x==u.ux || y==u.uy ||
  470.         (x-u.ux)*(x-u.ux) == (y-u.uy)*(y-u.uy));
  471. }
  472.  
  473. /* Does this monster follow me downstairs? */
  474. follower(mtmp)
  475. register struct monst *mtmp;
  476. {
  477.     return( mtmp->mtame || index("1TVWZi&, ", mtmp->data->mlet) ||
  478.         (mtmp->isshk && ESHK(mtmp)->following) );
  479. }
  480.  
  481. /* He is digging in the shop. */
  482. shopdig(fall)
  483. register int fall;
  484. {
  485.     if(!fall) {
  486.     if(u.utraptype == TT_PIT)
  487.         pline("\"Be careful, sir, or you might fall through the floor.\"");
  488.     else
  489.         pline("\"Please, do not damage the floor here.\"");
  490.     } else if(dist(shopkeeper->mx, shopkeeper->my) < 3) {
  491.     register struct obj *obj, *obj2;
  492.  
  493.     pline("%s grabs your backpack!", shkname(shopkeeper));
  494.     for(obj = invent; obj; obj = obj2) {
  495.         obj2 = obj->nobj;
  496.         if(obj->owornmask) continue;
  497.         freeinv(obj);
  498.         obj->nobj = shopkeeper->minvent;
  499.         shopkeeper->minvent = obj;
  500.         if(obj->unpaid)
  501.             subfrombill(obj);
  502.     }
  503.     }
  504. }
  505.