骑马与砍杀中文站论坛

标题: 【战团】由逃跑士兵影响士气算法导致卡顿的代码优化 [打印本页]
作者: AntiN0m1    时间: 2025-3-8 16:58
标题: 【战团】由逃跑士兵影响士气算法导致卡顿的代码优化
参考文献1: https://bbs.mountblade.com.cn/thread-2086832-1-1.html

参考文献2: https://bbs.mountblade.com.cn/thread-2098668-1-1.html

首先感谢两位大佬。
我自己修改时，感觉文献1的修改有点复杂，且不利于txt修改；而文献2反编译出来的东西实在不想看。
我根据文献1的讲解和文献2提供的思路，自己重写了该script，在此分享出来。
修改时加上 ###(((courage_scores NEW 括起来的行，删掉 ###(((courage_scores OLD 括起来的行即可。

[spoiler=script]

  1.   ("apply_effect_of_other_people_on_courage_scores",
  2.     [
  3.       (get_player_agent_no, ":player_agent"),

  5.       (try_for_agents, ":centered_agent_no"),
  6.         (agent_is_human, ":centered_agent_no"),
  7.         (agent_is_alive, ":centered_agent_no"),
  8.         (neq, ":centered_agent_no", ":player_agent"),
  9.         (agent_slot_eq, ":centered_agent_no", slot_agent_is_running_away, 1), ###(((courage_scores NEW)))
  10.         (agent_get_position, pos0, ":centered_agent_no"),
  11.         (try_begin),
  12.           (agent_is_ally, ":centered_agent_no"),
  13.           (assign, ":is_centered_agent_ally", 1),
  14.         (else_try),
  15.           (assign, ":is_centered_agent_ally", 0),
  16.         (try_end),
  17.       
  18.         (try_for_agents, ":agent_no"),
  19.           (agent_is_human, ":agent_no"),
  20.           (agent_is_alive, ":agent_no"),
  21.           (neq, ":centered_agent_no", ":agent_no"),      

  23.           (try_begin),
  24.             (agent_is_ally, ":agent_no"),
  25.             (assign, ":is_agent_ally", 1),
  26.           (else_try),
  27.             (assign, ":is_agent_ally", 0),
  28.           (try_end),

  30.           (eq, ":is_centered_agent_ally", ":is_agent_ally"), #if centered agent and other agent is at same team then continue.
  31.           (agent_get_slot, ":agent_is_running_away_or_not", ":agent_no", slot_agent_is_running_away),

  33.           (try_begin),
  34.             (eq, ":agent_no", ":player_agent"),
  35.             (assign, ":agent_delta_courage_score", 6),
  36.           (else_try),
  37.             (agent_get_troop_id, ":troop_id", ":agent_no"),
  38.             (troop_is_hero, ":troop_id"),
  39.       
  40.             #Hero Agent : if near agent (hero, agent_no) is not running away his positive effect on centered agent (centered_agent_no) fighting at his side is effected by his hit points.
  41.             (try_begin),      
  42.               (neq, ":agent_is_running_away_or_not", 1), #if agent is not running away
  43.               (store_agent_hit_points, ":agent_hit_points", ":agent_no"),
  44.               (try_begin),
  45.                 (eq, ":agent_hit_points", 100),
  46.                 (assign, ":agent_delta_courage_score", 6),
  47.               (else_try),
  48.                 (ge, ":agent_hit_points", 75),
  49.                 (assign, ":agent_delta_courage_score", 5),
  50.               (else_try),
  51.                 (ge, ":agent_hit_points", 60),
  52.                 (assign, ":agent_delta_courage_score", 4),
  53.               (else_try),
  54.                 (ge, ":agent_hit_points", 45),
  55.                 (assign, ":agent_delta_courage_score", 3),
  56.               (else_try),
  57.                 (ge, ":agent_hit_points", 30),
  58.                 (assign, ":agent_delta_courage_score", 2),
  59.               (else_try),
  60.                 (ge, ":agent_hit_points", 15),
  61.                 (assign, ":agent_delta_courage_score", 1),
  62.               (end_try),
  63.             (else_try),
  64.               (assign, ":agent_delta_courage_score", 4),
  65.             (end_try),
  66.           (else_try),
  67.             #Normal Agent : if near agent (agent_no) is not running away his positive effect on centered agent (centered_agent_no) fighting at his side is effected by his hit points.
  68.             (try_begin),      
  69.               (neq, ":agent_is_running_away_or_not", 1), # if agent is not running away
  70.               (store_agent_hit_points, ":agent_hit_points", ":agent_no"),
  71.               (try_begin),
  72.                 (eq, ":agent_hit_points", 100),
  73.                 (assign, ":agent_delta_courage_score", 4),
  74.               (else_try),
  75.                 (ge, ":agent_hit_points", 75),
  76.                 (assign, ":agent_delta_courage_score", 3),
  77.               (else_try),
  78.                 (ge, ":agent_hit_points", 50),
  79.                 (assign, ":agent_delta_courage_score", 2),
  80.               (else_try),
  81.                 (ge, ":agent_hit_points", 25),
  82.                 (assign, ":agent_delta_courage_score", 1),
  83.               (try_end),
  84.               (try_begin), # to make our warrior run away easier we decrease one, because they have player_agent (+6) advantage.
  85.                 (agent_is_ally, ":agent_no"),
  86.                 (val_sub, ":agent_delta_courage_score", 1),
  87.               (try_end),
  88.             (else_try),
  89.               (assign, ":agent_delta_courage_score", 2),
  90.             (end_try),
  91.           (try_end),

  93.           ###(((courage_scores NEW
  94.           (try_begin),
  95.             (troop_is_hero, ":centered_agent_no"),
  96.             (assign, ":agent_delta_courage_score_2", 4),
  97.           (else_try),
  98.             (assign, ":agent_delta_courage_score_2", 2),
  99.           (try_end),

  101.           (agent_get_position, pos1, ":agent_no"),
  102.           (get_distance_between_positions, ":dist", pos0, pos1),

  104.           (assign, ":pos_effect", 0),
  105.           (try_begin),
  106.             (lt, ":dist", 2000), #0-20 meter
  107.             (assign, ":pos_effect", 50),
  108.           (else_try),
  109.             (lt, ":dist", 4000), #21-40 meter
  110.             (assign, ":pos_effect", 40),
  111.           (else_try),
  112.             (lt, ":dist", 7000), #41-70 meter
  113.             (assign, ":pos_effect", 30),
  114.           (else_try),
  115.             (lt, ":dist", 11000), #71-110 meter
  116.             (assign, ":pos_effect", 20),
  117.           (else_try),      
  118.             (lt, ":dist", 16000), # 111-160 meter, assumed that eye can see agents friendly at most 160 meters far while fighting.
  119.                                   # this is more than below limit (108 meters) because we hear that allies come from further.
  120.             (assign, ":pos_effect", 10),
  121.           (try_end),

  123.           (assign, ":neg_effect", 0),                             # negative effect of running agent on other ally agents are lower then positive effects above, to avoid starting  
  124.           (try_begin),                                            # run away of all agents at a moment. I want to see agents running away one by one during battle, not all together.
  125.             (lt, ":dist", 200), #1-2 meter,                       # this would create better game play.
  126.             (assign, ":neg_effect", 15),
  127.           (else_try),
  128.             (lt, ":dist", 400), #3-4 meter,
  129.             (assign, ":neg_effect", 13),
  130.           (else_try),
  131.             (lt, ":dist", 600), #5-6 meter
  132.             (assign, ":neg_effect", 11),
  133.           (else_try),
  134.             (lt, ":dist", 800), #7-8 meter
  135.             (assign, ":neg_effect", 9),
  136.           (else_try),
  137.             (lt, ":dist", 1200), #9-12 meters
  138.             (assign, ":neg_effect", 7),
  139.           (else_try),
  140.             (lt, ":dist", 2400), #13-24 meters
  141.             (assign, ":neg_effect", 5),
  142.           (else_try),
  143.             (lt, ":dist", 4800), #25-48 meters
  144.             (assign, ":neg_effect", 3),
  145.           (else_try),
  146.             (lt, ":dist", 9600), #49-98 meters, assumed that eye can see agents running away at most 98 meters far while fighting.
  147.             (assign, ":neg_effect", 1),
  148.           (try_end),   

  150.           (try_begin),
  151.             (neq, ":agent_is_running_away_or_not", 1),
  152.             (val_mul, ":agent_delta_courage_score", 1),
  153.             (val_mul, ":agent_delta_courage_score", ":pos_effect"),

  155.             (val_mul, ":agent_delta_courage_score_2", -2),
  156.             (val_mul, ":agent_delta_courage_score_2", ":neg_effect"),
  157.             (neq, ":agent_delta_courage_score_2", 0),
  158.             (agent_get_slot, ":agent_courage_score_2", ":agent_no", slot_agent_courage_score),
  159.             (val_add, ":agent_courage_score_2", ":agent_delta_courage_score_2"),
  160.             (agent_set_slot, ":agent_no", slot_agent_courage_score, ":agent_courage_score_2"),

  162.           (else_try),
  163.             (val_mul, ":agent_delta_courage_score", -1),
  164.             (val_mul, ":agent_delta_courage_score", ":neg_effect"),
  165.           (try_end),
  166.           (neq, ":agent_delta_courage_score", 0),
  167.           (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  168.           (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  169.           (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),
  170.           ###)))

  172.           ###(((courage_scores OLD
  173.           # (try_begin),
  174.           #   (neq, ":agent_is_running_away_or_not", 1),
  175.           #   (val_mul, ":agent_delta_courage_score", 1),
  176.           #   (try_begin), # centered agent not running away cannot take positive courage score from one another agent not running away.
  177.           #     (agent_get_slot, ":agent_is_running_away_or_not", ":centered_agent_no", slot_agent_is_running_away),
  178.           #     (eq, ":agent_is_running_away_or_not", 0),
  179.           #     (val_mul, ":agent_delta_courage_score", 0),
  180.           #   (try_end),
  181.           # (else_try),
  182.           #   (try_begin),
  183.           #     (agent_get_slot, ":agent_is_running_away_or_not", ":agent_no", slot_agent_is_running_away), ###(((":agent_no" should be ":centered_agent_no" ?)))
  184.           #     (eq, ":agent_is_running_away_or_not", 0),
  185.           #     (val_mul, ":agent_delta_courage_score", -2), # running away agent fears not running away agent more.
  186.           #   (else_try),
  187.           #     (val_mul, ":agent_delta_courage_score", -1),
  188.           #   (try_end),
  189.           # (try_end),

  191.           # (neq, ":agent_delta_courage_score", 0),

  193.           # (agent_get_position, pos1, ":agent_no"),
  194.           # (get_distance_between_positions, ":dist", pos0, pos1),

  196.           # (try_begin),
  197.           #   (ge, ":agent_delta_courage_score", 0),
  198.           #   (try_begin),
  199.           #     (lt, ":dist", 2000), #0-20 meter
  200.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  201.           #     (val_mul, ":agent_delta_courage_score", 50),
  202.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  203.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  204.           #   (else_try),
  205.           #     (lt, ":dist", 4000), #21-40 meter
  206.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  207.           #     (val_mul, ":agent_delta_courage_score", 40),
  208.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  209.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  210.           #   (else_try),
  211.           #     (lt, ":dist", 7000), #41-70 meter
  212.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  213.           #     (val_mul, ":agent_delta_courage_score", 30),
  214.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  215.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  216.           #   (else_try),
  217.           #     (lt, ":dist", 11000), #71-110 meter
  218.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  219.           #     (val_mul, ":agent_delta_courage_score", 20),
  220.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  221.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  222.           #   (else_try),      
  223.           #     (lt, ":dist", 16000), # 111-160 meter, assumed that eye can see agents friendly at most 160 meters far while fighting.
  224.           #                           # this is more than below limit (108 meters) because we hear that allies come from further.
  225.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  226.           #     (val_mul, ":agent_delta_courage_score", 10),
  227.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  228.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  229.           #   (try_end),      
  230.           # (else_try),                                               # negative effect of running agent on other ally agents are lower then positive effects above, to avoid starting  
  231.           #   (try_begin),                                            # run away of all agents at a moment. I want to see agents running away one by one during battle, not all together.
  232.           #     (lt, ":dist", 200), #1-2 meter,                       # this would create better game play.
  233.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  234.           #     (val_mul, ":agent_delta_courage_score", 15),
  235.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  236.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  237.           #   (else_try),
  238.           #     (lt, ":dist", 400), #3-4 meter,
  239.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  240.           #     (val_mul, ":agent_delta_courage_score", 13),
  241.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  242.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  243.           #   (else_try),
  244.           #     (lt, ":dist", 600), #5-6 meter
  245.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  246.           #     (val_mul, ":agent_delta_courage_score", 11),
  247.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  248.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  249.           #   (else_try),
  250.           #     (lt, ":dist", 800), #7-8 meter
  251.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  252.           #     (val_mul, ":agent_delta_courage_score", 9),
  253.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  254.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  255.           #   (else_try),
  256.           #     (lt, ":dist", 1200), #9-12 meters
  257.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  258.           #     (val_mul, ":agent_delta_courage_score", 7),
  259.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  260.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  261.           #   (else_try),
  262.           #     (lt, ":dist", 2400), #13-24 meters
  263.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  264.           #     (val_mul, ":agent_delta_courage_score", 5),
  265.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  266.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  267.           #   (else_try),
  268.           #     (lt, ":dist", 4800), #25-48 meters
  269.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  270.           #     (val_mul, ":agent_delta_courage_score", 3),
  271.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  272.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  273.           #   (else_try),
  274.           #     (lt, ":dist", 9600), #49-98 meters, assumed that eye can see agents running away at most 98 meters far while fighting.
  275.           #     (agent_get_slot, ":agent_courage_score", ":centered_agent_no", slot_agent_courage_score),
  276.           #     (val_mul, ":agent_delta_courage_score", 1),
  277.           #     (val_add, ":agent_courage_score", ":agent_delta_courage_score"),
  278.           #     (agent_set_slot, ":centered_agent_no", slot_agent_courage_score, ":agent_courage_score"),           
  279.           #   (try_end),      
  280.           # (try_end),
  281.           ###)))
  282.         (try_end),            
  283.       (try_end),
  284.   ]), #ozan
复制代码



[/spoiler]





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