diff -pruN slashem-0.0.7E7F1-official-release/include/color.h slashem-0.0.7E7F1-statuscolor/include/color.h
--- slashem-0.0.7E7F1-official-release/include/color.h	2005-07-02 09:24:44.000000000 +0200
+++ slashem-0.0.7E7F1-statuscolor/include/color.h	2005-11-01 17:03:21.000000000 +0100
@@ -73,4 +73,23 @@ struct menucoloring {
 };
 #endif
 
+#ifdef STATUS_COLORS
+struct color_option {
+    int color;
+    int attr_bits;
+};
+
+struct percent_color_option {
+	int percentage;
+	struct color_option color_option;
+	const struct percent_color_option *next;
+};
+
+struct text_color_option {
+	const char *text;
+	struct color_option color_option;
+	const struct text_color_option *next;
+};
+#endif
+
 #endif /* COLOR_H */
diff -pruN slashem-0.0.7E7F1-official-release/include/flag.h slashem-0.0.7E7F1-statuscolor/include/flag.h
--- slashem-0.0.7E7F1-official-release/include/flag.h	2005-07-02 09:24:44.000000000 +0200
+++ slashem-0.0.7E7F1-statuscolor/include/flag.h	2005-11-01 17:03:21.000000000 +0100
@@ -204,6 +204,9 @@ struct instance_flags {
 #ifdef MENU_COLOR
         boolean use_menu_color; /* use color in menus; only if wc_color */
 #endif
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	boolean use_status_colors; /* use color in status line; only if wc_color */
+#endif
 #ifdef MFLOPPY
 	boolean  checkspace;	/* check disk space before writing files */
 				/* (in iflags to allow restore after moving
diff -pruN slashem-0.0.7E7F1-official-release/README.statuscolors slashem-0.0.7E7F1-statuscolor/README.statuscolors
--- slashem-0.0.7E7F1-official-release/README.statuscolors	1970-01-01 01:00:00.000000000 +0100
+++ slashem-0.0.7E7F1-statuscolor/README.statuscolors	2005-11-01 17:03:21.000000000 +0100
@@ -0,0 +1,57 @@
+Statuscolors is a patch for Nethack (version 3.4.3) that attempts to generalize
+the hpmon patch to be more like the menucolors patch. Unlike menucolors, it
+does not use regexps. Instead, it provides the following options:
+
+To enable statuscolors:
+    OPTIONS=statuscolors
+
+To specify statuscolor options, write:
+    STATUSCOLOR=<option>,<option>
+
+Numeric options have the format <field>%<max-percent>:<color-option>. For
+example:
+    STATUSCOLOR=hp%15:red&bold,pw%100=green
+
+Text options have the format <text>:<color-option>. Text is case-insensitive.
+For example:
+    STATUSCOLOR=hallu:orange,foodpois:red&inverse&blink
+
+A color option is a <color> followed by an optional sequence of &<attr>. Color
+and attribute names are case insensitive. Valid colors are:
+    black blue brown cyan gray green lightblue lightcyan lightgreen
+    lightmagenta magenta none orange red white yellow
+
+Valid attributes are:
+    blink bold dim inverse none underline
+
+A reasonable set of defaults might be:
+    # HP
+    STATUSCOLOR=hp%100=green,hp%66=yellow,hp%50=orange
+    STATUSCOLOR=hp%33=red&bold,hp%15:red&inverse,hp%0:red&inverse&blink
+    # Pw
+    STATUSCOLOR=pw%100=green,pw%66=yellow,pw%50:orange,pw%33=red&bold
+    # Carry
+    STATUSCOLOR=burdened:yellow,stressed:orange,strained:red&bold
+    STATUSCOLOR=overtaxed:red&inverse,overloaded:red&inverse&blink
+    # Hunger
+    STATUSCOLOR=satiated:yellow,hungry:orange,weak:red&bold
+    STATUSCOLOR=fainting:red&inverse,fainted:red&inverse&blink
+    # Mental
+    STATUSCOLOR=hallu:yellow,conf:orange,stun:red&bold
+    # Health
+    STATUSCOLOR=ill:red&inverse,foodpois:red&inverse,slime:red&inverse
+    # Other
+    STATUSCOLOR=held:red&inverse,blind:red&inverse
+
+ChangeLog:
+
+    v1.1:
+      - Fixed several shameful bugs.
+
+    v1.0:
+      - Initial release.
+
+---
+Shachaf & Oren Ben-Kiki
+shachaf+nethack@gmail.com
+nethack-oren@ben-kiki.org
diff -pruN slashem-0.0.7E7F1-official-release/src/botl.c slashem-0.0.7E7F1-statuscolor/src/botl.c
--- slashem-0.0.7E7F1-official-release/src/botl.c	2005-07-02 09:24:44.000000000 +0200
+++ slashem-0.0.7E7F1-statuscolor/src/botl.c	2005-11-01 17:20:46.000000000 +0100
@@ -57,6 +57,106 @@ STATIC_DCL void FDECL(set_botl_warn, (in
 #define MAXCO (COLNO+20)
 #endif
 
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+
+extern const struct percent_color_option *hp_colors;
+extern const struct percent_color_option *pw_colors;
+extern const struct text_color_option *text_colors;
+
+struct color_option
+text_color_of(text, color_options)
+const char *text;
+const struct text_color_option *color_options;
+{
+	if (color_options == NULL) {
+		struct color_option result = {NO_COLOR, 0};
+		return result;
+	}
+	if (strstri(color_options->text, text)
+	 || strstri(text, color_options->text))
+		return color_options->color_option;
+	return text_color_of(text, color_options->next);
+}
+
+struct color_option
+percentage_color_of(value, max, color_options)
+int value, max;
+const struct percent_color_option *color_options;
+{
+	if (color_options == NULL) {
+		struct color_option result = {NO_COLOR, 0};
+		return result;
+	}
+	if (100 * value <= color_options->percentage * max)
+		return color_options->color_option;
+	return percentage_color_of(value, max, color_options->next);
+}
+
+void
+start_color_option(color_option)
+struct color_option color_option;
+{
+	int i;
+	if (color_option.color != NO_COLOR)
+		term_start_color(color_option.color);
+	for (i = 0; (1 << i) <= color_option.attr_bits; ++i)
+		if (i != ATR_NONE && color_option.attr_bits & (1 << i))
+			term_start_attr(i);
+}
+
+void
+end_color_option(color_option)
+struct color_option color_option;
+{
+	int i;
+	if (color_option.color != NO_COLOR)
+		term_end_color(color_option.color);
+	for (i = 0; (1 << i) <= color_option.attr_bits; ++i)
+		if (i != ATR_NONE && color_option.attr_bits & (1 << i))
+			term_end_attr(i);
+}
+
+void
+apply_color_option(color_option, newbot2)
+struct color_option color_option;
+const char *newbot2;
+{
+	if (!iflags.use_status_colors) return;
+	curs(WIN_STATUS, 1, 1);
+	start_color_option(color_option);
+	putstr(WIN_STATUS, 0, newbot2);
+	end_color_option(color_option);
+}
+
+void
+add_colored_text(text, newbot2)
+const char *text;
+char *newbot2;
+{
+	char *nb;
+	struct color_option color_option;
+
+	if (*text == '\0') return;
+
+	if (!iflags.use_status_colors) {
+		Sprintf(nb = eos(newbot2), " %s", text);
+                return;
+        }
+
+	Strcat(nb = eos(newbot2), " ");
+	curs(WIN_STATUS, 1, 1);
+	putstr(WIN_STATUS, 0, newbot2);
+
+	Strcat(nb = eos(nb), text);
+	curs(WIN_STATUS, 1, 1);
+       	color_option = text_color_of(text, text_colors);
+	start_color_option(color_option);
+	putstr(WIN_STATUS, 0, newbot2);
+	end_color_option(color_option);
+}
+
+#endif
+
 #ifndef OVLB
 STATIC_DCL int mrank_sz;
 #else /* OVLB */
@@ -326,6 +426,10 @@ bot2str(char *newbot2)
 	register char *nb;
 	int hp, hpmax;
 	int cap = near_capacity();
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	struct color_option color_option;
+	int save_botlx = flags.botlx;
+#endif
 #ifdef ALLEG_FX
 	int w;
 #endif
@@ -339,8 +443,7 @@ bot2str(char *newbot2)
 	else
 		newbot2[0] = '\0';
 	if (bot2_abbrev < 1)
-		Sprintf(nb = eos(newbot2), "%c:%-2ld ",
-		  oc_syms[COIN_CLASS],
+	  Sprintf(nb = eos(newbot2), "%c:%-2ld", oc_syms[COIN_CLASS],
 #ifndef GOLDOBJ
 		u.ugold
 #else
@@ -348,13 +451,36 @@ bot2str(char *newbot2)
 #endif
 		  );
 	else
-		nb = newbot2;
-	Sprintf(nb = eos(nb), "HP:%d(%d) Pw:%d(%d) AC:%-2d",
-		hp, hpmax, u.uen, u.uenmax, u.uac);
+	  {
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	    Strcat(nb = eos(newbot2), " HP:");
+	    curs(WIN_STATUS, 1, 1);
+	    putstr(WIN_STATUS, 0, newbot2);
+	    flags.botlx = 0;
+	    
+	    Sprintf(nb = eos(nb), "%d(%d)", hp, hpmax);
+	    apply_color_option(percentage_color_of(hp, hpmax, hp_colors), 
+			       newbot2);
+#else
+	    Sprintf(nb = eos(nb), " HP:%d(%d)", hp, hpmax);
+#endif
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	    Strcat(nb = eos(nb), " Pw:");
+	    curs(WIN_STATUS, 1, 1);
+	    putstr(WIN_STATUS, 0, newbot2);
+	    
+	    Sprintf(nb = eos(nb), "%d(%d)", u.uen, u.uenmax);
+	    apply_color_option(percentage_color_of(u.uen, u.uenmax, 
+						   pw_colors), newbot2);
+#else
+	    Sprintf(nb = eos(nb), " Pw:%d(%d)", u.uen, u.uenmax);
+#endif
+	    Sprintf(nb = eos(nb), " AC:%-2d", u.uac);
+	  }
 
 	if (Upolyd)
-		Sprintf(nb = eos(nb), " HD:%d", ((u.ulycn == u.umonnum) ? 
-						u.ulevel : mons[u.umonnum].mlevel));
+	  Sprintf(nb = eos(nb), " HD:%d", ((u.ulycn == u.umonnum) ? 
+					   u.ulevel : mons[u.umonnum].mlevel));
 #ifdef EXP_ON_BOTL
 	else if(flags.showexp && bot2_abbrev < 3)
 		Sprintf(nb = eos(nb), " Xp:%u/%-1ld", u.ulevel,u.uexp);
@@ -386,10 +512,12 @@ bot2str(char *newbot2)
 			Strcat(newbot2, hu_abbrev_stat[u.uhs]);
 		}
 	}
