home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d190 / nethack.lha / NetHack / twee.zoo / apply.c next >
C/C++ Source or Header  |  1988-07-22  |  19KB  |  789 lines
  1. /*    SCCS Id: @(#)apply.c    2.3     88/01/21
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3.  
  4. #include    "hack.h"
  5. #include    "edog.h"
  6. #include    "mkroom.h"
  7. static struct monst *bchit();
  8. extern struct obj *addinv();
  9. extern struct trap *maketrap();
  10. extern int (*occupation)();
  11. extern char *occtxt;
  12. extern char quitchars[];
  13. extern char pl_character[];
  14.  
  15. #ifdef DGKMOD
  16. extern void set_occupation();
  17. #endif
  18. #ifdef KAA
  19. extern boolean unweapon;
  20. #endif
  21. static use_camera(), use_ice_box(), use_whistle();
  22. static use_magic_whistle(), use_pick_axe();
  23. #ifdef MARKER
  24. extern int dowrite();
  25. #endif
  26. #ifdef RPH
  27. static use_mirror();
  28. #endif
  29. static use_lamp();
  30.  
  31. doapply() {
  32.     register struct obj *obj;
  33.     register int res = 1;
  34.  
  35.     obj = getobj("(", "use or apply");
  36.     if(!obj) return(0);
  37.  
  38.     switch(obj->otyp){
  39.     case EXPENSIVE_CAMERA:
  40.         use_camera(obj); break;
  41.     case ICE_BOX:
  42.         use_ice_box(obj); break;
  43.     case PICK_AXE:
  44.         res = use_pick_axe(obj);
  45.         break;
  46.  
  47.     case MAGIC_WHISTLE:
  48.         if(pl_character[0] == 'W' || u.ulevel > 9) {
  49.             use_magic_whistle(obj);
  50.             break;
  51.         }
  52.         /* fall into next case */
  53.     case WHISTLE:
  54.         use_whistle(obj);
  55.         break;
  56. #ifdef RPH
  57.     case MIRROR:
  58.         use_mirror(obj);
  59.         break;
  60. #endif
  61.     case LAMP:
  62.     case MAGIC_LAMP:
  63.         use_lamp(obj);
  64.         break;
  65. #ifdef WALKIES
  66.     case LEASH:
  67.         use_leash(obj);
  68.         break;
  69. #endif
  70. #ifdef MARKER
  71.     case MAGIC_MARKER:
  72.         dowrite(obj);
  73.         break;
  74. #endif
  75.     case CAN_OPENER:
  76.         if(!carrying(TIN)) {
  77.             pline("You have no can to open.");
  78.             goto xit;
  79.         }
  80.         pline("You cannot open a tin without eating its contents.");
  81.         pline("In order to eat, use the 'e' command.");
  82.         if(obj != uwep)
  83.     pline("Opening the tin will be much easier if you wield the can-opener.");
  84.         goto xit;
  85.  
  86. #ifdef KAA
  87.     case STETHOSCOPE:
  88.         res = use_stethoscope();
  89.         break;
  90. #endif
  91.     case BLINDFOLD:
  92.         if (Blindfolded && obj->owornmask) {
  93.             pline("You remove the blindfold.");
  94.             Blindfolded = 0;
  95.             obj->owornmask = 0;
  96.             if (!Blinded)       Blinded = 1;    /* see on nexte */
  97.             else        pline("You still cannot see.");
  98.         } else if (!Blindfolded) {
  99.             pline("You put the blindfold on.");
  100.             Blindfolded = INTRINSIC;
  101.             obj->owornmask = W_TOOL;
  102.             seeoff(0);
  103.         } else pline("You are already wearing a blindfold!");
  104.         break;
  105.     case BADGE:
  106.         if (Badged && obj->owornmask) {
  107.             pline("You remove the badge.");
  108.             Badged = 0;
  109.             obj->owornmask = 0;
  110.         } else if (!Badged) {
  111.             pline("You pin the badge on your chest.");
  112.             Badged = INTRINSIC;
  113.             obj->owornmask = W_TOOL;
  114.         } else pline("You are already wearing a badge!");
  115.         break;
  116.     default:
  117.         pline("Sorry, I don't know how to use that.");
  118.     xit:
  119.         nomul(0);
  120.         return(0);
  121.     }
  122.     nomul(0);
  123.     return(res);
  124. }
  125.  
  126. /* ARGSUSED */
  127. static
  128. use_camera(obj) /* register */ struct obj *obj; {
  129. register struct monst *mtmp;
  130.     if(!getdir(1)){         /* ask: in what direction? */
  131.         flags.move = multi = 0;
  132.         return;
  133.     }
  134.     if(u.uswallow) {
  135.         pline("You take a picture of %s's stomach.", monnam(u.ustuck));
  136.         return;
  137.     }
  138.     if(u.dz) {
  139.         pline("You take a picture of the %s.",
  140.             (u.dz > 0) ? "floor" : "ceiling");
  141.         return;
  142.     }
  143. #ifdef KAA
  144.     if(!u.dx && !u.dy && !u.dz) {
  145.         if(!Blind) {
  146.             pline("You are blinded by the flash!");
  147.             Blinded += rnd(25);
  148.             seeoff(0);
  149.         }
  150.         return;
  151.     }
  152. #endif
  153.     if(mtmp = bchit(u.dx, u.dy, COLNO, '!')) {
  154.         if(mtmp->msleep){
  155.             mtmp->msleep = 0;
  156.             pline("The flash awakens %s.", monnam(mtmp)); /* a3 */
  157.         } else
  158.         if(mtmp->data->mlet != 'y')
  159.         if(mtmp->mcansee || mtmp->mblinded){
  160.             register int tmp = dist(mtmp->mx,mtmp->my);
  161.             register int tmp2;
  162.             if(cansee(mtmp->mx,mtmp->my))
  163.               pline("%s is blinded by the flash!", Monnam(mtmp));
  164.             setmangry(mtmp);
  165.             if(tmp < 9 && !mtmp->isshk && rn2(4)) {
  166.                 mtmp->mflee = 1;
  167.                 if(rn2(4)) mtmp->mfleetim = rnd(100);
  168.             }
  169.             if(tmp < 3) mtmp->mcansee  = mtmp->mblinded = 0;
  170.             else {
  171.                 tmp2 = mtmp->mblinded;
  172.                 tmp2 += rnd(1 + 50/tmp);
  173.                 if(tmp2 > 127) tmp2 = 127;
  174.                 mtmp->mblinded = tmp2;
  175.                 mtmp->mcansee = 0;
  176.             }
  177.         }
  178.     }
  179. }
  180.  
  181. #ifdef KAA
  182. /* Strictly speaking it makes no sense for usage of a stethoscope to
  183.    not take any time; however, unless it did, the stethoscope would be
  184.    almost useless. */
  185. static use_stethoscope() {
  186. register struct monst *mtmp;
  187. register struct rm *lev;
  188. register int rx, ry;
  189.     if(!freehand()) {
  190.         pline("You have no free hand!");
  191.         return(1);
  192.     }
  193.     if (!getdir(1)) {
  194.         flags.move=multi=0;
  195.         return(0);
  196.     }
  197.     if(u.dz < 0 || (u.dz && Levitation)) {
  198.         pline("You can't reach the %s!", u.dz<0 ? "ceiling" : "floor");
  199.         return(1);
  200.     }
  201.     if(u.dz) {
  202.         pline("The floor seems healthy enough.");
  203.         return(0);
  204.     }
  205.     if (Confusion) confdir();
  206.     rx = u.ux + u.dx; ry = u.uy + u.dy;
  207.     if(u.uswallow) {
  208.         mstatusline(u.ustuck);
  209.         return(0);
  210.     }
  211.     if(mtmp=m_at(rx,ry)) {
  212.         mstatusline(mtmp);
  213.         return(0);
  214.     }
  215.     if (!isok(rx,ry)) {
  216.         pline("You hear the sounds at the end of the universe.");
  217.         return(0);
  218.     }
  219.     lev = &levl[rx][ry];
  220.     if(RM_TYP(*lev) == SDOOR) {
  221.         pline("You hear a hollow sound!  This must be a secret door!");
  222.         RM_SET_TYP(*lev, DOOR);
  223.         atl(rx, ry, DOOR_SYM);
  224.         return(0);
  225.     }
  226.     if(RM_TYP(*lev) == SCORR) {
  227.         pline("You hear a hollow sound!  This must be a secret passage!");
  228.         RM_SET_TYP(*lev, CORR);
  229.         atl(rx, ry, CORR_SYM);
  230.         return(0);
  231.     }
  232.     pline("You hear nothing special.");
  233.     return(0);
  234. }
  235. #endif
  236.  
  237. static
  238. struct obj *current_ice_box;    /* a local variable of use_ice_box, to be
  239.                 used by its local procedures in/ck_ice_box */
  240. static
  241. in_ice_box(obj) register struct obj *obj; {
  242.     if(obj == current_ice_box ||
  243.         (Punished && (obj == uball || obj == uchain))){
  244.         pline("You must be kidding.");
  245.         return(0);
  246.     }
  247.     if(obj->owornmask & (W_ARMOR | W_RING)) {
  248.         pline("You cannot refrigerate something you are wearing.");
  249.         return(0);
  250.     }
  251.     if(obj->owt + current_ice_box->owt > 70) {
  252.         pline("It won't fit.");
  253.         return(1);      /* be careful! */
  254.     }
  255.     if(obj == uwep) {
  256.         if(uwep->cursed) {
  257.             pline("Your weapon is welded to your hand!");
  258.             return(0);
  259.         }
  260.         setuwep((struct obj *) 0);
  261.     }
  262.     current_ice_box->owt += obj->owt;
  263.     freeinv(obj);
  264.     obj->o_cnt_id = current_ice_box->o_id;
  265.     obj->nobj = fcobj;
  266.     fcobj = obj;
  267.     obj->age = moves - obj->age;    /* actual age */
  268.     return(1);
  269. }
  270.  
  271. static
  272. ck_ice_box(obj) register struct obj *obj; {
  273.     return(obj->o_cnt_id == current_ice_box->o_id);
  274. }
  275.  
  276. static
  277. out_ice_box(obj) register struct obj *obj; {
  278. register struct obj *otmp;
  279.     if(obj == fcobj) fcobj = fcobj->nobj;
  280.     else {
  281.         for(otmp = fcobj; otmp->nobj != obj; otmp = otmp->nobj)
  282.             if(!otmp->nobj) panic("out_ice_box");
  283.         otmp->nobj = obj->nobj;
  284.     }
  285.     current_ice_box->owt -= obj->owt;
  286.     obj->age = moves - obj->age;    /* simulated point of time */
  287.     (void) addinv(obj);
  288. }
  289.  
  290. static
  291. use_ice_box(obj) register struct obj *obj; {
  292. register int cnt = 0;
  293. register struct obj *otmp;
  294.     current_ice_box = obj;    /* for use by in/out_ice_box */
  295.     for(otmp = fcobj; otmp; otmp = otmp->nobj)
  296.         if(otmp->o_cnt_id == obj->o_id)
  297.             cnt++;
  298.     if(!cnt) pline("Your ice-box is empty.");
  299.     else {
  300.         pline("Do you want to take something out of the ice-box? [yn] ");
  301.         if(readchar() == 'y')
  302.         if(askchain(fcobj, (char *) 0, 0, out_ice_box, ck_ice_box, 0))
  303.             return;
  304.         pline("That was all. Do you wish to put something in? [yn] ");
  305.         if(readchar() != 'y') return;
  306.     }
  307.     /* call getobj: 0: allow cnt; #: allow all types; %: expect food */
  308.     otmp = getobj("0#%", "put in");
  309.     if(!otmp || !in_ice_box(otmp))
  310.         flags.move = multi = 0;
  311. }
  312.  
  313. static
  314. struct monst *
  315. bchit(ddx,ddy,range,sym) register int ddx,ddy,range; char sym; {
  316.     register struct monst *mtmp = (struct monst *) 0;
  317.     register int bchx = u.ux, bchy = u.uy;
  318.  
  319.     if(sym) Tmp_at(-1, sym);        /* open call */
  320.     while(range--) {
  321.         bchx += ddx;
  322.         bchy += ddy;
  323.         if(mtmp = m_at(bchx,bchy))
  324.             break;
  325.         if(!ZAP_POS(RM_TYP(levl[bchx][bchy]))) {
  326.             bchx -= ddx;
  327.             bchy -= ddy;
  328.             break;
  329.         }
  330.         if(sym) Tmp_at(bchx, bchy);
  331.     }
  332.     if(sym) Tmp_at(-1, -1);
  333.     return(mtmp);
  334. }
  335.  
  336. /* ARGSUSED */
  337. static
  338. use_whistle(obj) struct obj *obj; {
  339. register struct monst *mtmp = fmon;
  340.     pline("You produce a high whistling sound.");
  341.     while(mtmp) {
  342.         if(dist(mtmp->mx,mtmp->my) < u.ulevel*20) {
  343.             if(mtmp->msleep)
  344.                 mtmp->msleep = 0;
  345.             if(mtmp->mtame)
  346.                 EDOG(mtmp)->whistletime = moves;
  347.         }
  348.         mtmp = mtmp->nmon;
  349.     }
  350. }
  351.  
  352. /* ARGSUSED */
  353. static
  354. use_magic_whistle(obj) struct obj *obj; {
  355. register struct monst *mtmp = fmon;
  356.     pline("You produce a strange whistling sound.");
  357.     while(mtmp) {
  358.         if(mtmp->mtame) mnexto(mtmp);
  359.         mtmp = mtmp->nmon;
  360.     }
  361. }
  362.  
  363. #ifdef WALKIES
  364. /* ARGSUSED */
  365. static
  366. use_leash(obj) struct obj *obj; {
  367. register struct monst *mtmp = fmon;
  368. extern char *lmonnam();
  369.  
  370.     while(mtmp && !mtmp->mleashed) mtmp = mtmp->nmon;
  371.  
  372.     if(mtmp) {
  373.  
  374.         if (next_to(mtmp))  {
  375.  
  376.             mtmp->mleashed = 0;
  377.             pline("You remove the leash from your %s.",
  378. #ifdef RPH
  379.         /* a hack to include the dogs full name.  +4 elminates */
  380.         /* the 'the' at the start of the name */
  381.                  lmonnam(mtmp) + 4);
  382. #else
  383.                  mtmp->data->mname);
  384. #endif
  385.         } else    pline("You must be next to your %s to unleash him.",
  386. #ifdef RPH
  387.                 lmonnam(mtmp)+4);
  388. #else
  389.                  mtmp->data->mname);
  390. #endif
  391.     } else {
  392.  
  393.         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  394.  
  395.         if(mtmp->mtame && next_to(mtmp)) {
  396.  
  397.             pline("You slip the leash around your %s.", mtmp->data->mname);
  398.             mtmp->mleashed = 1;
  399.             if(mtmp->msleep)  mtmp->msleep = 0;
  400.             return(0);
  401.         }
  402.         }
  403.         pline("There's nothing here to put a leash on.");
  404.     }
  405.     return(0);
  406. }
  407.  
  408. next_to(mtmp) register struct monst *mtmp; {
  409.  
  410.     return((abs(u.ux - mtmp->mx) <= 1) && (abs(u.uy - mtmp->my) <= 1));
  411. }
  412. #endif
  413.  
  414. static int dig_effort;    /* effort expended on current pos */
  415. static uchar dig_level;
  416. static coord dig_pos;
  417. static boolean dig_down;
  418.  
  419. static
  420. dig() {
  421.     register struct rm *lev;
  422.     register dpx = dig_pos.x, dpy = dig_pos.y;
  423.  
  424.     /* perhaps a nymph stole his pick-axe while he was busy digging */
  425.     /* or perhaps he teleported away */
  426.     if(u.uswallow || !uwep || uwep->otyp != PICK_AXE ||
  427.         dig_level != dlevel ||
  428.         ((dig_down && (dpx != u.ux || dpy != u.uy)) ||
  429.          (!dig_down && dist(dpx,dpy) > 2)))
  430.         return(0);
  431.  
  432.     dig_effort += 10 + abon() + uwep->spe + rn2(5);
  433.     if(dig_down) {
  434.         if(!xdnstair) {
  435.             pline("The floor here seems too hard to dig in.");
  436.             return(0);
  437.         }
  438.         if(dig_effort > 250) {
  439.             dighole();
  440.             return(0);      /* done with digging */
  441.         }
  442.         if(dig_effort > 50) {
  443.             register struct trap *ttmp = t_at(dpx,dpy);
  444.  
  445.             if(!ttmp) {
  446.                 ttmp = maketrap(dpx,dpy,PIT);
  447.                 ttmp->tseen = 1;
  448.                 pline("You have dug a pit.");
  449.                 u.utrap = rn1(4,2);
  450.                 u.utraptype = TT_PIT;
  451.                 return(0);
  452.             }
  453.         }
  454.     } else
  455.     if(dig_effort > 100) {
  456.         register char *digtxt;
  457.         register struct obj *obj;
  458.  
  459.         lev = &levl[dpx][dpy];
  460.         if(obj = sobj_at(ENORMOUS_ROCK, dpx, dpy)) {
  461.             fracture_rock(obj);
  462.             digtxt = "The rock falls apart.";
  463.         } else if(!RM_TYP(*lev) || RM_TYP(*lev) == SCORR) {
  464.             RM_SET_TYP(*lev, CORR);
  465.             digtxt = "You succeeded in cutting away some rock.";
  466.         } else if(RM_TYP(*lev) == HWALL || RM_TYP(*lev) == VWALL
  467.                         || RM_TYP(*lev) == SDOOR) {
  468.             RM_SET_TYP(*lev, xdnstair ? DOOR : ROOM);
  469.             digtxt = "You just made an opening in the wall.";
  470.         } else
  471.           digtxt = "Now what exactly was it that you were digging in?";
  472.         mnewsym(dpx, dpy);
  473.         prl(dpx, dpy);
  474.         pline(digtxt);          /* after mnewsym & prl */
  475.         return(0);
  476.     } else {
  477.         if(IS_WALL(RM_TYP(levl[dpx][dpy]))) {
  478.             register int rno = inroom(dpx,dpy);
  479.  
  480.             if(rno >= 0 && rooms[rno].rtype >= SHOPBASE) {
  481.               pline("This wall seems too hard to dig into.");
  482.               return(0);
  483.             }
  484.         }
  485.         pline("You hit the rock with all your might.");
  486.     }
  487.     return(1);
  488. }
  489.  
  490. /* When will hole be finished? Very rough indication used by shopkeeper. */
  491. holetime() {
  492.     return( (occupation == dig) ? (250 - dig_effort)/20 : -1);
  493. }
  494.  
  495. dighole()
  496. {
  497.     register struct trap *ttmp = t_at(u.ux, u.uy);
  498.  
  499.     if(!xdnstair) {
  500.         pline("The floor here seems too hard to dig in.");
  501.     } else {
  502.         if(ttmp)
  503.             ttmp->ttyp = TRAPDOOR;
  504.         else
  505.             ttmp = maketrap(u.ux, u.uy, TRAPDOOR);
  506.         ttmp->tseen = 1;
  507.         pline("You've made a hole in the floor.");
  508.         if(!u.ustuck && !Levitation) {                  /* KAA */
  509.             if(inshop())
  510.                 shopdig(1);
  511.             pline("You fall through ...");
  512.             if(u.utraptype == TT_PIT) {
  513.                 u.utrap = 0;
  514.                 u.utraptype = 0;
  515.             }
  516.             goto_level(dlevel+1, FALSE);
  517.         }
  518.     }
  519. }
  520.  
  521. static
  522. use_pick_axe(obj)
  523. struct obj *obj;
  524. {
  525.     char dirsyms[12];
  526.     extern char sdir[];
  527.     register char *dsp = dirsyms, *sdp = sdir;
  528.     register struct monst *mtmp;
  529.     register struct rm *lev;
  530.     register int rx, ry, res = 0;
  531.  
  532. #ifndef FREEHAND
  533.     /* edited by GAN 10/20/86 so that you can't apply the
  534.      * pick-axe while wielding a cursed weapon
  535.      */
  536.     if(!freehand())  {
  537.         pline("You have no free hand to dig with!");
  538.         return(0);
  539.     }
  540. # ifdef KAA
  541.     if(cantwield(u.usym)) {
  542.         pline("You can't hold it strongly enough.");
  543.         return(0);
  544.     }
  545. # endif
  546. #else
  547.     if(obj != uwep) {
  548.         if(uwep && uwep->cursed) {
  549.             /* Andreas Bormann - ihnp4!decvax!mcvax!unido!ab */
  550.             pline("Since your weapon is welded to your hand,");
  551.             pline("you cannot use that pick-axe.");
  552.             return(0);
  553.         }
  554. # ifdef KAA
  555.         if(cantwield(u.usym)) {
  556.             pline("You can't hold it strongly enough.");
  557.             return(0);
  558.         }
  559.         unweapon = TRUE;
  560. # endif
  561.         pline("You now wield %s.", doname(obj));
  562.         setuwep(obj);
  563.         res = 1;
  564.     }
  565. #endif
  566.     while(*sdp) {
  567.         (void) movecmd(*sdp);   /* sets u.dx and u.dy and u.dz */
  568.         rx = u.ux + u.dx;
  569.         ry = u.uy + u.dy;
  570.         if(u.dz > 0 || (u.dz == 0 && isok(rx, ry) &&
  571.             (IS_ROCK(RM_TYP(levl[rx][ry]))
  572.             || sobj_at(ENORMOUS_ROCK, rx, ry))))
  573.             *dsp++ = *sdp;
  574.         sdp++;
  575.     }
  576.     *dsp = 0;
  577.     pline("In what direction do you want to dig? [%s] ", dirsyms);
  578.     if(!getdir(0))          /* no txt */
  579.         return(res);
  580.     if(u.uswallow && attack(u.ustuck)) /* return(1) */;
  581.     else
  582.     if(u.dz < 0)
  583.         pline("You cannot reach the ceiling.");
  584.     else
  585. #ifdef KAA
  586.     if(!u.dx && !u.dy && !u.dz) {
  587.         pline("You hit yourself with your own pick-axe.");
  588.         losehp(rnd(2)+dbon(), "self-inflicted wound");
  589.         flags.botl=1;
  590.         return(1);
  591.     }
  592. #endif
  593.     if(u.dz == 0) {
  594.         if(Confusion)
  595.             confdir();
  596.         rx = u.ux + u.dx;
  597.         ry = u.uy + u.dy;
  598.         if((mtmp = m_at(rx, ry)) && attack(mtmp))
  599.             return(1);
  600.         if(!isok(rx, ry)) {
  601.             pline("Clash!");
  602.             return(1);
  603.         }
  604.         lev = &levl[rx][ry];
  605.         if (RM_TYP(*lev) == DOOR)
  606.             pline("Your %s against the door.",
  607.                 aobjnam(obj, "clang"));
  608.         else if(!IS_ROCK(RM_TYP(*lev))
  609.              && !sobj_at(ENORMOUS_ROCK, rx, ry)) {
  610.             /* ACCESSIBLE or POOL */
  611.             pline("You swing your %s through thin air.",
  612.                 aobjnam(obj, (char *) 0));
  613.         } else {
  614.             if(dig_pos.x != rx || dig_pos.y != ry
  615.                 || dig_level != dlevel || dig_down) {
  616.                 dig_down = FALSE;
  617.                 dig_pos.x = rx;
  618.                 dig_pos.y = ry;
  619.                 dig_level = dlevel;
  620.                 dig_effort = 0;
  621.                 pline("You start digging.");
  622.             } else
  623.                 pline("You continue digging.");
  624. #ifdef DGKMOD
  625.             set_occupation(dig, "digging", 0);
  626. #else
  627.             occupation = dig;
  628.             occtxt = "digging";
  629. #endif
  630.         }
  631.     } else if(Levitation) {
  632.         pline("You cannot reach the floor.");
  633.     } else {
  634.         if(dig_pos.x != u.ux || dig_pos.y != u.uy
  635.             || dig_level != dlevel || !dig_down) {
  636.             dig_down = TRUE;
  637.             dig_pos.x = u.ux;
  638.             dig_pos.y = u.uy;
  639.             dig_level = dlevel;
  640.             dig_effort = 0;
  641.             pline("You start digging in the floor.");
  642.             if(inshop())
  643.                 shopdig(0);
  644.         } else
  645.             pline("You continue digging in the floor.");
  646. #ifdef DGKMOD
  647.         set_occupation(dig, "digging", 0);
  648. #else
  649.         occupation = dig;
  650.         occtxt = "digging";
  651. #endif
  652.     }
  653.     return(1);
  654. }
  655.  
  656. #ifdef RPH
  657. static
  658. use_mirror(obj)
  659. struct obj *obj;
  660. {
  661.      register struct monst *mtmp;
  662.      register char mlet;
  663.      extern mpickobj(), freeinv(), rloc();
  664.  
  665.     if(!getdir(1)){         /* ask: in what direction? */
  666.         flags.move = multi = 0;
  667.         return;
  668.     }
  669.     if(u.uswallow) {
  670.         pline("You reflect %s's stomach.", monnam(u.ustuck));
  671.         return;
  672.     }
  673.     if(u.dz) {
  674.         pline("You reflect the %s.",
  675.             (u.dz > 0) ? "floor" : "ceiling");
  676.         return;
  677.     }
  678.     if(!u.dx && !u.dy && !u.dz) {
  679.         if(!Blind)
  680.             pline ("You look as ugly as ever.");
  681.         else {
  682.             if (rn2(4-u.uluck/3) || !HTelepat)
  683.             pline ("You can't see your ugly face.");
  684.             else {
  685.             char *tm, *tl; int ll;
  686.             if (rn2(4)) {
  687.                 tm = "ugly monster";
  688.                 ll = dlevel - u.medusa_level;
  689.             }
  690.             else {
  691.                 tm = "intelligent being";
  692.                 ll = dlevel - u.wiz_level;
  693.             }
  694.             if (ll < -10) tl = "far below you";
  695.             else if (ll < -1) tl = "below you";
  696.             else if (ll == -1) tl = "under your feet";
  697.             else if (ll == 0)  tl = "very close to you";
  698.             else if (ll == 1) tl = "above your head";
  699.             else if (ll > 10) tl = "far above you";
  700.             else tl = "above you";
  701.             pline ("You get an impression that an %s lives %s.",
  702.                 tm, tl);
  703.             }
  704.         }
  705.         return;
  706.     }
  707.     if(mtmp = bchit(u.dx, u.dy, COLNO, 0)) {
  708.         mlet = mtmp->data->mlet;
  709.         if(mtmp->msleep){
  710.         pline ("%s is tired and doesn't look at your mirror.",
  711.                 Monnam(mtmp));
  712.         mtmp->msleep = 0;
  713.         } else
  714.         if (!mtmp->mcansee) {
  715.         pline("%s can't see anything at the moment.",
  716.             Monnam(mtmp));
  717.         }
  718.         /* some monsters do special things */
  719.         else if (!mtmp->mcan && index("EUN8",mlet))
  720.          switch (mlet) {
  721.           case '8':
  722.             pline("%s is turned to stone!", Monnam(mtmp));
  723.             killed(mtmp);
  724.             break;
  725.           case 'E':
  726.             pline("%s is frozen by its reflection.",Monnam(mtmp));
  727.             mtmp->mfroz = 1;
  728.             break;
  729.           case 'U':
  730.             pline ("%s has confused itself!", Monnam(mtmp));
  731.             mtmp->mconf = 1;
  732.             break;
  733.           case 'N':
  734.             pline ("%s looks beautiful in your mirror.",Monnam(mtmp));
  735.             pline ("She decides to take it!");
  736.             freeinv(obj);
  737.             mpickobj(mtmp,obj);
  738.             rloc(mtmp);
  739.             break;
  740.           default:
  741.             break;
  742.          }
  743.         else if (mlet == 'V' || mlet == '&')
  744.         pline ("%s doesn't seem to reflect anything.", Monnam(mtmp));
  745.         else if (!index("agquv1N", mlet) && rn2(5)) {
  746.         pline ("%s is frightened by its reflection.",
  747.                 Monnam(mtmp));
  748.         mtmp->mflee = 1;
  749.         mtmp->mfleetim += d(2,4);
  750.         }
  751.         else
  752.         pline ("%s doesn't seem to mind %s refection.",
  753.             Monnam(mtmp),
  754.             (mlet=='1'?"his":(mlet=='N'?"her":"its")));
  755.     }/* if monster hit with mirror */
  756. }/* use_mirror */
  757.  
  758. #endif
  759.  
  760. static
  761. use_lamp(obj)
  762. struct obj *obj;
  763. {
  764.     if(obj->spe <= 0 || obj->otyp == MAGIC_LAMP ) {
  765.         pline("This lamp has no oil.");
  766.         return;
  767.     }
  768.     litroom(TRUE);
  769.     obj->spe -= 1;
  770. }
  771.  
  772. dorub() {
  773.  
  774.      if (!(carrying(LAMP) || carrying(MAGIC_LAMP))) {
  775.       pline("You do not have a lamp!");
  776.       return;
  777.      }
  778.      if (!(uwep->otyp == LAMP || uwep->otyp == MAGIC_LAMP)) {
  779.       pline("You must wield the lamp to rub it!");
  780.       return;
  781.      }
  782.      if (uwep->otyp == MAGIC_LAMP && uwep->spe > 0 && !rn2(3)) {
  783.       uwep->spe = 0;
  784.       djinni_from_bottle();
  785.      } else if (uwep->otyp == MAGIC_LAMP && rn2(2) && !Blind)
  786.         pline("You see a puff of smoke.");
  787.     else pline("Nothing happens.");
  788. }
  789.