单兵战术：残血收割

期悦

又来了~再次分享一段自己写的AI。

逻辑：例遍每个正在战斗的单位，如果这个单位射程范围内有残血的敌人(一刀就死那种)，立刻就得打死~

另外安利下新战役萨阿德王朝，其中的AI就是加入了这组战术。

1. ;[残血收割]
   
2. 
   
3. (defconst gl-local-total 11)
   
4. (defconst gl-local-last 12)
   
5. (defconst gl-remote-total 13)
   
6. (defconst gl-remote-last 14)
   
7. (defconst answer 475)
   
8. (defconst reapers 476)
   
9. (defconst reaper-id 477)
   
10. (defconst reaper-type 478)
    
11. (defconst reaper-point 479)
    
12. (defconst reaper-range 480)
    
13. (defconst reaper-aggressivity 481)
    
14. (defconst preys 482)
    
15. (defconst prey-id 483)
    
16. (defconst prey-type 484)
    
17. (defconst prey-class 485)
    
18. (defconst prey-HP 486)
    
19. (defconst prey-armor 487)
    
20. (defconst prey-shield 488)
    
21. (defconst stop-attack-id 489)
    
22. (defconst next-reaper 490)
    
23. (defconst next-prey 491)
    
24. 
    
25. (defrule;搜索战斗单位
    
26.     (true)
    
27. =>
    
28.     (up-full-reset-search)
    
29.     (up-filter-include -1 actionid-attack -1 -1)
    
30.     (up-find-local c: castle c: 240)
    
31.     (up-find-local c: tower-class c: 240)
    
32.     (up-find-local c: siege-weapon-class c: 240)
    
33.     (up-find-local c: archery-class c: 240)
    
34.     (up-find-local c: cavalry-archer-class c: 240)
    
35.     (up-find-local c: cavalry-class c: 240)
    
36.     (up-find-local c: infantry-class c: 240)
    
37.     (up-find-local c: 1126 c: 240)
    
38.     (up-remove-objects search-local object-data-id g:== reaper-id)
    
39.     (up-remove-objects search-local object-data-type == 1258)
    
40.     (up-remove-objects search-local object-data-type == 422)
    
41.     (up-remove-objects search-local object-data-type == 548)
    
42.     (up-remove-objects search-local object-data-class == packed-trebuchet-class)
    
43.     (up-remove-objects search-local object-data-class == unpacked-trebuchet-class)
    
44.     (up-clean-search search-local object-data-action search-order-asc)
    
45.     (up-get-search-state gl-local-total)
    
46.     (up-modify-goal reapers g:= gl-local-total))
    
47. (defrule;例遍收割者置零
    
48.     (up-compare-goal reapers c:<= next-reaper)
    
49. =>
    
50.     (up-modify-goal next-reaper c:= 0))
    
51. (defrule;找不到收割者
    
52.     (up-compare-goal reapers c:<= 0)
    
53. =>
    
54.     (up-jump-rule 38)
    
55.     (up-modify-goal reaper-id c:= -1)
    
56.     (up-modify-goal next-reaper c:+ 1)
    
57.     (up-modify-goal next-prey c:= 0))
    
58. (defrule;挑选收割者
    
59.     (true)
    
60. =>
    
61.     (up-set-target-object search-local g: next-reaper)
    
62.     (up-get-object-data object-data-id reaper-id)
    
63.     (up-get-object-data object-data-type reaper-type)
    
64.     (up-get-object-data object-data-base-attack reaper-aggressivity)
    
65.     (up-get-object-data object-data-range reaper-range)
    
66.     (up-get-point position-object reaper-point-x))
    
67. (defrule;射程为0补偿为1
    
68.     (up-compare-goal reaper-range c:< 1)
    
69. =>
    
70.     (up-modify-goal reaper-range c:= 1))
    