-	else if(strcmp(hu_stat[u.uhs], "        ")) {
-		Sprintf(nb = eos(nb), " ");
-		Strcat(newbot2, hu_stat[u.uhs]);
-	}
+	if(strcmp(hu_stat[u.uhs], "        "))
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	  add_colored_text(hu_stat[u.uhs], newbot2);
+#else
+	Sprintf(nb = eos(nb), " %s", hu_stat[u.uhs]);
+#endif
 
 /* WAC further Up
 #ifdef SCORE_ON_BOTL
@@ -399,30 +527,71 @@ bot2str(char *newbot2)
 #endif
 */
 	/* KMH -- changed to Lev */
-	if (Levitation)    Sprintf(nb = eos(nb), " Lev");
+	if (Levitation)    
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	  add_colored_text("Lev", newbot2);
+#else
+	Sprintf(nb = eos(nb), " Lev");
+#endif
 	if(Confusion)
-		Sprintf(nb = eos(nb), bot2_abbrev >= 2 ? " Cnf" : " Conf");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	  add_colored_text(bot2_abbrev >= 2 ? " Cnf" : "Conf", newbot2);
+#else
+	Strcat(nb = eos(nb), bot2_abbrev >= 2 ? " Cnf" : " Conf");
+#endif
 	if(Sick) {
-		if (u.usick_type & SICK_VOMITABLE)
-			   Sprintf(nb = eos(nb),
-			     bot2_abbrev >= 2 ? " FPs" : " FoodPois");
+	  if (u.usick_type & SICK_VOMITABLE)
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	    add_colored_text(bot2_abbrev >= 2 ? " FPs" : "FoodPois", newbot2);
+#else
+	  Strcat(nb = eos(nb), bot2_abbrev >= 2 ? " FPs" : " FoodPois");
+#endif
 		if (u.usick_type & SICK_NONVOMITABLE)
-			   Sprintf(nb = eos(nb), " Ill");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+		  add_colored_text("Ill", newbot2);
+#else
+		Strcat(nb = eos(nb), " Ill");
+#endif
 	}
 
 	if(Blind)
