hack/hack.wield.c

   1 /*      $NetBSD: hack.wield.c,v 1.6 2003/04/02 18:36:41 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.wield.c,v 1.6 2003/04/02 18:36:41 jsm Exp $");
  67 #endif                          /* not lint */
  68
  69 #include "hack.h"
  70 #include "extern.h"
  71
  72 void
  73 setuwep(obj)
  74         struct obj     *obj;
  75 {
  76         setworn(obj, W_WEP);
  77 }
  78
  79 int
  80 dowield()
  81 {
  82         struct obj     *wep;
  83         int             res = 0;
  84
  85         multi = 0;
  86         if (!(wep = getobj("#-)", "wield")))    /* nothing */
  87                 ;
  88         else if (uwep == wep)
  89                 pline("You are already wielding that!");
  90         else if (uwep && uwep->cursed)
  91                 pline("The %s welded to your hand!",
  92                       aobjnam(uwep, "are"));
  93         else if (wep == &zeroobj) {
  94                 if (uwep == 0) {
  95                         pline("You are already empty handed.");
  96                 } else {
  97                         setuwep((struct obj *) 0);
  98                         res++;
  99                         pline("You are empty handed.");
 100                 }
 101         } else if (uarms && wep->otyp == TWO_HANDED_SWORD)
 102                 pline("You cannot wield a two-handed sword and wear a shield.");
 103         else if (wep->owornmask & (W_ARMOR | W_RING))
 104                 pline("You cannot wield that!");
 105         else {
 106                 setuwep(wep);
 107                 res++;
 108                 if (uwep->cursed)
 109                         pline("The %s %s to your hand!",
 110                               aobjnam(uwep, "weld"),
 111                               (uwep->quan == 1) ? "itself" : "themselves");     /* a3 */
 112                 else
 113                         prinv(uwep);
 114         }
 115         return (res);
 116 }
 117
 118 void
 119 corrode_weapon()
 120 {
 121         if (!uwep || uwep->olet != WEAPON_SYM)
 122                 return;         /* %% */
 123         if (uwep->rustfree)
 124                 pline("Your %s not affected.", aobjnam(uwep, "are"));
 125         else {
 126                 pline("Your %s!", aobjnam(uwep, "corrode"));
 127                 uwep->spe--;
 128         }
 129 }
 130
 131 int
 132 chwepon(otmp, amount)
 133         struct obj     *otmp;
 134         int amount;
 135 {
 136         const char *color = (amount < 0) ? "black" : "green";
 137         const char *time;
 138         if (!uwep || uwep->olet != WEAPON_SYM) {
 139                 strange_feeling(otmp,
 140                                 (amount > 0) ? "Your hands twitch."
 141                                 : "Your hands itch.");
 142                 return (0);
 143         }
 144         if (uwep->otyp == WORM_TOOTH && amount > 0) {
 145                 uwep->otyp = CRYSKNIFE;
 146                 pline("Your weapon seems sharper now.");
 147                 uwep->cursed = 0;
 148                 return (1);
 149         }
 150         if (uwep->otyp == CRYSKNIFE && amount < 0) {
 151                 uwep->otyp = WORM_TOOTH;
 152                 pline("Your weapon looks duller now.");
 153                 return (1);
 154         }
 155         /* there is a (soft) upper limit to uwep->spe */
 156         if (amount > 0 && uwep->spe > 5 && rn2(3)) {
 157                 pline("Your %s violently green for a while and then evaporate%s.",
 158                       aobjnam(uwep, "glow"), plur(uwep->quan));
 159                 while (uwep)    /* let all of them disappear */
 160                         /* note: uwep->quan = 1 is nogood if unpaid */
 161                         useup(uwep);
 162                 return (1);
 163         }
 164         if (!rn2(6))
 165                 amount *= 2;
 166         time = (amount * amount == 1) ? "moment" : "while";
 167         pline("Your %s %s for a %s.",
 168               aobjnam(uwep, "glow"), color, time);
 169         uwep->spe += amount;
 170         if (amount > 0)
 171                 uwep->cursed = 0;
 172         return (1);
 173 }