#script_update_volunteer_troops_in_village
  # INPUT: arg1 = center_no
  # OUTPUT: none
  ("update_volunteer_troops_in_village",
    [
       (store_script_param, ":center_no", 1),
       (party_get_slot, ":player_relation", ":center_no", slot_center_player_relation),
## Tocan  begin
#       (party_get_slot, ":center_culture", ":center_no", slot_center_culture),
       (store_faction_of_party, ":center_culture", ":center_no"),
## Tocan  end      


##      (try_begin),
##      (eq, "$cheat_mode", 2),
##       (str_store_party_name, s4, ":center_no"),
##       (str_store_faction_name, s5, ":center_culture"),
##       (display_message, "str_updating_volunteers_for_s4_faction_is_s5"),
##      (try_end),

       (faction_get_slot, ":volunteer_troop", ":center_culture", slot_faction_tier_1_troop),
       (assign, ":volunteer_troop_tier", 1),
       (store_div, ":tier_upgrades", ":player_relation", 10),
       (try_for_range, ":unused", 0, ":tier_upgrades"),
         (store_random_in_range, ":random_no", 0, 100),
         (lt, ":random_no", 10),
         (store_random_in_range, ":random_no", 0, 2),
         (troop_get_upgrade_troop, ":upgrade_troop_no", ":volunteer_troop", ":random_no"),
         (try_begin),
           (le, ":upgrade_troop_no", 0),
           (troop_get_upgrade_troop, ":upgrade_troop_no", ":volunteer_troop", 0),
         (try_end),
         (gt, ":upgrade_troop_no", 0),
         (val_add, ":volunteer_troop_tier", 1),
         (assign, ":volunteer_troop", ":upgrade_troop_no"),
       (try_end),

       (assign, ":upper_limit", 8),
       (try_begin),
         (ge, ":player_relation", 4),
         (assign, ":upper_limit", ":player_relation"),
         (val_div, ":upper_limit", 2),
         (val_add, ":upper_limit", 6),
       (else_try),
         (lt, ":player_relation", 0),
         (assign, ":upper_limit", 0),
       (try_end),


##diplomacy begin
      (assign, ":percent", 100),
      (try_begin), #-30% if not owner
        (neg|party_slot_eq, ":center_no", slot_town_lord, "trp_player"),
        (val_sub, ":percent", 30),
      (try_end),
      (try_begin), #1%/4 renown
        (troop_get_slot, ":player_renown", "trp_player", slot_troop_renown),
        (val_div, ":player_renown", 4),
        (val_add, ":percent", ":player_renown"),
      (try_end),
      (try_begin), #1%/3 honour
        (assign, ":player_honour", "$player_honor"),
        (val_div, ":player_honour", 3),
        (val_add, ":percent", ":player_honour"),
      (try_end),
      (try_begin), #+5% if king
        (faction_get_slot, ":faction_leader", "fac_player_supporters_faction", slot_faction_leader),
        (eq, ":faction_leader", "trp_player"),
        (val_add, ":percent", 5),

        (try_begin), #-5% for each point of serfdom
          (faction_get_slot, ":serfdom", "fac_player_supporters_faction", dplmc_slot_faction_serfdom),
          (neq, ":serfdom", 0),
          (val_mul, ":serfdom", 5),
          (val_sub, ":percent", ":serfdom"),
        (try_end),

        (try_begin),  #+5% if king of village
          (store_faction_of_party, ":faction", ":center_no"),
          (eq, ":faction", "fac_player_supporters_faction"),
          (val_add, ":percent", 5),
        (try_end),
      (try_end),

      (try_begin),
        (gt, ":upper_limit", 0),
        (val_clamp, ":percent", 0, 201),
        (val_mul, ":upper_limit", ":percent"),
        (val_div, ":upper_limit", 100),
      (try_end),

##diplomacy end


       (val_mul, ":upper_limit", 3),
       (store_add, ":amount_random_divider", 2, ":volunteer_troop_tier"),
       (val_div, ":upper_limit", ":amount_random_divider"),
       
       (store_random_in_range, ":amount", 0, ":upper_limit"),
       (party_set_slot, "p_village_219", slot_center_volunteer_troop_type, "trp_nogai_kazak"),
       (party_set_slot, "p_village_237", slot_center_volunteer_troop_type, "trp_nogai_kazak"),
       (party_set_slot, "p_village_240", slot_center_volunteer_troop_type, "trp_nogai_kazak"),

       (party_set_slot, ":center_no", slot_center_volunteer_troop_type, ":volunteer_troop"),
       (party_set_slot, ":center_no", slot_center_volunteer_troop_amount, ":amount"),
     ]),

  #script_update_npc_volunteer_troops_in_village
  # INPUT: arg1 = center_no
  # OUTPUT: none
  ("update_npc_volunteer_troops_in_village",
    [
       (store_script_param, ":center_no", 1),
## Tocan  begin
#       (party_get_slot, ":center_culture", ":center_no", slot_center_culture),
      (store_faction_of_party, ":center_culture", ":center_no"),
## Tocan  end      
       (faction_get_slot, ":volunteer_troop", ":center_culture", slot_faction_tier_1_troop),
       (assign, ":volunteer_troop_tier", 1),
       (try_for_range, ":unused", 0, 5),
         (store_random_in_range, ":random_no", 0, 100),
         (lt, ":random_no", 10),
         (store_random_in_range, ":random_no", 0, 2),
         (troop_get_upgrade_troop, ":upgrade_troop_no", ":volunteer_troop", ":random_no"),
         (try_begin),
           (le, ":upgrade_troop_no", 0),
           (troop_get_upgrade_troop, ":upgrade_troop_no", ":volunteer_troop", 0),
         (try_end),
         (gt, ":upgrade_troop_no", 0),
         (val_add, ":volunteer_troop_tier", 1),
         (assign, ":volunteer_troop", ":upgrade_troop_no"),
       (try_end),

       (assign, ":upper_limit", 12),

       (store_add, ":amount_random_divider", 2, ":volunteer_troop_tier"),
       (val_div, ":upper_limit", ":amount_random_divider"),

       (store_random_in_range, ":amount", 0, ":upper_limit"),     
       (party_set_slot, "p_village_219", slot_center_volunteer_troop_type, "trp_nogai_kazak"),
       (party_set_slot, "p_village_237", slot_center_volunteer_troop_type, "trp_nogai_kazak"),
       (party_set_slot, "p_village_240", slot_center_volunteer_troop_type, "trp_nogai_kazak"),
       
       (party_set_slot, ":center_no", slot_center_npc_volunteer_troop_type, ":volunteer_troop"),
       (party_set_slot, ":center_no", slot_center_npc_volunteer_troop_amount, ":amount"),
     ]),

  #script_town_recruit_volunteers_recruit
  # INPUT: none
  # OUTPUT: none
  ("town_recruit_volunteers_recruit", #renamed
    [(store_faction_of_party, ":cur_faction", "$current_town"),
     (faction_get_slot, ":volunteer_troop", ":cur_faction", slot_faction_tier_4_troop),  #changed tier so it wouldnt recruit nobles.
    (party_get_slot, ":volunteer_amount", "$current_town", slot_center_volunteer_troop_amount),
     (party_get_free_companions_capacity, ":free_capacity", "p_main_party"),
     (val_min, ":volunteer_amount", ":free_capacity"),
     (store_troop_gold, ":gold", "trp_player"),
     (store_div, ":gold_capacity", ":gold", 25),#25 denars per man
     (val_min, ":volunteer_amount", ":gold_capacity"),
     (party_add_members, "p_main_party", ":volunteer_troop", ":volunteer_amount"),
     (party_set_slot, "$current_town", slot_center_volunteer_troop_amount, -1),
     (store_mul, ":cost", ":volunteer_amount", 25),#25 denars per man
     (troop_remove_gold, "trp_player", ":cost"),
     ]),

  ("cf_town_castle_recruit_volunteers_cond",
    [(store_faction_of_party, ":town_faction", "$current_town"),
     (party_get_slot, ":center_relation", "$current_town", slot_center_player_relation),
     (store_relation, ":town_faction_relation", ":town_faction", "fac_player_faction"),
     (ge, ":center_relation", 0),
     (this_or_next|ge, ":center_relation", 5),
     (this_or_next|eq, ":town_faction", "$players_kingdom"),
     (this_or_next|ge, ":town_faction_relation", 0),
     (this_or_next|eq, ":town_faction", "$supported_pretender_old_faction"),
     (             eq, "$players_kingdom", 0),
     (party_slot_ge, "$current_town", slot_center_volunteer_troop_amount, 0),
     (party_slot_ge, "$current_town", slot_center_volunteer_troop_type, 1),
     (party_get_free_companions_capacity, ":free_capacity", "p_main_party"),
     (ge, ":free_capacity", 1),
     ]),

   ("draw_icons",
      [
         (try_for_parties, ":party"),

            (party_slot_eq, ":party", slot_party_type, spt_kingdom_hero_party),
            (party_is_active, ":party"),
            (gt, ":party", 0),
            (neg|party_is_in_any_town, ":party"),
            (store_faction_of_party, ":fac", ":party"),
            (store_party_size, ":num", ":party"),
            (party_get_icon, ":icon", ":party"),

            (party_get_slot, ":leader", ":party", slot_kingdom_party_leader),
            (assign, ":is_king", 0),
            # (try_for_range, ":cur_fac", "fac_kingdom_1", "fac_kingdoms_end"),
            (try_for_range, ":cur_fac", "fac_player_supporters_faction", "fac_kingdoms_end"), #check factions range
               (faction_slot_eq, ":cur_fac", slot_faction_leader, ":leader"),
               (assign, ":is_king", 1),
            (try_end),

            (try_begin), #lord party
               (eq, ":is_king", 0),

               (try_begin),
                  (eq, ":fac", "fac_kingdom_3"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_ttr_army"),
                  (else_try),
                     (assign, ":icon", "icon_ttr_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_4"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_swed_army"),
                  (else_try),
                     (assign, ":icon", "icon_swed_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_5"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_hun_army"),
                  (else_try),
                     (assign, ":icon", "icon_hun_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_2"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_rus_army"),
                  (else_try),
                     (assign, ":icon", "icon_rus_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_6"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_turk_army"),
                  (else_try),
                     (assign, ":icon", "icon_turk_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_1"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_teu_army2"),
                  (else_try),
                     (assign, ":icon", "icon_teu_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_7"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_mold_army"),
                  (else_try),
                     (assign, ":icon", "icon_mold_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_8"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_lit_army"),
                  (else_try),
                     (assign, ":icon", "icon_lit_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_9"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_pol_army"),
                  (else_try),
                     (assign, ":icon", "icon_pol_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_player_supporters_faction"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_rus_army"),
                  (else_try),
                     (assign, ":icon", "icon_rus_army"),
                  (try_end),
               (try_end),
            (else_try), #king party
               (try_begin),
                  (eq, ":fac", "fac_kingdom_3"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_ttr_army"),
                  (else_try),
                     (assign, ":icon", "icon_ttr_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_4"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_swed_army"),
                  (else_try),
                     (assign, ":icon", "icon_swed_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_5"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_hun_army"),
                  (else_try),
                     (assign, ":icon", "icon_hun_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_2"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_rus_army"),
                  (else_try),
                     (assign, ":icon", "icon_rus_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_6"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_turk_army"),
                  (else_try),
                     (assign, ":icon", "icon_turk_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_1"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_teu_army2"),
                  (else_try),
                     (assign, ":icon", "icon_teu_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_7"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_mold_army"),
                  (else_try),
                     (assign, ":icon", "icon_mold_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_8"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_lit_army"),
                  (else_try),
                     (assign, ":icon", "icon_lit_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_kingdom_9"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_pol_army"),
                  (else_try),
                     (assign, ":icon", "icon_pol_army"),
                  (try_end),
               (else_try),
                  (eq, ":fac", "fac_player_supporters_faction"),
                  (try_begin),
                     (ge, ":num", 160),
                     (assign, ":icon", "icon_rus_army"),
                  (else_try),
                     (assign, ":icon", "icon_rus_army"),
                  (try_end),
               (try_end),
            (try_end),

            (party_set_icon, ":party", ":icon"),   
         (try_end),
      ]
   ),