骑马与砍杀中文站论坛

标题: 使用场景道具辅助飞行学习笔记（二）-空战与攻城 [打印本页]
作者: 杰喵喵    时间: 2023-8-28 22:52
标题: 使用场景道具辅助飞行学习笔记（二）-空战与攻城
本帖最后由 杰喵喵 于 2023-8-29 08:33 编辑

一、效果概述与展示
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),

  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),

  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),

  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"),

  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"),   

  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),

  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),

  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),

  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.   ),
复制代码







MS.zip

1.41 MB, 下载次数: 194



欢迎光临 骑马与砍杀中文站论坛 (https://bbs.mountblade.com.cn/) Powered by Discuz! X3.4