使用场景道具辅助飞行学习笔记（二）-空战与攻城

杰喵喵

一、效果概述与展示
1.按Y按键腾空进入飞行状态，飞行状态下贴近地面自动退出飞行；
2.飞行状态下，人的飞行操作与原来一样,视角对着天空前进升高飞行高度，对着地面前进降低飞行高度。骑马飞行情况下，非骑射状态下视角对着天空前进升高飞行高度，对着地面降低飞行高度;骑射状态下不改变飞行高度，其余操作与地面控制一样。
3.目前还不会编写AI，使用游戏自带AI加状态机与数据校正，具体细节看代码吧，骑射使用了君悦的AI，完整代码请看附件。

效果展示：
https://www.bilibili.com/video/BV1C14y1C7QU/

特别鸣谢：nimoadna（《大冒险家》）的指导与解答。

二、关键概念
1.Position rotation
  # Position rotation determines just that - rotation around corresponding
  # world axis. So rotation around Z axis means rotation around vertical axis,
  # in other words - turning right and left. Rotation around X and Y axis will
  # tilt the position forward/backwards and right/left respectively.


简单来说，agent的Position默认Y轴是前进后，X轴左右移动，Z轴上下移动，Position rotation就是沿着这些轴旋转。

2.场景道具销毁
似乎没有绝对消除的办法，我这里使用场景隐身与关闭物理来解决。 (prop_instance_enable_physics,":borad",0),#关闭碰撞体 (scene_prop_set_visibility,":borad",0),  #关闭显示
3.使用与下次飞行位置的Z轴-1垂直点，通过  position_set_z_to_ground_level 来用于是否接触地面判断。因为玩家始终在托板上面，使用玩家位置点来position_get_distance_to_ground_level 始终大于等于0。具体实现看下面程序。

3.position_get_distance_to_terrain,pos对地形的距离负数表示在地形之下,正数在地形之上。

4.城墙或者其他场景上降落使用
(cast_ray, <destination>, <hit_position_register>, <ray_position_register>, [<ray_length_fixed_point>]),
强制转换一条长度为[<ray_length_fixed_point>]的射线，从<ray_position_register>开始，并将最近的命中位置存储到<hit_position_register>中(如果没有命中则失败)。如果body hit是一个prop实例，它的id将被存储到<destination>中。  
简单来说就是将agent的位置点往下移动，绕X轴旋转 90度，然后发射判断线，如果有碰撞到非踏板的其他场景单位，则取消飞行。

5.退出飞行直接将踏板埋在底下。



三、代码
slot_agent_fly 飞行状态标志位
slot_agent_fly_borad 存储飞行道具的ID
my_prop_set_visibility 为常数0


玩家部分：

使用场景道具辅助飞行学习笔记
https://bbs.mountblade.com.cn/thread-2100606-1-1.html
(出处: 骑马与砍杀中文站论坛)

其他agent部分：
module_mission_templates

1. #自己写的垃圾飞行AI,专门只是用近战步兵并且遭遇战专用 lead_charge
   
