更贴近真实的食物消耗(py代码)

快乐风猫

加入水源和马匹饲料消耗，不再单调的只消耗食物，提升点游戏难度和乐趣，消耗速度因环境而异



一个新scripts脚本

1.   ("extra_consumption",
   
2.     [
   
3.       (party_get_current_terrain, ":current_terrain", "p_main_party"),
   
4.       
   
5.      (try_begin),
   
6.       (party_get_num_companion_stacks, ":num_stacks","p_main_party"),
   
7.       (assign, ":num_men", 0),
   
8.       (try_for_range, ":i_stack", 0, ":num_stacks"),
   
9.       (party_stack_get_size, ":stack_size","p_main_party",":i_stack"),
   
10.       (val_add, ":num_men", ":stack_size"),
    
11.      (try_end),
    
12.       (val_div, ":num_men", 2), #每2人消耗一单位
    
13.      (try_begin),
    
14.       (eq, ":num_men", 0),
    
15.       (val_add, ":num_men", 1), #玩家也需要消耗水源，防止为0
    
16.      (try_end),
    
17.    
    
18.     (try_begin),
    
19.      (gt, ":num_men", 0),
    
20.      (assign, ":consumption_amount", ":num_men"),
    
21.     (try_begin),
    
22.      (eq, ":current_terrain", 5), #队伍处于沙漠
    
23.      (val_mul, ":consumption_amount", 2), #双倍消耗
    
24.      (display_message, "@因 为 沙 漠 的 恶 劣 环 境 ，你 的 队 伍 会 消 耗 更 多 水 源 。", 0xFF0000), #测试输出
    
25.     (else_try),
    
26.      (eq, ":current_terrain", 4), #队伍处于雪地
    
27.      (val_div, ":consumption_amount", 2), #只消耗平常的一半
    
28.      (display_message, "@雪 地 行 军 减 少 水 源 消 耗 。", 0xFF0000), #测试输出
    
29.     (try_end),
    
30.      (val_max, ":consumption_amount", 1), #至少执行一次
    
31.      (assign, ":no_water_displayed", 0),
    
32.      (try_for_range, ":unused", 0, ":consumption_amount"), #执行次数
    
33.      (assign, ":available_water", 0),
    
34.      (try_for_range, ":cur_food", food_begin, food_end),
    
35.      (is_between, ":cur_food", water_begin, water_end), #水源范围   自定义
    
36.      (item_set_slot, ":cur_food", slot_item_is_checked, 0),
    
37.      (call_script, "script_cf_player_has_item_without_modifier", ":cur_food", imod_rotten),
    
38.      (val_add, ":available_water", 1),
    
39.     (try_end),
    
40.       
    
41.     (try_begin),
    
42.      (gt, ":available_water", 0),
    
43.      (store_random_in_range, ":selected_water", 0, ":available_water"),
    
44.      (call_script, "script_consume_food", ":selected_water"),
    
45.     (else_try),
    
46.      (eq, ":no_water_displayed", 0),
    
47.      (display_message, "@队 伍 缺 水 了 ！", 0xFF0000),
    
48.      (call_script, "script_change_player_party_morale", -3),
    
49.      (assign, ":no_water_displayed", 1),
    
50.     (try_end),
    
51.     (try_end),
    
52.     (try_end),
    
53.    
    
54.      (party_get_num_companion_stacks, ":num_stacks", "p_main_party"),
    
55.      (assign, ":total_cavalry", 0),
    
56.      (try_for_range, ":i_stack", 0, ":num_stacks"),
    
57.      (party_stack_get_troop_id, ":stack_troop", "p_main_party", ":i_stack"),
    
58.      (troop_get_inventory_slot, ":cur_horse", ":stack_troop", 8),
    
59.      (gt, ":cur_horse", 0), #有马
    
60.      #(troop_is_mounted, ":stack_troop"), #是骑兵
    
61.      (party_stack_get_size, ":stack_size", "p_main_party", ":i_stack"),
    
62.      (val_add, ":total_cavalry", ":stack_size"),
    
63.     (try_end),
    
64.      (val_div, ":total_cavalry", 2), #每2匹马消耗一单位
    
65.     (try_begin),
    
66.      (troop_get_inventory_slot, ":cur_horse", "trp_player", 8),
    
67.      (gt, ":cur_horse", 0),
    
68.      (val_add, ":total_cavalry", 1), #如果玩家有马，也需要消耗饲料
    
69.     (try_end),
    
70.    
    
71.     (try_begin),
    
72.      (gt, ":total_cavalry", 0),
    
73.      (assign, ":consumption_amount", ":total_cavalry"),
    
74.     (try_begin),
    
75.      (eq, ":current_terrain", 2), #队伍处于草原
    
76.      (val_div, ":consumption_amount", 2), #只消耗平常的一半
    
77.      (display_message, "@你 的 队 伍 正 在 草 原 行 军 ，你 节 省 了 一 部 分 马 饲 料 。", 0xFF0000), #测试输出
    
78.     (else_try),
    
79.      (eq, ":current_terrain", 5), #队伍处于沙漠
    
80.      (val_mul, ":consumption_amount", 2), #只消耗平常的一半
    
81.      (display_message, "@因 为 沙 漠 的 恶 劣 环 境 ，马 匹 会 消 耗 更 多 饲 料 。", 0xFF0000), #测试输出
    
82.     (try_end),
    
83.      (val_max, ":consumption_amount", 1), #至少执行一次
    
84.      (assign, ":no_cavalry_displayed", 0),
    
85.      (try_for_range, ":unused", 0, ":consumption_amount"), #执行次数
    
86.      (assign, ":available_grain", 0),
    
87.      (try_for_range, ":cur_food", food_begin, food_end), #循环食物
    
88.      (eq, ":cur_food", "itm_grain"), #是小麦或者其他什么马饲料  自定义
    
89.      (item_set_slot, ":cur_food", slot_item_is_checked, 0),
    
90.      (call_script, "script_cf_player_has_item_without_modifier", ":cur_food", imod_rotten),
    
91.      (val_add, ":available_grain", 1),
    
92.     (try_end),
    
93.       
    
94.     (try_begin),
    
95.      (gt, ":available_grain", 0),
    
96.      (store_random_in_range, ":selected_grain", 0, ":available_grain"),
    
97.      (call_script, "script_consume_food", ":selected_grain"),
    
98.     (else_try),
    
99.      (eq, ":no_cavalry_displayed", 0),
    
100.      (display_message, "@队 伍 里 的 马 匹 没 有 饲 料 吃 了 ！", 0xFF0000),
     
101.      (call_script, "script_change_player_party_morale", -3),
     
102.      (assign, ":no_cavalry_displayed", 1),
     
103.     (try_end),
     
104.     (try_end),
     
105.     (try_end),
     
106.    
     
107.         ]),

