If NT(NTi,1)>0 and NT(NTi,2)>0 then MoveTo NT(NTi,1),NT(NTi,2) Delay 500 LeftClick 1 Delay 1500 Call FindPic(150,100,1100,650,"傲视天地\按钮占领农田.bmp",0.9,intX,intY) Delay 1500 If intX>0 and intY>0 then Call FindPic(150,100,1100,650,"傲视天地\判断农田是否地方势力.bmp",0.9,intX1,intY1) If intX1>0 and intY1>0 then MoveTo intX,intY Delay 1000 LeftClick 1 Delay 1000 found=true End If End if Call FindPic(150,100,1100,650,"傲视天地\农田已经占领满额.bmp",0.9,intX1,intY1) Delay 500 Call FindPic(150,100,1100,650,"傲视天地\按钮关闭农田窗口.bmp",0.9,intX,intY) If intX>0 and intY>0 then MoveTo intX,intY Delay 500 LeftClick 1 Delay 1500 End If If intX1>0 and intY1>0 then Delay 500 Call FindPic(150,100,1100,650,"傲视天地\按钮关闭农田错误提示.bmp",0.9,intX1,intY1) If intX1>0 and intY1>0 then MoveTo intX1,intY1 Delay 500 LeftClick 1 t2jg=1200 //已经占领则20分钟间隔 else t2jg=600 End If Delay 500 Call FindPic(150,100,1280,800,"傲视天地\场景按钮主城.bmp",0.9,intX1,intY1) If intX1>0 and intY1>0 then MoveTo intX1,intY1 Delay 500 LeftClick 1 End If // KeyPress 116,1 //刷新 Delay 5000 goto 跳过农田占领 End If End If NTi=NTi+1 Wend End if Delay 500 KeyPress 116,1 //刷新 Delay 5000 End If End If Rem 跳过农田占领 If KeJi>0 Then //科技界面 Delay 10 If allx=1280 and ally=800 then Call FindCenterColor(144,282,307,295,Cor,x,y) Else Call FindCenterColor(19,282,134,296,Cor,x,y) End if If x>0 and y>0 Then //如果找到颜色 Delay 100 MoveTo x,y Delay 500 LeftClick 1 Delay 1000 found=false:outi=0 If allx=1280 and ally=800 then Call FindPic(150,100,1100,650,"傲视天地\窗口标示科技界面.bmp",0.9,intX,intY) Else Call FindPic(150,100,1100,650,"傲视天地\窗口标示科技界面.bmp",0.9,intX,intY) End If While not found and outi<3 If intX>0 and intY>0 then found=true End if If not found then If allx=1280 and ally=800 then Call FindCenterColor(144,282,307,295,Cor,x,y) Else Call FindCenterColor(19,282,134,296,Cor,x,y) End If MoveTo x,y Delay 500 LeftClick 1 Delay 2000 Call FindPic(150,100,1100,650,"傲视天地\窗口标示科技界面.bmp",0.9,intX,intY) Delay 500 end If outi=outi+1 Wend //"科技铠甲":1|"科技甲胄":2|"科技侦察队":3|"科技列队":4|"科技雁行阵":5 If KeJi=1 then Call FindPic(150,100,1100,650,"傲视天地\科技铠甲.bmp",0.9,intX,intY)