Use STD*_FILENO.

[bsdgames-darwin.git] / hack / hack.eat.c

diff --git a/hack/hack.eat.c b/hack/hack.eat.c
index 7745f63feb2e9bc0ae782896733326482b7541dc..3685ba5d8c1c8f685090865762d5fc3cdcc907e8 100644 (file)
--- a/hack/hack.eat.c
+++ b/hack/hack.eat.c
@@ -1,18 +1,17 @@
+/*     $NetBSD: hack.eat.c,v 1.4 1997/10/19 16:57:53 christos Exp $    */
+

 /*
  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
  */
 
 /*
  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
  */
 

+#include <sys/cdefs.h>

 #ifndef lint
 #ifndef lint

-static char rcsid[] = "$NetBSD: hack.eat.c,v 1.3 1995/03/23 08:30:01 cgd Exp $";
-#endif /* not lint */
+__RCSID("$NetBSD: hack.eat.c,v 1.4 1997/10/19 16:57:53 christos Exp $");
+#endif                         /* not lint */

 
 

-#include       "hack.h"
-char POISONOUS[] = "ADKSVabhks";
-extern char *nomovemsg;
-extern int (*afternmv)();
-extern int (*occupation)();
-extern char *occtxt;
-extern struct obj *splitobj(), *addinv();
+#include "hack.h"
+#include "extern.h"
+char            POISONOUS[] = "ADKSVabhks";

 
 /* hunger texts used on bottom line (each 8 chars long) */
 #define        SATIATED        0
 
 /* hunger texts used on bottom line (each 8 chars long) */
 #define        SATIATED        0


@@ -23,7 +22,7 @@ extern struct obj *splitobj(), *addinv();
 #define FAINTED                5
 #define STARVED                6
 
 #define FAINTED                5
 #define STARVED                6
 

