我发现HD版有个大BUG！

凌果

该说是游戏的BUG呢，还是AI的BUG呢？
简单而言就是up-jump-rule 负数，其效果跟up-jump-rule 正数是一样的！
也就是(up-jump-rule -1)等效于(up-jump-rule 1)
(up-jump-rule -2)等效于(up-jump-rule 2)，以此类推。
原本up-jump-rule负数应该是循环/重复执行上面的规则才正确，然而现在变成了向下跳过规则。

拜这个BUG所赐，AI也就有问题。以HD的默认AI，Promisory.per2为例。
Promisory.per2共有3处up-jump-rule 负数，都与sn-focus-player-number有关，从而导致这三处本该循环的规则仅执行了sn-focus-player-number == 1的部分。且更重要的是使得这三处以外绝大部分的sn-focus-player-number都固定为2。

从而数百条应用focus-player这个百搭参数的条目都仅针对玩家2。(只有少部分例外，约5000~15000行和约30000行后的sn-focus-player-number有被重新赋值)

本帖18楼有HD版的默认AI修正文件，含大量修正项目及列表
19楼有Notepad++用的帝国2AI编辑语法高亮方案

凌果

除了这个BUG以外，我还发现Promisory.per2有不少小BUG。那些都还算比较好修复。

顺便一提，即使有这个BUG存在，Promisory.per2的AI表现大部分情况下还算正常，如果不是我在玩的过程中碰到一些情况我也许都没能发现。

wongyuhua

Promi本来就是基于UserPatch编写的，移植到HD版后，官方又不好意思完全兼(chao)容(xi)UP的高级AI命令，难道对不兼容命令的处理都是这样直接跳过的？难怪HD早期版本AI经常犯傻

条顿武士

只能说HD被UP完全比下去了…照葫芦画瓢都能画错也是没谁了…

chifeiyen

HD官方AI是有不少问题，我在创意工坊上发布了个修改的Mod如下：
因为本人对AI不太懂，目前主要修改了以下几项：
1.楼上大大wongyuhua对投降条件的修改，让AI不会轻易投降；
2.AI远程单位不会放风筝走位；
3.AI不会再把一群兵围绕在一个建筑周围一圈发呆（这是个Bug，非洲DLC还没有的，蛮王DLC才有，原因是蛮王开始sn-gather-defense-units策略值设置成了1，我改成0就好了）。

除了楼主说的Bug外，还有以下希望修正的问题我不知如何实现：
1.柏柏尔从来不出骆驼射手；
2.印加从来不出投石兵；
3.缅甸和马来极少出象兵；
4.意大利从不出佣兵（反而维京马里哥特会出佣兵）；
5.无法让AI会用步兵驻扎进冲车（AOC原版AI是会的）；
6.坐中的AI在坐边盟友被攻击时不及时给予支援。

如果各位大大有兴趣，希望可以订阅我发布的AI试着修改修改，小弟懂得不多有点力不能及。

凌果

关于1楼说到的BUG，我的修正方案是既然不能用循环，那就将其摊开来写。本应循环8次(1至8)，我就分开8段来写。
总共三处有问题的地方，以下是第一处有问题的地方的原代码：

(defrule         (up-timer-status one-minute-timer != timer-running) =>         (up-modify-goal math-goal s:= sn-focus-player-number)         (set-strategic-number sn-focus-player-number 1)         (set-goal allies 0)         (set-goal enemies 0)) (defrule; end neg jump         (up-timer-status one-minute-timer != timer-running) (or        (players-stance focus-player ally)         (stance-toward focus-player ally))         (player-in-game focus-player) =>         (up-modify-goal allies c:+ 1)) (defrule         (up-timer-status one-minute-timer != timer-running) (nor        (players-stance focus-player ally)         (stance-toward focus-player ally))         (player-in-game focus-player) =>         (up-modify-goal enemies c:+ 1)) (defrule         (up-timer-status one-minute-timer != timer-running)         (strategic-number sn-focus-player-number < 8) =>         (up-modify-sn sn-focus-player-number c:+ 1)         (up-jump-rule -3)) (defrule         (up-timer-status one-minute-timer != timer-running) =>         (up-modify-sn sn-focus-player-number g:= math-goal)         (up-modify-sn teambalance g:= allies)         (up-modify-sn teambalance g:- enemies)         (up-modify-sn teambalance c:max -1)         (up-modify-sn teambalance c:min 1)) 复制代码

以下是我的修正方案：

