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