retreat: Fix group retreat after failed board sinks ship

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

diff --git a/src/lib/commands/torp.c b/src/lib/commands/torp.c
index 867ab50eed278e9cb7cdf5962f8e8dbc51df11fb..d945d180860f60d8c68352e2275d7123a7a241c0 100644 (file)
--- a/src/lib/commands/torp.c
+++ b/src/lib/commands/torp.c
@@ -189,7 +189,7 @@ torp(void)
            if (vship.shp_effic < SHIP_MINEFF)
                pr("%s sunk!\n", prsub(&vship));
            if (vship.shp_rflags & RET_TORPED)
-               retreat_ship(&vship, 't');
+               retreat_ship(&vship, vshipown, 't');
            putship(vship.shp_uid, &vship);
        } else {
            pr("Missed\n");