(defrule;改修正向上跳转第一处开始         (up-timer-status one-minute-timer == timer-running) =>         (up-jump-rule 18) ) (defrule         (up-timer-status one-minute-timer != timer-running) => ;        (up-modify-goal math-goal s:= sn-focus-player-number) ;        (set-strategic-number sn-focus-player-number 1)         (set-goal allies 0)         (set-goal enemies 0)) (defrule ;        (up-timer-status one-minute-timer != timer-running) (or        (players-stance 1 ally)         (stance-toward 1 ally))         (player-in-game 1) =>         (up-modify-goal allies c:+ 1)) (defrule ;        (up-timer-status one-minute-timer != timer-running) (nor        (players-stance 1 ally)         (stance-toward 1 ally))         (player-in-game 1) =>         (up-modify-goal enemies c:+ 1)) ;(defrule ;        (up-timer-status one-minute-timer != timer-running) ;        (strategic-number sn-focus-player-number < 8) ;=> ;        (up-modify-sn sn-focus-player-number c:+ 1) ;        (up-jump-rule -3) ;) (defrule (or        (players-stance 2 ally)         (stance-toward 2 ally))         (player-in-game 2) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 2 ally)         (stance-toward 2 ally))         (player-in-game 2) =>         (up-modify-goal enemies c:+ 1)) (defrule (or        (players-stance 3 ally)         (stance-toward 3 ally))         (player-in-game 3) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 3 ally)         (stance-toward 3 ally))         (player-in-game 3) =>         (up-modify-goal enemies c:+ 1)) (defrule (or        (players-stance 4 ally)         (stance-toward 4 ally))         (player-in-game 4) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 4 ally)         (stance-toward 4 ally))         (player-in-game 4) =>         (up-modify-goal enemies c:+ 1)) (defrule (or        (players-stance 5 ally)         (stance-toward 5 ally))         (player-in-game 5) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 5 ally)         (stance-toward 5 ally))         (player-in-game 5) =>         (up-modify-goal enemies c:+ 1)) (defrule (or        (players-stance 6 ally)         (stance-toward 6 ally))         (player-in-game 6) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 6 ally)         (stance-toward 6 ally))         (player-in-game 6) =>         (up-modify-goal enemies c:+ 1)) (defrule (or        (players-stance 7 ally)         (stance-toward 7 ally))         (player-in-game 7) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 7 ally)         (stance-toward 7 ally))         (player-in-game 7) =>         (up-modify-goal enemies c:+ 1)) (defrule (or        (players-stance 8 ally)         (stance-toward 8 ally))         (player-in-game 8) =>         (up-modify-goal allies c:+ 1)) (defrule (nor        (players-stance 8 ally)         (stance-toward 8 ally))         (player-in-game 8) =>         (up-modify-goal enemies c:+ 1)) (defrule;改修正向上跳转第一处结束         (up-timer-status one-minute-timer != timer-running) => ;        (up-modify-sn sn-focus-player-number g:= math-goal)         (up-modify-sn teambalance g:= allies)         (up-modify-sn teambalance g:- enemies)         (up-modify-sn teambalance c:max -1)         (up-modify-sn teambalance c:min 1)) 复制代码

第二处有问题的地方：

(defrule         (true) =>         (set-goal assistance no)         (up-modify-goal math-goal s:= sn-focus-player-number)         (set-strategic-number sn-focus-player-number 1)) (defrule         (player-in-game focus-player); valid         (stance-toward focus-player ally)         (strategic-number sn-focus-player-number != my-player-number)         (up-allied-sn focus-player sn-target-player-number s:== sn-target-player-number)         (up-allied-goal focus-player team-coordination-goal == 1); attacking         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)) (defrule         (up-compare-goal assistance != yes)         (strategic-number sn-focus-player-number < 8) =>         (up-modify-sn sn-focus-player-number c:+ 1)         (up-jump-rule -2)) (defrule         (true) =>         (up-modify-sn sn-focus-player-number g:= math-goal)) 复制代码

修正方案：

(defrule;改修正向上跳转第二处开始         (true) =>         (set-goal assistance no) ;        (up-modify-goal math-goal s:= sn-focus-player-number) ;        (set-strategic-number sn-focus-player-number 1) ) (defrule         (player-in-game 1)         (stance-toward 1 ally) ;        (strategic-number sn-focus-player-number != my-player-number)         (up-compare-const my-player-number != 1)         (up-allied-sn 1 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 1 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 7) ) (defrule         (player-in-game 2)         (stance-toward 2 ally)         (up-compare-const my-player-number != 2)         (up-allied-sn 2 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 2 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 6) ) (defrule         (player-in-game 3)         (stance-toward 3 ally)         (up-compare-const my-player-number != 3)         (up-allied-sn 3 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 3 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 5) ) (defrule         (player-in-game 4)         (stance-toward 4 ally)         (up-compare-const my-player-number != 4)         (up-allied-sn 4 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 4 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 4) ) (defrule         (player-in-game 5)         (stance-toward 5 ally)         (up-compare-const my-player-number != 5)         (up-allied-sn 5 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 5 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 3) ) (defrule         (player-in-game 6)         (stance-toward 6 ally)         (up-compare-const my-player-number != 6)         (up-allied-sn 6 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 6 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 2) ) (defrule         (player-in-game 7)         (stance-toward 7 ally)         (up-compare-const my-player-number != 7)         (up-allied-sn 7 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 7 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes)         (up-jump-rule 1) ) (defrule         (player-in-game 8)         (stance-toward 8 ally)         (up-compare-const my-player-number != 8)         (up-allied-sn 8 sn-target-player-number s:== sn-target-player-number)         (up-allied-goal 8 team-coordination-goal == 1)         (strategic-number sn-target-player-number >= 1)         (strategic-number sn-target-player-number <= 8) =>         (set-goal assistance yes) ) ;(defrule ;        (up-compare-goal assistance != yes) ;        (strategic-number sn-focus-player-number < 8) ;=> ;        (up-modify-sn sn-focus-player-number c:+ 1) ;        (up-jump-rule -2) ;) ;(defrule;改修正向上跳转第二处结束 ;        (true) ;=> ;        (up-modify-sn sn-focus-player-number g:= math-goal)) 复制代码

第三处有问题的地方：