-char *hu_stat[] = {
+char           *hu_stat[] = {

        "Satiated",
        "        ",
        "Hungry  ",
        "Satiated",
        "        ",
        "Hungry  ",


@@ -33,94 +32,108 @@ char *hu_stat[] = {
        "Starved "
 };
 
        "Starved "
 };
 

-init_uhunger(){
+void
+init_uhunger()
+{

        u.uhunger = 900;
        u.uhs = NOT_HUNGRY;
 }
 
 #define        TTSZ    SIZE(tintxts)
        u.uhunger = 900;
        u.uhs = NOT_HUNGRY;
 }
 
 #define        TTSZ    SIZE(tintxts)

-struct { char *txt; int nut; } tintxts[] = {
-       "It contains first quality peaches - what a surprise!", 40,
-       "It contains salmon - not bad!",        60,
-       "It contains apple juice - perhaps not what you hoped for.", 20,
-       "It contains some nondescript substance, tasting awfully.", 500,
-       "It contains rotten meat. You vomit.", -50,
-       "It turns out to be empty.",    0
+struct {
+       char           *txt;
+       int             nut;
+}               tintxts[] = {
+       { "It contains first quality peaches - what a surprise!", 40 },
+       { "It contains salmon - not bad!", 60 },
+       { "It contains apple juice - perhaps not what you hoped for.", 20 },
+       { "It contains some nondescript substance, tasting awfully.", 500 },
+       { "It contains rotten meat. You vomit.", -50 },
+       { "It turns out to be empty.", 0 }

 };
 
 static struct {
 };
 
 static struct {

-       struct obj *tin;
-       int usedtime, reqtime;
-} tin;
+       struct obj     *tin;
+       int             usedtime, reqtime;
+}               tin;

 
 

-opentin(){
-       register int r;
+int
+opentin()
+{
+       int             r;

 
 

-       if(!carried(tin.tin))           /* perhaps it was stolen? */
-               return(0);              /* %% probably we should use tinoid */
-       if(tin.usedtime++ >= 50) {
+       if (!carried(tin.tin))  /* perhaps it was stolen? */
+               return (0);     /* %% probably we should use tinoid */
+       if (tin.usedtime++ >= 50) {

                pline("You give up your attempt to open the tin.");
                pline("You give up your attempt to open the tin.");

-               return(0);
+               return (0);

        }
        }

-       if(tin.usedtime < tin.reqtime)
-               return(1);              /* still busy */
+       if (tin.usedtime < tin.reqtime)
+               return (1);     /* still busy */

 
        pline("You succeed in opening the tin.");
        useup(tin.tin);
 
        pline("You succeed in opening the tin.");
        useup(tin.tin);

-       r = rn2(2*TTSZ);
-       if(r < TTSZ){
-           pline(tintxts[r].txt);
-           lesshungry(tintxts[r].nut);
-           if(r == 1)  /* SALMON */ {
-               Glib = rnd(15);
-               pline("Eating salmon made your fingers very slippery.");
-           }
+       r = rn2(2 * TTSZ);
+       if (r < TTSZ) {
+               pline(tintxts[r].txt);
+               lesshungry(tintxts[r].nut);
+               if (r == 1) {   /* SALMON */
+                       Glib = rnd(15);
+                       pline("Eating salmon made your fingers very slippery.");
+               }

        } else {
        } else {

-           pline("It contains spinach - this makes you feel like Popeye!");
-           lesshungry(600);
-           if(u.ustr < 118)
-               u.ustr += rnd( ((u.ustr < 17) ? 19 : 118) - u.ustr);
-           if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
-           flags.botl = 1;
+               pline("It contains spinach - this makes you feel like Popeye!");
+               lesshungry(600);
+               if (u.ustr < 118)
+                       u.ustr += rnd(((u.ustr < 17) ? 19 : 118) - u.ustr);
+               if (u.ustr > u.ustrmax)
+                       u.ustrmax = u.ustr;
+               flags.botl = 1;

        }
        }

-       return(0);
+       return (0);

 }
 
 }
 

-Meatdone(){
+int
+Meatdone()
+{

        u.usym = '@';
        prme();
        u.usym = '@';
        prme();

+       return 0;

 }
 
 }
 

-doeat(){
-       register struct obj *otmp;
-       register struct objclass *ftmp;
-       register tmp;
+int
+doeat()
+{
+       struct obj     *otmp;
+       struct objclass *ftmp;
+       int tmp;

 
        /* Is there some food (probably a heavy corpse) here on the ground? */
 
        /* Is there some food (probably a heavy corpse) here on the ground? */

-       if(!Levitation)
-       for(otmp = fobj; otmp; otmp = otmp->nobj) {
-               if(otmp->ox == u.ux && otmp->oy == u.uy &&
-                  otmp->olet == FOOD_SYM) {
-                       pline("There %s %s here; eat %s? [ny] ",
-                               (otmp->quan == 1) ? "is" : "are",
-                               doname(otmp),
-                               (otmp->quan == 1) ? "it" : "one");
-                       if(readchar() == 'y') {
-                               if(otmp->quan != 1)
-                                       (void) splitobj(otmp, 1);
-                               freeobj(otmp);
-                               otmp = addinv(otmp);
-                               addtobill(otmp);
-                               goto gotit;
+       if (!Levitation)
+               for (otmp = fobj; otmp; otmp = otmp->nobj) {
+                       if (otmp->ox == u.ux && otmp->oy == u.uy &&
+                           otmp->olet == FOOD_SYM) {
+                               pline("There %s %s here; eat %s? [ny] ",
+                                     (otmp->quan == 1) ? "is" : "are",
+                                     doname(otmp),
+                                     (otmp->quan == 1) ? "it" : "one");
+                               if (readchar() == 'y') {
+                                       if (otmp->quan != 1)
+                                               (void) splitobj(otmp, 1);
+                                       freeobj(otmp);
+                                       otmp = addinv(otmp);
+                                       addtobill(otmp);
+                                       goto gotit;
+                               }

                        }
                }
                        }
                }

-       }

        otmp = getobj("%", "eat");
        otmp = getobj("%", "eat");

-       if(!otmp) return(0);
+       if (!otmp)
+               return (0);

 gotit:
 gotit:

-       if(otmp->otyp == TIN){
-               if(uwep) {
-                       switch(uwep->otyp) {
+       if (otmp->otyp == TIN) {
+               if (uwep) {
+                       switch (uwep->otyp) {

                        case CAN_OPENER:
                                tmp = 1;
                                break;
                        case CAN_OPENER:
                                tmp = 1;
                                break;


@@ -136,115 +149,120 @@ gotit:
                                goto no_opener;
                        }
                        pline("Using your %s you try to open the tin.",
                                goto no_opener;
                        }
                        pline("Using your %s you try to open the tin.",

-                               aobjnam(uwep, (char *) 0));
+                             aobjnam(uwep, (char *) 0));

                } else {
                } else {

-               no_opener:
+       no_opener:

                        pline("It is not so easy to open this tin.");
                        pline("It is not so easy to open this tin.");

-                       if(Glib) {
+                       if (Glib) {

                                pline("The tin slips out of your hands.");
                                pline("The tin slips out of your hands.");

-                               if(otmp->quan > 1) {
-                                       register struct obj *obj;
-                                       extern struct obj *splitobj();
+                               if (otmp->quan > 1) {
+                                       struct obj     *obj;

 
                                        obj = splitobj(otmp, 1);
 
                                        obj = splitobj(otmp, 1);

-                                       if(otmp == uwep) setuwep(obj);
+                                       if (otmp == uwep)
+                                               setuwep(obj);

                                }
                                dropx(otmp);
                                }
                                dropx(otmp);

-                               return(1);
+                               return (1);

                        }
                        }

-                       tmp = 10 + rn2(1 + 500/((int)(u.ulevel + u.ustr)));
+                       tmp = 10 + rn2(1 + 500 / ((int) (u.ulevel + u.ustr)));

                }
                tin.reqtime = tmp;
                tin.usedtime = 0;
                tin.tin = otmp;
                occupation = opentin;
                occtxt = "opening the tin";
                }
                tin.reqtime = tmp;
                tin.usedtime = 0;
                tin.tin = otmp;
                occupation = opentin;
                occtxt = "opening the tin";

-               return(1);
+               return (1);

        }
        ftmp = &objects[otmp->otyp];
        multi = -ftmp->oc_delay;
        }
        ftmp = &objects[otmp->otyp];
        multi = -ftmp->oc_delay;

-       if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx;
-       if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
+       if (otmp->otyp >= CORPSE && eatcorpse(otmp))
+               goto eatx;
+       if (!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {

                pline("Blecch!  Rotten food!");
                pline("Blecch!  Rotten food!");

-               if(!rn2(4)) {
+               if (!rn2(4)) {

                        pline("You feel rather light headed.");
                        pline("You feel rather light headed.");

-                       Confusion += d(2,4);
-               } else if(!rn2(4)&& !Blind) {
+                       Confusion += d(2, 4);
+               } else if (!rn2(4) && !Blind) {

                        pline("Everything suddenly goes dark.");
                        pline("Everything suddenly goes dark.");

-                       Blind = d(2,10);
+                       Blind = d(2, 10);

                        seeoff(0);
                        seeoff(0);

-               } else if(!rn2(3)) {
-                       if(Blind)
-                         pline("The world spins and you slap against the floor.");
+               } else if (!rn2(3)) {
+                       if (Blind)
+                               pline("The world spins and you slap against the floor.");

                        else
                        else

-                         pline("The world spins and goes dark.");
+                               pline("The world spins and goes dark.");

                        nomul(-rnd(10));
                        nomovemsg = "You are conscious again.";
                }
                lesshungry(ftmp->nutrition / 4);
        } else {
                        nomul(-rnd(10));
                        nomovemsg = "You are conscious again.";
                }
                lesshungry(ftmp->nutrition / 4);
        } else {

-               if(u.uhunger >= 1500) {
+               if (u.uhunger >= 1500) {

                        pline("You choke over your food.");
                        pline("You die...");
                        killer = ftmp->oc_name;
                        done("choked");
                }
                        pline("You choke over your food.");
                        pline("You die...");
                        killer = ftmp->oc_name;
                        done("choked");
                }

-               switch(otmp->otyp){
+               switch (otmp->otyp) {

                case FOOD_RATION:
                case FOOD_RATION:

-                       if(u.uhunger <= 200)
+                       if (u.uhunger <= 200)

                                pline("That food really hit the spot!");
                                pline("That food really hit the spot!");

-                       else if(u.uhunger <= 700)
+                       else if (u.uhunger <= 700)

                                pline("That satiated your stomach!");
                        else {
                                pline("That satiated your stomach!");
                        else {

-       pline("You're having a hard time getting all that food down.");
+                               pline("You're having a hard time getting all that food down.");

                                multi -= 2;
                        }
                        lesshungry(ftmp->nutrition);
                                multi -= 2;
                        }
                        lesshungry(ftmp->nutrition);

-                       if(multi < 0) nomovemsg = "You finished your meal.";
+                       if (multi < 0)
+                               nomovemsg = "You finished your meal.";

                        break;
                case TRIPE_RATION:
                        pline("Yak - dog food!");
                        break;
                case TRIPE_RATION:
                        pline("Yak - dog food!");

-                       more_experienced(1,0);
+                       more_experienced(1, 0);

                        flags.botl = 1;
                        flags.botl = 1;

-                       if(rn2(2)){
+                       if (rn2(2)) {

                                pline("You vomit.");
                                morehungry(20);
                                pline("You vomit.");
                                morehungry(20);

-                               if(Sick) {
+                               if (Sick) {

                                        Sick = 0;       /* David Neves */
                                        pline("What a relief!");
                                }
                                        Sick = 0;       /* David Neves */
                                        pline("What a relief!");
                                }

-                       } else  lesshungry(ftmp->nutrition);
+                       } else
+                               lesshungry(ftmp->nutrition);

                        break;
                default:
                        break;
                default:

-                       if(otmp->otyp >= CORPSE)
-                       pline("That %s tasted terrible!",ftmp->oc_name);
+                       if (otmp->otyp >= CORPSE)
+                               pline("That %s tasted terrible!", ftmp->oc_name);

                        else
                        else

-                       pline("That %s was delicious!",ftmp->oc_name);
+                               pline("That %s was delicious!", ftmp->oc_name);

                        lesshungry(ftmp->nutrition);
                        lesshungry(ftmp->nutrition);

-                       if(otmp->otyp == DEAD_LIZARD && (Confusion > 2))
+                       if (otmp->otyp == DEAD_LIZARD && (Confusion > 2))

                                Confusion = 2;
                        else
 #ifdef QUEST
                                Confusion = 2;
                        else
 #ifdef QUEST

-                       if(otmp->otyp == CARROT && !Blind){
+                       if (otmp->otyp == CARROT && !Blind) {

                                u.uhorizon++;
                                setsee();
                                pline("Your vision improves.");
                        } else
                                u.uhorizon++;
                                setsee();
                                pline("Your vision improves.");
                        } else

-#endif QUEST
-                       if(otmp->otyp == FORTUNE_COOKIE) {
-                         if(Blind) {
-                           pline("This cookie has a scrap of paper inside!");
-                           pline("What a pity, that you cannot read it!");
-                         } else
-                           outrumor();
-                       } else
-                       if(otmp->otyp == LUMP_OF_ROYAL_JELLY) {
+#endif /* QUEST */
+                       if (otmp->otyp == FORTUNE_COOKIE) {
+                               if (Blind) {
+                                       pline("This cookie has a scrap of paper inside!");
+                                       pline("What a pity, that you cannot read it!");
+                               } else
+                                       outrumor();
+                       } else if (otmp->otyp == LUMP_OF_ROYAL_JELLY) {

                                /* This stuff seems to be VERY healthy! */
                                /* This stuff seems to be VERY healthy! */

-                               if(u.ustrmax < 118) u.ustrmax++;
-                               if(u.ustr < u.ustrmax) u.ustr++;
+                               if (u.ustrmax < 118)
+                                       u.ustrmax++;
+                               if (u.ustr < u.ustrmax)
+                                       u.ustr++;

                                u.uhp += rnd(20);
                                u.uhp += rnd(20);

-                               if(u.uhp > u.uhpmax) {
-                                       if(!rn2(17)) u.uhpmax++;
+                               if (u.uhp > u.uhpmax) {
+                                       if (!rn2(17))
+                                               u.uhpmax++;

                                        u.uhp = u.uhpmax;
                                }
                                heal_legs();
                                        u.uhp = u.uhpmax;
                                }
                                heal_legs();


@@ -253,71 +271,89 @@ gotit:
                }
        }
 eatx:
                }
        }
 eatx:

-       if(multi<0 && !nomovemsg){
-               static char msgbuf[BUFSZ];
+       if (multi < 0 && !nomovemsg) {
+               static char     msgbuf[BUFSZ];

                (void) sprintf(msgbuf, "You finished eating the %s.",
                (void) sprintf(msgbuf, "You finished eating the %s.",

-                               ftmp->oc_name);
+                              ftmp->oc_name);

                nomovemsg = msgbuf;
        }
        useup(otmp);
                nomovemsg = msgbuf;
        }
        useup(otmp);

-       return(1);
+       return (1);

 }
 
 /* called in hack.main.c */
 }
 
 /* called in hack.main.c */

-gethungry(){
+void
+gethungry()
+{

        --u.uhunger;
        --u.uhunger;

-       if(moves % 2) {
-               if(Regeneration) u.uhunger--;
-               if(Hunger) u.uhunger--;
-               /* a3:  if(Hunger & LEFT_RING) u.uhunger--;
-                       if(Hunger & RIGHT_RING) u.uhunger--;
-                  etc. */
+       if (moves % 2) {
+               if (Regeneration)
+                       u.uhunger--;
+               if (Hunger)
+                       u.uhunger--;
+               /*
+                * a3:  if(Hunger & LEFT_RING) u.uhunger--; if(Hunger &
+                * RIGHT_RING) u.uhunger--; etc.
+                */

        }
        }

-       if(moves % 20 == 0) {                   /* jimt@asgb */
-               if(uleft) u.uhunger--;
-               if(uright) u.uhunger--;
+       if (moves % 20 == 0) {  /* jimt@asgb */
+               if (uleft)
+                       u.uhunger--;
+               if (uright)
+                       u.uhunger--;

        }
        newuhs(TRUE);
 }
 
 /* called after vomiting and after performing feats of magic */
        }
        newuhs(TRUE);
 }
 
 /* called after vomiting and after performing feats of magic */

-morehungry(num) register num; {
+void
+morehungry(num)
+       int num;
+{

        u.uhunger -= num;
        newuhs(TRUE);
 }
 
 /* called after eating something (and after drinking fruit juice) */
        u.uhunger -= num;
        newuhs(TRUE);
 }
 
 /* called after eating something (and after drinking fruit juice) */

-lesshungry(num) register num; {
+void
+lesshungry(num)
+       int num;
+{

        u.uhunger += num;
        newuhs(FALSE);
 }
 
        u.uhunger += num;
        newuhs(FALSE);
 }
 

-unfaint(){
+int
+unfaint()
+{

        u.uhs = FAINTING;
        flags.botl = 1;
        u.uhs = FAINTING;
        flags.botl = 1;

+       return 0;

 }
 
 }
 

-newuhs(incr) boolean incr; {
-       register int newhs, h = u.uhunger;
+void
+newuhs(incr)
+       boolean         incr;
+{
+       int             newhs, h = u.uhunger;

 
        newhs = (h > 1000) ? SATIATED :
                (h > 150) ? NOT_HUNGRY :
                (h > 50) ? HUNGRY :
                (h > 0) ? WEAK : FAINTING;
 
 
        newhs = (h > 1000) ? SATIATED :
                (h > 150) ? NOT_HUNGRY :
                (h > 50) ? HUNGRY :
                (h > 0) ? WEAK : FAINTING;
 

-       if(newhs == FAINTING) {
-               if(u.uhs == FAINTED)
+       if (newhs == FAINTING) {
+               if (u.uhs == FAINTED)

                        newhs = FAINTED;
                        newhs = FAINTED;

-               if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) {
-                       if(u.uhs != FAINTED && multi >= 0 /* %% */) {
+               if (u.uhs <= WEAK || rn2(20 - u.uhunger / 10) >= 19) {
+                       if (u.uhs != FAINTED && multi >= 0 /* %% */ ) {

                                pline("You faint from lack of food.");
                                pline("You faint from lack of food.");

-                               nomul(-10+(u.uhunger/10));
+                               nomul(-10 + (u.uhunger / 10));

                                nomovemsg = "You regain consciousness.";
                                afternmv = unfaint;
                                newhs = FAINTED;
                        }
                                nomovemsg = "You regain consciousness.";
                                afternmv = unfaint;
                                newhs = FAINTED;
                        }

-               } else
-               if(u.uhunger < -(int)(200 + 25*u.ulevel)) {
+               } else if (u.uhunger < -(int) (200 + 25 * u.ulevel)) {

                        u.uhs = STARVED;
                        flags.botl = 1;
                        bot();
                        u.uhs = STARVED;
                        flags.botl = 1;
                        bot();


@@ -325,28 +361,26 @@ newuhs(incr) boolean incr; {
                        done("starved");
                }
        }
                        done("starved");
                }
        }

-
-       if(newhs != u.uhs) {
-               if(newhs >= WEAK && u.uhs < WEAK)
+       if (newhs != u.uhs) {
+               if (newhs >= WEAK && u.uhs < WEAK)

                        losestr(1);     /* this may kill you -- see below */
                        losestr(1);     /* this may kill you -- see below */

-               else
-               if(newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
+               else if (newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)

                        losestr(-1);
                        losestr(-1);

-               switch(newhs){
+               switch (newhs) {

                case HUNGRY:
                        pline((!incr) ? "You only feel hungry now." :
                              (u.uhunger < 145) ? "You feel hungry." :
                case HUNGRY:
                        pline((!incr) ? "You only feel hungry now." :
                              (u.uhunger < 145) ? "You feel hungry." :

-                               "You are beginning to feel hungry.");
+                             "You are beginning to feel hungry.");

                        break;
                case WEAK:
                        pline((!incr) ? "You feel weak now." :
                              (u.uhunger < 45) ? "You feel weak." :
                        break;
                case WEAK:
                        pline((!incr) ? "You feel weak now." :
                              (u.uhunger < 45) ? "You feel weak." :

-                               "You are beginning to feel weak.");
+                             "You are beginning to feel weak.");

                        break;
                }
                u.uhs = newhs;
                flags.botl = 1;
                        break;
                }
                u.uhs = newhs;
                flags.botl = 1;

-               if(u.uhp < 1) {
+               if (u.uhp < 1) {

                        pline("You die from hunger and exhaustion.");
                        killer = "exhaustion";
                        done("starved");
                        pline("You die from hunger and exhaustion.");
                        killer = "exhaustion";
                        done("starved");


@@ -357,36 +391,40 @@ newuhs(incr) boolean incr; {
 #define        CORPSE_I_TO_C(otyp)     (char) ((otyp >= DEAD_ACID_BLOB)\
                     ?  'a' + (otyp - DEAD_ACID_BLOB)\
                     :  '@' + (otyp - DEAD_HUMAN))
 #define        CORPSE_I_TO_C(otyp)     (char) ((otyp >= DEAD_ACID_BLOB)\
                     ?  'a' + (otyp - DEAD_ACID_BLOB)\
                     :  '@' + (otyp - DEAD_HUMAN))

+int

 poisonous(otmp)
 poisonous(otmp)

-register struct obj *otmp;
+       struct obj     *otmp;

 {
 {

-       return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
+       return (strchr(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);

 }
 
 /* returns 1 if some text was printed */
 }
 
 /* returns 1 if some text was printed */

-eatcorpse(otmp) register struct obj *otmp; {
-register char let = CORPSE_I_TO_C(otmp->otyp);
-register tp = 0;
-       if(let != 'a' && moves > otmp->age + 50 + rn2(100)) {
+int
+eatcorpse(otmp)
+       struct obj     *otmp;
+{
+       char            let = CORPSE_I_TO_C(otmp->otyp);
+       int             tp = 0;
+       if (let != 'a' && moves > otmp->age + 50 + rn2(100)) {

                tp++;
                pline("Ulch -- that meat was tainted!");
                pline("You get very sick.");
                Sick = 10 + rn2(10);
                u.usick_cause = objects[otmp->otyp].oc_name;
                tp++;
                pline("Ulch -- that meat was tainted!");
                pline("You get very sick.");
                Sick = 10 + rn2(10);
                u.usick_cause = objects[otmp->otyp].oc_name;

-       } else if(index(POISONOUS, let) && rn2(5)){
+       } else if (strchr(POISONOUS, let) && rn2(5)) {

                tp++;
                pline("Ecch -- that must have been poisonous!");
                tp++;
                pline("Ecch -- that must have been poisonous!");

-               if(!Poison_resistance){
+               if (!Poison_resistance) {

                        losestr(rnd(4));
                        losehp(rnd(15), "poisonous corpse");
                } else
                        pline("You don't seem affected by the poison.");
                        losestr(rnd(4));
                        losehp(rnd(15), "poisonous corpse");
                } else
                        pline("You don't seem affected by the poison.");

-       } else if(index("ELNOPQRUuxz", let) && rn2(5)){
+       } else if (strchr("ELNOPQRUuxz", let) && rn2(5)) {

                tp++;
                pline("You feel sick.");
                losehp(rnd(8), "cadaver");
        }
                tp++;
                pline("You feel sick.");
                losehp(rnd(8), "cadaver");
        }

-       switch(let) {
+       switch (let) {

        case 'L':
        case 'N':
        case 't':
        case 'L':
        case 'N':
        case 't':


@@ -407,9 +445,9 @@ register tp = 0;
                Aggravate_monster |= INTRINSIC;
                break;
        case 'I':
                Aggravate_monster |= INTRINSIC;
                break;
        case 'I':

-               if(!Invis) {
-                       Invis = 50+rn2(100);
-                       if(!See_invisible)
+               if (!Invis) {
+                       Invis = 50 + rn2(100);
+                       if (!See_invisible)

                                newsym(u.ux, u.uy);
                } else {
                        Invis |= INTRINSIC;
                                newsym(u.ux, u.uy);
                } else {
                        Invis |= INTRINSIC;


@@ -419,7 +457,7 @@ register tp = 0;
        case 'y':
 #ifdef QUEST
                u.uhorizon++;
        case 'y':
 #ifdef QUEST
                u.uhorizon++;

-#endif QUEST
+#endif /* QUEST */

                /* fall into next case */
        case 'B':
                Confusion = 50;
                /* fall into next case */
        case 'B':
                Confusion = 50;


@@ -444,21 +482,21 @@ register tp = 0;
                done("died");
                /* NOTREACHED */
        case 'a':
                done("died");
                /* NOTREACHED */
        case 'a':

-         if(Stoned) {
-             pline("What a pity - you just destroyed a future piece of art!");
-             tp++;
-             Stoned = 0;
-         }
-         break;
+               if (Stoned) {
+                       pline("What a pity - you just destroyed a future piece of art!");
+                       tp++;
+                       Stoned = 0;
+               }
+               break;

        case 'M':
        case 'M':

-         pline("You cannot resist the temptation to mimic a treasure chest.");
-         tp++;
-         nomul(-30);
-         afternmv = Meatdone;
-         nomovemsg = "You now again prefer mimicking a human.";
-         u.usym = '$';
-         prme();
-         break;
+               pline("You cannot resist the temptation to mimic a treasure chest.");
+               tp++;
+               nomul(-30);
+               afternmv = Meatdone;
+               nomovemsg = "You now again prefer mimicking a human.";
+               u.usym = '$';
+               prme();
+               break;

        }
        }

-       return(tp);
+       return (tp);

 }
 }