酒馆抢答活动［第一期］

欧阳龙

5卸下位置随机 盖亚

欧阳龙

7利用被上帝抛弃的视野

Hoi11

第九题：https://www.hawkaoe.net/bbs/thread-135114-1-1.html

一窍不开

Hoi11 发表于 2015-10-4 01:33
第九题：https://www.hawkaoe.net/bbs/thread-135114-1-1.html

厉害，另外问一下，我能不能引用你的AI的相关部分？

Hoi11

一窍不开 发表于 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) )