barbarian.per 编写

beg

在#load-if-not-defined SARACEN-CIV(defrule
        (goal gl-current-age gv-feudal)
        (building-type-count-total blacksmith == 1)
        (current-age == feudal-age)
        (gold-amount < 200)
        (can-sell-commodity wood)
        (commodity-selling-price wood >= 53)
        (or        (strategic-number sn-target-evaluation-ally-proximity != 9999)
                (and        (research-available ri-coinage)
                        (gold-amount < 50)))
        (nand        (goal gl-strategy eagle-rush)
                (stone-amount > minimum-stone-eagles))
        (current-age-time g:>= gl-required-current-age-time)
=>
        (sell-commodity wood)
        (chat-to-allies "gold")  ;新加了这句游戏就报错，rule too long、、、  原意是电脑没黄金chat我来给（毕竟贸易我会做）不要把木价压太低
)
#else
(defrule
        (goal gl-current-age gv-feudal)
        (building-type-count-total blacksmith == 1)
        (current-age == feudal-age)
        (gold-amount < 200)
        (can-sell-commodity wood)
        (commodity-selling-price wood >= 53)
        (or        (strategic-number sn-target-evaluation-ally-proximity != 9999)
                (and        (research-available ri-coinage)
                        (and        (gold-amount < 50)
                                (goal gl-strategy sling))))
        (current-age-time g:>= gl-required-current-age-time)
=>
        (sell-commodity wood)
        (chat-to-player my-player-number "Sell wood for up")
)
#end-if