71. (defrule;以收割者为中心，以其射程为半径搜索
    
72.     (true)
    
73. =>
    
74.     (up-set-target-point reaper-point-x)
    
75.     (up-filter-distance c: -1 g: reaper-range))
    
76. (defrule;35
    
77.     (stance-toward 1 enemy)
    
78. =>
    
79.     (set-strategic-number sn-focus-player-number 1)
    
80.     (up-find-remote c: -1 c: 40))
    
81. (defrule;34
    
82.     (stance-toward 3 enemy)
    
83. =>
    
84.     (set-strategic-number sn-focus-player-number 3)
    
85.     (up-find-remote c: -1 c: 40))
    
86. (defrule;33
    
87.     (stance-toward 4 enemy)
    
88. =>
    
89.     (set-strategic-number sn-focus-player-number 4)
    
90.     (up-find-remote c: -1 c: 40))
    
91. (defrule;32
    
92.     (stance-toward 6 enemy)
    
93. =>
    
94.     (set-strategic-number sn-focus-player-number 6)
    
95.     (up-find-remote c: -1 c: 40))
    
96. (defrule;31
    
97.     (stance-toward 5 enemy)
    
98. =>
    
99.     (set-strategic-number sn-focus-player-number 5)
    
100.     (up-find-remote c: -1 c: 40))
     
101. (defrule;30
     
102.     (stance-toward 7 enemy)
     
103. =>
     
104.     (set-strategic-number sn-focus-player-number 7)
     
105.     (up-find-remote c: -1 c: 40))
     
106. (defrule;29
     
107.     (stance-toward 8 enemy)
     
108. =>
     
109.     (set-strategic-number sn-focus-player-number 8)
     
110.     (up-find-remote c: -1 c: 40))
     
111. (defrule;28;搜索残血者
     
112.     (true)
     
113. =>
     
114.     (up-remove-objects search-remote object-data-id g:== stop-attack-id)
     
115.     (up-get-search-state gl-local-total)
     
116.     (up-modify-goal preys g:= gl-remote-total))
     
117. (defrule;27;找不到残血者
     
118.     (up-compare-goal preys c:<= 0)
     
119. =>
     
120.     (up-jump-rule 26)
     
121.     (up-modify-goal reaper-id c:= -1)
     
122.     (up-modify-goal next-reaper c:+ 1)
     
123.     (up-modify-goal next-prey c:= 0))
     
124. (defrule;26;找到残血者
     
125.     (up-compare-goal preys c:> 0)
     
126. =>
     
127.     (up-clean-search search-remote object-data-hitpoints search-order-asc)
     
128.     (up-set-target-object search-remote g: next-prey)
     
129.     (up-get-object-data object-data-id prey-id)
     
130.     (up-get-object-data object-data-type prey-type)
     
131.     (up-get-object-data object-data-class prey-class)
     
132.     (up-get-object-data object-data-hitpoints prey-HP)
     
133.     (up-get-object-data object-data-strike-armor prey-armor)
     
134.     (up-get-object-data object-data-pierce-armor prey-shield)
     
135.     (up-modify-goal answer g:= reaper-aggressivity))
     
136. (defrule;25;例遍残血者置零
     
137.     (up-compare-goal preys c:<= next-prey)
     
138. =>
     
139.     (up-modify-goal next-reaper c:+ 1)
     
140.     (up-modify-goal next-prey c:= 0))
     
141. (defrule;24;收割者是近战单位
     
142. (or (up-compare-goal reaper-type c:== 1126)
     
143.     (up-compare-goal reaper-range c:<= 1))
     
144. =>
     
145.     (up-jump-rule 1)
     
146.     (up-modify-goal answer g:- prey-armor))
     
147. (defrule;23;收割者是远程单位
     
148.     (up-compare-goal reaper-type c:!= 1126)
     
149.     (up-compare-goal reaper-range c:> 1)
     
150. =>
     
151.     (up-modify-goal answer g:- prey-shield))
     