(defrule; auto-tribute - what a time to be alive (or        (building-type-count market < 1) (or        (not        (player-in-game any-ally)) ;(or        (strategic-number sn-current-age < imperial) (or        (and        (food-amount < 2400)                 (and        (wood-amount < 2400)                         (gold-amount < 2400))) (or        (up-compare-goal under-attack-goal >= 1)         (up-research-status c: ri-banking < research-complete)))));) =>         (up-jump-rule 6)); 7 (defrule         (true) =>         (up-modify-goal math-goal s:= sn-focus-player-number)         (set-strategic-number sn-focus-player-number 1)         (set-goal math-goal2 0)) (defrule         (building-type-count market >= 1)         (food-amount >= 2400)         (players-population focus-player > 30) (or        (players-unit-type-count focus-player villager >= 20)         (players-building-type-count focus-player town-center >= 1))         (stance-toward focus-player ally)         (player-in-game focus-player)         (strategic-number sn-focus-player-number != my-player-number)         (up-allied-resource-amount focus-player food < 1000) =>         (tribute-to-player focus-player food 1000)         (chat-to-player-using-id focus-player 22077); "Here is some food!"         (chat-local-to-self "Tributing 1000 food to an ally.")         (set-goal math-goal2 1)) (defrule         (building-type-count market >= 1)         (wood-amount >= 2400)         (players-population focus-player > 30) (or        (players-unit-type-count focus-player villager >= 20)         (players-building-type-count focus-player town-center >= 1))         (stance-toward focus-player ally)         (player-in-game focus-player)         (strategic-number sn-focus-player-number != my-player-number)         (up-allied-resource-amount focus-player wood < 1000) =>         (tribute-to-player focus-player wood 1000)         (chat-to-player-using-id focus-player 22076); "Here is some wood!"         (chat-local-to-self "Tributing 1000 wood to an ally.")         (set-goal math-goal2 1)) (defrule         (building-type-count market >= 1)         (gold-amount >= 2400)         (players-population focus-player > 30) (or        (players-unit-type-count focus-player villager >= 20)         (players-building-type-count focus-player town-center >= 1))         (stance-toward focus-player ally)         (player-in-game focus-player)         (strategic-number sn-focus-player-number != my-player-number)         (up-allied-resource-amount focus-player gold < 1000) =>         (tribute-to-player focus-player gold 1000)         (chat-to-player-using-id focus-player 22078); "Here is some gold!"         (chat-local-to-self "Tributing 1000 gold to an ally.")         (set-goal math-goal2 1)) ;(defrule ;        (building-type-count market >= 1) ;        (stone-amount >= 260) ;        (building-type-count-total castle >= 5) ;        (players-population focus-player > 30) ;(or        (players-unit-type-count focus-player villager >= 20) ;        (players-building-type-count focus-player town-center >= 1)) ;        (stance-toward focus-player ally) ;        (player-in-game focus-player) ;        (strategic-number sn-focus-player-number != my-player-number) ;        (up-allied-resource-amount focus-player stone < 100) ;=> ;        (tribute-to-player focus-player stone 100) ;        (chat-to-player-using-id focus-player 22079); "Here is some stone!" ;        (chat-local-to-self "Tributing 100 stone to an ally.") ;        (set-goal math-goal2 1)) (defrule         (up-compare-goal math-goal2 != 1)         (strategic-number sn-focus-player-number < 8) =>         (up-modify-sn sn-focus-player-number c:+ 1)         (up-jump-rule -4)); 5 (defrule         (true) =>         (up-modify-sn sn-focus-player-number g:= math-goal)); end jump 复制代码

修正方案：

