hack/hack.steal.c

   1 /*      $NetBSD: hack.steal.c,v 1.5 2003/04/02 18:36:40 jsm Exp $       */
   2
   3 /*
   4  * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
   5  * Amsterdam
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions are
  10  * met:
  11  *
  12  * - Redistributions of source code must retain the above copyright notice,
  13  * this list of conditions and the following disclaimer.
  14  *
  15  * - Redistributions in binary form must reproduce the above copyright
  16  * notice, this list of conditions and the following disclaimer in the
  17  * documentation and/or other materials provided with the distribution.
  18  *
  19  * - Neither the name of the Stichting Centrum voor Wiskunde en
  20  * Informatica, nor the names of its contributors may be used to endorse or
  21  * promote products derived from this software without specific prior
  22  * written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
  25  * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  26  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  27  * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
  28  * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  29  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  30  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  31  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
  32  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
  33  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  34  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  35  */
  36
  37 /*
  38  * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
  39  * All rights reserved.
  40  *
  41  * Redistribution and use in source and binary forms, with or without
  42  * modification, are permitted provided that the following conditions
  43  * are met:
  44  * 1. Redistributions of source code must retain the above copyright
  45  *    notice, this list of conditions and the following disclaimer.
  46  * 2. Redistributions in binary form must reproduce the above copyright
  47  *    notice, this list of conditions and the following disclaimer in the
  48  *    documentation and/or other materials provided with the distribution.
  49  * 3. The name of the author may not be used to endorse or promote products
  50  *    derived from this software without specific prior written permission.
  51  *
  52  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
  53  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  54  * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
  55  * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  56  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  57  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  58  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  59  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  60  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  61  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  62  */
  63
  64 #include <sys/cdefs.h>
  65 #ifndef lint
  66 __RCSID("$NetBSD: hack.steal.c,v 1.5 2003/04/02 18:36:40 jsm Exp $");
  67 #endif                          /* not lint */
  68
  69 #include <stdlib.h>
  70 #include "hack.h"
  71 #include "extern.h"
  72
  73 long                            /* actually returns something that fits in an
  74                                  * int */
  75 somegold()
  76 {
  77         return ((u.ugold < 100) ? u.ugold :
  78                 (u.ugold > 10000) ? rnd(10000) : rnd((int) u.ugold));
  79 }
  80
  81 void
  82 stealgold(mtmp)
  83         struct monst   *mtmp;
  84 {
  85         struct gold    *gold = g_at(u.ux, u.uy);
  86         long            tmp;
  87         if (gold && (!u.ugold || gold->amount > u.ugold || !rn2(5))) {
  88                 mtmp->mgold += gold->amount;
  89                 freegold(gold);
  90                 if (Invisible)
  91                         newsym(u.ux, u.uy);
  92                 pline("%s quickly snatches some gold from between your feet!",
  93                       Monnam(mtmp));
  94                 if (!u.ugold || !rn2(5)) {
  95                         rloc(mtmp);
  96                         mtmp->mflee = 1;
  97                 }
  98         } else if (u.ugold) {
  99                 u.ugold -= (tmp = somegold());
 100                 pline("Your purse feels lighter.");
 101                 mtmp->mgold += tmp;
 102                 rloc(mtmp);
 103                 mtmp->mflee = 1;
 104                 flags.botl = 1;
 105         }
 106 }
 107
 108 /* steal armor after he finishes taking it off */
 109 unsigned        stealoid;       /* object to be stolen */
 110 unsigned        stealmid;       /* monster doing the stealing */
 111 int
 112 stealarm()
 113 {
 114         struct monst   *mtmp;
 115         struct obj     *otmp;
 116
 117         for (otmp = invent; otmp; otmp = otmp->nobj)
 118                 if (otmp->o_id == stealoid) {
 119                         for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
 120                                 if (mtmp->m_id == stealmid) {
 121                                         if (dist(mtmp->mx, mtmp->my) < 3) {
 122                                                 freeinv(otmp);
 123                                                 pline("%s steals %s!", Monnam(mtmp), doname(otmp));
 124                                                 mpickobj(mtmp, otmp);
 125                                                 mtmp->mflee = 1;
 126                                                 rloc(mtmp);
 127                                         }
 128                                         break;
 129                                 }
 130                         break;
 131                 }
 132         stealoid = 0;
 133         return 0;
 134 }
 135
 136 /* returns 1 when something was stolen */
 137 /* (or at least, when N should flee now) */
 138 /* avoid stealing the object stealoid */
 139 int
 140 steal(mtmp)
 141         struct monst   *mtmp;
 142 {
 143         struct obj     *otmp;
 144         int             tmp;
 145         int             named = 0;
 146
 147         if (!invent) {
 148                 if (Blind)
 149                         pline("Somebody tries to rob you, but finds nothing to steal.");
 150                 else
 151                         pline("%s tries to rob you, but she finds nothing to steal!",
 152                               Monnam(mtmp));
 153                 return (1);     /* let her flee */
 154         }
 155         tmp = 0;
 156         for (otmp = invent; otmp; otmp = otmp->nobj)
 157                 if (otmp != uarm2)
 158                         tmp += ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1);
 159         tmp = rn2(tmp);
 160         for (otmp = invent; otmp; otmp = otmp->nobj)
 161                 if (otmp != uarm2)
 162                         if ((tmp -= ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1))
 163                             < 0)
 164                                 break;
 165         if (!otmp) {
 166                 impossible("Steal fails!");
 167                 return (0);
 168         }
 169         if (otmp->o_id == stealoid)
 170                 return (0);
 171         if ((otmp->owornmask & (W_ARMOR | W_RING))) {
 172                 switch (otmp->olet) {
 173                 case RING_SYM:
 174                         ringoff(otmp);
 175                         break;
 176                 case ARMOR_SYM:
 177                         if (multi < 0 || otmp == uarms) {
 178                                 setworn((struct obj *) 0, otmp->owornmask & W_ARMOR);
 179                                 break;
 180                         } {
 181                                 int             curssv = otmp->cursed;
 182                                 otmp->cursed = 0;
 183                                 stop_occupation();
 184                                 pline("%s seduces you and %s off your %s.",
 185                                       Amonnam(mtmp, Blind ? "gentle" : "beautiful"),
 186                                       otmp->cursed ? "helps you to take"
 187                                       : "you start taking",
 188                                       (otmp == uarmg) ? "gloves" :
 189                                       (otmp == uarmh) ? "helmet" : "armor");
 190                                 named++;
 191                                 (void) armoroff(otmp);
 192                                 otmp->cursed = curssv;
 193                                 if (multi < 0) {
 194                                         /*
 195                                         multi = 0;
 196                                         nomovemsg = 0;
 197                                         afternmv = 0;
 198                                         */
 199                                         stealoid = otmp->o_id;
 200                                         stealmid = mtmp->m_id;
 201                                         afternmv = stealarm;
 202                                         return (0);
 203                                 }
 204                                 break;
 205                         }
 206                 default:
 207                         impossible("Tried to steal a strange worn thing.");
 208                 }
 209         } else if (otmp == uwep)
 210                 setuwep((struct obj *) 0);
 211         if (otmp->olet == CHAIN_SYM) {
 212                 impossible("How come you are carrying that chain?");
 213         }
 214         if (Punished && otmp == uball) {
 215                 Punished = 0;
 216                 freeobj(uchain);
 217                 free((char *) uchain);
 218                 uchain = (struct obj *) 0;
 219                 uball->spe = 0;
 220                 uball = (struct obj *) 0;       /* superfluous */
 221         }
 222         freeinv(otmp);
 223         pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp));
 224         mpickobj(mtmp, otmp);
 225         return ((multi < 0) ? 0 : 1);
 226 }
 227
 228 void
 229 mpickobj(mtmp, otmp)
 230         struct monst   *mtmp;
 231         struct obj     *otmp;
 232 {
 233         otmp->nobj = mtmp->minvent;
 234         mtmp->minvent = otmp;
 235 }
 236
 237 int
 238 stealamulet(mtmp)
 239         struct monst   *mtmp;
 240 {
 241         struct obj     *otmp;
 242
 243         for (otmp = invent; otmp; otmp = otmp->nobj) {
 244                 if (otmp->olet == AMULET_SYM) {
 245                         /* might be an imitation one */
 246                         if (otmp == uwep)
 247                                 setuwep((struct obj *) 0);
 248                         freeinv(otmp);
 249                         mpickobj(mtmp, otmp);
 250                         pline("%s stole %s!", Monnam(mtmp), doname(otmp));
 251                         return (1);
 252                 }
 253         }
 254         return (0);
 255 }
 256
 257 /* release the objects the killed animal has stolen */
 258 void
 259 relobj(mtmp, show)
 260         struct monst   *mtmp;
 261         int show;
 262 {
 263         struct obj     *otmp, *otmp2;
 264
 265         for (otmp = mtmp->minvent; otmp; otmp = otmp2) {
 266                 otmp->ox = mtmp->mx;
 267                 otmp->oy = mtmp->my;
 268                 otmp2 = otmp->nobj;
 269                 otmp->nobj = fobj;
 270                 fobj = otmp;
 271                 stackobj(fobj);
 272                 if (show & cansee(mtmp->mx, mtmp->my))
 273                         atl(otmp->ox, otmp->oy, otmp->olet);
 274         }
 275         mtmp->minvent = (struct obj *) 0;
 276         if (mtmp->mgold || mtmp->data->mlet == 'L') {
 277                 long            tmp;
 278
 279                 tmp = (mtmp->mgold > 10000) ? 10000 : mtmp->mgold;
 280                 mkgold((long) (tmp + d(dlevel, 30)), mtmp->mx, mtmp->my);
 281                 if (show & cansee(mtmp->mx, mtmp->my))
 282                         atl(mtmp->mx, mtmp->my, '$');
 283         }
 284 }