【教程】【GC六段】 我知道你们想要这个---AOE最优位置选取（测试测试）

htt0528

新鲜出炉 欢迎测试反馈问题 后续会维护

才做出1分钟，早上有事 先放出来大家试用下！！！

面对怪群，如何让AOE技能得到最大收益（A到最多的怪），就是这个函数的作用

算法：枚举两个点，确定过这两个点的两个圆的的圆心，循环N个点看有多少个点在这个圆里

时间复杂度：O(n^3)


使用方法：
1.用记事本打开Interface\AddOns\GC\wowamfunctions.lua

2.翻到最后另起一行

3.粘贴

4.MY_AUTOCastAOE(SpellName,RANGE,r)  SpellName=技能名  RANGE=技能施放距离 r=技能半径
   
如MY_AUTOCastAOE("圣光之锤",30,10)

1. function dis(x1,y1,x2,y2)
   
2.         return math.sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
   
3. end
   
4. 
   
5. function center(x1,y1,x2,y2,r,tar)
   
6.         local px,py;
   
7.         px=x1-x2;
   
8.         py=y1-y2;
   
9.         local midx,midy;
   
10.         midx=(x1+x2)/2.0;
    
11.         midy=(y1+y2)/2.0;
    
12.         local d=dis(midx,midy,x1,y1);
    
13.         local gao=math.sqrt(r*r-d*d);
    
14.         if (math.abs(py)<1e-8) then
    
15.                 if (tar) then
    
16.                         return midx,midy+gao
    
17.                         
    
18.                 else
    
19.                         return midx,midy-gao
    
20.                 end
    
21.         else
    
22.                 local jiao=math.atan(-px/py);
    
23.                 if (tar) then
    
24.                         return midx+gao*math.cos(jiao),midy+gao*math.sin(jiao)
    
25.                 else
    
26.                         return midx-gao*math.cos(jiao),midy-gao*math.sin(jiao)
    
27.                 end
    
28.         end
    
29. end
    
30. 
    
31. function check(rx,ry,r,Table)
    
32.         local ans=0;
    
33.         for i=1,#Table do
    
34.         if (dis(rx,ry,Table[i].x,Table[i].y)<r+.001) then        ans=ans+1 end
    
35.         end
    
36.         return ans
    
37. end
    
38. 
    
39. function MY_GetAOEPosition(r,Table)
    
40. local ans=1;
    
41. local rex,rey;
    
42. for i=1,#Table do
    
43.         for j=i+1,#Table do
    
44.                 if (dis(Table[i].x,Table[i].y,Table[j].x,Table[j].y)>r*2) then break end
    
45.                 local rx,ry=center(Table[i].x,Table[i].y,Table[j].x,Table[j].y,r,true);
    
46.                 local tt=check(rx,ry,r,Table);
    
47.                 if (tt>ans) then ans=tt rex=rx rey=ry end
    
48.                 if (ans>=#Table) then break end
    
49.         end
    
50. end
    
51. return rex,rey
    
52. end
    
53. 
    
54. function MY_AUTOCastAOE(SpellName,RANGE,r)
    
55. local PointTable={}
    
56. for i = 1, #FHenemiesTable do
    
57.         local thisUnit = FHenemiesTable[i].unit
    
58.         if FHObjectDistance("player",thisUnit)<RANGE then
    
59.         local x,y,_=ObjectPosition(thisUnit)
    
60.         table.insert(PointTable,{x=x,y=y})
    
61.         end
    
62. end
    
63. local _,_,_,_,_,_,spellID = GetSpellInfo(SpellName)
    
64. local X,Y,_=MY_GetAOEPosition(r,PointTable)
    
65. local _,_,Z=ObjectPosition("player")
    
66. if X~=nil and Y~=nil and Z~=nil and amSpellCooldown(spellID) == 0  then
    
67.         CastSpellByName(SpellName,"player");
    
68.         if IsAoEPending() then
    
69.                 ClickPosition(X,Y,Z,true);
    
70.                 return true;
    
71.         end
    
72. end
    
73. return false;
    
74. end

复制代码

黑猩猩

你这个问题已经被发现了，目前最新版本115.3 ，在判断自身或者目标周围有多少怪的时候（FH功能），是不带模型的，所以当有很大模型的怪的时候（例如：AK），会出现无法正确判断的情况，一般性测试的时候，都是以木柱为测试目标，木柱的模型很小，这也就是这个函数目前错误的情况，这个已经被我提交给蛙大，已经测试成功。

丁丁

赞 羡慕搞得懂LUA的 我看了就睡着…我也想学的…
小提问
可不可以限定判断目标的移动速度是≤30的，你懂的…圈一放就尼玛跑走了。
还有目标存活时间函数msGTTD? (get target time to die) 有的AOE是慢慢A的
可以过滤掉被玩家法术控制的吗？过滤掉身上有无敌免疫伤害的怪呢？破羊或者AOE都A到副本里无敌的adds上。。

htt0528

丁丁 发表于 2015-7-23 13:31
赞 羡慕搞得懂LUA的 我看了就睡着…我也想学的…
小提问
可不可以限定判断目标的移动速度是≤30的，你懂 ...

额，目前这个部分不包含是否Aoe的判断，而是Aoe的一个动作，不过关于排除非战斗目标和防破控倒是可以加入，感谢的你建议

巨型青蛙

楼主的钻研精神赞一个

gengxxx

屌屌屌屌！！！！
强烈好评。推荐加精

白鼻子的黑猫

貌似蛮强力的。

你看的见我么

厉害~大清早的就写帖子，也是蛮拼的！五星好评~

强力老猫

好棒！！

JuN...TMTT

牛逼啊，赞