engine.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include "common.h"
#include "lctypes.h"
#include "lin-city.h"
#include "engine.h"
#include "engglobs.h"
#include "cliglobs.h"
#include "simulate.h"
#include "lcintl.h"
#include "power.h"
#include "mouse.h"
#include "module_buttons.h"
#include "pbar.h"
#include "stats.h"
#include "mps.h"
#include "screen.h"
#include "dialbox.h"

Go to the source code of this file.

Functions
int	adjust_money (int value)
int	is_real_river (int x, int y)
int	no_credit_build (int selected_group)
int	place_item (int x, int y, short type)
int	bulldoze_item (int x, int y)
void	do_residence (int x, int y)
void	do_industry_l (int x, int y)
void	do_industry_h (int x, int y)
void	do_organic_farm (int x, int y)
void	init_mappoint_array (void)
void	shuffle_mappoint_array (void)
void	do_coalmine (int x, int y)
void	do_oremine (int x, int y)
void	do_commune (int x, int y)
void	do_port (int x, int y)
int	buy_food (int xt, int yt)
int	buy_coal (int xt, int yt)
int	buy_ore (int xt, int yt)
int	buy_goods (int xt, int yt)
int	buy_steel (int xt, int yt)
int	sell_food (int xt, int yt)
int	sell_coal (int xt, int yt)
int	sell_ore (int xt, int yt)
int	sell_goods (int xt, int yt)
int	sell_steel (int xt, int yt)
void	do_pollution ()
void	do_parkland (int x, int y)
void	do_university (int x, int y)
void	do_recycle (int x, int y)
void	do_health_centre (int x, int y)
void	do_rocket_pad (int x, int y)
void	launch_rocket (int x, int y)
void	remove_people (int num)
void	do_monument (int x, int y)
void	do_school (int x, int y)
void	do_blacksmith (int x, int y)
void	do_mill (int x, int y)
void	do_pottery (int x, int y)
void	do_firestation (int x, int y)
void	do_cricket (int x, int y)
void	clear_fire_health_and_cricket_cover (void)
void	do_fire_health_and_cricket_cover (void)
void	do_fire_cover (int x, int y)
void	do_health_cover (int x, int y)
void	do_cricket_cover (int x, int y)
void	do_random_fire (int x, int y, int pwarning)
void	do_fire (int x, int y)
int	spiral_find_group (int startx, int starty, int group)
int	spiral_find_2x2 (int startx, int starty)
void	add_a_shanty (void)
void	remove_a_shanty (void)
void	update_shanty (void)
void	do_shanty (int x, int y)
void	do_tip (int x, int y)
void	do_bulldoze_area (short fill, int xx, int yy)
void	update_tech_dep (int x, int y)
void	connect_rivers (void)
void	do_coal_survey (void)
Variables
int	selected_type_cost

---

Function Documentation

void add_a_shanty (  void   )

Definition at line 3513 of file engine.c. { int r, x, y; x = rand () % WORLD_SIDE_LEN; y = rand () % WORLD_SIDE_LEN; if (numof_shanties > 0 && rand () % 8 != 0) { r = spiral_find_group (x, y, GROUP_SHANTY); if (r == -1) { printf ("Looked for a shanty, without any! x=%d y=%d\n", x, y); return; } y = r / WORLD_SIDE_LEN; x = r % WORLD_SIDE_LEN; r = spiral_find_2x2 (x, y); if (r == -1) { #ifdef commentout /* wck: These are annoying when the map is full */ printf ("Adding a shanty (s), no space for it?!\n"); #endif return; } y = r / WORLD_SIDE_LEN; x = r % WORLD_SIDE_LEN; } else { r = spiral_find_group (x, y, GROUP_MARKET); if (r == -1) return; /* silently return, we havn't started yet. */ y = r / WORLD_SIDE_LEN; x = r % WORLD_SIDE_LEN; r = spiral_find_2x2 (x, y); if (r == -1) { #ifdef commentout /* see above */ printf ("Adding a shanty (r), no space for it?!\n"); #endif return; } y = r / WORLD_SIDE_LEN; x = r % WORLD_SIDE_LEN; } set_mappoint (x, y, CST_SHANTY); numof_shanties++; }

int adjust_money (  int  value  )

Definition at line 29 of file engine.c. { total_money += value; print_total_money(); mappoint_stats(-3,-3,-3); update_pbar (PMONEY, total_money, 0); refresh_pbars(); /* This could be more specific */ return total_money; }

int bulldoze_item (  int  x, int  y )

Definition at line 254 of file engine.c. { int g, size; if (MP_TYPE(x,y) == CST_USED) { /* This is considered "improper" input. Silently ignore. */ return -1; } size = MP_SIZE(x,y); g = MP_GROUP(x,y); if (g == GROUP_BARE) { /* Nothing to do. */ return -1; } else if (g == GROUP_SHANTY) { fire_area (x, y); adjust_money(-GROUP_SHANTY_BUL_COST); } else if (g == GROUP_FIRE) { if (MP_INFO(x,y).int_2 >= FIRE_LENGTH) return -1; /* Can't bulldoze ? */ MP_INFO(x,y).int_2 = FIRE_LENGTH + 1; MP_TYPE(x,y) = CST_FIRE_DONE1; MP_GROUP(x,y) = GROUP_BURNT; adjust_money(-GROUP_BURNT_BUL_COST); } else { adjust_money(-main_groups[g].bul_cost); do_bulldoze_area (CST_GREEN, x, y); if (g == GROUP_OREMINE) { int i, j; for (j = 0; j < 4; j++) for (i = 0; i < 4; i++) if (MP_INFO(x + i,y + j).ore_reserve < ORE_RESERVE / 2) do_bulldoze_area (CST_WATER, x + i, y + j); } } /* Tell mps to check that we selected a valid module; if the previously selected module just got bulldozed, this will ensure that mps doesn't try to display it */ mappoint_stats(-1,-1,-1); return size; /* No longer used... */ }

int buy_coal (  int  xt, int  yt )

Definition at line 2009 of file engine.c. { int i = 0; if (MP_GROUP(xt,yt) == GROUP_TRACK) { if (MP_INFO(xt,yt).int_3 < MAX_COAL_ON_TRACK) i = MAX_COAL_ON_TRACK - MP_INFO(xt,yt).int_3; } else if (MP_GROUP(xt,yt) == GROUP_ROAD) { if (MP_INFO(xt,yt).int_3 < MAX_COAL_ON_ROAD) i = MAX_COAL_ON_ROAD - MP_INFO(xt,yt).int_3; } else if (MP_GROUP(xt,yt) == GROUP_RAIL) { if (MP_INFO(xt,yt).int_3 < MAX_COAL_ON_RAIL) i = MAX_COAL_ON_RAIL - MP_INFO(xt,yt).int_3; } i = (i * PORT_IMPORT_RATE) / 1000; MP_INFO(xt,yt).int_3 += i; return (i * PORT_COAL_RATE); }

int buy_food (  int  xt, int  yt )

Definition at line 1985 of file engine.c. { int i = 0; if (MP_GROUP(xt,yt) == GROUP_TRACK) { if (MP_INFO(xt,yt).int_1 < MAX_FOOD_ON_TRACK) i = MAX_FOOD_ON_TRACK - MP_INFO(xt,yt).int_1; } else if (MP_GROUP(xt,yt) == GROUP_ROAD) { if (MP_INFO(xt,yt).int_1 < MAX_FOOD_ON_ROAD) i = MAX_FOOD_ON_ROAD - MP_INFO(xt,yt).int_1; } else if (MP_GROUP(xt,yt) == GROUP_RAIL) { if (MP_INFO(xt,yt).int_1 < MAX_FOOD_ON_RAIL) i = MAX_FOOD_ON_RAIL - MP_INFO(xt,yt).int_1; } i = (i * PORT_IMPORT_RATE) / 1000; MP_INFO(xt,yt).int_1 += i; return (i * PORT_FOOD_RATE); }

int buy_goods (  int  xt, int  yt )

Definition at line 2057 of file engine.c. { int i = 0; if (MP_GROUP(xt,yt) == GROUP_TRACK) { if (MP_INFO(xt,yt).int_4 < MAX_GOODS_ON_TRACK) i = MAX_GOODS_ON_TRACK - MP_INFO(xt,yt).int_4; } else if (MP_GROUP(xt,yt) == GROUP_ROAD) { if (MP_INFO(xt,yt).int_4 < MAX_GOODS_ON_ROAD) i = MAX_GOODS_ON_ROAD - MP_INFO(xt,yt).int_4; } else if (MP_GROUP(xt,yt) == GROUP_RAIL) { if (MP_INFO(xt,yt).int_4 < MAX_GOODS_ON_RAIL) i = MAX_GOODS_ON_RAIL - MP_INFO(xt,yt).int_4; } i = (i * PORT_IMPORT_RATE) / 1000; MP_INFO(xt,yt).int_4 += i; return (i * PORT_GOODS_RATE); }

int buy_ore (  int  xt, int  yt )

Definition at line 2033 of file engine.c. { int i = 0; if (MP_GROUP(xt,yt) == GROUP_TRACK) { if (MP_INFO(xt,yt).int_5 < MAX_ORE_ON_TRACK) i = MAX_ORE_ON_TRACK - MP_INFO(xt,yt).int_5; } else if (MP_GROUP(xt,yt) == GROUP_ROAD) { if (MP_INFO(xt,yt).int_5 < MAX_ORE_ON_ROAD) i = MAX_ORE_ON_ROAD - MP_INFO(xt,yt).int_5; } else if (MP_GROUP(xt,yt) == GROUP_RAIL) { if (MP_INFO(xt,yt).int_5 < MAX_ORE_ON_RAIL) i = MAX_ORE_ON_RAIL - MP_INFO(xt,yt).int_5; } i = (i * PORT_IMPORT_RATE) / 1000; MP_INFO(xt,yt).int_5 += i; return (i * PORT_ORE_RATE); }

int buy_steel (  int  xt, int  yt )

Definition at line 2082 of file engine.c. { int i = 0; if (MP_GROUP(xt,yt) == GROUP_TRACK) { if (MP_INFO(xt,yt).int_6 < MAX_STEEL_ON_TRACK) i = MAX_STEEL_ON_TRACK - MP_INFO(xt,yt).int_6; } else if (MP_GROUP(xt,yt) == GROUP_ROAD) { if (MP_INFO(xt,yt).int_6 < MAX_STEEL_ON_ROAD) i = MAX_STEEL_ON_ROAD - MP_INFO(xt,yt).int_6; } else if (MP_GROUP(xt,yt) == GROUP_RAIL) { if (MP_INFO(xt,yt).int_6 < MAX_STEEL_ON_RAIL) i = MAX_STEEL_ON_RAIL - MP_INFO(xt,yt).int_6; } i = (i * PORT_IMPORT_RATE) / 1000; MP_INFO(xt,yt).int_6 += i; return (i * PORT_STEEL_RATE); }

void clear_fire_health_and_cricket_cover (  void   )

Definition at line 3123 of file engine.c. { int x, y, m; m = 0xffffffff - (FLAG_FIRE_COVER | FLAG_HEALTH_COVER | FLAG_CRICKET_COVER); for (y = 0; y < WORLD_SIDE_LEN; y++) for (x = 0; x < WORLD_SIDE_LEN; x++) MP_INFO(x,y).flags &= m; /* Wow... chache misses or what! */ }

void connect_rivers (  void   )

Definition at line 3805 of file engine.c. { int x, y, count; count = 1; while (count > 0) { count = 0; for (y = 0; y < WORLD_SIDE_LEN; y++) for (x = 0; x < WORLD_SIDE_LEN; x++) { if (is_real_river (x, y) == 1) { if (is_real_river (x - 1, y) == -1) { MP_INFO(x - 1,y).flags |= FLAG_IS_RIVER; count++; } if (is_real_river (x, y - 1) == -1) { MP_INFO(x,y - 1).flags |= FLAG_IS_RIVER; count++; } if (is_real_river (x + 1, y) == -1) { MP_INFO(x + 1,y).flags |= FLAG_IS_RIVER; count++; } if (is_real_river (x, y + 1) == -1) { MP_INFO(x,y + 1).flags |= FLAG_IS_RIVER; count++; } } } } }

void do_blacksmith (  int  x, int  y )

Definition at line 2728 of file engine.c. { /* // 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_bulldoze_area (  short  fill, int  xx, int  yy )

Definition at line 3717 of file engine.c. { int size, x, y; if (MP_TYPE(xx,yy) == CST_USED) { x = MP_INFO(xx,yy).int_1; y = MP_INFO(xx,yy).int_2; } else { x = xx; y = yy; } size = MP_SIZE(x,y); if (MP_GROUP(x,y) == GROUP_SUBSTATION || MP_GROUP(x,y) == GROUP_WINDMILL) remove_a_substation (x, y); else if (MP_GROUP(x,y) == GROUP_MARKET) remove_a_market (x, y); else if (MP_GROUP(x,y) == GROUP_SHANTY) numof_shanties--; else if (MP_GROUP(x,y) == GROUP_COMMUNE) numof_communes--; people_pool += MP_INFO(x,y).population; clear_mappoint (fill, x, y); if (size > 1) /* do size 2 */ { clear_mappoint (fill, x + 1, y); clear_mappoint (fill, x, y + 1); clear_mappoint (fill, x + 1, y + 1); } if (size > 2) /* do size 3 */ { clear_mappoint (fill, x + 2, y); clear_mappoint (fill, x + 2, y + 1); clear_mappoint (fill, x + 2, y + 2); clear_mappoint (fill, x, y + 2); clear_mappoint (fill, x + 1, y + 2); } if (size > 3) /* do size 4 */ { clear_mappoint (fill, x + 3, y); clear_mappoint (fill, x + 3, y + 1); clear_mappoint (fill, x + 3, y + 2); clear_mappoint (fill, x + 3, y + 3); clear_mappoint (fill, x, y + 3); clear_mappoint (fill, x + 1, y + 3); clear_mappoint (fill, x + 2, y + 3); } }

void do_coal_survey (  void   )

Definition at line 3857 of file engine.c. { if (coal_survey_done == 0) { adjust_money(-1000000); coal_survey_done = 1; } }

void do_coalmine (  int  x, int  y )

Definition at line 1359 of file engine.c. { /* // int_1 is the coal at the surface // int_2 is the coal reserve under the ground. More than one mine can // int_3 is the jobs collected. */ /* claim the coal under ground! */ int xx, yy, xs, ys, xe, ye, cr; if (MP_INFO(x,y).int_1 < (DIG_MORE_COAL_TRIGGER - 1000)) { if (MP_INFO(x,y).int_2 < 0) return; /* run out of reserves */ xs = x - COAL_RESERVE_SEARCH_LEN; if (xs < 0) xs = 0; ys = y - COAL_RESERVE_SEARCH_LEN; if (ys < 0) ys = 0; xe = x + COAL_RESERVE_SEARCH_LEN; if (xe > WORLD_SIDE_LEN) xe = WORLD_SIDE_LEN; ye = y + COAL_RESERVE_SEARCH_LEN; if (ye > WORLD_SIDE_LEN) ye = WORLD_SIDE_LEN; cr = 0; for (yy = ys; yy < ye; yy++) for (xx = xs; xx < xe; xx++) cr += MP_INFO(xx,yy).coal_reserve; MP_INFO(x,y).int_2 = cr; if (cr > 0) { if (get_jobs (x, y, JOBS_DIG_COAL - MP_INFO(x,y).int_3) != 0) { MP_INFO(x,y).int_3 = 0; for (yy = ys; yy < ye; yy++) for (xx = xs; xx < xe; xx++) if (MP_INFO(xx,yy).coal_reserve > 0) { MP_INFO(xx,yy).coal_reserve--; MP_INFO(x,y).int_1 += 1000; coal_made += 1000; coal_tax += 1000; sust_dig_ore_coal_tip_flag = 0; MP_POL(x,y) += COALMINE_POLLUTION; yy = ye; xx = xe; /* break out */ } } else if (get_jobs (x, y, JOBS_DIG_COAL / 10) != 0) MP_INFO(x,y).int_3 += JOBS_DIG_COAL / 10; else if (get_jobs (x, y, JOBS_DIG_COAL / 50) != 0) MP_INFO(x,y).int_3 += JOBS_DIG_COAL / 50; } else { MP_INFO(x,y).int_1 = 0; MP_INFO(x,y).int_2 = -1; } } /* put it on the railway */ if (MP_GROUP(x - 1,y) == GROUP_RAIL && MP_INFO(x - 1,y).int_3 < MAX_COAL_ON_RAIL && MP_INFO(x,y).int_1 >= (MAX_COAL_ON_RAIL - MP_INFO(x - 1,y).int_3)) { if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_1 -= (MAX_COAL_ON_RAIL - MP_INFO(x - 1,y).int_3); MP_INFO(x - 1,y).int_3 = MAX_COAL_ON_RAIL; } } if (MP_GROUP(x,y-1) == GROUP_RAIL && MP_INFO(x,y - 1).int_3 < MAX_COAL_ON_RAIL && MP_INFO(x,y).int_1 >= (MAX_COAL_ON_RAIL - MP_INFO(x,y - 1).int_3)) { if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_1 -= (MAX_COAL_ON_RAIL - MP_INFO(x,y - 1).int_3); MP_INFO(x,y - 1).int_3 = MAX_COAL_ON_RAIL; } } /* put it on the road */ if (MP_GROUP(x-1,y) == GROUP_ROAD && MP_INFO(x - 1,y).int_3 < MAX_COAL_ON_ROAD && MP_INFO(x,y).int_1 >= (MAX_COAL_ON_ROAD - MP_INFO(x - 1,y).int_3)) { if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_1 -= (MAX_COAL_ON_ROAD - MP_INFO(x - 1,y).int_3); MP_INFO(x - 1,y).int_3 = MAX_COAL_ON_ROAD; } } if (MP_GROUP(x,y-1) == GROUP_ROAD && MP_INFO(x,y - 1).int_3 < MAX_COAL_ON_ROAD && MP_INFO(x,y).int_1 >= (MAX_COAL_ON_ROAD - MP_INFO(x,y - 1).int_3)) { if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_1 -= (MAX_COAL_ON_ROAD - MP_INFO(x,y - 1).int_3); MP_INFO(x,y - 1).int_3 = MAX_COAL_ON_ROAD; } } /* put it on the tracks */ if (MP_GROUP(x-1,y) == GROUP_TRACK && MP_INFO(x - 1,y).int_3 < MAX_COAL_ON_TRACK && MP_INFO(x,y).int_1 >= (MAX_COAL_ON_TRACK - MP_INFO(x - 1,y).int_3)) { if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_1 -= (MAX_COAL_ON_TRACK - MP_INFO(x - 1,y).int_3); MP_INFO(x - 1,y).int_3 = MAX_COAL_ON_TRACK; } } if (MP_GROUP(x,y-1) == GROUP_TRACK && MP_INFO(x,y - 1).int_3 < MAX_COAL_ON_TRACK && MP_INFO(x,y).int_1 >= (MAX_COAL_ON_TRACK - MP_INFO(x,y - 1).int_3)) { if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_1 -= (MAX_COAL_ON_TRACK - MP_INFO(x,y - 1).int_3); MP_INFO(x,y - 1).int_3 = MAX_COAL_ON_TRACK; } } /* choose a graphic */ if (MP_INFO(x,y).int_1 > (MAX_COAL_AT_MINE - (MAX_COAL_AT_MINE / 5))) MP_TYPE(x,y) = CST_COALMINE_FULL; else if (MP_INFO(x,y).int_1 > (MAX_COAL_AT_MINE / 2)) MP_TYPE(x,y) = CST_COALMINE_MED; else if (MP_INFO(x,y).int_1 > 0) MP_TYPE(x,y) = CST_COALMINE_LOW; else MP_TYPE(x,y) = CST_COALMINE_EMPTY; }

