[UP1.5] AI的瞬间循环结构

newtonerdai

;///////////////////////////////////////////////////////////
;//                        循环结构                       //
;//                                     适用于UP/WK/LK/DE //
;//                                      制作 newtonerdai //
;///////////////////////////////////////////////////////////
;循环执行是代码界非常重要的一种功能。在 Userpatch 问世之前，帝国的AI要做出瞬时循环，想要循环N次，就需要N+个规则。
;拜 Userpatch 的新AI语句所赐，帝国的AI也拥有了只需寥寥数个规则，就能简单实现瞬时循环的方法！
;这里提供了2种瞬时循环N次的方式。给大家学习。
;【注：本文仅作教程用，不适合直接套用】

(defconst i 100)    ;示例①
(defconst k 101)    ;示例②

;初始化。让循环从第1次开始，而非第0次
(defrule
    (true)
=>
    (set-goal i 1)
    (set-goal k 1)
    (disable-self)
)

;① 跳出条件是大于5时的结果是：循环到5后，直接跳出循环。最终只循环4次
(defrule
    (up-compare-goal i c:< 5)               ;对比，当i＜5时执行规则
    (taunt-detected 1 1)                    ;测试用。玩家1输入 1 时启动循环
=>
    (up-chat-data-to-all "第%d次循环" g: i) ;每次循环开始时，报告是第几次循环
    (up-modify-goal i c:+ 1)                ;每次循环，记数+1
    (up-jump-rule -1)                       ;重复本条规则
)
(defrule
    (goal i 5)                              ;i = 5 时执行报告规则
=>
    (chat-to-all "i循环了4次，已结束")
    (acknowledge-taunt 1 1)                 ;注销 1 号嘲弄，重置为初始状态
    (set-goal i 1)                          ;重置循环次数为1
)

;② 跳出条件是大于等于5时的结果是：循环到5后，再循环一次才结束。最终循环5次
(defrule
    (up-compare-goal k c:<= 5)              ;对比，当k≤5时执行规则
    (taunt-detected 1 2)                    ;测试用。玩家1输入 2 时启动循环
=>
    (up-chat-data-to-all "第%d次循环" g: k) ;每次循环开始时，报告是第几次循环
    (up-modify-goal k c:+ 1)                ;每次循环，记数+1
    (up-jump-rule -1)                       ;重复本条规则
)
(defrule
    (goal k 6)                              ;k = 6 时执行报告规则
=>
    (chat-to-all "k循环了5次，已结束")
    (acknowledge-taunt 1 2)                 ;注销 2 号嘲弄，重置为初始状态
    (set-goal k 1)                          ;重置循环次数为1
)