Drools 3.1M1真的不错 回合制游戏开发原来并不难

     前几天在论坛讨论了Drools后，说到了Drools的问题，根据DaDa老兄的描述，找到了Drools 3.1M1，发现From Collect真的不错。已经试着成功集成到公司开发框架中（现在可以不重新编辑，只是改改文本文件就达到调整Control层的效果），昨晚突发奇想，试着花了几个小时用Drools写了一个Tank自动对打游戏，感觉还不错。打算后续完善一下，集成同事推荐的robocode玩玩。   相信Drools3.2正式版出来以后，用这个搞开发真的会很流行

   Copy一段昨晚Rule上来抛砖引玉，帮助想了解M1却不想看E文的朋友。

  规则代码

package warrule

import warunit.Tank;
import work.Hit;
import work.Exp;
import work.Order;
import java.util.ArrayList;

rule "destroy"
  salience 1000
  when
    tk:Tank(life <= 0 , $id:id)
    ht:Hit(to == $id ,$s:soruce)
    xp:Exp(status ==0)
  then
    System.out.println("Tank:"+ $id +" 被"+ $s +"击毁!");
    xp.setCt(1);
    xp.setId($s);
    xp.setStatus(1);
    retract(tk);
    modify(xp);
 end

rule "get exp"
  salience 950
  when
     xp:Exp(status == 1,$id:id,$ct:ct)
     tk:Tank(id==$id,$xp:exp)
  then
     xp.setStatus(0);
     modify(xp);
     int nxp =$xp + $ct;
     tk.setExp(nxp);
     modify(tk);
     System.out.println("Tank:"+ $id +" 击毁Tank，获取经验:1,现有经验:"+ nxp);
 end

rule "hit by enemy"
 salience 900
 when
     ht:Hit(status ==1,$t:to,$ht:hit)
     tk:Tank(id == $t,$lf:life)
 then
     int rm = $lf - $ht;
    // System.out.println(" 剩余生命:" + rm);
     ht.setStatus(0);
     tk.setLife(rm);
     modify(tk);
     modify(ht);
end



rule "hit enemy right"
 salience 800
 when
    ht:Hit(status ==0 )
    $tk:Tank(run >0 , $x:x,$y:y,$id:id,$t:team,$r:run,$ht:hit)
    li:ArrayList(size >0) from collect( Tank(x ==($x+1),y==$y,team != $t))
 then
    Tank tk1 = (Tank)li.get(0);
    System.out.print("Tank:"+ $id +" 打击右侧敌人:" + tk1.getId() );
    ht.setSoruce($id);
    ht.setTo(tk1.getId());
    ht.setHit($ht);
    ht.setStatus(1);
    $tk.setRun($r-1);
    modify($tk);
    modify(ht);
end



rule "hit enemy left"
 salience 800
 when
    ht:Hit(status ==0 )
    $tk:Tank(run >0 , $x:x,$y:y,$id:id,$t:team,$r:run,$ht:hit)
    li:ArrayList(size >0) from collect( Tank(x ==($x-1),y==$y,team != $t))
 then
    Tank tk1 = (Tank)li.get(0);
    System.out.print("Tank:"+ $id +" 打击左侧敌人:" + tk1.getId() );
    ht.setSoruce($id);
    ht.setTo(tk1.getId());
    ht.setHit($ht);
    ht.setStatus(1);
    $tk.setRun($r-1);
    modify($tk);
    modify(ht);
end


rule "hit enemy down"
 salience 800
 when
    ht:Hit(status ==0 )
    $tk:Tank(run >0 , $x:x,$y:y,$id:id,$t:team,$r:run,$ht:hit)
    li:ArrayList(size >0) from collect( Tank(x ==$x,y==($y+1),team != $t))
 then
    Tank tk1 = (Tank)li.get(0);
    System.out.print("Tank:"+ $id +" 打击下侧敌人:" + tk1.getId() );
    ht.setSoruce($id);
    ht.setTo(tk1.getId());
    ht.setHit($ht);
    ht.setStatus(1);
    $tk.setRun($r-1);
    modify($tk);
    modify(ht);
end

rule "hit enemy up"
 salience 800
 when
    ht:Hit(status ==0 )
    $tk:Tank(run >0 , $x:x,$y:y,$id:id,$t:team,$r:run,$ht:hit)
    li:ArrayList(size >0) from collect( Tank(x ==$x,y==($y-1),team != $t))
 then
    Tank tk1 = (Tank)li.get(0);
    System.out.print("Tank:"+ $id +" 打击上侧敌人:" + tk1.getId() );
    ht.setSoruce($id);
    ht.setTo(tk1.getId());
    ht.setHit($ht);
    ht.setStatus(1);
    $tk.setRun($r-1);
    modify($tk);
    modify(ht);
end

rule "goRight"
    salience 100
    when
    od:Order(status ==1,px:px,py:py);
        tk:Tank(x < px, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x ==($x+1),y==$y))
    then
        int $nx = $x +1;
        //System.out.println("Tank:["+ $id +"]向右移动: ["+ $x +","+ $y +"] => ["+ $nx +","+ $y +"]" );
        tk.setX($nx);
        tk.setRun($r-1);
        modify(tk);
