使每局游戏的城镇贸易路线随机化 - 骑马与砍杀中文站论坛

# 设置随机的贸易路线
("initialize_trade_routes",
[
(store_sub, ":towns_number", towns_end, towns_begin), # 获取城镇数量
(store_div, ":min_routes", ":towns_number", 10), # 最小贸易路线
(store_div, ":max_routes", ":towns_number", 5), # 最大贸易路线
(try_for_range, ":town_no", towns_begin, towns_end), # 循环城镇
(store_random_in_range, ":routes_max_number", ":min_routes", ":max_routes"), # 设置最大贸易路线
(try_for_range, reg1, 0, ":routes_max_number"),
(store_random_in_range, ":town_no_2", towns_begin, towns_end), # 随机城镇
(assign, ":temp_1", 0),
(try_for_range, ":cur_slot", slot_town_trade_routes_begin, slot_town_trade_routes_end), # 循环所有贸易路线槽
(this_or_next|party_slot_eq, ":town_no", ":cur_slot", ":town_no_2"), # 如果循环城镇有贸易路线槽已经设置了该贸易路线
(party_slot_eq, ":town_no_2", ":cur_slot", ":town_no"), # 如果随机城镇有贸易路线槽已经设置了该贸易路线
(assign, ":temp_1", 1), # 无法正常设置
(try_end),
(str_store_party_name, s1, ":town_no"),
(str_store_party_name, s2, ":town_no_2"),
(try_begin),
(eq, ":town_no", ":town_no_2"), # 如果随机的城镇是当前循环城镇
(try_begin),
# (this_or_next|eq, "$csmoshi", 1), # 如果处于调试模式
(ge, "$cheat_mode", 1),
(display_message, "@{!}失败！贸易路线：{s1} - {s2}"),
(try_end),
(val_add, ":routes_max_number", 1),
(else_try),
(eq, ":temp_1", 0),
(try_begin),
# (this_or_next|eq, "$csmoshi", 1), # 如果处于调试模式
(ge, "$cheat_mode", 1),
(display_message, "@{!}成功！贸易路线：{s1} - {s2}"),
(try_end),
(call_script, "script_set_trade_route_between_centers", ":town_no", ":town_no_2"),
(try_end),
(try_end),
(try_end),
]),

复制代码