# Consuming food at every 14 hours
(14,
[
(eq, "$g_player_is_captive", 0),
(party_get_num_companion_stacks, ":num_stacks","p_main_party"),
(assign, ":num_men", 0),
(try_for_range, ":i_stack", 0, ":num_stacks"),
(party_stack_get_size, ":stack_size","p_main_party",":i_stack"),
(val_add, ":num_men", ":stack_size"),
(try_end),
(val_div, ":num_men", 3),
(try_begin),
(eq, ":num_men", 0),
(val_add, ":num_men", 1),
(try_end),
(try_begin),
(assign, ":number_of_foods_player_has", 0),
(try_for_range, ":cur_edible", food_begin, food_end),
(call_script, "script_cf_player_has_item_without_modifier", ":cur_edible", imod_rotten),
(val_add, ":number_of_foods_player_has", 1),
(try_end),
(try_begin),
(ge, ":number_of_foods_player_has", 6),
(unlock_achievement, ACHIEVEMENT_ABUNDANT_FEAST),
(try_end),
(try_end),
(assign, ":consumption_amount", ":num_men"),
(assign, ":no_food_displayed", 0),
(try_for_range, ":unused", 0, ":consumption_amount"),
(assign, ":available_food", 0),
(try_for_range, ":cur_food", food_begin, food_end),
(item_set_slot, ":cur_food", slot_item_is_checked, 0),
(call_script, "script_cf_player_has_item_without_modifier", ":cur_food", imod_rotten),
(val_add, ":available_food", 1),
(try_end),
(try_begin),
(gt, ":available_food", 0),
(store_random_in_range, ":selected_food", 0, ":available_food"),
(call_script, "script_consume_food", ":selected_food"),
(else_try),
(eq, ":no_food_displayed", 0),
(display_message, "@Party has nothing to eat!", 0xFF0000),
(call_script, "script_change_player_party_morale", -3),
(assign, ":no_food_displayed", 1),
bla bla.....