Curses: fix pile hilite background color

The curses colorpair rework I did changed the pile hilite background
color from blue to red. Change it back to blue, and use a function
to get the color pair instead of hardcoding the value.

win/curses/cursmain.c

@@ -954,7 +954,7 @@ curses_print_glyph(
 */
         if ((special & MG_OBJPILE) && iflags.hilite_pile) {
             if (iflags.wc_color)
-                color = 16 + (color * 2) + 1;
+                color = get_framecolor(color, CLR_BLUE);
             else /* if (iflags.use_inverse) */
                 attr = A_REVERSE;
         }

win/curses/curswins.c

@@ -727,7 +727,8 @@ is_main_window(winid wid)
 /* Unconditionally write a single character to a window at the given
 coordinates without a refresh.  Currently only used for the map. */
 
-static int
+/* convert nhcolor (fg) and framecolor (bg) to curses colorpair */
+int
 get_framecolor(int nhcolor, int framecolor)
 {
     /* curses_toggle_color_attr() adds the +1 and takes care of COLORS < 16 */