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