From 41f3e67e8bdbaebe431c76e27c73794aedaeb592 Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Sat, 14 Feb 2009 09:06:51 +0100
Subject: [PATCH] Don't let engineer mine while it is on a ship or land unit

---
 src/lib/commands/mine.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/lib/commands/mine.c b/src/lib/commands/mine.c
index 6f9ed258..75ea7c35 100644
--- a/src/lib/commands/mine.c
+++ b/src/lib/commands/mine.c
@@ -109,6 +109,11 @@ landmine(void)
 	lp = &lchr[(int)land.lnd_type];
 	if (!(lp->l_flags & L_ENGINEER))
 	    continue;
+	if (land.lnd_ship >= 0 || land.lnd_land >= 0) {
+	    pr("%s is on a %s\n", prland(&land),
+	       land. lnd_ship >= 0 ? "ship" : "land unit");
+	    continue;
+	}
 	if (land.lnd_mobil < 1) {
 	    pr("Unit %d is out of mobility\n", land.lnd_uid);
 	    continue;