(upd_ship): Don't produce stuff when broke, to match sector behavior.

diff --git a/src/lib/update/ship.c b/src/lib/update/ship.c
index 1d4b93ecde03031038e44bbc27760184be8214c4..6d16c90c5d40a45987d8b1445862c5d6780357c8 100644 (file)
--- a/src/lib/update/ship.c
+++ b/src/lib/update/ship.c
@@ -156,7 +156,8 @@ upd_ship(struct shpstr *sp, int etus,
            sectp = getsectp(sp->shp_x, sp->shp_y);
 
            /* produce oil */
-           if ((mp->m_flags & M_OIL) && sectp->sct_type == SCT_WATER) {
+           if (np->nat_money > 0
+               && (mp->m_flags & M_OIL) && sectp->sct_type == SCT_WATER) {
                product = &pchr[dchr[SCT_OIL].d_prd];
                oil_gained = roundavg(total_work(100, etus,
                                                 sp->shp_item[I_CIVIL],
@@ -181,7 +182,8 @@ upd_ship(struct shpstr *sp, int etus,
                sp->shp_item[I_OIL] += oil_gained;
            }
            /* produce fish */
-           if ((mp->m_flags & M_FOOD) && sectp->sct_type == SCT_WATER) {
+           if (np->nat_money > 0
+               && (mp->m_flags & M_FOOD) && sectp->sct_type == SCT_WATER) {
                sp->shp_item[I_FOOD]
                    += roundavg(total_work(100, etus,
                                           sp->shp_item[I_CIVIL],