pile_limit option - movement feedback "there are objects here" (trunk only)

Something that pops up in the newsgroup periodically, with <Someone>
inevitably pointing out the bit of code that the user needs to tweak,
about control of feedback when hero is walking across floor objects.
Implement new option ``pile_limit'' which allows user to set the point
at which the game switches from listing the objects to giving "there are
several/many objects here".  Default is 5, same as previous hard-coded
value (1 object gets listed via pline, 2..4 are listed in a corner popup,
5 or more objects yields a pline message instead).  Setting pile_limit
to 0 means no limit, so objects will always be listed regardless of pile
size.  Setting it to 1 effectively forces no listing since any non-empty
pile size is always at least that big, so can produce "there is an object
here" even though that's no briefer than a pline() to show one object.

src/invent.c

@@ -2336,7 +2336,7 @@ char *buf;
 	return dfeature;
 }
 
-/* look at what is here; if there are many objects (5 or more),
+/* look at what is here; if there are many objects (pile_limit or more),
    don't show them unless obj_cnt is 0 */
 int
 look_here(obj_cnt, picked_some)
@@ -2349,8 +2349,11 @@ boolean picked_some;
 	const char *dfeature = (char *)0;
 	char fbuf[BUFSZ], fbuf2[BUFSZ];
 	winid tmpwin;
-	boolean skip_objects = (obj_cnt >= 5), felt_cockatrice = FALSE;
+	boolean skip_objects, felt_cockatrice = FALSE;
 
+	/* default pile_limit is 5; a value of 0 means "never skip"
+	   (and 1 effectively forces "always skip") */
+	skip_objects = (flags.pile_limit > 0 && obj_cnt >= flags.pile_limit);
 	if (u.uswallow && u.ustuck) {
 	    struct monst *mtmp = u.ustuck;
 	    Sprintf(fbuf, "Contents of %s %s",
@@ -2420,12 +2423,18 @@ boolean picked_some;
 	if (skip_objects) {
 	    if (dfeature) pline(fbuf);
 	    read_engr_at(u.ux, u.uy); /* Eric Backus */
-	    There("are %s%s objects here.",
-		  (obj_cnt <= 10) ? "several" : "many",
-		  picked_some ? " more" : "");
+	    if (obj_cnt == 1 && otmp->quan == 1L)
+		There("is %s object here.", picked_some ? "another" : "an");
+	    else
+		There("are %s%s objects here.",
+		      (obj_cnt < 5) ? "a few" :
+			(obj_cnt < 10) ? "several" : "many",
+		      picked_some ? " more" : "");
 	    for ( ; otmp; otmp = otmp->nexthere)
 		if (otmp->otyp == CORPSE && will_feel_cockatrice(otmp, FALSE)) {
-		    pline("Including %s%s.",
+		    pline("%s %s%s.",
+			  (obj_cnt > 1) ? "Including" :
+			    (otmp->quan > 1L) ? "They're" : "It's",
 			  corpse_xname(otmp, (const char *)0, CXN_ARTICLE),
 			  poly_when_stoned(youmonst.data) ? "" :
 			    ", unfortunately");
@@ -2442,20 +2451,22 @@ boolean picked_some;
 	    You("%s here %s.", verb, doname(otmp));
 	    if (otmp->otyp == CORPSE) feel_cockatrice(otmp, FALSE);
 	} else {
+	    char buf[BUFSZ];
+
 	    display_nhwindow(WIN_MESSAGE, FALSE);
 	    tmpwin = create_nhwindow(NHW_MENU);
 	    if(dfeature) {
 		putstr(tmpwin, 0, fbuf);
 		putstr(tmpwin, 0, "");
 	    }
-	    putstr(tmpwin, 0, Blind ? "Things that you feel here:" :
-				      "Things that are here:");
+	    Sprintf(buf, "%s that %s here:",
+		    picked_some ? "Other things" : "Things",
+		    Blind ? "you feel" : "are");
+	    putstr(tmpwin, 0, buf);
 	    for ( ; otmp; otmp = otmp->nexthere) {
 		if (otmp->otyp == CORPSE && will_feel_cockatrice(otmp, FALSE)) {
-			char buf[BUFSZ];
 			felt_cockatrice = TRUE;
-			Strcpy(buf, doname(otmp));
-			Strcat(buf, "...");
+			Sprintf(buf, "%s...", doname(otmp));
 			putstr(tmpwin, 0, buf);
 			break;
 		}

src/options.c

@@ -1,4 +1,4 @@
-/*	SCCS Id: @(#)options.c	3.5	2007/02/14	*/
+/*	SCCS Id: @(#)options.c	3.5	2007/04/26	*/
 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
 /* NetHack may be freely redistributed.  See license for details. */
 
@@ -33,6 +33,8 @@ NEARDATA struct instance_flags iflags;	/* provide linkage */
 #define MENU_OPTION	4
 #define TEXT_OPTION	5
 
+#define PILE_LIMIT_DFLT 5
+
 /*
  *  NOTE:  If you add (or delete) an option, please update the short
  *  options help (option_help()), the long options help (dat/opthelp),
@@ -320,6 +322,8 @@ static struct Comp_Opt
 						20, SET_IN_GAME },
 	{ "pickup_types", "types of objects to pick up automatically",
 						MAXOCLASSES, SET_IN_GAME },
+	{ "pile_limit", "threshold for \"there are many objects here\"",
+						24, SET_IN_GAME },
 	{ "playmode",
 #ifdef WIZARD
 		      "normal play, non-scoring explore mode, or debug mode",
@@ -588,6 +592,7 @@ initoptions()
 	flags.end_own = FALSE;
 	flags.end_top = 3;
 	flags.end_around = 2;
+	flags.pile_limit = PILE_LIMIT_DFLT;	/* 5 */
 	flags.runmode = RUN_LEAP;
 	iflags.msg_history = 20;
 #ifdef TTY_GRAPHICS
@@ -1845,6 +1850,23 @@ goodfruit:
 		return;
 	}
 
+	/* pile limit: when walking over objects, number which triggers
+	   "there are several/many objects here" instead of listing them */
+	fullname = "pile_limit";
+	if (match_optname(opts, fullname, 4, TRUE)) {
+	    if (duplicate) complain_about_duplicate(opts, 1);
+	    op = string_for_opt(opts, negated);
+	    if ((negated && !op) || (!negated && op))
+		flags.pile_limit = negated ? 0 : atoi(op);
+	    else if (negated)
+		bad_negation(fullname, TRUE);
+	    else /* !op */
+		flags.pile_limit = PILE_LIMIT_DFLT;
+	    /* sanity check */
+	    if (flags.pile_limit < 0) flags.pile_limit = PILE_LIMIT_DFLT;
+	    return;
+	}
+
 	/* play mode: normal, explore/discovery, or debug/wizard */
 	fullname = "playmode";
 	if (match_optname(opts, fullname, 4, TRUE)) {
@@ -3573,6 +3595,8 @@ char *buf;
 		oc_to_str(flags.pickup_types, ocl);
 		Sprintf(buf, "%s", ocl[0] ? ocl : "all" );
 	}
+	else if (!strcmp(optname, "pile_limit"))
+		Sprintf(buf, "%d", flags.pile_limit);
 	else if (!strcmp(optname, "playmode")) {
 		Strcpy(buf,
 		       wizard ? "debug" : discover ? "explore" : "normal");