Sub 自己银矿判断()
    MoveTo zbX+228,zbY+230
    Delay 1000
    LeftClick 1
    Delay 1000
    MoveTo zbX+399,zbY+251
    Delay 1000
    LeftClick 1
    Delay 3000
    FindPic 0,0,1024,768,"Attachment:\qd.bmp",0.9,h2X,h2Y
    If h2X > 0 And h2Y > 0 Then
        MoveTo h2x+5,h2y+5
        Delay 1000
        LeftClick 1
        Call 点击主城字()
        Goto YKZL
    End If
End Sub
Sub 别人银矿判断()
    Delay 1500
    LeftClick 1
    Delay 5000
    IfColor zbX+169,zbY+331,"cccccc",0 Then
        MoveTo zbX+436,zbY+184
        Delay 1500
        LeftClick 1
        Delay 1500
        Goto ykpd
    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,h3X,h3Y
    If h3x > 0 And h3y > 0 Then
        Delay 2000
        MoveTo zbx+257,zby+343
        Delay 1000
        LeftClick 1
        Delay 3000
        Call 点击主城字()
        Goto YKZL
    Else
        Delay 60000
        MoveTo zbX+300,zbY+415
        Delay 1000
        LeftClick 1
        Delay 5000
        Call 点击主城字()
    End If
    
    Rem ykpd
End Sub
//-------------银矿部分结束-----------
//-------------  征收部分-----------
Sub 征收()
    Delay 1000
    Call 点击主城()
    Delay 1000
    MoveTo zbX+310,zbY+308
    Delay 1000
    LeftClick 1
    Delay 1000
    MoveTo zbX+255,zbY+225
    Delay 1000
    LeftClick 1
    Delay 3000
    FindPic 0,0,1024,768,"Attachment:\qd.bmp",0.9,aX,aY
    If ax > 0 And ay > 0 Then
        MoveTo aX+5,aY+5
        Delay 1000
        LeftClick 1
    End If
    Delay 1000
    MoveTo zbX+567,zbY+92
    Delay 1000
    LeftClick 1
End Sub
//-------------征收部分结束-----------
//---------------科技-----------
Sub 升级科技()
    Delay 1000
    Call 点击军机处()
    Delay 2000
    MoveTo zbx+312,zby+309
    Delay 1000
    LeftClick 1
    Delay 2000
    If keji=1 Then
        MoveTo zbx-17,zby+195
        Delay 1000
        LeftClick 1
    End If
    If keji=2 Then
        MoveTo zbx+60,zby+195
        Delay 1000
        LeftClick 1
    End If