【战团】加速ai围城进程，闪电进攻—魔球触发器修改 - 骑马与砍杀中文站论坛

(0, 0, 3.1, [(map_free,0)], [

   (store_current_hours, ":cur_hours"),
   (try_for_parties, ":center_no"),
      (party_get_slot, ":besieger_party", ":center_no", slot_center_is_besieged_by),
      (gt, ":besieger_party", 0),
      (party_is_active, ":besieger_party"),
      (store_faction_of_party, ":besieger_faction", ":besieger_party"),
      (party_slot_ge, ":center_no", slot_center_is_besieged_by, 1),
      (party_get_slot, ":siege_begin_hours", ":center_no", slot_center_siege_begin_hours),
      (store_sub, ":siege_hours", ":cur_hours", ":siege_begin_hours"),
      (ge, ":siege_hours", 6),

      #Agland:Calculate the number of vessel
      (party_set_slot, ":center_no", slot_village_player_can_not_steal_cattle, 0),
      (try_for_parties, ":party_no"),
         (party_get_slot,":party_type",":party_no",0),
         (eq, ":party_type", spt_kingdom_hero_party),
         (party_is_active, ":party_no"),
         (store_faction_of_party, ":party_faction", ":party_no"),
         (eq, ":party_faction", ":besieger_faction",),
         (store_distance_to_party_from_party, ":party_distance", ":party_no", ":center_no"),
         (lt, ":party_distance", 5),
         (party_get_slot, ":num", ":center_no", slot_village_player_can_not_steal_cattle),
         (val_add,":num",1),
         (party_set_slot, ":center_no", slot_village_player_can_not_steal_cattle, ":num"),#Agland
      (try_end),

      #Modify parameters for "script_begin_assault_on_center"
      (store_sub, ":siege_begin_hours", ":siege_begin_hours", 600),
      (party_set_slot, ":center_no", slot_center_siege_begin_hours, ":siege_begin_hours"),
      (store_sub, ":siege_hardness", 0, 240),
      (party_set_slot, ":center_no", slot_center_siege_hardness, ":siege_hardness"),


      #(call_script, "script_begin_assault_on_center", ":center_no"),
      (str_store_faction_name, s5, ":besieger_faction"),
      (str_store_string, s5, "str_s5_s_party"),
      (assign, reg1, ":num"),
      (str_store_string, s51, "str_reg1"),
      (str_store_string, s50, "str_s5_is_s51"),
      (str_store_party_name, s51, ":center_no"),
      (display_message, "str_s50_comma_s51",0xFFFF00),
      #(str_store_faction_name, s5, ":besieger_faction"),str_s52_comma_s51 str_reg1 str_s50_comma_s51  str_s5_is_s51    str_s3s_s2
      #(str_store_troop_name, s7, ":troop_no"),
      #(str_store_string, s2, "str_s7_raiders"),
      #(str_store_string, s50, "str_s3s_s2"),
      #(str_store_party_name, s51, ":center_no"),
      #(display_message, "str_s52_comma_s51",0xFFFF00),
      #(tutorial_message, "str_s50_comma_s51", 0),done
      #(str_store_string, s1, "str_s5_s_party"),
      #(str_store_string, s2, "str_s7_raiders"),
      #(tutorial_box,s2,s1),#done
      #(tutorial_box,":besieger_faction",":center_no"),#nonono
      #(display_message, "@{s20} is besieging {s21}",0xFFFF00),
      #(assign, reg1, ":siege_begin_hours"),
      #(assign, reg2, ":defender_strength"),
      #(display_message, "str_january_reg1_reg2"),
      #(assign, reg1, ":siege_hardness"),
      #(assign, reg2, ":cur_hours"),
      #(display_message, "str_may_reg1_reg2"),
   (try_end),

]),

  (1.0, 0, 3.0, [(map_free,0)], [

   (store_current_hours, ":cur_hours"),
   (try_for_range, ":center_no", towns_begin, villages_begin),#Agland
      (party_get_slot, ":besieger_party", ":center_no", slot_center_is_besieged_by),
      (gt, ":besieger_party", 0),
      (party_is_active, ":besieger_party"),
      (store_faction_of_party, ":besieger_faction", ":besieger_party"),
      (party_slot_ge, ":center_no", slot_center_is_besieged_by, 1),
      (party_get_slot, ":siege_begin_hours", ":center_no", slot_center_siege_begin_hours),
      (store_sub, ":siege_begin_hours", ":cur_hours", ":siege_begin_hours"),
      (assign, ":marshall_attacking", 19),
      (try_for_range, ":troop_no", active_npcs_begin, kingdom_ladies_end),#Agland
      (troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
      (neg|troop_slot_ge, ":troop_no", slot_troop_prisoner_of_party, 0),
      (troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),
      (gt, ":party_no", 0),
      (party_is_active, ":party_no"),

      (store_troop_faction, ":troop_faction_no", ":troop_no"),
      (eq, ":troop_faction_no", ":besieger_faction"),
      (assign, ":continue", 0),
      (try_begin),
         (party_slot_eq, ":party_no", slot_party_ai_state, spai_besieging_center),
         (party_slot_eq, ":party_no", slot_party_ai_object, ":center_no"),
         (assign, ":continue", 1),
      (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", 0),
         (party_is_active, ":commander_party"),
         (party_slot_eq, ":commander_party", slot_party_ai_state, spai_besieging_center),
         (party_slot_eq, ":commander_party", slot_party_ai_object, ":center_no"),
         (assign, ":continue", 1),
      (try_end),
      (eq, ":continue", 1),
      (party_get_battle_opponent, ":opponent", ":party_no"),
      (this_or_next|lt, ":opponent", 0),
      (eq, ":opponent", ":center_no"),
      (try_begin),
         (faction_slot_eq, ":besieger_faction", slot_faction_marshall, ":troop_no"),

#Agland
         (assign, ":marshall_attacking", 33),
      (else_try),
         (assign, ":marshall_attacking", 11),
      (try_end),
      (gt, ":marshall_attacking", 29),
      (party_set_slot, ":center_no", slot_center_siege_hardness, -100),#Modify the calculation method of defensive force
      (gt, ":siege_begin_hours", 6),

      (call_script, "script_begin_assault_on_center", ":center_no"),
      (str_store_faction_name, s7, ":besieger_faction"),
      (str_store_party_name, s51, ":center_no"),
      (str_store_string, s50, "str_s7_raiders"),
      (display_message, "str_s50_comma_s51",0xFFFF00),

#Agland

      (try_end),
   (try_end),
]),