MoveTo zbX+466,zbY+562
    Delay 1000
    LeftClick 1
End Sub
Sub 点击强化()
    MoveTo zbX+505,zbY+560
    Delay 1000
    LeftClick 1
End Sub
Sub 点击任务()
    MoveTo zbX+548,zbY+560
    Delay 1000
    LeftClick 1
End Sub
Sub 点击部队()
    MoveTo zbX+587,zbY+558
    Delay 1000
    LeftClick 1
End Sub
Sub 点击主城字()
    MoveTo zbX+634,zbY+551
    Delay 1000
    LeftClick 1
End Sub
Sub 点击征战()
    MoveTo zbX+633,zbY+510
    Delay 1000
    LeftClick 1
End Sub
Sub 点击地区()
    MoveTo zbX+653,zbY+471
    Delay 1000
    LeftClick 1
End Sub
Sub 点击世界()
    MoveTo zbX+690,zbY+457
    Delay 1000
    LeftClick 1
End Sub
Sub 点击农田()
    MoveTo zbX+733,zbY+466
    Delay 1000
    LeftClick 1
End Sub
Sub 升级动作()
    MoveTo zbX+191,zbY+334
    Delay 1000
    LeftClick 1
End Sub
//---------------点击部分结束-----------
//---------------农田部分-----------
Sub 占领农田()
    Delay 1000
    Call 点击农田()
    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 别人农田判断()
End Sub
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,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX+5,intY+5