From 3b4a6dc262cbf83739ab414ed0e42c3f99048c5f Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Mon, 31 Jul 2006 22:12:17 +0000
Subject: [PATCH] Meermenschen koennen nach der Marine-Landung nicht weiter ins
 Landesinnere vorstossen.

---
 src/common/kernel/movement.c | 7 +++++++
 src/res/messages.xml         | 9 +++++++++
 2 files changed, 16 insertions(+)

diff --git a/src/common/kernel/movement.c b/src/common/kernel/movement.c
index 12f015d5e..25105b86b 100644
--- a/src/common/kernel/movement.c
+++ b/src/common/kernel/movement.c
@@ -1326,6 +1326,7 @@ travel_route(unit * u, region_list * route_begin, region_list * route_end, order
   region * current = u->region;
   region_list * iroute = route_begin;
   int steps = 0;
+  boolean landing = false; /* aquarians have landed */
 
   while (iroute && iroute!=route_end) {
     region * next = iroute->data;
@@ -1355,11 +1356,17 @@ travel_route(unit * u, region_list * route_begin, region_list * route_end, order
             if (ord!=NULL) cmistake(u, ord, 44, MSG_MOVE);
             break;
           }
+          landing = true;
         } else if ((u->race->flags & RCF_WALK) == 0) {
           /* Spezialeinheiten, die nicht laufen können. */
           ADDMSG(&u->faction->msgs, msg_message("detectocean",
             "unit region", u, next));
           break;
+        } else if (landing) {
+          /* wir sind diese woche angelandet */
+          ADDMSG(&u->faction->msgs, msg_message("detectocean",
+            "unit region", u, next));
+          break;
         }
       } else {
         /* Ozeanfelder können nur von Einheiten mit Schwimmen und ohne
diff --git a/src/res/messages.xml b/src/res/messages.xml
index d288a8b6f..528919d6f 100644
--- a/src/res/messages.xml
+++ b/src/res/messages.xml
@@ -1989,6 +1989,15 @@
     <text locale="fr">"$unit($unit) discovered that $region($region) is $terrain($region)."</text>
     <text locale="en">"$unit($unit) discovered that $region($region) is $terrain($region)."</text>
   </message>
+  <message name="leftship" section="movement">
+    <type>
+      <arg name="unit" type="unit"/>
+      <arg name="region" type="region"/>
+    </type>
+    <text locale="de">"$unit($unit) ist in dieser Runde gelandet und kann nicht weiter ins Landesinnere nach $region($region) vorstossen."</text>
+    <text locale="fr">"$unit($unit) has just landed and cannot continue moving to $region($region)."</text>
+    <text locale="en">"$unit($unit) has just landed and cannot continue moving to $region($region)."</text>
+  </message>
   <message name="sailnolandingstorm" section="movement">
     <type>
       <arg name="ship" type="ship"/>