retreat: Fix group retreat after failed board sinks ship

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

diff --git a/src/lib/commands/mfir.c b/src/lib/commands/mfir.c
index c997e7dd369d6c5853f80d6a4ab71b61f89b1ee8..a7e02db93a192f878b491284f3531926cd452831 100644 (file)
--- a/src/lib/commands/mfir.c
+++ b/src/lib/commands/mfir.c
@@ -427,11 +427,11 @@ multifire(void)
            if (vship.shp_effic < SHIP_MINEFF)
                pr("%s sunk!\n", prsub(&vship));
            if (dam && (vship.shp_rflags & RET_INJURED))
-               retreat_ship(&vship, 'i');
+               retreat_ship(&vship, vict, 'i');
            else if (target == targ_sub && (vship.shp_rflags & RET_DCHRGED))
-               retreat_ship(&vship, 'd');
+               retreat_ship(&vship, vict, 'd');
            else if (totaldefdam == 0 && (vship.shp_rflags & RET_HELPLESS))
-               retreat_ship(&vship, 'h');
+               retreat_ship(&vship, vict, 'h');
            putship(vship.shp_uid, &vship);
            break;
        }