W_EXPLODE
Write(W_EXPLODE, ship, 1, 0, 0, 0);
Write(sink == 1 ? W_SINK : W_EXPLODE, sp, 2, 0, 0, 0);
case W_EXPLODE: