retreat: Fix group retreat after failed board sinks ship

[empserver] / src / lib / commands / laun.c

diff --git a/src/lib/commands/laun.c b/src/lib/commands/laun.c
index f5151e6ecd452fe8c47d3ca8ca25fa883b3a9332..04900bac0a59468ba2db561f9236416758b526c5 100644 (file)
--- a/src/lib/commands/laun.c
+++ b/src/lib/commands/laun.c
@@ -277,7 +277,7 @@ launch_missile(struct plnstr *pp)
        if (target_ship.shp_effic < SHIP_MINEFF)
            pr("%s sunk!\n", prship(&target_ship));
        if (dam && (target_ship.shp_rflags & RET_INJURED))
-           retreat_ship(&target_ship, 'i');
+           retreat_ship(&target_ship, target_ship.shp_own, 'i');
        putship(target_ship.shp_uid, &target_ship);
     }
     return RET_OK;