Delay 1000
        LeftClick 1
        Call 点击主城字()
        Goto NT
    End If
End Sub
Sub 别人农田判断()
    Delay 1500
    LeftClick 1
    Delay 5000
    IfColor zbX+153,zbY+341,"cccccc",0 Then
        MoveTo zbX+436,zbY+184
        Delay 1500
        LeftClick 1
        Delay 1500
        Goto ntpd
    End If
    
    Delay 1000
    MoveTo zbX+370,zbY+250
    Delay 1000
    LeftClick 1
    Delay 3000
    FindPic 0,0,1024,768,"Attachment:\qd.bmp",0.9,h1X,h1Y
    If h1X > 0 And h1Y > 0 Then
        MoveTo h1x+5,h1y+5
        Delay 1000
        LeftClick 1
        Delay 3000
        Call 点击主城字()
        Goto NT
    Else
        Delay 60000
        MoveTo zbX+300,zbY+415
        Delay 1000
        LeftClick 1
        Delay 5000

        Call 点击主城字()
    End If
    
    Rem ntpd
End Sub
//-------------农田部分结束-----------
//-------------  银矿部分-----------
Sub 银矿占领()
    Delay 1000
    Call 点击地区()
    Delay 5000
    MoveTo zbx+140,zby+530
    Delay 2000
    LeftDoubleClick 1
    Delay 1000
    SayString "1"
    Delay 1000
    MoveTo zbx+214,zby+525
    Delay 1000
    LeftClick 1
    Delay 5000
    Rem YK

    Delay 5000
    MoveTo zbX+228,zbY+230
    Call 别人银矿判断()
    MoveTo zbX+378,zbY+234
    Call 别人银矿判断()
    MoveTo zbX+302,zbY+287
    Call 别人银矿判断()
    MoveTo zbX+299,zbY+170
    Call 别人银矿判断()
    MoveTo zbX+227,zbY+340
    Call 别人银矿判断()
    MoveTo zbX+142,zbY+175
    Call 别人银矿判断()
    MoveTo zbX+461,zbY+289
    Call 别人银矿判断()
    MoveTo zbX+312,zbY+397
    Call 别人银矿判断()
    MoveTo zbX+146,zbY+297
    Call 别人银矿判断()
    MoveTo zbX+69,zbY+226
    Call 别人银矿判断()
    MoveTo zbX+70,zbY+332
    Call 别人银矿判断()
    MoveTo zbX+152,zbY+388
    Call 别人银矿判断()
    MoveTo zbX+385,zbY+341
    Call 别人银矿判断()
    MoveTo zbX+215,zbY+119
    Call 别人银矿判断()
    MoveTo zbX+372,zbY+123
    Call 别人银矿判断()
    MoveTo zbX+447,zbY+181
    Call 别人银矿判断()
    MoveTo zbX+212,zbY+557
    Delay 1000
    LeftClick 1
    Delay 5000
    Goto YK
End Sub