【OSP】战团简单的入侵代码

杰喵喵

代码思路，定时器设定到一定天数，激活入侵阵营，在特定地图坐标创建阵营的领主队伍。战团代码本身代码，当阵营非激活情况下，领主会叛变，同时没有据点的阵营的领主会进入失去目标状态。因此代码需要做到，1.修改原来代码让非激活阵营领主不叛变，同时不在地图上创建非激活阵营领主；2.给入侵阵营设置隐秘的据点，在入侵的时候变成正常据点。3.入侵的时候在特定地图坐标创建阵营的领主队伍，并且添加部队。
1.首先创建阵营与入侵阵营隐秘据点代码这里省略。module_script中"游戏开始"初始化阵营，设置国王等，中间部分代码省略！！！。

1. #script_game_start:
   
2.   # This script is called when a new game is started
   
3.   # INPUT: none
   
4.   ("game_start",
   
5.    [
   
6. 
   
7.       
   
8.       
   
9.      (faction_set_slot, "fac_kingdom_undead",  slot_faction_state, sfs_inactive),#入侵阵营状态为失能
   
10.      (party_set_flags, "p_castle_51", pf_disabled, 1),#入侵阵营的隐藏城堡 设置无效状态
    
11.      (party_set_flags, "p_castle_52", pf_disabled, 1),#入侵阵营的隐藏城堡 设置无效状态
    
12.      
    
13.     ]),

复制代码

2.在module_simple_ttrigger中 "个人领主政治算计" 1061行中代码进行修改，参考我修改好的部分

1. #Individual lord political calculations
   
2.     #Check for lords without fiefs, auto-defections, etc
   
