--- src-orig/monster1.c	Thu Aug 22 12:09:42 2002
+++ src/monster1.c	Wed Jan  1 04:12:03 2003
@@ -729,15 +729,15 @@ void describe_monster(int r_idx, int u_i
 	/* Speed */
 	if (r_ptr->speed > 110)
 	{
-		if (r_ptr->speed > 130) text_out(" incredibly");
-		else if (r_ptr->speed > 120) text_out(" very");
-		text_out(" quickly");
+		if (r_ptr->speed > 130) text_out_c(TERM_L_RED, " incredibly");
+		else if (r_ptr->speed > 120) text_out_c(TERM_L_RED, " very");
+		text_out_c(TERM_L_RED, " quickly");
 	}
 	else if (r_ptr->speed < 110)
 	{
-		if (r_ptr->speed < 90) text_out(" incredibly");
-		else if (r_ptr->speed < 100) text_out(" very");
-		text_out(" slowly");
+		if (r_ptr->speed < 90) text_out_c(TERM_L_BLUE, " incredibly");
+		else if (r_ptr->speed < 100) text_out_c(TERM_L_BLUE, " very");
+		text_out_c(TERM_L_BLUE, " slowly");
 	}
 	else
 	{
@@ -781,18 +781,18 @@ void describe_monster(int r_idx, int u_i
 		if (flags1 & (RF1_STUPID))	text_out(" unintelligent");
 
 		/* Describe the "quality" */
-		if (flags4 & (RF4_CHAOTIC))	text_out(" chaotic");
-		if (flags4 & (RF4_EVIL))	text_out(" evil");
-		if (flags4 & (RF4_UNDEAD))	text_out(" undead");
-		if (flags4 & (RF4_FAERY))	text_out(" faery");
+		if (flags4 & (RF4_CHAOTIC))	text_out_c(TERM_VIOLET, " chaotic");
+		if (flags4 & (RF4_EVIL))	text_out_c(TERM_VIOLET, " evil");
+		if (flags4 & (RF4_UNDEAD))	text_out_c(TERM_VIOLET, " undead");
+		if (flags4 & (RF4_FAERY))	text_out_c(TERM_VIOLET, " faery");
 
 		/* Describe the "race" */
-		if (flags4 & (RF4_DRAGON))			text_out(" dragon");
-		else if (flags4 & (RF4_DEMON))		text_out(" demon");
-		else if (flags4 & (RF4_HUMANOID))	text_out(" humanoid");
-		else if (flags4 & (RF4_PERSON))		text_out(" person");
-		else if (flags4 & (RF4_PLANT))		text_out(" plant");
-		else if (flags4 & (RF4_ANIMAL))		text_out(" animal");
+		if (flags4 & (RF4_DRAGON))			text_out_c(TERM_VIOLET, " dragon");
+		else if (flags4 & (RF4_DEMON))		text_out_c(TERM_VIOLET, " demon");
+		else if (flags4 & (RF4_HUMANOID))	text_out_c(TERM_VIOLET, " humanoid");
+		else if (flags4 & (RF4_PERSON))		text_out_c(TERM_VIOLET, " person");
+		else if (flags4 & (RF4_PLANT))		text_out_c(TERM_VIOLET, " plant");
+		else if (flags4 & (RF4_ANIMAL))		text_out_c(TERM_VIOLET, " animal");
 		else text_out(" creature");
 
 		/* Mention the experience */
@@ -864,7 +864,7 @@ void describe_monster(int r_idx, int u_i
 			else text_out(" or ");
 
 			/* Dump */
-			text_out(vp[n]);
+			text_out_c(TERM_YELLOW, vp[n]);
 		}
 
 		/* End */
@@ -892,7 +892,7 @@ void describe_monster(int r_idx, int u_i
 			else text_out(" or ");
 
 			/* Dump */
-			text_out(vp[n]);
+			text_out_c(TERM_YELLOW, vp[n]);
 		}
 	}
 
@@ -930,7 +930,7 @@ void describe_monster(int r_idx, int u_i
 			else text_out(" or ");
 
 			/* Dump */
-			text_out(vp[n]);
+			text_out_c(TERM_YELLOW, vp[n]);
 		}
 	}
 
@@ -1004,7 +1004,7 @@ void describe_monster(int r_idx, int u_i
 	/* Describe special abilities. */
 	if (flags2 & (RF2_INVISIBLE))
 	{
-		text_out(format("%^s is invisible.  ", wd_he[msex]));
+		text_out_c(TERM_GREEN,format("%^s is invisible.  ", wd_he[msex]));
 	}
 	if (flags2 & (RF2_COLD_BLOOD))
 	{
@@ -1025,7 +1025,7 @@ void describe_monster(int r_idx, int u_i
 	}
 	if (flags1 & (RF1_MULTIPLY))
 	{
-		text_out(format("%^s breeds explosively.  ", wd_he[msex]));
+		text_out_c(TERM_L_WHITE,format("%^s breeds explosively.  ", wd_he[msex]));
 	}
 	if (flags2 & (RF2_REGENERATE))
 	{
@@ -1053,7 +1053,7 @@ void describe_monster(int r_idx, int u_i
 			else text_out(" and ");
 
 			/* Dump */
-			text_out(vp[n]);
+			text_out_c(TERM_L_RED, vp[n]);
 		}
 
 		/* End */
@@ -1078,7 +1078,7 @@ void describe_monster(int r_idx, int u_i
 			else text_out(" or ");
 
 			/* Dump */
-			text_out(vp[n]);
+			text_out_c(TERM_BLUE,vp[n]);
 		}
 
 		/* End */
@@ -1103,7 +1103,7 @@ void describe_monster(int r_idx, int u_i
 			else text_out(" and ");
 
 			/* Dump */
-			text_out(vp[n]);
+			text_out_c(TERM_L_BLUE,vp[n]);
 		}
 
 		/* End */
@@ -1314,7 +1314,7 @@ void describe_monster(int r_idx, int u_i
 		{
 			/* Describe the attack type */
 			text_out(" to ");
-			text_out(q);
+			text_out_c(TERM_YELLOW,q);
 
 			/* Describe damage (if known) */
 			if (d1 && d2 && know_damage(l_ptr, r_idx, u_idx, m))