/* plane.c */
extern int prod_plane(int, int, int *, int);
/* populace.c */
-extern void populace(struct natstr *, register struct sctstr *,
- register int *, int);
+extern void populace(struct natstr *, register struct sctstr *, int);
extern int total_work(register int, register int, register int,
register int, register int);
/* prepare.c */
#include "lost.h"
void
-populace(struct natstr *np, register struct sctstr *sp, register int *vec,
- int etu)
+populace(struct natstr *np, register struct sctstr *sp, int etu)
{
float hap;
float tech;
float edu;
float pct;
int n;
+ int civ = sp->sct_item[I_CIVIL];
+ int mil = sp->sct_item[I_MILIT];
- if (vec[I_CIVIL] == 0 && vec[I_MILIT] > 0) {
+ if (civ == 0 && mil > 0) {
sp->sct_work = 100;
sp->sct_loyal = 0;
sp->sct_oldown = sp->sct_own;
}
- if (!vec[I_CIVIL] && !vec[I_MILIT] && !vec[I_UW] &&
- !has_units(sp->sct_x, sp->sct_y, sp->sct_own, 0)) {
+ if (!civ && !mil && !sp->sct_item[I_UW]
+ && !has_units(sp->sct_x, sp->sct_y, sp->sct_own, 0)) {
makelost(EF_SECTOR, sp->sct_own, 0, sp->sct_x, sp->sct_y);
sp->sct_own = 0;
sp->sct_oldown = 0;
n = 127;
sp->sct_loyal = n;
}
- if (sp->sct_loyal > 65 && vec[I_MILIT] < vec[I_CIVIL] / 20) {
+ if (sp->sct_loyal > 65 && mil < civ / 20) {
int work_red;
work_red = sp->sct_loyal - (50 + (random() % 15));
tax(struct sctstr *sp, struct natstr *np, int etu, long *pop, int *civ_tax,
int *uw_tax, int *mil_pay)
{
- int vec[I_MAX + 1];
-
*civ_tax = 0;
*uw_tax = 0;
*mil_pay = 0;
- if (getvec(VT_ITEM, vec, (s_char *)sp, EF_SECTOR) <= 0)
- return;
if (!player->simulation)
- populace(np, sp, vec, etu);
- *civ_tax = (int)(0.5 + vec[I_CIVIL] * sp->sct_effic *
+ populace(np, sp, etu);
+ *civ_tax = (int)(0.5 + sp->sct_item[I_CIVIL] * sp->sct_effic *
etu * money_civ / 100);
/*
* captured civs only pay 1/4 taxes
*/
if (sp->sct_own != sp->sct_oldown)
*civ_tax = *civ_tax / 4;
- *uw_tax = (int)(0.5 + vec[I_UW] * sp->sct_effic *
+ *uw_tax = (int)(0.5 + sp->sct_item[I_UW] * sp->sct_effic *
etu * money_uw / 100);
- *mil_pay = vec[I_MILIT] * etu * money_mil;
+ *mil_pay = sp->sct_item[I_MILIT] * etu * money_mil;
/*
* only non-captured civs add to census for nation
*/
if (sp->sct_oldown == sp->sct_own)
- *pop += vec[I_CIVIL];
+ *pop += sp->sct_item[I_CIVIL];
}
int