单兵战术：远程不优先打击冲车

期悦

分享一段自己写的AI，战役制作里或许会用的上。

逻辑：例遍每个正在战斗的单位，如果这个单位正在攻击冲车和攻城塔，就搜索附近的其他单位攻击。

1. ;[远程不优先打击冲车或攻城塔]
   
2. 
   
3. (defconst next-remote-unit-1 1)
   
4. (defconst gl-local-total 2)
   
5. (defconst shooter-range 6)
   
6. (defconst own-defense-tower-id 7)
   
7. (defconst enemy-id 8)
   
8. (defconst point-x 50)
   
9. (defconst point-y 51)
   
10. 
    
11. (defrule
    
12.     (stance-toward 1 ally)
    
13. =>  
    
14.     (up-jump-rule 9))
    
15. (defrule
    
16.     (cc-players-unit-type-count 1 battering-ram-line <= 0)
    
17.     (cc-players-unit-type-count 1 1105 <= 0)
    
18. =>  
    
19.     (up-jump-rule 8))
    
20. (defrule
    
21.     (up-object-type-count-total c: castle <= 0)
    
22.     (up-object-type-count-total c: tower-class <= 0)
    
23.     (up-object-type-count-total c: town-center <= 0)
    
24.     (up-object-type-count-total c: scorpion-class <= 0)
    
25.     (up-object-type-count-total c: archery-class <= 0)
    
26.     (up-object-type-count-total c: cavalry-cannon-class <= 0)
    
27.     (up-object-type-count-total c: cavalry-archer-class <= 0)
    
28.     (up-object-type-count-total c: archery-cannon-class <= 0)
    
29. =>  
    
30.     (up-jump-rule 7))
    
31. (defrule
    
32.     (true)
    
33. =>
    
34.     (up-full-reset-search)
    
35.     (up-filter-include -1 actionid-attack -1 -1)
    
36.     (up-find-local c: castle c: 240)
    
37.     (up-find-local c: town-center c: 240)
    
38.     (up-find-local c: tower-class c: 240)
    
39.     (up-find-local c: scorpion-class c: 240)
    
40.     (up-find-local c: archery-class c: 240)
    
41.     (up-find-local c: cavalry-cannon-class c: 240)
    
42.     (up-find-local c: cavalry-archer-class c: 240)
    
43.     (up-find-local c: archery-cannon-class c: 240)
    
44.     (up-get-search-state gl-local-total))
    
45. (defrule
    
46.     (up-compare-goal gl-local-total g:<= next-remote-unit-1)
    
47. =>
    
48.     (up-modify-goal next-remote-unit-1 c:= 0))
    
49. (defrule
    
50.     (up-compare-goal gl-local-total c:<= 0)
    
51. =>  
    
52.     (up-jump-rule 4))
    
53. (defrule
    
54.     (true)
    
55. =>
    
56.     (up-set-target-object search-local g: next-remote-unit-1)
    
57.     (up-modify-goal next-remote-unit-1 c:+ 1)
    
58.     (up-get-point position-object point-x)
    
59.     (up-get-object-data object-data-range shooter-range)
    
60.     (up-get-object-data object-data-id own-defense-tower-id)
    
61.     (up-get-object-data object-data-target-id enemy-id)
    
62.     (up-full-reset-search)
    
63.     (up-set-target-by-id g: enemy-id))
    
64. (defrule
    
65.     (up-object-data object-data-type != 1258)
    
66.     (up-object-data object-data-type != 422)
    
67.     (up-object-data object-data-type != 548)
    
68.     (up-object-data object-data-type != 1105)
    
69. =>
    
70.     (up-jump-rule 2))
    
71. (defrule
    
72.     (true)
    
73. =>
    
74.     (up-full-reset-search)
    
75.     (up-set-target-point point-x)
    
76.     (up-filter-distance c: -1 g: shooter-range)
    
77.     (set-strategic-number sn-focus-player-number 1)
    
78.     (up-find-remote c: -1 c: 40)
    
79.     (up-remove-objects search-remote object-data-type == 1258)
    
80.     (up-remove-objects search-remote object-data-type == 422)
    
81.     (up-remove-objects search-remote object-data-type == 548)
    
82.     (up-remove-objects search-remote object-data-type == 1105)
    
83.     (up-get-search-state gl-local-total))
    
84. (defrule
    
85.     (up-compare-goal gl-remote-total c:> 0)
    
86. =>
    
87.     ;(chat-to-player 1 "远程不优先打击冲车或攻城塔")
    
88.     (up-clean-search search-remote object-data-hitpoints search-order-asc)
    
89.     (up-add-object-by-id search-local g: own-defense-tower-id)
    
90.     (up-target-objects 0 action-default -1 -1))

复制代码

捕影侠

抢个沙发，这样一来电脑玩家更能有智慧了呢

cxt

好！