# script_party_get_ideal_size @used for NPC parties.
# Input: arg1 = party_no
# Output: reg0: ideal size
("party_get_ideal_size",
[
(store_script_param_1, ":party_no"),
(assign, ":limit", 30),
(try_begin),
(party_slot_eq, ":party_no", slot_party_type, spt_kingdom_hero_party),
(party_stack_get_troop_id, ":party_leader", ":party_no", 0),
(store_faction_of_party, ":faction_id", ":party_no"),
(assign, ":limit", 10),
(store_skill_level, ":skill", "skl_leadership", ":party_leader"),
(store_attribute_level, ":charisma", ":party_leader", ca_charisma),
(val_mul, ":skill", 5),
(val_add, ":limit", ":skill"),
(val_add, ":limit", ":charisma"),
(troop_get_slot, ":troop_renown", ":party_leader", slot_troop_renown),
(store_div, ":renown_bonus", ":troop_renown", 25),
(val_add, ":limit", ":renown_bonus"),
##diplomacy begin
(assign, ":percent", 100),
##diplomacy end
(try_begin),
(faction_slot_eq, ":faction_id", slot_faction_leader, ":party_leader"),
(val_add, ":limit", 100),
##diplomacy begin
(try_begin),
(faction_get_slot, ":centralization", ":faction_id", dplmc_slot_faction_centralization),
(neq, ":centralization", 0),
(val_mul, ":centralization", 10),
(val_add, ":percent", ":centralization"),
(try_end),
(else_try),
(try_begin),
(faction_get_slot, ":centralization", ":faction_id", dplmc_slot_faction_centralization),
(neq, ":centralization", 0),
(val_mul, ":centralization", -3),
(val_add, ":percent", ":centralization"),
(try_end),
(try_begin),
(faction_get_slot, ":aristocraty", ":faction_id", dplmc_slot_faction_aristocracy),
(neq, ":aristocraty", 0),
(val_mul, ":aristocraty", 3),
(val_add, ":percent", ":aristocraty"),
(try_end),
(try_begin),
(faction_get_slot, ":quality", ":faction_id", dplmc_slot_faction_quality),
(neq, ":quality", 0),
(val_mul, ":quality", -4),
(val_add, ":percent", ":quality"),
(try_end),
##diplomacy end
(try_end),
##diplomacy begin
(try_begin),
(faction_get_slot, ":serfdom", ":faction_id", dplmc_slot_faction_serfdom),
(neq, ":serfdom", 0),
(val_mul, ":serfdom", 3),
(val_add, ":percent", ":serfdom"),
(try_end),
(val_mul, ":limit", ":percent"),
(val_div, ":limit", 100),
##diplomacy end
(try_begin),
(faction_slot_eq, ":faction_id", slot_faction_marshall, ":party_leader"),
(val_add, ":limit", 20),
(try_end),
(try_for_range, ":cur_center", castles_begin, castles_end),
(party_slot_eq, ":cur_center", slot_town_lord, ":party_leader"),
(val_add, ":limit", 20),
(try_end),
## CC begin
# Town bonus = the more towns you have, the bigger your army can be
(try_for_range, ":cur_center", towns_begin, towns_end),
(party_slot_eq, ":cur_center", slot_town_lord, ":party_leader"),
(val_add, ":limit", 30),
(try_end),
## CC end
(try_end),
(store_character_level, ":level", "trp_player"), #increase limits a little bit as the game progresses.
(store_add, ":level_factor", 80, ":level"),
(val_mul, ":limit", ":level_factor"),
(val_div, ":limit", 80),
(assign, reg0, ":limit"),
]),