[UP1.5] AI的递进结构

newtonerdai

;///////////////////////////////////////////////////////////
;//                        递进结构                       //
;//                                     适用于UP/WK/LK/DE //
;//                                      制作 newtonerdai //
;///////////////////////////////////////////////////////////
;【注】本文只作教程用，重在理解。请不要直接套用。
;这里的递进结构只是其中一种。本文中的例子，其多个选项之间是没有交集的，所以可以让AI每次遍历时都从头刷新一次。
;如果你的多个选项之间有交集或划分（比如战力碾压时可能会选择莽冲(淹没敌人)，战力被碾压时也有可能会选择莽冲(放弃治疗)），那就需要自己思考做法了，动动脑筋吧~！

(defconst enemy-seen 100)
;enemy-seen = 0 —— 初始状态，代表未发现敌人
;enemy-seen = 1 —— 代表发现了敌人。
(defconst choice 101)
;choice = 0 —— 初始状态。未发现敌人时，不进行任何选择
;choice >= 1 —— 当发现敌人后，激活选择模块
;   choice = 10 —— 选择：进攻
;       choice = 11 —— 执行：莽冲
;            （choice = 11~14 —— 更细节的决定）
;       choice = 15 —— 执行：风筝绕圈
;            （同理，更细节的决定）
;   choice = 20 —— 选择：撤退
;       choice = 21 —— 执行：直撤
;       choice = 25 —— 执行：边打边退
;   战斗结束后，重置choice为0

(defconst gl-local-total 102)       ;本地搜索结果计数（即搜索AI玩家自己）
(defconst gl-local-last 103)
(defconst gl-remote-total 104)      ;远程搜索结果计数（可以是搜索任何玩家）
(defconst gl-remote-last 105)

;初始化
(defrule
    (true)
=>
    (set-goal enemy-seen 0)
    (set-goal choice 0)
    (disable-self)
)
;================== 判断战斗状态模块 ==================
;搜索敌人(玩家1)的最多40个弓兵系单位
(defrule
    (true)
=>
    (up-full-reset-search)                      ;搜索前需清空筛选和搜索结果
    (up-modify-sn sn-focus-player-number c:= 1) ;设置焦点玩家为玩家1（焦点即为观察）
    (up-find-remote c: archer-line c: 40)       ;搜索焦点玩家的弓兵系最多40个
    (up-get-search-state gl-local-total)        ;获取搜索结果计数到以gl-local-total开头的连续4个变量
)
;发现敌人时，设为1
(defrule
    (up-compare-goal gl-remote-total c:>= 1)    ;判断远程搜索结果计数，≥1时说明发现了敌人
=>
    (set-goal enemy-seen 1)
    (chat-to-all "发现敌人")
)
;没有发现敌人时，设为0
(defrule
    (up-compare-goal gl-remote-total c:== 0)    ;判断远程搜索结果计数，为0时说明没有发现敌人
=>
    (set-goal enemy-seen 0)
    (chat-to-all "没有发现敌人")
)
;搜索完成后清空搜索
(defrule
    (true)
=>
    (up-full-reset-search)
    (up-get-search-state gl-local-total)
)

;===================== 选择模块 =====================
;发现敌人时，开启模块
(defrule
    (goal enemy-seen 1)
=>
    (set-goal choice 1)
)
;没有发现敌人时，关闭模块
(defrule
    (goal enemy-seen 0)
=>
    (set-goal choice 0)
)
;+++++++++++++++++++++ 选择阶段 ++++++++++++++++++++

;----------- A. 决定进攻 ------------
(defrule
    (up-compare-goal choice c:>= 1)             ;大于等于1时成立。这么写可以让AI每次遍历规则时都做一次决定，无论已做的决定是如何的。
    (unit-type-count archer-line >= 5)          ;检测复杂，此处略写。假设是检测 “我方战力＞敌方战力” 的语句。
=>
    (set-goal choice 10)
    (chat-to-all "我决定继续攻击")              ;【注】接下来这些chat-to-all会不断重复发出。如果想只说一次，可以自己思考哦~
)
    ;① 进攻 => 莽冲
    (defrule
        (up-compare-goal choice c:>= 10)
        (unit-type-count archer-line >= 20)     ;检测复杂，此处略写。假设是检测 “我方战力 碾压 敌方战力” 的语句。
    =>
        (set-goal choice 11)
        (chat-to-all "我优势很大，我要莽冲了")
    )
    ;② 进攻 => 风筝绕圈
    (defrule
        (up-compare-goal choice c:>= 10)
        (unit-type-count archer-line < 20)      ;检测复杂，此处略写。假设是检测 “我方战力 稍大于 敌方战力” 的语句。
    =>
        (set-goal choice 15)
        (chat-to-all "我优势不大，执行风筝战术")
    )

;---------- B. 决定撤退 -----------
(defrule
    (up-compare-goal choice c:>= 1)
    (unit-type-count archer-line < 10)          ;检测复杂，此处略写。假设是检测 “我方战力＜敌方战力” 的语句。
=>
    (set-goal choice 20)
    (chat-to-all "我决定撤退了")
)
    ;① 撤退 => 直撤
    (defrule
        (up-compare-goal choice c:>= 20)
        (unit-type-count archer-line <= 6)      ;检测复杂，此处略写。假设是检测 “我方战力 远远小于 敌方战力” 的语句。
    =>
        (set-goal choice 21)
        (chat-to-all "我战力太弱了，我要直接撤退了")
    )
    ;② 撤退 => 边打边退
    (defrule
        (up-compare-goal choice c:>= 20)
        (unit-type-count archer-line > 6)       ;检测复杂，此处略写。假设是检测 “我方战力 稍小于 敌方战力” 的语句。
    =>
        (set-goal choice 25)
        (chat-to-all "我劣势不算太大，我要边打边退")
    )

cxt

新桶又熬夜写AI了