IfColor 267,133,111111,0
    Gosub 种地过程
Else 
EndIf 
IfColor 725,195,ffffff,0
    Goto 开始
Else 
    Gosub 种地
EndIf 
Sub 种地
    VBSCall FindPic(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo intX,intY
        Gosub 找地
    Else 
    EndIf 
Return 种地
Sub 找地
    LeftClick 1
    Delay 500
    Gosub 播种
Return 找地
Sub 播种
    VBSCall FindPic(0,0,1024,768,"Attachment:\6.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo 230,210
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 309,184
        Delay 200
        LeftClick 1
    Else 
    EndIf 
Return 播种
Sub 种地过程
    VBSCall FindPic(0,0,1024,768,"Attachment:\4.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        Gosub 施肥
    Else 
    EndIf 
    VBSCall FindPic(0,0,1024,768,"Attachment:\2.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        Gosub 锄草
    Else 
    EndIf 
    VBSCall FindPic(0,0,1024,768,"Attachment:\5.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        Gosub 收获
    Else 
    EndIf 
    VBSCall FindPic(0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        Gosub 杀虫
    Else 
    EndIf 
    VBSCall FindPic(0,0,1024,768,"Attachment:\3.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        Gosub 缺水
    Else 
    EndIf 
Return 种地过程
Sub 施肥
    MoveTo 231,359
    LeftClick 1
Return 施肥
Sub 锄草
    MoveTo 230,329
    LeftClick 1
Return 锄草
Sub 收获
    MoveTo 230,243
    LeftClick 1
Return 收获
Sub 杀虫
    MoveTo 233,299
    LeftClick 1
Return 杀虫
Sub 缺水
    MoveTo 232,269
    LeftClick 1
Return 缺水