据点防御AI

春田一九零三

之前为了某战役（烂尾）定置的AI。可以供需要的人参考。注意并非所有变量都有用。主要是考虑到多个AI共存的情况才做了定义。
如果需要公用，可以在defconst中把变量对应的数字修改掉（当然如果缺乏ai基础可能不知道吾辈在说什么）

据点防御AI：
主要是代替传统TSA，每个AI玩家只能围绕一个TC展开防守的问题。
这个AI可以防御复数据点，并且为每个据点配置防御半径，并且他只会防御会移动的攻击单位，因此不会被建筑物吸引走。。。

1. ;// 单位不动（简单版） //
   
2. (defrule
   
3.     (true)
   
4. =>
   
5.     (set-strategic-number sn-maximum-food-drop-distance -2)
   
6.     (set-strategic-number sn-maximum-wood-drop-distance -2)
   
7.     (set-strategic-number sn-maximum-gold-drop-distance -2)
   
8.     (set-strategic-number sn-maximum-stone-drop-distance -2)
   
9.     (set-strategic-number sn-maximum-hunt-drop-distance -2)
   
10.     (set-strategic-number sn-percent-civilian-gatherers 0)
    
11.     (set-strategic-number sn-percent-civilian-builders 0)
    
12.     (set-strategic-number sn-percent-civilian-explorers 0)
    
13.     (set-strategic-number sn-maximum-fish-boat-drop-distance -2)
    
14.     (set-strategic-number sn-task-ungrouped-soldiers 0)
    
15.     (set-strategic-number sn-total-number-explorers 0)
    
16.     (set-strategic-number sn-relic-return-distance 0)
    
17.     (disable-self)
    
18. )
    
19. 
    
20. ;// 敌作战能力 //
    
21. (defrule
    
22.     (true)
    
23. =>
    
24.     (set-difficulty-parameter ability-to-maintain-distance 0)
    
25.     (set-difficulty-parameter ability-to-dodge-missiles 0)
    
26.     (set-strategic-number sn-percent-enemy-sighted-response 100)
    
27.     (set-strategic-number sn-enemy-sighted-response-distance 32)
    
28.     (disable-self)
    
29. )
    
30. 
    
31. ;// 据点防御：召集半径X内的我方闲置单位，巡逻攻击同范围内发现的敌方单位 //
    
32. 
    
33. (defconst gl-point-x 100)       ;探测玩家信号座标x
    
34. (defconst gl-point-y 101)       ;探测玩家信号座标y
    
35. (defconst gl-point-x2 102)       ;转存玩家信号座标x，作为最终目标
    
36. (defconst gl-point-y2 103)       ;转存玩家信号座标y，作为最终目标
    
37. (defconst gl-point-x3 104)       ;设置的当前进攻座标x
    
38. (defconst gl-point-y3 105)       ;设置的当前进攻座标y
    
39. (defconst gl-point-x4 106)       ;设置ai的集结出发点x
    
40. (defconst gl-point-y4 107)       ;设置ai的集结出发点y
    
41. (defconst gl-point-A 108)       ;过渡用变量A
    
42. (defconst gl-point-B 109)       ;过渡用变量B
    
43. (defconst gl-faith 110)       ;队伍信心
    
44. (defconst gl-point-r 111)       ;探测半径
    
45. (defconst gl-player 112)       ;搜索的目标玩家
    
46. (defconst gl-enemy-unit-detect 113)      ;搜索到可攻击的敌人单位数
    
47. (defconst gl-local-total 120)
    
48. (defconst gl-local-last 121)
    
49. (defconst gl-remote-total 122)
    
50. (defconst gl-remote-last 123)
    
51. (defconst gl-random-number 124)       ;随机数
    
52. 
    
53. (defconst search-local 1)       ;搜索源常数：本地
    
54. (defconst search-remote 2)       ;搜索源常数：远方
    
55. (defconst stance-aggressive 0)       ;进攻状态常数：进攻
    
