AI设定建议

zsl2007

大致看了pascal的复刻版和游泳的鱼lua的复刻版关于AI的源代码。发现lua复刻版敌人的战斗AI要强大的多。建议mod制作者使用游泳的鱼的AI

[发帖际遇]: zsl2007在丽春院喝酒,发掘了人才韦小宝,增加声望10.

winson7891

lz能说说强大的地方吗？

没有研究过ai部分呢~呵呵~

小小猪

大概看了一下两个版本的AI，基本上是下面这样：
（不一定准确，仅供大家参考）

pascal版AI：
1、随机选择一个敌人
2、向该敌人移动，尽可能近
3、选择威力最强的武功，看攻击范围内是否有敌人，有则攻击
4、若威力最强的武功攻击不到，改为选择距离最远的武功，若能攻击到则攻击
5、实在攻击不到，休息


lua版AI：
1、选择一个武功。选择方式为：根据武功的威力、与武器配合、攻击范围等数值，给每项武功分配一个权重区间，然后产生一个随机数，看落在哪个区间，就选哪个武功。
2、选择移动点。选择方式为：遍历所有能移动到的点，考察在该点用选定的武功能攻击到的人数，选择人数最多的移动点。若人数相同，取移动步数最少的点。若无论怎样移动，都无法攻击到任何人，则选择离敌人最近的点。
3、移动至该点，能攻击到则攻击，不能攻击到则休息。

[ 本帖最后由 小小猪 于 2009-7-2 15:43 编辑 ]

zsl2007

大概说一下吧。 游泳的鱼的AI里，敌方选择武功是选择攻击到我方人数最多的，并且抛弃攻击力很低的武功。比如面攻，可能对空格放，只要那个点能打到最多的人。每次选择最近的攻击对手进行攻击。只要在攻击范围内有我方，必然会攻击，不会出现很傻地去追很远的比较弱的人。如果我方人数多，那么考虑面攻的概率增大。不足的地方就是应该考虑我方人员的站位，而不是简单地选择最近的目标。

[发帖际遇]: zsl2007去客栈吃饭，碰到郭靖，郭靖请你吃饭，并赠送银两25.

小小猪

不太明白你说的“应该考虑我方人员的站位”是什么意思。
在无论怎样移动，也无法攻击到敌人的情况下，选择最近的目标并向他移动，我认为是一个合理的选择。你觉得应该怎样“考虑我方人员的站位”呢？

[发帖际遇]: 小小猪去辽东拜祭胡一刀，碰到田归农，被当成胡斐追杀，损失银两24。

weyl

加上特技效果之后，AI 还要考虑使用特技的时机，很麻烦的

mwg06

要用了这个AI的话，至少群芳的NPC强度得大调整

[发帖际遇]: mwg06去长白山捉火蟾，送给韦一笑，得感谢费银两13.

金圭子

原帖由 小小猪 于 2009-7-2 16:16 发表
不太明白你说的“应该考虑我方人员的站位”是什么意思。
在无论怎样移动，也无法攻击到敌人的情况下，选择最近的目标并向他移动，我认为是一个合理的选择。你觉得应该怎样“考虑我方人员的站位”呢？

[发帖际遇]:  ...

现在是不管是不是可以攻击到都走最近，但是如果可以攻击到，但是最近的反而不能攻击（比如只有线、十字的情况下，最近的不在一个xy轴上），反而最近的不是最好了吧。

说的应该是这种情况，在群芳谱中这种情况很多，最后不得不尽可能取消线、十字攻击。


还有面攻击可以攻击空地做的很好，现在waxyzwa在做复刻版的ai，虽然做的有点繁杂（速度有很大的下降），不过考虑的还是比较周全的。

[发帖际遇]: 金圭子去辽东拜祭胡一刀，碰到袁紫衣，帮忙转告消息，袁紫衣赠送银两18。

小小猪

1. function War_AutoMove(wugongnum)              --自动往敌人方向移动
   
2.     local pid=WAR.Person[WAR.CurID]["人物编号"];
   
3.     local wugongid=JY.Person[pid]["武功"  ..wugongnum];
   
4.     local level=math.modf(JY.Person[pid]["武功等级".. wugongnum]/100)+1;
   
5. 
   
6.     local wugongtype=JY.Wugong[wugongid]["攻击范围"];
   
7.     local scope=JY.Wugong[wugongid]["移动范围" ..level]+JY.Wugong[wugongid]["杀伤范围" ..level]
   
8. 
   
9. 
   
10.     local x,y;
    
11.         local move=128;
    
12. 
    
13.     War_CalMoveStep(WAR.CurID,WAR.Person[WAR.CurID]["移动步数"],0);   --计算移动步数
    
14. 
    
15.     local maxenemy=0;
    
16.         for i=0,CC.WarWidth-1 do
    
17.                 for j=0,CC.WarHeight-1 do
    
18.                     local cur_step=Byte.get16(WAR.Map3,(j*CC.WarWidth+i)*2);
    
19.                         if cur_step <128 then
    
20.                                 local num=War_AutoCalMaxEnemy(i,j,wugongid,level);       --计算这个位置可以攻击到的最多敌人个数
    