void do_commune (  int  x, int  y )

Definition at line 1677 of file engine.c. { /* // int_1 is the animation trigger time // int_2 is the steelflag/trackflag // int_3 is the coal sold in the last 100 days 200 units is 100% // steel adds more. // int_4 is the months without selling much coal,steel,ore // int_5 is the coal, ore, steel waste flags for last month // int_6 is the coal, ore, steel waste flags so far this month */ /* GCS -- I folded the trackflag into int_2, changing the logic slightly. This change only affects the animation. */ int trackflag = 0; /* stick coal and ore on tracks, in SMALL doses. */ if (put_coal (x, y, 2) != 0) { trackflag = 1; MP_INFO(x,y).int_3++; MP_INFO(x,y).int_6 |= 1; } if (put_ore (x, y, 6) != 0) { trackflag = 1; MP_INFO(x,y).int_3++; MP_INFO(x,y).int_6 |= 2; } /* recycle a bit of waste */ if (get_waste (x, y, 20) != 0) { trackflag = 1; MP_INFO(x,y).int_3++; MP_INFO(x,y).int_6 |= 8; } if (total_time % 10 == 0) { MP_INFO(x,y).int_2 = 1; if (put_steel (x, y, 2) != 0) { MP_INFO(x,y).int_3++; MP_INFO(x,y).int_6 |= 4; } else { MP_INFO(x,y).int_2 = 0; } if (trackflag) { MP_INFO(x,y).int_2 = 0; } } if (total_time % 100 == 48) { MP_INFO(x,y).int_5 = MP_INFO(x,y).int_6; MP_INFO(x,y).int_6 = 0; if (MP_INFO(x,y).int_2 == 0 || trackflag == 0) { if (MP_TYPE(x,y) > CST_COMMUNE_7) MP_TYPE(x,y) -= 7; } else if (MP_TYPE(x,y) <= CST_COMMUNE_7) MP_TYPE(x,y) += 7; if (MP_INFO(x,y).int_3 > 0) /* >0% */ { MP_INFO(x,y).int_3 = 0; if (--MP_INFO(x,y).int_4 < 0) MP_INFO(x,y).int_4 = 0; } else { MP_INFO(x,y).int_3 = 0; MP_INFO(x,y).int_4++; if (MP_INFO(x,y).int_4 > 120) /* 10 years */ { do_bulldoze_area (CST_PARKLAND_PLANE, x, y); return; } } } /* animate */ if (real_time >= MP_INFO(x,y).int_1) { MP_INFO(x,y).int_1 = real_time + COMMUNE_ANIM_SPEED; switch (MP_TYPE(x,y)) { case (CST_COMMUNE_1): MP_TYPE(x,y) = CST_COMMUNE_2; break; case (CST_COMMUNE_2): MP_TYPE(x,y) = CST_COMMUNE_3; break; case (CST_COMMUNE_3): MP_TYPE(x,y) = CST_COMMUNE_4; break; case (CST_COMMUNE_4): MP_TYPE(x,y) = CST_COMMUNE_5; break; case (CST_COMMUNE_5): MP_TYPE(x,y) = CST_COMMUNE_6; break; case (CST_COMMUNE_6): MP_TYPE(x,y) = CST_COMMUNE_1; break; case (CST_COMMUNE_8): MP_TYPE(x,y) = CST_COMMUNE_9; break; case (CST_COMMUNE_9): MP_TYPE(x,y) = CST_COMMUNE_10; break; case (CST_COMMUNE_10): MP_TYPE(x,y) = CST_COMMUNE_11; break; case (CST_COMMUNE_11): MP_TYPE(x,y) = CST_COMMUNE_12; break; case (CST_COMMUNE_12): MP_TYPE(x,y) = CST_COMMUNE_13; break; case (CST_COMMUNE_13): MP_TYPE(x,y) = CST_COMMUNE_8; break; } } }

void do_cricket (  int  x, int  y )

Definition at line 3068 of file engine.c. { /* // int_1 is the jobs stored at the pavillion // int_2 is the goods stored at the pavillion // int_3 is the animation flag // int_4 is the time of the next frame */ if (MP_INFO(x,y).int_1 < (MAX_JOBS_AT_CRICKET - CRICKET_GET_JOBS)) if (get_jobs (x, y, CRICKET_GET_JOBS) != 0) MP_INFO(x,y).int_1 += CRICKET_GET_JOBS; if (MP_INFO(x,y).int_2 < (MAX_GOODS_AT_CRICKET - CRICKET_GET_GOODS)) if (get_goods (x, y, CRICKET_GET_GOODS) != 0) MP_INFO(x,y).int_2 += CRICKET_GET_GOODS; /* animate */ if (MP_INFO(x,y).int_3 && real_time > MP_INFO(x,y).int_4) { MP_INFO(x,y).int_4 = real_time + CRICKET_ANIMATION_SPEED; switch (MP_TYPE(x,y)) { case (CST_CRICKET_1): MP_TYPE(x,y) = CST_CRICKET_2; break; case (CST_CRICKET_2): MP_TYPE(x,y) = CST_CRICKET_3; break; case (CST_CRICKET_3): MP_TYPE(x,y) = CST_CRICKET_4; break; case (CST_CRICKET_4): MP_TYPE(x,y) = CST_CRICKET_5; break; case (CST_CRICKET_5): MP_TYPE(x,y) = CST_CRICKET_6; break; case (CST_CRICKET_6): MP_TYPE(x,y) = CST_CRICKET_7; break; case (CST_CRICKET_7): MP_TYPE(x,y) = CST_CRICKET_1; MP_INFO(x,y).int_3 = 0; /* disable anim */ break; } } /* That's all. Cover is done by different functions every 3 months or so. */ cricket_cost += CRICKET_RUNNING_COST; }

void do_cricket_cover (  int  x, int  y )

Definition at line 3208 of file engine.c. { int xx, x1, x2, y1, y2; if (MP_INFO(x,y).int_1 < (CRICKET_JOBS * DAYS_BETWEEN_COVER) || MP_INFO(x,y).int_2 < (CRICKET_GOODS * DAYS_BETWEEN_COVER)) return; MP_INFO(x,y).int_1 -= (CRICKET_JOBS * DAYS_BETWEEN_COVER); MP_INFO(x,y).int_2 -= (CRICKET_GOODS * DAYS_BETWEEN_COVER); MP_INFO(x,y).int_3 = 1; /* turn on animation */ x1 = x - CRICKET_RANGE; if (x1 < 0) x1 = 0; x2 = x + CRICKET_RANGE; if (x2 > WORLD_SIDE_LEN) x2 = WORLD_SIDE_LEN; y1 = y - CRICKET_RANGE; if (y1 < 0) y1 = 0; y2 = y + CRICKET_RANGE; if (y2 > WORLD_SIDE_LEN) y2 = WORLD_SIDE_LEN; for (; y1 < y2; y1++) for (xx = x1; xx < x2; xx++) MP_INFO(xx,y1).flags |= FLAG_CRICKET_COVER; }

void do_fire (  int  x, int  y )

Definition at line 3327 of file engine.c. { /* // int_1 is the next animation frame time // int_2 is the fire length // int_3 is the real_time before the fire can spread or -1 if triggered // int_4 is the idle land length */ int i; /* this so we don't get whole blocks changing in one go. */ if (MP_INFO(x,y).int_2 == 0) MP_INFO(x,y).int_2 = rand () % (FIRE_LENGTH / 5); if (MP_INFO(x,y).int_2 > FIRE_LENGTH) { int old_type = MP_TYPE(x,y); if (MP_INFO(x,y).int_4 == 0) /* rand length here also */ MP_INFO(x,y).int_4 = rand () % (AFTER_FIRE_LENGTH / 6); MP_INFO(x,y).int_4++; if (MP_INFO(x,y).int_4 > AFTER_FIRE_LENGTH) do_bulldoze_area (CST_GREEN, x, y); else if (MP_INFO(x,y).int_4 > (3 * AFTER_FIRE_LENGTH) / 4) MP_TYPE(x,y) = CST_FIRE_DONE4; else if (MP_INFO(x,y).int_4 > (2 * AFTER_FIRE_LENGTH) / 4) MP_TYPE(x,y) = CST_FIRE_DONE3; else if (MP_INFO(x,y).int_4 > (AFTER_FIRE_LENGTH) / 4) MP_TYPE(x,y) = CST_FIRE_DONE2; else MP_TYPE(x,y) = CST_FIRE_DONE1; return; } MP_INFO(x,y).int_2++; if (real_time > MP_INFO(x,y).int_1) { MP_INFO(x,y).int_1 = real_time + FIRE_ANIMATION_SPEED; if (MP_TYPE(x,y) == CST_FIRE_1) MP_TYPE(x,y) = CST_FIRE_2; else if (MP_TYPE(x,y) == CST_FIRE_2) MP_TYPE(x,y) = CST_FIRE_3; else if (MP_TYPE(x,y) == CST_FIRE_3) MP_TYPE(x,y) = CST_FIRE_4; else if (MP_TYPE(x,y) == CST_FIRE_4) MP_TYPE(x,y) = CST_FIRE_5; else if (MP_TYPE(x,y) == CST_FIRE_5) MP_TYPE(x,y) = CST_FIRE_1; } if (MP_INFO(x,y).int_3 == -1) { if ((rand () % FIRE_DAYS_PER_SPREAD) == 1) { i = rand () % 4; switch (i) { case (0): do_random_fire (x - 1, y, 0); break; case (1): do_random_fire (x, y - 1, 0); break; case (2): do_random_fire (x + 1, y, 0); break; case (3): do_random_fire (x, y + 1, 0); break; } } } /* check here 'cos we can wait in the ok box for ever. */ else if (MP_INFO(x,y).int_3 == 0) MP_INFO(x,y).int_3 = real_time + 15000; /* 15 secs seem fair */ else if (real_time >= MP_INFO(x,y).int_3) MP_INFO(x,y).int_3 = -1; }

