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