LeftClick 1 //点击开始浇水
            Call Plugin.Msg.Tips("浇水成功")//用户提示	
            Call sx() //跳转到刷新标记
        Else 
            Call Plugin.Msg.Tips("不需要浇水") //用户提示
        End If
    End Sub

    Sub wxj() //子程序-喂小鸡
        Delay 300 //喂食延时
        Call Plugin.Msg.Tips("开始喂食！") //用户提示
        FindPic 0,0,1366,768,"Attachment:\喂食.bmp",0.7,wsx,wsy //判断是否需要喂食
        If wsx > 0 And wsy > 0 Then 
            MoveTo wsx+1,wsy+1 //移动到喂食处
            LeftClick 1 //点击喂食
            Call Plugin.Msg.Tips("喂食成功") //用户提示
            Call sx() //跳转到刷新标记
        ElseIf wsx < 0 And wsy < 0 Then
            Call Plugin.Msg.Tips("不需喂食") //用户提示    
        End If
    End Sub

    Sub ksq() //子程序-开始敲蛋
        Delay 1000 //敲蛋延时
        Call Plugin.Msg.Tips("开始敲蛋！") //用户提示
        FindPic 0,0,1366,768,"Attachment:\yt.bmp",0.7,qdx,qdy //判断是否有蛋可敲
        MoveTo qdx+25, qdy-25
        Delay 200 //点击敲蛋延时
        LeftClick 1
        Delay 800
        FindPic 0,0,1366,768,"Attachment:\qd.bmp",0.5,tsx,tsy //判断能否敲蛋
        If tsx > 0 And tsy > 0 Then 
            MoveTo tsx + 1, tsy + 1
            Delay 300
            LeftClick 1
            Call Plugin.Msg.Tips("不是QQ好友不能敲蛋") //用户提示
        else 
            Call sx() //跳转到刷新标记
        end if
        Delay 1000 
    End Sub

    Sub shs() //子程序-收获树
        Delay 300 //收获延时
        Call Plugin.Msg.Tips("开始收获摇钱树！") //用户提示
        FindPic 0,0,1366,768,"Attachment:\收获.bmp",0.7,ysx,ysy //判断是否要摇树
        If ysx>0 and ysy>0 then          
            MoveTo ysx+1,ysy+1
            Delay 500 //摇树延时
            LeftClick 1
        Else 
            Call Plugin.Msg.Tips("没有摇钱树可摇！") //用户提示
            Call sx() //跳转到刷新标记
        end if   
    End Sub

    Sub sx() //子程序-刷新
        Delay 2000 //刷新延时
        FindPic 0,0,1366,768,"Attachment:\sx.bmp",0.7,sxx,sxy
        If sxx > 0 And sxy > 0 Then 
            MoveTo sxx + 1, sxy + 1
            Delay 500 //点击延时
            LeftClick 1 //点击刷新
            Call Plugin.Msg.Tips("刷新成功") //用户提示
            Delay 1000
        End If
    End Sub

    Sub xyy() //子程序-下一页
        FindPic 0, 0, 1366, 768, "Attachment:\农场向右.bmp", 0.7, xyx, xyy
        If xyx > 0 and xyy > 0 Then 
            MoveTo xyx, xyy
            Delay 500 //延时
            LeftClick 1 //进入下一页
            w = w + 1 //每翻一页W自加1
            Goto a //进入循环6
        Else 
            Call jss()
        End If
    End Sub

    Sub jss()
        Call Plugin.Msg.Tips("偷菜完毕！") //用户提示      
        FindPic 0, 0, 1024, 768, "Attachment:\cc.bmp", 0.7, ccX, ccY
        If ccx>0 and ccy>0 then
            MoveTo ccX, ccY
            Delay 300
            LeftClick 1
        end if
        Delay var6*1000*60
        Goto gh
    End Sub