Merge from vendor branch OPENSSL:
[games.git] / games / hack / hack.wield.c
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.wield.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.wield.c,v 1.4 1999/11/16 10:26:38 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.wield.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ */
5
6 #include        "hack.h"
7 extern struct obj zeroobj;
8
9 void
10 setuwep(struct obj *obj)
11 {
12         setworn(obj, W_WEP);
13 }
14
15 int
16 dowield(void)
17 {
18         struct obj *wep;
19         int res = 0;
20
21         multi = 0;
22         if(!(wep = getobj("#-)", "wield"))) /* nothing */;
23         else if(uwep == wep)
24                 pline("You are already wielding that!");
25         else if(uwep && uwep->cursed)
26                 pline("The %s welded to your hand!",
27                         aobjnam(uwep, "are"));
28         else if(wep == &zeroobj) {
29                 if(uwep == 0){
30                         pline("You are already empty handed.");
31                 } else {
32                         setuwep((struct obj *) 0);
33                         res++;
34                         pline("You are empty handed.");
35                 }
36         } else if(uarms && wep->otyp == TWO_HANDED_SWORD)
37         pline("You cannot wield a two-handed sword and wear a shield.");
38         else if(wep->owornmask & (W_ARMOR | W_RING))
39                 pline("You cannot wield that!");
40         else {
41                 setuwep(wep);
42                 res++;
43                 if(uwep->cursed)
44                     pline("The %s %s to your hand!",
45                         aobjnam(uwep, "weld"),
46                         (uwep->quan == 1) ? "itself" : "themselves"); /* a3 */
47                 else prinv(uwep);
48         }
49         return(res);
50 }
51
52 void
53 corrode_weapon(void)
54 {
55         if(!uwep || uwep->olet != WEAPON_SYM) return;   /* %% */
56         if(uwep->rustfree)
57                 pline("Your %s not affected.", aobjnam(uwep, "are"));
58         else {
59                 pline("Your %s!", aobjnam(uwep, "corrode"));
60                 uwep->spe--;
61         }
62 }
63
64 bool
65 chwepon(struct obj *otmp, int amount)
66 {
67         const char *color = (amount < 0) ? "black" : "green";
68         const char *ltime;
69
70         if(!uwep || uwep->olet != WEAPON_SYM) {
71                 strange_feeling(otmp,
72                         (amount > 0) ? "Your hands twitch."
73                                      : "Your hands itch.");
74                 return(0);
75         }
76
77         if(uwep->otyp == WORM_TOOTH && amount > 0) {
78                 uwep->otyp = CRYSKNIFE;
79                 pline("Your weapon seems sharper now.");
80                 uwep->cursed = 0;
81                 return(1);
82         }
83
84         if(uwep->otyp == CRYSKNIFE && amount < 0) {
85                 uwep->otyp = WORM_TOOTH;
86                 pline("Your weapon looks duller now.");
87                 return(1);
88         }
89
90         /* there is a (soft) upper limit to uwep->spe */
91         if(amount > 0 && uwep->spe > 5 && rn2(3)) {
92             pline("Your %s violently green for a while and then evaporate%s.",
93                 aobjnam(uwep, "glow"), plur(uwep->quan));
94             while(uwep)         /* let all of them disappear */
95                                 /* note: uwep->quan = 1 is nogood if unpaid */
96                 useup(uwep);
97             return(1);
98         }
99         if(!rn2(6)) amount *= 2;
100         ltime = (amount*amount == 1) ? "moment" : "while";
101         pline("Your %s %s for a %s.",
102                 aobjnam(uwep, "glow"), color, ltime);
103         uwep->spe += amount;
104         if(amount > 0) uwep->cursed = 0;
105         return(1);
106 }