1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 2 /* hack.do_wear.c - version 1.0.3 */ 3 /* $FreeBSD: src/games/hack/hack.do_wear.c,v 1.3 1999/11/16 02:57:03 billf Exp $ */ 4 /* $DragonFly: src/games/hack/hack.do_wear.c,v 1.5 2006/08/21 19:45:32 pavalos Exp $ */ 5 6 #include "hack.h" 7 extern char quitchars[]; 8 9 static void off_msg(struct obj *); 10 static int dorr(struct obj *); 11 static bool cursed(struct obj *); 12 13 static void 14 off_msg(struct obj *otmp) 15 { 16 pline("You were wearing %s.", doname(otmp)); 17 } 18 19 int 20 doremarm(void) 21 { 22 struct obj *otmp; 23 if(!uarm && !uarmh && !uarms && !uarmg) { 24 pline("Not wearing any armor."); 25 return(0); 26 } 27 otmp = (!uarmh && !uarms && !uarmg) ? uarm : 28 (!uarms && !uarm && !uarmg) ? uarmh : 29 (!uarmh && !uarm && !uarmg) ? uarms : 30 (!uarmh && !uarm && !uarms) ? uarmg : 31 getobj("[", "take off"); 32 if(!otmp) return(0); 33 if(!(otmp->owornmask & (W_ARMOR - W_ARM2))) { 34 pline("You can't take that off."); 35 return(0); 36 } 37 if( otmp == uarmg && uwep && uwep->cursed ) { /* myers@uwmacc */ 38 pline("You seem not able to take off the gloves while holding your weapon."); 39 return(0); 40 } 41 armoroff(otmp); 42 return(1); 43 } 44 45 int 46 doremring(void) 47 { 48 if(!uleft && !uright){ 49 pline("Not wearing any ring."); 50 return(0); 51 } 52 if(!uleft) 53 return(dorr(uright)); 54 if(!uright) 55 return(dorr(uleft)); 56 if(uleft && uright) while(1) { 57 char answer; 58 59 pline("What ring, Right or Left? [ rl?]"); 60 if(index(quitchars, (answer = readchar()))) 61 return(0); 62 switch(answer) { 63 case 'l': 64 case 'L': 65 return(dorr(uleft)); 66 case 'r': 67 case 'R': 68 return(dorr(uright)); 69 case '?': 70 doprring(); 71 /* might look at morc here %% */ 72 } 73 } 74 /* NOTREACHED */ 75 return(0); 76 } 77 78 static int 79 dorr(struct obj *otmp) 80 { 81 if(cursed(otmp)) return(0); 82 ringoff(otmp); 83 off_msg(otmp); 84 return(1); 85 } 86 87 static bool 88 cursed(struct obj *otmp) 89 { 90 if(otmp->cursed){ 91 pline("You can't. It appears to be cursed."); 92 return(1); 93 } 94 return(0); 95 } 96 97 98 bool 99 armoroff(struct obj *otmp) 100 { 101 int delay = -objects[otmp->otyp].oc_delay; 102 if(cursed(otmp)) return(0); 103 setworn((struct obj *) 0, otmp->owornmask & W_ARMOR); 104 if(delay) { 105 nomul(delay); 106 switch(otmp->otyp) { 107 case HELMET: 108 nomovemsg = "You finished taking off your helmet."; 109 break; 110 case PAIR_OF_GLOVES: 111 nomovemsg = "You finished taking off your gloves"; 112 break; 113 default: 114 nomovemsg = "You finished taking off your suit."; 115 } 116 } else { 117 off_msg(otmp); 118 } 119 return(1); 120 } 121 122 int 123 doweararm(void) 124 { 125 struct obj *otmp; 126 int delay; 127 int err = 0; 128 long mask = 0; 129 130 otmp = getobj("[", "wear"); 131 if(!otmp) return(0); 132 if(otmp->owornmask & W_ARMOR) { 133 pline("You are already wearing that!"); 134 return(0); 135 } 136 if(otmp->otyp == HELMET){ 137 if(uarmh) { 138 pline("You are already wearing a helmet."); 139 err++; 140 } else 141 mask = W_ARMH; 142 } else if(otmp->otyp == SHIELD){ 143 if(uarms) pline("You are already wearing a shield."), err++; 144 if(uwep && uwep->otyp == TWO_HANDED_SWORD) 145 pline("You cannot wear a shield and wield a two-handed sword."), err++; 146 if(!err) mask = W_ARMS; 147 } else if(otmp->otyp == PAIR_OF_GLOVES) { 148 if(uarmg) { 149 pline("You are already wearing gloves."); 150 err++; 151 } else 152 if(uwep && uwep->cursed) { 153 pline("You cannot wear gloves over your weapon."); 154 err++; 155 } else 156 mask = W_ARMG; 157 } else { 158 if(uarm) { 159 if(otmp->otyp != ELVEN_CLOAK || uarm2) { 160 pline("You are already wearing some armor."); 161 err++; 162 } 163 } 164 if(!err) mask = W_ARM; 165 } 166 if(otmp == uwep && uwep->cursed) { 167 if(!err++) 168 pline("%s is welded to your hand.", Doname(uwep)); 169 } 170 if(err) return(0); 171 setworn(otmp, mask); 172 if(otmp == uwep) 173 setuwep((struct obj *) 0); 174 delay = -objects[otmp->otyp].oc_delay; 175 if(delay){ 176 nomul(delay); 177 nomovemsg = "You finished your dressing manoeuvre."; 178 } 179 otmp->known = 1; 180 return(1); 181 } 182 183 int 184 dowearring(void) 185 { 186 struct obj *otmp; 187 long mask = 0; 188 long oldprop; 189 190 if(uleft && uright){ 191 pline("There are no more ring-fingers to fill."); 192 return(0); 193 } 194 otmp = getobj("=", "wear"); 195 if(!otmp) return(0); 196 if(otmp->owornmask & W_RING) { 197 pline("You are already wearing that!"); 198 return(0); 199 } 200 if(otmp == uleft || otmp == uright) { 201 pline("You are already wearing that."); 202 return(0); 203 } 204 if(otmp == uwep && uwep->cursed) { 205 pline("%s is welded to your hand.", Doname(uwep)); 206 return(0); 207 } 208 if(uleft) mask = RIGHT_RING; 209 else if(uright) mask = LEFT_RING; 210 else do { 211 char answer; 212 213 pline("What ring-finger, Right or Left? "); 214 if(index(quitchars, (answer = readchar()))) 215 return(0); 216 switch(answer){ 217 case 'l': 218 case 'L': 219 mask = LEFT_RING; 220 break; 221 case 'r': 222 case 'R': 223 mask = RIGHT_RING; 224 break; 225 } 226 } while(!mask); 227 setworn(otmp, mask); 228 if(otmp == uwep) 229 setuwep((struct obj *) 0); 230 oldprop = u.uprops[PROP(otmp->otyp)].p_flgs; 231 u.uprops[PROP(otmp->otyp)].p_flgs |= mask; 232 switch(otmp->otyp){ 233 case RIN_LEVITATION: 234 if(!oldprop) float_up(); 235 break; 236 case RIN_PROTECTION_FROM_SHAPE_CHANGERS: 237 rescham(); 238 break; 239 case RIN_GAIN_STRENGTH: 240 u.ustr += otmp->spe; 241 u.ustrmax += otmp->spe; 242 if(u.ustr > 118) u.ustr = 118; 243 if(u.ustrmax > 118) u.ustrmax = 118; 244 flags.botl = 1; 245 break; 246 case RIN_INCREASE_DAMAGE: 247 u.udaminc += otmp->spe; 248 break; 249 } 250 prinv(otmp); 251 return(1); 252 } 253 254 void 255 ringoff(struct obj *obj) 256 { 257 long mask; 258 mask = obj->owornmask & W_RING; 259 setworn((struct obj *) 0, obj->owornmask); 260 if(!(u.uprops[PROP(obj->otyp)].p_flgs & mask)) 261 impossible("Strange... I didnt know you had that ring."); 262 u.uprops[PROP(obj->otyp)].p_flgs &= ~mask; 263 switch(obj->otyp) { 264 case RIN_FIRE_RESISTANCE: 265 /* Bad luck if the player is in hell... --jgm */ 266 if (!Fire_resistance && dlevel >= 30) { 267 pline("The flames of Hell burn you to a crisp."); 268 killer = "stupidity in hell"; 269 done("burned"); 270 } 271 break; 272 case RIN_LEVITATION: 273 if(!Levitation) { /* no longer floating */ 274 float_down(); 275 } 276 break; 277 case RIN_GAIN_STRENGTH: 278 u.ustr -= obj->spe; 279 u.ustrmax -= obj->spe; 280 if(u.ustr > 118) u.ustr = 118; 281 if(u.ustrmax > 118) u.ustrmax = 118; 282 flags.botl = 1; 283 break; 284 case RIN_INCREASE_DAMAGE: 285 u.udaminc -= obj->spe; 286 break; 287 } 288 } 289 290 void 291 find_ac(void) 292 { 293 int uac = 10; 294 if(uarm) uac -= ARM_BONUS(uarm); 295 if(uarm2) uac -= ARM_BONUS(uarm2); 296 if(uarmh) uac -= ARM_BONUS(uarmh); 297 if(uarms) uac -= ARM_BONUS(uarms); 298 if(uarmg) uac -= ARM_BONUS(uarmg); 299 if(uleft && uleft->otyp == RIN_PROTECTION) uac -= uleft->spe; 300 if(uright && uright->otyp == RIN_PROTECTION) uac -= uright->spe; 301 if(uac != u.uac){ 302 u.uac = uac; 303 flags.botl = 1; 304 } 305 } 306 307 void 308 glibr(void) 309 { 310 struct obj *otmp; 311 int xfl = 0; 312 if(!uarmg) if(uleft || uright) { 313 /* Note: at present also cursed rings fall off */ 314 pline("Your %s off your fingers.", 315 (uleft && uright) ? "rings slip" : "ring slips"); 316 xfl++; 317 if((otmp = uleft) != Null(obj)){ 318 ringoff(uleft); 319 dropx(otmp); 320 } 321 if((otmp = uright) != Null(obj)){ 322 ringoff(uright); 323 dropx(otmp); 324 } 325 } 326 if((otmp = uwep) != Null(obj)){ 327 /* Note: at present also cursed weapons fall */ 328 setuwep((struct obj *) 0); 329 dropx(otmp); 330 pline("Your weapon %sslips from your hands.", 331 xfl ? "also " : ""); 332 } 333 } 334 335 struct obj * 336 some_armor(void) 337 { 338 struct obj *otmph = uarm; 339 if(uarmh && (!otmph || !rn2(4))) otmph = uarmh; 340 if(uarmg && (!otmph || !rn2(4))) otmph = uarmg; 341 if(uarms && (!otmph || !rn2(4))) otmph = uarms; 342 return(otmph); 343 } 344 345 void 346 corrode_armor(void) 347 { 348 struct obj *otmph = some_armor(); 349 if(otmph){ 350 if(otmph->rustfree || 351 otmph->otyp == ELVEN_CLOAK || 352 otmph->otyp == LEATHER_ARMOR || 353 otmph->otyp == STUDDED_LEATHER_ARMOR) { 354 pline("Your %s not affected!", 355 aobjnam(otmph, "are")); 356 return; 357 } 358 pline("Your %s!", aobjnam(otmph, "corrode")); 359 otmph->spe--; 360 } 361 } 362