("center_get_production",
[
#Actually, this could be reset somewhat to yield supply and demand as raw numbers
#Demand could be set values for rural and urban
#Supply could be based on capital goods -- head of cattle, head of sheep, fish ponds, fishing fleets, acres of grain fields, olive orchards, olive presses, wine presses, mills, smithies, salt pans, potters' kilns, etc
#Prosperity would increase both demand and supply
(store_script_param_1, ":center_no"),
(store_script_param_2, ":cur_good"),
(assign, ":base_production", 0),
#Grain products
(try_begin),
(eq, ":cur_good", "itm_bread"), #Demand = 3000 across Calradia
(party_get_slot, ":base_production", ":center_no", slot_center_mills),
(val_mul, ":base_production", 20), #one mills per village, five mills per town = 160 mills
(else_try),
(eq, ":cur_good", "itm_grain"), #Demand = 3200+, 1600 to mills, 1500 on its own, extra to breweries
(party_get_slot, ":base_production", ":center_no", slot_center_acres_grain),
(val_div, ":base_production", 125), #10000 acres is the average across Calradia, extra in Swadia, less in snows and steppes, a bit from towns
(else_try),
(eq, ":cur_good", "itm_ale"), #
(party_get_slot, ":base_production", ":center_no", slot_center_breweries),
(val_mul, ":base_production", 35),
(else_try),
(eq, ":cur_good", "itm_smoked_fish"), #Demand = 20
(party_get_slot, ":base_production", ":center_no", slot_center_fishing_fleet),
(val_mul, ":base_production", 4), #was originally 5
(else_try),
(eq, ":cur_good", "itm_salt"),
(party_get_slot, ":base_production", ":center_no", slot_center_salt_pans),
(val_mul, ":base_production", 35),
#Cattle products
(else_try),
(eq, ":cur_good", "itm_cattle_meat"), #Demand = 5
(party_get_slot, ":base_production", ":center_no", slot_center_head_cattle),
(val_div, ":base_production", 9),
(else_try),
(eq, ":cur_good", "itm_dried_meat"), #Demand = 15
(party_get_slot, ":base_production", ":center_no", slot_center_head_cattle),
(val_div, ":base_production", 3),
(else_try),
(eq, ":cur_good", "itm_cheese"), #Demand = 10
(party_get_slot, ":base_production", ":center_no", slot_center_head_cattle),
(val_div, ":base_production", 4),
(else_try),
(eq, ":cur_good", "itm_butter"), #Demand = 2
(party_get_slot, ":base_production", ":center_no", slot_center_head_cattle),
(val_div, ":base_production", 20),
(else_try),
(eq, ":cur_good", "itm_raw_leather"), #Demand = ??
(party_get_slot, ":base_production", ":center_no", slot_center_head_cattle),
(val_div, ":base_production", 6),
(party_get_slot, ":sheep_addition", ":center_no", slot_center_head_sheep),
(val_div, ":sheep_addition", 12),
(val_add, ":base_production", ":sheep_addition"),
(else_try),
(eq, ":cur_good", "itm_leatherwork"), #Demand = ??
(party_get_slot, ":base_production", ":center_no", slot_center_tanneries),
(val_mul, ":base_production", 20),
…. И так 55 тысяч строк
