def set_item_max_ammo():
  item_max_ammo = []
  for i_item in xrange(len(items)):
    item_max_ammo.append((item_set_slot, i_item, slot_item_max_ammo, get_max_ammo(items[i_item][6])))
  return item_max_ammo[:]

  ## script_consume_ammo
("cf_consume_ammo",
 [
   (agent_get_ammo, ":cur_ammo","$fplayer_agent_no",1),
   (agent_get_wielded_item,":wielded_item","$fplayer_agent_no"),
   (gt, ":wielded_item", itm_no_item),
       (item_get_type, ":type", ":wielded_item"),

   (try_begin),
      (eq, ":type", itp_type_bow),
      (assign,":arrows",0),
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_arrows),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (val_add,":arrows",":cur_arrows"),
      (try_end),
      (gt,":arrows",":cur_ammo"),
      (store_sub,":used_ammo", ":arrows",":cur_ammo"),
      
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_arrows),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (try_begin),
            (gt,":cur_arrows",":used_ammo"),
            (store_sub,":new_arrows",":cur_arrows",":used_ammo"),
            (assign,":used_ammo",0),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", ":new_arrows"),
         (else_try),
            (val_sub,":used_ammo",":cur_arrows"),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", 1),
         (try_end),
      (try_end),
   (try_end),

   (try_begin),
      (eq, ":type", itp_type_crossbow),
      (assign,":arrows",0),
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_bolts),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (val_add,":arrows",":cur_arrows"),
      (try_end),
      (gt,":arrows",":cur_ammo"),
      (store_sub,":used_ammo", ":arrows",":cur_ammo"),
      
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_bolts),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (try_begin),
            (gt,":cur_arrows",":used_ammo"),
            (store_sub,":new_arrows",":cur_arrows",":used_ammo"),
            (assign,":used_ammo",0),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", ":new_arrows"),
         (else_try),
            (val_sub,":used_ammo",":cur_arrows"),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", 1),
         (try_end),
      (try_end),
   (try_end),
 ]
),

  ("restore_ammo",
 [

   (troop_get_inventory_capacity, ":end_cond", "trp_player"),
   (try_for_range, ":troop_item_slot", 0, ":end_cond"),
      (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
      (gt, ":item", itm_no_item),
      (item_get_type, ":weapon_type", ":item"),
           (this_or_next|eq, ":weapon_type", itp_type_arrows),
               (eq, ":weapon_type", itp_type_bolts),
                (item_get_slot, ":max_amount", ":item", slot_item_max_ammo),
      (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", ":max_amount"),
   (try_end),   
]),

  ("init_item_max_ammo", set_item_max_ammo()),

   (1,0,0,[],
    [
      (call_script, "script_cf_consume_ammo"),      
   ]
   ),

  (1,
   [
        (call_script, "script_init_item_max_ammo"),
    ]),

slot_item_max_ammo   = 9

("create_war_party",
[
      (store_script_param_1, ":village_no"),

   (store_faction_of_party, ":party_faction", ":village_no"),
   (str_store_party_name, s5, ":village_no"),   
          (party_get_slot, ":party_culture", ":village_no", slot_center_original_faction),

      (faction_get_slot, ":reinforcements_a", ":party_culture", slot_faction_reinforcements_a),
      (faction_get_slot, ":reinforcements_b", ":party_culture", slot_faction_reinforcements_b),
      (faction_get_slot, ":reinforcements_c", ":party_culture", slot_faction_reinforcements_c),
        ##diplomacy begin
      (faction_get_slot, ":serfdom", ":party_faction", dplmc_slot_faction_serfdom),
      (faction_get_slot, ":aristocraty", ":party_faction", dplmc_slot_faction_aristocracy),
        ##diplomacy end



   (set_spawn_radius, 0),
   (spawn_around_party, ":village_no", "pt_kingdom_war_party"),
   (assign, ":result", reg0),
   (party_set_faction, ":result", ":party_faction"),
        (party_get_slot, ":prosperity", ":village_no", slot_town_prosperity),


####### feudals
   (assign,":limith",50),
   (val_sub, ":limith",":serfdom"),
   (val_sub, ":limith",":serfdom"), ##46-56, diplomaty only
   (try_begin),
      (ge,":prosperity",":limith"),
       (party_add_template, ":result", ":reinforcements_c"),
      (party_add_template, ":result", ":reinforcements_b"),
        (try_end),
   (assign,":limith",33),
   (val_sub, ":limith", ":aristocraty"), ## 30-36, diplomaty only
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (store_div,":feudal_tiers",":prosperity",":limith"),
      (try_for_range,":unused",0,":feudal_tiers"),
         (party_add_template, ":result", ":reinforcements_c"),
                (try_end),
        (try_end),
####### town militas
   (assign,":limith",33),
   (val_add, ":limith",":aristocraty"),      ##30-36, diplomaty only
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (party_add_template, ":result", ":reinforcements_b"),
      (party_add_template, ":result", ":reinforcements_b"),
      (store_div,":town_tiers",":prosperity",":limith"),
      (try_for_range,":unused",0,":town_tiers"),
         (party_add_template, ":result", ":reinforcements_b"),
         (party_add_template, ":result", ":reinforcements_b"),
         (party_add_template, ":result", ":reinforcements_b"),
                (try_end),
        (try_end),
####### village militas
        (party_add_template, ":result", ":reinforcements_a"),
        (party_add_template, ":result", ":reinforcements_a"),
        (party_add_template, ":result", ":reinforcements_a"),
   (assign,":limith",20),
   (val_add, ":limith",":serfdom"), ##17-23, diplomaty only
   (store_div,":village_tiers",":prosperity",":limith"),
   (try_for_range,":unused",0,":village_tiers"),
      (party_add_template, ":result", ":reinforcements_a"),
        (try_end),

   (assign,":limith",10),
   (val_add, ":limith",":aristocraty"),      ##7-13, diplomaty only
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (party_add_template, ":result", ":reinforcements_a"),
      (store_div,":village_tiers",":prosperity",":limith"),
      (try_for_range,":unused",0,":village_tiers"),
           (party_add_template, ":result", ":reinforcements_a"),
                (try_end),
   (try_end),
   (store_mul, ":xp_upgrade", ":prosperity", 25),
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (val_mul, ":xp_upgrade", 3),
   (try_end),

   (party_upgrade_with_xp, ":result", ":xp_upgrade", 0),

    (party_set_slot, ":result", slot_party_home_center, ":village_no"),
   (party_set_slot, ":village_no", slot_center_heerban_party, ":result"),

   (party_set_name, ":result", "str_s5_s_militas"),
    (assign, reg0, ":result"),
]),

  ("cf_heerban_reinforce_party",
    [
   (store_script_param_1, ":troop_no"),
   (store_script_param_2, ":party_no"),
         (ge, ":party_no", 1),
   (store_faction_of_party, ":party_faction", ":party_no"),
   (party_get_slot, ":party_type",":party_no", slot_party_type),   ## not need in normal work,
          (eq, ":party_type", spt_kingdom_hero_party),         ## ...
   (party_stack_get_troop_id, ":leader", ":party_no"),      ## ...
   (eq, ":leader", ":troop_no"),                ## ...

   (try_for_range, ":cur_center", centers_begin, centers_end),      
      (party_slot_eq, ":cur_center", slot_town_lord, ":troop_no"),
      (party_slot_eq, ":cur_center", slot_village_state, svs_normal),
      (party_slot_eq, ":cur_center", slot_village_infested_by_bandits, 0),

      (party_get_slot, ":heerb_party", ":cur_center", slot_center_heerban_party),
         (assign, ":milita_is_on",0),
        (try_begin),
         (gt, ":heerb_party", 1),
         (party_is_active, ":heerb_party"),
         (party_get_template_id, ":party_template", ":heerb_party"),
         (eq,":party_template","pt_kingdom_war_party"),   ## not need in normal work
         (assign, ":milita_is_on",1),
         (try_end),
         (eq, ":milita_is_on",0),
      (call_script, "script_create_war_party",":cur_center"),
         (assign, ":result", reg0),
      (party_set_ai_behavior, ":result", ai_bhvr_travel_to_party),
      (party_set_ai_object, ":result", ":party_no"),
   (try_end),

 ]),


("cf_heerban_deforce_party",
 [
   (store_script_param_1, ":party_no"),      ## attached_parties
   (try_for_parties, ":cur_party_no"),
            (ge, ":cur_party_no", 0),
      (party_is_active, ":cur_party_no"),

      (party_get_template_id, ":party_template", ":cur_party_no"),
      (eq,":party_template","pt_kingdom_war_party"),
      (party_get_slot, ":home_center", ":cur_party_no", slot_party_home_center),

      (try_begin),      ## if attached
               (party_get_attached_to, ":attached_party_no", ":cur_party_no"),
         (eq,":attached_party_no",":party_no"),

         (party_detach, ":cur_party_no"),

          (party_set_ai_behavior, ":cur_party_no", ai_bhvr_travel_to_party),
          (party_set_ai_object, ":cur_party_no",":home_center"),
               (else_try),      ## if going to party
         (get_party_ai_behavior, ":ai_behavior",":cur_party_no"),
         (eq, ":ai_behavior", ai_bhvr_travel_to_party),
         (get_party_ai_object, ":ai_object_party",":cur_party_no"),
         (eq,":ai_object_party",":party_no"),

          (party_set_ai_behavior, ":cur_party_no", ai_bhvr_travel_to_party),
          (party_set_ai_object, ":cur_party_no",":home_center"),
               (try_end),
            (try_end),
 ]),

   (3,[
## sity in siege
        (try_for_range, ":center_no", walled_centers_begin, towns_end),
      (party_slot_eq, ":center_no", slot_village_state, svs_under_siege),
      (party_slot_eq, ":center_no", slot_party_type, spt_town),
       (party_get_slot, ":party_no", ":center_no", slot_center_heerban_party),
            (assign, ":milita_is_on",0),
                (try_begin),
                  (gt, ":party_no", 1),
            (party_is_active, ":party_no"),
            (party_get_template_id, ":party_template", ":party_no"),
            (eq,":party_template","pt_kingdom_war_party"),## not need in normal work
            (assign, ":milita_is_on",1),
                  (try_end),
            (eq, ":milita_is_on",0),
      (call_script, "script_create_war_party",":center_no"),
      (assign, ":result", reg0),
      (party_attach_to_party, ":result", ":center_no"),
      (party_set_ai_behavior, ":result", ai_bhvr_hold),
   (try_end),

            (try_for_range, ":center_no", centers_begin, centers_end),         ## remove milita from_unsieged_towns
      (neg|party_slot_eq, ":center_no", slot_village_state, svs_under_siege),
      (party_get_slot, ":party_no", ":center_no", slot_center_heerban_party),
            (ge, ":party_no", 0),
      (party_get_template_id, ":party_template", ":party_no"),
      (eq,":party_template","pt_kingdom_war_party"),
      (party_get_slot, ":home_center", ":party_no", slot_party_home_center),
      (eq,":home_center",":center_no"),
            (party_get_attached_to, ":attached_party_no", ":party_no"),
      (party_slot_eq, ":party_no", slot_party_ai_state, ai_bhvr_hold),
      (eq,":attached_party_no",":center_no"),
      (str_store_party_name, s11, ":party_no"),
#      (display_message, "@remove {s11}"),
       (remove_party, ":party_no"),
      (party_set_slot, ":center_no", slot_center_heerban_party, -1),
   (try_end),


####### HEERBAN
     (try_for_range, ":troop_no", active_npcs_begin, active_npcs_end),
        (troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
        (troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),
        (gt, ":party_no", 1),
        (party_is_active, ":party_no"),
   (store_faction_of_party, ":party_faction", ":party_no"),
   (assign,":heerban",0),
#   (str_store_party_name, s11, ":party_no"),
   (try_begin),
#      (troop_get_slot, ":troop_ai_state", ":troop_no", slot_troop_ai_state),
#      (neq,":troop_ai_state", sfai_default),
#      (assign,":heerban",1),
   #   (display_message, "@heerban_senior pt in {s11}"),
#   (else_try),
      (faction_slot_eq, ":party_faction", slot_faction_marshall, ":troop_no"),
      (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_default),
      (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_feast),
      (assign,":heerban",1),
   #   (display_message, "@heerban_marshall pt in {s11}"),
   (else_try),
      (party_slot_eq, ":party_no", slot_party_ai_state, spai_accompanying_army),
      (party_get_slot, ":commander_party", ":party_no", slot_party_ai_object),
      (gt,":commander_party",1),
      (party_is_active, ":commander_party"),
      (party_stack_get_troop_id, ":leader", ":commander_party"),
      (try_begin),
         (faction_slot_eq, ":party_faction", slot_faction_marshall, ":leader"),
         (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_default),      
              (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_feast),

         (assign,":heerban",1),
#      (else_try),
#         (troop_get_slot, ":troop_ai_state", ":leader", slot_troop_ai_state),
#         (neq,":troop_ai_state", sfai_default),
#         (assign,":heerban",1),
      (try_end),
   (try_end),
   (try_begin),
      (eq,":heerban",1),   
      (call_script, "script_cf_heerban_reinforce_party", ":troop_no",":party_no"),
   (else_try),
      (call_script, "script_cf_heerban_deforce_party",":party_no"),
   (try_end),
     (try_end),
####### HEERBAN END

    ]),


  (0.2,         
   [
   (try_for_range,":center_no",centers_begin, centers_end),   
      (party_get_slot, ":party_no", ":center_no", slot_center_heerban_party),
            (ge, ":party_no", 0),
      (party_is_active, ":party_no"),
      (party_get_template_id, ":party_template", ":party_no"),
      (eq,":party_template","pt_kingdom_war_party"),
      (get_party_ai_behavior, ":ai_behavior",":party_no"),
      (eq, ":ai_behavior", ai_bhvr_travel_to_party),
      (get_party_ai_object, ":ai_object_party",":party_no"),
      (str_store_party_name, s11, ":party_no"),
      (try_begin),
         (gt, ":ai_object_party",0),
         (party_is_active, ":ai_object_party"),
         #(eq,":home_center",":ai_object_party"),

         (store_distance_to_party_from_party, ":min_dist", ":party_no", ":ai_object_party"),
         (try_begin),
            (le,":min_dist", 2),
            (party_set_ai_behavior, ":party_no", ai_bhvr_hold),
            (party_attach_to_party, ":party_no", ":ai_object_party"),      
         (else_try),
            (party_stack_get_troop_id, ":leader", ":ai_object_party"),
            (party_get_slot, ":home_center", ":party_no", slot_party_home_center),
            (neg|party_slot_eq, ":home_center", slot_town_lord, ":leader"),
             (party_set_ai_behavior, ":party_no", ai_bhvr_travel_to_party),
             (party_set_ai_object, ":party_no",":home_center"),
         (try_end),
      (else_try),      ## Go to home
         (party_get_slot, ":home_center", ":party_no", slot_party_home_center),
          (party_set_ai_behavior, ":party_no", ai_bhvr_travel_to_party),
          (party_set_ai_object, ":party_no",":home_center"),
      (try_end),
            (try_end),

    ]),

slot_center_heerban_party   = 102

  ("kingdom_war_party", "War Party",icon_gray_knight|pf_show_faction|carries_goods(0),0,fac_commoners,soldier_personality,[]),

  ("s5_s_militas", "Milita of {s5}."),

str_s5_s_militas|Ополчение @Pr[{s5}]