第九题：https://www.hawkaoe.net/bbs/thread-135114-1-1.html
厉害，另外问一下，我能不能引用你的AI的相关部分？ 本帖最后由 Hoi11 于 2015-10-4 18:40 编辑
一窍不开 发表于 2015-10-4 16:19
厉害，另外问一下，我能不能引用你的AI的相关部分？
这个随意啦
这是其中相关的代码：(defconst exp-need-each 101)
(defconst exp-get 102)
(defconst level 103)
(defconst exp-need-all 104)
;变量定义
(defrule
(true)
=>
(up-modify-goal exp-need-each c:= 10)
(up-modify-goal exp-need-all c:= 10)
(up-modify-goal exp-get c:= 0)
(up-modify-goal level c:= 0)
(disable-self)
)
;赋初值
(defrule
(true)
=>
(up-get-fact 34 3 exp-get)
)
;玩家2的黄金表示玩家1得到的经验
(defrule
(up-compare-goal exp-get g:>= exp-need-all);当经验值满足升级值时
=>
(up-modify-goal exp-need-each c:* 13)
(up-modify-goal exp-need-each c:/ 10);升到下一级级需要的经验乘以1.3
(up-modify-goal exp-need-all g:+ exp-need-each);需要的总经验加上升到下一级需要的经验
(cc-add-resource wood 1);玩家2得一点木头，则代表玩家1升一级，然后可以用触发将玩家2的木头进贡给盖亚，这样就可以用“堆积属性：玩家2，木材1点”为条件设置升级触发
(up-modify-goal level c:+ 1)
(up-chat-data-to-player 1 "你升级了！你的等级为%d" g: level)
)
页:
1
[2]