From 357de0f249d9b9526cb83255bb9258bfc69075c1 Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno.rehling@gmail.com>
Date: Sat, 16 Oct 2010 22:18:30 +0200
Subject: [PATCH] fix a crash where flying ships try to anchor

---
 src/kernel/move.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/kernel/move.c b/src/kernel/move.c
index 137d3c35d..95bead255 100644
--- a/src/kernel/move.c
+++ b/src/kernel/move.c
@@ -1830,7 +1830,9 @@ sail(unit * u, order * ord, boolean move_on_land, region_list **routep)
     * transferiert wurden, kann der aktuelle Befehl gelöscht werden. */
     cycle_route(ord, u, step);
     set_order(&u->thisorder, NULL);
-    set_coast(sh, last_point, current_point);
+    if (!move_on_land) {
+      set_coast(sh, last_point, current_point);
+    }
 
     if( is_cursed(sh->attribs, C_SHIP_FLYING, 0) ) {
       ADDMSG(&f->msgs, msg_message("shipfly", "ship from to", sh, starting_point, current_point));