--- nh341orig/src/botl.c        Sun Feb 23 16:43:26 2003
+++ nh341hpmon/src/botl.c       Fri Mar  7 17:38:40 2003
@@ -248,6 +248,9 @@
        char  newbot2[MAXCO];
        register char *nb;
        int hp, hpmax;
+#ifdef HPMON
+       int hpcolor, hpattr;
+#endif
        int cap = near_capacity();
 
        hp = Upolyd ? u.mh : u.uhp;
@@ -256,6 +259,15 @@
        if(hp < 0) hp = 0;
        (void) describe_level(newbot2);
        Sprintf(nb = eos(newbot2),
+#ifdef HPMON
+               "%c:%-2ld HP:", oc_syms[COIN_CLASS],
+#ifndef GOLDOBJ
+               u.ugold
+#else
+               money_cnt(invent)
+#endif
+               );
+#else /* HPMON */
                "%c:%-2ld HP:%d(%d) Pw:%d(%d) AC:%-2d", oc_syms[COIN_CLASS],
 #ifndef GOLDOBJ
                u.ugold,
@@ -263,6 +275,39 @@
                money_cnt(invent),
 #endif
                hp, hpmax, u.uen, u.uenmax, u.uac);
+#endif /* HPMON */
+#ifdef HPMON
+       curs(WIN_STATUS, 1, 1);
+       putstr(WIN_STATUS, 0, newbot2);
+
+       Sprintf(nb = eos(newbot2), "%d(%d)", hp, hpmax);
+#ifdef TEXTCOLOR
+       if (iflags.use_color) {
+         curs(WIN_STATUS, 1, 1);
+         hpattr = ATR_NONE;
+         if(hp == hpmax){
+           hpcolor = NO_COLOR;
+         } else if(hp > (hpmax*2/3)) {
+           hpcolor = CLR_GREEN;
+         } else if(hp <= (hpmax/3)) {
+           hpcolor = CLR_RED;
+           if(hp<=(hpmax/10)) 
+             hpattr = ATR_BLINK;
+         } else {
+           hpcolor = CLR_YELLOW;
+         }
+         if (hpcolor != NO_COLOR)
+           term_start_color(hpcolor);
+         if(hpattr!=ATR_NONE)term_start_attr(hpattr);
+         putstr(WIN_STATUS, hpattr, newbot2);
+         if(hpattr!=ATR_NONE)term_end_attr(hpattr);
+         if (hpcolor != NO_COLOR)
+           term_end_color();
+       }
+#endif /* TEXTCOLOR */
+       Sprintf(nb = eos(newbot2), " Pw:%d(%d) AC:%-2d",
+               u.uen, u.uenmax, u.uac);
+#endif /* HPMON */
 
        if (Upolyd)
                Sprintf(nb = eos(nb), " HD:%d", mons[u.umonnum].mlevel);