end

rule "goRightDown"
    salience 150
    when
    od:Order(status ==1,px:px,py:py);
        tk:Tank(x < px, y < py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x ==($x+1),y==($y+1)))
    then
        int $nx = $x +1;
        int $ny = $y +1;
        //System.out.println("Tank:["+ $id +"]向右下移动: ["+ $x +","+ $y +"] => ["+ $nx +","+ $y +"]" );
        tk.setX($nx);
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end

rule "goLeftDown"
    salience 150
    when
        od:Order(status ==1,px:px,py:py);
        tk:Tank(x >  px, y < py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x ==($x-1),y==($y+1)))
    then
        int $nx = $x -1;
        int $ny = $y +1;
        //System.out.println("Tank:["+ $id +"]向右下移动: ["+ $x +","+ $y +"] => ["+ $nx +","+ $y +"]" );
        tk.setX($nx);
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end

rule "goLeftUp"
    salience 150
    when
        od:Order(status ==1,px:px,py:py);
        tk:Tank(x >  px, y > py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x ==($x-1),y==($y-1)))
    then
        int $nx = $x -1;
        int $ny = $y -1;
        //System.out.println("Tank:["+ $id +"]向右下移动: ["+ $x +","+ $y +"] => ["+ $nx +","+ $y +"]" );
        tk.setX($nx);
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end

rule "goRightUp"
    salience 150
    when
    od:Order(status ==1,px:px,py:py);
        tk:Tank(x < px, y > py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x ==($x+1),y==($y-1)))
    then
        int $nx = $x + 1;
        int $ny = $y - 1;
        //System.out.println("Tank:["+ $id +"]向右移动: ["+ $x +","+ $y +"] => ["+ $nx +","+ $y +"]" );
        tk.setX($nx);
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end


rule "goLeft"
    salience 100
    when
        od:Order(status ==1,px:px,py:py);
        tk:Tank(x > px , run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x == ($x-1),y==$y))
    then
        int $nx = $x - 1;
        //System.out.println("Tank:["+ $id +"]向右移动: ["+ $x +","+ $y +"] => ["+ $nx +","+ $y +"]" );
        tk.setX($nx);
        tk.setRun($r-1);
        modify(tk);
end


rule "goDown"
    salience 100
    activation-group "down"
    when
        od:Order(status ==1,px:px,py:py);
        tk:Tank(y < py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x == $x,y== ($y+1) ))
    then
        int $ny = $y +1;
        //System.out.println("Tank:["+ $id +"]向下移动: ["+ $x +","+ $y +"] => ["+ $x +","+ $ny +"]");
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end

rule "goDownTarget"
    salience 200
    activation-group "down"
    when
        od:Order(status ==0,tm:team,px:px,py:py);
        tk:Tank(team ==tm, y < py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x == $x,y== ($y+1) ))
    then
        int $ny = $y +1;
        //System.out.println("Tank:["+ $id +"]向下移动: ["+ $x +","+ $y +"] => ["+ $x +","+ $ny +"]");
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end

rule "goUp"
    salience 100
    when
    od:Order(status ==1,px:px,py:py);
        tk:Tank(y > py, run > 0,$x:x,$y:y,$r:run,$id:id )
        ArrayList(size == 0) from collect( Tank(x == $x,y== ($y-1)))
    then
        int $ny = $y - 1;
        //System.out.println("Tank:["+ $id +"]向上移动: ["+ $x +","+ $y +"] => ["+ $x +","+ $ny +"]");
        tk.setY($ny);
        tk.setRun($r-1);
        modify(tk);
end

rule "atTarget"
    salience 0
    when
    od:Order(status ==1,px:px,py:py);
        tk:Tank(x == px, y==py,$x:x,$y:y,$r:run,$id:id)
    then
        System.out.println("Tank:["+ $id +"]到达中心["+ $x +","+ $y +"],剩余:"+ $r);
end

 

 

分享到：

Wii 补充运动利器 | [转贴] Drools 3.1 milestone 1 is commin ...

• 2007-04-08 00:15
• 浏览 5636
• 评论(13)
• 论坛回复 / 浏览 (13 / 9365)
• 分类:编程语言
• 查看更多

评论

13 楼 luochao3017 2007-06-20  

怎么不把这个思路发出来我们大家看哈,明白了思路,看起来应该容易些,麻烦了>[color=indigo][/color][size=18][/size]

12 楼 sonic_yj 2007-04-12  

Godlikeme 写道

if else并没有错。
能不能作为策略抽出来业务规则，可以看看oz6以前的文章。

3Q, ozzzzzz老大的Blog, 正在拜读

11 楼 Godlikeme 2007-04-12  

if else并没有错。
能不能作为策略抽出来业务规则，可以看看oz6以前的文章。

10 楼 sonic_yj 2007-04-12  

Godlikeme 写道

sonic_yj 写道

Godlikeme 写道

