[anyone|plyr,"mayor_investment_confirm",[
(store_troop_gold, ":player_gold", "trp_player"),
(ge, ":player_gold","$enterprise_cost"),
], "Yes. Here is money for the farmstead.", "mayor_investment_purchase",[
(party_set_slot, "$g_encountered_party", slot_center_player_enterprise, "$enterprise_production"),
(party_set_slot, "$g_encountered_party", slot_center_player_enterprise_days_until_complete, 14), #native 7, VC 14.
(troop_remove_gold, "trp_player", "$enterprise_cost"),
(store_sub, ":current_town_order", "$current_town", towns_begin),
(store_add, ":craftsman_troop", ":current_town_order", "trp_town_1_master_craftsman"),
(try_begin),
(eq, "$enterprise_production", "itm_bread"),
(troop_set_name, ":craftsman_troop", "str_master_miller"),
(else_try),
(eq, "$enterprise_production", "itm_ale"),
(troop_set_name, ":craftsman_troop", "str_master_brewer"),
(else_try),
(eq, "$enterprise_production", "itm_tar"),
(troop_set_name, ":craftsman_troop", "str_master_presser"),
(else_try),
(eq, "$enterprise_production", "itm_tools"),
(troop_set_name, ":craftsman_troop", "str_master_smith"),
(else_try),
(eq, "$enterprise_production", "itm_vc_wool_cloth"),
(troop_set_name, ":craftsman_troop", "str_master_weaver"),
(else_try),
(eq, "$enterprise_production", "itm_linen"),
(troop_set_name, ":craftsman_troop", "str_master_weaver"),
(else_try),
(eq, "$enterprise_production", "itm_timber"),
(troop_set_name, ":craftsman_troop", "str_master_tanner"),
(else_try),
(eq, "$enterprise_production", "itm_silver"),
(troop_set_name, ":craftsman_troop", "str_master_dyer"),
(else_try),
(eq, "$enterprise_production", "itm_wine"),
(troop_set_name, ":craftsman_troop", "str_master_vinter"),
(try_end),
]],
[anyone|plyr,"mayor_investment_confirm",[], "No -- that's not economical for me at the moment.", "mayor_pretalk",[
]],