void do_fire_cover (  int  x, int  y )

Definition at line 3154 of file engine.c. { int xx, x1, x2, y1, y2; if (MP_INFO(x,y).int_1 < (FIRESTATION_JOBS * DAYS_BETWEEN_COVER) || MP_INFO(x,y).int_2 < (FIRESTATION_GOODS * DAYS_BETWEEN_COVER)) return; MP_INFO(x,y).int_1 -= (FIRESTATION_JOBS * DAYS_BETWEEN_COVER); MP_INFO(x,y).int_2 -= (FIRESTATION_GOODS * DAYS_BETWEEN_COVER); MP_INFO(x,y).int_3 = 1; /* turn on animation */ x1 = x - FIRESTATION_RANGE; if (x1 < 0) x1 = 0; x2 = x + FIRESTATION_RANGE; if (x2 > WORLD_SIDE_LEN) x2 = WORLD_SIDE_LEN; y1 = y - FIRESTATION_RANGE; if (y1 < 0) y1 = 0; y2 = y + FIRESTATION_RANGE; if (y2 > WORLD_SIDE_LEN) y2 = WORLD_SIDE_LEN; for (; y1 < y2; y1++) for (xx = x1; xx < x2; xx++) MP_INFO(xx,y1).flags |= FLAG_FIRE_COVER; }

void do_fire_health_and_cricket_cover (  void   )

Definition at line 3135 of file engine.c. { int x, y; for (y = 0; y < WORLD_SIDE_LEN; y++) for (x = 0; x < WORLD_SIDE_LEN; x++) { /* The next few lines need changing to test for */ /* the group if these areas are animated. */ if (MP_GROUP(x,y) == GROUP_FIRESTATION) do_fire_cover (x, y); else if (MP_TYPE(x,y) == CST_HEALTH) do_health_cover (x, y); else if (MP_GROUP(x,y) == GROUP_CRICKET) do_cricket_cover (x, y); } }

void do_firestation (  int  x, int  y )

Definition at line 2996 of file engine.c. { /* // int_1 is the jobs stored at the fire station // int_2 is the goods stored at the fire station // int_3 is the animation flag // int_4 is the time of the next frame // int_5 is the pause counter */ if (MP_INFO(x,y).int_1 < (MAX_JOBS_AT_FIRESTATION - FIRESTATION_GET_JOBS)) if (get_jobs (x, y, FIRESTATION_GET_JOBS) != 0) MP_INFO(x,y).int_1 += FIRESTATION_GET_JOBS; if (MP_INFO(x,y).int_2 < (MAX_GOODS_AT_FIRESTATION - FIRESTATION_GET_GOODS)) if (get_goods (x, y, FIRESTATION_GET_GOODS) != 0) MP_INFO(x,y).int_2 += FIRESTATION_GET_GOODS; /* animate */ if (MP_INFO(x,y).int_3 && real_time > MP_INFO(x,y).int_4) { MP_INFO(x,y).int_4 = real_time + FIRESTATION_ANIMATION_SPEED; if (MP_INFO(x,y).int_5 > 0) MP_INFO(x,y).int_5--; else { switch (MP_TYPE(x,y)) { case (CST_FIRESTATION_1): MP_TYPE(x,y) = CST_FIRESTATION_2; break; case (CST_FIRESTATION_2): MP_TYPE(x,y) = CST_FIRESTATION_3; break; case (CST_FIRESTATION_3): MP_TYPE(x,y) = CST_FIRESTATION_4; break; case (CST_FIRESTATION_4): MP_TYPE(x,y) = CST_FIRESTATION_5; break; case (CST_FIRESTATION_5): MP_TYPE(x,y) = CST_FIRESTATION_6; break; case (CST_FIRESTATION_6): MP_TYPE(x,y) = CST_FIRESTATION_7; MP_INFO(x,y).int_5 = 10; /* pause */ break; case (CST_FIRESTATION_7): MP_TYPE(x,y) = CST_FIRESTATION_8; break; case (CST_FIRESTATION_8): MP_TYPE(x,y) = CST_FIRESTATION_9; break; case (CST_FIRESTATION_9): MP_TYPE(x,y) = CST_FIRESTATION_10; break; case (CST_FIRESTATION_10): MP_TYPE(x,y) = CST_FIRESTATION_1; MP_INFO(x,y).int_3 = 0; /* stop */ break; } } } /* That's all. Cover is done by different functions every 3 months or so. */ fire_cost += FIRESTATION_RUNNING_COST; }

void do_health_centre (  int  x, int  y )

Definition at line 2423 of file engine.c. { /* // int_1 is the jobs stored at the health centre // int_2 is the goods stored at the health centre */ if (MP_INFO(x,y).int_1 < (MAX_JOBS_AT_HEALTH_CENTRE - HEALTH_CENTRE_GET_JOBS)) if (get_jobs (x, y, HEALTH_CENTRE_GET_JOBS) != 0) MP_INFO(x,y).int_1 += HEALTH_CENTRE_GET_JOBS; if (MP_INFO(x,y).int_2 < (MAX_GOODS_AT_HEALTH_CENTRE - HEALTH_CENTRE_GET_GOODS)) if (get_goods (x, y, HEALTH_CENTRE_GET_GOODS) != 0) MP_INFO(x,y).int_2 += HEALTH_CENTRE_GET_GOODS; /* That's all. Cover is done by different functions every 3 months or so. */ health_cost += HEALTH_RUNNING_COST; }

void do_health_cover (  int  x, int  y )

Definition at line 3182 of file engine.c. { int xx, x1, x2, y1, y2; if (MP_INFO(x,y).int_1 < (HEALTH_CENTRE_JOBS * DAYS_BETWEEN_COVER) || MP_INFO(x,y).int_2 < (HEALTH_CENTRE_GOODS * DAYS_BETWEEN_COVER)) return; MP_INFO(x,y).int_1 -= (HEALTH_CENTRE_JOBS * DAYS_BETWEEN_COVER); MP_INFO(x,y).int_2 -= (HEALTH_CENTRE_GOODS * DAYS_BETWEEN_COVER); x1 = x - HEALTH_CENTRE_RANGE; if (x1 < 0) x1 = 0; x2 = x + HEALTH_CENTRE_RANGE; if (x2 > WORLD_SIDE_LEN) x2 = WORLD_SIDE_LEN; y1 = y - HEALTH_CENTRE_RANGE; if (y1 < 0) y1 = 0; y2 = y + HEALTH_CENTRE_RANGE; if (y2 > WORLD_SIDE_LEN) y2 = WORLD_SIDE_LEN; for (; y1 < y2; y1++) for (xx = x1; xx < x2; xx++) MP_INFO(xx,y1).flags |= FLAG_HEALTH_COVER; }

void do_industry_h (  int  x, int  y )

Definition at line 870 of file engine.c. { int rawm, steel = 0; /* // int_1 is the steel produced this month so far // int_2 is the amount of steel in store // int_3 is the amount of raw materials in store (ore) // int_4 is the coal in store // int_5 is the percent max production last month // int_6 is the time of the next animation frame. // int_7 is whether we get power from coal (1) or elsewhere (0) */ /* See if there's any raw materials (ore) on the road/rail. If so, use some jobs to get it. First get some ore... */ if (MP_INFO(x,y).int_3 < MAX_ORE_AT_INDUSTRY_H && ((MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0) && MP_INFO(x - 1,y).int_5 > 0) if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_3 += (MP_INFO(x - 1,y).int_5 / 2 + ((MP_INFO(x - 1,y).int_5) % 2)); MP_INFO(x - 1,y).int_5 /= 2; } if (MP_INFO(x,y).int_3 < MAX_ORE_AT_INDUSTRY_H && ((MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0) && MP_INFO(x,y - 1).int_5 > 0) if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_3 += (MP_INFO(x,y - 1).int_5 / 2 + ((MP_INFO(x,y - 1).int_5) % 2)); MP_INFO(x,y - 1).int_5 /= 2; } /* then get some coal if needed */ if (MP_INFO(x,y).int_4 < MAX_COAL_AT_INDUSTRY_H && ((MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0) && MP_INFO(x - 1,y).int_3 > 0) if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_4 += (MP_INFO(x - 1,y).int_3 / 2 + ((MP_INFO(x - 1,y).int_3) % 2)); MP_INFO(x - 1,y).int_3 /= 2; } if (MP_INFO(x,y).int_4 < MAX_ORE_AT_INDUSTRY_H && ((MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0) && MP_INFO(x,y - 1).int_3 > 0) if (get_jobs (x, y, JOBS_LOAD_COAL) != 0) { MP_INFO(x,y).int_4 += (MP_INFO(x,y - 1).int_3 / 2 + ((MP_INFO(x,y - 1).int_3) % 2)); MP_INFO(x,y - 1).int_3 /= 2; } rawm = MP_INFO(x,y).int_3; if (rawm > MAX_MADE_AT_INDUSTRY_H) rawm = MAX_MADE_AT_INDUSTRY_H; /* turn it into steel */ if (rawm > 0 && MP_INFO(x,y).int_2 < (MAX_STEEL_ON_RAIL * 10)) { if (get_jobs (x, y, ((rawm / 2) / JOBS_MAKE_STEEL) + 1) != 0) { steel = (rawm) / ORE_MAKE_STEEL; MP_POL(x,y) += INDUSTRY_H_POLLUTION / 2; } else if (get_jobs (x, y, ((rawm / 4) / JOBS_MAKE_STEEL) + 1) != 0) { steel = (rawm / 2) / ORE_MAKE_STEEL; MP_POL(x,y) += INDUSTRY_H_POLLUTION / 4; } else if (get_jobs (x, y, ((rawm / 10) / JOBS_MAKE_STEEL) + 1) != 0) { steel = (rawm / 5) / ORE_MAKE_STEEL; MP_POL(x,y) += INDUSTRY_H_POLLUTION / 10; } } /* do this here rather than later 'cos maybe steel/=5 */ MP_INFO(x,y).int_3 -= steel * ORE_MAKE_STEEL; ore_used += steel * ORE_MAKE_STEEL; /* check there was enough electricity, or back up to 1/10 of the production. ie same work and material useage for less production. If no real power, see if we have enough coal to generate electricity. */ if (get_power (x, y, steel * POWER_MAKE_STEEL, 1) == 0) { if (MP_INFO(x,y).int_4 < (steel * 2)) { MP_INFO(x,y).flags &= (0xffffffff - FLAG_POWERED); steel /= 5; } else { MP_INFO(x,y).int_4 -= (steel * 2); coal_used += (steel * 2); MP_INFO(x,y).flags |= FLAG_POWERED; MP_INFO(x,y).int_7 = 1; } } else { MP_INFO(x,y).flags |= FLAG_POWERED; MP_INFO(x,y).int_7 = 0; } MP_INFO(x,y).int_1 += steel; MP_INFO(x,y).int_2 += steel; /* now sell the steel to the road/rail */ if (MP_GROUP(x,y-1) == GROUP_ROAD && (MAX_STEEL_ON_ROAD - MP_INFO(x,y - 1).int_6) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_STEEL_ON_ROAD - MP_INFO(x,y - 1).int_6); MP_INFO(x,y - 1).int_6 = MAX_STEEL_ON_ROAD; } else if (MP_GROUP(x,y - 1) == GROUP_RAIL && (MAX_STEEL_ON_RAIL - MP_INFO(x,y - 1).int_6) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_STEEL_ON_RAIL - MP_INFO(x,y - 1).int_6); MP_INFO(x,y - 1).int_6 = MAX_STEEL_ON_RAIL; } else if (MP_GROUP(x,y-1) == GROUP_TRACK && (MAX_STEEL_ON_TRACK - MP_INFO(x,y - 1).int_6) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_STEEL_ON_TRACK - MP_INFO(x,y - 1).int_6); MP_INFO(x,y - 1).int_6 = MAX_STEEL_ON_TRACK; } if (MP_GROUP(x-1,y) == GROUP_ROAD && (MAX_STEEL_ON_ROAD - MP_INFO(x - 1,y).int_6) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_STEEL_ON_ROAD - MP_INFO(x - 1,y).int_6); MP_INFO(x - 1,y).int_6 = MAX_STEEL_ON_ROAD; } else if (MP_GROUP(x-1,y) == GROUP_RAIL && (MAX_STEEL_ON_RAIL - MP_INFO(x - 1,y).int_6) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_STEEL_ON_RAIL - MP_INFO(x - 1,y).int_6); MP_INFO(x - 1,y).int_6 = MAX_STEEL_ON_RAIL; } else if (MP_GROUP(x - 1,y) == GROUP_TRACK && (MAX_STEEL_ON_TRACK - MP_INFO(x - 1,y).int_6) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_STEEL_ON_TRACK - MP_INFO(x - 1,y).int_6); MP_INFO(x - 1,y).int_6 = MAX_STEEL_ON_TRACK; } /* now choose a graphic every month */ if ((total_time % NUMOF_DAYS_IN_MONTH) == NUMOF_DAYS_IN_MONTH - 1) { MP_INFO(x,y).int_5 = MP_INFO(x,y).int_1 / (MAX_MADE_AT_INDUSTRY_H / ORE_MAKE_STEEL); MP_INFO(x,y).int_1 = 0; if (MP_INFO(x,y).int_5 > 80) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_H_H1): case (CST_INDUSTRY_H_H2): case (CST_INDUSTRY_H_H3): case (CST_INDUSTRY_H_H4): case (CST_INDUSTRY_H_H5): case (CST_INDUSTRY_H_H6): case (CST_INDUSTRY_H_H7): case (CST_INDUSTRY_H_H8): break; default: MP_TYPE(x,y) = CST_INDUSTRY_H_H1; } } else if (MP_INFO(x,y).int_5 > 30) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_H_M1): case (CST_INDUSTRY_H_M2): case (CST_INDUSTRY_H_M3): case (CST_INDUSTRY_H_M4): case (CST_INDUSTRY_H_M5): case (CST_INDUSTRY_H_M6): case (CST_INDUSTRY_H_M7): case (CST_INDUSTRY_H_M8): break; default: MP_TYPE(x,y) = CST_INDUSTRY_H_M1; } } else if (MP_INFO(x,y).int_5 > 0) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_H_L1): case (CST_INDUSTRY_H_L2): case (CST_INDUSTRY_H_L3): case (CST_INDUSTRY_H_L4): case (CST_INDUSTRY_H_L5): case (CST_INDUSTRY_H_L6): case (CST_INDUSTRY_H_L7): case (CST_INDUSTRY_H_L8): break; default: MP_TYPE(x,y) = CST_INDUSTRY_H_L1; } } else MP_TYPE(x,y) = CST_INDUSTRY_H_C; } /* now animate */ if (real_time >= MP_INFO(x,y).int_6) { MP_INFO(x,y).int_6 = real_time + INDUSTRY_H_ANIM_SPEED; switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_H_L1): MP_TYPE(x,y) = CST_INDUSTRY_H_L2; break; case (CST_INDUSTRY_H_L2): MP_TYPE(x,y) = CST_INDUSTRY_H_L3; break; case (CST_INDUSTRY_H_L3): MP_TYPE(x,y) = CST_INDUSTRY_H_L4; break; case (CST_INDUSTRY_H_L4): MP_TYPE(x,y) = CST_INDUSTRY_H_L5; break; case (CST_INDUSTRY_H_L5): MP_TYPE(x,y) = CST_INDUSTRY_H_L6; break; case (CST_INDUSTRY_H_L6): MP_TYPE(x,y) = CST_INDUSTRY_H_L7; break; case (CST_INDUSTRY_H_L7): MP_TYPE(x,y) = CST_INDUSTRY_H_L8; break; case (CST_INDUSTRY_H_L8): MP_TYPE(x,y) = CST_INDUSTRY_H_L1; break; case (CST_INDUSTRY_H_M1): MP_TYPE(x,y) = CST_INDUSTRY_H_M2; break; case (CST_INDUSTRY_H_M2): MP_TYPE(x,y) = CST_INDUSTRY_H_M3; break; case (CST_INDUSTRY_H_M3): MP_TYPE(x,y) = CST_INDUSTRY_H_M4; break; case (CST_INDUSTRY_H_M4): MP_TYPE(x,y) = CST_INDUSTRY_H_M5; break; case (CST_INDUSTRY_H_M5): MP_TYPE(x,y) = CST_INDUSTRY_H_M6; break; case (CST_INDUSTRY_H_M6): MP_TYPE(x,y) = CST_INDUSTRY_H_M7; break; case (CST_INDUSTRY_H_M7): MP_TYPE(x,y) = CST_INDUSTRY_H_M8; break; case (CST_INDUSTRY_H_M8): MP_TYPE(x,y) = CST_INDUSTRY_H_M1; break; case (CST_INDUSTRY_H_H1): MP_TYPE(x,y) = CST_INDUSTRY_H_H2; break; case (CST_INDUSTRY_H_H2): MP_TYPE(x,y) = CST_INDUSTRY_H_H3; break; case (CST_INDUSTRY_H_H3): MP_TYPE(x,y) = CST_INDUSTRY_H_H4; break; case (CST_INDUSTRY_H_H4): MP_TYPE(x,y) = CST_INDUSTRY_H_H5; break; case (CST_INDUSTRY_H_H5): MP_TYPE(x,y) = CST_INDUSTRY_H_H6; break; case (CST_INDUSTRY_H_H6): MP_TYPE(x,y) = CST_INDUSTRY_H_H7; break; case (CST_INDUSTRY_H_H7): MP_TYPE(x,y) = CST_INDUSTRY_H_H8; break; case (CST_INDUSTRY_H_H8): MP_TYPE(x,y) = CST_INDUSTRY_H_H1; break; } } }

