Add litmus test

Original patch by Dylan O'Donnell

src/decl.c

@@ -216,7 +216,7 @@ NEARDATA struct c_color_names c_color_names = {
 	"black", "amber", "golden",
 	"light blue", "red", "green",
 	"silver", "blue", "purple",
-	"white"
+	"white", "orange"
 };
 
 struct menucoloring *menu_colorings = NULL;

src/potion.c

@@ -1819,6 +1819,15 @@ dodip()
 	    return 1;
 	}
 
+        if(potion->otyp == POT_ACID && obj->otyp == CORPSE &&
+           obj->corpsenm == PM_LICHEN & !Blind) {
+               pline("%s %s %s around the edges.", The(cxname(obj)),
+                     otense(obj, "turn"), potion->odiluted ?
+                     hcolor(NH_ORANGE) : hcolor(NH_RED));
+               potion->in_use = FALSE;    /* didn't go poof */
+               return(1);
+	}
+
 	if(is_poisonable(obj)) {
 	    if(potion->otyp == POT_SICKNESS && !obj->opoisoned) {
 		char buf[BUFSZ];

src/pray.c

@@ -1370,7 +1370,7 @@ dosacrifice()
 		      a_gname(), u_gname());
 		pline("%s is enraged...", u_gname());
 		pline("Fortunately, %s permits you to live...", a_gname());
-		pline(cloud_of_smoke, hcolor("orange"));
+		pline(cloud_of_smoke, hcolor(NH_ORANGE));
 		done(ESCAPED);
 	    } else { /* super big win */
 		adjalign(10);