【战团】简单坦克大战实现

杰喵喵

学习场景道具使用，使用场景道具制作载具成功分享，简易坦克大战实现思路与配套代码。
一、感谢：
1.阿格兰，提供了最初的完整场景道具制作载具学习参考代码，十分完整强大，AE86永远的神！
2.九章,分享不少场景道具帖子，指导过我。
3.vegetto的理论帖子与换皮思想思路。
4.其他使用场景道具作为载具的MOD。

二、效果演示：


三、代码具备功能：
1.读取agent（步兵）速度，通过转换变成控制坦克底盘的控制，agent的look作为炮台控制；这样基本可以直接沿用战团agent自带AI和相关指挥指令。
2.简易的碰撞判断，判断到其他场景道具后，修改agent（步兵）的目的地，来实现控制避障功能。
3.troop装别马匹（坦克），进场后马匹（坦克）通过逃跑、隐形、去除，生成场景载具；实现马匹变场景道具软转换。
4.其他部分功能直接看MOD里面的完整代码吧。

四、坦克部分核心代码，剩下部分代码在后续的MS。

1. tank_ai = [
   
2. 
   
3.   #保护防止坦克驾驶员直接被打死
   
4.   (ti_on_agent_hit, 0, 0, [],
   
5.   [
   
6.    (store_trigger_param_1, ":agent_no"),
   
7.    (agent_is_human,":agent_no"),
   
8.    
   
9.    (try_begin),
   
10.     (agent_slot_ge,":agent_no",slot_agent_driving_vehicle,1),
    
11.     (set_trigger_result, 0),
    
12.    (else_try),
    
13.     (agent_slot_eq, ":agent_no", slot_agent_ready_driving, 1),
    
14.     (set_trigger_result, 0),
    
15.    (else_try),
    
16.     (get_player_agent_no, ":player"),
    
17.     (eq,":player",":agent_no"),
    
18.     #(set_trigger_result, 0),
    
19.    (try_end),
    
20.    
    
21.   ]),
    
22.   
    
23.   #坦克(马)-出场的处理隐身掉骑马的人(坦克驾驶人员),坦克(马)也隐身同时逃跑，同时设置产生坦克(场景道具)标志位
    
24.   (ti_on_agent_spawn, 0, 0, [],
    
25.   [
    
26.     (set_fixed_point_multiplier, 100),
    
27.    
    
28.     (store_trigger_param_1, ":agent_no"),
    
29.    
    
30.     (try_begin),
    
31.         (agent_is_alive,":agent_no"),
    
32.         (neg|agent_is_human,":agent_no"),
    
33.         (agent_get_item_id, ":item_id", ":agent_no"),
    
34.         (str_store_item_name,s30,":item_id"),
    
35.         #(display_message, "@ti_on_agent_spawn item_id {s30}"),
    
36.         (eq,":item_id","itm_tank"),
    
37.         (agent_set_visibility,":agent_no",0),
    
38.         (agent_set_no_dynamics,":agent_no",1),#set no dynamics
    
39.         (agent_get_rider,":rider",":agent_no"),
    
40.         (agent_is_alive,":rider"),
    
41.         (agent_is_human,":rider"),
    
42.         (agent_set_visibility,":rider",0),
    
43.         (str_store_agent_name,s30,":rider"),
    
44.         (agent_get_position,pos2,":rider"),
    
45.         (position_get_y,":pos_y",pos2),
    
46.         (position_get_x,":pos_x",pos2),
    
47.         (position_get_rotation_around_z,":around_z",pos2),
    
48.         (agent_set_slot, ":rider", slot_agent_positon_y, ":pos_y"),
    
49.         (agent_set_slot, ":rider", slot_agent_positon_x, ":pos_x"),
    
50.         (agent_set_slot, ":rider", slot_agent_rotation_around_z,":around_z"),
    
51.         (agent_set_slot, ":rider", slot_agent_ready_driving, 1),#同时设置产生坦克(场景道具)标志位
    
52.         (agent_set_horse_speed_factor,":rider",0),
    
53.         (agent_start_running_away,":agent_no"),
    
54.         #(display_message, "@ti_on_agent_spawn rider name {s30}"),
    
55.     (else_try),
    
56.         (agent_is_alive,":agent_no"),
    
57.         (agent_is_human,":agent_no"),
    
58.         (agent_get_troop_id,":troop_id",":agent_no"),
    
59.         (eq|this_or_next,":troop_id","trp_assault_infantry"),
    
60.         (eq,":troop_id","trp_tank_force"),
    
61.         (agent_get_position,pos2,":agent_no"),   
    
62.         (store_random_in_range,":move_y",1,25),
    
63.         (store_random_in_range,":move_x",-100,100),
    
64.         (val_mul,":move_y",50),
    
65.         (val_mul,":move_x",100),
    
66.         (position_move_y, pos2, ":move_y"),
    
67.         (position_move_x, pos2, ":move_x"),
    
68.         (position_set_z_to_ground_level,pos2),
    
69.         (agent_set_position,":agent_no",pos2),
    
70.         (assign,":item_slot_num",4),
    
71.         (try_for_range, ":item_slot", 0, ":item_slot_num"),
    
72.            (agent_get_item_slot, ":wielded_item_id",":agent_no",":item_slot"),
    
73.            (try_begin),
    
74.               (eq,":item_slot",3),
    
75.               (agent_equip_item,":agent_no","itm_grenade",":item_slot"),
    
76.            (else_try),
    
77.               (le, ":wielded_item_id",0),
    
78.               (agent_equip_item,":agent_no","itm_tak47_shell",":item_slot"),
    
79.            (try_end),
    
80.         (try_end),
    
81.         
    
82.         (neg|agent_is_ally,":agent_no"),
    
83.         (agent_equip_item,":agent_no","itm_arena_armor_blue",5),
    
84.     ]),
    
85.    
    
86.   #马转换为坦克场景道具代码，使用产生坦克标志位，产生坦克(场景道具)将驾驶员与其绑定
    
87.   (1, 0, 0,
    
88.   [],
    
89.   [
    
90.     (set_fixed_point_multiplier, 100),
    
91.     #转换为坦克场景道具
    
92.     (try_for_agents,":agent_no"),
    
93.         (agent_is_alive,":agent_no"),
    
94.         (agent_is_human,":agent_no"),
    
95.         (agent_get_horse,":horse",":agent_no"),
    
96.         (le,":horse",0),
    
97.         (agent_slot_eq, ":agent_no", slot_agent_ready_driving, 1),
    
98.         (agent_set_slot, ":agent_no", slot_agent_ready_driving, 0),
    
99.         (agent_get_slot,":pos_y", ":agent_no", slot_agent_positon_y),
    
100.         (agent_get_slot,":pos_x", ":agent_no", slot_agent_positon_x),
     
101.         (agent_get_slot, ":around_z", ":agent_no",slot_agent_rotation_around_z),
     
102.         (init_position,pos3),
     
103.         (position_set_y,pos3,":pos_y"),
     
104.         (position_set_x,pos3,":pos_x"),
     
105.         (position_set_z,pos3,0),
     
106.         (position_set_z_to_ground_level,pos3),
     
107.         (call_script,"script_set_pos_around_z",pos3,":around_z"),
     
108.         (try_begin),
     
109.             (get_player_agent_no, ":player"),
     
110.             (neq,":player",":agent_no"),
     
111.             (store_random_in_range,":move_y",25,50),
     
112.             (store_random_in_range,":move_x",-100,100),
     
113.             (val_mul,":move_y",50),
     
114.             (val_mul,":move_x",100),
     
115.             (position_move_y, pos3, ":move_y"),
     
116.             (position_move_x, pos3, ":move_x"),
     
117.             (position_set_z_to_ground_level,pos3),
     
118.         (try_end),
     
119.         (agent_set_position,":agent_no",pos3),
     
120.         (call_script,"script_spawn_tank_for_agent",":agent_no"),
     
121.         (agent_set_visibility,":agent_no",1),
     
122.     (try_end),
     
123.    
     
124.     #清除马
     
125.     (try_for_agents,":agent_no"),
     
126.         (agent_is_alive,":agent_no"),
     
127.         (neg|agent_is_human,":agent_no"),
     
128.         (agent_get_item_id, ":item_id", ":agent_no"),
     
129.         (eq,":item_id","itm_tank"),
     
130.         (agent_get_rider,":rider",":agent_no"),
     
131.         (le,":rider",0),
     
132.         (agent_set_visibility,":agent_no",0),
     
133.         (remove_agent,":agent_no"),
     
134.     (try_end),
     
135.    ]),
     
136. 
     
137.   #简易的障碍物判断,修正驾驶员agent目的地来实现
     
138.   (0.1, 0, 0,
     
139.    [
     
140.    (assign, ":scene_prop_no","spr_abrams_chassis"),
     
141.    (scene_prop_get_num_instances, ":num_instances_of_scene_prop", ":scene_prop_no"),
     
142.    (gt,":num_instances_of_scene_prop",0),
     
143.    ],
     
144.    [
     
145.     (set_fixed_point_multiplier, 100),  
     
146.     (try_for_agents, ":agent_no"),
     
147.       (gt,":agent_no",-1),
     
148.       (agent_is_non_player,":agent_no"),
     
149.       (agent_is_alive, ":agent_no"),
     
150.       (agent_is_human, ":agent_no"),
     
151.       (agent_get_slot, ":sprop_instance", ":agent_no", slot_agent_driving_vehicle),
     
152.       (gt,":sprop_instance",0),
     
153. 
     
154.       (init_position,pos21),
     
155.       (prop_instance_get_position, pos21, ":sprop_instance"),
     
156.       (init_position,pos22),
     
157.       (agent_get_speed,pos22,":agent_no"),
     
158.       (position_get_y,":speed_y",pos22),
     
159.       (position_get_x,":speed_x",pos22),
     
160. 
     
161.       (assign,":no_can_animation_forward",0),
     
162.       (assign,":no_can_animation_backward",0),
     
163.       (assign,":no_can_animation_left",0),
     
164.       (assign,":no_can_animation_right",0),
     
165.    
     
166.       #障碍判断开始
     
167.       (try_begin),
     
168.         (gt,":speed_y",0),
     
169.         (init_position,pos22),
     
170.         (copy_position,pos22,pos21),
     
171.         (position_move_y,pos22,750),
     
172.         (position_move_x,pos22,250),
     
173.         (position_move_z,pos22,120),
     
174.         (position_rotate_z,pos22,90),
     
175.         #(particle_system_burst,"psys_torch_fire_big",pos50,5),
     
176.         (call_script,"script_cf_cast_ray_pos_is_terrain",pos22,300),
     
177.         (assign,":no_can_animation_forward",reg63),
     
178.       (else_try),
     
179.         (lt,":speed_y",0),
     
180.         (init_position,pos22),
     
181.         (copy_position,pos22,pos21),
     
182.         (position_move_y,pos22,-750),
     
183.         (position_move_x,pos22,250),
     
184.         (position_move_z,pos22,120),
     
185.         (position_rotate_z,pos22,90),
     
186.         #(particle_system_burst,"psys_torch_fire_big",pos50,5),
     
187.         (call_script,"script_cf_cast_ray_pos_is_terrain",pos22,300),
     
188.         (assign,":no_can_animation_backward",reg63),
     
189.       (try_end),
     
190.    
     
191.    
     
192.       #障碍判断右部分
     
193.       (try_begin),
     
194.         (gt,":speed_x",0),
     
195.         (init_position,pos22),
     
196.         (copy_position,pos22,pos21),
     
197.         (position_move_y,pos22,-500),
     
198.         (position_move_x,pos22,250),
     
199.         (position_move_z,pos22,90),
     
200.         #(particle_system_burst,"psys_torch_fire_big",pos50,5),
     
201.         (call_script,"script_cf_cast_ray_pos_is_terrain",pos22,700),
     
202.         (assign,":no_can_animation_right",reg63),
     
203.       (else_try),
     
204.       #障碍判断左部分
     
205.         (lt,":speed_x",0),
     
206.         (init_position,pos22),
     
207.         (copy_position,pos22,pos21),
     
208.         (position_move_y,pos22,-500),
     
209.         (position_move_x,pos22,-250),
     
210.         (position_move_z,pos22,90),
     
211.         #(particle_system_burst,"psys_torch_fire_big",pos50,5),
     
212.         (call_script,"script_cf_cast_ray_pos_is_terrain",pos22,700),
     
213.         (assign,":no_can_animation_left",reg63),
     
214.       (try_end),
     
215. 
     
216.       (try_begin),
     
217.         (ge|this_or_next,":no_can_animation_forward",1),
     
218.         (ge|this_or_next,":no_can_animation_backward",1),
     
219.         (ge|this_or_next,":no_can_animation_left",1),
     
220.         (ge,":no_can_animation_right",1),
     
221.         
     
222.         (try_begin),#前后有障碍物
     
223.           (ge|this_or_next,":no_can_animation_forward",1),
     
224.           (ge,":no_can_animation_backward",1),
     
225. 
     
226.           (try_begin),
     
227.             (ge,":no_can_animation_forward",1),
     
228.             (position_move_y,pos21,-500),
     
229.           (else_try),
     
230.              (ge,":no_can_animation_backward",1),
     
231.             (position_move_y,pos21,500),
     
232.           (else_try),
     
233.           (try_end),
     
234. 
     
235.           #前后有碍物,且左右也有
     
236.           (try_begin),
     
237.             (ge,":no_can_animation_right",1),
     
238.             (position_move_x,pos21,-1000),
     
239.           (else_try),
     
240.             (ge,":no_can_animation_left",1),
     
241.             (position_move_x,pos21,1000),
     
242.           (else_try),
     
243.             (position_move_x,pos21,-1000),
     
244.           (try_end),
     
245.         (else_try),#前后无障碍物,只考虑左右
     
246.           (try_begin),
     
247.             (ge,":no_can_animation_right",1),
     
248.             (position_move_x,pos21,-1000),
     
249.           (else_try),
     
250.             (ge,":no_can_animation_left",1),
     
251.             (position_move_x,pos21,1000),
     
252.           (try_end),
     
253.         (try_end),
     
254. 
     
255.         (agent_set_scripted_destination_no_attack, ":agent_no", pos21,1),
     
256.       (else_try),
     
257.         (agent_clear_scripted_mode, ":agent_no"),
     
258.       (try_end),
     
259. 
     
260.     (try_end),
     
261. 
     
262.    ]
     
263.   ),
     
264. 
     
265.   #非玩家的agent地盘控制及开炮
     
266.   (0, 0, 0,
     
267.    [
     
268.    (assign, ":scene_prop_no","spr_abrams_chassis"),
     
269.    (scene_prop_get_num_instances, ":num_instances_of_scene_prop", ":scene_prop_no"),
     
270.    (gt,":num_instances_of_scene_prop",0),
     
271.    ],
     
272.    [
     
273.     (set_fixed_point_multiplier, 100),
     
274. 
     
275.     (try_for_agents, ":agent_no"),
     
276.       (gt,":agent_no",-1),
     
277.       (agent_is_non_player,":agent_no"),
     
278.       (agent_is_alive, ":agent_no"),
     
279.       (agent_is_human, ":agent_no"),
     
280.       (agent_get_slot, ":sprop_instance", ":agent_no", slot_agent_driving_vehicle),
     
281.       (gt,":sprop_instance",0),
     
282.       (init_position,pos20),
     
283.       (init_position,pos21),
     
284.       (init_position,pos23),
     
285.       (prop_instance_get_position, pos21, ":sprop_instance"),
     
286.       (agent_get_position,pos23,":agent_no"),
     
287.       #根据agent(步行)的移动速度和方向来控制车辆底盘这段代码,根据agent(步行)的方向与速度来处理,
     
288.       #比如agent(步行)左右移动地盘需要与agent(步行)看的方向形成90度夹角来模拟坦克地盘前进,炮塔依然瞄准
     
289.       (init_position,pos22),
     
290.       (agent_get_speed,pos22,":agent_no"),
     
291.       (init_position,pos24),
     
292.       (position_transform_position_to_local, pos24, pos23, pos21),
     
293.       (position_get_y,":speed_y",pos22),
     
294.       (position_get_x,":speed_x",pos22),
     
295.       (position_get_rotation_around_z,":local_around_z",pos24),
     
296. 
     
297.       (assign,":y_move",0),
     
298.       (try_begin),
     
299.         (gt,":speed_y",0),
     
300.         (store_mul,":y_move",12,1),
     
301.       (else_try),
     
302.         (lt,":speed_y",0),
     
303.         (store_mul,":y_move",12,-1),
     
304.       (try_end),
     
305. 
     
306.       (try_begin),  
     
307.         (is_between,":local_around_z",181,360),
     
308.         (val_sub,":local_around_z",360),
     
309.       (try_end),
     
310. 
     
311.       (try_begin),  
     
312.         (neq,":speed_x",0),
     
313.         (try_begin),
     
314.             (gt,":speed_x",0),
     
315.             (gt,":local_around_z",-90),
     
316.             (assign,":around_z_move",-1),
     
317.         (else_try),
     
318.             (lt,":speed_x",0),
     
319.             (lt,":local_around_z",90),
     
320.             (assign,":around_z_move",1),
     
321.         (try_end),
     
322.         
     
323.         (try_begin),
     
324.             (eq,":y_move",0),
     
325.             (assign,":y_move",12),
     
326.         (try_end),
     
327.       (else_try),
     
328.         (try_begin),
     
329.           (lt,":local_around_z",0),
     
330.           (assign,":around_z_move",1),
     
331.         (else_try),
     
332.           (gt,":local_around_z",0),
     
333.           (assign,":around_z_move",-1),
     
334.         (try_end),
     
335.       (try_end),
     
336. 
     
337.       (scene_prop_set_slot,":sprop_instance", scene_prop_slot_animation_speed,":y_move"),
     
338.       (position_move_y,pos21,":y_move"),
     
339.       (position_rotate_z,pos21,":around_z_move"),
     
340.       (call_script,"script_set_vehicle_X_and_Y_axis_processing",pos21),
     
341.       (prop_instance_set_position,":sprop_instance",pos21),
     
342.       (init_position,pos22),
     
343.       (copy_position,pos22,pos21),
     
344.       (position_move_z,pos22,35),
     
345.       (position_copy_rotation,pos22,pos23),
     
346.       (agent_set_position,":agent_no",pos22),
     
347.       ##尘土烟雾
     
348.       (try_begin),
     
349.           (neq,":y_move",0),
     
350.           (init_position,pos24),
     
351.           (copy_position,pos24,pos21),
     
352.           (try_begin),
     
353.               (gt,":y_move",0),
     
354.               (position_move_y,pos24,-325),
     
355.           (else_try),
     
356.               (position_move_y,pos24,325),
     
357.           (try_end),
     
358. 
     
359.           (position_move_x,pos24,200),
     
360.           (particle_system_burst,"psys_game_hoof_dust_big",pos24,1),
     
361.           (particle_system_burst,"psys_game_hoof_dust_mud_big",pos24,1),
     
362.           (position_move_x,pos24,-400),
     
363.           (particle_system_burst,"psys_game_hoof_dust_big",pos24,1),
     
364.           (particle_system_burst,"psys_game_hoof_dust_mud_big",pos24,1),
     
365.       (try_end),
     
366.       ####################################
     
367.       (scene_prop_get_slot, ":sprop_instance_turret", ":sprop_instance", scene_prop_slot_turret),
     
368.       (gt, ":sprop_instance_turret",0),
     
369. 
     
370.       (init_position,pos22),
     
371.       (agent_get_look_position,pos22,":agent_no"),
     
372.       (position_get_rotation_around_z,":around_z",pos22),
     
373.       (position_get_rotation_around_x,":around_x",pos22),
     
374. 
     
375.       (assign,":move_x",0),
     
376.       (assign,":move_y",0),
     
377.       (assign,":move_z",135),
     
378.       (position_move_x, pos21, ":move_x"),
     
379.       (position_move_y, pos21, ":move_y"),
     
380.       (position_move_z, pos21, ":move_z"),
     
381.       (call_script,"script_set_pos_around_z",pos21,":around_z"),
     
382.       (prop_instance_get_position,pos22,":sprop_instance_turret"),
     
383.       #设定pos的新值为目标pos的值,但是around_z是缓慢靠近
     
384.       (call_script,"script_pos_around_z_to_other_pos_around_z",pos22,pos21),
     
385.       (prop_instance_set_position,":sprop_instance_turret",pos22),
     
386. 
     
387.       (scene_prop_get_slot, ":sprop_instance_gun", ":sprop_instance", scene_prop_slot_gun),
     
388.       (gt, ":sprop_instance_gun",0),
     
389.       
     
390.       #新的炮管运动处理 炮管直接在炮塔上进行处理
     
391.       (assign,":move_x",2.5),
     
392.       (assign,":move_y",190),
     
393.       (assign,":move_z",0),
     
394.       (position_move_x, pos22, ":move_x"),
     
395.       (position_move_y, pos22, ":move_y"),
     
396.       (position_move_z, pos22, ":move_z"),
     
397.       (try_begin),  
     
398.         (is_between,":around_x",180,360),
     
399.         (val_sub,":around_x",360),
     
400.       (try_end),
     
401.       (val_min,":around_x",30),
     
402.       (val_max,":around_x",-5),
     
403.       (call_script,"script_set_pos_around_x",pos22,":around_x"),
     
404.       (prop_instance_get_position, pos23, ":sprop_instance_gun"),
     
405.       #设定pos的新值为目标pos的值,但是around_x是缓慢靠近
     
406.       (call_script,"script_pos_around_x_to_other_pos_around_x",pos23,pos22),
     
407.       (prop_instance_set_position,":sprop_instance_gun",pos23),
     
408.       
     
409.       (assign,":open_fire",0),
     
410.       (agent_ai_get_look_target,":ai_look_target",":agent_no"),
     
411.       (try_begin),
     
412.         (gt,":ai_look_target",-1),
     
413.         (init_position,pos24),
     
414.         (agent_get_bone_position, pos24, ":ai_look_target", hb_head,1),
     
415.         #对准敌人,先计算发炮点
     
416.         (copy_position,pos34,pos23),
     
417.         (assign,":move_y",410),
     
418.         (position_move_y, pos23, ":move_y"),
     
419.         #判断是否开炮
     
420.         (assign,":line_of_sight",0),
     
421.         (try_begin),
     
422.           (agent_slot_ge,":ai_look_target",slot_agent_driving_vehicle,1),
     
423.           (cast_ray,":destination", pos52,pos23,30000),
     
424.           (gt,":destination",-1),
     
425.           (agent_get_slot, ":target_sprop_instance", ":ai_look_target", slot_agent_driving_vehicle),
     
426.           (prop_instance_get_scene_prop_kind,":target_scene_prop_kind",":target_sprop_instance"),
     
427.           (prop_instance_get_scene_prop_kind,":destination_scene_prop_kind",":destination"),
     
428.           (eq,":destination_scene_prop_kind",":target_scene_prop_kind"),
     
429.           (scene_prop_get_team,":team",":destination"),
     
430.           (scene_prop_get_team,":team_1",":target_sprop_instance"),
     
431.           (eq,":team",":team_1"),
     
432.           (assign,":line_of_sight",1),
     
433.         (else_try),
     
434.           (position_has_line_of_sight_to_position,pos23,pos24),
     
435.           (assign,":line_of_sight",1),
     
436.         (try_end),
     
437.         
     
438.         (eq,":line_of_sight",1),
     
439.         (get_distance_between_positions_in_meters,":meters",pos23,pos24),
     
440.         (gt,":meters",2),
     
441.         (assign,":open_fire",1),
     
442.       (try_end),
     
443. 
     
444.       #开炮设置开始
     
445.       (scene_prop_get_slot, ":opnen_fire_cnt_time", ":sprop_instance", scene_prop_slot_opnen_fire_cnt_time),
     
446.       (scene_prop_get_slot, ":opnen_fire_cnt_time_sec", ":sprop_instance", scene_prop_slot_opnen_fire_cnt_time_sec),
     
447.       (try_begin),
     
448.           (gt,":open_fire",0),
     
449.           (le,":opnen_fire_cnt_time",0),
     
450.           (assign,":opnen_fire_cnt_time",100),
     
451.           (particle_system_burst, "psys_pistol_smoke_big_a", pos23,25),
     
452.           (particle_system_burst,"psys_torch_fire_big_a",pos23,10),
     
453.           (play_sound_at_position,"snd_tank_fire_3",pos23,0),
     
454.           (add_missile, ":agent_no", pos23, 40000, "itm_gun_tank", 0, "itm_tank_shell", 0),
     
455.       (else_try),
     
456.           (gt,":opnen_fire_cnt_time",0),
     
457.           (val_sub,":opnen_fire_cnt_time",1),
     
458.       (try_end),
     
459.       
     
460.       #副武器同轴机枪
     
461.       (try_begin),
     
462.         (gt,":open_fire",0),
     
463.         (le,":opnen_fire_cnt_time_sec",0),
     
464.         (assign,":opnen_fire_cnt_time_sec",5),
     
465.         (position_move_z, pos34, 25),
     
466.         (position_move_y, pos34, 70),
     
467.         (position_move_x, pos34, 25),
     
468.         (play_sound_at_position,"snd_ak47_shoot",pos34),
     
469.         (particle_system_burst, "psys_buqianghuoyan", pos34, 10),
     
470.         (position_move_y, pos34, 180),
     
471.         (add_missile, ":agent_no", pos34, 20000, "itm_gun_ak47", 0, "itm_tak47_shell", 0),
     
472.      (else_try),
     
473.         (gt,":opnen_fire_cnt_time_sec",0),
     
474.         (val_sub,":opnen_fire_cnt_time_sec",1),
     
475.      (try_end),
     
476.      (scene_prop_set_slot, ":sprop_instance", scene_prop_slot_opnen_fire_cnt_time,":opnen_fire_cnt_time"),
     
477.      (scene_prop_set_slot, ":sprop_instance", scene_prop_slot_opnen_fire_cnt_time_sec,":opnen_fire_cnt_time_sec"),
     
478.       #开炮设置结束
     
479.     (try_end),
     
480.    ]
     
481.   ),
     
482.   
     
483.   #坦克生命值检查与冒烟
     
484.   (1, 0, 0,
     
485.    [
     
486.    (assign, ":scene_prop_no","spr_abrams_chassis"),
     
487.    (scene_prop_get_num_instances, ":num_instances_of_scene_prop", ":scene_prop_no"),
     
488.    (gt,":num_instances_of_scene_prop",0),
     
489.    ],
     
490.    [
     
491.     (set_fixed_point_multiplier, 100),
     
492. 
     
493.     (try_for_agents, ":agent_no"),
     
494.       (call_script,"script_tank_hp_check",":agent_no"),
     
495.     (try_end),
     
496.    ]),
     
497.   
     
498. 
     
499.   #坦克碰撞伤害处理
     
500.   (0.25, 0, 0,
     
501.   [
     
502.    (assign, ":scene_prop_no","spr_abrams_chassis"),
     
503.    (scene_prop_get_num_instances, ":num_instances_of_scene_prop", ":scene_prop_no"),
     
504.    (gt,":num_instances_of_scene_prop",0),
     
505.   ],
     
506.   [
     
507.   
     
508.     (try_for_agents, ":agent_no"),
     
509.       (gt,":agent_no",-1),
     
510.       (agent_is_alive, ":agent_no"),
     
511.       (agent_is_human, ":agent_no"),
     
512.       (agent_get_slot, ":sprop_instance", ":agent_no", slot_agent_driving_vehicle),
     
513.       (gt,":sprop_instance",0),
     
514. 
     
515.       (init_position,pos21),
     
516.       (prop_instance_get_position, pos21, ":sprop_instance"),
     
517.       (scene_prop_get_slot, ":animation_speed", ":sprop_instance", scene_prop_slot_animation_speed),
     
518.       (neq,":animation_speed",0),
     
519. 
     
520. 
     
521.       #150*150+350*350 = 14500000 根号14500000 = 380 380+50 = 430
     
522.       (try_for_agents,":other_agents_no",pos21,430),
     
523.             (gt,":other_agents_no",-1),
     
524.             (neq,":agent_no",":other_agents_no"),
     
525.             (agent_is_alive,":other_agents_no"),
     
526.             (agent_is_human,":other_agents_no"),
     
527.             (agent_get_slot, ":other_sprop_instance", ":other_agents_no", slot_agent_driving_vehicle),
     
528.             (le,":other_sprop_instance",0),
     
529.             (init_position,pos22),
     
530.             (agent_get_position,pos22,":other_agents_no"),
     
531.             (init_position,pos23),
     
532.             (position_transform_position_to_local,pos23,pos22,pos21),
     
533.             (position_get_y,":relative_y",pos23),
     
534.             (position_get_x,":relative_x",pos23),
     
535.             (is_between,":relative_y",-430,430),
     
536.             (is_between,":relative_x",-150,150),
     
537.             
     
538.             (assign,":relative_x_temp",":relative_x"),
     
539.             (val_abs,":relative_x_temp"),
     
540.             (store_sub,":relative_x_temp",300,":relative_x_temp"),
     
541.             (val_abs,":relative_x_temp"),
     
542.             (gt,":relative_x_temp",0),
     
543.             
     
544.             (try_begin),
     
545.                  (gt,":relative_x",0),
     
546.                  (val_mul,":relative_x_temp",1),
     
547.             (else_try),   
     
548.                  (val_mul,":relative_x_temp",-1),
     
549.             (try_end),
     
550.             
     
551.             (init_position,pos23),
     
552.             (copy_position,pos23,pos22),
     
553.             (position_move_y,pos23,":relative_y"),
     
554.             (position_move_x,pos23,":relative_x_temp"),
     
555.             (position_copy_rotation,pos23,pos22),
     
556.             (agent_set_position,":other_agents_no",pos23),
     
557.          
     
558.             (assign,reg61,":relative_y"),
     
559.             (assign,reg62,":relative_x_temp"),
     
560.             (assign,reg63,":relative_x"),
     
561.             #(display_message,"@relative_y{reg61},relative_x_temp{reg62},relative_x{reg63}"),
     
562.             (agent_get_team,":agent_team",":agent_no"),
     
563.             (agent_get_team,":other_agent_team",":other_agents_no"),
     
564.             (teams_are_enemies,":agent_team",":other_agent_team"),
     
565.             (agent_deliver_damage_to_agent, ":agent_no", ":other_agents_no",300,"itm_sword_of_war"),
     
566.       (try_end),
     
567.     (try_end),
     
568. 
     
569.     ]
     
570.    ),
     
571. ]

复制代码

五、完整MS和MOD体验
MOD里面自带最新MS代码

动员兵坦克大战 - 骑砍中文站下载中心 - 骑马与砍杀中文站论坛 (mountblade.com.cn)

舞阳城下

是不是战车功能也是这个原理？来自: Android客户端

杰喵喵

舞阳城下 发表于 2024-9-8 12:48
是不是战车功能也是这个原理？

可以这样理解

112233lyh

欧内的手，好汉。来自: Android客户端

a1550887802

哎呀不错啊，比我厉害多了，江山代有才人出啊

杰喵喵

a1550887802 发表于 2024-9-10 00:41
哎呀不错啊，比我厉害多了，江山代有才人出啊

前辈厉害，前辈指点好