void do_industry_l (  int  x, int  y )

Definition at line 559 of file engine.c. { int goods = 0; /* // int_1 is the goods produced this month so far // int_2 is the amount of goods in store. // int_3 is the amount of ore in store. // int_4 is the amount of steel in store. // int_5 is the jobs stored. // int_6 is the percent of capacity last month. // int 7 is the next animation frame time. */ /* first get some jobs */ if (MP_INFO(x,y).int_5 < MAX_JOBS_AT_INDUSTRY_L - INDUSTRY_L_GET_JOBS) { if (get_jobs (x, y, INDUSTRY_L_GET_JOBS) != 0) MP_INFO(x,y).int_5 += INDUSTRY_L_GET_JOBS; else if (get_jobs (x, y, INDUSTRY_L_GET_JOBS / 10) != 0) MP_INFO(x,y).int_5 += INDUSTRY_L_GET_JOBS / 10; } /* if we don't have enough jobs we can't do anything */ if (MP_INFO(x,y).int_5 < MIN_JOBS_AT_INDUSTRY_L) return; /* get some ore */ if (MP_INFO(x,y).int_3 < (MAX_ORE_AT_INDUSTRY_L - INDUSTRY_L_GET_ORE)) { if ((MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0 && MP_INFO(x - 1,y).int_5 > 0) { if (MP_INFO(x - 1,y).int_5 >= INDUSTRY_L_GET_ORE) { MP_INFO(x,y).int_3 += INDUSTRY_L_GET_ORE; MP_INFO(x - 1,y).int_5 -= INDUSTRY_L_GET_ORE; } else { MP_INFO(x,y).int_3 += MP_INFO(x - 1,y).int_5; MP_INFO(x - 1,y).int_5 = 0; } MP_INFO(x,y).int_5 -= INDUSTRY_L_JOBS_LOAD_ORE; } } /* do we still need some ore? */ if (MP_INFO(x,y).int_3 < (MAX_ORE_AT_INDUSTRY_L - INDUSTRY_L_GET_ORE)) { if ((MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0 && MP_INFO(x,y - 1).int_5 > 0) { if (MP_INFO(x,y - 1).int_5 >= INDUSTRY_L_GET_ORE) { MP_INFO(x,y).int_3 += INDUSTRY_L_GET_ORE; MP_INFO(x,y - 1).int_5 -= INDUSTRY_L_GET_ORE; } else { MP_INFO(x,y).int_3 += MP_INFO(x,y - 1).int_5; MP_INFO(x,y - 1).int_5 = 0; } MP_INFO(x,y).int_5 -= INDUSTRY_L_JOBS_LOAD_ORE; } } /* then get some steel */ if (MP_INFO(x,y).int_4 < (MAX_STEEL_AT_INDUSTRY_L - INDUSTRY_L_GET_STEEL)) { if ((MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0 && MP_INFO(x - 1,y).int_6 > 0) { if (MP_INFO(x - 1,y).int_6 >= INDUSTRY_L_GET_STEEL) { MP_INFO(x,y).int_4 += INDUSTRY_L_GET_STEEL; MP_INFO(x - 1,y).int_6 -= INDUSTRY_L_GET_STEEL; } else { MP_INFO(x,y).int_4 += MP_INFO(x - 1,y).int_6; MP_INFO(x - 1,y).int_6 = 0; } MP_INFO(x,y).int_5 -= INDUSTRY_L_JOBS_LOAD_STEEL; } } /* do we still need some steel? */ if (MP_INFO(x,y).int_4 < (MAX_STEEL_AT_INDUSTRY_L - INDUSTRY_L_GET_STEEL)) { if ((MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0 && MP_INFO(x,y - 1).int_6 > 0) { if (MP_INFO(x,y - 1).int_6 >= INDUSTRY_L_GET_STEEL) { MP_INFO(x,y).int_4 += INDUSTRY_L_GET_STEEL; MP_INFO(x,y - 1).int_6 -= INDUSTRY_L_GET_STEEL; } else { MP_INFO(x,y).int_4 += MP_INFO(x,y - 1).int_6; MP_INFO(x,y - 1).int_6 = 0; } MP_INFO(x,y).int_5 -= INDUSTRY_L_JOBS_LOAD_STEEL; } } /* now make some goods */ if (MP_INFO(x,y).int_2 < (MAX_GOODS_AT_INDUSTRY_L - (INDUSTRY_L_MAKE_GOODS * 8)) && MP_INFO(x,y).int_3 >= INDUSTRY_L_ORE_USED) { goods += INDUSTRY_L_MAKE_GOODS; MP_INFO(x,y).int_3 -= INDUSTRY_L_ORE_USED; ore_used += INDUSTRY_L_ORE_USED; MP_INFO(x,y).int_5 -= INDUSTRY_L_JOBS_USED; MP_POL(x,y) += INDUSTRY_L_POLLUTION; /* multiply by 2 if we have steel. */ if (MP_INFO(x,y).int_4 >= INDUSTRY_L_STEEL_USED) { MP_INFO(x,y).int_4 -= INDUSTRY_L_STEEL_USED; goods += goods; } /* multipy by 4 if we can get power. */ if (MP_INFO(x,y).int_3 >= INDUSTRY_L_ORE_USED && get_power (x, y, goods * 10, 1) != 0) { goods *= 4; MP_INFO(x,y).flags |= FLAG_POWERED; /* and use more ore */ MP_INFO(x,y).int_3 -= INDUSTRY_L_ORE_USED; ore_used += INDUSTRY_L_ORE_USED; } else MP_INFO(x,y).flags &= (0xffffffff - FLAG_POWERED); } MP_INFO(x,y).int_1 += goods; MP_INFO(x,y).int_2 += goods; goods_made += goods; /* now sell the goods to the road/rail/track */ if (MP_GROUP(x,y - 1) == GROUP_ROAD && (MAX_GOODS_ON_ROAD - MP_INFO(x,y - 1).int_4) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_GOODS_ON_ROAD - MP_INFO(x,y - 1).int_4); MP_INFO(x,y - 1).int_4 = MAX_GOODS_ON_ROAD; } else if (MP_GROUP(x,y - 1) == GROUP_RAIL && (MAX_GOODS_ON_RAIL - MP_INFO(x,y - 1).int_4) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_GOODS_ON_RAIL - MP_INFO(x,y - 1).int_4); MP_INFO(x,y - 1).int_4 = MAX_GOODS_ON_RAIL; } else if (MP_GROUP(x,y - 1) == GROUP_TRACK && (MAX_GOODS_ON_TRACK - MP_INFO(x,y - 1).int_4) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_GOODS_ON_TRACK - MP_INFO(x,y - 1).int_4); MP_INFO(x,y - 1).int_4 = MAX_GOODS_ON_TRACK; } if (MP_GROUP(x - 1,y) == GROUP_ROAD && (MAX_GOODS_ON_ROAD - MP_INFO(x - 1,y).int_4) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_GOODS_ON_ROAD - MP_INFO(x - 1,y).int_4); MP_INFO(x - 1,y).int_4 = MAX_GOODS_ON_ROAD; } else if (MP_GROUP(x - 1,y) == GROUP_RAIL && (MAX_GOODS_ON_RAIL - MP_INFO(x - 1,y).int_4) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_GOODS_ON_RAIL - MP_INFO(x - 1,y).int_4); MP_INFO(x - 1,y).int_4 = MAX_GOODS_ON_RAIL; } else if (MP_GROUP(x-1,y) == GROUP_TRACK && (MAX_GOODS_ON_TRACK - MP_INFO(x - 1,y).int_4) <= MP_INFO(x,y).int_2) { MP_INFO(x,y).int_2 -= (MAX_GOODS_ON_TRACK - MP_INFO(x - 1,y).int_4); MP_INFO(x - 1,y).int_4 = MAX_GOODS_ON_TRACK; } /* now choose a graphic every month */ if ((total_time % NUMOF_DAYS_IN_MONTH) == NUMOF_DAYS_IN_MONTH - 1) { MP_INFO(x,y).int_6 = (MP_INFO(x,y).int_1) / (INDUSTRY_L_MAKE_GOODS * 8); MP_INFO(x,y).int_1 = 0; if (MP_INFO(x,y).int_6 > 80) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_L_H1): case (CST_INDUSTRY_L_H2): case (CST_INDUSTRY_L_H3): case (CST_INDUSTRY_L_H4): break; default: MP_TYPE(x,y) = CST_INDUSTRY_L_H1; } } else if (MP_INFO(x,y).int_6 > 55) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_L_M1): case (CST_INDUSTRY_L_M2): case (CST_INDUSTRY_L_M3): case (CST_INDUSTRY_L_M4): break; default: MP_TYPE(x,y) = CST_INDUSTRY_L_M1; } } else if (MP_INFO(x,y).int_6 > 25) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_L_L1): case (CST_INDUSTRY_L_L2): case (CST_INDUSTRY_L_L3): case (CST_INDUSTRY_L_L4): break; default: MP_TYPE(x,y) = CST_INDUSTRY_L_L1; } } else if (MP_INFO(x,y).int_6 > 0) { switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_L_Q1): case (CST_INDUSTRY_L_Q2): case (CST_INDUSTRY_L_Q3): case (CST_INDUSTRY_L_Q4): break; default: MP_TYPE(x,y) = CST_INDUSTRY_L_Q1; } } else MP_TYPE(x,y) = CST_INDUSTRY_L_C; } /* now animate */ if (real_time >= MP_INFO(x,y).int_7) { MP_INFO(x,y).int_7 = real_time + INDUSTRY_L_ANIM_SPEED; switch (MP_TYPE(x,y)) { case (CST_INDUSTRY_L_Q1): MP_TYPE(x,y) = CST_INDUSTRY_L_Q2; break; case (CST_INDUSTRY_L_Q2): MP_TYPE(x,y) = CST_INDUSTRY_L_Q3; break; case (CST_INDUSTRY_L_Q3): MP_TYPE(x,y) = CST_INDUSTRY_L_Q4; break; case (CST_INDUSTRY_L_Q4): MP_TYPE(x,y) = CST_INDUSTRY_L_Q1; break; case (CST_INDUSTRY_L_L1): MP_TYPE(x,y) = CST_INDUSTRY_L_L2; break; case (CST_INDUSTRY_L_L2): MP_TYPE(x,y) = CST_INDUSTRY_L_L3; break; case (CST_INDUSTRY_L_L3): MP_TYPE(x,y) = CST_INDUSTRY_L_L4; break; case (CST_INDUSTRY_L_L4): MP_TYPE(x,y) = CST_INDUSTRY_L_L1; break; case (CST_INDUSTRY_L_M1): MP_TYPE(x,y) = CST_INDUSTRY_L_M2; break; case (CST_INDUSTRY_L_M2): MP_TYPE(x,y) = CST_INDUSTRY_L_M3; break; case (CST_INDUSTRY_L_M3): MP_TYPE(x,y) = CST_INDUSTRY_L_M4; break; case (CST_INDUSTRY_L_M4): MP_TYPE(x,y) = CST_INDUSTRY_L_M1; break; case (CST_INDUSTRY_L_H1): MP_TYPE(x,y) = CST_INDUSTRY_L_H2; break; case (CST_INDUSTRY_L_H2): MP_TYPE(x,y) = CST_INDUSTRY_L_H3; break; case (CST_INDUSTRY_L_H3): MP_TYPE(x,y) = CST_INDUSTRY_L_H4; break; case (CST_INDUSTRY_L_H4): MP_TYPE(x,y) = CST_INDUSTRY_L_H1; break; } } }

void do_mill (  int  x, int  y )