56. (defconst action-patrol 2)       ;行动编号常数：巡逻
    
57. (defconst position-object 12)       ;位置类型常数：物件
    
58. (defconst actionid-enter 617)       ;行动编号常数：进入（驻扎）
    
59. (defconst object-data-index -1)       ;up-remove-objects专用
    
60. (defconst object-data-action 5)       ;单位动作
    
61. (defconst object-data-target-id 23)      ;单位目标
    
62. (defconst object-data-tasks-count 32)      ;单位获得任务数
    
63. (defconst object-data-attacker-count 33)     ;单位的攻击数
    
64. (defconst object-data-next-attack 55)      ;单位正在交战
    
65. (defconst object-data-group-flag 73)      ;单位所属组0-9，无为-2
    
66. (defconst flare 274)        ;信号
    
67. (defconst king-class 959)       ;国王类
    
68. (defconst infantry-class 906)       ;步兵类
    
69. (defconst archery-class 900)       ;弓箭手类
    
70. (defconst archery-cannon-class 944)      ;火枪手类
    
71. (defconst cavalry-class 912)       ;骑兵类
    
72. (defconst cavalry-archer-class 936)      ;骑射手类
    
73. (defconst cavalry-cannon-class 923)      ;征服者类
    
74. (defconst siege-weapon-class 913)      ;攻城武器类
    
75. 
    
76. 
    
77. (defconst POINT 201)        ;据点编号
    
78. (defconst POINT-max 202)       ;最大据点数量
    
79. 
    
80. ;// 据点防御初始化 //
    
81. 
    
82. (defrule
    
83.     (true)
    
84. =>
    
85.     (set-goal POINT 0)        ;据点未开启防御模式，编号0
    
86.     (set-goal POINT-max 2)       ;设定最大据点数量
    
87.     (disable-self)
    
88. )
    
89. 
    
90. ;// 据点防御开启 //
    
91. 
    
92. (defrule
    
93.     (game-time greater-than 4)       ;游戏时间经过4秒（防开局加资源）
    
94.     (goal POINT 0)          ;据点防御模式未开启
    
95.     (stone-amount >= 100)       ;配合触发，AI玩家拥有100石开启据点防御
    
96.     (stone-amount < 200)
    
97. =>
    
98.     (cc-add-resource stone -100)      ;清除石头指令
    
99.     (enable-timer 1 0)        ;激活定时器1，时间为0秒（立刻启动）
    
100.     (set-goal POINT 1)        ;从据点1开始计算
     
101.     (chat-to-all "据点防御开启")
     
102. )
     
103. 
     
104. (defrule
     
105.     (up-compare-goal POINT g:== POINT-max)     ;开启过据点防御，并且遍历过至少一次
     
106.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
107. =>
     
108.     (set-goal POINT 1)        ;重置当前据点编号为1
     
109. )
     
110. 
     
111. ;// 据点防御开启-循环起点A //
     
112. ;// 据点1：上方村庄(94,47)，防御半径20 //
     
113. ;// 据点2：下方港口(45,82)，防御半径10 //
     
114. ;// 复制下方段落实现扩展，并修改最后的jump差值 //
     
115. 
     
