From dce99b961d8689866dee1c5be2d0427bee38a6a1 Mon Sep 17 00:00:00 2001
From: Christian Schlittchen <corwin@amber.kn-bremen.de>
Date: Sun, 3 Mar 2002 11:56:13 +0000
Subject: [PATCH] - Seeds gefixt. Grundchance 1% + 0.0008% je Elf. -
 Seedkorrektur

---
 src/common/kernel/eressea.h |  2 +-
 src/eressea/korrektur.c     | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/src/common/kernel/eressea.h b/src/common/kernel/eressea.h
index 10d0eb0dc..840706248 100644
--- a/src/common/kernel/eressea.h
+++ b/src/common/kernel/eressea.h
@@ -244,7 +244,7 @@ extern void read_laen(struct region * r, int laen);
 #define HORSEMOVE   3
 
 /* Vermehrungschance pro Baum */
-#define FORESTGROWTH 2
+#define FORESTGROWTH 10000					/* In Millionstel */
 #define TREESIZE     (MAXPEASANTS_PER_AREA-2)
 
 /* Eisen in Bergregionen bei Erschaffung */
diff --git a/src/eressea/korrektur.c b/src/eressea/korrektur.c
index 0af139c35..ee72c12c7 100644
--- a/src/eressea/korrektur.c
+++ b/src/eressea/korrektur.c
@@ -2640,6 +2640,20 @@ fix_questcoors(void)
 	return 0;
 }
 
+static int
+fix_seeds(void)
+{
+	region *r;
+
+	for(r=regions; r; r=r->next) {
+		if(rtrees(r,0) > 25 && rtrees(r,0) > rtrees(r,2)/2) {
+			rsettrees(r,0,rtrees(r,2)/2);
+		}
+	}
+
+	return 0;
+}
+
 void
 korrektur(void)
 {
@@ -2685,6 +2699,7 @@ korrektur(void)
 	do_once("szip", set_zip());
 	do_once("heal", heal_all());
 	do_once("fquc", fix_questcoors());
+	do_once("fsee", fix_seeds());
 
 	/* seems something fishy is going on, do this just 
 	 * to be on the safe side: