简易的炮兵，使用场景道具

杰喵喵

简易的炮兵，使用场景道具：

参考了九章大佬的投石机做的：
【战团】简易的简单投石机 - MOD制作技术区 - 骑马与砍杀中文站论坛 - Powered by Discuz! (mountblade.com.cn)

测试效果视频：
https://www.bilibili.com/video/B ... id_from=333.999.0.0
直接上代码：
1.mt部分：

1. ##攻城武器部分
   
2. common_siege_weapon = (0, 0, 1,
   
3. [
   
4. (key_is_down|this_or_next,key_n),
   
5. (key_clicked,key_n),
   
6. ],
   
7. [
   
8. 
   
9.     (get_player_agent_no, ":player_agent"),
   
10.     (agent_is_alive, ":player_agent"),
    
11.     (agent_get_team,":team",":player_agent"),
    
12.     (init_position,pos40),
    
13.     (agent_get_position,pos40,":player_agent"),
    
14.     (set_spawn_position, pos40),
    
15.     (spawn_scene_prop,"spr_war_machinery_huopao_gear"),
    
16.     (assign,":sprop_instance",reg0),
    
17.     (scene_prop_set_team, ":sprop_instance", ":team"),
    
18.     (scene_prop_get_team, ":scene_prop_team", ":sprop_instance"),
    
19. 
    
20.     (position_move_x, pos40, -150),
    
21.     (set_spawn_position,pos40),
    
22.     (spawn_agent,"trp_swadian_sergeant"),#刷新兵种
    
23.    
    
24.     (agent_force_rethink, reg0),#强制重新思考
    
25.     (agent_ai_set_aggressiveness, reg0, 2500),#攻击性
    
26.     (agent_set_slot, reg0, slot_agent_courage_score, 12000),#战场勇气
    
27.    
    
28.     (assign,":agent_a",reg0),
    
29.     (agent_set_team,":agent_a",":scene_prop_team"),
    
30.     (scene_prop_set_slot,":sprop_instance",scene_prop_in_use_for_agent,":agent_a"),
    
31.     (agent_set_speed_modifier, ":agent_a", 100),
    
32.     (agent_set_position,":agent_a",pos40),
    
33.    
    
34.     (prop_instance_get_position, pos45, ":sprop_instance"),
    
35.     (prop_instance_animate_to_position,":sprop_instance",pos45,100),
    
36.    
    
37. ]
    
38. )

复制代码

2.场景道具部分

1. #不设置血量和碰撞体减少难度  
   
2. ("war_machinery_huopao_gear",sokf_moveable,"huopao_gear","0",
   
3. [
   
4.    (ti_on_scene_prop_init,
   
5.     [
   
6.       (store_trigger_param_1, ":sprop_instance"),
   
7.       (scene_prop_set_slot, ":sprop_instance", scene_prop_effect_done,0),
   
8.       (scene_prop_set_slot, ":sprop_instance", scene_prop_ammo_count,20),
   
9.     ]),
   
10.    
    
11. 
    
12.    (ti_on_scene_prop_animation_finished,
    
13.     [
    
14.       
    
15.       (store_trigger_param_1, ":sprop_instance"),
    
16.       (scene_prop_get_slot, ":ctrl_agent", ":sprop_instance", scene_prop_in_use_for_agent),
    
17.       (gt,":ctrl_agent",0),
    
18.       (agent_is_alive, ":ctrl_agent"),
    
19.       (agent_is_human, ":ctrl_agent"),
    
20.       
    
21.       (agent_get_team,":agent_team",":ctrl_agent"),
    
22.       (agent_get_division, ":agent_division", ":ctrl_agent"),
    
23.       (team_get_movement_order, ":movement_order", ":agent_team", ":agent_division"),
    
24.       
    
25.       #剩余弹药处理，一但弹药为零就不会进入这里
    
26.       (assign, ":run_go", 1),
    
27.       (scene_prop_get_slot, ":ammo_count", ":sprop_instance", scene_prop_ammo_count),
    
28.       (try_begin),
    
29.             (lt, ":ammo_count",1),
    
30.             (agent_clear_scripted_mode,":ctrl_agent"),
    
31.             (assign, ":run_go", 0),
    
32.             #隐身处理
    
33.             (scene_prop_get_visibility, ":flag_visibility", ":sprop_instance"),
    
34.             (try_begin),
    
35.                 (ge, ":flag_visibility",1),
    
36.                 (scene_prop_set_visibility, ":sprop_instance", 0),
    
37.             (try_end),
    
38.       (try_end),
    
39.       (eq, ":run_go", 1),
    
40.       
    
41.       #ctrl_agent 与火炮距离计算
    
42.       (assign,":distance_instance",300),
    
43.       (try_begin),
    
44.           (agent_get_position,pos52,":ctrl_agent"),
    
45.           (prop_instance_get_position,pos53,":sprop_instance"),   
    
46.           (get_distance_between_positions,":distance_instance", pos52,pos53),
    
47.       (try_end),
    
48.       
    
49.       #敌人接近计算
    
50.       (assign,":cached_enemie",0),#没有敌人接近
    
51.       (agent_ai_get_num_cached_enemies, ":num", ":ctrl_agent"),
    
52.       (try_begin),
    
53.           (ge,":num",1),
    
54.           (agent_ai_get_cached_enemy, ":enemies", ":ctrl_agent", 0),
    
55.           (agent_is_alive,":enemies"),
    
56.           (agent_get_position,pos52,":enemies"),
    
57.           (agent_get_position,pos53,":ctrl_agent"),
    
58.           (get_distance_between_positions,":distance_enemy", pos52,pos53),
    
59.           (le,":distance_enemy",300),
    
60.           (assign,":cached_enemie",1),#有敌人接近
    
61.       (try_end),
    
62.       
    
63.       
    
64.      #ctrl_agent 战斗状态是否会丢下火炮
    
65.       (assign,":drop_the_gun",0),
    
66.       (try_begin),
    
67.          (agent_slot_eq, ":ctrl_agent", slot_agent_is_running_away, 1),#逃跑 #且命令不是撤退，掉下火,炮
    
68.          (neg|eq,":movement_order",mordr_retreat),
    
69.          (assign,":drop_the_gun",1),
    
70.       (else_try),
    
71.          (eq,":cached_enemie",1),#有敌人接近
    
72.          (assign,":drop_the_gun",1),
    
73.       (try_end),
    
74.       
    
75.       #射击条件计算 ctrl_agent的大腿l位置可以看到target的头部
    
76.       (assign, ":shoot", 0),
    
77.       (try_begin),
    
78.             (agent_ai_get_look_target, ":target", ":ctrl_agent"),
    
79.             (gt, ":target", -1),
    
80.             (agent_is_alive,":target"),
    
81.             (agent_get_bone_position, pos52, ":target", 9,1),#头部
    
82.             (agent_get_bone_position, pos53, ":ctrl_agent", 1,1),#大腿l位置
    
83.             (position_has_line_of_sight_to_position, pos53, pos52),
    
84.             (get_distance_between_positions,":distance_enemy",pos53,pos52),
    
85.             (is_between,":distance_enemy", 300,25000),
    
86.             (val_add, ":shoot", 1),
    
87.       (try_end),
    
88.      
    
89.       (try_begin),#火炮允许射击 需要敌人不接近且满足射击条件
    
90.            (eq,":drop_the_gun",0),
    
91.            (eq,":cached_enemie",0),
    
92.            (ge, ":shoot", 1),
    
93.            
    
94.            (agent_set_speed_modifier,":ctrl_agent",50),
    
95.            #强制设定ctrl_agent 看向 target 的头部
    
96.            (agent_get_bone_position, pos52, ":target", 9,1),
    
97.            (agent_set_look_target_position,":ctrl_agent",pos52),
    
98.            (prop_instance_get_position,pos35,":sprop_instance"),   
    
99.            (agent_get_look_position, pos36, ":ctrl_agent"),
    
100.            (position_move_y,pos35,200,0),
     
101.            (position_move_y,pos36,200,0),
     
102.            (position_get_rotation_around_z, ":agent_look_around_z", pos36),
     
103.            (position_get_rotation_around_z, ":sprop_instance_around_z", pos35),
     
104.            (store_sub,":sub_value",":agent_look_around_z",":sprop_instance_around_z"),
     
105.            (assign,":sub_value_a",":sub_value"),
     
106.            (val_abs,":sub_value_a"),
     
107. 
     
108.            #火炮跟随ctrl_agent视角计算
     
109.            (assign,":rotate_z",0),
     
110.            (try_begin),
     
111.                 (ge,":sub_value_a",3),
     
112.                 (store_div,":rotate_z",":sub_value_a",3),
     
113.                 (val_max,":rotate_z",3),
     
114.                 (try_begin),
     
115.                     (gt,":sub_value",0),
     
116.                     (val_mul,":rotate_z",1),
     
117.                 (else_try),
     
118.                     (lt,":sub_value",0),
     
119.                     (val_mul,":rotate_z",-1),
     
120.                 (try_end),
     
121.            (try_end),
     
122.            
     
123.            (try_begin),#火炮移动瞄准目标
     
124.                 (neg|eq,":rotate_z",0),
     
125.                 (prop_instance_get_position,pos45,":sprop_instance"),   
     
126.                 (position_rotate_z,pos45,":rotate_z"),
     
127.                 (position_set_z_to_ground_level,pos45),
     
128.                 (prop_instance_animate_to_position,":sprop_instance",pos45,10),
     
129.                 (position_move_x, pos45, -150),
     
130.                 (position_copy_rotation,pos45,pos36),
     
131.                 #(agent_set_position,":ctrl_agent",pos45),快速移动 ctrl_agent
     
132.                 (agent_set_scripted_destination,":ctrl_agent",pos45),
     
133.            (else_try),#火炮开炮
     
134.                 (prop_instance_get_position,pos45,":sprop_instance"),
     
135.                 (position_set_z_to_ground_level,pos45),               
     
136.                 (prop_instance_animate_to_position,":sprop_instance",pos45,1),
     
137.                 (position_move_x, pos45, -150),
     
138.                 (agent_set_scripted_destination,":ctrl_agent",pos45),
     
139.                
     
140.                 (scene_prop_get_slot, ":effect_done", ":sprop_instance", scene_prop_effect_done),
     
141.                 #发射时间间隔设置
     
142.                 (assign,":cunt_done",300),
     
143.                 (try_begin),
     
144.                     (lt,":effect_done",":cunt_done"),
     
145.                     (val_add,":effect_done",1),
     
146.                     (scene_prop_set_slot,":sprop_instance",scene_prop_effect_done,":effect_done"),
     
147.                 (try_end),
     
148.                 (ge,":effect_done",":cunt_done"),
     
149.                 (scene_prop_set_slot,":sprop_instance",scene_prop_effect_done,0),
     
150.                 (prop_instance_get_position, pos45, ":sprop_instance"),
     
151.                 (position_move_y,pos45,200,0),
     
152.                 (position_move_z,pos45,100,0),
     
153.                 (position_copy_rotation,pos45,pos36),
     
154.                 (store_random_in_range, ":var_15", -2, 2),
     
155.                 (store_random_in_range, ":var_16", -2, 2),
     
156.                 (call_script,"script_cf_fire_round_ai_c",":distance_enemy"),
     
157.                 (assign, ":rotate_x_floating", reg30),
     
158.                 (val_div, ":rotate_x_floating", 10),
     
159.                 (set_fixed_point_multiplier, 10),
     
160.                 (convert_to_fixed_point, ":rotate_x_floating"),
     
161.                 (set_fixed_point_multiplier, 10),
     
162.                 (position_rotate_x_floating, pos45, ":var_16"),
     
163.                 (position_rotate_z_floating, pos45, ":var_15"),
     
164.                 (position_rotate_x_floating, pos45, ":rotate_x_floating"),
     
165.                 (set_fixed_point_multiplier, 1),
     
166.                 (set_fixed_point_multiplier, 1),
     
167.                 (store_random_in_range, ":var_16", 56, 66),   
     
168.                 (convert_to_fixed_point, ":var_16"),  
     
169.                 (add_missile, ":ctrl_agent", pos45, ":var_16", "itm_gun_barrel", 0, "itm_artillery_ammunition", 0),
     
170.                 (particle_system_burst, "psys_pistol_smoke_big", pos45,25),
     
171.                 (play_sound_at_position,"snd_gun_barrel_fire",pos45,0),
     
172.                 (val_sub,":ammo_count",1),
     
173.                 (scene_prop_set_slot, ":sprop_instance", scene_prop_ammo_count,":ammo_count"),
     
174.             (try_end),
     
175.        (else_try),#非战斗中ctrl_agent 远离了火炮归位,回来拉火炮
     
176.             (eq,":drop_the_gun",0),
     
177.             (ge,":distance_instance",300),
     
178.             (prop_instance_get_position,pos45,":sprop_instance"),
     
179.             (position_set_z_to_ground_level,pos45),               
     
180.             (prop_instance_animate_to_position,":sprop_instance",pos45,1),
     
181.             (position_move_x, pos45, -150),
     
182.             (agent_set_scripted_destination,":ctrl_agent",pos45),  
     
183.             (agent_set_speed_modifier,":ctrl_agent",100),
     
184.        (else_try),#非战斗中ctrl_agent 自由移动火炮跟随
     
185.             (eq,":drop_the_gun",0),
     
186.             (agent_clear_scripted_mode,":ctrl_agent"),
     
187.             (init_position,pos50),
     
188.             (agent_get_position,pos50,":ctrl_agent"),
     
189.             (position_move_x,pos50,150),
     
190.             (position_move_y,pos50,-150),
     
191.             (position_set_z_to_ground_level,pos50),
     
192.             (prop_instance_animate_to_position,":sprop_instance",pos50,25),
     
193.             (agent_set_speed_modifier,":ctrl_agent",50),
     
194.        (else_try),#ctrl_agent 战斗或者逃跑,火炮丢在原地方
     
195.             (eq,":drop_the_gun",1),
     
196.             (prop_instance_get_position,pos45,":sprop_instance"),
     
197.             (position_set_z_to_ground_level,pos45),            
     
198.             (prop_instance_animate_to_position,":sprop_instance",pos45,1),
     
199.             (agent_set_speed_modifier,":ctrl_agent",100),
     
200.        (try_end),
     
201. 
     
202.       
     
203.       
     
204.     ]),
     
205. 
     
206. ]),   

复制代码

3.脚步部分，九章大佬的简易瞄准

1. #九章大佬的投石机代码-开始#
   
2. 
   
3. ("cf_fire_round_ai_c",#简易测距c（60弹速，最大射程24000）返回值需要浮点化
   
4. [
   
5.     (store_script_param, ":var_14", 1),
   
6.         (assign,":time",0),
   
7.             (try_begin),
   
8.                 (le, ":var_14", 3000),
   
9.                 (assign,":var_14",0),
   
10.                 (assign,":time",0),
    
11.             (else_try),
    
12.                 (is_between, ":var_14", 3000,4400),
    
13.                 (val_div, ":var_14", 150),#1-2
    
14.                 (assign,":time",1),
    
15.             (else_try),
    
16.                 (is_between, ":var_14", 4400,5200),
    
17.                 (val_div, ":var_14", 130),#2-3
    
18.                 (assign,":time",1),
    
19.             (else_try),
    
20.                 (is_between, ":var_14", 5200,7000),
    
21.                 (val_div, ":var_14", 120),#3-4
    
22.                 (assign,":time",1),
    
23.             (else_try),
    
24.                 (is_between, ":var_14", 7000,11400),
    
25.                 (val_div, ":var_14", 104),#4-5
    
26.                 #(val_add, ":var_14", -1),
    
27.                 (assign,":time",2),
    
28.             (else_try),
    
29.                (is_between, ":var_14", 11400,14500),
    
30.                (val_div, ":var_14", 99),#5-6
    
31.                #(val_add, ":var_14", -1),
    
32.                (assign,":time",3),
    
33.             (else_try),
    
34.                (is_between, ":var_14", 14500,17100),
    
35.                (val_div, ":var_14", 93),#6-7
    
36.                #(val_add, ":var_14", -1),
    
37.                (assign,":time",3),
    
38.             (else_try),
    
39.                (is_between, ":var_14", 17100,18900),
    
40.                (val_div, ":var_14", 88),#7-8
    
41.                #(val_add, ":var_14", -1),
    
42.                (assign,":time",4),
    
43.             (else_try),
    
44.                (is_between, ":var_14", 18900,20400),
    
45.                (val_div, ":var_14", 84),#9-12
    
46.                #(val_add, ":var_14", -1),
    
47.                (assign,":time",5),
    
48.             (else_try),
    
49.                (is_between, ":var_14", 20400,21200),
    
50.                (val_div, ":var_14", 85),#12-15
    
51.                #(val_add, ":var_14", -1),
    
52.                (assign,":time",5),
    
53.             (else_try),
    
54.                (is_between, ":var_14", 21200,21600),
    
55.                (val_div, ":var_14", 78),#15-17
    
56.                #(val_add, ":var_14", -2),
    
57.                (assign,":time",5),
    
58.             (else_try),
    
59.                (is_between, ":var_14", 21600,22600),
    
60.                (val_div, ":var_14", 77),#17-20
    
61.                #(val_add, ":var_14", -2),
    
62.                (assign,":time",8),
    
63.             (else_try),
    
64.                (is_between, ":var_14", 22600,23100),
    
65.                (val_div, ":var_14", 73),#20-22
    
66.                #(val_add, ":var_14", -2),
    
67.                (assign,":time",6),
    
68.             (else_try),
    
69.                (is_between, ":var_14", 23100,23500),
    
70.                (val_div, ":var_14", 69),#20-22
    
71.                #(val_add, ":var_14", -2),
    
72.                (assign,":time",6),
    
73.             (else_try),
    
74.                (is_between, ":var_14", 23500,24000),
    
75.                (val_div, ":var_14", 64),#20-22
    
76.                #(val_add, ":var_14", -2),
    
77.                (assign,":time",7),
    
78.             (else_try),
    
79.                (is_between, ":var_14", 24000,99000),
    
80.                #(val_div, ":var_14", 64),#20-22
    
81.                #(val_add, ":var_14", -2),
    
82.                (assign,":var_14",55),
    
83.                (assign,":time",8),
    
84.             (try_end),
    
85. 
    
86.                         (assign,reg30,":var_14"),
    
87.             (assign,reg31,":time"),
    
88.     #(try_end),
    
89. 
    
90. ]),

复制代码

4.常量

1. #工作计数
   
2. scene_prop_effect_done = 33
   
3. #弹药计数
   
4. scene_prop_ammo_count = 34

复制代码

奥杜因阿卡托什

支持

蘇泊渝

支持支持支持