2. common_agent_flying_lead_charge =  (0, 0, 0, [],
   
3. [
   
4.       #设置pos单位量尺为cm  
   
5.     (set_fixed_point_multiplier, 100),
   
6.    
   
7.     (try_for_agents, ":agent_no"),
   
8.         (agent_is_non_player,":agent_no"),
   
9.         (agent_is_human, ":agent_no"),  ##是人
   
10.         (agent_is_alive, ":agent_no"),  ##存活的
    
11.         (neg|agent_is_wounded,":agent_no"),##非击晕的
    
12.         (agent_get_troop_id,":troop_id",":agent_no"),
    
13.         (agent_get_horse,":horse", ":agent_no"),
    
14.         (agent_get_team,":agent_team",":agent_no"),
    
15.         (agent_get_division, ":agent_division", ":agent_no"),
    
16.         (team_get_movement_order, ":movement_order", ":agent_team", ":agent_division"),
    
17.         
    
18.         (assign,":agent_use_range",0),
    
19.         (try_begin),
    
20.             (call_script, "script_cf_agent_use_range_weapon",":agent_no"),
    
21.             (assign,":agent_use_range",1),
    
22.         (try_end),
    
23.         
    
24.         (assign,":agent_can_fly",0),
    
25.         (try_begin),
    
26.            (gt,":horse",-1),
    
27.            (agent_get_item_id,":item_id",":horse"),
    
28.            (eq,":item_id","itm_courser_fly"),
    
29.            (assign,":agent_can_fly",1),
    
30.         (else_try),
    
31.            (this_or_next|eq,":troop_id","trp_nord_champion_fly"),#需要设定的单位
    
32.            (eq,":troop_id","trp_swadian_sharpshooter_fly"),
    
33.            (assign,":agent_can_fly",1),
    
34.         (try_end),
    
35. 
    
36.         (eq,":agent_can_fly",1),
    
37.         (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
    
38.         (agent_ai_get_move_target,":target_agent",":agent_no"),
    
39.       
    
40.         (assign,":distance_target",5000),
    
41.         (try_begin),
    
42.             (gt,":target_agent",-1),
    
43.             (init_position,pos20),
    
44.             (agent_get_position, pos20, ":agent_no"),
    
45.             (init_position,pos21),
    
46.             (agent_get_position, pos21, ":target_agent"),
    
47.             (position_get_distance_to_terrain,":terrain_agent_no",pos20),
    
48.             (position_get_distance_to_terrain,":terrain_target_agent",pos21),
    
49.             (position_set_z,pos20,0),
    
50.             (position_set_z,pos21,0),
    
51.             (get_distance_between_positions,":distance_target",pos20,pos21),
    
52.             
    
53.         (try_end),
    
54. 
    
55.         (assign,":distance_target_judgment",200),
    
56.         (assign,":terrain_judgment",100),
    
57.         (try_begin),
    
58.             (gt,":horse",-1),
    
59.             (init_position,pos20),
    
60.             (agent_get_speed,pos20,":horse"),
    
61.             (assign,":var_0",":horse"),
    
62.             (assign,":distance_target_judgment",1500),
    
63.             (assign,":terrain_judgment",50),
    
64.         (else_try),
    
65.             (init_position,pos20),
    
66.             (agent_get_speed,pos20,":agent_no"),
    
67.             (assign,":var_0",":agent_no"),
    
68.             (assign,":distance_target_judgment",200),
    
69.             (assign,":terrain_judgment",100),
    
70.         (try_end),
    
71. 
    
72.         (try_begin),#开始产生床
    
73.             (agent_slot_eq,":agent_no",slot_agent_fly,0),
    
74.             (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
    
75.             (le,":borad",0),
    
76.             (init_position,pos10),
    
77.             (agent_get_position, pos10, ":agent_no"),
    
78.             
    
79.             (try_begin),
    
80.                 (eq,"$g_battle_in_storm_a_city",0),
    
81.                 (position_move_z,pos10,1000),
    
82.             (else_try),
    
83.                 (position_move_z,pos10,2000),      
    
84.             (try_end),            
    
85.             #产生床
    
86.             (set_spawn_position, pos10),
    
87.             (try_begin),
    
88.                 (gt,":horse",-1),
    
89.                 (spawn_scene_prop, "spr_bed_a_new"),
    
90.             (else_try),
    
91.                 (spawn_scene_prop, "spr_pillow_a_new"),
    
92.             (try_end),
    
93.             (assign,":borad",reg0),
    
94.             (agent_set_slot,":agent_no",slot_agent_fly_borad,":borad"),
    
95.             (prop_instance_enable_physics,":borad",1),#碰撞体
    
96.             (scene_prop_set_visibility,":borad",my_prop_set_visibility),  #显示
    
97.             #给马设定飞行托板仅仅是为了马死亡的时候将托板埋于地下,控制飞行的时候不需要
    
98.             (try_begin),
    
99.                 (gt,":horse",-1),
    
100.                 (agent_set_slot,":horse",slot_agent_fly_borad,":borad"),
     
101.             (try_end),
     
102.             
     
103.             (agent_set_slot,":agent_no",slot_agent_fly,1),
     
104.             (agent_set_position, ":var_0", pos10),
     
105.         (else_try),#正常飞行
     
106.             (agent_slot_eq,":agent_no",slot_agent_fly,1),
     
107.             
     
108.             (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
     
109.             (gt,":borad",0),
     
110.             (prop_instance_enable_physics,":borad",1),#碰撞体
     
111.             
     
112.             (assign,":y_move",0),
     
113.             (assign,":x_move",0),
     
114.             (assign,":z_move",0),
     
115.             
     
116.             (position_get_y,":y_speed",pos20),
     
117.             (position_get_x,":x_speed",pos20),
     
118.             (prop_instance_get_position, pos20, ":borad"),
     
119.             (prop_instance_get_position, pos22, ":borad"),
     
120.             (init_position,pos21),
     
121.             (agent_get_look_position, pos21, ":agent_no"),
     
122. 
     
123.             (try_begin),
     
124.                 (gt,":horse",-1),
     
125.                 (position_get_rotation_around_x,":rotation_x",pos21),
     
126.                
     
127.                 (val_div,":y_speed",70),
     
128.                 (assign,":y_move",":y_speed"),
     
129.                 (val_div,":x_speed",70),
     
130.                 (assign,":x_move",":x_speed"),
     
131.                
     
132.                 (agent_get_animation,":animation",":horse",1),
     
133.                 (try_begin),
     
134.                     (eq|this_or_next,":animation","anim_horse_turn_right"),
     
135.                     (eq,":animation","anim_horse_turn_right_head"),
     
136.                     (position_rotate_z, pos20, -1),  
     
137.                 (else_try),
     
138.                     (eq|this_or_next,":animation","anim_horse_turn_left"),
     
139.                     (eq,":animation","anim_horse_turn_left_head"),
     
140.                     (position_rotate_z, pos20, 1),  
     
141.                 (try_end),
     
142.                
     
143.                 #Z轴限制保护防止，角度过大出问题
     
144.                 (assign,":forced_descent",0),
     
145.                 (try_begin),
     
146.                     (is_between,":rotation_x",1,91),#鼠标移动玩家视角向上 对着天空
     
147.                     (store_div,":value", ":rotation_x",9),
     
148.                     (val_add,":value",1),
     
149.                     (store_div,":z_move",":y_speed",20),
     
150.                     (val_mul,":z_move",":value"),   
     
151. 
     
152.                     (try_begin),
     
153.                         (ge,":terrain_target_agent",":terrain_agent_no"),
     
154.                         (val_add,":z_move",4),
     
155.                     (try_end),
     
156.                 (else_try),
     
157.                     (is_between,":rotation_x",270,360),#鼠标移动玩家视角向下 对着地面
     
158.                     (neq,":movement_order",mordr_hold),
     
159.                     (store_sub,":value", 360,":rotation_x"),
     
160.                     (store_div,":value", ":value",9),
     
161.                     (val_add,":value",4),
     
162.                     (val_mul,":value",-1),
     
163.                     (store_div,":z_move",":y_speed",20),
     
164.                     (val_mul,":z_move",":value"),
     
165.   
     
166.                     (gt,":target_agent",-1),
     
167.                     (call_script,"script_cf_agent_is_no_fly",":target_agent"),
     
168.                     (try_begin),
     
169.                         (ge,":terrain_target_agent",":terrain_agent_no"),
     
170.                         (val_mul,":z_move",-1),
     
171.                         (val_add,":z_move",4),
     
172.                     (else_try),
     
173.                         #检查是否为远程单位，远程单位不下降飞行高度
     
174.                         (eq,":agent_use_range",1),
     
175.                         (assign,":z_move",0),
     
176.                     (else_try),
     
177.                         (lt,":distance_target",":distance_target_judgment"),
     
178.                         (val_add,":z_move",-4),
     
179.                         (assign,":forced_descent",1),
     
180.                     (try_end),
     
181.                 (else_try),
     
182.                     (eq,":rotation_x",0),
     
183.                     (gt,":y_move",0),
     
184.                     (assign,":z_move",0),
     
185.                     (gt,":target_agent",-1),
     
186.                     (call_script,"script_cf_agent_is_no_fly",":target_agent"),
     
187.                   
     
188.                     (try_begin),
     
189.                         (ge,":terrain_target_agent",":terrain_agent_no"),
     
190.                         (val_add,":z_move",4),
     
191.                     (else_try),
     
192.                         (eq,":agent_use_range",0),#不使用远程武器
     
193.                         (lt,":distance_target",":distance_target_judgment"),
     
194.                         (val_add,":z_move",-4),
     
195.                         (assign,":forced_descent",1),
     
196.                     (try_end),
     
197.                   
     
198.                 (try_end),
     
199.                  
     
200.                  #防止使用武器的时候Z轴上下移动,保证骑射水平移动
     
201.                 (try_begin),
     
202.                     (eq,":forced_descent",0),
     
203.                     (agent_get_attack_action, ":attack_action", ":agent_no"),#Retrieves agent's current attack action. Possible values: free = 0, readying_attack = 1, releasing_attack = 2, completing_attack_after_hit = 3, attack_parried = 4, reloading = 5, after_release = 6, cancelling_attack = 7.
     
204.                     (agent_get_defend_action, ":defend_action", ":agent_no"),#Retrieves agent's current defend action. Possible values: free = 0, parrying = 1, blocking = 2.
     
205.                     (neq|this_or_next, ":attack_action",0),
     
206.                     (neq, ":defend_action",0),
     
207.                     (assign,":z_move",0),
     
208.                  (try_end),
     
209. 
     
210.             (else_try),
     
211.                 (position_copy_rotation,pos20,pos21),
     
212.                 (position_get_rotation_around_x,":rotation_x",pos21),
     
213.                 (val_div,":y_speed",20),
     
214.                 (assign,":y_move",":y_speed"),
     
215.                 (val_div,":x_speed",20),
     
216.                 (assign,":x_move",":x_speed"),
     
217.                
     
218.                 #Z轴限制保护防止，角度过大出问题
     
219.                 (try_begin),
     
220.                     (is_between,":rotation_x",1,91),#鼠标移动玩家视角向上 对着天空
     
221.                     (try_begin),
     
222.                         (gt,":rotation_x",45),
     
223.                         (store_sub,":angle_x",":rotation_x",45),
     
224.                         (val_mul,":angle_x",-1),
     
225.                         (position_rotate_x,pos20,":angle_x"),
     
226.                         (assign,":z_move",0),
     
227.                     (try_end),         
     
228.                 (else_try),
     
229.                     (is_between,":rotation_x",270,360),#鼠标移动玩家视角向下 对着地面
     
230.                     (try_begin),
     
231.                         (lt,":rotation_x",315),
     
232.                         (store_sub,":angle_x",315,":rotation_x"),
     
233.                         (position_rotate_x,pos20,":angle_x"),
     
234.                         (assign,":z_move",-1),
     
235.                         (gt,":target_agent",-1),
     
236.                         (call_script,"script_cf_agent_is_no_fly",":target_agent"),
     
237.                         (lt,":distance_target",":distance_target_judgment"),
     
238.                         (assign,":z_move",-3),
     
239.                     (try_end),
     
240.                 (else_try),
     
241.                     (gt,":y_move",0),
     
242.                     (eq,":rotation_x",0),
     
243.                     (assign,":z_move",0),
     
244.                     (gt,":target_agent",-1),
     
245.                     (call_script,"script_cf_agent_is_no_fly",":target_agent"),
     
246.                     (ge,":terrain_target_agent",":terrain_agent_no"),
     
247.                     (val_add,":z_move",4),
     
248.                 (try_end),
     
249.             (try_end),
     
250.             
     
251.             (position_move_y, pos20, ":y_move"),
     
252.             (position_move_x, pos20, ":x_move"),
     
253.             (position_move_z, pos20, ":z_move"),
     
254.             
     
255.             #获得地图最大限制
     
256.             (init_position,pos26),
     
257.             (init_position,pos27),
     
258.             (get_scene_boundaries, pos26, pos27),#左下角和右上角的点,方向朝上
     
259.             (position_get_x, ":lower_left_corner_x", pos26),
     
260.             (position_get_y, ":lower_left_corner_y", pos26),
     
261.             (position_get_x, ":upper_right_corner_x", pos27),
     
262.             (position_get_y, ":upper_right_corner_y", pos27),         
     
263.             (val_add,":lower_left_corner_x",300),
     
264.             (val_add,":lower_left_corner_y",300),
     
265.             (val_sub,":upper_right_corner_x",300),
     
266.             (val_sub,":upper_right_corner_y",300),
     
267.    
     
268.             (position_get_distance_to_terrain,":terrain",pos20),
     
269.             (position_get_x,":pos_x",pos20),
     
270.             (position_get_y,":pos_y",pos20),
     
271.             #确保玩家在地图限制范围内移动,,判断障碍点玩家之间拥有视野
     
272.             (try_begin),#正常飞行
     
273.                 (le|this_or_next,":pos_x",":lower_left_corner_x"),
     
274.                 (le,":pos_y",":lower_left_corner_y"),
     
275.                
     
276.                 (try_begin),
     
277.                     (agent_slot_eq|this_or_next, ":agent_no", slot_agent_is_running_away, 1),#逃跑
     
278.                     (eq,":movement_order",mordr_retreat),
     
279.                     (agent_fade_out,":agent_no"),
     
280.                     (position_set_z,pos20,-500),
     
281.                     (prop_instance_set_position, ":borad", pos20),
     
282.                 (else_try),
     
283.                     (copy_position,pos20,pos22),
     
284.                     (agent_force_rethink,":agent_no"),
     
285.                     (position_move_y,pos22,-500),
     
286.                     (position_rotate_z, pos22, 100),
     
287.                     (agent_set_scripted_destination, ":agent_no", pos22, 1),
     
288.                 (try_end),
     
289.                
     
290.             (else_try),
     
291.                 (ge|this_or_next,":pos_x",":upper_right_corner_x"),
     
292.                 (ge,":pos_y",":upper_right_corner_y"),
     
293.                
     
294.                 (try_begin),
     
295.                     (agent_slot_eq|this_or_next, ":agent_no", slot_agent_is_running_away, 1),#逃跑
     
296.                     (eq,":movement_order",mordr_retreat),
     
297.                     (agent_fade_out,":agent_no"),
     
298.                     (position_set_z,pos20,-500),
     
299.                     (prop_instance_set_position, ":borad", pos20),
     
300.                 (else_try),
     
301.                     (copy_position,pos20,pos22),
     
302.                     (agent_force_rethink,":agent_no"),
     
303.                     (position_move_y,pos22,-500),
     
304.                     (position_rotate_z, pos22, 100),
     
305.                     (agent_set_scripted_destination, ":agent_no", pos22, 1),
     
306.                 (try_end),
     
307.                
     
308.             (else_try), #主要针对野战情况下，退出飞行模式
     
309.                 (le, ":terrain", ":terrain_judgment"),            
     
310.                 (agent_set_slot,":agent_no",slot_agent_fly,2),  
     
311.                 (prop_instance_enable_physics,":borad",0),#关闭碰撞体
     
312.             (else_try),
     
313.                 (init_position,pos23),
     
314.                 (init_position,pos28),
     
315.                 (agent_get_position,pos23,":var_0"),
     
316.                 (position_move_z,pos23,-20),
     
317.                 (position_rotate_x,pos23,90),
     
318.                 #(cast_ray, <destination>, <hit_position_register>, <ray_position_register>, [<ray_length_fixed_point>]),
     
319.                 #强制转换一条长度为[<ray_length_fixed_point>]的射线，从<ray_position_register>开始，并将最近的命中位置存储到<hit_position_register>中(如果没有命中则失败)。如果body hit是一个prop实例，它的id将被存储到<destination>中。   
     
320.                 (cast_ray,":prop_id",pos28,pos23,20),
     
321.                 (gt,":prop_id",-1),
     
322.                 (prop_instance_get_scene_prop_kind,":prop_kind",":prop_id"),
     
323.                 (neq,":prop_kind","spr_bed_a_new"),
     
324.                 (neq,":prop_kind","spr_pillow_a_new"),
     
325.                 (position_copy_rotation,pos28,pos20),
     
326.                 (copy_position,pos20,pos28),
     
327.                 (prop_instance_enable_physics,":borad",0),#关闭碰撞体
     
328.                 (agent_set_slot,":agent_no",slot_agent_fly,2),#退出飞行                        
     
329.             (try_end),
     
330.             
     
331.             #设置障碍判断pos25
     
332.             (init_position,pos25),
     
333.             (copy_position,pos25,pos20),
     
334.             (try_begin),
     
335.                 (gt,":horse",-1),
     
336.                 (position_move_z, pos25, 300),
     
337.                 (position_move_y, pos25, 200),
     
338.             (else_try),
     
339.                 (position_move_z, pos25, 150),
     
340.                 (position_move_y, pos25, 100),
     
341.             (try_end),
     
342.             
     
343.             (try_begin),
     
344.                 (neg|agent_is_in_line_of_sight,":agent_no",pos25),
     
345.                 (position_move_z, pos20, 5),
     
346.                 (position_rotate_z,pos20,1),
     
347.                 #(agent_force_rethink, ":agent_no"),
     
348.             (try_end),
     
349.             
     
350.             (prop_instance_set_position, ":borad", pos20),
     
351.             (prop_instance_get_position, pos20, ":borad"),#场景物的坐标，实时获取
     
352.             (agent_set_position, ":var_0", pos20),
     
353.               
     
354.             (try_begin),
     
355.                 (agent_slot_eq,":agent_no",slot_agent_fly,2),
     
356.                 (position_set_z,pos20,-500),
     
357.                 (prop_instance_set_position, ":borad", pos20),
     
358.             (try_end),
     
359.             
     
360.         (else_try),#非飞行状态
     
361.             (agent_slot_eq,":agent_no",slot_agent_fly,2),
     
362.             (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
     
363.             (gt,":borad",0),
     
364.             (gt,":target_agent",-1),
     
365.             (eq,":movement_order",mordr_charge),
     
366. 
     
367.             (init_position,pos20),
     
368.             (agent_get_position, pos20, ":agent_no"),  
     
369.             (try_begin),
     
370.               (gt,":horse",-1),
     
371.               (assign,":var_0",":horse"),
     
372.               (position_move_z,pos20,50),
     
373.               (assign,":distance_target_judgment",2000),
     
374.             (else_try),
     
375.               (assign,":var_0",":agent_no"),
     
376.               (position_move_z,pos20,35),
     
377.               (assign,":distance_target_judgment",1000),
     
378.             (try_end),
     
379.             
     
380.             (assign,":agent_restart_fly",0),
     
381.             (try_begin),
     
382.                 (call_script,"script_cf_agent_is_fly",":target_agent"),
     
383.                 (assign,":agent_restart_fly",1),
     
384.             (else_try),
     
385.                 (call_script,"script_cf_agent_is_no_fly",":target_agent"),
     
386.                 (gt,":distance_target",":distance_target_judgment"),
     
387.                 (assign,":agent_restart_fly",1),
     
388.             (try_end),
     
389.             
     
390.             (eq,":agent_restart_fly",1),
     
391.             #限制角度保护 X Y 轴rotation
     
392.             (position_get_rotation_around_x, ":rotation_x", pos20),
     
393.             (position_get_rotation_around_y, ":rotation_y", pos20),
     
394.                
     
395.             (try_begin),
     
396.                 (gt,":rotation_x",0),
     
397.                 (store_sub,":angle_x",":rotation_x",0),
     
398.                 (val_mul,":angle_x",-1),
     
399.                 (position_rotate_x,pos20,":angle_x"),
     
400.             (else_try),
     
401.                 (lt,":rotation_x",360),
     
402.                 (store_sub,":angle_x",360,":rotation_x"),
     
403.                 (position_rotate_x,pos20,":angle_x"),
     
404.             (try_end),
     
405.                
     
406.            (try_begin),
     
407.                 (gt,":rotation_y",0),
     
408.                 (store_sub,":angle_y",":rotation_y",0),
     
409.                 (val_mul,":angle_y",-1),
     
410.                 (position_rotate_y,pos20,":angle_y"),
     
411.             (else_try),
     
412.                 (lt,":rotation_y",360),
     
413.                 (store_sub,":angle_y",360,":rotation_y"),
     
414.                 (position_rotate_y,pos20,":angle_y"),
     
415.             (try_end),
     
416.                
     
417.             (prop_instance_enable_physics,":borad",1),#碰撞体
     
418.             (prop_instance_set_position, ":borad", pos20),
     
419.             (prop_instance_get_position, pos20, ":borad"),
     
420.             (agent_set_position, ":var_0", pos20),
     
421.             (agent_set_slot,":agent_no",slot_agent_fly,3),
     
422.             (position_get_distance_to_terrain,":terrain",pos20),
     
423.             (agent_set_slot,":agent_no",slot_agent_terrain,":terrain"),
     
424.         (else_try),#起飞状态
     
425.             (agent_slot_eq,":agent_no",slot_agent_fly,3),
     
426.             (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
     
427.             (gt,":borad",0),
     
428.             (prop_instance_enable_physics,":borad",1),#碰撞体
     
429.             (prop_instance_get_position, pos20, ":borad"),#场景物的坐标，实时获取
     
430.             (position_get_distance_to_terrain,":terrain",pos20),
     
431.             (agent_get_slot,":terrain_judgment",":agent_no",slot_agent_terrain),
     
432.             (val_add,":terrain_judgment",500),
     
433.             
     
434.             (try_begin),
     
435.               (gt,":horse",-1),
     
436.               (assign,":var_0",":horse"),
     
437.             (else_try),
     
438.               (assign,":var_0",":agent_no"),
     
439.             (try_end),
     
440.             
     
441.             (try_begin),
     
442.                 (le, ":terrain",":terrain_judgment"),
     
443.                 (position_move_z,pos20,5),   
     
444.                 (prop_instance_set_position, ":borad", pos20),
     
445.                 (prop_instance_get_position, pos20, ":borad"),
     
446.                 (agent_set_position, ":var_0", pos20),
     
447.             (else_try),
     
448.                 (agent_set_slot,":agent_no",slot_agent_fly,1),
     
449.             (try_end),
     
450.             
     
451.         (try_end),   
     
452.     (try_end),
     
453. ]
     
454. )

复制代码

module_scripts部分

1.    #检查agent是使用远程武器
   
2.    ("cf_agent_use_range_weapon", [
   
3.     (store_script_param, ":agent_no", 1),
   
4.    
   
5.     (gt,":agent_no",-1),
   
6.     (agent_get_wielded_item, ":wielded_item", ":agent_no", 0),
   
7.     (gt,":wielded_item",0),
   
8.     (item_get_type, ":item_weapon_type", ":wielded_item"),
   
9.     (eq|this_or_next, ":item_weapon_type",itp_type_bow),
   
10.     (eq|this_or_next,":item_weapon_type",itp_type_crossbow),
    
11.     (eq|this_or_next,":item_weapon_type",itp_type_thrown),
    
12.     (eq|this_or_next,":item_weapon_type",itp_type_pistol),
    
13.     (eq,":item_weapon_type",itp_type_musket),
    
14.     ]),
    
15.    
    
16.    
    
17.     #检查agent不使用使用远程武器
    
18.     ("cf_agent_no_use_range_weapon", [
    
19.     (store_script_param, ":agent_no", 1),
    
20.    
    
21.     (gt,":agent_no",-1),
    
22.     (agent_get_wielded_item, ":wielded_item", ":agent_no", 0),
    
23.     (gt,":wielded_item",0),
    
24.     (item_get_type, ":item_weapon_type", ":wielded_item"),
    
25.     (neg, ":item_weapon_type",itp_type_bow),
    
26.     (neg,":item_weapon_type",itp_type_crossbow),
    
27.     (neg,":item_weapon_type",itp_type_thrown),
    
28.     (neg,":item_weapon_type",itp_type_pistol),
    
29.     (neg,":item_weapon_type",itp_type_musket),
    
30.     ]),
    
31.      
    
32.    #检查agent是是飞行单位
    
33.    ("cf_agent_is_fly", [
    
34.     (store_script_param, ":agent_no", 1),
    
35.    
    
36.     (gt,":agent_no",-1),
    
37.     (agent_slot_eq|this_or_next,":agent_no",slot_agent_fly,1),
    
38.     (agent_slot_eq,":agent_no",slot_agent_fly,3),
    
39.     ]),
    
40.    
    
41.     #检查agent是不是飞行单位
    
42.    ("cf_agent_is_no_fly", [
    
43.     (store_script_param, ":agent_no", 1),
    
44.    
    
45.     (gt,":agent_no",-1),
    
46.     (neg|agent_slot_eq,":agent_no",slot_agent_fly,1),
    
47.     (neg|agent_slot_eq,":agent_no",slot_agent_fly,3),
    
48.     ]),
    
49.    
    
50.    #agent退出飞行
    
51.    ("dead_agent_exit_fly", [
    
52.     (store_script_param, ":agent_no", 1),
    
53.    
    
54.     (try_begin),
    
55.         (gt,":agent_no",-1),
    
56.         
    
57.         (assign,":borad",-1),
    
58.         (try_begin),#人
    
59.             (agent_is_human,":agent_no"),
    
60.             (call_script,"script_cf_agent_is_fly",":agent_no"),
    
61.             (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
    
62.             (agent_set_slot,":agent_no",slot_agent_fly_borad,-1),
    
63.             (agent_set_slot,":agent_no",slot_agent_fly,-1),
    
64.         (else_try),#马
    
65.             (neg|agent_is_human,":agent_no"),
    
66.             (agent_get_slot,":borad",":agent_no",slot_agent_fly_borad),
    
67.             (agent_set_slot,":agent_no",slot_agent_fly,-1),
    
68.         (try_end),
    
69.         
    
70.         (try_begin),
    
71.             (gt,":borad",0),
    
72.             (prop_instance_get_position, pos25, ":borad"),
    
73.             (position_get_z, ":pos_z", pos25),
    
74.             (ge,":pos_z",-100),
    
75.             (position_set_z,pos25,-500),
    
76.             (prop_instance_set_position, ":borad", pos25),
    
77.             (prop_instance_enable_physics,":borad",0),
    
78.         (try_end),
    
79.         
    
80.     (try_end),
    
81.     ]),
    
82.    
    
83.   #产生agent飞行坐骑
    
84. ("fly_rider_agent_spawn",
    
85. [
    
86.   (store_script_param, ":agent_no", 1),
    
87. 
    
88.   (try_begin),
    
89.          (gt,":agent_no",-1),
    
90.          (agent_get_troop_id,":troop_id",":agent_no"),
    
91.          (troop_has_item_equipped, ":troop_id", "itm_courser_fly"),
    
92.          (agent_get_horse,":cur_horse",":agent_no"),
    
93.          (le,":cur_horse",-1),
    
94.          (assign,":cur_horse_id","itm_courser_fly"),
    
95.          (init_position,pos29),
    
96.          (agent_get_position,pos29,":agent_no"),
    
97.          (set_show_messages,0),
    
98.          (set_spawn_position,pos29),
    
99.          (spawn_horse,":cur_horse_id"),
    
100.          (agent_get_team, ":team", ":agent_no"),
     
101.          (agent_get_division, ":division", ":agent_no"),
     
102.          (team_give_order, ":team", ":division", grc_heroes),
     
103.          (set_show_messages,1),
     
104.     (try_end),
     
105.    
     
106.   ]
     
107.   ),

复制代码