From f67ca9663aa7c52fcdc8c78b0dccc957e8116c4b Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Mon, 27 Mar 2006 21:54:56 +0000
Subject: [PATCH] (retreat_land1): Fix land mine hit chance (was too high).

---
 src/lib/subs/retreat.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib/subs/retreat.c b/src/lib/subs/retreat.c
index 2db7c901..85158ad7 100644
--- a/src/lib/subs/retreat.c
+++ b/src/lib/subs/retreat.c
@@ -501,7 +501,7 @@ retreat_land1(struct lndstr *lp, char code, int orig)
 	    putsect(&sect);
 	}
 	if (mines > 0 && (sect.sct_oldown != lp->lnd_own) &&
-	    chance(DMINE_HITCHANCE(mines))) {
+	    chance(DMINE_LHITCHANCE(mines))) {
 	    wu(0, lp->lnd_own,
 	       "%s %s,\nand hit a mine in %s while retreating!\n",
 	       prland(lp),