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: }