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