116. (defrule
     
117.     (up-compare-goal POINT c:== 1)
     
118.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
119. =>
     
120.     (up-modify-goal gl-point-x c:= 94)      ;读取据点1座标x
     
121.     (up-modify-goal gl-point-y c:= 47)      ;读取据点1座标y
     
122.     (up-modify-goal gl-point-r c:= 20)      ;读取据点1防御半径r
     
123. 
     
124. 
     
125. 
     
126. (defrule
     
127.     (up-compare-goal POINT c:== 2)
     
128.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
129. =>
     
130.     (up-modify-goal gl-point-x c:= 45)      ;读取据点2座标x
     
131.     (up-modify-goal gl-point-y c:= 82)      ;读取据点2座标y
     
132.     (up-modify-goal gl-point-r c:= 10)      ;读取据点2防御半径r
     
133. )
     
134. 
     
135. ;// 查找敌人目标 //
     
136. 
     
137. (defrule
     
138.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
139.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
140. =>
     
141.     (set-goal gl-player 1)       ;初始化搜索从玩家1开始
     
142.     (up-set-target-point gl-point-x)      ;将据点座标设置为搜索圆点
     
143.     (up-full-reset-search)       ;重置直接寻的系统的搜索索引和筛选状态、搜索状态
     
144.     (up-get-search-state gl-local-total)     ;重置搜索数量
     
145. ;   (up-chat-data-to-all "目前据点的X座标是 %d 点" g: gl-point-x)  ;汇报座标
     
146. ;   (up-chat-data-to-all "目前据点的Y座标是 %d 点" g: gl-point-y)
     
147. )
     
148. 
     
149. ;// 查找敌人目标-循环起点B //
     
150. 
     
151. (defrule
     
152.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
153.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
154. =>
     
155.     (up-modify-sn sn-focus-player-number g:= gl-player)    ;设置当前玩家为焦点玩家
     
156. )
     
157. 
     
158. (defrule
     
159.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
160.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
161.     (or (players-stance focus-player enemy)     ;只侦察敌对或中立玩家
     
162. (players-stance focus-player neutral))
     
163. 
     
164. =>
     
165.     (up-filter-distance c: -1 g: gl-point-r)     ;设置搜索半径
     
166.     (up-filter-include 4 -1 -1 -1)      ;只搜寻会移动的军事单位
     
167.     (up-find-remote c: -1 c: 40)      ;上限40
     
168.     (up-remove-objects search-remote object-data-action == actionid-enter)      ;忽略已经驻军的单位
     
169. ;   (up-chat-data-to-all "我在探测 %d 号玩家" g: gl-player)   ;汇报玩家侦察情况
     
170. )
     
171. 
     
172. (defrule
     
173.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
174.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
175. =>
     
176.     (up-get-search-state gl-local-total)     ;记录搜索数量
     
177.     (up-reset-filters)        ;重置过滤器(每次filters后都应当重置才不会出错)
     
178.     (up-modify-goal gl-player c:+ 1)      ;搜索下一个玩家
     
179. )
     
180. 
     
181. (defrule
     
182.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
183.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
184.     (up-compare-goal gl-player c:<= 8)
     
185.     (up-compare-goal gl-remote-total c:< 40)
     
186. =>
     
187.     (up-jump-rule -4)        ;跳回循环起点B
     
188. )
     
189. 
     
190. (defrule
     
191.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
192.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
193. =>
     
194.     (up-get-search-state gl-local-total)     ;记录搜索数量
     
195.     (up-modify-goal gl-enemy-unit-detect g:= gl-remote-total)
     
196.     (up-get-precise-time 0 gl-random-number)     ;利用系统时间生成伪随机数
     
197.     (up-modify-goal gl-random-number g:mod gl-remote-total)   ;伪随机数除以搜索个数得到其中1个
     
198.     (up-chat-data-to-all "我找到了 %d 个敌人" g: gl-remote-total)  ;汇报玩家防御情况
     
199. )
     
200. 
     
201. (defrule
     
202.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
203.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
204.     (up-compare-goal gl-random-number c:< 0)
     
205. =>
     
206.     (up-modify-goal gl-random-number c:* -1)
     
207. )
     
208. 
     
209. (defrule
     
210.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
211.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
212.     (up-compare-goal gl-remote-total c:>= 1)
     
213. =>
     
214.     (up-remove-objects search-remote object-data-index g:!= gl-random-number) ;只瞄准一个单位
     
215.     (up-set-target-object search-remote c: 0)     ;将该单位设为目标单位
     
216.     (up-get-point position-object gl-point-x2)     ;将该单位座标存入x2
     
217. )
     
218. 
     
219. (defrule
     
220.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
221.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
222.     (up-compare-goal gl-remote-total c:>= 1)     ;搜索到目标
     
223.     (up-path-distance gl-point-x2 1 == 65535)     ;目标无法到达
     
224. =>
     
225.     (up-modify-goal gl-enemy-unit-detect c:= 0)     ;潜在敌人数为0
     
226. )
     
227. 
     
228. ;// 检测可安排的兵力 //
     
229. 
     
230. (defrule
     
231.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
232.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
233.     (up-modify-goal gl-enemy-unit-detect c:>= 1)    ;搜索到可攻击的敌人单位数至少为1
     
234. =>
     
235.     (up-full-reset-search)       ;重置直接寻的系统的搜索索引和筛选状态、搜索状态
     
236.     (up-get-search-state gl-local-total)     ;重置搜索数量
     
237.     (up-set-target-point gl-point-x)      ;将据点座标设置为搜索圆点
     
238.     (up-filter-distance c: -1 g: gl-point-r)     ;设置搜索半径
     
239.     (up-filter-include 4 -1 -1 -1)      ;只搜寻会移动的军事单位
     
240.     (up-find-local c: -1 c: 200)      ;搜索目标附近的自军单位，上限200
     
241.     (up-remove-objects search-local object-data-target-id c:!= -1)   ;忽略正在攻击的单位
     
242.     (up-remove-objects search-local object-data-next-attack c:> 0)   ;忽略正在交战的单位
     
243. ;   (up-remove-objects search-local object-data-tasks-count c:>= 1)  ;忽略已有任务的单位
     
244. ;   (up-remove-objects search-local object-data-attacker-count c:>= 1)
     
245. ;   (up-remove-objects search-local object-data-group-flag c:!= -2)  ;忽略已有组队的单位
     
246. ;   (up-remove-objects search-local object-data-index c:>= 1)
     
247. )
     
248. 
     
249. ;// 让闲置兵力向发现敌人的位置巡逻 //
     
250. 
     
251. (defrule
     
252.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
253.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
254.     (up-compare-goal gl-enemy-unit-detect c:>= 1)    ;搜索到可攻击的敌人单位数至少为1
     
255. =>
     
256. ;   (up-send-flare gl-point-x)       ;产生自己的闪光信号
     
257.     (up-target-point gl-point-x2 action-patrol -1 stance-aggressive)  ;用巡逻方式、攻击姿态向目标进发
     
258.     (up-chat-data-to-all "我在防御 %d 号据点" g: POINT)    ;汇报玩家防御情况
     
259. )
     
260. 
     
261. ;// 去下一个据点指挥 //
     
262. 
     
263. (defrule
     
264.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
265.     (up-compare-goal POINT g:< POINT-max)     ;未遍历完全部据点
     
266.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
267. =>
     
268.     (up-modify-goal POINT c:+ 1)      ;进入下一个据点
     
269.     (up-jump-rule -14)        ;跳回循环起点A，为负(12+最大据点数)
     
270. )
     
271. 
     
272. ;// 完成所有据点后延时，避免单位抽风 //
     
273. 
     
274. (defrule
     
275.     (up-compare-goal POINT c:> 0)      ;据点防御模式开启
     
276.     (timer-triggered 1)        ;定时器1，每60秒检测一次
     
277. =>
     
278.     (disable-timer 1)        ;关闭定时器1
     
279.     (enable-timer 1 60)        ;重新激活定时器1，时间为60秒（可按需要缩短）
     
280. )
     
281. 
     
282. ;// 关闭据点防御只要把PONIT设为0 //
     
283. 
     

复制代码

wangzhen

据点坐标定死了吗

春田一九零三

wangzhen 发表于 2021-4-9 12:54
据点坐标定死了吗

根据使用情况自己改

ziranjun

大佬还在吗，想了解一下这个据点防御功能的一些问题，有空解答吗