Definition at line 2807 of file engine.c. { /* // int_1 contains the goods at the mill // int_2 contains the food store // int_3 contains the coal store // int_4 contains the animation trigger time // int_5 is the % count so far this month // int_6 is the % capacity last month */ /* get food */ int block_anim = 0; if (MP_INFO(x,y).int_2 < MAX_FOOD_AT_MILL) if (get_food (x, y, MILL_GET_FOOD) != 0) MP_INFO(x,y).int_2 += MILL_GET_FOOD; /* get coal */ if (MP_INFO(x,y).int_3 < MAX_COAL_AT_MILL) { if (get_coal (x, y, MILL_GET_COAL) != 0) MP_INFO(x,y).int_3 += MILL_GET_COAL; else if (get_power (x, y, MILL_GET_COAL * MILL_POWER_PER_COAL, 0) != 0) MP_INFO(x,y).int_3 += MILL_GET_COAL; } if (MP_INFO(x,y).int_1 < MAX_GOODS_AT_MILL) { if (MP_INFO(x,y).int_2 > FOOD_USED_BY_MILL && MP_INFO(x,y).int_3 > COAL_USED_BY_MILL) { if (get_jobs (x, y, MILL_JOBS) != 0) { MP_INFO(x,y).int_2 -= FOOD_USED_BY_MILL; MP_INFO(x,y).int_3 -= COAL_USED_BY_MILL; MP_INFO(x,y).int_1 += GOODS_MADE_BY_MILL; MP_INFO(x,y).int_5++; } else { MP_TYPE(x,y) = CST_MILL_0; block_anim = 1; } } else block_anim = 1; } if (MP_INFO(x,y).int_1 > 0) if (put_goods (x, y, MP_INFO(x,y).int_1) != 0) MP_INFO(x,y).int_1 = 0; if (total_time % 100 == 0) { MP_INFO(x,y).int_6 = MP_INFO(x,y).int_5; MP_INFO(x,y).int_5 = 0; } if (real_time >= MP_INFO(x,y).int_4 && block_anim == 0) { MP_INFO(x,y).int_4 = real_time + MILL_ANIM_SPEED; switch (MP_TYPE(x,y)) { case (CST_MILL_0): MP_TYPE(x,y) = CST_MILL_1; break; case (CST_MILL_1): MP_TYPE(x,y) = CST_MILL_2; break; case (CST_MILL_2): MP_TYPE(x,y) = CST_MILL_3; break; case (CST_MILL_3): MP_TYPE(x,y) = CST_MILL_4; break; case (CST_MILL_4): MP_TYPE(x,y) = CST_MILL_5; break; case (CST_MILL_5): MP_TYPE(x,y) = CST_MILL_6; break; case (CST_MILL_6): MP_TYPE(x,y) = CST_MILL_1; MP_POL(x,y)++; break; } } }

void do_monument (  int  x, int  y )

Definition at line 2654 of file engine.c. { /* // int_1 holds the jobs used // int_2 holds the tech points made // int_3 holds the tail off count */ if (MP_INFO(x,y).int_1 < BUILD_MONUMENT_JOBS) if (get_jobs (x, y, MONUMENT_GET_JOBS) != 0) MP_INFO(x,y).int_1 += MONUMENT_GET_JOBS; /* now choose a graphic */ if (MP_INFO(x,y).int_1 >= BUILD_MONUMENT_JOBS) { MP_TYPE(x,y) = CST_MONUMENT_5; /* inc tech level only if fully built and tech less than MONUMENT_TECH_EXPIRE */ if (tech_level < (MONUMENT_TECH_EXPIRE * 1000) && (total_time % MONUMENT_DAYS_PER_TECH) == 1) { if (MP_INFO(x,y).int_3++ > (tech_level / 10000) - 2) { tech_level++; MP_INFO(x,y).int_2++; MP_INFO(x,y).int_3 = 0; } } } else if (MP_INFO(x,y).int_1 >= ((BUILD_MONUMENT_JOBS * 4) / 5)) MP_TYPE(x,y) = CST_MONUMENT_4; else if (MP_INFO(x,y).int_1 >= ((BUILD_MONUMENT_JOBS * 3) / 5)) MP_TYPE(x,y) = CST_MONUMENT_3; else if (MP_INFO(x,y).int_1 >= ((BUILD_MONUMENT_JOBS * 2) / 5)) MP_TYPE(x,y) = CST_MONUMENT_2; else if (MP_INFO(x,y).int_1 >= (BUILD_MONUMENT_JOBS / 20)) MP_TYPE(x,y) = CST_MONUMENT_1; else MP_TYPE(x,y) = CST_MONUMENT_0; }

void do_oremine (  int  x, int  y )

