#Kortlcha begin
(
"city_menu",0,
"You came to {s20} town. This town has {reg20} people, and has {reg21} tourists.",
"none",
[(party_get_slot, reg20, "$g_encountered_party", slot_city_population),
(str_store_party_name, s20, "$g_encountered_party"),
(party_get_slot, reg21, "$g_encountered_party", slot_city_tourists),
],
[
("lordshall", [(troop_slot_eq, "trp_player", slot_player_town, "$g_encountered_party"),
], "Go to your hall", []),
("building_things", [(troop_slot_eq, "trp_player", slot_player_town, "$g_encountered_party"),
], "Manage buildings", [(jump_to_menu, "mnu_manage_buildings")]),
("takethestreets", [], "Take the streets", []),
("leave", [], "Leave", [(leave_encounter),(change_screen_return)]),
]),
(
"manage_buildings",0,
"Manage buildings.",
"none",
[],
[
("build_new_buildings", [], "Build new buildings", [(jump_to_menu, "mnu_build_new_buildings")]),
("goback", [], "Go back", [(jump_to_menu, "mnu_city_menu")]),
]),
(
"build_new_buildings",0,
"Choose a building to get information.",
"none",
[],
[
("build_first_kuzucu", [(party_slot_eq, "$g_encountered_party", slot_city_num_kuzucu, 0)], "Build first sheep breeder", [(assign, "$insa_edilecek_bina", slot_city_1st_kuzucu),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 25),(assign, reg25, 0),(assign, reg26, 10),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_second_kuzucu", [(party_slot_eq, "$g_encountered_party", slot_city_num_kuzucu, 1)], "Build second sheep breeder", [(assign, "$insa_edilecek_bina", slot_city_2nd_kuzucu),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 25),(assign, reg25, 0),(assign, reg26, 10),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_first_inekci", [(party_slot_eq, "$g_encountered_party", slot_city_num_inekci, 0)], "Build first cow breeder", [(assign, "$insa_edilecek_bina", slot_city_1st_inekci),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 25),(assign, reg25, 0),(assign, reg26, 10),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_second_inekci", [(party_slot_eq, "$g_encountered_party", slot_city_num_inekci, 1)], "Build second cow breeder", [(assign, "$insa_edilecek_bina", slot_city_2nd_inekci),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 25),(assign, reg25, 0),(assign, reg26, 10),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_first_trader_center", [(party_slot_eq, "$g_encountered_party", slot_city_num_trader_center, 0)], "Build first trader center", [(assign, "$insa_edilecek_bina", slot_city_1st_trader_center),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 75),(assign, reg25, 15),(assign, reg26, 25),(assign, reg27, 25),(jump_to_menu, "mnu_build_building_last")]),
("build_second_trader_center", [(party_slot_eq, "$g_encountered_party", slot_city_num_trader_center, 1)], "Build second trader center", [(assign, "$insa_edilecek_bina", slot_city_2nd_trader_center),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 75),(assign, reg25, 15),(assign, reg26, 25),(assign, reg27, 25),(jump_to_menu, "mnu_build_building_last")]),
("build_first_blacksmith", [(party_slot_eq, "$g_encountered_party", slot_city_1st_blacksmith, 0)], "Build first blacksmith", [(assign, "$insa_edilecek_bina", slot_city_1st_blacksmith),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 40),(assign, reg25, 30),(assign, reg26, 25),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_second_blackmith", [(party_slot_eq, "$g_encountered_party", slot_city_1st_blacksmith, 1)], "Build second blacksmith", [(assign, "$insa_edilecek_bina", slot_city_2nd_blacksmith),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 40),(assign, reg25, 30),(assign, reg26, 25),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_first_cattle_ciftlestirici", [(party_slot_eq, "$g_encountered_party", slot_city_num_cattle_ciftlestirici, 0)], "Build first cattle breeder", [(assign, "$insa_edilecek_bina", slot_city_1st_cattle_ciftlestirici),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 25),(assign, reg25, 15),(asssign, reg26, 15),(assign, reg27, 85),(jump_to_menu, "mnu_build_building_last")]),
("build_second_cattle_ciftlestirici", [(party_slot_eq, "$g_encountered_party", slot_city_num_cattle_ciftlestirici, 1)], "Build second cattle breeder", [(assign, "$insa_edilecek_bina", slot_city_2nd_cattle_ciftlestirici),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 25),(assign, reg25, 15),(asssign, reg26, 15),(assign, reg27, 85),(jump_to_menu, "mnu_build_building_last")]),
("build_first_armorer", [(party_slot_eq, "$g_encountered_party", slot_city_num_armorer, 0)], "Build first armorer", [(assign, "$insa_edilecek_bina", slot_city_1st_armorer),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 60),(assign, reg25, 30),(assign, reg26, 45),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_second_armorer", [(party_slot_eq, "$g_encountered_party", slot_city_num_armorer, 1)], "Build second armorer", [(assign, "$insa_edilecek_bina", slot_city_2nd_armorer),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 60),(assign, reg25, 30),(assign, reg26, 45),(assign, reg27, 50),(jump_to_menu, "mnu_build_building_last")]),
("build_first_horse_breeder", [(party_slot_eq, "$g_encountered_party", slot_city_num_horse_breeder, 0)], "Build first horse breeder", [(assign, "$insa_edilecek_bina", slot_city_1st_horse_breeder),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 30),(assign, reg25, 0),(asssign, reg26, 15),(assign, reg27, 45),(jump_to_menu, "mnu_build_building_last")]),
("build_second_horse_breeder", [(party_slot_eq, "$g_encountered_party", slot_city_num_horse_breeder, 1)], "Build second horse breeder", [(assign, "$insa_edilecek_bina", slot_city_2nd_horse_breeder),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 30),(assign, reg25, 0),(asssign, reg26, 15),(assign, reg27, 45),(jump_to_menu, "mnu_build_building_last")]),
("build_first_donkey_breeder", [(party_slot_eq, "$g_encountered_party", slot_city_num_donkey_breeder, 0)], "Build first donkey breeder", [(assign, "$insa_edilecek_bina", slot_city_1st_donkey_breeder),(assign, "$insa_1st_or_2nd", 1),(assign, reg24, 30),(assign, reg25, 0),(asssign, reg26, 10),(assign, reg27, 25),(jump_to_menu, "mnu_build_building_last")]),
("build_second_donket_breeder", [(party_slot_eq, "$g_encountered_party", slot_city_num_donkey_breeder, 1)], "Build second donkey breeder", [(assign, "$insa_edilecek_bina", slot_city_2nd_donkey_breeder),(assign, "$insa_1st_or_2nd", 2),(assign, reg24, 30),(assign, reg25, 0),(asssign, reg26, 10),(assign, reg27, 25),(jump_to_menu, "mnu_build_building_last")]),
("goback", [], "Go back", [(jump_to_menu, "mnu_manage_buildings")]),
]),
(
"build_building_last",0,
"There is {reg23} {s23}. You need to {reg24} stones, {reg25} bronzes, {reg26} irons and {reg27} woods.",
"none",
[
(str_clear, s23),
(try_begin),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_1st_kuzucu),
(eq, "$insa_edilecek_bina", slot_city_2nd_kuzucu),
(str_store_string, s23, "@Sheep breeder"),
(else_try),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_2nd_inekci),
(eq, "$insa_edilecek_bina", slot_city_1st_inekci),
(str_store_string, s23, "@Cow breeder"),
(else_try),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_2nd_trader_center),
(eq, "$insa_edilecek_bina", slot_city_1st_trader_center),
(str_store_string, s23, "@Trader center"),
(else_try),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_2nd_blacksmith),
(eq, "$insa_edilecek_bina", slot_city_1st_blacksmith),
(str_store_string, s23, "@Blacksmith"),
(else_try),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_2nd_armorer),
(eq, "$insa_edilecek_bina", slot_city_1st_armorer),
(str_store_string, s23, "@Armorer"),
(else_try),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_1st_horse_breeder),
(eq, "$insa_edilecek_bina", slot_city_2nd_horse_breeder),
(str_store_string, s23, "@Horse breeder"),
(else_try),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_1st_donkey_breeder),
(eq, "$insa_edilecek_bina", slot_city_2nd_donkey_breeder),
(str_store_string, s23, "@Donkey breeder"),
(else_try),
(eq, "$insa_edilecek_bina", slot_city_2nd_cattle_ciftlestirici),
(this_or_next|eq, "$insa_edilecek_bina", slot_city_1st_cattle_ciftlestirici),
(str_store_string, s23, "@Cattle breeder"),
(try_end),
], [
("buildthebuilding", [(party_get_slot, ":stone", "$g_encountered_party", slot_city_stone),
(party_get_slot, ":bronze", "$g_encountered_party", slot_city_bronze),
(party_get_slot, ":iron", "$g_encountered_party", slot_city_iron),
(party_get_slot, ":wood", "$g_encountered_party", slot_city_wood),
(ge, ":stone", reg24),
(ge, ":bronze", reg25),
(ge, ":iron", reg26),
(ge, ":wood", reg27),
], "Build", [(try_begin),
(store_current_hours, ":ch"),
(assign, ":d", 50),
(val_mul, ":d", 24),
(store_add, ":saat", ":ch", ":d"),
(assign, "$insa_edilecek_bina_time", ":saat"),
(assign, "$insa_edilen_bina", "$insa_edilecek_bina"),
(try_end),
]),
("go_back", [],"Go back", [(jump_to_menu, "mnu_build_new_buildings")]),
]),