| abstract
| - Below is the full text to wield.c from the source code of NetHack 1.4f. To link to a particular line, write [[NetHack 1.4f/wield.c#line123]], for example. Warning! This is the source code from an old release. For the latest release, see Source code 1. /* SCCS Id: @(#)wield.c 1.4 87/08/08 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* wield.c - version 1.0.3 */ 4. 5. #include "hack.h" 6. extern struct obj zeroobj; 7. extern char *hcolor(); 8. #ifdef KAA 9. extern boolean unweapon; 10. #endif 11. 12. setuwep(obj) register struct obj *obj; { 13. setworn(obj, W_WEP); 14. } 15. 16. dowield() 17. { 18. register struct obj *wep; 19. register int res = 0; 20. 21. multi = 0; 22. #ifdef KAA 23. if (cantwield(u.usym)) { 24. pline("Don't be ridiculous!"); 25. return(0); 26. } 27. #endif 28. if(!(wep = getobj("#-)", "wield"))) /* nothing */; 29. else if(wep == &zeroobj) { 30. if(uwep == 0){ 31. pline("You are already empty handed."); 32. } else { 33. setuwep((struct obj *) 0); 34. res++; 35. pline("You are empty handed."); 36. } 37. } else if(uwep == wep) 38. pline("You are already wielding that!"); 39. else if(welded(uwep)) 40. pline("The %s welded to your hand!", 41. aobjnam(uwep, "are")); 42. /* Prevent wielding a cockatrice in pack when not wearing gloves KAA*/ 43. else if (!uarmg && wep->otyp == DEAD_COCKATRICE) { 44. pline("You wield the dead cockatrice in your bare hands."); 45. pline("You turn to stone ..."); 46. killer="dead cockatrice"; 47. done("died"); 48. } else if(uarms && wep->otyp == TWO_HANDED_SWORD) 49. pline("You cannot wield a two-handed sword and wear a shield."); 50. else if(wep->owornmask & (W_ARMOR | W_RING)) 51. pline("You cannot wield that!"); 52. else { 53. setuwep(wep); 54. res++; 55. if(welded(uwep)) 56. pline("The %s %s to your hand!", 57. aobjnam(uwep, "weld"), 58. (uwep->quan == 1) ? "itself" : "themselves"); /* a3 */ 59. else prinv(uwep); 60. } 61. #ifdef KAA 62. if(res && uwep) 63. unweapon = (uwep->otyp >= BOW || uwep->otyp <= BOOMERANG) ? 64. TRUE : FALSE; 65. #endif 66. return(res); 67. } 68. 69. corrode_weapon(){ 70. if(!uwep || uwep->olet != WEAPON_SYM) return; /* %% */ 71. if(uwep->rustfree) 72. pline("Your %s not affected.", aobjnam(uwep, "are")); 73. else { 74. pline("Your %s!", aobjnam(uwep, "corrode")); 75. uwep->spe--; 76. } 77. } 78. 79. chwepon(otmp,amount) 80. register struct obj *otmp; 81. register amount; 82. { 83. register char *color = (amount < 0) ? "black" : "green"; 84. register char *time; 85. 86. if(Hallucination) color=hcolor(); 87. if(!uwep || uwep->olet != WEAPON_SYM) { 88. strange_feeling(otmp, 89. (amount > 0) ? "Your hands twitch." 90. : "Your hands itch."); 91. return(0); 92. } 93. 94. if(uwep->otyp == WORM_TOOTH && amount > 0) { 95. uwep->otyp = CRYSKNIFE; 96. pline("Your weapon seems sharper now."); 97. uwep->cursed = 0; 98. return(1); 99. } 100. 101. if(uwep->otyp == CRYSKNIFE && amount < 0) { 102. uwep->otyp = WORM_TOOTH; 103. pline("Your weapon looks duller now."); 104. return(1); 105. } 106. 107. /* there is a (soft) upper limit to uwep->spe */ 108. if(amount > 0 && uwep->spe > 5 && rn2(3)) { 109. pline("Your %s violently %s for a while and then evaporate%s.", 110. aobjnam(uwep,"glow"),Hallucination ? hcolor() : "green", 111. plur(uwep->quan)); 112. 113. while(uwep) /* let all of them disappear */ 114. /* note: uwep->quan = 1 is nogood if unpaid */ 115. useup(uwep); 116. return(1); 117. } 118. if(!rn2(6)) amount *= 2; 119. time = (amount*amount == 1) ? "moment" : "while"; 120. pline("Your %s %s for a %s.", 121. aobjnam(uwep, "glow"), color, time); 122. uwep->spe += amount; 123. if(amount > 0) uwep->cursed = 0; 124. return(1); 125. } 126. 127. int 128. welded(obj) register struct obj *obj; { 129. return(obj && obj == uwep && obj->cursed && 130. (obj->olet == WEAPON_SYM || obj->otyp == HEAVY_IRON_BALL || 131. obj->otyp == CAN_OPENER || obj->otyp == PICK_AXE)); 132. }
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)