3.     (0.5,        
   
4.      [
   
5.         (val_add, "$g_lord_long_term_count", 1),
   
6.         (try_begin),
   
7.           (neg|is_between, "$g_lord_long_term_count", "trp_kingdom_heroes_including_player_begin", active_npcs_end),
   
8.           (assign, "$g_lord_long_term_count", "trp_kingdom_heroes_including_player_begin"),
   
9.         (try_end),
   
10. 
    
11.         (assign, ":troop_no", "$g_lord_long_term_count"),
    
12.         
    
13.         (try_begin),
    
14.           (eq, ":troop_no", "trp_kingdom_heroes_including_player_begin"),        
    
15.           (assign, ":troop_no", "trp_player"),
    
16.         (try_end),
    
17. 
    
18.         (try_begin),
    
19.           (eq, "$cheat_mode", 1),
    
20.           (str_store_troop_name, s9, ":troop_no"),
    
21.           (display_message, "@{!}DEBUG -- Doing political calculations for {s9}"),
    
22.         (try_end),
    
23.         
    
24.         #Penalty for no fief
    
25.         (try_begin),
    
26.           (troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
    
27.           (neq, ":troop_no", "trp_player"),
    
28.                   
    
29.           (assign, ":fief_found", -1),
    
30.           (try_for_range, ":center", centers_begin, centers_end),
    
31.             (party_slot_eq, ":center", slot_town_lord, ":troop_no"),
    
32.             (assign, ":fief_found", ":center"),
    
33.           (try_end),
    
34.                
    
35.           (try_begin),
    
36.             (eq, ":fief_found", -1),
    
37.                                                 
    
38.             (store_faction_of_troop, ":original_faction", ":troop_no"),
    
39.             (faction_get_slot, ":faction_leader", ":original_faction", slot_faction_leader),
    
40.             (troop_get_slot, ":troop_reputation", ":troop_no", slot_lord_reputation_type),
    
41.                         
    
42.             (try_begin),
    
43.               (neq, ":faction_leader", ":troop_no"),
    
44.               (try_begin),
    
45.                 (this_or_next|eq, ":troop_reputation", lrep_quarrelsome),
    
46.                 (this_or_next|eq, ":troop_reputation", lrep_selfrighteous),
    
47.                 (this_or_next|eq, ":troop_reputation", lrep_cunning),
    
48.                 (eq, ":troop_reputation", lrep_debauched),
    
49.                 (call_script, "script_troop_change_relation_with_troop", ":troop_no", ":faction_leader", -4),
    
50.                 (val_add, "$total_no_fief_changes", -4),
    
51.               (else_try),
    
52.                 (eq, ":troop_reputation", lrep_martial),
    
53.                 (call_script, "script_troop_change_relation_with_troop", ":troop_no", ":faction_leader", -2),
    
54.                 (val_add, "$total_no_fief_changes", -2),
    
55.               (try_end),
    
56.             (try_end),
    
57.           (try_end),
    
58.         (try_end),        
    
59.                
    
60.         #Auto-indictment or defection
    
61.         (try_begin),
    
62.           (this_or_next|troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
    
63.           (eq, ":troop_no", "trp_player"),               
    
64.           (try_begin),
    
65.             (eq, ":troop_no", "trp_player"),
    
66.             (assign, ":faction", "$players_kingdom"),
    
67.           (else_try),
    
68.             (store_faction_of_troop, ":faction", ":troop_no"),
    
69.           (try_end),
    
70. 
    
71.           (faction_get_slot, ":faction_leader", ":faction", slot_faction_leader),
    
72.           (neq, ":troop_no", ":faction_leader"),
    
73.                         
    
74.           #I don't know why these are necessary, but they appear to be
    
75.           (neg|is_between, ":troop_no", "trp_kingdom_1_lord", "trp_knight_1_1"),
    
76.           (neg|is_between, ":troop_no", pretenders_begin, pretenders_end),
    
77.                   
    
78.                   (assign, ":num_centers", 0),                  
    
79.                   (try_for_range,":cur_center", walled_centers_begin, walled_centers_end),                    
    
80.                     (store_faction_of_party, ":faction_of_center", ":cur_center"),
    
81.                         (eq, ":faction_of_center", ":faction"),                        
    
82.                         (val_add, ":num_centers", 1),
    
83.                   (try_end),
    
84. 
    
85.                   #we are counting num_centers to allow defection although there is high relation between faction leader and troop.
    
86.                   #but this rule should not applied for player's faction and player_supporters_faction so thats why here 1 is added to num_centers in that case.
    
87.                   (try_begin),
    
88.                     (this_or_next|eq, ":faction", "$players_kingdom"),
    
89.                         (eq, ":faction", "fac_player_supporters_faction"),
    
90.                         (val_add, ":num_centers", 1),
    
91.                   (try_end),
    
92.                         
    
93.           (call_script, "script_troop_get_relation_with_troop", ":troop_no", ":faction_leader"),
    
94.           (this_or_next|le, reg0, -90), #was -75
    
95.                   (eq, ":num_centers", 0), #if there is no walled centers that faction has defection happens 100%.
    
96. 
    
97.           (call_script, "script_cf_troop_can_intrigue", ":troop_no", 0), #Should include battle, prisoner, in a castle with others
    
98.           (store_random_in_range, ":who_moves_first", 0, 2),
    
99.                         
    
100.           (try_begin),
     
101.             (this_or_next|eq, ":num_centers", 0), #Thanks Caba`drin & Osviux
     
102.             (neq, ":who_moves_first", 0),
     
103.             (neq, ":troop_no", "trp_player"),
     
104.                                 
     
105.                         #do a defection
     
106.                         (try_begin),
     
107.                           (neq, ":num_centers", 0),
     
108.                           (assign, "$g_give_advantage_to_original_faction", 1),
     
109.                         (try_end),
     
110.                         #(assign, "$g_give_advantage_to_original_faction", 1),
     
111.         
     
112.                         (store_faction_of_troop, ":orig_faction", ":troop_no"),
     
113.             #################修改非激活阵营不开启领主叛逃-开始#############################################
     
114.             (try_begin),
     
115.                 (neg|faction_slot_eq, ":orig_faction", slot_faction_state, sfs_inactive),
     
116.                 (call_script, "script_lord_find_alternative_faction", ":troop_no"),
     
117.                 (assign, ":new_faction", reg0),                        
     
118.                 (assign, "$g_give_advantage_to_original_faction", 0),
     
119.             (else_try),
     
120.                 (assign, ":new_faction", ":orig_faction"),
     
121.             (try_end),
     
122.              #################修改非激活阵营-结束#############################################
     
123.             
     
124.                         (try_begin),
     
125.                           (neq, ":new_faction", ":orig_faction"),                          
     
126.             
     
127.               (is_between, ":new_faction", kingdoms_begin, kingdoms_end),
     
128.               (str_store_troop_name_link, s1, ":troop_no"),
     
129.               (str_store_faction_name_link, s2, ":new_faction"),        
     
130.               (str_store_faction_name_link, s3, ":faction"),
     
131.               (call_script, "script_change_troop_faction", ":troop_no", ":new_faction"),
     
132.               (try_begin),
     
133.                 (ge, "$cheat_mode", 1),
     
134.                 (str_store_troop_name, s4, ":troop_no"),
     
135.                 (display_message, "@{!}DEBUG - {s4} faction changed in defection"),
     
136.               (try_end),        
     
137.               (troop_get_type, reg4, ":troop_no"),
     
138.               (str_store_string, s4, "str_lord_defects_ordinary"),
     
139.               (display_log_message, "@{!}{s4}"),
     
140.               (try_begin),
     
141.                 (eq, "$cheat_mode", 1),
     
142.                 (this_or_next|eq, ":new_faction", "$players_kingdom"),
     
143.                 (eq, ":faction", "$players_kingdom"),
     
144.                 (call_script, "script_add_notification_menu", "mnu_notification_lord_defects", ":troop_no", ":faction"),
     
145.               (try_end),                                
     
146.                         (try_end),
     
147.           (else_try),        
     
148.             (neq, ":faction_leader", "trp_player"),
     
149.                         (call_script, "script_troop_get_relation_with_troop", ":troop_no", ":faction_leader"),
     
150.                         (le, reg0, -50), #was -75
     
151.             (call_script, "script_indict_lord_for_treason", ":troop_no", ":faction"),
     
152.           (try_end),                  
     
153.         (else_try),  #Take a stand on an issue
     
154.           (neq, ":troop_no", "trp_player"),
     
155.           (store_faction_of_troop, ":faction", ":troop_no"),
     
156.           (faction_slot_ge, ":faction", slot_faction_political_issue, 1),
     
157.           #This bit of complication is needed for savegame compatibility -- if zero is in the slot, they'll choose anyway                        
     
158.           (neg|troop_slot_ge, ":troop_no", slot_troop_stance_on_faction_issue, 1),
     
159.           (this_or_next|troop_slot_eq, ":troop_no", slot_troop_stance_on_faction_issue, -1),
     
160.           (neq, "$players_kingdom", ":faction"),
     
161.           (troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
     
162.           (call_script, "script_npc_decision_checklist_take_stand_on_issue", ":troop_no"),
     
163.           (troop_set_slot, ":troop_no", slot_troop_stance_on_faction_issue, reg0),
     
164.         (try_end),
     
165. 
     
166.         (try_for_range, ":active_npc", active_npcs_begin, active_npcs_end),
     
167.           (call_script, "script_troop_get_relation_with_troop", ":troop_no", ":active_npc"),
     
168.           (lt, reg0, 0),
     
169.           (assign, ":relation", reg0),
     
170.           (store_sub, ":chance_of_convergence", 0, ":relation"),
     
171.           (store_random_in_range, ":random", 0, 300),
     
172.           (lt, ":random", ":chance_of_convergence"),
     
173.           (call_script, "script_troop_change_relation_with_troop", ":troop_no", ":active_npc", 1),
     
174.           (val_add, "$total_relation_changes_through_convergence", 1),
     
175.         (try_end),                                
     
176.         ]),

复制代码

3.在module_simple_ttrigger中"王国英雄从囚禁中释放后重生英雄队伍"

1. # Respawn hero party after kingdom hero is released from captivity.
   
2.   (48,
   
3.    [
   
4.        (try_for_range, ":troop_no", active_npcs_begin, active_npcs_end),
   
5.          (troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
   
6. 
   
7.          (str_store_troop_name, s1, ":troop_no"),
   
8.       
   
9.          (neg|troop_slot_ge, ":troop_no", slot_troop_prisoner_of_party, 0),
   
10.          (neg|troop_slot_ge, ":troop_no", slot_troop_leaded_party, 1),
    
11. 
    
12.          (store_troop_faction, ":cur_faction", ":troop_no"),
    
13.          (try_begin),
    
14.            (eq, ":cur_faction", "fac_outlaws"), #Do nothing
    
15.          ####################无效阵营不工作#########
    
16.          (else_try),
    
17.            (faction_slot_eq, ":cur_faction", slot_faction_state, sfs_inactive),#Do nothing
    
18.          ###########################################
    
19.          (else_try),         
    
20.            (try_begin),
    
21.              (eq, "$cheat_mode", 2),
    
22.              (str_store_troop_name, s4, ":troop_no"),
    
23.              (display_message, "str_debug__attempting_to_spawn_s4"),
    
24.            (try_end),
    
25.            
    
26.            (call_script, "script_cf_select_random_walled_center_with_faction_and_owner_priority_no_siege", ":cur_faction", ":troop_no"),#Can fail
    
27.            (assign, ":center_no", reg0),
    
28. 
    
29.            (try_begin),
    
30.              (eq, "$cheat_mode", 2),            
    
31.              (str_store_party_name, s7, ":center_no"),
    
32.                          (str_store_troop_name, s0, ":troop_no"),
    
33.              (display_message, "str_debug__s0_is_spawning_around_party__s7"),
    
34.            (try_end),
    
35.       
    
36.            (call_script, "script_create_kingdom_hero_party", ":troop_no", ":center_no"),
    
37. 
    
38.                    (try_begin),
    
39.                      (eq, "$g_there_is_no_avaliable_centers", 0),
    
40.              (party_attach_to_party, "$pout_party", ":center_no"),
    
41.            (try_end),
    
42.            
    
43.            #new
    
44.            #(troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),
    
45.                    #(call_script, "script_npc_decision_checklist_party_ai", ":troop_no"), #This handles AI for both marshal and other parties               
    
46.                    #(call_script, "script_party_set_ai_state", ":party_no", reg0, reg1),
    
47.                    #new end
    
48. 
    
49.            (troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),
    
50.            (call_script, "script_party_set_ai_state", ":party_no", spai_holding_center, ":center_no"),           
    
51.            
    
52.          (else_try),
    
53.            (neg|faction_slot_eq, ":cur_faction", slot_faction_state, sfs_active),
    
54.            (try_begin),
    
55.              (is_between, ":troop_no", kings_begin, kings_end),
    
56.              (troop_set_slot, ":troop_no", slot_troop_change_to_faction, "fac_commoners"),
    
57.            (else_try),
    
58.              (store_random_in_range, ":random_no", 0, 100),
    
59.              (lt, ":random_no", 10),
    
60.              (call_script, "script_cf_get_random_active_faction_except_player_faction_and_faction", ":cur_faction"),
    
61.              (troop_set_slot, ":troop_no", slot_troop_change_to_faction, reg0),
    
62.            (try_end),
    
63.          (try_end),
    
64.        (try_end),
    
65.     ]),

复制代码

4.在module_ttrigger中写入代码，激活入侵阵营，创建国王与领主部队，领主部队代码省略，隐藏城堡激活，给予国王。

1.   
   
2.     (1, 24*50, ti_once,
   
3.     [],
   
4.     [
   
5. 
   
6.        (faction_set_slot,"fac_kingdom_undead",slot_faction_state,sfs_active),
   
7. 
   
8.        (call_script, "script_appoint_faction_marshall", "fac_kingdom_undead", "trp_kingdom_undead_lord"),
   
9.       
   
10.        (call_script, "script_create_kingdom_hero_party", "trp_kingdom_undead_lord", "p_town_6"),#国王NPC
    
11.        (try_for_range,":party_template","pt_kingdom_undead_reinforcements_inite_a","pt_kingdom_undead_reinforcements_inite_d"),
    
12.            (party_add_template, "$pout_party", ":party_template"),
    
13.        (try_end),
    
14.        (party_add_members,"$pout_party","trp_undead_knight_a",40),
    
15.        (party_add_members,"$pout_party","trp_undead_ogre",10),
    
16. 
    
17.      (party_set_flags, "p_castle_51", pf_disabled, 0),
    
18.           (call_script, "script_give_center_to_lord", "p_castle_51",  "trp_kingdom_undead_lord", 0),
    
19.      (try_for_range,":party_template","pt_living_dead_army_reinforcements_a","pt_living_dead_army_reinforcements_d"),
    
20.         (party_add_template, "p_castle_51", ":party_template"),
    
21.      (try_end),
    
22. 
    
23.     ],
    
24.     ),

复制代码

6.该代码用于本人MOD”异教之歌“，有问题欢迎讨论，QQ群号：751831596。

黑暗之魂

6666666666来自: Android客户端

wei1786

似乎仅仅disable阵营和城市还是会在信息栏里面出现

wei1786

wei1786 发表于 2023-2-4 21:58
似乎仅仅disable阵营和城市还是会在信息栏里面出现

https://bbs.mountblade.com.cn/fo ... E%B2%D8%D5%F3%D3%AA
翻到了一个中文站的老帖子，还需要设定这些？
faction_set_note_available      = 1096 # (faction_set_note_available, <faction_id>, <value>), #1 = available, 0 = not available
party_set_note_available        = 1097 # (party_set_note_available, <party_id>, <value>), #1 = available, 0 = not available

杰喵喵

wei1786 发表于 2023-2-4 22:42
https://bbs.mountblade.com.cn/forum.php?mod=viewthread&tid=225708&highlight=%D2%FE%B2%D8%D5%F3%D3% ...

应该不需要

wei1786

杰喵喵 发表于 2023-2-7 21:06
应该不需要

我看了下，放在kingdom之间和center之间的话需要改script中game_start最后几段，不加判断条件就会在游戏开始时显示

杰喵喵

wei1786 发表于 2023-2-8 09:16
我看了下，放在kingdom之间和center之间的话需要改script中game_start最后几段，不加判断条件就会在游戏 ...

受教了