From 3ea0d50cafff2962ecf30f368a780bca67139b09 Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Mon, 8 Sep 2008 19:03:26 +0000
Subject: [PATCH] http://bugs.eressea.de/view.php?id=1488 "Verhalten fliehender
 Einheiten auf Ozean" disable flight from ships on ocean

---
 src/common/kernel/battle.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/common/kernel/battle.c b/src/common/kernel/battle.c
index accab2ce7..50ef46cd1 100644
--- a/src/common/kernel/battle.c
+++ b/src/common/kernel/battle.c
@@ -3882,7 +3882,15 @@ battle_flee(battle * b)
         int runners = 0;
         /* Flucht nicht bei mehr als 600 HP. Damit Wyrme tötbar bleiben. */
         int runhp = MIN(600,(int)(0.9+unit_max_hp(u)*hpflee(u->status)));
-        if (fval(u->race, RCF_UNDEAD) || u->race == new_race[RC_SHADOWKNIGHT]) continue;
+
+        if (u->ship && fval(u->region->terrain, SEA_REGION)) {
+          /* keine Flucht von Schiffen auf hoher See */
+          continue;
+        }
+        if (fval(u->race, RCF_UNDEAD) || u->race == new_race[RC_SHADOWKNIGHT]) {
+          /* Untote fliehen nicht. Warum eigentlich? */
+          continue;
+        }
 
         dt.fighter = fig;
 #ifndef SIMPLE_ESCAPE