152. (defrule;22;攻击力小于1视同为1
     
153.     (up-compare-goal answer c:<= 1)
     
154. =>
     
155.     (up-modify-goal answer c:= 1))
     
156. (defrule;21;收割者是长矛兵，残血者是骑兵
     
157.     (up-compare-goal reaper-type c:== 93)
     
158. (or (up-compare-goal prey-type c:== 38)
     
159. (or (up-compare-goal prey-type c:== 283)
     
160.     (up-compare-goal prey-class c:== scout-cavalry-class)))
     
161. =>
     
162.     (up-jump-rule 18)
     
163.     (up-modify-goal answer c:+ 15))
     
164. (defrule;20;收割者是长矛兵，残血者是战象;92
     
165.     (up-compare-goal reaper-type c:== 93)
     
166. (or (up-compare-goal prey-type c:== 1132)
     
167. (or (up-compare-goal prey-type c:== 1134)
     
168. (or (up-compare-goal prey-type c:== 873)
     
169.     (up-compare-goal prey-type c:== 875))))
     
170. =>
     
171.     (up-jump-rule 17)
     
172.     (up-modify-goal answer c:+ 30))
     
173. (defrule;19;收割者是长矛兵，残血者是骆驼
     
174.     (up-compare-goal reaper-type c:== 93)
     
175. (or (up-compare-goal prey-type c:== 329)
     
176.     (up-compare-goal prey-type c:== 330))
     
177. =>
     
178.     (up-jump-rule 16)
     
179.     (up-modify-goal answer c:+ 12))
     
180. (defrule;18;收割者是长矛兵，残血者是战船或渔船
     
181.     (up-compare-goal reaper-type c:== 93)
     
182. (or (up-compare-goal prey-class c:== warship-class)
     
183.     (up-compare-goal prey-type c:== 13))
     
184. =>
     
185.     (up-jump-rule 15)
     
186.     (up-modify-goal answer c:+ 9))
     
187. (defrule;17;收割者是步弓手或掷矛手，残血者是枪兵
     
188. (or (up-compare-goal reaper-type c:== 4)
     
189. (or (up-compare-goal reaper-type c:== 24)
     
190. (or (up-compare-goal reaper-type c:== 492)
     
191. (or (up-compare-goal reaper-type c:== 7)
     
192.     (up-compare-goal reaper-type c:== 6)))))
     
193. (or (up-compare-goal prey-type c:== 93)
     
194. (or (up-compare-goal prey-type c:== 358)
     
195.     (up-compare-goal prey-type c:== 359)))
     
196. =>
     
197.     (up-modify-goal answer c:+ 3))
     
198. (defrule;16;收割者是掷矛手，残血者是弓兵种属;
     
199.     (up-compare-goal reaper-type c:== 7)
     
200.     (up-compare-goal prey-class c:== archery-class)
     
201. =>
     
202.     (up-jump-rule 13)
     
203.     (up-modify-goal answer c:+ 3))
     
204. (defrule;15;收割者是精锐掷矛手，残血者是弓兵种属;87
     
205.     (up-compare-goal reaper-type c:== 6)
     
206.     (up-compare-goal prey-class c:== archery-class)
     
207. =>
     
208.     (up-modify-goal answer c:+ 4))
     
209. (defrule;14;收割者是精锐掷矛手，残血者是骑射手;86
     
210.     (up-compare-goal reaper-type c:== 6)
     
211.     (up-compare-goal prey-class c:== cavalry-archer-class)
     
212. =>
     
213.     (up-jump-rule 11)
     
214.     (up-modify-goal answer c:+ 6))
     
215. (defrule;13;收割者是骑射手，残血者是枪兵;85
     
216. (or (up-compare-goal reaper-type c:== 39)
     
217.     (up-compare-goal reaper-type c:== 474))
     
218. (or (up-compare-goal prey-type c:== 93)
     
219. (or (up-compare-goal prey-type c:== 358)
     
220.     (up-compare-goal prey-type c:== 359)))
     
221. =>
     
222.     (up-jump-rule 10)
     
223.     (up-modify-goal answer c:+ 2))
     
