Feature:  Character dump gets max recall depth, and yellow burden if too high.

A discussion on rec.games.roguelike.angband mentioned that it would be
easier to discuss character dumps if they included the max recall depth.
So the first hunk in this patch adds that.

The rest of the hunks colours the burden in the character dump yellow if
it is high enough to give a speed penalty.
Formula:  xtra1.c subtracts
	(burden - (weight_limit/2)) /  (weight_limit/10)
from the speed, which is > 0 if
	(burden - (weight_limit/2)) >= (weight_limit/10)
i.e. if  burden >= (weight_limit/2) +  (weight_limit/10).


-- Hallvard B Furuseth <h.b.furuseth@usit.uio.no>


Index: src/files.c
===================================================================
RCS file: /home/rr9/angband/angband/src/files.c,v
retrieving revision 1.70
diff -u -r1.70 files.c
--- src/files.c	22 Jun 2002 17:10:27 -0000	1.70
+++ src/files.c	28 Jun 2002 15:06:51 -0000
@@ -1353,6 +1353,14 @@
 	}
 
 
+	/* Max dungeon level */
+	Term_putstr(col, 14, -1, TERM_WHITE, "Max Depth");
+	Term_putstr(col+9, 14, -1, TERM_L_GREEN,
+	            (!p_ptr->max_depth ? "     Town" :
+	             depth_in_feet ? format("%6d ft", p_ptr->max_depth * 50) :
+	             format("%9d", p_ptr->max_depth)));
+
+
 	/* Gold */
 	Term_putstr(col, 15, -1, TERM_WHITE, "Gold");
 	Term_putstr(col+8, 15, -1, TERM_L_GREEN,
@@ -1360,11 +1368,13 @@
 
 
 	/* Burden */
+	tmp = weight_limit();
 	sprintf(buf, "%ld.%ld lbs",
 	        p_ptr->total_weight / 10L,
 	        p_ptr->total_weight % 10L);
 	Term_putstr(col, 17, -1, TERM_WHITE, "Burden");
-	Term_putstr(col+8, 17, -1, TERM_L_GREEN,
+	Term_putstr(col+8, 17, -1, (p_ptr->total_weight < tmp/2 + tmp/10
+	                            ? TERM_L_GREEN : TERM_YELLOW),
 	            format("%10s", buf));
 
 
Index: src/xtra1.c
===================================================================
RCS file: /home/rr9/angband/angband/src/xtra1.c,v
retrieving revision 1.21
diff -u -r1.21 xtra1.c
--- src/xtra1.c	24 Mar 2002 15:26:17 -0000	1.21
+++ src/xtra1.c	28 Jun 2002 15:06:51 -0000
@@ -1645,7 +1645,7 @@
 /*
  * Computes current weight limit.
  */
-static int weight_limit(void)
+int weight_limit(void)
 {
 	int i;
 
Index: src/externs.h
===================================================================
RCS file: /home/rr9/angband/angband/src/externs.h,v
retrieving revision 1.73
diff -u -r1.73 externs.h
--- src/externs.h	1 Jun 2002 15:05:02 -0000	1.73
+++ src/externs.h	28 Jun 2002 15:06:50 -0000
@@ -702,6 +702,7 @@
 /* xtra1.c */
 extern void cnv_stat(int val, char *out_val);
 extern s16b modify_stat_value(int value, int amount);
+extern int  weight_limit(void);
 extern void notice_stuff(void);
 extern void update_stuff(void);
 extern void redraw_stuff(void);