复制代码

module_simple_triggers里的原食物触发器，直接覆盖整个

1.   # Consuming food at every 14 hours
   
2.   (14,
   
3.    [
   
4.     (eq, "$g_player_is_captive", 0),
   
5.     (party_get_num_companion_stacks, ":num_stacks","p_main_party"),
   
6.     (assign, ":num_men", 0),
   
7.     (try_for_range, ":i_stack", 0, ":num_stacks"),
   
8.       (party_stack_get_size, ":stack_size","p_main_party",":i_stack"),
   
9.       (val_add, ":num_men", ":stack_size"),
   
10.     (try_end),
    
11.     (val_div, ":num_men", 3),
    
12.     (try_begin),
    
13.       (eq, ":num_men", 0),
    
14.       (val_add, ":num_men", 1),
    
15.     (try_end),
    
16.    
    
17.     (try_begin),
    
18.       (assign, ":number_of_foods_player_has", 0),
    
19.       (try_for_range, ":cur_edible", food_begin, food_end),      
    
20.         (call_script, "script_cf_player_has_item_without_modifier", ":cur_edible", imod_rotten),
    
21.         (val_add, ":number_of_foods_player_has", 1),
    
22.       (try_end),
    
23.       (try_begin),
    
24.         (ge, ":number_of_foods_player_has", 6),
    
25.         (unlock_achievement, ACHIEVEMENT_ABUNDANT_FEAST),        
    
26.       (try_end),
    
27.     (try_end),
    
28.    
    
29.     (party_get_current_terrain, ":current_terrain", "p_main_party"),
    
30.    
    
31.     (assign, ":consumption_amount", ":num_men"),
    
32.    (try_begin),
    
33.     (eq, ":current_terrain", 4), #队伍处于雪地
    
34.     (val_mul, ":consumption_amount", 2), #双倍消耗
    
35.     (display_message, "@雪 地 行 军 会 加 快 食 物 消 耗 。", 0xFF0000), #测试输出
    
36.    (try_end),
    
37.     (val_max, ":consumption_amount", 1), #至少执行一次
    
38.     (assign, ":no_food_displayed", 0),
    
39.     (try_for_range, ":unused", 0, ":consumption_amount"),
    
40.       (assign, ":available_food", 0),
    
41.       (try_for_range, ":cur_food", food_begin, food_end),
    
42.       (neg|is_between, ":cur_food", water_begin, water_end), #排除水源
    
43.         (item_set_slot, ":cur_food", slot_item_is_checked, 0),
    
44.         (call_script, "script_cf_player_has_item_without_modifier", ":cur_food", imod_rotten),
    
45.         (val_add, ":available_food", 1),
    
46.       (try_end),
    
47.       (try_begin),
    
48.         (gt, ":available_food", 0),
    
49.         (store_random_in_range, ":selected_food", 0, ":available_food"),
    
50.         (call_script, "script_consume_food", ":selected_food"),
    
51.       (else_try),
    
52.         (eq, ":no_food_displayed", 0),
    
53.         (display_message, "[url=home.php?mod=space&uid=1243464]@party[/url] has nothing to eat!", 0xFF0000),
    
54.         (call_script, "script_change_player_party_morale", -3),
    
55.         (assign, ":no_food_displayed", 1),
    
56. #NPC companion changes begin
    
57.         (try_begin),
    
58.             (call_script, "script_party_count_fit_regulars", "p_main_party"),
    
59.             (gt, reg0, 0),
    
60.             (call_script, "script_objectionable_action", tmt_egalitarian, "str_men_hungry"),
    
61.         (try_end),
    
62. #NPC companion changes end
    
63.       (try_end),
    
64.     (try_end),
    
65.    
    
66.       (call_script, "script_extra_consumption"), #水源和马匹饲料消耗
    
67.     ]),

复制代码

water_begin和water_end自己在module_constants里定义范围


然后修改一下food_begin的起始，原起始是itm_smoked_fish 熏鱼，改为葡萄酒

1. food_begin = "itm_wine"

复制代码

不局限于上述，任何范围和消耗需求都可以自定义