求同一建筑依次训练不同兵种的语句

期悦

现在用计时器的写法，有没有更高明的方法？

1. ;训练步弓手
   
2. (defrule
   
3.   (timer-triggered 6)
   
4.   (housing-headroom > 0)
   
5. =>
   
6.   (disable-timer 6)
   
7.   (enable-timer 7 2)
   
8.   (train 4)
   
9. )
   
10. 
    
11. ;训练藤甲弓兵
    
12. (defrule
    
13.   (timer-triggered 7)
    
14.   (housing-headroom > 0)
    
15. =>
    
16.   (disable-timer 7)
    
17.   (enable-timer 8 2)
    
18.   (train 1129)
    
19. )
    
20. 
    
21. ;训练骑射手
    
22. (defrule
    
23.   (timer-triggered 8)
    
24.   (housing-headroom > 0)
    
25. =>
    
26.   (disable-timer 8)
    
27.   (enable-timer 9 2)
    
28.   (train 39)
    
29. )
    
30. 
    
31. ;训练火枪手
    
32. (defrule
    
33.   (timer-triggered 9)
    
34.   (housing-headroom > 0)
    
35. =>
    
36.   (disable-timer 9)
    
37.   (enable-timer 6 2)
    
38.   (train 5)
    
39. )

复制代码

wangzhen

配合运算结果控制训练顺序

blazefires

(defconst gl-train-flag 100)

(defconst archer-flag 1)
(defconst rattan-flag 2)
(defconst cavalry-archer-flag 4)
(defconst hand-cannoner-flag 8)

(defrule
    (true)
=>
    (up-modify-flag gl-train-flag c:+ archer-flag)
    (enable-timer 1 0)
    (disable-self)
)

(defrule
    (up-timer-status 1 == 2)
=>
    (up-jump-rule 5)
)

(defrule
    (true)
=>
    (up-full-reset-search)
    (up-find-local c: archery-range c: 1)
    (disable-timer 1)
    (enable-timer 1 2)
)

(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== archer-flag)
=>
    (up-target-point 0 action-train c: 4)
    (up-modify-flag gl-train-flag c:- archer-flag)
    (up-modify-flag gl-train-flag c:+ rattan-flag)
    (up-jump-rule 3)
)
(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== rattan-flag)
=>
    (up-target-point 0 action-train c: 1129)
    (up-modify-flag gl-train-flag c:- rattan-flag)
    (up-modify-flag gl-train-flag c:+ cavalry-archer-flag)
    (up-jump-rule 2)
)
(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== cavalry-archer-flag)
=>
    (up-target-point 0 action-train c: 39)
    (up-modify-flag gl-train-flag c:- cavalry-archer-flag)
    (up-modify-flag gl-train-flag c:+ hand-cannoner-flag)
    (up-jump-rule 1)
)
(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== hand-cannoner-flag)
=>
    (up-target-point 0 action-train c: 5)
    (up-modify-flag gl-train-flag c:- hand-cannoner-flag)
    (up-modify-flag gl-train-flag c:+ archer-flag)
)

只用去一个goal和一个计时器而已
另外请你先确定藤弓射手能在靶场训练

blazefires

(defconst some-goal 100)
(defrule
    (true)
=>
    (set-goal some-goal 666)
)

这指的是你仍然可以在其他地方使用100号goal，与训练规则互不干扰
如果再把1号计时器去掉，这样就完全没有使用到任何 1.计时器 2.goal ，即完成结果，手法最高明。

期悦

blazefires 发表于 2020-7-6 22:07
(defconst gl-train-flag 100)

(defconst archer-flag 1)

我试了下你的方法，可他只训练藤甲弓，不训练其他三种兵，忘了说我用的是决定版....

blazefires

(defconst gl-train-flag 100)

(defconst archer-flag 1)
(defconst rattan-flag 2)
(defconst cavalry-archer-flag 4)
(defconst hand-cannoner-flag 8)

(defrule
    (true)
=>
    (up-modify-flag gl-train-flag c:+ archer-flag)
    (disable-self)
)

(defrule
    (true)
=>
    (up-full-reset-search)
    (up-find-local c: archery-range c: 1)
)

(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== archer-flag)
=>
    (up-target-point 0 action-train c: 4)
    (up-modify-flag gl-train-flag c:- archer-flag)
    (up-modify-flag gl-train-flag c:+ rattan-flag)
    (up-jump-rule 3)
)
(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== rattan-flag)
=>
    (up-target-point 0 action-train c: 1129)
    (up-modify-flag gl-train-flag c:- rattan-flag)
    (up-modify-flag gl-train-flag c:+ cavalry-archer-flag)
    (up-jump-rule 2)
)
(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== cavalry-archer-flag)
=>
    (up-target-point 0 action-train c: 39)
    (up-modify-flag gl-train-flag c:- cavalry-archer-flag)
    (up-modify-flag gl-train-flag c:+ hand-cannoner-flag)
    (up-jump-rule 1)
)
(defrule
    (up-set-target-object search-local c: 0)
    (up-object-data object-data-train-count c:< 15)
    (up-compare-flag gl-train-flag c:== hand-cannoner-flag)
=>
    (up-target-point 0 action-train c: 5)
    (up-modify-flag gl-train-flag c:- hand-cannoner-flag)
    (up-modify-flag gl-train-flag c:+ archer-flag)
)

这样就好，还是得有一个goal变量要消耗掉才行

期悦

blazefires 发表于 2020-7-7 11:13
(defconst gl-train-flag 100)

(defconst archer-flag 1)

可以了，谢谢

newtonerdai

blazefires 发表于 2020-7-7 01:18
(defconst some-goal 100)
(defrule
    (true)

我自己测试发现（UP1.5）：
先(up-modify-flag some-goal c:+ 1)，然后(set-goal some-goal 666)，结果会是set-goal把二进制位给覆盖掉了。



而如果是先 set-goal 再 up-modify-flag ，则普通goal会被+1，而同时标志flag也能正常储存二进制数位

期悦

blazefires 发表于 2020-7-7 11:13
(defconst gl-train-flag 100)

(defconst archer-flag 1)

现在有一个情况，这份AI单独测试没问题，但我把他塞到我的战役AI里就报错了