Definition at line 1510 of file engine.c. { /* // int_1 is the ore at in stock // int_2 is the ore reserve under the ground or at the surface really. */ int xx, yy, xs, ys, xe, ye, cr; if (MP_INFO(x,y).int_1 < DIG_MORE_ORE_TRIGGER - 5000) { xs = x; ys = y; xe = x + 4; ye = y + 4; cr = 0; for (yy = ys; yy < ye; yy++) for (xx = xs; xx < xe; xx++) cr += MP_INFO(xx,yy).ore_reserve; MP_INFO(x,y).int_2 = cr; if (cr > 0) if (get_jobs (x, y, JOBS_DIG_ORE) != 0) for (yy = ys; yy < ye; yy++) for (xx = xs; xx < xe; xx++) if (MP_INFO(xx,yy).ore_reserve > 0) { MP_INFO(xx,yy).ore_reserve--; MP_INFO(x,y).int_1 += 5000; ore_made += 5000; sust_dig_ore_coal_tip_flag = 0; /* maybe want an ore tax? */ yy = ye; xx = xe; /* break out */ } } if ((MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0) { if (MP_GROUP(x-1,y) == GROUP_RAIL && MP_INFO(x - 1,y).int_5 < MAX_ORE_ON_RAIL && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_RAIL - MP_INFO(x - 1,y).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_RAIL - MP_INFO(x - 1,y).int_5); MP_INFO(x - 1,y).int_5 = MAX_ORE_ON_RAIL; } } else if (MP_GROUP(x-1,y) == GROUP_ROAD && MP_INFO(x - 1,y).int_5 < MAX_ORE_ON_ROAD && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_ROAD - MP_INFO(x - 1,y).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_ROAD - MP_INFO(x - 1,y).int_5); MP_INFO(x - 1,y).int_5 = MAX_ORE_ON_ROAD; } } else if (MP_GROUP(x - 1,y) == GROUP_TRACK && MP_INFO(x - 1,y).int_5 < MAX_ORE_ON_TRACK && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_TRACK - MP_INFO(x - 1,y).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_TRACK - MP_INFO(x - 1,y).int_5); MP_INFO(x - 1,y).int_5 = MAX_ORE_ON_TRACK; } } } if ((MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0) { if (MP_GROUP(x,y-1) == GROUP_RAIL && MP_INFO(x,y - 1).int_5 < MAX_ORE_ON_RAIL && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_RAIL - MP_INFO(x,y - 1).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_RAIL - MP_INFO(x,y - 1).int_5); MP_INFO(x,y - 1).int_5 = MAX_ORE_ON_RAIL; } } else if (MP_GROUP(x,y-1) == GROUP_ROAD && MP_INFO(x,y - 1).int_5 < MAX_ORE_ON_ROAD && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_ROAD - MP_INFO(x,y - 1).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_ROAD - MP_INFO(x,y - 1).int_5); MP_INFO(x,y - 1).int_5 = MAX_ORE_ON_ROAD; } } else if (MP_GROUP(x,y-1) == GROUP_TRACK && MP_INFO(x,y - 1).int_5 < MAX_ORE_ON_TRACK && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_TRACK - MP_INFO(x,y - 1).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_TRACK - MP_INFO(x,y - 1).int_5); MP_INFO(x,y - 1).int_5 = MAX_ORE_ON_TRACK; } } } /* choose a graphic */ if ((total_time & 0x7f) == 0) { xx = 7 * (MP_INFO(x,y).int_2 + (3 * ORE_RESERVE / 2)) / (16 * ORE_RESERVE); switch (xx) { case (0): MP_TYPE(x,y) = CST_OREMINE_8; break; case (1): MP_TYPE(x,y) = CST_OREMINE_7; break; case (2): MP_TYPE(x,y) = CST_OREMINE_6; break; case (3): MP_TYPE(x,y) = CST_OREMINE_5; break; case (4): MP_TYPE(x,y) = CST_OREMINE_4; break; case (5): MP_TYPE(x,y) = CST_OREMINE_3; break; case (6): MP_TYPE(x,y) = CST_OREMINE_2; break; case (7): MP_TYPE(x,y) = CST_OREMINE_1; break; } if (MP_INFO(x,y).int_2 <= 0) { #if defined (commentout) do_bulldoze_area (CST_GREEN, x, y); place_item(x,y,CST_TIP_0); #endif int i,j; for (j = 0; j < 4; j++) { for (i = 0; i < 4; i++) { do_bulldoze_area (CST_WATER, x+i, y+j); } } connect_rivers (); refresh_main_screen (); } } }

void do_organic_farm (  int  x, int  y )

Definition at line 1176 of file engine.c. { /* // 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_parkland (  int  x, int  y )

Definition at line 2215 of file engine.c. { if (MP_POL(x,y) > 10 && (total_time & 1) == 0) MP_POL(x,y) -= 1; }

void do_pollution (  void   )

Definition at line 2151 of file engine.c. { int x, p; int* pol = &map.pollution[0][0]; /* Kill pollution from top edge of map */ do { if (*pol > 0) *pol /= POL_DIV; } while (++pol < &map.pollution[1][0]); x= 1; do { /* Kill some pollution from left edge of map */ if (*pol++ > 0) *(pol-1) /= POL_DIV; do { if (*pol > 10) { p = *pol / 16; *pol -= p; switch ( rand() % 11) { /* prevailing wind is *from* SW ie right down */ case 0: case 1: /* up */ case 2: *(pol - 1) += p; break; case 3: case 4: /* right */ case 5: *(pol + WORLD_SIDE_LEN) += p; break; case 6: /* down */ case 7: *(pol + 1) += p; break; case 8: /* left */ case 9: *(pol - WORLD_SIDE_LEN) += p; break; case 10: *pol += p- 2; break; } } } while (++pol < &map.pollution[x][WORLD_SIDE_LEN-1]); /* Kill some pollution from right edge of map */ if (*pol > 0) *pol /= POL_DIV; ++x; } while (++pol < &map.pollution[WORLD_SIDE_LEN-1][0]); /* Kill pollution from bottom edge of map */ do { if (*pol > 0) *pol /= POL_DIV; } while (++pol < &map.pollution[WORLD_SIDE_LEN][0]); }

void do_port (  int  x, int  y )

Definition at line 1801 of file engine.c. { /* // int_1 is the money made so far this month // int_2 is the money made last month // int_3 holds the 'pence/pennies/bits' to add next time round. // int_4 is the import costs so far this month // int_5 is the import costs for last month // Use int_3 to int_7 of (x+1,y) to hold the individual buy values // (x,y+1) is last month's // Use int_3 to int_7 of (x+2,y) to hold the individual sell values // (x,y+2) is last month's */ int i, et = 0, ic = 0, flags, *b1, *b2, *s1, *s2; /* left connection first */ flags = MP_INFO(x,y).flags; if (x > 0 && (MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0) { if ((flags & FLAG_MB_FOOD) != 0) { i = buy_food (x - 1, y); ic += i; MP_INFO(x + 1,y).int_3 += i; } if ((flags & FLAG_MS_FOOD) != 0) { i = sell_food (x - 1, y); et += i; MP_INFO(x + 2,y).int_3 += i; } if ((flags & FLAG_MB_COAL) != 0) { i = buy_coal (x - 1, y); ic += i; MP_INFO(x + 1,y).int_4 += i; } if ((flags & FLAG_MS_COAL) != 0) { i = sell_coal (x - 1, y); et += i; MP_INFO(x + 2,y).int_4 += i; } if ((flags & FLAG_MB_ORE) != 0) { i = buy_ore (x - 1, y); ic += i; MP_INFO(x + 1,y).int_5 += i; } if ((flags & FLAG_MS_ORE) != 0) { i = sell_ore (x - 1, y); et += i; MP_INFO(x + 2,y).int_5 += i; } if ((flags & FLAG_MB_GOODS) != 0) { i = buy_goods (x - 1, y); ic += i; MP_INFO(x + 1,y).int_6 += i; } if ((flags & FLAG_MS_GOODS) != 0) { i = sell_goods (x - 1, y); et += i; MP_INFO(x + 2,y).int_6 += i; } if ((flags & FLAG_MB_STEEL) != 0) { i = buy_steel (x - 1, y); ic += i; MP_INFO(x + 1,y).int_7 += i; } if ((flags & FLAG_MS_STEEL) != 0) { i = sell_steel (x - 1, y); et += i; MP_INFO(x + 2,y).int_7 += i; } } /* upper gate next */ if (y > 0 && (MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0) { if ((flags & FLAG_MB_FOOD) != 0) { i = buy_food (x, y - 1); ic += i; MP_INFO(x + 1,y).int_3 += i; } if ((flags & FLAG_MS_FOOD) != 0) { i = sell_food (x, y - 1); et += i; MP_INFO(x + 2,y).int_3 += i; } if ((flags & FLAG_MB_COAL) != 0) { i = buy_coal (x, y - 1); ic += i; MP_INFO(x + 1,y).int_4 += i; } if ((flags & FLAG_MS_COAL) != 0) { i = sell_coal (x, y - 1); et += i; MP_INFO(x + 2,y).int_4 += i; } if ((flags & FLAG_MB_ORE) != 0) { i = buy_ore (x, y - 1); ic += i; MP_INFO(x + 1,y).int_5 += i; } if ((flags & FLAG_MS_ORE) != 0) { i = sell_ore (x, y - 1); et += i; MP_INFO(x + 2,y).int_5 += i; } if ((flags & FLAG_MB_GOODS) != 0) { i = buy_goods (x, y - 1); ic += i; MP_INFO(x + 1,y).int_6 += i; } if ((flags & FLAG_MS_GOODS) != 0) { i = sell_goods (x, y - 1); et += i; MP_INFO(x + 2,y).int_6 += i; } if ((flags & FLAG_MB_STEEL) != 0) { i = buy_steel (x, y - 1); ic += i; MP_INFO(x + 1,y).int_7 += i; } if ((flags & FLAG_MS_STEEL) != 0) { i = sell_steel (x, y - 1); et += i; MP_INFO(x + 2,y).int_7 += i; } } MP_INFO(x,y).int_1 += et; MP_INFO(x,y).int_4 += ic; if (total_time % 100 == 0) { MP_INFO(x,y).int_2 = MP_INFO(x,y).int_1; MP_INFO(x,y).int_1 = 0; MP_INFO(x,y).int_5 = MP_INFO(x,y).int_4; MP_INFO(x,y).int_4 = 0; b1 = &(MP_INFO(x + 1,y).int_3); s1 = &(MP_INFO(x + 2,y).int_3); b2 = &(MP_INFO(x,y + 1).int_3); s2 = &(MP_INFO(x,y + 2).int_3); /* GCS FIX -- This obfuscation is unnecessary. */ for (i = 0; i < 5; i++) { *(b2++) = *b1; *(s2++) = *s1; *(b1++) = 0; *(s1++) = 0; } } if (et > 0) { sust_port_flag = 0; tech_level++; } if (ic > 0) { sust_port_flag = 0; tech_level++; } et += MP_INFO(x,y).int_3; /* int_3 holds the 'pence' */ export_tax += et / 100; MP_INFO(x,y).int_3 = et % 100; import_cost += ic; }

void do_pottery (  int  x, int  y )

Definition at line 2894 of file engine.c. { /* // int_1 contains the goods at the pottery // int_2 contains the ore at the pottery // int_3 contains the coal at the pottery // int_4 is the animation trigger time // int_5 is the % made so far this month or the close time if negative // int_6 is the % capacity last month // int_7 contains the jobs stored at the pottery */ if (MP_INFO(x,y).int_5 < 0) { MP_INFO(x,y).int_5++; return; } if (MP_INFO(x,y).int_1 < (MAX_GOODS_AT_POTTERY - POTTERY_MADE_GOODS)) { if (MP_INFO(x,y).int_2 < (MAX_ORE_AT_POTTERY - POTTERY_GET_ORE)) if (get_ore (x, y, POTTERY_GET_ORE) != 0) MP_INFO(x,y).int_2 += POTTERY_GET_ORE; if (MP_INFO(x,y).int_3 < (MAX_COAL_AT_POTTERY - POTTERY_GET_COAL)) if (get_coal (x, y, POTTERY_GET_COAL) != 0) MP_INFO(x,y).int_3 += POTTERY_GET_COAL; if (MP_INFO(x,y).int_7 < (MAX_JOBS_AT_POTTERY - POTTERY_GET_JOBS)) if (get_jobs (x, y, POTTERY_GET_JOBS) != 0) MP_INFO(x,y).int_7 += POTTERY_GET_JOBS; if (MP_INFO(x,y).int_2 > POTTERY_ORE_MAKE_GOODS && MP_INFO(x,y).int_3 > POTTERY_COAL_MAKE_GOODS && MP_INFO(x,y).int_7 > POTTERY_JOBS) { MP_INFO(x,y).int_1 += POTTERY_MADE_GOODS; MP_INFO(x,y).int_2 -= POTTERY_ORE_MAKE_GOODS; MP_INFO(x,y).int_3 -= POTTERY_COAL_MAKE_GOODS; MP_INFO(x,y).int_7 -= POTTERY_JOBS; MP_INFO(x,y).int_5++; } else { MP_TYPE(x,y) = CST_POTTERY_1; MP_INFO(x,y).int_6 = 0; MP_INFO(x,y).int_5 = -POTTERY_CLOSE_TIME; return; } } if (MP_INFO(x,y).int_1 > 0) if (put_goods (x, y, MP_INFO(x,y).int_1) != 0) MP_INFO(x,y).int_1 = 0; if (total_time % 100 == 0) { MP_INFO(x,y).int_6 = MP_INFO(x,y).int_5; MP_INFO(x,y).int_5 = 0; } if (real_time >= MP_INFO(x,y).int_4 /* && block_anim==0 */ ) { MP_INFO(x,y).int_4 = real_time + POTTERY_ANIM_SPEED; switch (MP_TYPE(x,y)) { case (CST_POTTERY_0): MP_TYPE(x,y) = CST_POTTERY_1; break; case (CST_POTTERY_1): MP_TYPE(x,y) = CST_POTTERY_2; break; case (CST_POTTERY_2): MP_TYPE(x,y) = CST_POTTERY_3; break; case (CST_POTTERY_3): MP_TYPE(x,y) = CST_POTTERY_4; break; case (CST_POTTERY_4): MP_TYPE(x,y) = CST_POTTERY_5; break; case (CST_POTTERY_5): MP_TYPE(x,y) = CST_POTTERY_6; break; case (CST_POTTERY_6): MP_TYPE(x,y) = CST_POTTERY_7; break; case (CST_POTTERY_7): MP_TYPE(x,y) = CST_POTTERY_8; break; case (CST_POTTERY_8): MP_TYPE(x,y) = CST_POTTERY_9; break; case (CST_POTTERY_9): MP_TYPE(x,y) = CST_POTTERY_10; break; case (CST_POTTERY_10): MP_TYPE(x,y) = CST_POTTERY_1; MP_POL(x,y)++; break; } } }

void do_random_fire (  int  x, int  y, int  pwarning )

Definition at line 3237 of file engine.c. { int xx, yy; if (x == -1 && y == -1) { x = rand () % WORLD_SIDE_LEN; y = rand () % WORLD_SIDE_LEN; } else { if (x < 0 || x >= WORLD_SIDE_LEN || y < 0 || y >= WORLD_SIDE_LEN) return; } if (MP_TYPE(x,y) == CST_USED) { xx = MP_INFO(x,y).int_1; yy = MP_INFO(x,y).int_2; x = xx; y = yy; } xx = rand () % 100; if (xx >= (main_groups[MP_GROUP(x,y)].fire_chance)) return; if ((MP_INFO(x,y).flags & FLAG_FIRE_COVER) != 0) return; if (pwarning) { if (MP_GROUP(x,y) == GROUP_POWER_LINE) ok_dial_box ("fire.mes", BAD, _("It's at a power line.")); else if (MP_GROUP(x,y) == GROUP_SOLAR_POWER) ok_dial_box ("fire.mes", BAD, _("It's at a solar power station.")); else if (MP_GROUP(x,y) == GROUP_SUBSTATION) ok_dial_box ("fire.mes", BAD, _("It's at a substation.")); else if (MP_GROUP_IS_RESIDENCE(x,y)) ok_dial_box ("fire.mes", BAD, _("It's at a residential area.")); else if (MP_GROUP(x,y) == GROUP_ORGANIC_FARM) ok_dial_box ("fire.mes", BAD, _("It's at a farm.")); else if (MP_GROUP(x,y) == GROUP_MARKET) ok_dial_box ("fire.mes", BAD, _("It's at a market.")); else if (MP_GROUP(x,y) == GROUP_TRACK) ok_dial_box ("fire.mes", BAD, _("It's at a track.")); else if (MP_GROUP(x,y) == GROUP_COALMINE) ok_dial_box ("fire.mes", BAD, _("It's at a coal mine.")); else if (MP_GROUP(x,y) == GROUP_RAIL) ok_dial_box ("fire.mes", BAD, _("It's at a railway.")); else if (MP_GROUP(x,y) == GROUP_COAL_POWER) ok_dial_box ("fire.mes", BAD, _("It's at a coal power station.")); else if (MP_GROUP(x,y) == GROUP_ROAD) ok_dial_box ("fire.mes", BAD, _("It's at a road.")); else if (MP_GROUP(x,y) == GROUP_INDUSTRY_L) ok_dial_box ("fire.mes", BAD, _("It's at light industry.")); else if (MP_GROUP(x,y) == GROUP_UNIVERSITY) ok_dial_box ("fire.mes", BAD, _("It's at a university.")); else if (MP_GROUP(x,y) == GROUP_COMMUNE) ok_dial_box ("fire.mes", BAD, _("It's at a commune.")); else if (MP_GROUP(x,y) == GROUP_TIP) ok_dial_box ("fire.mes", BAD, _("It's at a tip.")); else if (MP_GROUP(x,y) == GROUP_PORT) ok_dial_box ("fire.mes", BAD, _("It's at a port.")); else if (MP_GROUP(x,y) == GROUP_INDUSTRY_H) ok_dial_box ("fire.mes", BAD, _("It's at a steel works.")); else if (MP_GROUP(x,y) == GROUP_RECYCLE) ok_dial_box ("fire.mes", BAD, _("It's at a recycle centre.")); else if (MP_GROUP(x,y) == GROUP_HEALTH) ok_dial_box ("fire.mes", BAD, _("It's at a health centre.")); else if (MP_GROUP(x,y) == GROUP_ROCKET) ok_dial_box ("fire.mes", BAD, _("It's at a rocket site.")); else if (MP_GROUP(x,y) == GROUP_WINDMILL) ok_dial_box ("fire.mes", BAD, _("It's at a windmill.")); else if (MP_GROUP(x,y) == GROUP_SCHOOL) ok_dial_box ("fire.mes", BAD, _("It's at a school.")); else if (MP_GROUP(x,y) == GROUP_BLACKSMITH) ok_dial_box ("fire.mes", BAD, _("It's at a blacksmith.")); else if (MP_GROUP(x,y) == GROUP_MILL) ok_dial_box ("fire.mes", BAD, _("It's at a mill.")); else if (MP_GROUP(x,y) == GROUP_POTTERY) ok_dial_box ("fire.mes", BAD, _("It's at a pottery.")); else if (MP_GROUP(x,y) == GROUP_FIRESTATION) ok_dial_box ("fire.mes", BAD, _("It's at a fire station!!!.")); else if (MP_GROUP(x,y) == GROUP_CRICKET) ok_dial_box ("fire.mes", BAD, _("It's at a cricket pitch!!!.")); else if (MP_GROUP(x,y) == GROUP_SHANTY) ok_dial_box ("fire.mes", BAD, _("It's at a shanty town.")); else ok_dial_box ("fire.mes", BAD, _("UNKNOWN!")); } fire_area (x, y); }

void do_recycle (  int  x, int  y )

Definition at line 2271 of file engine.c. { int i; /* // int_1 is the ore made and waiting to go out // int_2 is the used goods in store // int_3 is the used steel in store NOT USED at this time // int_4 is the tech level when built // int_5 is the recycling done so far this month // int_6 is the percent of max recycling last month // int_7 is the waste in store // cost */ recycle_cost += RECYCLE_RUNNING_COST; /* // let these go through, even if we're full of waste. It's a waste of time // checking. */ if (x > 0 && (MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0) { i = MP_INFO(x - 1,y).int_7; if (i > MAX_WASTE_AT_RECYCLE - MP_INFO(x,y).int_2) i = MAX_WASTE_AT_RECYCLE - MP_INFO(x,y).int_2; MP_INFO(x,y).int_2 += i; MP_INFO(x - 1,y).int_7 -= i; } if (y > 0 && (MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0) { i = MP_INFO(x,y - 1).int_7; if (i > MAX_WASTE_AT_RECYCLE - MP_INFO(x,y).int_2) i = MAX_WASTE_AT_RECYCLE - MP_INFO(x,y).int_2; MP_INFO(x,y).int_2 += i; MP_INFO(x,y - 1).int_7 -= i; } /* get some startup power if not powered yet */ if ((MP_INFO(x,y).flags & FLAG_POWERED) == 0) if (get_power (x, y, GOODS_RECYCLED, 1) != 0) MP_INFO(x,y).flags |= FLAG_POWERED; /* no steel recycling yet - no point, it's only used to make goods. // recycle to ore. */ if (MP_INFO(x,y).int_1 < MAX_ORE_AT_RECYCLE && MP_INFO(x,y).int_2 > GOODS_RECYCLED && (MP_INFO(x,y).flags & FLAG_POWERED) != 0) if (get_jobs (x, y, RECYCLE_GOODS_JOBS) != 0) { if (get_power (x, y, GOODS_RECYCLED / 2, 1) == 0) MP_INFO(x,y).flags &= (0xffffffff - FLAG_POWERED); else MP_INFO(x,y).flags |= FLAG_POWERED; MP_INFO(x,y).int_2 -= GOODS_RECYCLED; i = (GOODS_RECYCLED * (10 + ((50 * MP_INFO(x,y).int_4) / MAX_TECH_LEVEL))) / 100; if (i > (GOODS_RECYCLED * 8) / 10) i = (GOODS_RECYCLED * 8) / 10; MP_INFO(x,y).int_1 += i; ore_made += i; MP_INFO(x,y).int_5++; } if (total_time % 100 == 0) { MP_INFO(x,y).int_6 = MP_INFO(x,y).int_5; MP_INFO(x,y).int_5 = 0; } /* now bung the ore out */ /* put it on the railway */ if (x > 0 && MP_GROUP(x-1,y) == GROUP_RAIL && MP_INFO(x - 1,y).int_5 < MAX_ORE_ON_RAIL && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_RAIL - MP_INFO(x - 1,y).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_RAIL - MP_INFO(x - 1,y).int_5); MP_INFO(x - 1,y).int_5 = MAX_ORE_ON_RAIL; } } if (y > 0 && MP_GROUP(x,y-1) == GROUP_RAIL && MP_INFO(x,y - 1).int_5 < MAX_ORE_ON_RAIL && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_RAIL - MP_INFO(x,y - 1).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_RAIL - MP_INFO(x,y - 1).int_5); MP_INFO(x,y - 1).int_5 = MAX_ORE_ON_RAIL; } } /* put it on the road */ if (x > 0 && MP_GROUP(x-1,y) == GROUP_ROAD && MP_INFO(x - 1,y).int_5 < MAX_ORE_ON_ROAD && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_ROAD - MP_INFO(x - 1,y).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_ROAD - MP_INFO(x - 1,y).int_5); MP_INFO(x - 1,y).int_5 = MAX_ORE_ON_ROAD; } } if (y > 0 && MP_GROUP(x,y-1) == GROUP_ROAD && MP_INFO(x,y - 1).int_5 < MAX_ORE_ON_ROAD && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_ROAD - MP_INFO(x,y - 1).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_ROAD - MP_INFO(x,y - 1).int_5); MP_INFO(x,y - 1).int_5 = MAX_ORE_ON_ROAD; } } /* put it on the tracks */ if (x > 0 && MP_GROUP(x-1,y) == GROUP_TRACK && MP_INFO(x - 1,y).int_5 < MAX_ORE_ON_TRACK && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_TRACK - MP_INFO(x - 1,y).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_TRACK - MP_INFO(x - 1,y).int_5); MP_INFO(x - 1,y).int_5 = MAX_ORE_ON_TRACK; } } if (y > 0 && MP_GROUP(x,y-1) == GROUP_TRACK && MP_INFO(x,y - 1).int_5 < MAX_ORE_ON_TRACK && MP_INFO(x,y).int_1 >= (MAX_ORE_ON_TRACK - MP_INFO(x,y - 1).int_5)) { if (get_jobs (x, y, JOBS_LOAD_ORE) != 0) { MP_INFO(x,y).int_1 -= (MAX_ORE_ON_TRACK - MP_INFO(x,y - 1).int_5); MP_INFO(x,y - 1).int_5 = MAX_ORE_ON_TRACK; } } /* if we've still got >90% ore and waste in stock, burn some waste cleanly. */ if (MP_INFO(x,y).int_1 > (MAX_ORE_AT_RECYCLE * 9 / 10) && MP_INFO(x,y).int_2 > (MAX_WASTE_AT_RECYCLE * 9 / 10)) MP_INFO(x,y).int_2 -= BURN_WASTE_AT_RECYCLE; }

void do_residence (  int  x, int  y )