-		Sprintf(nb = eos(nb), bot2_abbrev >= 2 ? " Bnd" : " Blind");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+              add_colored_text(bot2_abbrev >= 2 ? " Bnd" : "Blind", newbot2);
+#else
+              Strcat(nb = eos(nb), bot2_abbrev >= 2 ? " Bnd" : " Blind");
+#endif
 	if(Stunned)
-		Sprintf(nb = eos(nb), bot2_abbrev >= 2 ? " Stn" : " Stun");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+              add_colored_text(bot2_abbrev >= 2 ? " Stn" : "Stun", newbot2);
+#else
+              Strcat(nb = eos(nb), bot2_abbrev >= 2 ? " Stn" : " Stun");
+#endif
 	if(Hallucination)
-		Sprintf(nb = eos(nb), bot2_abbrev >= 2 ? " Hal" : " Hallu");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+              add_colored_text(bot2_abbrev >= 2 ? " Hal" : "Hallu", newbot2);
+#else
+              Strcat(nb = eos(nb), bot2_abbrev >= 2 ? " Hal" : " Hallu");
+#endif
 	if(Slimed)
-		Sprintf(nb = eos(nb), bot2_abbrev >= 2 ? " Slm" : " Slime");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+              add_colored_text(bot2_abbrev >= 2 ? " Slm" : "Slime", newbot2);
+#else
+              Strcat(nb = eos(nb), bot2_abbrev >= 2 ? " Slm" : " Slime");
+#endif
 	if(u.ustuck && !u.uswallow && !sticks(youmonst.data))
