中间渐开线法找怪脚本源码

1. UserVar LTop=200,100 鼠标活动范围：左上角坐标
   
2. UserVar RBot=700,500 鼠标活动范围：右下角坐标
   
3. UserVar Center=300,200 方形渐开搜怪起点
   
4. UserVar L=20 2个搜怪点之间的距离
   
5. UserVar M=3 从第几圈开始搜索
   
6. //变量定义
   
7. Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2
   
8. //在鼠标左上角活动范围变量“LTop”内查找逗号，用于区分左上角的X、Y坐标
   
9. s=InStr(LTop,",")
   
10. //Mid(参数1，参数2，参数3）：从字符串中返回指定数目的字符
    
11. //参数1（字符串表达式，从中返回字符）
    
12. //参数2（参数1中被提取的字符部分的开始位置）
    
13. //参数3（要返回的字符数，若省略将返回字符串中从参数2 到字符串结束的所有字符）
    
14. //“Mid(LTop,1,s-1)”从字符串“LTop”中的第1个字符开始取s-1个字符
    
15. //int(Mid(LTop,1,s-1)):将取到的字符转换成整数
    
16. //取鼠标活动范围左上角横坐标赋值到变量a1
    
17. a1=int(Mid(LTop,1,s-1))
    
18. //取鼠标活动范围左上角纵坐标赋值到变量b1
    
19. b1=int(Mid(LTop,s+1))
    
20. s=InStr(RBot,",")
    
21. //取鼠标活动范围右下角横坐标赋值到变量a2
    
22. a2=int(Mid(RBot,1,s-1))
    
23. //取鼠标活动范围右下角纵坐标赋值到变量b2
    
24. b2=int(Mid(RBot,s+1))
    
25. s=InStr(Center,",")
    
26. //取起点坐标赋值到x0,y0
    
27. x0=int(Mid(Center,1,s-1))
    
28. y0=int(Mid(Center,s+1))
    
29. //比较x0到a1和x0到a2的长度，取最长的距离来限制方形渐开的范围，保证渐开线能全部覆盖鼠标活动范围
    
30. If x0-a1>=a2-x0
    
31.     n=a1
    
32. Else
    
33.     //将x0到a2的距离转换到左边，方便下面的While x>=n的循环判断
    
34.     n=x0-(a2-x0)
    
35. EndIf
    
36. Rem 开始搜怪
    
37. //将点距赋值到v
    
38. v=L
    
39. //将渐开起点圈数赋值到i
    
40. i=M
    
41. //将渐开起点坐标赋值到x,y
    
42. x=x0:y=y0-v
    
43. While x>=n
    
44.     k1=0:k2=v
    
45.     For 2
    
46.         For i
    
47.             x=x+k1:y=y+k2
    
48.             //只有（x，y）点在鼠标活动范围内才移动鼠标和执行颜色变化判断
    
49.             If x>=a1 and x<=a2 and y>=b1 and y<=b2
    
50.                 //计算出x，y后，先取x，y点的颜色赋值到c1
    
51.                 VBSCall c1=GetPixelColor(x,y)
    
52.                 MoveTo x,y
    
53.                 Delay 10
    
54.                 //移动到x,y延时10毫秒后再次取x,y点的颜色并赋值到c2
    
55.                 VBSCall c2=GetPixelColor(x,y)
    
56.                 //如果x,y点的颜色鼠标移动前和鼠标移动后的颜色不同，则执行打怪动作
    
57.                 If c1<>c2
    
58.                     //打怪代码
    
59.                     Delay 1000
    
60.                     //打完怪后再重新开始搜索
    
61.                     Goto 开始搜怪
    
62.                 EndIf
    
63.                 Delay 1
    
64.             EndIf
    
65.         EndFor
    
66.         k1=v:k2=0
    
67.     EndFor
    
68.     i=i+1:v=v*(-1)
    
69. EndWhile
    
70. Delay 200
    
71. //搜索完鼠标活动范围后重新开始搜索
    
72. Goto 开始搜怪

复制代码