FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
    if hyzdX > 0 And hyzdy > 0 Then  //有，进入
        MoveTo hyzdx,hyzdy //点击进入
        Delay 500 //点击延时
        LeftClick 1 //点击进入
        Delay 1000 //网络延时
        Call ksq() //跳转到子程序开始敲蛋
    ElseIf hyzdx < 0 and hyzdy < 0 Then
        goto f
    End If
    end if      
If var1 = 0 Then //用户允许敲蛋
    Delay 1000 //循环延时
    FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
    if hyzdX > 0 And hyzdy > 0 Then  //有，进入
        MoveTo hyzdx,hyzdy //点击进入
        Delay 500 //点击延时
        LeftClick 1 //点击进入
        Delay 1000 //网络延时
        Call ksq() //跳转到子程序开始敲蛋
    ElseIf hyzdx < 0 and hyzdy < 0 Then
        goto f
    End If
    end if      
If var1 = 0 Then //用户允许敲蛋
    Delay 1000 //循环延时
    FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
    if hyzdX > 0 And hyzdy > 0 Then  //有，进入
        MoveTo hyzdx,hyzdy //点击进入
        Delay 500 //点击延时
        LeftClick 1 //点击进入
        Delay 1000 //网络延时
        Call ksq() //跳转到子程序开始敲蛋
    ElseIf hyzdx < 0 and hyzdy < 0 Then
        goto f
    End If
    end if      
If var1 = 0 Then //用户允许敲蛋
    Delay 1000 //循环延时
    FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
    if hyzdX > 0 And hyzdy > 0 Then  //有，进入
        MoveTo hyzdx,hyzdy //点击进入
        Delay 500 //点击延时
        LeftClick 1 //点击进入
        Delay 1000 //网络延时
        Call ksq() //跳转到子程序开始敲蛋
    ElseIf hyzdx < 0 and hyzdy < 0 Then
        goto f
    End If
    end if      
If var1 = 0 Then //用户允许敲蛋
    Delay 1000 //循环延时
    FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
    if hyzdX > 0 And hyzdy > 0 Then  //有，进入
        MoveTo hyzdx,hyzdy //点击进入
        Delay 500 //点击延时
        LeftClick 1 //点击进入
        Delay 1000 //网络延时
        Call ksq() //跳转到子程序开始敲蛋
    ElseIf hyzdx < 0 and hyzdy < 0 Then
        goto f
    End If
    end if
    //------------------是否进入下一页判断----------------
    rem f
    If var5 > w Then 
        If i > 0 and S < 2 Then 
            Goto a
        ElseIf i = 0 and s >= 2 Then
            MoveTo 1000, 700
            Delay 1000
            Call xyy()
        End If
    Else 
        Call Plugin.Msg.Tips("用户设置偷好友资源页数已到") //用户提示
        Call jss()
    End If


    Sub hqjd() //子程序-收获鸡蛋（自己农场)
        Delay 300
        Call Plugin.Msg.Tips("开始收获鸡蛋") //用户提示
        FindPic 0,0,1366,768,"Attachment:\jidansh.bmp",0.7,jdsX,jdsY
        If jdsX > 0 And jdsY > 0 Then 
            MoveTo jdsx,jdsy //移动到蛋处
            Delay 200
            LeftClick 1 //点击开始收获鸡蛋
            Call Plugin.Msg.Tips("收获鸡蛋成功")//用户提示	
        Else 
            Call Plugin.Msg.Tips("没鸡蛋可收获") //用户提示
        End If
    End Sub

    Sub js() //子程序-浇水
        Delay 500 //延时执行子程序
        Call Plugin.Msg.Tips("开始浇水") //用户提示
        FindPic 0,0,1366,768,"Attachment:\点浇水.bmp",0.6,jsx,jsy //判断是否需要浇水
        If jsx > 0 And jsy > 0 Then //发现目标
            MoveTo jsx+1,jsy+1 //移动到浇水处
            Delay 200//浇水延时