-		Sprintf(nb = eos(nb), " Held");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	  add_colored_text("Held", newbot2);
+#else
+	Sprintf(nb = eos(nb), " Held");
+#endif
 	if(cap > UNENCUMBERED)
-		Sprintf(nb = eos(nb), " %s",
-		  bot2_abbrev >= 2 ? enc_abbrev_stat[cap] : enc_stat[cap]);
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+              add_colored_text(bot2_abbrev >= 2 ? enc_abbrev_stat[cap] : 
+			       enc_stat[cap], newbot2);
+#else
+                Sprintf(nb = eos(nb), " %s", bot2_abbrev >= 2 ? 
+			enc_abbrev_stat[cap] : enc_stat[cap]);
+#endif
 }
 
 STATIC_OVL void
@@ -434,6 +603,7 @@ bot2()
 	curs(WIN_STATUS, 1, 1);
 
 	putstr(WIN_STATUS, 0, newbot2);
+	flags.botlx = save_botlx
 	return;
 }
 
diff -pruN slashem-0.0.7E7F1-official-release/src/files.c slashem-0.0.7E7F1-statuscolor/src/files.c
--- slashem-0.0.7E7F1-official-release/src/files.c	2005-07-02 09:24:44.000000000 +0200
+++ slashem-0.0.7E7F1-statuscolor/src/files.c	2005-11-01 17:26:38.000000000 +0100
@@ -2012,6 +2012,10 @@ char		*tmp_levels;
 	} else if (match_varname(buf, "BOULDER", 3)) {
 	    (void) get_uchars(fp, buf, bufp, &iflags.bouldersym, TRUE,
 			      1, "BOULDER");
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	} else if (match_varname(buf, "STATUSCOLOR", 11)) {
+          (void) parse_status_color_options(bufp);
+#endif
 	} else if (match_varname(buf, "MENUCOLOR", 9)) {
 #ifdef MENU_COLOR
 	   add_menu_coloring(bufp);
diff -pruN slashem-0.0.7E7F1-official-release/src/options.c slashem-0.0.7E7F1-statuscolor/src/options.c
--- slashem-0.0.7E7F1-official-release/src/options.c	2005-07-02 09:24:44.000000000 +0200
+++ slashem-0.0.7E7F1-statuscolor/src/options.c	2005-11-01 17:03:21.000000000 +0100
@@ -158,6 +158,11 @@ static struct Bool_Opt
 #else
 	{"menu_tab_sep", (boolean *)0, FALSE, SET_IN_FILE},
 #endif
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	{"statuscolors", &iflags.use_status_colors, TRUE, SET_IN_GAME},
+#else
+	{"statuscolors", (boolean *)0, TRUE, SET_IN_GAME},
+#endif
 #ifdef WIZARD
 	{"mon_polycontrol", &iflags.mon_polycontrol, FALSE, SET_IN_GAME},
 #else
@@ -364,6 +369,7 @@ static struct Comp_Opt
 #ifdef MSDOS
 	{ "soundcard", "type of sound card to use", 20, SET_IN_FILE },
 #endif
+	{ "statuscolor", "set status colors", PL_PSIZ, SET_IN_FILE },
 	{ "suppress_alert", "suppress alerts about version-specific features",
 						8, SET_IN_GAME },
 	{ "tile_width", "width of tiles", 20, DISP_IN_GAME},	/*WC*/
@@ -1008,6 +1014,165 @@ const char *optn;
 	return 1;
 }
 
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+
+struct name_value {
+	char *name;
+	int value;
+};
+
+const struct name_value status_colornames[] = {
+	{ "black",	CLR_BLACK },
+	{ "red",	CLR_RED },
+	{ "green",	CLR_GREEN },
+	{ "brown",	CLR_BROWN },
+	{ "blue",	CLR_BLUE },
+	{ "magenta",	CLR_MAGENTA },
+	{ "cyan",	CLR_CYAN },
+	{ "gray",	CLR_GRAY },
+	{ "orange",	CLR_ORANGE },
+	{ "lightgreen",	CLR_BRIGHT_GREEN },
+	{ "yellow",	CLR_YELLOW },
+	{ "lightblue",	CLR_BRIGHT_BLUE },
+	{ "lightmagenta", CLR_BRIGHT_MAGENTA },
+	{ "lightcyan",	CLR_BRIGHT_CYAN },
+	{ "white",	CLR_WHITE },
+	{ NULL,		-1 }
+};
+
+const struct name_value status_attrnames[] = {
+	 { "none",	ATR_NONE },
+	 { "bold",	ATR_BOLD },
+	 { "dim",	ATR_DIM },
+	 { "underline",	ATR_ULINE },
+	 { "blink",	ATR_BLINK },
+	 { "inverse",	ATR_INVERSE },
+	 { NULL,	-1 }
+};
+
+int
+value_of_name(name, name_values)
+const char *name;
+const struct name_value *name_values;
+{
+	while (name_values->name && !strstri(name_values->name, name))
+		++name_values;
+	return name_values->value;
+}
+
+struct color_option
+parse_color_option(start)
+char *start;
+{
+	struct color_option result = {NO_COLOR, 0};
+	char last;
+	char *end;
+	int attr;
+
+	for (end = start; *end != '&' && *end != '\0'; ++end);
+	last = *end;
+	*end = '\0';
+	result.color = value_of_name(start, status_colornames);
+
+	while (last == '&') {
+		for (start = ++end; *end != '&' && *end != '\0'; ++end);
+		last = *end;
+		*end = '\0';
+		attr = value_of_name(start, status_attrnames);
+		if (attr >= 0)
+			result.attr_bits |= 1 << attr;
+	}
+
+	return result;
+}
+
+const struct percent_color_option *hp_colors = NULL;
+const struct percent_color_option *pw_colors = NULL;
+const struct text_color_option *text_colors = NULL;
+
+struct percent_color_option *
+add_percent_option(new_option, list_head)
+struct percent_color_option *new_option;
+struct percent_color_option *list_head;
+{
+	if (list_head == NULL)
+		return new_option;
+	if (new_option->percentage <= list_head->percentage) {
+		new_option->next = list_head;
+		return new_option;
+	}
+	list_head->next = add_percent_option(new_option, list_head->next);
+	return list_head;
+}
+
+boolean
+parse_status_color_option(start)
+char *start;
+{
+	char *middle;
+
+	while (*start && isspace(*start)) start++;
+	for (middle = start; *middle != ':' && *middle != '=' && *middle != '\0'; ++middle);
+	*middle++ = '\0';
+	if (middle - start > 2 && start[2] == '%') {
+		struct percent_color_option *percent_color_option =
+			(struct percent_color_option *)alloc(sizeof(*percent_color_option));
+		percent_color_option->next = NULL;
+		percent_color_option->percentage = atoi(start + 3);
+		percent_color_option->color_option = parse_color_option(middle);
+		start[2] = '\0';
+		if (percent_color_option->color_option.color >= 0
+		 && percent_color_option->color_option.attr_bits >= 0) {
+			if (!strcmpi(start, "hp")) {
+				hp_colors = add_percent_option(percent_color_option, hp_colors);
+				return TRUE;
+			}
+			if (!strcmpi(start, "pw")) {
+				pw_colors = add_percent_option(percent_color_option, pw_colors);
+				return TRUE;
+			}
+		}
+		free(percent_color_option);
+		return FALSE;
+	} else {
+		int length = strlen(start) + 1;
+		struct text_color_option *text_color_option =
+			(struct text_color_option *)alloc(sizeof(*text_color_option));
+		text_color_option->next = NULL;
+		text_color_option->text = (char *)alloc(length);
+		memcpy((char *)text_color_option->text, start, length);
+		text_color_option->color_option = parse_color_option(middle);
+		if (text_color_option->color_option.color >= 0
+		 && text_color_option->color_option.attr_bits >= 0) {
+			text_color_option->next = text_colors;
+			text_colors = text_color_option;
+			return TRUE;
+		}
+		free(text_color_option->text);
+		free(text_color_option);
+		return FALSE;
+	}
+}
+
+boolean
+parse_status_color_options(start)
+char *start;
+{
+	char last = ',';
+	char *end = start - 1;
+	boolean ok = TRUE;
+	while (last == ',') {
+		for (start = ++end; *end != ',' && *end != '\0'; ++end);
+		last = *end;
+		*end = '\0';
+		ok = parse_status_color_option(start) && ok;
+	}
+	return ok;
+}
+
+
+#endif /* STATUS_COLORS */
+
 void
 set_duplicate_opt_detection(on_or_off)
 int on_or_off;
