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)