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