@@ -1408,6 +1573,17 @@ boolean tinitial, tfrom_file;
 		return;
 	}
 
+	fullname = "statuscolor";
+	if (match_optname(opts, fullname, 11, TRUE)) {
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+		if (negated) bad_negation(fullname, FALSE);
+		else if ((op = string_for_env_opt(fullname, opts, FALSE)) != 0)
+			if (!parse_status_color_options(op))
+				badoption(opts);
+#endif
+	    return;
+	}
+	
 	fullname = "msghistory";
 	if (match_optname(opts, fullname, 3, TRUE)) {
 		op = string_for_env_opt(fullname, opts, negated);
diff -pruN slashem-0.0.7E7F1-official-release/src/save.c slashem-0.0.7E7F1-statuscolor/src/save.c
--- slashem-0.0.7E7F1-official-release/src/save.c	2005-07-02 09:24:44.000000000 +0200
+++ slashem-0.0.7E7F1-statuscolor/src/save.c	2005-11-01 17:28:26.000000000 +0100
@@ -55,6 +55,12 @@ static long nulls[10];
 extern struct menucoloring *menu_colorings;
 #endif
 
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+extern const struct percent_color_option *hp_colors;
+extern const struct percent_color_option *pw_colors;
+extern const struct text_color_option *text_colors;
+#endif
+
 /* need to preserve these during save to avoid accessing freed memory */
 static unsigned ustuck_id = 0, usteed_id = 0;
 
@@ -1052,12 +1058,44 @@ free_menu_coloring()
 }
 #endif
 
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+void
+free_percent_color_options(list_head)
+const struct percent_color_option *list_head;
+{
+      if (list_head == NULL) return;
+      free_percent_color_options(list_head->next);
+      free(list_head);
+}
+
+void
+free_text_color_options(list_head)
+const struct text_color_option *list_head;
+{
+      if (list_head == NULL) return;
+      free_text_color_options(list_head->next);
+      free(list_head->text);
+      free(list_head);
+}
+
+void
+free_status_colors()
+{
+      free_percent_color_options(hp_colors); hp_colors = NULL;
+      free_percent_color_options(pw_colors); pw_colors = NULL;
+      free_text_color_options(text_colors); text_colors = NULL;
+}
+#endif
+
 void
 freedynamicdata()
 {
 	unload_qtlist();
 	free_invbuf();	/* let_to_name (invent.c) */
 	free_youbuf();	/* You_buf,&c (pline.c) */
+#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
+	free_status_colors();
+#endif
 #ifdef MENU_COLOR
         free_menu_coloring();
 #endif