自己写的 AI 脚本，阿拉伯 3V3 完胜 hard 级别的电脑
本帖最后由 tankant 于 2012-9-29 21:54 编辑这是本人自己写的一个脚本，确切的说是修改前人的脚本，加了好多东西，去除作弊。最需要改进的地方可能是缺少load吧。
另外我发现timer-trigger允许的编号从1到49均有效，和文档上说的不一样。求解释。
我禁止电脑使用市场做交易，中间增加了27个timer-trigger来对资源情况实时监控，让村民动态分配来平衡资源。不过目前还平衡的不好，需要高手来加以完善。
这个AI在进攻的时候可以偷偷摸摸在敌人家里面造箭塔、城堡、兵营、马厩、靶场。
; https://www.orayes.com
; 2012.9.29
;语音指令
(defrule
(taunt-detected any-ally 31)
=>
(acknowledge-taunt this-any-ally 31)
(attack-now)
(chat-to-player this-any-ally "我会策应你的进攻！")
)
(defrule
(taunt-detected any-ally 23)
=>
(acknowledge-taunt this-any-ally 23)
(attack-now)
(chat-to-player this-any-ally "一起上！")
)
(defrule
(taunt-detected any-ally 2)
=>
(acknowledge-taunt this-any-ally 2)
(cc-add-resource food 5000)
(cc-add-resource wood 5000)
(cc-add-resource gold 5000)
(chat-to-player this-any-ally "增加了资源！")
)
; ============== GROUPS - most of these will work for any file
(defrule
(true)
=>
(set-strategic-number sn-maximum-town-size 25)
(set-strategic-number sn-camp-max-distance 15)
(set-strategic-number sn-mill-max-distance 12)
(set-strategic-number sn-percent-enemy-sighted-response 100);敌视回应比率
(set-strategic-number sn-enemy-sighted-response-distance 15);敌视回应距离
(set-strategic-number sn-blot-exploration-map 1)
(set-strategic-number sn-number-explore-groups 2)
(set-strategic-number sn-attack-intelligence 1);敌视回应比率
(set-strategic-number sn-minimum-dropsite-buffer 50);经济建筑和敌人城镇中心最小距离
(set-strategic-number sn-hits-before-alliance-change 1);多少次攻击后解除结盟
;(set-strategic-number ability-to-dodge-missiles 0);回避力
;(set-strategic-number ability-to-maintain-distance 0);持距力
(set-difficulty-parameter ability-to-dodge-missiles 0);回避力
(set-difficulty-parameter ability-to-maintain-distance 0);持距力
(set-strategic-number sn-group-commander-selection-method 0);部队长为最大生命值单位
(disable-self)
)
; ============== ATTACK GROUPS - changing percent attack soldiers will make an AI weak or tough
(defrule
;(current-age == feudal-age)
(true)
=>
(set-strategic-number sn-task-ungrouped-soldiers 1)
(set-strategic-number sn-percent-attack-soldiers 100);进攻的时候出动军队百分比
(set-strategic-number sn-minimum-attack-group-size 1);最小攻击规模
(set-strategic-number sn-maximum-attack-group-size 60);最大攻击规模
(set-strategic-number sn-group-form-distance 30);设定计算机游戏者组织陆上军事单位攻击部队时，会选择距离部队集合点有多远的单位。如果生产单位的建筑物很遥远，就必须调高此策略值的数值。默认值是 20 。
(set-strategic-number sn-attack-group-gather-spacing 10);攻击部队集合点留间隔
(set-strategic-number sn-group-leader-defense-distance 10);部队长防御距离
(set-strategic-number sn-maximum-gaia-attack-response 4);村民打狼的人数
(set-strategic-number sn-number-explore-groups 1)
(disable-self)
)
; ================== RESIGNING - resigns if it can't train villagers
(defrule
(building-type-count town-center less-than 1)
(unit-type-count-total villager < 2)
(not (can-train villager) )
=>
(resign)
(disable-self)
)
; ============== VILLAGER ASSIGNMENT - most of these will work for any file
;农民工作分配
(defrule
(true)
=>
(set-strategic-number sn-minimum-boar-hunt-group-size 10)
(set-strategic-number sn-maximum-hunt-drop-distance 5)
(disable-self)
)
;黑暗时代农民分配
(defrule
(current-age == dark-age)
=>
(set-strategic-number sn-percent-civilian-explorers 0)
(set-strategic-number sn-percent-civilian-builders 30)
(set-strategic-number sn-percent-civilian-gatherers 70)
(set-strategic-number sn-cap-civilian-explorers 0)
(set-strategic-number sn-cap-civilian-gatherers 100)
(set-strategic-number sn-food-gatherer-percentage90)
(set-strategic-number sn-wood-gatherer-percentage10)
(set-strategic-number sn-maximum-gold-drop-distance 5)
(set-strategic-number sn-maximum-stone-drop-distance 5)
(set-strategic-number sn-maximum-food-drop-distance 5)
(set-strategic-number sn-maximum-wood-drop-distance 5)
(set-goal 7 1)
;(chat-to-all "timer 250")
(disable-self)
;开局找浆果和绵羊
)
(defrule
(current-age == dark-age)
(sheep-and-forage-too-far)
(game-time < 500)
=>
(set-strategic-number sn-percent-civilian-explorers 100)
(set-strategic-number sn-cap-civilian-explorers 3)
(chat-to-all "开局找浆果和绵羊")
(disable-self)
)
;找到浆果
(defrule
(current-age == dark-age)
(resource-found food)
=>
(set-strategic-number sn-percent-civilian-explorers 0)
(set-strategic-number sn-cap-civilian-explorers 0)
(chat-to-all "找到浆果和绵羊")
(disable-self)
)
;封建时代农民分配
(defrule
(current-age == feudal-age)
=>
(set-strategic-number sn-percent-civilian-explorers 0)
(set-strategic-number sn-percent-civilian-builders 50)
(set-strategic-number sn-percent-civilian-gatherers 80)
(set-strategic-number sn-cap-civilian-explorers 0)
(set-strategic-number sn-cap-civilian-gatherers 100)
(set-strategic-number sn-food-gatherer-percentage65)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage10)
(set-strategic-number sn-stone-gatherer-percentage 0)
(set-strategic-number sn-maximum-gold-drop-distance 10)
(set-strategic-number sn-maximum-stone-drop-distance 10)
(set-strategic-number sn-maximum-food-drop-distance 10)
(set-strategic-number sn-maximum-wood-drop-distance 10)
(set-goal 7 2)
(disable-self)
)
;城堡和帝王时代农民分配
(defrule
(or
(current-age == castle-age)
(current-age == imperial-age)
)
=>
(set-strategic-number sn-percent-civilian-explorers 0)
(set-strategic-number sn-percent-civilian-builders 50)
(set-strategic-number sn-percent-civilian-gatherers 85)
(set-strategic-number sn-cap-civilian-explorers 0)
(set-strategic-number sn-cap-civilian-gatherers 100)
(set-strategic-number sn-food-gatherer-percentage30)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage15)
(set-strategic-number sn-stone-gatherer-percentage 40)
(set-strategic-number sn-maximum-gold-drop-distance 20)
(set-strategic-number sn-maximum-stone-drop-distance 20)
(set-strategic-number sn-maximum-food-drop-distance 20)
(disable-self)
)
; ============== COMPUTER CHEATING - In long scenario games, a CP can run out of resources. This magically gives him more.Delete if you don't like your AI to cheat.
(defrule
(true)
=>
(enable-timer 4 0)
(disable-self)
)
(defrule
(timer-triggered 4)
=>
;(cc-add-resource food 5000)
;(cc-add-resource wood 5000)
;(cc-add-resource gold 5000)
;(disable-timer 4)
;(chat-to-all "操！")
(enable-timer 4 30)
)
; ============== BUILD LISTS
;maintain housing
(defrule
(current-age == dark-age)
(housing-headroom less-than 4)
(population-headroom greater-than 0)
(can-build house)
=>
(build house)
(chat-to-all "house 4 left")
)
;maintain housing
(defrule
(current-age != dark-age)
(housing-headroom less-than 10)
(population-headroom greater-than 0)
(can-build house)
=>
(build house)
(chat-to-all "house 10 left")
)
;造城镇中心（游牧民族开局）
;maintain a town center
(defrule
(game-time greater-than 45)
(building-type-count town-center less-than 3)
(can-build town-center)
=>
(build town-center)
)
;造城镇中心
(defrule
(current-age == castle-age)
(building-type-count town-center less-than 3)
(can-build town-center)
=>
(build town-center)
)
;造兵营
(defrule
(timer-triggered 3)
(attack-soldier-count > 10)
(current-age != dark-age)
(building-type-count-total watch-tower-line less-than 10)
(can-build watch-tower-line)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build-forward watch-tower-line)(chat-to-player any-enemy "9")
(chat-to-all "build-forward watch-tower-line !!!!!!!!!!!!!")
(disable-timer 3)
)
;造兵营
(defrule
(timer-triggered 3)
(attack-soldier-count > 10)
(current-age != dark-age)
(building-type-count-total barracks less-than 2)
(can-build barracks)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build-forward barracks)(chat-to-player any-enemy "9")
(chat-to-all "build-forward barracks !!!!!!!!!!!!!")
(disable-timer 3)
)
;造靶场
(defrule
(timer-triggered 3)
(attack-soldier-count > 10)
(building-type-count-total archery-range less-than 2)
(can-build archery-range)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build-forward archery-range)(chat-to-player any-enemy "9")
(chat-to-all "build-forward range !!!!!!!!!!!!!")
(disable-timer 3)
)
;造马厩
(defrule
(timer-triggered 3)
(attack-soldier-count > 10)
(building-type-count-total stable less-than 2)
(can-build stable)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build-forward stable)(chat-to-player any-enemy "9")
(chat-to-all "build-forward stable !!!!!!!!!!!!!")
(disable-timer 3)
)
;造城堡
(defrule
(timer-triggered 3)
(attack-soldier-count > 10)
(can-build castle)
=>
(build-forward castle)(chat-to-player any-enemy "9")
(chat-to-all "build-forward castle !!!!!!!!!!!!!")
(disable-timer 3)
)
;造兵营
(defrule
(current-age != dark-age)
(attack-soldier-count <= 10)
(building-type-count-total barracks less-than 2)
(can-build barracks)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build barracks)
(chat-to-all "barracks")
)
;造靶场
(defrule
(attack-soldier-count <= 10)
(building-type-count-total archery-range less-than 2)
(can-build archery-range)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build archery-range)
(chat-to-all "range")
)
;造马厩
(defrule
(attack-soldier-count <= 10)
(building-type-count-total stable less-than 2)
(can-build stable)
(food-amount >= 500)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build stable)
(chat-to-all "stable")
)
;造铁匠铺
(defrule
(building-type-count-total blacksmith less-than 1)
(can-build blacksmith)
(defend-soldier-count >= 5)
=>
(build blacksmith)
(chat-to-all "blacksmith")
)
;造市场
(defrule
(building-type-count-total market less-than 1)
(can-build market)
(food-amount >= 1000)
(or
(wood-amount >= 500)
(gold-amount >= 500)
)
=>
(build market)
(chat-to-all "market")
)
;造大学
(defrule
(building-type-count-total university less-than 1)
(can-build university)
(food-amount >= 200)
(or
(wood-amount >= 200)
(gold-amount >= 300)
)
=>
(build university)
(chat-to-all " university ")
)
;造修道院
(defrule
(building-type-count-total monastery less-than 1)
(can-build monastery)
=>
(build monastery)
(chat-to-all " monastery ")
)
;造城堡
(defrule
(attack-soldier-count <= 10)
(building-type-count-total castle <= 2)
(can-build castle)
=>
(build castle)
(chat-to-all "castle")
)
;攻城武器车间
(defrule
(building-type-count-total siege-workshop less-than 1)
(can-build siege-workshop)
=>
(build siege-workshop)
(chat-to-all "siege workshop")
)
;黑暗时代造农田
(defrule
(current-age == dark-age)
(sheep-and-forage-too-far)
(building-type-count-total farm less-than 14)
(game-time > 420)
(can-build farm)
=>
(build farm)
)
;非黑暗时代第一阶段造农田
(defrule
(current-age != dark-age)
(food-amount < 400)
(wood-amount >= 90)
(building-type-count-total mill != 0)
(building-type-count-total lumber-camp != 0)
(building-type-count-total farm < 5)
(can-build farm)
=>
(build farm)
)
;非黑暗时代第二阶段造农田
(defrule
(current-age != dark-age)
(food-amount < 400)
(wood-amount >= 500)
(building-type-count-total mill != 0)
(building-type-count-total lumber-camp != 0)
(building-type-count-total farm >= 5)
(building-type-count-total farm < 25)
(can-build farm)
=>
(build farm)
)
;造矿场
(defrule
(building-type-count-total mining-camp == 0)
(building-type-count-total mill != 0)
(building-type-count-total lumber-camp != 0)
(dropsite-min-distance wood > 1)
(can-build mining-camp)
(game-time > 600)
=>
(build mining-camp)
(chat-to-all "mining-camp place")
)
;造伐木场
(defrule
(resource-found wood)
(building-type-count-total lumber-camp < 3)
(dropsite-min-distance wood > 2)
(can-build lumber-camp)
(current-age != dark-age)
(building-type-count-total mill != 0)
=>
(set-strategic-number sn-camp-max-distance 25)
(build lumber-camp)
(chat-to-all "lumber-camp place")
)
;为黄金造矿场
(defrule
(resource-found gold)
(building-type-count-total mining-camp < 5)
(building-type-count-total mill != 0)
(building-type-count-total lumber-camp != 0)
(dropsite-min-distance gold > 3)
(can-build mining-camp)
(current-age != dark-age)
=>
(build mining-camp)
(chat-to-all "gold place")
)
;为石头造矿场
(defrule
(resource-found stone)
(current-age >= castle-age)
(building-type-count-total mining-camp < 5)
(dropsite-min-distance stone > 3)
(can-build mining-camp)
(game-time > 800)
=>
(build mining-camp)
(chat-to-all "rock place")
)
; ============== MILITARY UNITS
;造打包投石机
(defrule
(unit-type-count-total trebuchet < 3)
(defend-soldier-count >= 10)
(can-train trebuchet)
=>
(train trebuchet)
(chat-to-all "trebuchet")
)
;造僧侣============================
(defrule
(difficulty == moderate)
(unit-type-count-total monk < 1)
(can-train monk)
=>
(train monk)
(chat-to-all "monk")
)
(defrule
(difficulty == hard)
(unit-type-count-total monk < 1)
(can-train monk)
=>
(train monk)
(chat-to-all "monk")
)
(defrule
(difficulty == hardest)
(unit-type-count-total monk < 1)
(can-train monk)
=>
(train monk)
(chat-to-all "monk")
)
;===============================
; ============== ADVANCING IN AGE
(defrule
(current-age == dark-age)
=>
(set-goal 99 1)
(disable-self)
)
(defrule
(unit-type-count-total villager > 8)
(current-age == feudal-age)
=>
(set-goal 99 2)
(enable-timer 38 0)
(enable-timer 39 0)
(enable-timer 40 0)
(disable-self)
)
(defrule
(unit-type-count-total villager > 15)
(current-age == castle-age)
=>
(set-goal 99 3)
(disable-self)
)
(defrule
(unit-type-count-total villager > 15)
(current-age == imperial-age)
=>
(set-goal 99 4)
(disable-self)
)
; (set-strategic-number sn-food-gatherer-percentage55)
; (set-strategic-number sn-wood-gatherer-percentage15)
; (set-strategic-number sn-gold-gatherer-percentage30)
;任何时代：食物和木材过少报警
(defrule
(current-age != dark-age)
(food-amount <= 49)
(wood-amount <= 120)
;(gold-amount > 29)
(timer-triggered 38)
=>
(set-strategic-number sn-food-gatherer-percentage35)
(set-strategic-number sn-wood-gatherer-percentage60)
(set-strategic-number sn-gold-gatherer-percentage5)
(set-strategic-number sn-stone-gatherer-percentage 0)
(chat-to-all "食物、木材都过少")
(disable-timer 38)
(enable-timer 38 5)
)
;任何时代：食物过少报警
(defrule
(current-age != dark-age)
(food-amount <= 49)
(wood-amount > 300)
;(gold-amount > 29)
(timer-triggered 5)
=>
(set-strategic-number sn-food-gatherer-percentage80)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage5)
(set-strategic-number sn-stone-gatherer-percentage 0)
(chat-to-all "食物过少")
(disable-timer 209)
(enable-timer 39 5)
)
;任何时代：木材过少报警
(defrule
(current-age != dark-age)
(food-amount > 300)
(wood-amount <= 120)
;(gold-amount > 29)
(timer-triggered 40)
=>
(set-strategic-number sn-food-gatherer-percentage20)
(set-strategic-number sn-wood-gatherer-percentage75)
(set-strategic-number sn-gold-gatherer-percentage5)
(set-strategic-number sn-stone-gatherer-percentage 0)
(chat-to-all "木材过少")
(disable-timer 40)
(enable-timer 40 5)
)
;任何时代：黄金过少报警
(defrule
(current-age != dark-age)
(food-amount > 300)
(wood-amount > 300)
(gold-amount <= 29)
=>
(set-strategic-number sn-food-gatherer-percentage45)
(set-strategic-number sn-wood-gatherer-percentage5)
(set-strategic-number sn-gold-gatherer-percentage50)
(set-strategic-number sn-stone-gatherer-percentage 0)
(chat-to-all "黄金过少")
)
;任何时代：卡人口报警
(defrule
(housing-headroom == 0)
=>
;(enable-timer 90 10)
(chat-to-all "卡人口了")
)
; Dark to Feudal,黑暗升封建
(defrule
(unit-type-count-total villager > 5)
(current-age == dark-age)
(can-research-with-escrow feudal-age)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research feudal-age)
;(disable-timer 250)
(chat-to-all "disable-timer 250")
(set-strategic-number sn-food-gatherer-percentage50)
(set-strategic-number sn-wood-gatherer-percentage30)
(set-strategic-number sn-gold-gatherer-percentage20)
(set-goal 90 0)
(chat-to-player any-ally "1")(chat-to-all "rising to feudal")
(set-goal 99 20)
)
;黑暗时代劳动力动态调控=============================
; (set-strategic-number sn-food-gatherer-percentage80)
; (set-strategic-number sn-wood-gatherer-percentage20)
(defrule
(true)
=>
(disable-self)
)
;建造磨坊
(defrule
(building-type-count-total mill == 0)
;(dropsite-min-distance food > 0)
(can-build mill)
(game-time > 80)
=>
(build mill)
(chat-to-all "mill place")
)
(defrule
(building-type-count-total mill > 0)
(building-type-count-total mill < 2)
(building-type-count-total farm >= 16)
(current-age >= castle-age)
(can-build mill)
(wood-amount >= 800)
(food-amount <= 500)
=>
(build mill)
(chat-to-all "mill place")
)
;建造伐木场
(defrule
(building-type-count-total lumber-camp == 0)
(building-type-count-total mill != 0)
;(dropsite-min-distance wood > 1)
(can-build lumber-camp)
(game-time > 90)
=>
(build lumber-camp)
(chat-to-all "lumber-camp place")
)
;黑暗时代:(食物够了，不能升级封建):
(defrule
(food-amount >= 500)
(goal 99 1)
(not
(can-research-with-escrow feudal-age)
)
=>
(chat-to-all "食物够500了，但是没法升级（缺少磨坊或者伐木场，或者农民正在造，或者研究织布机中）")
(set-strategic-number sn-food-gatherer-percentage20)
(set-strategic-number sn-wood-gatherer-percentage80)
)
;黑暗时代:(没羊和浆果，且木头过少):让采集食物的农民采集木头
(defrule
(goal 99 1)
(not
(sheep-and-forage-too-far)
)
(wood-amount < 30)
(or
(building-type-count mill == 0)
(building-type-count-total lumber-camp == 0)
)
=>
(chat-to-all "重点采集木头")
(set-strategic-number sn-food-gatherer-percentage60)
(set-strategic-number sn-wood-gatherer-percentage40)
)
;黑暗时代:(没羊和浆果，且木头过少):让采集食物的农民采集木头
(defrule
(goal 99 1)
(sheep-and-forage-too-far)
(wood-amount < 100)
(or
(building-type-count mill == 0)
(building-type-count-total lumber-camp == 0)
)
=>
(chat-to-all "重点采集木头")
(set-strategic-number sn-food-gatherer-percentage75)
(set-strategic-number sn-wood-gatherer-percentage25)
)
;黑暗时代:(木头过多):让采集木头的农民采集食物
(defrule
(goal 99 1)
(wood-amount >= 100)
(or
(building-type-count mill == 0)
(building-type-count-total lumber-camp == 0)
)
=>
(chat-to-all "重点采集食物")
(set-strategic-number sn-food-gatherer-percentage85)
(set-strategic-number sn-wood-gatherer-percentage15)
)
;黑暗时代:食物过少
(defrule
(goal 99 1)
(building-type-count mill == 1)
(building-type-count-total lumber-camp == 1)
(wood-amount >= 60)
=>
(chat-to-all "农民全部采集食物~~~~~~~~~~~~")
(set-strategic-number sn-food-gatherer-percentage100)
(set-strategic-number sn-wood-gatherer-percentage0)
)
; (set-strategic-number sn-food-gatherer-percentage30)
; (set-strategic-number sn-wood-gatherer-percentage30)
; (set-strategic-number sn-gold-gatherer-percentage30)
; (set-strategic-number sn-stone-gatherer-percentage 10)
;设置封建时代的一种状态 16
(defrule
(unit-type-count-total villager > 10)
(current-age == feudal-age)
=>
(set-goal 16 98)
(disable-self)
)
;封建升城堡
; Feudal to Castle
(defrule
(goal 99 2)
(can-research-with-escrow castle-age)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research castle-age)
(chat-to-player any-ally "1")
(chat-to-all "升级城堡时代")
(set-goal 99 30)
)
;封建时代劳动力动态调控=============================
; (set-strategic-number sn-food-gatherer-percentage55)
; (set-strategic-number sn-wood-gatherer-percentage15)
; (set-strategic-number sn-gold-gatherer-percentage30)
;定时器11到37全部定义
;启动资源动态调控定时器
(defrule
(current-age == feudal-age)
=>
(enable-timer 11 0)
(enable-timer 12 0)
(enable-timer 13 0)
(enable-timer 14 0)
(enable-timer 15 0)
(enable-timer 16 0)
(enable-timer 17 0)
(enable-timer 18 0)
(enable-timer 19 0)
(disable-self)
)
(defrule
(current-age == feudal-age)
=>
(enable-timer 20 0)
(enable-timer 21 0)
(enable-timer 22 0)
(enable-timer 23 0)
(enable-timer 24 0)
(enable-timer 25 0)
(enable-timer 26 0)
(enable-timer 27 0)
(enable-timer 28 0)
(disable-self)
)
(defrule
(current-age == feudal-age)
=>
(enable-timer 29 0)
(enable-timer 30 0)
(enable-timer 31 0)
(enable-timer 32 0)
(enable-timer 33 0)
(enable-timer 34 0)
(enable-timer 35 0)
(enable-timer 36 0)
(enable-timer 37 0)
(disable-self)
)
(defrule
(true)
=>
(enable-timer 51 0)
(disable-self)
)
(defrule
(timer-triggered 51)
=>
(chat-to-all "QQQQQQQQQQQQQQQQQQQQQ")
(disable-timer 51)
(enable-timer 51 10)
)
;xx1
;11
;封建时代:(食物1，木材1，黄金1):
(defrule
(timer-triggered 11)
(goal 7 2)
(food-amount <= 400)
(wood-amount <= 200)
(gold-amount <= 130)
=>
(chat-to-all "食物1，木材1，黄金1")
(set-strategic-number sn-food-gatherer-percentage60)
(set-strategic-number sn-wood-gatherer-percentage35)
(set-strategic-number sn-gold-gatherer-percentage5)
(disable-timer 11)
(enable-timer 11 209)
)
;12
;封建时代:(食物2，木材1，黄金1):
(defrule
(timer-triggered 12)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount <= 200)
(gold-amount <= 130)
=>
(chat-to-all "食物2，木材1，黄金1")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage40)
(set-strategic-number sn-gold-gatherer-percentage5)
(disable-timer 12)
(enable-timer 12 209)
)
;13
;封建时代:(食物3，木材1，黄金1):
(defrule
(timer-triggered 13)
(goal 7 2)
(food-amount > 800)
(wood-amount <= 200)
(gold-amount <= 130)
=>
(chat-to-all "食物3，木材1，黄金1")
(set-strategic-number sn-food-gatherer-percentage10)
(set-strategic-number sn-wood-gatherer-percentage55)
(set-strategic-number sn-gold-gatherer-percentage35)
(disable-timer 13)
(enable-timer 13 209)
)
;=
;14
;封建时代:(食物1，木材2，黄金1):
(defrule
(timer-triggered 14)
(goal 7 2)
(food-amount <= 400)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount <= 130)
=>
(chat-to-all "食物1，木材2，黄金1")
(set-strategic-number sn-food-gatherer-percentage70)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage5)
(disable-timer 14)
(enable-timer 14 209)
)
;15
;封建时代:(食物2，木材2，黄金1):
(defrule
(timer-triggered 15)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount <= 130)
=>
(chat-to-all "食物2，木材2，黄金1")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage20)
(set-strategic-number sn-gold-gatherer-percentage25)
(disable-timer 15)
(enable-timer 15 209)
)
;16
;封建时代:(食物3，木材2，黄金1):
(defrule
(timer-triggered 16)
(goal 7 2)
(food-amount > 800)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount <= 130)
=>
(chat-to-all "食物3，木材2，黄金1")
(set-strategic-number sn-food-gatherer-percentage10)
(set-strategic-number sn-wood-gatherer-percentage20)
(set-strategic-number sn-gold-gatherer-percentage70)
(disable-timer 16)
(enable-timer 16 209)
)
;17
;封建时代:(食物1，木材3，黄金1):
(defrule
(timer-triggered 17)
(goal 7 2)
(food-amount <= 400)
(wood-amount > 500)
(gold-amount <= 130)
=>
(chat-to-all "食物1，木材3，黄金1")
(set-strategic-number sn-food-gatherer-percentage75)
(set-strategic-number sn-wood-gatherer-percentage5)
(set-strategic-number sn-gold-gatherer-percentage20)
(disable-timer 17)
(enable-timer 17 209)
)
;18
;封建时代:(食物2，木材3，黄金1):
(defrule
(timer-triggered 18)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount > 500)
(gold-amount <= 130)
=>
(chat-to-all "食物2，木材3，黄金1")
(set-strategic-number sn-food-gatherer-percentage45)
(set-strategic-number sn-wood-gatherer-percentage10)
(set-strategic-number sn-gold-gatherer-percentage35)
(disable-timer 18)
(enable-timer 18 209)
)
;19
;封建时代:(食物3，木材3，黄金1):
(defrule
(timer-triggered 19)
(goal 7 2)
(food-amount > 800)
(wood-amount > 500)
(gold-amount <= 130)
=>
(chat-to-all "食物3，木材3，黄金1")
(set-strategic-number sn-food-gatherer-percentage20)
(set-strategic-number sn-wood-gatherer-percentage10)
(set-strategic-number sn-gold-gatherer-percentage70)
(disable-timer 19)
(enable-timer 19 209)
)
;=======================
;xx2
;20
;封建时代:(食物1，木材1，黄金2):
(defrule
(timer-triggered 20)
(goal 7 2)
(food-amount <= 400)
(wood-amount <= 200)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物1，木材1，黄金2")
(set-strategic-number sn-food-gatherer-percentage75)
(set-strategic-number sn-wood-gatherer-percentage20)
(set-strategic-number sn-gold-gatherer-percentage5)
(disable-timer 20)
(enable-timer 20 209)
)
;21
;封建时代:(食物2，木材1，黄金2):
(defrule
(timer-triggered 21)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount <= 200)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物2，木材1，黄金2")
(set-strategic-number sn-food-gatherer-percentage65)
(set-strategic-number sn-wood-gatherer-percentage30)
(set-strategic-number sn-gold-gatherer-percentage5)
(disable-timer 21)
(enable-timer 21 209)
)
;22:过了
;封建时代:(食物3，木材1，黄金2):
(defrule
(timer-triggered 22)
(goal 7 2)
(food-amount > 800)
(wood-amount <= 200)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物3，木材1，黄金2")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage20)
;(set-strategic-number sn-stone-gatherer-percentage20)
(disable-timer 22)
(enable-timer 22 209)
)
;=
;23
;封建时代:(食物1，木材2，黄金2):
(defrule
(timer-triggered 23)
(goal 7 2)
(food-amount <= 400)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物1，木材2，黄金2")
(set-strategic-number sn-food-gatherer-percentage80)
(set-strategic-number sn-wood-gatherer-percentage10)
(set-strategic-number sn-gold-gatherer-percentage10)
(disable-timer 23)
(enable-timer 23 209)
)
;24
;封建时代:(食物2，木材2，黄金2):
(defrule
(timer-triggered 24)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物2，木材2，黄金2")
(set-strategic-number sn-food-gatherer-percentage70)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage15)
(disable-timer 24)
(enable-timer 24 209)
)
;25:过了
;封建时代:(食物3，木材2，黄金2):
(defrule
(timer-triggered 25)
(goal 7 2)
(food-amount > 800)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物3，木材2，黄金2")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage20)
;(set-strategic-number sn-stone-gatherer-percentage20)
(disable-timer 25)
(enable-timer 25 209)
)
;26
;封建时代:(食物1，木材3，黄金2):
(defrule
(timer-triggered 26)
(goal 7 2)
(food-amount <= 400)
(wood-amount > 500)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物1，木材3，黄金2")
(set-strategic-number sn-food-gatherer-percentage90)
(set-strategic-number sn-wood-gatherer-percentage0)
(set-strategic-number sn-gold-gatherer-percentage10)
(disable-timer 26)
(enable-timer 26 209)
)
;27
;封建时代:(食物2，木材3，黄金2):
(defrule
(timer-triggered 27)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount > 500)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物2，木材3，黄金2")
(set-strategic-number sn-food-gatherer-percentage90)
(set-strategic-number sn-wood-gatherer-percentage0)
(set-strategic-number sn-gold-gatherer-percentage10)
(disable-timer 27)
(enable-timer 27 209)
)
;28:过了
;封建时代:(食物3，木材3，黄金2):
(defrule
(timer-triggered 28)
(goal 7 2)
(food-amount > 800)
(wood-amount > 500)
(gold-amount > 130)
(gold-amount <= 300)
=>
(chat-to-all "食物3，木材3，黄金2")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage20)
;(set-strategic-number sn-stone-gatherer-percentage20)
(disable-timer 28)
(enable-timer 28 209)
)
;======================
;xx3
;xx1
;29
;封建时代:(食物1，木材1，黄金3):
(defrule
(timer-triggered 29)
(goal 7 2)
(food-amount <= 400)
(wood-amount <= 200)
(gold-amount > 300)
=>
(chat-to-all "食物1，木材1，黄金3")
(set-strategic-number sn-food-gatherer-percentage85)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage0)
(disable-timer 29)
(enable-timer 29 209)
)
;30
;封建时代:(食物2，木材1，黄金3):
(defrule
(timer-triggered 30)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount <= 200)
(gold-amount > 300)
=>
(chat-to-all "食物2，木材1，黄金3")
(set-strategic-number sn-food-gatherer-percentage85)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage0)
(disable-timer 30)
(enable-timer 30 209)
)
;31:过了
;封建时代:(食物3，木材1，黄金3):
(defrule
(timer-triggered 31)
(goal 7 2)
(food-amount > 800)
(wood-amount <= 200)
(gold-amount > 300)
=>
(chat-to-all "食物3，木材1，黄金3")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage20)
;(set-strategic-number sn-stone-gatherer-percentage20)
(disable-timer 31)
(enable-timer 31 209)
)
;=
;32
;封建时代:(食物1，木材2，黄金3):
(defrule
(timer-triggered 32)
(goal 7 2)
(food-amount <= 400)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount > 300)
=>
(chat-to-all "食物1，木材2，黄金3")
(set-strategic-number sn-food-gatherer-percentage80)
(set-strategic-number sn-wood-gatherer-percentage20)
(set-strategic-number sn-gold-gatherer-percentage0)
(disable-timer 32)
(enable-timer 32 209)
)
;33
;封建时代:(食物2，木材2，黄金3):
(defrule
(timer-triggered 33)
(goal 7 2)
(food-amount > 200)
(food-amount <= 400)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount > 300)
=>
(chat-to-all "食物2，木材2，黄金3")
(set-strategic-number sn-food-gatherer-percentage65)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage10)
(disable-timer 33)
(enable-timer 33 209)
)
;34:过了
;封建时代:(食物3，木材2，黄金3):
(defrule
(timer-triggered 34)
(goal 7 2)
(food-amount > 800)
(wood-amount > 200)
(wood-amount <= 500)
(gold-amount > 300)
=>
(chat-to-all "食物3，木材2，黄金3")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage25)
(set-strategic-number sn-gold-gatherer-percentage20)
;(set-strategic-number sn-stone-gatherer-percentage20)
(disable-timer 34)
(enable-timer 34 209)
)
;35
;封建时代:(食物1，木材3，黄金3):
(defrule
(timer-triggered 35)
(goal 7 2)
(food-amount <= 400)
(wood-amount > 500)
(gold-amount > 300)
=>
(chat-to-all "食物1，木材3，黄金3")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage0)
(set-strategic-number sn-gold-gatherer-percentage45)
(disable-timer 35)
(enable-timer 35 209)
)
;36
;封建时代:(食物2，木材3，黄金3):
(defrule
(timer-triggered 36)
(goal 7 2)
(food-amount > 400)
(food-amount <= 800)
(wood-amount > 500)
(gold-amount > 300)
=>
(chat-to-all "食物2，木材3，黄金3")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage0)
(set-strategic-number sn-gold-gatherer-percentage45)
(disable-timer 36)
(enable-timer 36 209)
)
;37:过了
;封建时代:(食物3，木材3，黄金3):
(defrule
(timer-triggered 37)
(goal 7 2)
(food-amount > 800)
(wood-amount > 500)
(gold-amount > 300)
=>
(chat-to-all "食物3，木材3，黄金3")
(set-strategic-number sn-food-gatherer-percentage55)
(set-strategic-number sn-wood-gatherer-percentage30)
(set-strategic-number sn-gold-gatherer-percentage45)
;(set-strategic-number sn-stone-gatherer-percentage20)
;(set-goal 37 1)
(disable-timer 37)
(enable-timer 37 209)
)
;=============================
;封建时代:(石头过多):卖掉
(defrule
(current-age == feudal-age)
(goal 7 2)
(stone-amount >= 200)
(commodity-selling-price stone greater-than 50)
(can-sell-commodity stone)
=>
(chat-to-all "卖石头赚黄金为了升城堡")
(sell-commodity stone)
)
;城堡升帝王
; advance to imperial age if possible.
(defrule
(goal 99 3)
(can-research-with-escrow imperial-age)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research imperial-age)
(chat-to-all "升级帝王时代")
(set-goal 99 40)
)
;城堡时代劳动力动态调控=============================
; (set-strategic-number sn-food-gatherer-percentage30)
; (set-strategic-number sn-wood-gatherer-percentage15)
; (set-strategic-number sn-gold-gatherer-percentage15)
; (set-strategic-number sn-stone-gatherer-percentage 40)
;城堡和帝王时代:(其他资源不缺少，且需要建造城堡)
(defrule
(or
(current-age == castle-age)
(current-age == imperial-age)
)
(food-amount > 200)
(wood-amount > 200)
(gold-amount > 200)
(building-type-count-total castle <= 2)
=>
;(chat-to-all "其他资源不缺少，且需要建造城堡")
(set-strategic-number sn-food-gatherer-percentage30)
(set-strategic-number sn-wood-gatherer-percentage15)
(set-strategic-number sn-gold-gatherer-percentage15)
(set-strategic-number sn-stone-gatherer-percentage 40)
)
;城堡和帝王时代:(不满足需要建造城堡的条件)
(defrule
(or
(current-age == castle-age)
(current-age == imperial-age)
)
(or
(or
(food-amount <= 200)
(wood-amount <= 200)
)
(gold-amount <= 200)
)
(building-type-count-total castle > 2)
=>
;(chat-to-all "不满足需要建造城堡的条件")
(set-goal 7 2)
)
;================================
;城堡时代:(石头过多):卖掉
(defrule
(goal 99 3)
(stone-amount greater-than 4000)
(commodity-selling-price stone greater-than 50)
(can-sell-commodity stone)
=>
(chat-to-all "卖石头赚黄金为了升城堡")
(sell-commodity stone)
)
;造农民
;黑暗时代造农民
(defrule
(current-age == dark-age)
(unit-type-count-total villager less-than 60)
(can-train villager)
=>
(train villager)
(chat-to-all "dark-age villager 26")
)
;封建时代造农民
(defrule
(current-age == feudal-age)
(unit-type-count-total villager less-than 50)
(can-train villager)
=>
(train villager)
(chat-to-all "feudal-age villager 60")
)
; Castle to Imperial
(defrule
(unit-type-count-total villager > 25)
(current-age == castle-age)
=>
(set-goal 16 99)
(disable-self)
)
;城堡时代造农民
(defrule
(current-age == castle-age)
(unit-type-count-total villager less-than 50)
(can-train villager)
=>
(train villager)
(chat-to-all "feudal-age villager 100")
)
;帝王时代造农民
(defrule
(current-age == imperial-age)
(unit-type-count-total villager less-than 50)
(can-train villager)
=>
(train villager)
(chat-to-all "imperial-age villager 110")
)
; ========================== UPGRADES - I usually use the same rules for upgrades for all civs.If the AI has a certain number of units, it tries to upgrade them.
; problem with escrow - give up
(defrule
(or
(or
(escrow-amount wood > 2000)
(escrow-amount food > 2000)
)
(or
(escrow-amount gold > 3000)
(escrow-amount stone > 3000)
)
)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(set-goal 16 0)
)
; ////////////////////////////////////////////////////
; sets initial goal for escrow to make sure there are villagers
(defrule
(true)
=>
(set-goal 16 50)
(disable-self)
)
(defrule
(unit-type-count villager >= 15)
=>
(set-goal 16 0)
(disable-self)
)
; sets escrow
(defrule
(true)
=>
(set-escrow-percentage wood 40)
(set-escrow-percentage food 40)
(set-escrow-percentage gold 40)
(set-escrow-percentage stone 40)
)
;状态设定
(defrule
(unit-type-count-total villager > 10)
=>
(set-goal 2 0)
)
; /////////////////////////////////////////////////////
;UNIT UPGRADES,单位升级
;城堡兵升级
(defrule
(goal 2 0)
(can-research-with-escrow my-unique-unit-upgrade)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research my-unique-unit-upgrade)
(chat-to-all "research elite uniques")
)
;升级到剑士
(defrule
(goal 2 0)
(unit-type-count militiaman > 2)
(can-research-with-escrow ri-man-at-arms)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-man-at-arms)
(chat-to-all "research man-at-arms")
)
;升级到长剑士
(defrule
(goal 2 0)
(unit-type-count man-at-arms > 2)
(can-research-with-escrow ri-long-swordsman)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-long-swordsman)
(chat-to-all "research long swordsman ")
)
;升级到双手剑士
(defrule
(goal 2 0)
(unit-type-count long-swordsman > 2)
(can-research-with-escrow ri-two-handed-swordsman)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-two-handed-swordsman)
(chat-to-all "research two-handed-swordsman")
)
;升级到冠军
(defrule
(goal 2 0)
(unit-type-count two-handed-swordsman > 2)
(can-research-with-escrow ri-champion)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-champion)
(chat-to-all "research champion")
)
;升级到长枪兵
(defrule
(goal 2 0)
(unit-type-count-total spearman > 2)
(can-research-with-escrow ri-pikeman)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-pikeman)
(chat-to-all "research pike")
)
;升级到轻骑兵
(defrule
(goal 2 0)
(unit-type-count-total scout-cavalry > 2)
(can-research-with-escrow ri-light-cavalry)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-light-cavalry)
(chat-to-all "research light-cavalry")
)
;升级到重装骆驼兵
(defrule
(goal 2 0)
(unit-type-count-total camel > 2)
(can-research-with-escrow ri-heavy-camel)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-heavy-camel)
(chat-to-all "research heavy camel")
)
;升级到重装骑士
(defrule
(goal 2 0)
(unit-type-count-total knight > 2)
(can-research-with-escrow ri-cavalier)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-cavalier)
(chat-to-all "research cavalier")
)
;升级到游侠
(defrule
(goal 2 0)
(unit-type-count-total cavalier > 2)
(can-research-with-escrow ri-paladin)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-paladin)
(chat-to-all "research paladin")
)
;升级到弩手
(defrule
(goal 2 0)
(unit-type-count archer > 1)
(can-research-with-escrow ri-crossbow)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-crossbow)
(chat-to-all "research crossbow")
)
;升级到劲弩手
(defrule
(goal 2 0)
(unit-type-count crossbowman > 1)
(can-research-with-escrow ri-arbalest)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-arbalest)
(chat-to-all "research arbalest")
)
;升级到重装骑射手
(defrule
(goal 2 0)
(unit-type-count cavalry-archer > 2)
(can-research-with-escrow ri-heavy-cavalry-archer)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-heavy-cavalry-archer)
(chat-to-all "research heavy-cavalry-archer")
)
;升级到精锐投矛战士
(defrule
(unit-type-count-total skirmisher > 2)
(can-research-with-escrow ri-elite-skirmisher)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-elite-skirmisher)
(chat-to-all "research elite skirmisher")
)
;研究火枪手
(defrule
(unit-type-count-total knight-line > 2)
(can-research-with-escrow ri-hand-cannon)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-hand-cannon)
(chat-to-all "research ri-hand-cannon")
)
;升级到重型弩车
(defrule
(goal 2 0)
(unit-type-count scorpion > 2)
(can-research-with-escrow ri-heavy-scorpion)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-heavy-scorpion)
(chat-to-all "research heavy-scorpion")
)
;升级到中型攻城锤
(defrule
(goal 2 0)
(unit-type-count battering-ram > 1)
(can-research-with-escrow ri-capped-ram)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-capped-ram)
(chat-to-all "research capped ram")
)
;升级到重型攻城锤
(defrule
(goal 2 0)
(unit-type-count capped-ram > 2)
(can-research-with-escrow ri-siege-ram)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-siege-ram)
(chat-to-all "research siege-ram")
)
;升级到中型投石车
(defrule
(goal 2 0)
(unit-type-count mangonel > 2)
(can-research-with-escrow ri-onager)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-onager)
(chat-to-all "research onager")
)
;升级到重型投石车
(defrule
(goal 2 0)
(unit-type-count onager > 2)
(can-research-with-escrow ri-siege-onager)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-siege-onager)
(chat-to-all "research siege onager")
)
;各种船升级
;DOCK UNITS
;升级到战舰
(defrule
(goal 2 0)
(unit-type-count galley > 2)
(can-research-with-escrow ri-war-galley)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-war-galley)
(chat-to-all "research war-galley")
)
;升级到大型战舰
(defrule
(goal 2 0)
(unit-type-count war-galley > 2)
(can-research-with-escrow ri-galleon)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-galleon)
(chat-to-all "research galleon")
)
;研究炮舰
(defrule
(goal 2 0)
(or
(unit-type-count galleon > 2)
(unit-type-count war-galley > 2)
)
(can-research-with-escrow ri-cannon-galleon)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-cannon-galleon)
(chat-to-all "research cannon-galleon")
)
;升级到重型喷火舰
(defrule
(goal 2 0)
(unit-type-count-total fire-ship > 1)
(can-research-with-escrow ri-fast-fire-ship)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-fast-fire-ship)
(chat-to-all "research fast-fire-ship")
)
;升级到重型爆破船
(defrule
(goal 2 0)
(unit-type-count demolition-ship > 2)
(can-research-with-escrow ri-heavy-demolition-ship)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-heavy-demolition-ship)
(chat-to-all "research heavy-demolition-ship")
)
; ////////////////////////WEAPONS//////////////////
(defrule
(goal 2 0)
(can-research-with-escrow ri-forging)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-forging)
(chat-to-all "research forging")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-iron-casting)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-iron-casting)
(chat-to-all "research iron-casting")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-blast-furnace)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-blast-furnace)
(chat-to-all "research blast-furnace")
)
;ARCHER UPGRADES -- cost food/gold
(defrule
(goal 2 0)
(can-research-with-escrow ri-fletching)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-fletching)
(chat-to-all "research fletching")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-bodkin-arrow)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-bodkin-arrow)
(chat-to-all "research bodkin-arrow")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-bracer)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-bracer)
(chat-to-all "research bracer")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total archer-line > 3)
(or
(unit-type-count-total skirmisher-line > 3)
(unit-type-count-total cavalry-archer-line > 3)
)
)
(can-research-with-escrow ri-padded-archer-armor)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-padded-archer-armor)
(chat-to-all "research padded-archer-armor")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total archer-line > 3)
(or
(unit-type-count-total skirmisher-line > 3)
(unit-type-count-total cavalry-archer-line > 3)
)
)
(can-research-with-escrow ri-leather-archer-armor)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-leather-archer-armor)
(chat-to-all "research leather-archer-armor")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total archer-line > 3)
(or
(unit-type-count-total skirmisher-line > 3)
(unit-type-count-total cavalry-archer-line > 3)
)
)
(can-research-with-escrow ri-ring-archer-armor)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-ring-archer-armor)
(chat-to-all "research ring-archer-armor")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total militiaman-line > 3)
(unit-type-count-total spearman-line > 3)
)
(can-research-with-escrow ri-scale-mail)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-scale-mail)
(chat-to-all "research scale-mail")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total militiaman-line > 3)
(unit-type-count-total spearman-line > 3)
)
(can-research-with-escrow ri-chain-mail)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-chain-mail)
(chat-to-all "research chain-mail")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total militiaman-line > 3)
(unit-type-count-total spearman-line > 3)
)
(can-research-with-escrow ri-plate-mail)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-plate-mail)
(chat-to-all "research plate-mail")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total militiaman-line > 3)
(unit-type-count-total spearman-line > 3)
)
(can-research-with-escrow ri-tracking)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-tracking)
(chat-to-all "research tracking")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total militiaman-line > 3)
(unit-type-count-total spearman-line > 3)
)
(can-research-with-escrow ri-squires)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-squires)
(chat-to-all "research squires")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total knight-line > 3)
(unit-type-count-total scout-cavalry-line > 3)
)
(can-research-with-escrow ri-scale-barding)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-scale-barding)
(chat-to-all "research scale-barding")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total knight-line > 3)
(unit-type-count-total scout-cavalry-line > 3)
)
(can-research-with-escrow ri-chain-barding)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-chain-barding)
(chat-to-all "research chain-barding")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total knight-line > 3)
(unit-type-count-total scout-cavalry-line > 3)
)
(can-research-with-escrow ri-plate-barding)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-plate-barding)
(chat-to-all "research plate-barding")
)
(defrule
(goal 2 0)
(or
(unit-type-count-total cavalry-archer-line > 3)
(or
(unit-type-count-total knight-line > 3)
(unit-type-count-total scout-cavalry-line > 3)
)
)
(can-research-with-escrow ri-husbandry)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-husbandry)
(chat-to-all "research husbandry")
)
; /////////////////////SIEGE RESEARCH ITEMS///////////////////////////
(defrule
(goal 2 0)
(can-research-with-escrow ri-siege-engineers)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-siege-engineers)
(chat-to-all "research siege-engineers")
)
;FORTRESS UPGRADES
(defrule
(goal 2 0)
(can-research-with-escrow ri-hoardings)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-hoardings)
(chat-to-all "research hoardings")
)
;SHIPS
(defrule
(goal 2 0)
(unit-type-count cannon-galleon > 2)
(can-research-with-escrow ri-deck-guns)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-deck-guns)
(chat-to-all "research deck guns ")
)
(defrule
(goal 2 0)
(or
(unit-type-count transport-ship > 0)
(unit-type-count galley-line > 2)
)
(can-research-with-escrow ri-careening)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-careening)
(chat-to-all "research careening ")
)
(defrule
(goal 2 0)
(or
(unit-type-count transport-ship > 0)
(unit-type-count galley-line > 2)
)
(can-research-with-escrow ri-dry-dock)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-dry-dock)
(chat-to-all "research dry-dock ")
)
(defrule
(goal 2 0)
(or
(unit-type-count galley-line > 2)
(or
(unit-type-count-total cannon-galleon-line > 1)
(unit-type-count-total fire-ship-line > 1)
)
)
(can-research-with-escrow ri-shipwright)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-shipwright)
(chat-to-all "research shipwright ")
)
;OTHER RESEARCH ITEMS
(defrule
(goal 2 0)
(can-research-with-escrow ri-ballistics)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-ballistics)
(chat-to-all "research ballistics ")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-chemistry)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-chemistry)
(chat-to-all "research chemistry ")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-conscription)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-conscription)
(chat-to-all "research conscription")
)
(defrule
(goal 2 0)
(can-research-with-escrow my-unique-research)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research my-unique-research)
(chat-to-all "research unique tech")
)
; //////////////////////ECONOMIC////////////////////////生产力升级
;mining-camp items
(defrule
(goal 2 0)
(can-research-with-escrow ri-gold-mining)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-gold-mining)
(chat-to-all "research gold mining")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-gold-shaft-mining)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-gold-shaft-mining)
(chat-to-all "research gold shaft mining")
)
(defrule
(goal 2 0)
(building-type-count mining-camp > 1)
(current-age >= castle-age)
(can-research-with-escrow ri-stone-mining)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-stone-mining)
(chat-to-all "research stone mining")
)
(defrule
(goal 2 0)
(building-type-count mining-camp > 1)
(current-age >= castle-age)
(can-research-with-escrow ri-stone-shaft-mining)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-stone-shaft-mining)
(chat-to-all "research stone shaft mining")
)
;mill items
(defrule
(goal 2 0)
(can-research-with-escrow ri-horse-collar)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-horse-collar)
(chat-to-all "research horse collar")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-heavy-plow)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-heavy-plow)
(chat-to-all "research heavy plow")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-crop-rotation)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-crop-rotation)
(chat-to-all "research crop rotation")
)
;saw mill
(defrule
(goal 2 0)
(can-research-with-escrow ri-double-bit-axe)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-double-bit-axe)
(chat-to-all "research double bit axe")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-bow-saw)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-bow-saw)
(chat-to-all "research bow saw")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-two-man-saw)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-two-man-saw)
(chat-to-all "research 2 man saw")
)
;university stuff
(defrule
(goal 2 0)
(can-research-with-escrow ri-masonry)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-masonry)
(chat-to-all "research masonry")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-architecture)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-architecture)
(chat-to-all "research architecture")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-stonecutting)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-stonecutting)
(chat-to-all "research stonecutting")
)
;market & town center
(defrule
(goal 2 0)
(can-research-with-escrow ri-guilds)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-guilds)
(chat-to-all "research guilds")
)
(defrule
;(timer-triggered 90)
(goal 2 0)
(housing-headroom == 0)
;(current-age == dark-age)
(can-research-with-escrow ri-loom)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-loom)
(chat-to-all "research loom")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-hand-cart)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-hand-cart)
(chat-to-all "research hand-cart")
)
(defrule
(goal 2 0)
(can-research-with-escrow ri-wheel-barrow)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-wheel-barrow)
(chat-to-all "research wheelbarrow")
)
(defrule
(goal 2 0)
(or
(players-stance any-computer ally)
(players-stance any-human ally)
)
(can-research-with-escrow ri-coinage)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-coinage)
(chat-to-all "research coinage")
)
(defrule
(goal 2 0)
(or
(players-stance any-computer ally)
(players-stance any-human ally)
)
(can-research-with-escrow ri-banking)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-banking)
(chat-to-all "research banking")
)
; ////////////////////MONK/////////////////僧侣升级
(defrule
(goal 2 0)
(or
;(cc-players-unit-type-count any-enemy monk > 2)
(players-unit-type-count any-enemy monk > 2)
(unit-type-count-total war-elephant-line > 2)
)
(can-research-with-escrow ri-faith)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-faith)
(chat-to-all "research faith")
)
(defrule
(goal 2 0)
;(cc-players-unit-type-count any-enemy monk > 2)
(players-unit-type-count any-enemy monk > 2)
(can-research-with-escrow ri-atonement)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-atonement)
(chat-to-all "research atonement")
)
(defrule
(goal 2 0)
(unit-type-count-total monk > 2)
(can-research-with-escrow ri-block-printing)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-block-printing)
(chat-to-all "research block printing")
)
(defrule
(goal 2 0)
(unit-type-count-total monk > 2)
(can-research-with-escrow ri-illumination)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-illumination)
(chat-to-all "research illumination")
)
(defrule
(goal 2 0)
(unit-type-count-total monk > 2)
(can-research-with-escrow ri-fervor)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-fervor)
(chat-to-all "research fervor")
)
(defrule
(goal 2 0)
(unit-type-count-total monk > 2)
(can-research-with-escrow ri-redemption)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-redemption)
(chat-to-all "research redemption")
)
(defrule
(goal 2 0)
(unit-type-count-total monk > 2)
(can-research-with-escrow ri-sanctity)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-sanctity)
(chat-to-all "research sanctity")
)
;TOWERS
(defrule
(goal 2 0)
(building-type-count-total watch-tower > 1)
(can-research-with-escrow ri-guard-tower)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-guard-tower)
(chat-to-all "research guard tower")
)
(defrule
(goal 2 0)
(building-type-count-total guard-tower > 1)
(can-research-with-escrow ri-keep)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-keep)
(chat-to-all "research keep")
)
(defrule
(goal 2 0)
(building-type-count university > 0)
(building-type-count-total watch-tower-line > 3)
(research-available ri-bombard-tower)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-bombard-tower)
(chat-to-all "research bombard-tower")
)
(defrule
(goal 2 0)
(building-type-count-total watch-tower-line > 3)
(can-research-with-escrow ri-heated-shot)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-heated-shot)
(chat-to-all "research heated-shot")
)
(defrule
(goal 2 0)
(or
(building-type-count-total castle > 0)
(building-type-count-total watch-tower-line > 2)
)
(can-research-with-escrow ri-murder-holes)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-murder-holes)
(chat-to-all "research murder-holes")
)
(defrule
(goal 2 0)
(or
(building-type-count-total castle > 0)
(building-type-count-total watch-tower-line > 2)
)
(can-research-with-escrow ri-fortified-wall)
=>
(release-escrow wood)
(release-escrow food)
(release-escrow gold)
(release-escrow stone)
(research ri-fortified-wall)
(chat-to-all "research fortifications")
)
; ============== ATTACKING - The AI will attack once at 1100 seconds and then again every 1400 sec, provided it has enough defense soldiers.
(defrule
(game-time > 0)
=>
(chat-to-all "panda ai v2.0")
;(enable-timer 250 0)
(disable-self)
)
;-----------------------------------------------------
;militiaman-line民兵类
(defrule
(timer-triggered 0)
(unit-type-count-total militiaman-line < 3)
(can-train militiaman-line)
=>
(train militiaman-line)
(chat-to-all "train militiaman-line")
(chat-to-all "train militiaman-line")
)
;封建时代
;出兵
;造城堡兵种类
(defrule
(unit-type-count-total my-unique-unit-line < 100)
(can-train my-unique-unit-line)
=>
(train my-unique-unit-line)
(chat-to-all "unique unit")
)
;城堡兵种类满足进攻
(defrule
(goal 19 1)
(unit-type-count my-unique-unit-line > 20)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "my-unique-unit-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;造攻城锤类
(defrule
(not (town-under-attack))
(unit-type-count-total battering-ram-line < 4)
(defend-soldier-count >= 10)
(can-train battering-ram-line)
=>
(train battering-ram-line)
(chat-to-all " I want to ram something")
)
;攻城锤类满足进攻
(defrule
(goal 19 1)
(unit-type-count battering-ram-line >= 2)
(soldier-count >= 20)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "battering-ram-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;knight-line 骑士类
(defrule
(food-amount greater-than 200)
(gold-amount greater-than 100)
;(wood-amount greater-than 200)
(unit-type-count-total knight-line < 15)
(can-train knight-line)
=>
(train knight-line)
(chat-to-all "train knight-line")
)
;骑士类满足进攻
(defrule
(goal 19 1)
(unit-type-count knight-line > 4)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "knight-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;hand-cannoneer 火枪手
(defrule
(food-amount greater-than 200)
(gold-amount greater-than 200)
;(wood-amount greater-than 200)
(unit-type-count-total hand-cannoneer < 8)
(can-train hand-cannoneer)
=>
(train hand-cannoneer)
(chat-to-all "train hand-cannoneer")
)
;火枪手满足进攻
(defrule
(goal 19 1)
(unit-type-count hand-cannoneer > 4)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "hand-cannoneer attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;militiaman-line 民兵类
(defrule
(food-amount greater-than 100)
(gold-amount greater-than 100)
;(wood-amount greater-than 200)
(unit-type-count-total militiaman-line < 20)
(can-train militiaman-line)
=>
(train militiaman-line)
(chat-to-all "train militiaman-line")
)
;民兵类满足进攻
(defrule
(goal 19 1)
(unit-type-count militiaman-line > 8)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "militiaman-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;eagle-warrior-line 鹰武士类
(defrule
(food-amount greater-than 200)
(gold-amount greater-than 200)
;(wood-amount greater-than 200)
(unit-type-count-total eagle-warrior-line < 5)
(can-train eagle-warrior-line)
=>
(train eagle-warrior-line)
(chat-to-all "train eagle-warrior-line")
)
;鹰武士类满足进攻
(defrule
(goal 19 1)
(unit-type-count eagle-warrior-line > 4)
=>
(attack-now)(chat-to-player any-ally "23")
(disable-timer 8)
(set-goal 19 0)
(chat-to-all "eagle-warrior-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;spearman-line 长枪兵类
(defrule
(food-amount greater-than 200)
(wood-amount greater-than 100)
;(gold-amount greater-than 200)
(unit-type-count-total spearman-line < 20)
(can-train spearman-line)
=>
(train spearman-line)
(chat-to-all "train spearman-line")
)
;长枪兵类满足进攻
(defrule
(goal 19 1)
(unit-type-count spearman-line > 18)
=>
(attack-now)(chat-to-player any-ally "23")
(disable-timer 8)
(set-goal 19 0)
(chat-to-all "spearman-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;cavalry-archer-line 骑射手类
(defrule
;(food-amount greater-than 200)
(wood-amount greater-than 300)
(gold-amount greater-than 300)
(unit-type-count-total cavalry-archer-line < 8)
(can-train cavalry-archer-line)
=>
(train cavalry-archer-line)
(chat-to-all "train cavalry-archer-line")
)
;骑射手类满足进攻
(defrule
(goal 19 1)
(unit-type-count cavalry-archer-line > 4)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "cavalry-archer-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;archer-line 步弓手类
(defrule
;(food-amount greater-than 200)
(wood-amount greater-than 200)
(gold-amount greater-than 200)
(unit-type-count-total archer-line < 12)
(can-train archer-line)
=>
(train archer-line)
(chat-to-all "train archer-line")
)
;步弓手类满足进攻
(defrule
(goal 19 1)
(unit-type-count archer-line > 10)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "archer-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;skirmisher-line投矛兵类
(defrule
(food-amount greater-than 100)
(wood-amount greater-than 100)
;(gold-amount greater-than 500)
(unit-type-count-total skirmisher-line < 30)
(can-train skirmisher-line)
=>
(train skirmisher-line)
(chat-to-all "train skirmisher-line")
)
;投矛兵类满足进攻
(defrule
(goal 19 1)
(unit-type-count skirmisher-line > 20)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "skirmisher-line attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;scout-cavalry 轻骑兵
(defrule
(food-amount greater-than 500)
;(gold-amount greater-than 200)
;(wood-amount greater-than 200)
(unit-type-count-total scout-cavalry < 10)
(can-train scout-cavalry)
=>
(train scout-cavalry)
(chat-to-all "train scout-cavalry")
)
;轻骑兵类满足进攻
(defrule
(goal 19 1)
(unit-type-count scout-cavalry > 9)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(chat-to-all "scout-cavalry attacks!!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;总体满足进攻
(defrule
(or
(defend-soldier-count >= 30)
(attack-soldier-count >= 35)
)
(goal 19 1)
=>
(attack-now)(chat-to-player any-ally "23")
(set-goal 19 0)
(set-strategic-number sn-number-forward-builders 20)
(chat-to-all "other attacks!!!!!!!!!!!!!!!!!!!!")
(enable-timer 3 0)
)
;循环进攻
(defrule
(true)
=>
(enable-timer 19 0)
(disable-self)
)
(defrule
(timer-triggered 19)
=>
(set-goal 19 1);可以进攻的状态
(disable-timer 19)
(enable-timer 19 30)
)
; https://www.orayes.com
; 2012.9.29 AI呢？
_CgaM_燕子 发表于 2012-9-30 14:57 static/image/common/back.gif
AI呢？
他直接贴了出来 求文件啊 AI文件直接贴出来了，大家给点意见，目前只在阿拉伯、高地等地图好一顿测试，其他的图可能因为各种原因遇到BUG，大家可以告诉我。
页:
[1]