这么用和脚本语言有什么区别呢？

使用规则引擎的核心问题是那些逻辑可以抽象出来作为策略，使用何种规则实现这种策略。

这位老兄，我写的似乎有些就是规则吧，我并没有贴出java描述基本的Tank类来。和用脚本还是有些差别吧。确实Robocode的自动开火和移动是封装了的。但不能说明这些东西不包含规则。

难道发现敌人就开炮不算策略么？  

在我看来这些只能属于逻辑判断。

   想了解一下你说的规则，能举个例说明并比较一下么？

    我觉得能解决逻辑判断问题也很爽，我最怕的就是调来调去的if else，所以才想到用drools

9 楼 Godlikeme 2007-04-12  

sonic_yj 写道

Godlikeme 写道

这么用和脚本语言有什么区别呢？

使用规则引擎的核心问题是那些逻辑可以抽象出来作为策略，使用何种规则实现这种策略。

这位老兄，我写的似乎有些就是规则吧，我并没有贴出java描述基本的Tank类来。和用脚本还是有些差别吧。确实Robocode的自动开火和移动是封装了的。但不能说明这些东西不包含规则。

难道发现敌人就开炮不算策略么？  

在我看来这些只能属于逻辑判断。

8 楼 sonic_yj 2007-04-12  

dada 写道

sonic_yj 写道

eyejava 写道

引用

现在可以不重新编辑，只是改改文本文件就达到调整Control层的效果

修改drl 后会自动装载？

milestone还是不太敢用，因为是unstable版本，而且他们说根据这些新的features 可以把版本叫做 4.0了。

我的Drl用ReadRule从Reader读进去的，我现在规则没有保持的，用的时候加载。规则下次执行的时候就重新读自然就变了，我打算自己分拆一下，放到数据库里面管理，需要的时候拿出来组合就可以了。


BTW:你们哪位爱好Drools的老大申请一个Drools圈子吧   讨论起来文章看起在一起爽点，我初级会员没资格申请 

我和robbin申请了圈子了

hehe,专家冒出来了，空了开个贴讨论讨论都在怎么用Drools吧，互相启发一下 

7 楼 dada 2007-04-12  

sonic_yj 写道

BTW:你们哪位爱好Drools的老大申请一个Drools圈子吧   讨论起来文章看起在一起爽点，我初级会员没资格申请 

我和robbin申请了圈子了

引用

我的Drl用ReadRule从Reader读进去的，我现在规则没有保持的，用的时候加载。规则下次执行的时候就重新读自然就变了，我打算自己分拆一下，放到数据库里面管理，需要的时候拿出来组合就可以了。

规则运行时重新构建ruleBase，还是在启动时限定ruleBase一直是一个两难的问题。
如果我们采用动态组建规则集，运行时生成ruleBase的时候对性能有较大的影响。
在我的机器上整个构建过程需要大约1-2s的时间，在一个商业规则分解成许多小块规则集的情况下，构建ruleBase对业务响应时间的印象是致命的。
现在项目中我是在构建时产生ruleBase的单例，通过aop拦截规则的修改，从而产生新的ruleBase。
当然这样的做法并不够灵活，你需要预先知道有哪些规则集的组合。

6 楼 sonic_yj 2007-04-12  

eyejava 写道

引用

现在可以不重新编辑，只是改改文本文件就达到调整Control层的效果

修改drl 后会自动装载？

milestone还是不太敢用，因为是unstable版本，而且他们说根据这些新的features 可以把版本叫做 4.0了。

我的Drl用ReadRule从Reader读进去的，我现在规则没有保持的，用的时候加载。规则下次执行的时候就重新读自然就变了，我打算自己分拆一下，放到数据库里面管理，需要的时候拿出来组合就可以了。


BTW:你们哪位爱好Drools的老大申请一个Drools圈子吧   讨论起来文章看起在一起爽点，我初级会员没资格申请 

5 楼 eyejava 2007-04-12  

引用

现在可以不重新编辑，只是改改文本文件就达到调整Control层的效果

修改drl 后会自动装载？

milestone还是不太敢用，因为是unstable版本，而且他们说根据这些新的features 可以把版本叫做 4.0了。

4 楼 sonic_yj 2007-04-11  

Godlikeme 写道

这么用和脚本语言有什么区别呢？

使用规则引擎的核心问题是那些逻辑可以抽象出来作为策略，使用何种规则实现这种策略。

这位老兄，我写的似乎有些就是规则吧，我并没有贴出java描述基本的Tank类来。和用脚本还是有些差别吧。确实Robocode的自动开火和移动是封装了的。但不能说明这些东西不包含规则。

难道发现敌人就开炮不算策略么？  

3 楼 Godlikeme 2007-04-11  

这么用和脚本语言有什么区别呢？

使用规则引擎的核心问题是那些逻辑可以抽象出来作为策略，使用何种规则实现这种策略。

2 楼 sonic_yj 2007-04-10  

本身就是Java的啊，可以直接写Java,无非多了些缩写

1 楼 blackbat 2007-04-09  

可否转译为java？