21.                                 if num>maxenemy then
    
22.                                         maxenemy=num
    
23.                                         x=i;
    
24.                                         y=j;
    
25.                     move=cur_step;
    
26.                                 elseif num==maxenemy then            --两个位置人数相等，则取移动距离最短
    
27.                                     if cur_step < move then
    
28.                                                 maxenemy=num
    
29.                                                 x=i;
    
30.                                                 y=j;
    
31.                                                 move=cur_step;
    
32.                                         end
    
33.                                 end
    
34.                         end
    
35.                 end
    
36.         end
    
37. 
    
38.     if maxenemy>0 then
    
39.         War_MovePerson(x,y);    --移动到相应的位置
    
40.                 return 1;
    
41.         else   --任何移动都直接攻击不到敌人，寻找一条可以移动到攻击到敌人位置的路线
    
42.             x,y=War_GetCanFightEnemyXY(scope);
    
43. 
    
44.             local minDest=math.huge;
    
45.         if x==nil then   --无法走到可以攻击敌人的地方，可能敌人被围住，或者被敌人围住。
    
46.             local enemyid=War_AutoSelectEnemy()   --选择最近敌人
    
47.                 War_CalMoveStep(WAR.CurID,100,0);   --计算移动步数 假设最大100步
    
48.             for i=0,CC.WarWidth-1 do
    
49.                 for j=0,CC.WarHeight-1 do
    
50.                                     local dest=Byte.get16(WAR.Map3,(j*CC.WarWidth+i)*2);
    
51.                     if dest <128 then
    
52.                         local dx=math.abs(i-WAR.Person[enemyid]["坐标X"])
    
53.                         local dy=math.abs(j-WAR.Person[enemyid]["坐标Y"])
    
54.                         if minDest>(dx+dy) then        --此时x,y是距离敌人的最短路径，虽然可能被围住
    
55.                             minDest=dx+dy;
    
56.                             x=i;
    
57.                             y=j;
    
58.                         elseif minDest==(dx+dy) then
    
59.                             if Rnd(2)==0 then
    
60.                                 x=i;
    
61.                                 y=j;
    
62.                             end
    
63.                         end
    
64.                     end
    
65.                 end
    
66.             end
    
67.                 else
    
68.             minDest=0;        --可以走到
    
69.                 end
    
70. 
    
71.                 if minDest<math.huge then
    
72.                     while true do    --从目的位置反着找到可以移动的位置，作为移动的次序
    
73.                 local i=Byte.get16(WAR.Map3,(y*CC.WarWidth+x)*2);
    
74.                 if i<=WAR.Person[WAR.CurID]["移动步数"] then
    
75.                     break;
    
76.                 end
    
77.                 if Byte.get16(WAR.Map3,(y*CC.WarWidth+x-1)*2)==i-1 then
    
78.                     x=x-1;
    
79.                 elseif Byte.get16(WAR.Map3,(y*CC.WarWidth+x+1)*2)==i-1 then
    
80.                     x=x+1;
    
81.                 elseif Byte.get16(WAR.Map3,((y-1)*CC.WarWidth+x)*2)==i-1 then
    
82.                     y=y-1;
    
83.                 elseif Byte.get16(WAR.Map3,((y+1)*CC.WarWidth+x)*2)==i-1 then
    
84.                     y=y+1;
    
85.                 end
    
86.             end
    
87.             War_MovePerson(x,y);    --移动到相应的位置
    
88.         end
    
89.     end
    
90. 
    
91.     return 0;
    
92. end

复制代码

先是调用了一个War_CalMoveStep，计算出所有可移动到的点。
接着一个双重循环，遍历所有点，调用War_AutoCalMaxEnemy来判断每个点能攻击到的人数。
然后选择攻击到人数最多的点，并移动。
如果maxenemy>0的条件不满足，也就是攻击不到任何人，才调用War_AutoSelectEnemy() 来寻找最近的敌人。

[发帖际遇]: 小小猪去天宁寺抢夺连城宝藏，抢到有毒的宝藏，损失医药费银两39。

金圭子

小猪你这个是lua的ai？
看语言不像pascal的…………

[发帖际遇]: 金圭子发现石破天准备用银票擦屁股，赶紧送上两卷草纸，换回一张银票，兑换银两30。

小小猪

对啊，说的就是游泳的鱼的lua版

金圭子

最近倒是有个工作需要用lua，为此稍微看了一下lua的语法结构。
不过那个工作主要要做的还是lua以外的东西（比如一些xml设计的界面之类的……最近在做wdf版的），所以lua基本上还是不懂。

至于语言以外的建模…………ai也就是那回事情，思考一下平时人是怎么想的，把每个模糊的部分分解成非常定性定量的最小步骤，也就是建模，也就是ai了。

[发帖际遇]: 金圭子买通太监进宫旅游,花费银两26.

zsl2007

恩。 游戏中的特技比较不实用。。。除非我方人数很少，如果人数多，还是用大面积的好。游泳的鱼作的AI的确已经很强了。

[发帖际遇]: zsl2007用胡萝卜、白萝卜、玉米粒、葱花等材料仿制侠客岛“腊八粥”，获利银两10.