#This is probably unnecessarily complicated, but can support a multi-generational mod
("age_troop_one_year",
[
(store_script_param, ":troop_no", 1),
(troop_get_type, ":is_female", ":troop_no"),
(troop_get_slot, ":age", ":troop_no", slot_troop_age),
(troop_get_slot, ":appearance", ":troop_no", slot_troop_age_appearance),
(val_add, ":age", 1),
(store_random_in_range, ":addition", 1, 5),
(try_begin),
(eq, ":is_female", 1),
# (val_add, ":addition", 2), #the women's age slider seems to produce less change than the male one - commented out: makes women look too old.
(try_end),
(val_add, ":appearance", ":addition"),
(try_begin),
(gt, ":age", 45),
(store_attribute_level, ":strength", ":troop_no", ca_strength),
(store_attribute_level, ":agility", ":troop_no", ca_agility),
(store_random_in_range, ":random", 0, 50), #2% loss brings it down to about 36% by age 90, but of course can be counteracted by new level gain
(try_begin),
(lt, ":random", ":strength"),
(troop_raise_attribute, ":troop_no", ca_strength, -1),
(try_end),
(try_begin),
(lt, ":random", ":agility"),
(troop_raise_attribute, ":troop_no", ca_agility, -1),
(try_end),
(try_end),
(val_clamp, ":appearance", 1, 100),
(troop_set_slot, ":troop_no", slot_troop_age, ":age"),
(troop_set_slot, ":troop_no", slot_troop_age_appearance, ":appearance"),
(troop_set_age, ":troop_no", ":appearance"),
]),
