1. //七雄争霸农场脚本
2. //================脚本有方奎钦制作===============
3. //================方哥出品，必属精品=============
4. //============特殊变量，不可循环赋值修改==========
5. q = 1 //变量赋值
6. W = 1 //偷菜页数变量
7. var1 = "" //变量赋空值
8. var3 = "" //变量赋空值
9. var4 = "" //变量赋空值
10. var5 = "" //变量赋空值
11. var6 = "" //变量赋空值
12. o = ""//好友敲蛋循环变量
13. //=============脚本初始化===========
14. Dim var1, var2, var3, var4, var5, var6 //用户设置界面定义变量
15. Dim i,w,s,q //偷好友界面定义变量
16. //==========收集用户信息=========
17. 用户定义变量 var1=DropList{"敲蛋":0|"不敲":1}=0 "敲好友鸡蛋(建议不要敲，需较长时间)"
18. 用户定义变量 var3=DropList{"浇水":0|"不浇":1}=0 "帮好友浇水"
19. 用户定义变量 var4=DropList{"偷菜":0|"不偷":1}=0 "是否偷好友菜"
20. 用户定义变量 Var5=DropList{"全偷":100|"1页":1|"2页":2|"3页":3|"4页":4|"5页":5|"6页":6|"7页":7|"8页":8|"9页":9|"10页":10|"11页":11|"12页":12|"13页":13|"14页":14|"15页":15|"16页":16|"17页":17|"18页":18|"19页":19|"20页":20}=100 "偷到第几页好友"
21. 用户定义变量 Var6=DropList{"1分钟":1|"5分钟":5|"10分钟":10|"15分钟":15|"20分钟":20|"25分钟":25|"30分钟":30|"35分钟":35|"40分钟":40|"45分钟":45|"60分钟":60|"70分钟":70|"90分钟":90}=10 "循环偷菜时间"
22. Call Plugin.Msg.Tips("七雄脚本开始运行") //用户提示
23. //============进入农场============
24. 标记 gh
25. 延时2000毫秒
26. FindPic 0,0,1366,768,"Attachment:\农场.bmp",0.7,jx,jy //查找农场入口
27. 如果表达式 (jx < 0 And jy < 0 Then) 为真,则
28.     MessageBox("没有找到图片，清检查游戏界面后重新启动脚本") //查找失败提示
29.     脚本停止运行
30. 否则如果(jx>0 And JY >0 Then)为真,则
31.     鼠标移到 jx+1 , jy+1
32.     延时200 //点击延时毫秒
33.     左键单击
34.     Call Plugin.Msg.Tips("进入农场成功！")//用户提示
35.     End If
36.     //===============征收自己农场=============
37.     //---------------农场征收----------------
38.     延时1500 //延时检查可收农场毫秒
39.     Call Plugin.Msg.Tips("开始收获资源") //用户提示
40.     FindPic 0,0,1366,768,"Attachment:\全部征收.bmp",0.7,zsx,zsy //检测自己的农场
41.     鼠标移到 zsx , +
42.     延时200毫秒
43.     左键单击
44.     FindPic 0,0,1366,768,"Attachment:\qd.bmp",0.5,tsx,tsy //判断是否不用收菜
45.     如果表达式 (tsx > 0 And tsy > 0 Then) 为真,则
46.         鼠标移到 tsx , +
47.         延时200毫秒
48.         左键单击
49.         Call Plugin.Msg.Tips("自己农场没有可偷的资源") //用户提示
50.         End If
51.         Call Plugin.Msg.Tips("自己农场征收成功") //用户提示
52.         //--------------自己农场浇水-------------
53.         延时300 //浇水延时毫秒
54.         Call js()
55.         //--------------收获摇钱树---------------
56.         延时300 //摇钱延时毫秒
57.         Call shs()
58.         //--------------喂小鸡--------------
59.         延时300 //喂鸡延时毫秒
60.         Call wxj()
61.         //--------------收获鸡蛋------------
62.         延时300 //收获鸡蛋延时毫秒
63.         Call hqjd()
64.         //==================征收好友资源=================
65.         //-------------------初始化---------------
66.         标记 a //循环开始
67.         延时4000毫秒
68.         i = 0 //变量赋值
69.         s = 0 //变量赋值
70.         //---------------好友浇水---------------
71.         如果表达式 (var3 = 0 Then //用户设置判断是否执行) 为真,则
72.             FindPic 0,0,1366,768,"Attachment:\浇水.bmp",0.7,tjsx,tjsy //查找浇水标志
73.             如果表达式 (tjsx > 0 And tjsy > 0 Then //发现进入) 为真,则
74.                 鼠标移到 tjsx , tjsy
75.                 左键单击
76.                 i=i+1 //成功变量
77.                 Call js() //执行浇水程序
78.             否则
79.                 s=s+1 //失败变量
80.                 End If
81.             否则
82.                 Call Plugin.Msg.Tips("用户设置不要帮好友浇水") //用户提示
83.                 s=s+1 //失败变量
84.                 End If
85.                 //------------------偷好友菜-------------
86.                 如果表达式 (var4 = 0 Then) 为真,则
87.                     FindPic 0, 0, 1366, 768, "Attachment:\可偷.bmp", 0.7, tcx, tcy
88.                     如果表达式 (tcx > 0 and tcy > 0 Then //判断是否有菜可偷) 为真,则
89.                         鼠标移到 tcx , +
90.                         延时1000 //点击延时毫秒
91.                         左键单击
92.                         延时1000 //网络延时等待毫秒
93.                         FindPic 0, 0, 1366, 768, "Attachment:\全部采摘.bmp", 0.7, cbx, cby
94.                         延时2000毫秒
95.                         鼠标移到 cbx , +
96.                         延时1000毫秒
97.                         左键单击
98.                         i=i+1 //成功变量
99.                         Call sx() //跳转到刷新标记
100.                     否则