Definition at line 303 of file engine.c. { /* // 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; }

void do_rocket_pad (  int  x, int  y )

Definition at line 2444 of file engine.c. { /* // You need ROCKET_PAD_JOBS, ROCKET_PAD_GOODS and ROCKET_PAD_STEEL // to add 1 to % of ready to fire. // int_1 is the stored jobs // int_2 is the stored goods // int_3 is the stored steel // int_4 is the count which gets to ROCKET_PAD_LAUNCH to fire. // int_5 is the time of the next animation frame, when waiting for launch. */ if (MP_TYPE(x,y) == CST_ROCKET_FLOWN) return; /* The rocket has been launched. */ /* get some jobs */ if (MP_INFO(x,y).int_1 < ROCKET_PAD_JOBS_STORE) { if (get_jobs (x, y, ROCKET_PAD_JOBS + 10) != 0) MP_INFO(x,y).int_1 += ROCKET_PAD_JOBS; } /* get goods */ if (MP_INFO(x,y).int_2 < ROCKET_PAD_GOODS_STORE) { if (get_goods (x, y, ROCKET_PAD_GOODS + 10) != 0) MP_INFO(x,y).int_2 += ROCKET_PAD_GOODS; else if (get_goods (x, y, ROCKET_PAD_GOODS / 10) != 0) MP_INFO(x,y).int_2 += ROCKET_PAD_GOODS / 5; else if (get_goods (x, y, ROCKET_PAD_GOODS / 50) != 0) MP_INFO(x,y).int_2 += ROCKET_PAD_GOODS / 20; } /* get steel */ if (MP_INFO(x,y).int_3 < ROCKET_PAD_STEEL_STORE) { if (get_steel (x, y, ROCKET_PAD_STEEL + 10) != 0) MP_INFO(x,y).int_3 += ROCKET_PAD_STEEL + 10; else if (get_steel (x, y, ROCKET_PAD_STEEL / 5) != 0) MP_INFO(x,y).int_3 += ROCKET_PAD_STEEL / 5; else if (get_steel (x, y, ROCKET_PAD_STEEL / 20) != 0) MP_INFO(x,y).int_3 += ROCKET_PAD_STEEL / 20; } #ifdef DEBUG_ROCKETS MP_INFO(x,y).int_4++; #else /* now build the rocket. Unlike uni's need a full store to make +1% */ if (MP_TYPE(x,y) < CST_ROCKET_5 && MP_INFO(x,y).int_1 >= ROCKET_PAD_JOBS_STORE && MP_INFO(x,y).int_2 >= ROCKET_PAD_GOODS_STORE && MP_INFO(x,y).int_3 >= ROCKET_PAD_STEEL_STORE) { MP_INFO(x,y).int_1 -= ROCKET_PAD_JOBS_STORE; MP_INFO(x,y).int_2 -= ROCKET_PAD_GOODS_STORE; MP_INFO(x,y).int_3 -= ROCKET_PAD_STEEL_STORE; MP_INFO(x,y).int_4++; goods_used += ROCKET_PAD_GOODS_STORE; } #endif rocket_pad_cost += ROCKET_PAD_RUNNING_COST; /* animate and return if already said no to launch */ if (MP_TYPE(x,y) >= CST_ROCKET_5 && MP_INFO(x,y).int_4 >= (100 * ROCKET_PAD_LAUNCH) / 100) { if (real_time >= MP_INFO(x,y).int_5) { MP_INFO(x,y).int_5 = real_time + ROCKET_ANIMATION_SPEED; switch (MP_TYPE(x,y)) { case (CST_ROCKET_5): MP_TYPE(x,y) = CST_ROCKET_6; break; case (CST_ROCKET_6): MP_TYPE(x,y) = CST_ROCKET_7; break; case (CST_ROCKET_7): MP_TYPE(x,y) = CST_ROCKET_5; break; } } return; } /* now choose a graphic */ if (MP_INFO(x,y).int_4 < (25 * ROCKET_PAD_LAUNCH) / 100) MP_TYPE(x,y) = CST_ROCKET_1; else if (MP_INFO(x,y).int_4 < (60 * ROCKET_PAD_LAUNCH) / 100) MP_TYPE(x,y) = CST_ROCKET_2; else if (MP_INFO(x,y).int_4 < (90 * ROCKET_PAD_LAUNCH) / 100) MP_TYPE(x,y) = CST_ROCKET_3; else if (MP_INFO(x,y).int_4 < (100 * ROCKET_PAD_LAUNCH) / 100) MP_TYPE(x,y) = CST_ROCKET_4; else if (MP_INFO(x,y).int_4 >= (100 * ROCKET_PAD_LAUNCH) / 100) { MP_TYPE(x,y) = CST_ROCKET_5; update_main_screen (0); if (ask_launch_rocket_now (x,y)) { launch_rocket (x,y); } /* so we don't get get our money back when we bulldoze. */ if (x == last_built_x && y == last_built_y) { x = 0; y = 0; } } }

void do_school (  int  x, int  y )

Definition at line 2695 of file engine.c. { /* // int_1 contains the job pool // int_2 contains the goods at the school // int_3 has the tech points made // int_4 is the tech count so far this 100 days // int_5 is the tech count last 100 days to give a % of max production */ if (MP_INFO(x,y).int_1 < (MAX_JOBS_AT_SCHOOL - SCHOOL_JOBS)) if (get_jobs (x, y, SCHOOL_JOBS) != 0) MP_INFO(x,y).int_1 += SCHOOL_JOBS; if (MP_INFO(x,y).int_2 < (MAX_GOODS_AT_SCHOOL - SCHOOL_GOODS)) if (get_goods (x, y, SCHOOL_GOODS) != 0) MP_INFO(x,y).int_2 += SCHOOL_GOODS; if (MP_INFO(x,y).int_1 >= JOBS_MAKE_TECH_SCHOOL && MP_INFO(x,y).int_2 >= GOODS_MAKE_TECH_SCHOOL) { MP_INFO(x,y).int_1 -= JOBS_MAKE_TECH_SCHOOL; MP_INFO(x,y).int_2 -= GOODS_MAKE_TECH_SCHOOL; MP_INFO(x,y).int_3 += TECH_MADE_BY_SCHOOL; MP_INFO(x,y).int_4++; tech_level += TECH_MADE_BY_SCHOOL; } school_cost += SCHOOL_RUNNING_COST; if ((total_time % 100) == 0) { MP_INFO(x,y).int_5 = MP_INFO(x,y).int_4; MP_INFO(x,y).int_4 = 0; } }

void do_shanty (  int  x, int  y )

Definition at line 3603 of file engine.c. { /* just steal some stuff and make pollution. */ get_food (x, y, SHANTY_GET_FOOD); if (get_goods (x, y, SHANTY_GET_GOODS) != 0) if ((goods_tax -= SHANTY_GET_GOODS * 2) < 0) goods_tax = 0; get_ore (x, y, SHANTY_GET_ORE); get_steel (x, y, SHANTY_GET_STEEL); if (get_jobs (x, y, SHANTY_GET_JOBS) != 0) if ((income_tax -= SHANTY_GET_JOBS * 2) < 0) income_tax = 0; if (get_coal (x, y, SHANTY_GET_COAL) != 0) if ((coal_tax -= SHANTY_GET_COAL * 2) < 0) coal_tax = 0; if ((total_time & 1) == 0) MP_POL(x,y)++; else MP_POL(x+1,y+1)++; }

void do_tip (  int  x, int  y )

Definition at line 3625 of file engine.c. { /* // int_1 is the amount of waste on the site. // int_2 if the amount that has flowed in so far this month // int_3 is the amount stored last month. // int_4 counts up starting when tip fills, controlling how long until the land is useful again. */ int i; /* XXX: put this in a header somewhere */ /* If the tip is full, age it until it degrades into useful soil */ if (MP_TYPE(x,y) == CST_TIP_8) { MP_INFO(x,y).int_4++; if (MP_INFO(x,y).int_4 >= TIP_DEGRADE_TIME) { do_bulldoze_area(CST_GREEN,x,y); } return; } /* just grab as much as we can from transport */ if (x > 0 && (MP_INFO(x - 1,y).flags & FLAG_IS_TRANSPORT) != 0) { i = MP_INFO(x - 1,y).int_7 / 10; MP_INFO(x,y).int_1 += i; MP_INFO(x,y).int_2 += i; MP_INFO(x - 1,y).int_7 -= i * 10; sust_dig_ore_coal_tip_flag = 0; } if (y > 0 && (MP_INFO(x,y - 1).flags & FLAG_IS_TRANSPORT) != 0) { i = MP_INFO(x,y - 1).int_7 / 10; MP_INFO(x,y).int_1 += i; MP_INFO(x,y).int_2 += i; MP_INFO(x,y - 1).int_7 -= i * 10; sust_dig_ore_coal_tip_flag = 0; } #if defined (commentout) /* Increment the "ore" reserve; this prevents a new tip from being built on top of a degraded one. */ MP_INFO(x,y).ore_reserve++; #endif /* now choose an icon. */ if ((total_time % NUMOF_DAYS_IN_MONTH) == 0) { i = (MP_INFO(x,y).int_1 * 7) / MAX_WASTE_AT_TIP; if (MP_INFO(x,y).int_1 > 0) i++; switch (i) { case (0): MP_TYPE(x,y) = CST_TIP_0; break; case (1): MP_TYPE(x,y) = CST_TIP_1; break; case (2): MP_TYPE(x,y) = CST_TIP_2; break; case (3): MP_TYPE(x,y) = CST_TIP_3; break; case (4): MP_TYPE(x,y) = CST_TIP_4; break; case (5): MP_TYPE(x,y) = CST_TIP_5; break; case (6): MP_TYPE(x,y) = CST_TIP_6; break; case (7): MP_TYPE(x,y) = CST_TIP_7; break; case (8): MP_TYPE(x,y) = CST_TIP_8; MP_INFO(x,y).int_2 = 0; MP_INFO(x,y).int_4 = 0; break; } MP_INFO(x,y).int_3 = MP_INFO(x,y).int_2; MP_INFO(x,y).int_2 = 0; } }

void do_university (  int  x, int  y )

Definition at line 2222 of file engine.c. { /* // You need UNIVERSITY_JOBS and UNIVERSITY_GOODS to add 1 to tech_level // int_1 is the stored jobs // int_2 is the stored goods // int_3 is the total tech points made by this uni. // int_4 is the count so far in this 100 days // int_5 is the count in the last 100 days to give a percent value // get some jobs */ if (MP_INFO(x,y).int_1 < UNIVERSITY_JOBS_STORE) { if (get_jobs (x, y, UNIVERSITY_JOBS + 10) != 0) MP_INFO(x,y).int_1 += UNIVERSITY_JOBS + 10; } /* get goods */ if (MP_INFO(x,y).int_2 < UNIVERSITY_GOODS_STORE) { if (get_goods (x, y, UNIVERSITY_GOODS + 10) != 0) MP_INFO(x,y).int_2 += UNIVERSITY_GOODS + 10; else if (get_goods (x, y, UNIVERSITY_GOODS / 5) != 0) MP_INFO(x,y).int_2 += UNIVERSITY_GOODS / 5; else if (get_goods (x, y, UNIVERSITY_GOODS / 20) != 0) MP_INFO(x,y).int_2 += UNIVERSITY_GOODS / 20; } /* now do some research */ if (MP_INFO(x,y).int_1 >= UNIVERSITY_JOBS && MP_INFO(x,y).int_2 >= UNIVERSITY_GOODS) { MP_INFO(x,y).int_1 -= UNIVERSITY_JOBS; MP_INFO(x,y).int_2 -= UNIVERSITY_GOODS; goods_used += UNIVERSITY_GOODS; if (university_intake_rate >= (total_time % 100)) { MP_INFO(x,y).int_3 += UNIVERSITY_TECH_MADE; tech_level += UNIVERSITY_TECH_MADE; MP_INFO(x,y).int_4++; } } if (total_time % 100 == 0) { MP_INFO(x,y).int_5 = MP_INFO(x,y).int_4; MP_INFO(x,y).int_4 = 0; } university_cost += UNIVERSITY_RUNNING_COST; }

void init_mappoint_array (  void   )

Definition at line 1331 of file engine.c. { int x; for (x = 0; x < WORLD_SIDE_LEN; x++) { mappoint_array_x[x] = x; mappoint_array_y[x] = x; } }

int is_real_river (  int  x, int  y )

Definition at line 3843 of file engine.c. { /* returns zero if not water at all or if out of bounds. */ if (x < 0 || x >= WORLD_SIDE_LEN || y < 0 || y >= WORLD_SIDE_LEN) return (0); if (MP_GROUP(x,y) != GROUP_WATER) return (0); if (MP_INFO(x,y).flags & FLAG_IS_RIVER) return (1); return (-1); }

void launch_rocket (  int  x, int  y )

Definition at line 2548 of file engine.c. { int i, r, xx, yy, xxx, yyy; rockets_launched++; MP_TYPE(x,y) = CST_ROCKET_FLOWN; update_main_screen (0); r = rand () % MAX_TECH_LEVEL; if (r > tech_level || rand () % 100 > (rockets_launched * 15 + 25)) { /* the launch failed */ display_rocket_result_dialog (ROCKET_LAUNCH_BAD); rockets_launched_success = 0; xx = ((rand () % 40) - 20) + x; yy = ((rand () % 40) - 20) + y; for (i = 0; i < 20; i++) { xxx = ((rand () % 20) - 10) + xx; yyy = ((rand () % 20) - 10) + yy; if (xxx > 0 && xxx < WORLD_SIDE_LEN && yyy > 0 && yyy < WORLD_SIDE_LEN) { /* don't crash on it's own area */ if (xxx >= x && xxx < (x + 4) && yyy >= y && yyy < (y + 4)) continue; fire_area (xxx, yyy); /* make a sound perhaps */ } } } else { rockets_launched_success++; if (rockets_launched_success > 5) { remove_people (1000); if (people_pool || housed_population) display_rocket_result_dialog (ROCKET_LAUNCH_EVAC); } else { display_rocket_result_dialog (ROCKET_LAUNCH_GOOD); } } }

int no_credit_build (  int  selected_group  )

Definition at line 42 of file engine.c. { if (total_money >= 0) return (0); #ifdef GROUP_POWER_SOURCE_NO_CREDIT if (selected_group == GROUP_POWER_SOURCE) { return (1); } #endif #ifdef GROUP_UNIVERSITY_NO_CREDIT if (selected_group == GROUP_UNIVERSITY) { return (1); } #endif #ifdef GROUP_PARKLAND_NO_CREDIT if (selected_group == GROUP_PARKLAND) { return (1); } #endif #ifdef GROUP_RECYCLE_NO_CREDIT if (selected_group == GROUP_RECYCLE) { return (1); } #endif #ifdef GROUP_ROCKET if (selected_group == GROUP_ROCKET) { return (1); } #endif if (main_groups[selected_group].no_credit == TRUE ) { return (1); } return (0); }

int place_item (  int  x, int  y, short  type )

Definition at line 80 of file engine.c. { int group; int size; group = get_group_of_type(type); if (group < 0) return -1; size = main_groups[group].size; /* You can't build because credit not available. */ if (no_credit_build (group) != 0) { return -1; } /* Not enough slots in the substation array */ switch (group) { case GROUP_SUBSTATION: case GROUP_WINDMILL: { if (add_a_substation (x, y) == 0) return -3; } break; case GROUP_PORT: { if (is_real_river (x + 4, y) != 1 || is_real_river (x + 4, y + 1) != 1 || is_real_river (x + 4, y + 2) != 1 || is_real_river (x + 4, y + 3) != 1) { return -2; } } break; case GROUP_COMMUNE: { numof_communes++; } break; case GROUP_MARKET: { /* Test for enough slots in the market array */ if (add_a_market (x, y) == 0) return -3; MP_INFO(x,y).flags += (FLAG_MB_FOOD | FLAG_MB_JOBS | FLAG_MB_COAL | FLAG_MB_ORE | FLAG_MB_STEEL | FLAG_MB_GOODS | FLAG_MS_FOOD | FLAG_MS_JOBS | FLAG_MS_COAL | FLAG_MS_GOODS | FLAG_MS_ORE | FLAG_MS_STEEL); } break; case GROUP_TIP: { /* Don't build a tip if there has already been one. If we succeed, mark the spot permanently by "doubling" the ore reserve */ int i,j; int prev_tip = 0; for (i=0;i<3;i++) { for (j=0;j<3;j++) { if (MP_INFO(x+i,y+j).ore_reserve > ORE_RESERVE) { prev_tip = 1; break; } } } if (prev_tip) { dialog_box(red(12),3, 0,0,_("You can't build a tip here"), 0,0,_("This area was once a landfill"), 2,' ',_("OK")); return -4; } else { for (i=0;i<3;i++) { for (j=0;j<3;j++) { MP_INFO(x+i,y+j).ore_reserve = ORE_RESERVE * 2; } } } #if defined (commentout) if (MP_INFO(x,y).ore_reserve > ORE_RESERVE) { dialog_box(red(12),3, 0,0,_("You can't build a tip here"), 0,0,_("This is already landfill"), 2,' ',_("OK")); return -4; } else { MP_INFO(x,y).ore_reserve = ORE_RESERVE * 2; } #endif } break; case GROUP_OREMINE: { /* Don't allow new mines on old mines or old tips */ /* GCS: mines over old mines is OK if there is enough remaining ore, as is the case when there is parital overlap. */ int i,j; int prev_tip = 0; int total_ore = 0; for (i=0;i<3;i++) { for (j=0;j<3;j++) { total_ore += MP_INFO(x+i,y+j).ore_reserve; if (MP_INFO(x+i,y+j).ore_reserve > ORE_RESERVE) { prev_tip = 1; break; } } } if (prev_tip) { dialog_box(red(12),3, 0,0,_("You can't build a mine here"), 0,0,_("This area was once a landfill"), 2,' ',_("OK")); return -4; } if (total_ore < MIN_ORE_RESERVE_FOR_MINE) { dialog_box(red(12),3, 0,0,_("You can't build a mine here"), 0,0,_("There is no ore left at this site"), 2,' ',_("OK")); return -4; } #if defined (commentout) if (MP_INFO(x,y).ore_reserve != ORE_RESERVE) { dialog_box(red(12),3, 0,0,_("You can't build a mine here"), 0,0,_("This was already a mine or tip"), 2,' ',_("OK")); return -4; } #endif } } /* end case */ /* Store last_built for refund on "mistakes" */ last_built_x = x; last_built_y = y; /* Make sure that the correct windmill graphic shows up */ if (group == GROUP_WINDMILL) { if (tech_level > MODERN_WINDMILL_TECH) { type = CST_WINDMILL_1_R; } else { type = CST_WINDMILL_1_W; } } if (group == GROUP_SOLAR_POWER || group == GROUP_WINDMILL) { MP_INFO(x,y).int_2 = tech_level; let_one_through = 1; } else if (group == GROUP_RECYCLE || group == GROUP_COAL_POWER) MP_INFO(x,y).int_4 = tech_level; else if (group == GROUP_ORGANIC_FARM) MP_INFO(x,y).int_1 = tech_level; else if (group == GROUP_TRACK || group == GROUP_ROAD || group == GROUP_RAIL) MP_INFO(x,y).flags |= FLAG_IS_TRANSPORT; else if (group == GROUP_COALMINE || group == GROUP_OREMINE) let_one_through = 1; set_mappoint (x, y, type); update_tech_dep (x, y); if (group == GROUP_RIVER) connect_rivers (); connect_transport (x-2,y-2,x+size+1,y+size+1); adjust_money(-selected_module_cost); map_power_grid(); return 0; }

void remove_a_shanty (  void   )

Definition at line 3563 of file engine.c. { int x, y, r; if (numof_shanties <= 0) return; x = rand () % WORLD_SIDE_LEN; y = rand () % WORLD_SIDE_LEN; r = spiral_find_group (x, y, GROUP_SHANTY); if (r == -1) { printf ("Can't find a shanty to remove! ?\n"); return; } y = r / WORLD_SIDE_LEN; x = r % WORLD_SIDE_LEN; /* decrement of numof_shanties is done in fire area() */ fire_area (x, y); /* now put the fire out */ MP_INFO(x,y).int_2 = FIRE_LENGTH + 1; MP_INFO(x + 1,y).int_2 = FIRE_LENGTH + 1; MP_INFO(x,y + 1).int_2 = FIRE_LENGTH + 1; MP_INFO(x + 1,y + 1).int_2 = FIRE_LENGTH + 1; }

void remove_people (  int  num  )

Definition at line 2586 of file engine.c. { #if defined (commentout) int x, y, f; time_t t; f = 1; t = time (0); while (f && (num > 0)) { for (y = 0; y < WORLD_SIDE_LEN; y++) for (x = 0; x < WORLD_SIDE_LEN; x++) if (MP_GROUP_IS_RESIDENCE(x,y) && MP_INFO(x,y).population > 0) { MP_INFO(x,y).population--; // f = 1; f |= (MP_INFO(x,y).population > 0); num--; total_evacuated++; } } while (num > 0 && people_pool > 0) { num--; total_evacuated++; people_pool--; } #endif int x, y; /* reset housed population so that we can display it correctly */ housed_population = 1; while (housed_population && (num > 0)) { housed_population = 0; for (y = 0; y < WORLD_SIDE_LEN; y++) for (x = 0; x < WORLD_SIDE_LEN; x++) if (MP_GROUP_IS_RESIDENCE(x,y) && MP_INFO(x,y).population > 0) { MP_INFO(x,y).population--; housed_population += MP_INFO(x,y).population; num--; total_evacuated++; } } while (num > 0 && people_pool > 0) { num--; total_evacuated++; people_pool--; } refresh_population_text (); #if defined (commentout) /* last ship wasn't full so everyone has gone. */ if (num > 0) { if (t > HOF_START && t < HOF_STOP) ok_dial_box ("launch-gone-mail.mes", GOOD, 0L); else ok_dial_box ("launch-gone.mes", GOOD, 0L); housed_population = 0; } #endif /* Note that the previous test was inaccurate. There could be exactly 1000 people left. */ if (!housed_population && !people_pool) { ok_dial_box ("launch-gone.mes", GOOD, 0L); } }

int sell_coal (  int  xt, int  yt )

Definition at line 2115 of file engine.c. { int i = 0; i = (MP_INFO(xt,yt).int_3 * PORT_EXPORT_RATE) / 1000; MP_INFO(xt,yt).int_3 -= i; return (i * PORT_COAL_RATE); }

int sell_food (  int  xt, int  yt )

Definition at line 2106 of file engine.c. { int i = 0; i = (MP_INFO(xt,yt).int_1 * PORT_EXPORT_RATE) / 1000; MP_INFO(xt,yt).int_1 -= i; return (i * PORT_FOOD_RATE); }

int sell_goods (  int  xt, int  yt )

Definition at line 2133 of file engine.c. { int i = 0; i = (MP_INFO(xt,yt).int_4 * PORT_EXPORT_RATE) / 1000; MP_INFO(xt,yt).int_4 -= i; return (i * PORT_GOODS_RATE); }

int sell_ore (  int  xt, int  yt )

Definition at line 2124 of file engine.c. { int i = 0; i = (MP_INFO(xt,yt).int_5 * PORT_EXPORT_RATE) / 1000; MP_INFO(xt,yt).int_5 -= i; return (i * PORT_ORE_RATE); }

int sell_steel (  int  xt, int  yt )

Definition at line 2142 of file engine.c. { int i = 0; i = (MP_INFO(xt,yt).int_6 * PORT_EXPORT_RATE) / 1000; MP_INFO(xt,yt).int_6 -= i; return (i * PORT_STEEL_RATE); }

void shuffle_mappoint_array (  void   )

Definition at line 1341 of file engine.c. { int i, x, a; for (i = 0; i < SHUFFLE_MAPPOINT_COUNT; i++) { x = rand () % WORLD_SIDE_LEN; a = mappoint_array_x[i]; mappoint_array_x[i] = mappoint_array_x[x]; mappoint_array_x[x] = a; x = rand () % WORLD_SIDE_LEN; a = mappoint_array_y[i]; mappoint_array_y[i] = mappoint_array_y[x]; mappoint_array_y[x] = a; } }

int spiral_find_2x2 (  int  startx, int  starty )

Definition at line 3455 of file engine.c. { int i, j, x, y; x = startx; y = starty; /* let's just do a complete spiral for now, work out the bounds later */ for (i = 1; i < (WORLD_SIDE_LEN + WORLD_SIDE_LEN); i++) { for (j = 0; j < i; j++) { x--; if (x > 1 && x < WORLD_SIDE_LEN - 2 && y > 1 && y < WORLD_SIDE_LEN - 2) if (MP_TYPE(x,y) == CST_GREEN && MP_TYPE(x + 1,y) == CST_GREEN && MP_TYPE(x,y + 1) == CST_GREEN && MP_TYPE(x + 1,y + 1) == CST_GREEN) return (x + y * WORLD_SIDE_LEN); } for (j = 0; j < i; j++) { y--; if (x > 1 && x < WORLD_SIDE_LEN - 2 && y > 1 && y < WORLD_SIDE_LEN - 2) if (MP_TYPE(x,y) == CST_GREEN && MP_TYPE(x + 1,y) == CST_GREEN && MP_TYPE(x,y + 1) == CST_GREEN && MP_TYPE(x + 1,y + 1) == CST_GREEN) return (x + y * WORLD_SIDE_LEN); } i++; for (j = 0; j < i; j++) { x++; if (x > 1 && x < WORLD_SIDE_LEN - 2 && y > 1 && y < WORLD_SIDE_LEN - 2) if (MP_TYPE(x,y) == CST_GREEN && MP_TYPE(x + 1,y) == CST_GREEN && MP_TYPE(x,y + 1) == CST_GREEN && MP_TYPE(x + 1,y + 1) == CST_GREEN) return (x + y * WORLD_SIDE_LEN); } for (j = 0; j < i; j++) { y++; if (x > 1 && x < WORLD_SIDE_LEN - 2 && y > 1 && y < WORLD_SIDE_LEN - 2) if (MP_TYPE(x,y) == CST_GREEN && MP_TYPE(x + 1,y) == CST_GREEN && MP_TYPE(x,y + 1) == CST_GREEN && MP_TYPE(x + 1,y + 1) == CST_GREEN) return (x + y * WORLD_SIDE_LEN); } } return (-1); }

int spiral_find_group (  int  startx, int  starty, int  group )

Definition at line 3408 of file engine.c. { int i, j, x, y; x = startx; y = starty; /* let's just do a complete spiral for now, work out the bounds later */ for (i = 1; i < (WORLD_SIDE_LEN + WORLD_SIDE_LEN); i++) { for (j = 0; j < i; j++) { x--; if (x > 0 && x < WORLD_SIDE_LEN && y > 0 && y < WORLD_SIDE_LEN) if (MP_GROUP(x,y) == group) return (x + y * WORLD_SIDE_LEN); } for (j = 0; j < i; j++) { y--; if (x > 0 && x < WORLD_SIDE_LEN && y > 0 && y < WORLD_SIDE_LEN) if (MP_GROUP(x,y) == group) return (x + y * WORLD_SIDE_LEN); } i++; for (j = 0; j < i; j++) { x++; if (x > 0 && x < WORLD_SIDE_LEN && y > 0 && y < WORLD_SIDE_LEN) if (MP_GROUP(x,y) == group) return (x + y * WORLD_SIDE_LEN); } for (j = 0; j < i; j++) { y++; if (x > 0 && x < WORLD_SIDE_LEN && y > 0 && y < WORLD_SIDE_LEN) if (MP_GROUP(x,y) == group) return (x + y * WORLD_SIDE_LEN); } } return (-1); }

void update_shanty (  void   )

Definition at line 3587 of file engine.c. { int i, pp; pp = people_pool - (COMMUNE_POP * numof_communes); i = (pp - SHANTY_MIN_PP) / SHANTY_POP; if (i > numof_shanties) add_a_shanty (); /* vv-- schmitt trigger */ else if (numof_shanties > 0 && i < (numof_shanties - 1)) remove_a_shanty (); else if (numof_shanties > 0 && rand () % 100 == 10) remove_a_shanty (); /* randomly close some down. */ }

void update_tech_dep (  int  x, int  y )

Definition at line 3771 of file engine.c. { switch (MP_GROUP(x,y)) { case (GROUP_ORGANIC_FARM): MP_INFO(x,y).int_7 = ((double) MP_INFO(x,y).int_1 * ORGANIC_FARM_FOOD_OUTPUT) / MAX_TECH_LEVEL; break; case (GROUP_WINDMILL): #ifdef OLD_POWER_CODE MP_INFO(x,y).int_5 = WINDMILL_POWER #else MP_INFO(x,y).int_1 = WINDMILL_POWER #endif + (((double) MP_INFO(x,y).int_2 * WINDMILL_POWER) / MAX_TECH_LEVEL); break; case (GROUP_COAL_POWER): #ifdef OLD_POWER_CODE MP_INFO(x,y).int_5 = POWERS_COAL_OUTPUT #else MP_INFO(x,y).int_1 = POWERS_COAL_OUTPUT #endif + (((double) MP_INFO(x,y).int_4 * POWERS_COAL_OUTPUT) / MAX_TECH_LEVEL); break; case (GROUP_SOLAR_POWER): MP_INFO(x,y).int_3 = POWERS_SOLAR_OUTPUT + (((double) MP_INFO(x,y).int_2 * POWERS_SOLAR_OUTPUT) / MAX_TECH_LEVEL); break; } }

---

Variable Documentation

int selected_type_cost

Definition at line 81 of file shrglobs.c.

---