224. (defrule;12;收割者是斥候骑兵，残血者是僧侣;84
     
225.     (up-compare-goal reaper-type c:== 448)
     
226.     (up-compare-goal prey-class c:== monastery-class)
     
227. =>
     
228.     (up-jump-rule 9)
     
229.     (up-modify-goal answer c:+ 6))
     
230. (defrule;11;收割者是轻骑兵，残血者是僧侣;83
     
231.     (up-compare-goal reaper-type c:== 546)
     
232.     (up-compare-goal prey-class c:== monastery-class)
     
233. =>
     
234.     (up-jump-rule 8)
     
235.     (up-modify-goal answer c:+ 10))
     
236. (defrule;10;收割者是骆驼兵，残血者是骑兵;82
     
237.     (up-compare-goal reaper-type c:== 546)
     
238. (or (up-compare-goal prey-type c:== 38)
     
239. (or (up-compare-goal prey-type c:== 283)
     
240.     (up-compare-goal prey-class c:== scout-cavalry-class)))
     
241. =>
     
242.     (up-jump-rule 7)
     
243.     (up-modify-goal answer c:+ 9))
     
244. (defrule;9;收割者是骆驼兵，残血者是船只或者骆驼;81
     
245.     (up-compare-goal reaper-type c:== 546)
     
246. (or (up-compare-goal prey-type c:== 546)
     
247. (or (up-compare-goal prey-type c:== 330)
     
248. (or (up-compare-goal prey-type c:== 13)
     
249.     (up-compare-goal prey-class c:== warship-class))))
     
250. =>
     
251.     (up-jump-rule 6)
     
252.     (up-modify-goal answer c:+ 5))
     
253. (defrule;8;收割者是重装骆驼兵，残血者是骑兵;80
     
254.     (up-compare-goal reaper-type c:== 330)
     
255. (or (up-compare-goal prey-type c:== 38)
     
256. (or (up-compare-goal prey-type c:== 283)
     
257.     (up-compare-goal prey-class c:== scout-cavalry-class)))
     
258. =>
     
259.     (up-jump-rule 5)
     
260.     (up-modify-goal answer c:+ 18))
     
261. (defrule;7;收割者是重装骆驼兵，残血者是船只或者骆驼;79
     
262.     (up-compare-goal reaper-type c:== 330)
     
263. (or (up-compare-goal prey-type c:== 546)
     
264. (or (up-compare-goal prey-type c:== 330)
     
265. (or (up-compare-goal prey-type c:== 13)
     
266.     (up-compare-goal prey-class c:== warship-class))))
     
267. =>
     
268.     (up-jump-rule 4)
     
269.     (up-modify-goal answer c:+ 9))
     
270. (defrule;6;收割者是弩炮，残血者是战象系;78
     
271.     (up-compare-goal reaper-type c:== 279)
     
272. (or (up-compare-goal prey-type c:== 1132)
     
273. (or (up-compare-goal prey-type c:== 1134)
     
274. (or (up-compare-goal prey-type c:== 873)
     
275.     (up-compare-goal prey-type c:== 875))))
     
276. =>
     
277.     (up-jump-rule 3)
     
278.     (up-modify-goal answer c:+ 6))
     
279. (defrule;5;收割者是重型弩炮，残血者是战象系;77
     
280.     (up-compare-goal reaper-type c:== 279)
     
281. (or (up-compare-goal prey-type c:== 1132)
     
282. (or (up-compare-goal prey-type c:== 1134)
     
283. (or (up-compare-goal prey-type c:== 873)
     
284.     (up-compare-goal prey-type c:== 875))))
     
285. =>
     
286.     (up-jump-rule 2)
     
287.     (up-modify-goal answer c:+ 8))
     
