void
bsanct(void)
{
int count;
struct sctstr s;
struct nstr_sect nstr;
if (player->god)
return;
count = 0;
snxtsct_all(&nstr);
while (nxtsct(&nstr, &s)) {
if (!player->owner)
continue;
if (s.sct_type != SCT_SANCT)
continue;
pr("%s is no longer a sanctuary.\n",
xyas(s.sct_x, s.sct_y, player->cnum));
if (s.sct_newtype == SCT_SANCT)
s.sct_newtype = SCT_CAPIT;
s.sct_type = s.sct_newtype;
game_tick_to_now(&s.sct_access);
(void)putsect(&s);
count++;
}
if (count > 0) {
game_note_bsanct();
nreport(player->cnum, N_BROKE_SANCT, 0, 1);
}
}
static void
gen_power(struct powstr *powbuf, int save)
{
float upower[MAXNOC];
float *f_ptr;
float *f_pt2;
struct powstr *pow;
int i, maxpop;
struct sctstr sect;
struct dchrstr *dcp;
struct plnstr plane;
struct plchrstr *pcp;
struct shpstr ship;
struct mchrstr *mcp;
struct lndstr land;
struct lchrstr *lcp;
struct nukstr nuke;
struct nchrstr *ncp;
struct nstr_item ni;
struct nstr_sect ns;
struct natstr *natp;
player->btused += 10;
memset(powbuf, 0, MAXNOC * sizeof(*powbuf));
memset(upower, 0, sizeof(upower));
snxtsct_all(&ns);
while (nxtsct(&ns, §)) {
if (sect.sct_own == 0)
continue;
dcp = &dchr[sect.sct_type];
natp = getnatp(sect.sct_own);
pow = &powbuf[sect.sct_own];
pow->p_sects += 1.0;
pow->p_effic += sect.sct_effic;
addtopow(sect.sct_item, pow);
pow->p_power += empobj_power(sect.sct_effic,
dcp->d_mat, dcp->d_cost);
maxpop = max_pop(natp->nat_level[NAT_RLEV], §);
pow->p_power += (1.0 + maxpop / 1000.0 * 8) * sect.sct_effic / 100.0;
}
snxtitem_all(&ni, EF_LAND);
while (nxtitem(&ni, &land)) {
if (land.lnd_own == 0)
continue;
lcp = &lchr[land.lnd_type];
pow = &powbuf[land.lnd_own];
addtopow(land.lnd_item, pow);
upower[land.lnd_own] += empunit_power(land.lnd_effic,
land.lnd_tech,
lcp->l_mat, lcp->l_cost);
if (!(lcp->l_flags & L_SPY))
pow->p_units += 1.0;
}
snxtitem_all(&ni, EF_SHIP);
while (nxtitem(&ni, &ship)) {
if (ship.shp_own == 0)
continue;
mcp = &mchr[ship.shp_type];
pow = &powbuf[ship.shp_own];
addtopow(ship.shp_item, pow);
upower[ship.shp_own] += empunit_power(ship.shp_effic,
ship.shp_tech,
mcp->m_mat, mcp->m_cost);
pow->p_ships += 1.0;
}
snxtitem_all(&ni, EF_PLANE);
while (nxtitem(&ni, &plane)) {
if (plane.pln_own == 0)
continue;
pcp = &plchr[plane.pln_type];
pow = &powbuf[plane.pln_own];
upower[plane.pln_own] += empunit_power(plane.pln_effic,
plane.pln_tech,
pcp->pl_mat, pcp->pl_cost);
pow->p_planes += 1.0;
}
snxtitem_all(&ni, EF_NUKE);
while (nxtitem(&ni, &nuke)) {
if (nuke.nuk_own == 0)
continue;
ncp = &nchr[nuke.nuk_type];
upower[nuke.nuk_own] += empunit_power(nuke.nuk_effic,
nuke.nuk_tech,
ncp->n_mat, ncp->n_cost);
}
for (i = 1; NULL != (natp = getnatp(i)); i++) {
pow = &powbuf[i];
pow->p_nation = i;
if (natp->nat_stat != STAT_ACTIVE) {
pow->p_power = 0.;
continue;
}
pow->p_money = natp->nat_money;
pow->p_power += money_power(natp->nat_money);
pow->p_power *= power_tech_factor(natp->nat_level[NAT_TLEV]);
pow->p_power += upower[i];
/* ack. add this vec to the "world power" element */
f_pt2 = &powbuf[0].p_sects;
f_ptr = &pow->p_sects;
while (f_ptr <= &pow->p_power) {
*f_pt2 += *f_ptr;
f_pt2++;
f_ptr++;
}
}
qsort(&powbuf[1], MAXNOC - 1, sizeof(*powbuf), powcmp);
if (!save)
return;
for (i = 0; i < MAXNOC; i++)
putpower(i, &powbuf[i]);
#ifdef _WIN32
/*
* At least some versions of Windows fail to update mtime on
* write(), they delay it until the write actually hits the disk.
* Bad, because `power' displays that time. Force it.
*/
_commit(empfile[EF_POWER].fd);
#endif
}
