X-Git-Url: http://git.pond.sub.org/?p=empserver;a=blobdiff_plain;f=src%2Flib%2Fcommands%2Fscut.c;h=f5adb17aa1f914323ba60bda87b974f4fde2f090;hp=9454f3e28edc44133a7641633ccde903e8a79b9f;hb=3318e4e4;hpb=faca0eeac583a985ed221785f99017f77881215d

diff --git a/src/lib/commands/scut.c b/src/lib/commands/scut.c
index 9454f3e28..f5adb17aa 100644
--- a/src/lib/commands/scut.c
+++ b/src/lib/commands/scut.c
@@ -165,7 +165,8 @@ scuttle_tradeship(struct shpstr *sp, int interactive)
 
     mp = &mchr[(int)sp->shp_type];
     getsect(sp->shp_x, sp->shp_y, &sect);
-    if (sect.sct_own && sect.sct_type == SCT_HARBR && sect.sct_effic >= 2) {
+    if (sect.sct_own && sect.sct_type == SCT_HARBR && sect.sct_effic >= 2
+	&& getrel(getnatp(sect.sct_own), sp->shp_own) >= FRIENDLY) {
 	dist = mapdist(sp->shp_x, sp->shp_y,
 		       sp->shp_orig_x, sp->shp_orig_y);
 	/* Don't disclose distance to to pirates */