games/hack/hack.steal.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* hack.steal.c - version 1.0.3 */
   3 /* $FreeBSD: src/games/hack/hack.steal.c,v 1.4 1999/11/16 10:26:38 marcel Exp $ */
   4
   5 #include "hack.h"
   6
   7 long            /* actually returns something that fits in an int */
   8 somegold(){
   9         return( (u.ugold < 100) ? u.ugold :
  10                 (u.ugold > 10000) ? rnd(10000) : rnd((int) u.ugold) );
  11 }
  12
  13 stealgold(mtmp)  struct monst *mtmp; {
  14 struct gold *gold = g_at(u.ux, u.uy);
  15 long tmp;
  16         if(gold && ( !u.ugold || gold->amount > u.ugold || !rn2(5))) {
  17                 mtmp->mgold += gold->amount;
  18                 freegold(gold);
  19                 if(Invisible) newsym(u.ux, u.uy);
  20                 pline("%s quickly snatches some gold from between your feet!",
  21                         Monnam(mtmp));
  22                 if(!u.ugold || !rn2(5)) {
  23                         rloc(mtmp);
  24                         mtmp->mflee = 1;
  25                 }
  26         } else if(u.ugold) {
  27                 u.ugold -= (tmp = somegold());
  28                 pline("Your purse feels lighter.");
  29                 mtmp->mgold += tmp;
  30                 rloc(mtmp);
  31                 mtmp->mflee = 1;
  32                 flags.botl = 1;
  33         }
  34 }
  35
  36 /* steal armor after he finishes taking it off */
  37 unsigned stealoid;              /* object to be stolen */
  38 unsigned stealmid;              /* monster doing the stealing */
  39 stealarm(){
  40         struct monst *mtmp;
  41         struct obj *otmp;
  42
  43         for(otmp = invent; otmp; otmp = otmp->nobj)
  44           if(otmp->o_id == stealoid) {
  45             for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  46               if(mtmp->m_id == stealmid) {
  47                 if(dist(mtmp->mx,mtmp->my) < 3) {
  48                   freeinv(otmp);
  49                   pline("%s steals %s!", Monnam(mtmp), doname(otmp));
  50                   mpickobj(mtmp,otmp);
  51                   mtmp->mflee = 1;
  52                   rloc(mtmp);
  53                 }
  54                 break;
  55               }
  56             break;
  57           }
  58         stealoid = 0;
  59 }
  60
  61 /* returns 1 when something was stolen */
  62 /* (or at least, when N should flee now) */
  63 /* avoid stealing the object stealoid */
  64 steal(mtmp)
  65 struct monst *mtmp;
  66 {
  67         struct obj *otmp;
  68         int tmp;
  69         int named = 0;
  70
  71         if(!invent){
  72             if(Blind)
  73               pline("Somebody tries to rob you, but finds nothing to steal.");
  74             else
  75               pline("%s tries to rob you, but she finds nothing to steal!",
  76                 Monnam(mtmp));
  77             return(1);  /* let her flee */
  78         }
  79         tmp = 0;
  80         for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2)
  81                 tmp += ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1);
  82         tmp = rn2(tmp);
  83         for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2)
  84                 if((tmp -= ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1))
  85                         < 0) break;
  86         if(!otmp) {
  87                 impossible("Steal fails!");
  88                 return(0);
  89         }
  90         if(otmp->o_id == stealoid)
  91                 return(0);
  92         if((otmp->owornmask & (W_ARMOR | W_RING))){
  93                 switch(otmp->olet) {
  94                 case RING_SYM:
  95                         ringoff(otmp);
  96                         break;
  97                 case ARMOR_SYM:
  98                         if(multi < 0 || otmp == uarms){
  99                           setworn((struct obj *) 0, otmp->owornmask & W_ARMOR);
 100                           break;
 101                         }
 102                 { int curssv = otmp->cursed;
 103                         otmp->cursed = 0;
 104                         stop_occupation();
 105                         pline("%s seduces you and %s off your %s.",
 106                                 Amonnam(mtmp, Blind ? "gentle" : "beautiful"),
 107                                 otmp->cursed ? "helps you to take"
 108                                             : "you start taking",
 109                                 (otmp == uarmg) ? "gloves" :
 110                                 (otmp == uarmh) ? "helmet" : "armor");
 111                         named++;
 112                         (void) armoroff(otmp);
 113                         otmp->cursed = curssv;
 114                         if(multi < 0){
 115                                 extern char *nomovemsg;
 116                                 extern int (*afternmv)();
 117                                 /*
 118                                 multi = 0;
 119                                 nomovemsg = 0;
 120                                 afternmv = 0;
 121                                 */
 122                                 stealoid = otmp->o_id;
 123                                 stealmid = mtmp->m_id;
 124                                 afternmv = stealarm;
 125                                 return(0);
 126                         }
 127                         break;
 128                 }
 129                 default:
 130                         impossible("Tried to steal a strange worn thing.");
 131                 }
 132         }
 133         else if(otmp == uwep)
 134                 setuwep((struct obj *) 0);
 135         if(otmp->olet == CHAIN_SYM) {
 136                 impossible("How come you are carrying that chain?");
 137         }
 138         if(Punished && otmp == uball){
 139                 Punished = 0;
 140                 freeobj(uchain);
 141                 free((char *) uchain);
 142                 uchain = (struct obj *) 0;
 143                 uball->spe = 0;
 144                 uball = (struct obj *) 0;       /* superfluous */
 145         }
 146         freeinv(otmp);
 147         pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp));
 148         mpickobj(mtmp,otmp);
 149         return((multi < 0) ? 0 : 1);
 150 }
 151
 152 mpickobj(mtmp,otmp)
 153 struct monst *mtmp;
 154 struct obj *otmp;
 155 {
 156         otmp->nobj = mtmp->minvent;
 157         mtmp->minvent = otmp;
 158 }
 159
 160 stealamulet(mtmp)
 161 struct monst *mtmp;
 162 {
 163         struct obj *otmp;
 164
 165         for(otmp = invent; otmp; otmp = otmp->nobj) {
 166             if(otmp->olet == AMULET_SYM) {
 167                 /* might be an imitation one */
 168                 if(otmp == uwep) setuwep((struct obj *) 0);
 169                 freeinv(otmp);
 170                 mpickobj(mtmp,otmp);
 171                 pline("%s stole %s!", Monnam(mtmp), doname(otmp));
 172                 return(1);
 173             }
 174         }
 175         return(0);
 176 }
 177
 178 /* release the objects the killed animal has stolen */
 179 relobj(mtmp,show)
 180 struct monst *mtmp;
 181 int show;
 182 {
 183         struct obj *otmp, *otmp2;
 184
 185         for(otmp = mtmp->minvent; otmp; otmp = otmp2){
 186                 otmp->ox = mtmp->mx;
 187                 otmp->oy = mtmp->my;
 188                 otmp2 = otmp->nobj;
 189                 otmp->nobj = fobj;
 190                 fobj = otmp;
 191                 stackobj(fobj);
 192                 if(show & cansee(mtmp->mx,mtmp->my))
 193                         atl(otmp->ox,otmp->oy,otmp->olet);
 194         }
 195         mtmp->minvent = (struct obj *) 0;
 196         if(mtmp->mgold || mtmp->data->mlet == 'L') {
 197                 long tmp;
 198
 199                 tmp = (mtmp->mgold > 10000) ? 10000 : mtmp->mgold;
 200                 mkgold((long)(tmp + d(dlevel,30)), mtmp->mx, mtmp->my);
 201                 if(show & cansee(mtmp->mx,mtmp->my))
 202                         atl(mtmp->mx,mtmp->my,'$');
 203         }
 204 }