Oh GACK! src-clean doesn't quite work that easily since cleandist rebuilds the

[unix-history] / games / hack / hack.steal.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.steal.c - version 1.0.3 */

#include "hack.h"

long            /* actually returns something that fits in an int */
somegold(){
       return( (u.ugold < 100) ? u.ugold :
               (u.ugold > 10000) ? rnd(10000) : rnd((int) u.ugold) );
}

stealgold(mtmp)  register struct monst *mtmp; {
register struct gold *gold = g_at(u.ux, u.uy);
register long tmp;
       if(gold && ( !u.ugold || gold->amount > u.ugold || !rn2(5))) {
               mtmp->mgold += gold->amount;
               freegold(gold);
               if(Invisible) newsym(u.ux, u.uy);
               pline("%s quickly snatches some gold from between your feet!",
                       Monnam(mtmp));
               if(!u.ugold || !rn2(5)) {
                       rloc(mtmp);
                       mtmp->mflee = 1;
               }
       } else if(u.ugold) {
               u.ugold -= (tmp = somegold());
               pline("Your purse feels lighter.");
               mtmp->mgold += tmp;
               rloc(mtmp);
               mtmp->mflee = 1;
               flags.botl = 1;
       }
}

/* steal armor after he finishes taking it off */
unsigned stealoid;              /* object to be stolen */
unsigned stealmid;              /* monster doing the stealing */
stealarm(){
       register struct monst *mtmp;
       register struct obj *otmp;

       for(otmp = invent; otmp; otmp = otmp->nobj)
         if(otmp->o_id == stealoid) {
           for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
             if(mtmp->m_id == stealmid) {
               if(dist(mtmp->mx,mtmp->my) < 3) {
                 freeinv(otmp);
                 pline("%s steals %s!", Monnam(mtmp), doname(otmp));
                 mpickobj(mtmp,otmp);
                 mtmp->mflee = 1;
                 rloc(mtmp);
               }
               break;
             }
           break;
         }
       stealoid = 0;
}

/* returns 1 when something was stolen */
/* (or at least, when N should flee now) */
/* avoid stealing the object stealoid */
steal(mtmp)
struct monst *mtmp;
{
       register struct obj *otmp;
       register tmp;
       register named = 0;

       if(!invent){
           if(Blind)
             pline("Somebody tries to rob you, but finds nothing to steal.");
           else
             pline("%s tries to rob you, but she finds nothing to steal!",
               Monnam(mtmp));
           return(1);  /* let her flee */
       }
       tmp = 0;
       for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2)
               tmp += ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1);
       tmp = rn2(tmp);
       for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2)
               if((tmp -= ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1))
                       < 0) break;
       if(!otmp) {
               impossible("Steal fails!");
               return(0);
       }
       if(otmp->o_id == stealoid)
               return(0);
       if((otmp->owornmask & (W_ARMOR | W_RING))){
               switch(otmp->olet) {
               case RING_SYM:
                       ringoff(otmp);
                       break;
               case ARMOR_SYM:
                       if(multi < 0 || otmp == uarms){
                         setworn((struct obj *) 0, otmp->owornmask & W_ARMOR);
                         break;
                       }
               { int curssv = otmp->cursed;
                       otmp->cursed = 0;
                       stop_occupation();
                       pline("%s seduces you and %s off your %s.",
                               Amonnam(mtmp, Blind ? "gentle" : "beautiful"),
                               otmp->cursed ? "helps you to take"
                                           : "you start taking",
                               (otmp == uarmg) ? "gloves" :
                               (otmp == uarmh) ? "helmet" : "armor");
                       named++;
                       (void) armoroff(otmp);
                       otmp->cursed = curssv;
                       if(multi < 0){
                               extern char *nomovemsg;
                               extern int (*afternmv)();
                               /*
                               multi = 0;
                               nomovemsg = 0;
                               afternmv = 0;
                               */
                               stealoid = otmp->o_id;
                               stealmid = mtmp->m_id;
                               afternmv = stealarm;
                               return(0);
                       }
                       break;
               }
               default:
                       impossible("Tried to steal a strange worn thing.");
               }
       }
       else if(otmp == uwep)
               setuwep((struct obj *) 0);
       if(otmp->olet == CHAIN_SYM) {
               impossible("How come you are carrying that chain?");
       }
       if(Punished && otmp == uball){
               Punished = 0;
               freeobj(uchain);
               free((char *) uchain);
               uchain = (struct obj *) 0;
               uball->spe = 0;
               uball = (struct obj *) 0;       /* superfluous */
       }
       freeinv(otmp);
       pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp));
       mpickobj(mtmp,otmp);
       return((multi < 0) ? 0 : 1);
}

mpickobj(mtmp,otmp)
register struct monst *mtmp;
register struct obj *otmp;
{
       otmp->nobj = mtmp->minvent;
       mtmp->minvent = otmp;
}

stealamulet(mtmp)
register struct monst *mtmp;
{
       register struct obj *otmp;

       for(otmp = invent; otmp; otmp = otmp->nobj) {
           if(otmp->olet == AMULET_SYM) {
               /* might be an imitation one */
               if(otmp == uwep) setuwep((struct obj *) 0);
               freeinv(otmp);
               mpickobj(mtmp,otmp);
               pline("%s stole %s!", Monnam(mtmp), doname(otmp));
               return(1);
           }
       }
       return(0);
}

/* release the objects the killed animal has stolen */
relobj(mtmp,show)
register struct monst *mtmp;
register show;
{
       register struct obj *otmp, *otmp2;

       for(otmp = mtmp->minvent; otmp; otmp = otmp2){
               otmp->ox = mtmp->mx;
               otmp->oy = mtmp->my;
               otmp2 = otmp->nobj;
               otmp->nobj = fobj;
               fobj = otmp;
               stackobj(fobj);
               if(show & cansee(mtmp->mx,mtmp->my))
                       atl(otmp->ox,otmp->oy,otmp->olet);
       }
       mtmp->minvent = (struct obj *) 0;
       if(mtmp->mgold || mtmp->data->mlet == 'L') {
               register long tmp;

               tmp = (mtmp->mgold > 10000) ? 10000 : mtmp->mgold;
               mkgold((long)(tmp + d(dlevel,30)), mtmp->mx, mtmp->my);
               if(show & cansee(mtmp->mx,mtmp->my))
                       atl(mtmp->mx,mtmp->my,'$');
       }
}