B08017 - piece of cheese juice

Implement <Someone>'s request that fruit name "foo of bar" yield
juice messages referring to "bar juice" instead of "foo of bar juice".

src/objnam.c

@@ -1,4 +1,4 @@
-/*	SCCS Id: @(#)objnam.c	3.4	2002/08/06	*/
+/*	SCCS Id: @(#)objnam.c	3.4	2002/08/18	*/
 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
 /* NetHack may be freely redistributed.  See license for details. */
 
@@ -209,6 +209,23 @@ char *FDECL((*func), (OBJ_P));
 	return str;
 }
 
+/* convert player specified fruit name into corresponding fruit juice name
+   ("slice of pizza" -> "pizza juice" rather than "slice of pizza juice") */
+char *
+fruitjuice()
+{
+    char *buf = nextobuf();
+    const char *juice = strstri(pl_fruit, " of ");
+
+    if (juice)
+	juice += 4;		/* skip past " of " */
+    else
+	juice = pl_fruit;	/* use it as is */
+
+    Sprintf(buf, "%s juice", juice);
+    return buf;
+}
+
 #endif /* OVLB */
 #ifdef OVL1