(defrule;改修正向上跳转第三处开始 (or        (up-timer-status tensec == timer-running) (or        (building-type-count market < 1) (or        (not        (player-in-game any-ally)) (or        (and        (food-amount < 2400)         (and        (wood-amount < 2400)                 (gold-amount < 2400))) (or        (up-compare-goal under-attack-goal >= 1)         (up-research-status c: ri-banking < research-complete)))))) =>         (up-jump-rule 24) ) ;(defrule ;        (true) ;=> ;        (up-modify-goal math-goal s:= sn-focus-player-number) ;        (set-strategic-number sn-focus-player-number 1) ;        (set-goal math-goal2 0)) (defrule         (food-amount >= 2400)         (players-population 1 > 30) (or        (players-unit-type-count 1 villager >= 20)         (players-building-type-count 1 town-center >= 1))         (stance-toward 1 ally)         (player-in-game 1) ;        (strategic-number sn-focus-player-number != my-player-number)         (up-compare-const my-player-number != 1)         (up-allied-resource-amount 1 food < 1000) =>         (tribute-to-player 1 food 1000)         (chat-to-player-using-id 1 22077); "Here is some food!"         (chat-local-to-self "Tributing 1000 food to an ally.") ;        (set-goal math-goal2 1) ) (defrule         (wood-amount >= 2400)         (players-population 1 > 30) (or        (players-unit-type-count 1 villager >= 20)         (players-building-type-count 1 town-center >= 1))         (stance-toward 1 ally)         (player-in-game 1) ;        (strategic-number sn-focus-player-number != my-player-number)         (up-compare-const my-player-number != 1)         (up-allied-resource-amount 1 wood < 1000) =>         (tribute-to-player 1 wood 1000)         (chat-to-player-using-id 1 22076); "Here is some wood!"         (chat-local-to-self "Tributing 1000 wood to an ally.") ;        (set-goal math-goal2 1) ) (defrule         (gold-amount >= 2400)         (players-population 1 > 30) (or        (players-unit-type-count 1 villager >= 20)         (players-building-type-count 1 town-center >= 1))         (stance-toward 1 ally)         (player-in-game 1) ;        (strategic-number sn-focus-player-number != my-player-number)         (up-compare-const my-player-number != 1)         (up-allied-resource-amount 1 gold < 1000) =>         (tribute-to-player 1 gold 1000)         (chat-to-player-using-id 1 22078); "Here is some gold!"         (chat-local-to-self "Tributing 1000 gold to an ally.") ;        (set-goal math-goal2 1) ) ;(defrule ;        (building-type-count market >= 1) ;        (stone-amount >= 260) ;        (building-type-count-total castle >= 5) ;        (players-population focus-player > 30) ;(or        (players-unit-type-count focus-player villager >= 20) ;        (players-building-type-count focus-player town-center >= 1)) ;        (stance-toward focus-player ally) ;        (player-in-game focus-player) ;        (strategic-number sn-focus-player-number != my-player-number) ;        (up-allied-resource-amount focus-player stone < 100) ;=> ;        (tribute-to-player focus-player stone 100) ;        (chat-to-player-using-id focus-player 22079); "Here is some stone!" ;        (chat-local-to-self "Tributing 100 stone to an ally.") ;        (set-goal math-goal2 1)) (defrule         (food-amount >= 2400)         (players-population 2 > 30) (or        (players-unit-type-count 2 villager >= 20)         (players-building-type-count 2 town-center >= 1))         (stance-toward 2 ally)         (player-in-game 2)         (up-compare-const my-player-number != 2)         (up-allied-resource-amount 2 food < 1000) =>         (tribute-to-player 2 food 1000)         (chat-to-player-using-id 2 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 2 > 30) (or        (players-unit-type-count 2 villager >= 20)         (players-building-type-count 2 town-center >= 1))         (stance-toward 2 ally)         (player-in-game 2)         (up-compare-const my-player-number != 2)         (up-allied-resource-amount 2 wood < 1000) =>         (tribute-to-player 2 wood 1000)         (chat-to-player-using-id 2 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 2 > 30) (or        (players-unit-type-count 2 villager >= 20)         (players-building-type-count 2 town-center >= 1))         (stance-toward 2 ally)         (player-in-game 2)         (up-compare-const my-player-number != 2)         (up-allied-resource-amount 2 gold < 1000) =>         (tribute-to-player 2 gold 1000)         (chat-to-player-using-id 2 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) (defrule         (food-amount >= 2400)         (players-population 3 > 30) (or        (players-unit-type-count 3 villager >= 20)         (players-building-type-count 3 town-center >= 1))         (stance-toward 3 ally)         (player-in-game 3)         (up-compare-const my-player-number != 3)         (up-allied-resource-amount 3 food < 1000) =>         (tribute-to-player 3 food 1000)         (chat-to-player-using-id 3 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 3 > 30) (or        (players-unit-type-count 3 villager >= 20)         (players-building-type-count 3 town-center >= 1))         (stance-toward 3 ally)         (player-in-game 3)         (up-compare-const my-player-number != 3)         (up-allied-resource-amount 3 wood < 1000) =>         (tribute-to-player 3 wood 1000)         (chat-to-player-using-id 3 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 3 > 30) (or        (players-unit-type-count 3 villager >= 20)         (players-building-type-count 3 town-center >= 1))         (stance-toward 3 ally)         (player-in-game 3)         (up-compare-const my-player-number != 3)         (up-allied-resource-amount 3 gold < 1000) =>         (tribute-to-player 3 gold 1000)         (chat-to-player-using-id 3 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) (defrule         (food-amount >= 2400)         (players-population 4 > 30) (or        (players-unit-type-count 4 villager >= 20)         (players-building-type-count 4 town-center >= 1))         (stance-toward 4 ally)         (player-in-game 4)         (up-compare-const my-player-number != 4)         (up-allied-resource-amount 4 food < 1000) =>         (tribute-to-player 4 food 1000)         (chat-to-player-using-id 4 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 4 > 30) (or        (players-unit-type-count 4 villager >= 20)         (players-building-type-count 4 town-center >= 1))         (stance-toward 4 ally)         (player-in-game 4)         (up-compare-const my-player-number != 4)         (up-allied-resource-amount 4 wood < 1000) =>         (tribute-to-player 4 wood 1000)         (chat-to-player-using-id 4 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 4 > 30) (or        (players-unit-type-count 4 villager >= 20)         (players-building-type-count 4 town-center >= 1))         (stance-toward 4 ally)         (player-in-game 4)         (up-compare-const my-player-number != 4)         (up-allied-resource-amount 4 gold < 1000) =>         (tribute-to-player 4 gold 1000)         (chat-to-player-using-id 4 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) (defrule         (food-amount >= 2400)         (players-population 5 > 30) (or        (players-unit-type-count 5 villager >= 20)         (players-building-type-count 5 town-center >= 1))         (stance-toward 5 ally)         (player-in-game 5)         (up-compare-const my-player-number != 5)         (up-allied-resource-amount 5 food < 1000) =>         (tribute-to-player 5 food 1000)         (chat-to-player-using-id 5 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 5 > 30) (or        (players-unit-type-count 5 villager >= 20)         (players-building-type-count 5 town-center >= 1))         (stance-toward 5 ally)         (player-in-game 5)         (up-compare-const my-player-number != 5)         (up-allied-resource-amount 5 wood < 1000) =>         (tribute-to-player 5 wood 1000)         (chat-to-player-using-id 5 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 5 > 30) (or        (players-unit-type-count 5 villager >= 20)         (players-building-type-count 5 town-center >= 1))         (stance-toward 5 ally)         (player-in-game 5)         (up-compare-const my-player-number != 5)         (up-allied-resource-amount 5 gold < 1000) =>         (tribute-to-player 5 gold 1000)         (chat-to-player-using-id 5 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) (defrule         (food-amount >= 2400)         (players-population 6 > 30) (or        (players-unit-type-count 6 villager >= 20)         (players-building-type-count 6 town-center >= 1))         (stance-toward 6 ally)         (player-in-game 6)         (up-compare-const my-player-number != 6)         (up-allied-resource-amount 6 food < 1000) =>         (tribute-to-player 6 food 1000)         (chat-to-player-using-id 6 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 6 > 30) (or        (players-unit-type-count 6 villager >= 20)         (players-building-type-count 6 town-center >= 1))         (stance-toward 6 ally)         (player-in-game 6)         (up-compare-const my-player-number != 6)         (up-allied-resource-amount 6 wood < 1000) =>         (tribute-to-player 6 wood 1000)         (chat-to-player-using-id 6 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 6 > 30) (or        (players-unit-type-count 6 villager >= 20)         (players-building-type-count 6 town-center >= 1))         (stance-toward 6 ally)         (player-in-game 6)         (up-compare-const my-player-number != 6)         (up-allied-resource-amount 6 gold < 1000) =>         (tribute-to-player 6 gold 1000)         (chat-to-player-using-id 6 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) (defrule         (food-amount >= 2400)         (players-population 7 > 30) (or        (players-unit-type-count 7 villager >= 20)         (players-building-type-count 7 town-center >= 1))         (stance-toward 7 ally)         (player-in-game 7)         (up-compare-const my-player-number != 7)         (up-allied-resource-amount 7 food < 1000) =>         (tribute-to-player 7 food 1000)         (chat-to-player-using-id 7 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 7 > 30) (or        (players-unit-type-count 7 villager >= 20)         (players-building-type-count 7 town-center >= 1))         (stance-toward 7 ally)         (player-in-game 7)         (up-compare-const my-player-number != 7)         (up-allied-resource-amount 7 wood < 1000) =>         (tribute-to-player 7 wood 1000)         (chat-to-player-using-id 7 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 7 > 30) (or        (players-unit-type-count 7 villager >= 20)         (players-building-type-count 7 town-center >= 1))         (stance-toward 7 ally)         (player-in-game 7)         (up-compare-const my-player-number != 7)         (up-allied-resource-amount 7 gold < 1000) =>         (tribute-to-player 7 gold 1000)         (chat-to-player-using-id 7 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) (defrule         (food-amount >= 2400)         (players-population 8 > 30) (or        (players-unit-type-count 8 villager >= 20)         (players-building-type-count 8 town-center >= 1))         (stance-toward 8 ally)         (player-in-game 8)         (up-compare-const my-player-number != 8)         (up-allied-resource-amount 8 food < 1000) =>         (tribute-to-player 8 food 1000)         (chat-to-player-using-id 8 22077)         (chat-local-to-self "Tributing 1000 food to an ally.") ) (defrule         (wood-amount >= 2400)         (players-population 8 > 30) (or        (players-unit-type-count 8 villager >= 20)         (players-building-type-count 8 town-center >= 1))         (stance-toward 8 ally)         (player-in-game 8)         (up-compare-const my-player-number != 8)         (up-allied-resource-amount 8 wood < 1000) =>         (tribute-to-player 8 wood 1000)         (chat-to-player-using-id 8 22076)         (chat-local-to-self "Tributing 1000 wood to an ally.") ) (defrule         (gold-amount >= 2400)         (players-population 8 > 30) (or        (players-unit-type-count 8 villager >= 20)         (players-building-type-count 8 town-center >= 1))         (stance-toward 8 ally)         (player-in-game 8)         (up-compare-const my-player-number != 8)         (up-allied-resource-amount 8 gold < 1000) =>         (tribute-to-player 8 gold 1000)         (chat-to-player-using-id 8 22078)         (chat-local-to-self "Tributing 1000 gold to an ally.") ) ;(defrule ;        (up-compare-goal math-goal2 != 1) ;        (strategic-number sn-focus-player-number < 8) ;=> ;        (up-modify-sn sn-focus-player-number c:+ 1) ;        (up-jump-rule -4); 5 ;) ;(defrule;改修正向上跳转第三处结束 ;        (true) ;=> ;        (up-modify-sn sn-focus-player-number g:= math-goal)) 复制代码

都比较长，毕竟是大BUG。我自己测试后，涉及focus-player的方面，AI的表现确实是更正常了。

chifeiyen

HD官方AI是有不少问题，我在创意工坊上发布了个修改的Mod如下：

因为本人对AI不太懂，目前主要修改了以下几项：

@凌果

凌果

我来慢慢回答一下吧。
首先关于训练某种兵种这类，直接相关的就是要找到(train xxxxxx)，例如训练投石手就查找(train slinger)，这是最直接相关的。
然后部分单位可能会有间接相关之处，就是民族策略，例如印加就查找#load-if-defined INCAN-CIV，一般第一条和第二条分别是民族策略相关常数和策略具体规则。

骆驼射手相关：
由于特种兵都是用(train my-unique-unit-line)，所以搜索(train my-unique-unit-line)之后需要逐条细看，排除掉其它文明的特种兵的规则。
我找了，然后找到跟训练骆驼射手有关的是以下两条规则：

(defrule         (strategic-number sn-resource-control < 1) (or        (players-unit-type-count focus-player cavalry-archer-line >= 5)         (players-unit-type-count focus-player mangudai >= 5)) (or        (players-unit-type-count focus-player cavalry-archer-line >= 15) (or        (players-unit-type-count focus-player mangudai >= 15)         (unit-type-count my-unique-unit-line < 15))) (or        (players-unit-type-count focus-player cavalry-archer-line >= 30) (or        (players-unit-type-count focus-player mangudai >= 30)         (unit-type-count my-unique-unit-line < 30)))         (can-train my-unique-unit-line) =>         (train my-unique-unit-line) ) 复制代码

(defrule         (strategic-number sn-resource-control < 1)         (can-train my-unique-unit-line) (or        (up-research-status c: my-unique-unit-upgrade >= research-pending) (or        (goal unit-goal my-unique-unit-line)         (goal control-goal my-unique-unit-line))) (or        (up-compare-goal custom-civ-pop > 75);        (unit-type-count villager > 75) (or        (goal train-civ-goal -1)         (food-amount >= unique-unit-food))) (or        (current-age == castle-age)         (gold-amount > 100)) =>         (train my-unique-unit-line) ) 复制代码

先讲第一条规则，训练的条件是必须要焦点玩家(即focus-player)有5个以上的骑射手或蒙古突骑才允许训练，有15个以上才允许训练超过15个骆射，有30个以上才允许训练30个骆射。
骆射作为克制骑射手的单位，这条规则看似没有问题(虽然没有考虑到克制象射手、马车、飞镖骑兵等)，然而这里就关系到1楼所说的BUG了。1楼所说的BUG影响到focus-player，使得focus-player固定为玩家2。也就是只看玩家2是否训练了一堆骑射手。只要按6楼的方式修正之后，这条训练骆射的规则就没什么问题。（当然可以考虑加入克制象射手、马车、飞镖骑兵等）

讲第二条规则，第二条规则实现难点在于以下3行：
(or        (up-research-status c: my-unique-unit-upgrade >= research-pending)
(or        (goal unit-goal my-unique-unit-line)
        (goal control-goal my-unique-unit-line)))
即当骆射没有升级成精锐骆射之前，需要unit-goal或control-goal为特种兵才允许训练。unit-goal或control-goal（就暂称为目标兵种吧）需要去查柏柏尔的民族策略，查找#load-if-defined BERBERS-CIV，第二条。然后高亮my-unique-unit-line，能发现有以下三条规则涉及目标兵种为特种兵：

(defrule         (strategic-number sn-minimum-water-body-size-for-dock < water-mixed) (or        (or        (and        (goal position-goal pocket)                         (and        (random-number < 73)                                 (random-number >= 65)))                 (regicide-game))         (and        (goal nr-map-goal 1)                 (random-number >= 75)))         (game-time > 13)         (game-time < 60) =>         (set-goal unit-goal my-unique-unit-line)         (set-goal control-goal 0)         (set-goal ranged-unit-type-goal 0)         (set-goal strategy-goal boom)         (set-goal uu-up-goal 1)         (disable-self) ) (defrule         (up-compare-goal unit-goal != my-unique-unit-line)         (up-compare-goal unit-goal != knight)         (up-compare-goal control-goal != my-unique-unit-line)         (up-compare-goal control-goal != knight) (or        (unit-type-count villager > fourty-percent-pop) (or        (up-compare-goal custom-civ-pop >= max-civ)         (population >= max-civ-pop))) (or        (dropsite-min-distance stone < 5)         (building-type-count castle >= 1)) =>         (set-goal unit-goal my-unique-unit-line)         (set-goal uu-up-goal 1)         (set-goal ranged-unit-type-goal 0) ;        (chat-to-player my-player-number "Switching to unique units.") ) (defrule         (up-compare-goal unit-goal != my-unique-unit-line)         (up-compare-goal control-goal != my-unique-unit-line)         (up-compare-goal control-goal != knight); (or        (players-unit-type-count focus-player cavalry-archer-line > high-min-number-upgrade) (or        (players-unit-type-count focus-player mangudai-line > high-min-number-upgrade)         (players-unit-type-count focus-player conquistador-line > high-min-number-upgrade))); for now         (building-type-count castle >= 1) =>         (set-goal control-goal my-unique-unit-line)         (set-goal uu-up-goal 1)         (set-goal ranged-unit-type-goal 0) ;        (chat-to-player my-player-number "Switching to unique units.") ) 复制代码

这三条规则要详细讲也挺麻烦的，简单来说就是
1.当弑君模式时；当柏柏尔位于居中位置时(左右侧有同盟)；当地图是非快攻地图时(例如丛林竞技场、黑森林、堡垒什么之类的)这些情况下有一定概率将目标兵种定为特种兵。
2.人口很多时且目标兵种不为骑兵时将其定为特种兵。
3.焦点玩家骑射手较多时将目标兵种定为特种兵(这里又涉及1楼BUG了)。
总之这几条规则都没什么问题，就是第一条规则里的概率不够大，第二条由于柏柏尔最喜欢目标兵种是骑兵所以可能触发不多，第三条涉及了BUG。所以你见到骆射可能会比较少。
实际上我在游戏的过程中是有见到AI出骆射的，可能是你碰到得少了。

第一个问题写得稍微详细一点，你先看看能不能理解。后面的问题看情况我是写分析还是直接写代码吧。

wongyuhua

凌果大大请直接把改好的PER2分享出来吧？年纪大了，看得眼睛痛
其实骆驼射手不一定要设置为针对性出兵，没钱出标枪，有钱出骆射咯！

wongyuhua

chifeiyen 发表于 2019-5-4 20:15
HD官方AI是有不少问题，我在创意工坊上发布了个修改的Mod如下：
因为本人对AI不太懂，目前主要修改了以下几 ...

前面3条我们讨论过，简化相关规则的前提，或者新增独立而简单的规则应该是可以解决的
4. 我要是意大利也不喜欢出佣兵，又没有步兵文明的加成优势
5. set-strategic-number sn-garrison-rams 0改为1可允许步兵进驻冲车，但不是100%有效，其实如果只驻扎1个的话也没卵用
6. sn-coop-share-attacking 1默认是开启的，但如果没有attack-now这种直接命令来响应同盟的求救，AI很难做到及时支援，用promi作者自己的话来说，就是usually helps ally too late, but better than nothing，你可以加一条规则（参考Boss）：
(defrule
;    (strategic-number sn-maximum-town-size <= 30)
    (not(town-under-attack))
    (soldier-count >= 21)
    (taunt-detected any-ally 222)
    (strategic-number sn-percent-attack-soldiers != 96)
=>
    (chat-to-allies-using-id 22073)
    (set-strategic-number sn-percent-attack-soldiers 97)
    (attack-now)
    (acknowledge-taunt this-any-ally 222)
)

tarcy

HD是有个大BUG 我去电脑家塔爆， 就在城镇中心边上建 ，他们完全不会去反抗你了，农民也不会攻击你。

凌果

wongyuhua 发表于 2019-5-5 15:57
凌果大大请直接把改好的PER2分享出来吧？年纪大了，看得眼睛痛
其实骆驼射手不一定要设置为针对性出 ...

是指六楼的修改方案吗，
查找到原代码的位置，把我列出整个部分的原代码都删了，把我给出的整段修正方案复制进去就OK


我晚点把我修正过的AI文件放上来吧，除了1楼说到的BUG，还有很多处小问题，我稍微整合一下并写一下注释。

chifeiyen

wongyuhua 发表于 2019-5-5 16:23
前面3条我们讨论过，简化相关规则的前提，或者新增独立而简单的规则应该是可以解决的
4. 我要是意大利也不 ...

驻扎冲车我改成1也不会驻扎，但原版AI又是可以驻扎的，因此一直觉得很奇怪。

chifeiyen

wongyuhua 发表于 2019-5-5 16:23
前面3条我们讨论过，简化相关规则的前提，或者新增独立而简单的规则应该是可以解决的
4. 我要是意大利也不 ...

第6条你说加的这条规则应该加在哪里？就加在AI文件最后就可以吗？HD的AI的攻击我看了貌似都是用TSA实现的，不是Attack now，野蛮人好像也是，但野蛮人能做到及时救援，难道是只有up 1.4以上的语句才能实现？

chifeiyen

凌果 发表于 2019-5-5 01:04
我来慢慢回答一下吧。
首先关于训练某种兵种这类，直接相关的就是要找到(train xxxxxx)，例如训练投石手就 ...

第一条规则我能理解，第二条规则我对up的goal类的语句不太懂。不过根据你的分析，只要把你1楼的Bug解决，骆射的问题也就算迎刃而解了吧！

wongyuhua

chifeiyen 发表于 2019-5-5 17:47
第6条你说加的这条规则应该加在哪里？就加在AI文件最后就可以吗？HD的AI的攻击我看了貌似都是用TSA实现的 ...

位置随意，我有的放最后，有的放最前，都可以，放后面最好
attack-now是最简单直接的攻击命令，但无法实现野蛮人那样高级的效果。TSA就是三光政策，从距离最近的打起，你在前线火烧眉毛，援军在外围悠哉的打它没人的伐木场和采矿场。不过TSA也有优点，那就是集中兵力一窝蜂上，而不会舍近求远

wongyuhua

凌果 发表于 2019-5-5 17:31
是指六楼的修改方案吗，
查找到原代码的位置，把我列出整个部分的原代码都删了，把我给出的整段修正方案复 ...

等着您修正的AI文件呢！谢谢啦

凌果

文件搞好了，大部分改动是以前就做好的，最近加了一些规则并写了注释。
所有的改动都写了注释并以“改”开头，打开文件搜索“改”可以查到所有的改动，大概一百条吧。
(旧)
(新)
有些改动是修正客观存在的BUG；有些改动是带主观性质的改动，也就是不算BUG但我认为这样改更合理。
如果不打算全盘接受的话，可以用Beyond Compare、UltraCompare等文本对比软件对比一下，挑其中一些来用。
我在这里将全部的改动列一下表：

以下是一些客观存在的BUG修正： 修正一共三处up-jump-rule负数的大型BUG，HD版up-jump-rule负数跟up-jump-rule正数是等效的，这个BUG会导致数百条focus-player值错误 调整sn-current-age状态，避免城堡开局、帝王开局、后帝开局时偶尔出现的资源采集分配错乱的BUG 在12分钟时执行一次资源采集分配，修正偶尔出现的非黑暗时代开局资源采集分配错乱的BUG（配合上面那条改动），仅执行一次（disable-self），没出现BUG时会被覆盖 增设条件以解决偶尔出现的资源采集分配错乱的BUG 修正threat-player范围未包含玩家8的BUG（会导致不能计算玩家8的兵种威胁） 修正计算船只数量时未算卡拉维尔的BUG 一共有11条自杀农民的规则，其中有两条有BUG，会导致在含小片水域的地图进行游戏时错误地自杀农民。顺便给所有自杀规则加一个自我提示（chat-local-to-self） 修正城堡时代开局时美洲民族（特别是阿兹）有可能出现不生产村民的BUG 修正水陆混合地图后帝开局时不会造船坞的BUG，因为后帝开局某条重要的造船坞规则需要先造铁匠铺，然而后帝肯定不会造铁匠铺 修正一个BUG，当允许造建筑的城镇范围内，没有空地造城堡时代升帝王时代必要建筑时，增加城镇范围大小，常见于空间比较少的地图 ->（蠢蠢的AI宁愿造兵营田地等也不去造大学城堡攻城武器厂、导致资源够升帝也一直卡在城堡时代。若地图的空间实在太少此修正方案不起效） 修正类似上面的BUG，封建时代升城堡时代 拥有一定数量的蒙古突骑、象射、骆射时研究帕提亚战术（原版仅考虑了骑射手未考虑特种骑射） 修正定义意大利佣兵常数的BUG（882是佣兵，184是佣兵的一个隐藏前置单位） 改动训练意大利佣兵的规则，修正佣兵常数错误的BUG，并使训练佣兵的规则更合理 定义两个标志和一个定时器 修正"strategic-number.+:"不能配合类型符的错误，例如strategic-number sn-xxx g:== xxx，strategic-number sn-xxx s:>= xxx，都是不正确的判断，只能判断c:类型。共有五处修正。 以下是一些带主观性质的改动： 加入一大段AI之间救援的规则，加入后AI之间的救援会更加积极或及时（特别是坐中的AI），只影响AI之间救援，不影响AI对人类玩家施救 高资源开局时禁止一开局马上研究封建时代，因为花时间研究封建时代会使村民数很少，发展很缓慢 后帝开局时预留100木材给第一间伐木场，原版会直接造兵营等东西导致第一座伐木场延后很久（尤其是中高资源开局） 加入研究异教的规则，当敌方僧侣很多时研究，原版完全不会研究异教 改动研究信念的规则，使其更合理（拥有异教的文明会优先异教） 加入一条研究城镇巡逻的规则（只有当资源丰富时才研究，原版完全不会研究城镇巡逻）；另改动研究城镇瞭望的规则 提高允许卖木材时的木材存有量，因为AI容易缺木（只涉及一条卖木规则） 加入一条买木材的规则，当金多木少且木材比较便宜时买100木（AI挺容易缺木的） 海战时或木材缺少时暂时地提高一点伐木工人数 改动建造前线马厩、靶场、兵营、攻城、箭塔、炮塔的规则，使其更合理 改动建造前线城堡的规则，使其更合理（实际上原版几乎不会造前线城堡，改后也很少会造，但还是合理一点） 允许训练非精锐的龙头战舰（原版不允许） 减少爆破船上限，减少一点点浪费，AI的爆破船太容易浪费了 即使印加已研究劲弩手，当敌步兵较多时也允许训练投石手（原版已研究劲弩就不会训练投石手了） 当敌方拥有特种骑射时允许训练骆驼射手（原版仅考虑了骑射手和蒙古突骑），并略微提高出骆射的概率 标枪骑兵和帝矛都能训练时，不再禁止训练帝矛 改动训练标枪骑兵的规则，使其更合理 允许西班牙训练1个传教士（原版完全不会训练传教士） 水陆混合图也允许训练贸易船，但限制在2艘以内，因为贸易船容易发呆所以不宜太多 改动研究刺网的规则，加入一条拥有7艘渔船以上时允许研究 不再禁止中国和蒙古训练弩炮 改动研究操练规则，不一定要先研究重型冲车（原版必须研究重冲完毕后才允许操练） 改动早期建造炮塔的规则，原版早期能造炮塔就会直接造，改后会留石头优先造一座城堡后才考虑炮塔 改动早期建造箭塔的规则，类似上面 当敌方有人类玩家时，AI只要至少还有一个城镇中心就不会轻易投降 以下是一些小改动： 略微减少炮舰上限，AI的炮舰实在太蠢了 降低炮舰数量对sn-resource-control的影响和对attack-goal的影响 提高sn-target-evaluation-boat，默认攻击船优先度（不过实际上似乎是没有效果） 略微改动研究重型弩炮的规则；略微修改一条训练象兵的规则；略微调整一条训练僧侣的规则（使它们更合理） 提高一点中国的诸葛弩的出场率；提高一点马来坐中时象兵的优先级；略微提高匈奴出答剌罕的概率 改动以下民族的默认射手，提高一点骑射的优先级（相对弩手而言）：柏柏尔、印度、日本、马扎尔、波斯、萨拉森、土耳其（另外比较适合骑射的匈奴蒙古西班牙不需要提高） 改动以下民族的坐中目标兵种，提高一点特种兵的优先级：缅甸、拜占庭、埃塞、哥特、匈奴、日本、萨拉森、斯拉夫、维京 略微改动建造大学时的规则，加入一条当木材较多时允许建造大学（还是不超过1间） 延迟禁止训练渔船的时机 复制代码

使用方法见27楼。

凌果

另外我顺便传一个我自己用的Notepad++的帝国2语法高亮方案：
(旧，已淘汰)
(新)
可以导入到Notepad++用。
（语言->自定义语言格式->导入）

凌果

wongyuhua 发表于 2019-5-5 20:57
等着您修正的AI文件呢！谢谢啦

来啦，最近沉迷于某小说导致这个晚了