288. (defrule;4;收割者是箭船，残血者是战船或渔船;76
     
289.     (up-compare-goal reaper-type c:== 539)
     
290. (or (up-compare-goal prey-class c:== warship-class)
     
291.     (up-compare-goal prey-type c:== 13))
     
292. =>
     
293.     (up-jump-rule 1)
     
294.     (up-modify-goal answer c:+ 8))
     
295. (defrule;收割者是瞭望箭塔，残血者是战船或渔船;75
     
296.     (up-compare-goal reaper-type c:== 79)
     
297. (or (up-compare-goal prey-class c:== warship-class)
     
298.     (up-compare-goal prey-type c:== 13))
     
299. =>
     
300.     (up-modify-goal answer c:+ 7))
     
301. (defrule;可以致命;74
     
302.     (up-compare-goal answer g:>= prey-HP)
     
303. =>
     
304.     ;(chat-to-player 1 "残血收割")
     
305.     (up-jump-rule 1)
     
306.     (up-full-reset-search)
     
307.     (up-add-object-by-id 1 g: reaper-id)
     
308.     (up-add-object-by-id 2 g: prey-id)
     
309.     (up-target-objects 0 action-default -1 -1)
     
310.     (up-modify-goal stop-attack-id c:= 0))
     
311. (defrule;不可以致命;73
     
312.     (up-compare-goal answer g:< prey-HP)
     
313. =>
     
314.     (up-modify-goal reaper-id c:= -1)
     
315.     (up-get-object-data object-data-id stop-attack-id))

复制代码

love371482

今天才看到你的文章~~

追迹者chase

应该是遍历而不是例遍。

wangzhen

用筛选血量 升序就能找到最少血单位了

期悦

wangzhen 发表于 2021-4-10 14:07
用筛选血量 升序就能找到最少血单位了

不仅仅是找到血少的单位，还要知道能不能一击杀死。看127行，已经在用筛选血量了。

xiaogaoyagn

感谢感谢，我一直觉得我的敌人太弱了，正好可以体验一下。我复制到记事本，然后修改后缀为AI，不能用啊，是不是常数什么没定义，老大，你应该考虑下我这种文盲伸手党啊，怎么不成品打包一起发个

期悦

xiaogaoyagn 发表于 2021-4-17 16:56
感谢感谢，我一直觉得我的敌人太弱了，正好可以体验一下。我复制到记事本，然后修改后缀为AI，不能用啊，是 ...

这不是一个完整的AI，只是给供其他AI作者做歌参考而已。单位在战斗时有选择性的攻击某些目标。相当成对战靶子还是洗洗睡吧。后缀得是per

xiaogaoyagn

HudsonLee 发表于 2021-4-17 20:24
这不是一个完整的AI，只是给供其他AI作者做歌参考而已。单位在战斗时有选择性的攻击某些目标。相当成对战 ...

这什么情况

newtonerdai

我的思路是：①远程搜索任何敌方正在进行攻击动作的军事单位，②剔除血量超过15点的敌人，③按血量从低到高排序，④逐一遍历残血敌人，以他为中心搜索8格范围内的己方正在战斗的军事单位，记录其剩余血量为变量<敌人剩余血量>，『次级遍历：逐一遍历范围内己方士兵，若射程＜与该敌人的距离 且 <敌人剩余血量>大于0 且 其地图ID未被标记为“已派遣去收割”，则任命士兵去收割敌人，并登记其地图ID(通过指针&列表存取技术)以标记为“已派遣去收割”并附带被收割敌人的地图ID，并将<敌人剩余血量>减去<士兵攻击力>』，⑤遍历<收割者列表>中的各个“收割者”地图ID，如果其当前目标单位已不是之前“被收割者”的地图ID，则取消其“收割者”的标记及其附带的“被收割者”地图ID。