void
do_blacksmith (int x, int y)
{
/*
// int_1 contains the goods at the blacksmith
// int_2 contains the goods made - for the animation
// int_3 contains the coal store
// int_4 is the animation trigger time
// int_5 is the % made so far this month
// int_6 is the % capacity last month
*/
if (MP_INFO(x,y).int_3 < MAX_COAL_AT_BLACKSMITH)
if (get_coal (x, y, BLACKSMITH_GET_COAL) != 0)
MP_INFO(x,y).int_3 += BLACKSMITH_GET_COAL;
if (MP_INFO(x,y).int_1 < MAX_GOODS_AT_BLACKSMITH
&& MP_INFO(x,y).int_3 >= BLACKSMITH_COAL_USED)
{
if (get_steel (x, y, BLACKSMITH_STEEL_USED) != 0)
{
MP_INFO(x,y).int_1 += GOODS_MADE_BY_BLACKSMITH;
MP_INFO(x,y).int_3 -= BLACKSMITH_COAL_USED;
}
}
if (get_jobs (x, y, BLACKSMITH_JOBS) != 0)
{
if (MP_INFO(x,y).int_1 > GOODS_MADE_BY_BLACKSMITH)
{
if (put_goods (x, y, GOODS_MADE_BY_BLACKSMITH - 1) != 0)
{
MP_INFO(x,y).int_1 -= (GOODS_MADE_BY_BLACKSMITH - 1);
MP_INFO(x,y).int_2 += (GOODS_MADE_BY_BLACKSMITH - 1);
MP_INFO(x,y).int_5++;
}
else
put_jobs (x, y, BLACKSMITH_JOBS);
}
else
put_jobs (x, y, BLACKSMITH_JOBS);
}
else
MP_TYPE(x,y) = CST_BLACKSMITH_0;
if (MP_INFO(x,y).int_2 > BLACKSMITH_BATCH
&& real_time >= MP_INFO(x,y).int_4)
{
MP_INFO(x,y).int_4 = real_time + BLACKSMITH_ANIM_SPEED;
switch (MP_TYPE(x,y))
{
case (CST_BLACKSMITH_0):
MP_TYPE(x,y) = CST_BLACKSMITH_1;
break;
case (CST_BLACKSMITH_1):
MP_TYPE(x,y) = CST_BLACKSMITH_2;
break;
case (CST_BLACKSMITH_2):
MP_TYPE(x,y) = CST_BLACKSMITH_3;
break;
case (CST_BLACKSMITH_3):
MP_TYPE(x,y) = CST_BLACKSMITH_4;
break;
case (CST_BLACKSMITH_4):
MP_TYPE(x,y) = CST_BLACKSMITH_5;
break;
case (CST_BLACKSMITH_5):
MP_TYPE(x,y) = CST_BLACKSMITH_6;
break;
case (CST_BLACKSMITH_6):
MP_TYPE(x,y) = CST_BLACKSMITH_1;
MP_INFO(x,y).int_2 = 0;
MP_POL(x,y)++;
break;
}
}
if (total_time % 100 == 0)
{
MP_INFO(x,y).int_6 = MP_INFO(x,y).int_5;
MP_INFO(x,y).int_5 = 0;
}
}
void
do_organic_farm (int x, int y)
{
/*
// int_1 is the tech level of the farm when built
// int_2 is a flag so we don't create a farm with nearly ripe crops.
// int_3 is the food sold count so far this year.
// int_4 is the food made last year.
// int_5 is the random crop rotation key.
// int_6 is the random month stagger, so they don't all flash at once
// int_7 is the tech-level dependent output of a powered farm with a full
// workforce.
*/
int i;
if (MP_INFO(x,y).int_5 == 0) /* this should be done when we create */
{ /* the area! */
MP_INFO(x,y).int_5 = (rand () % 4) + 1;
MP_INFO(x,y).int_6 = rand () % 300;
}
MP_INFO(x,y).flags &= (0xffffffff - FLAG_POWERED);
if (get_jobs (x, y, 1) == 0)
put_food (x, y, 30);
else if (get_jobs (x, y, FARM_JOBS_USED) != 0)
{
if (get_power (x, y, ORG_FARM_POWER_REC, 0) != 0)
{
if (put_food (x, y, (ORGANIC_FARM_FOOD_OUTPUT
+ MP_INFO(x,y).int_7)) == 0)
put_jobs (x, y, FARM_JOBS_USED);
else
MP_INFO(x,y).int_3++;
MP_INFO(x,y).flags |= FLAG_POWERED;
}
else
{
if (put_food (x, y, (ORGANIC_FARM_FOOD_OUTPUT / 4)) == 0)
put_jobs (x, y, FARM_JOBS_USED);
else
MP_INFO(x,y).int_3++;
}
}
else if (get_jobs (x, y, FARM_JOBS_USED / 4) != 0)
{
if (get_power (x, y, ORG_FARM_POWER_REC, 0) != 0)
{
if (put_food (x, y, (ORGANIC_FARM_FOOD_OUTPUT
+ (MP_INFO(x,y).int_7 / 4))) == 0)
put_jobs (x, y, FARM_JOBS_USED / 4);
else
MP_INFO(x,y).int_3++;
MP_INFO(x,y).flags |= FLAG_POWERED;
}
else
{
if (put_food (x, y, (ORGANIC_FARM_FOOD_OUTPUT / (4 * 4))) == 0)
put_jobs (x, y, FARM_JOBS_USED / 4);
else
MP_INFO(x,y).int_3++;
}
}
else
{
if (get_power (x, y, ORG_FARM_POWER_REC, 0) != 0)
{
if (put_food (x, y, (ORGANIC_FARM_FOOD_OUTPUT
+ (MP_INFO(x,y).int_7 / 8))) != 0)
MP_INFO(x,y).int_3++;
MP_INFO(x,y).flags |= FLAG_POWERED;
}
else if (put_food (x, y, 30
+ (ORGANIC_FARM_FOOD_OUTPUT / (4 * 8))) != 0)
MP_INFO(x,y).int_3++;
}
if ((total_time & 0x7f) == 0)
if ((MP_INFO(x,y).flags & FLAG_POWERED) != 0)
get_waste (x, y, 0x80 * ORG_FARM_WASTE_GET);
if ((total_time % 1200) == 0)
{
MP_INFO(x,y).int_4 = MP_INFO(x,y).int_3;
MP_INFO(x,y).int_3 = 0;
}
i = ((total_time + (MP_INFO(x,y).int_5 * 1200)
+ MP_INFO(x,y).int_6) % 4800);
if (i % 300 == 0)
{
i /= 300;
if ( /* MP_INFO(x,y).int_2!=0 && */ MP_INFO(x,y).int_4
> MIN_FOOD_SOLD_FOR_ANIM)
{
if (i % 4 == 0)
{
MP_INFO(x,y).int_6 = rand () % 100;
}
switch (i)
{
case (0):
MP_TYPE(x,y) = CST_FARM_O3;
break;
case (1):
MP_TYPE(x,y) = CST_FARM_O3;
break;
case (2):
MP_TYPE(x,y) = CST_FARM_O3;
break;
case (3):
MP_TYPE(x,y) = CST_FARM_O3;
break;
case (4):
MP_TYPE(x,y) = CST_FARM_O7;
break;
case (5):
MP_TYPE(x,y) = CST_FARM_O7;
break;
case (6):
MP_TYPE(x,y) = CST_FARM_O7;
break;
case (7):
MP_TYPE(x,y) = CST_FARM_O7;
break;
case (8):
MP_TYPE(x,y) = CST_FARM_O11;
break;
case (9):
MP_TYPE(x,y) = CST_FARM_O11;
break;
case (10):
MP_TYPE(x,y) = CST_FARM_O11;
break;
case (11):
MP_TYPE(x,y) = CST_FARM_O11;
break;
case (12):
MP_TYPE(x,y) = CST_FARM_O15;
break;
case (13):
MP_TYPE(x,y) = CST_FARM_O15;
break;
case (14):
MP_TYPE(x,y) = CST_FARM_O15;
break;
case (15):
MP_TYPE(x,y) = CST_FARM_O15;
break;
}
}
else
{
MP_TYPE(x,y) = CST_FARM_O0;
}
}
}
void
do_residence (int x, int y)
{
/*
// int_1 is a job swingometer to choose +/- JOB_SWING% of normal
// int_2 is the date of the last starve
// int 3 is the real time for the next icon update
// int_4 is the birth rate modifier.
// int_5 is the death rate modifier.
*/
int p; /* population */
int bad = 35, good = 30; /* (un)desirability of living here */
int r, po, swing;
int hc = 0; /* have health cover ? */
int brm = 0, drm = 0; /* birth/death rate modifier */
int cc = 0;
p = MP_INFO(x,y).population;
if ((MP_INFO(x,y).flags & FLAG_HEALTH_COVER) != 0)
{
brm += RESIDENCE_BRM_HEALTH;
good += 15;
hc = 1;
}
if ((MP_INFO(x,y).flags & FLAG_FIRE_COVER) == 0)
bad += 5;
else
good += 15;
if ((MP_INFO(x,y).flags & FLAG_CRICKET_COVER) != 0)
{
good += 20;
cc = CRICKET_JOB_SWING;
}
/* normal deaths + pollution deaths */
po = ((MP_POL(x,y) / 50) + 1);
if ((RESIDENCE_BASE_DR - MP_INFO(x,y).int_5 - po) > 1)
r = rand () % (RESIDENCE_BASE_DR - MP_INFO(x,y).int_5 - po);
else
r = 2;
if (p > 0 && (r < po))
{
if (r == 0 || hc == 0)
p--;
else if (hc != 0 && po > 10 && rand () % 4 == 0)
{
p--;
unnat_deaths++;
total_pollution_deaths++;
pollution_deaths_history += 1.0;
bad += 100;
}
if (r > 0 && hc == 0)
{
unnat_deaths++;
total_pollution_deaths++;
pollution_deaths_history += 1.0;
bad += 100;
}
}
/* normal births - must have food and jobs... and people */
if ((MP_INFO(x,y).flags & (FLAG_FED + FLAG_EMPLOYED))
== (FLAG_FED + FLAG_EMPLOYED)
&& (rand () % (RESIDENCE_BASE_BR + MP_INFO(x,y).int_4) == 1)
&& p > 0)
{
p++;
total_births++;
good += 50;
}
/* are people starving. */
if ((MP_INFO(x,y).flags & FLAG_FED) == 0 && p > 0)
{
if (rand () % DAYS_PER_STARVE == 1)
{
p--;
unnat_deaths++;
total_starve_deaths++;
starve_deaths_history += 1.0;
}
starving_population += p;
bad += 250;
drm += 100;
MP_INFO(x,y).int_2 = total_time; /* for the starve screen */
}
/* kick one out if overpopulated */
if (MP_TYPE(x,y) == CST_RESIDENCE_LL)
{
brm += RESIDENCE1_BRM;
drm += p * 8;
if (p > 50)
{
p--;
people_pool++;
brm += 20;
}
}
else if (MP_TYPE(x,y) == CST_RESIDENCE_ML)
{
brm += RESIDENCE2_BRM;
drm += p * 3;
if (p > 100)
{
p--;
people_pool++;
brm += 10;
}
}
else if (MP_TYPE(x,y) == CST_RESIDENCE_HL)
{
brm += RESIDENCE3_BRM;
drm += p;
good += 40;
if (p > 200)
{
p--;
people_pool++;
brm += 10;
}
}
else if (MP_TYPE(x,y) == CST_RESIDENCE_LH)
{
brm += RESIDENCE4_BRM;
drm += p * 5;
if (p > 100)
{
p--;
people_pool++;
brm += 20;
}
}
else if (MP_TYPE(x,y) == CST_RESIDENCE_MH)
{
brm += RESIDENCE5_BRM;
drm += p / 2;
if (p > 200)
{
p--;
people_pool++;
brm += 10;
}
}
else if (MP_TYPE(x,y) == CST_RESIDENCE_HH)
{
good += 100;
brm += RESIDENCE6_BRM;
drm += p;
if (p > 400)
{
p--;
people_pool++;
brm += 10;
}
}
population += p;
/* now get power */
if (get_power (x, y, POWER_RES_OVERHEAD
+ (POWER_USE_PER_PERSON * p), 0) != 0)
{
MP_INFO(x,y).flags |= FLAG_POWERED;
MP_INFO(x,y).flags |= FLAG_HAD_POWER;
good += 10;
}
else
{
MP_INFO(x,y).flags &= (0xffffffff - FLAG_POWERED);
bad += 15;
if ((MP_INFO(x,y).flags & FLAG_HAD_POWER) != 0)
bad += 50;
}
/* now get fed */
if (get_food (x, y, p) != 0)
{
MP_INFO(x,y).flags |= FLAG_FED;
good += 10;
}
else
MP_INFO(x,y).flags &= (0xffffffff - FLAG_FED);
/* now supply jobs and buy goods if employed */
if (MP_INFO(x,y).int_1 > 0)
swing = JOB_SWING + (hc * HC_JOB_SWING) + cc;
else
swing = -(JOB_SWING + (hc * HC_JOB_SWING) + cc);
if (put_jobs (x, y, ((p * (WORKING_POP_PERCENT + swing)) / 100)) != 0)
{
MP_INFO(x,y).flags |= FLAG_EMPLOYED;
MP_INFO(x,y).int_1++;
if (MP_INFO(x,y).int_1 > 10)
MP_INFO(x,y).int_1 = 10;
good += 20;
if (get_goods (x, y, p / 4) != 0)
{
good += 10;
if (get_power (x, y, p / 2, 0) != 0) /* goods use power */
{
good += 5;
brm += 10;
/* buy more goods if got power for them */
if (get_goods (x, y, p / 4) != 0)
good += 5;
}
else
bad += 5;
}
}
else if (MP_INFO(x,y).int_1 < 10)
{
MP_INFO(x,y).flags &= (0xffffffff - FLAG_EMPLOYED);
MP_INFO(x,y).int_1 -= 11;
if (MP_INFO(x,y).int_1 < -300)
MP_INFO(x,y).int_1 = -300;
unemployed_population += p;
total_unemployed_days += p;
if (total_unemployed_days >= NUMOF_DAYS_IN_YEAR)
{
total_unemployed_years++;
/* think we're ok doing this, max of about 120 added each time. */
total_unemployed_days -= NUMOF_DAYS_IN_YEAR;
unemployed_history += 1.0;
}
unemployment_cost += p; /* hmmm */
bad += 70;
}
else
{
MP_INFO(x,y).int_1 -= 20;
bad += 50;
}
drm += p / 4;
/* people_pool stuff */
bad += p / 2;
bad += MP_POL(x,y) / 20;
good += people_pool / 27;
r = rand () % ((good + bad) * RESIDENCE_PPM);
if (r < bad)
{
if (p > MIN_RES_POPULATION)
{
p--;
people_pool++;
}
}
else if (people_pool > 0 && r > ((good + bad) * (RESIDENCE_PPM - 1) + bad))
{
p++;
people_pool--;
}
MP_INFO(x,y).population = p;
MP_INFO(x,y).int_4 = brm;
MP_INFO(x,y).int_5 = drm;
}
