struct sctstr *sp;
int etu = etu_per_update;
- mil_dbl_pay = 0;
memset(p_sect, 0, sizeof(**p_sect) * (SCT_TYPE_MAX+2) * 2);
*taxes = *Ncivs = *Nuws = *bars = *Nbars = *mil = 0;
*ships = *sbuild = *nsbuild = *smaint = 0;
#include "common.h"
#include "gen.h"
-int mil_dbl_pay;
-
static void landrepair(struct lndstr *, struct natstr *, int *, int);
static void upd_land(struct lndstr *, int, struct natstr *, int *, int);
static int feed_land(struct lndstr *, int);
mvec[I_GUN] = 0;
mvec[I_MILIT] = 0;
mvec[I_SHELL] = 0;
- mil_dbl_pay += mvec[I_MILIT];
get_materials(sp, bp, mvec, 1);
if ((sp->sct_type != SCT_HEADQ) && (sp->sct_type != SCT_FORTR))
long p_sect[SCT_TYPE_MAX+2][2];
memset(p_sect, 0, sizeof(p_sect));
- mil_dbl_pay = 0;
if (!(np = getnatp(x)))
continue;
if (np->nat_stat == STAT_SANCT) {