//
UserVar u_JS=droplist{不帮:0|帮:1}=0 帮他人浇水
UserVar u_CC=droplist{不帮:0|帮:1}=0 帮他人除草
UserVar u_SC=droplist{不帮:0|帮:1}=0 帮他人杀虫
UserVar u_Zhai=droplist{不摘:0|摘:1}=0 摘他人果实
UserVar u_CZ=droplist{不放:0|放:1}=0 放虫子
UserVar u_ZC=droplist{不放:0|放:1}=0 放杂草
u_CZ=cint(u_CZ):u_ZC=cint(u_ZC)
//----18块地对应的坐标:
array_x=array(305,217,103,405,303,198,553,456,356,653,555,455,753,654,535,855,756,650)
array_y=array(291,339,403,344,398,452,382,433,481,430,479,531,480,529,567,528,580,626)
//---------------------
Plugin Web.Bind("WQM.exe")
Delay 2610
//设置浏览器大小为998,777
Plugin Web.SetSize(998,777)
//获得浏览器左上角的坐标
Plugin hwnd=Window.GetKeyFocusWnd()
Plugin wxx=Window.GetClientRect(hwnd)
wxy=split(wxx,"|")
wxy0=cint(wxy(0))+1:wxy1=cint(wxy(1))+100
//----------------------
//跳转到开心农场页面
Plugin Web.Go("http://happyfarm.xiaoyou.qq.com/")
//----------------------
While 1
    //自己家的操作
    Gosub s_Myself
    //去别人
    Gosub s_ChooseOtherPlayer
EndWhile 
Sub s_ChooseOtherPlayer
    //选其他网友
    //第一个网友的坐标:796,303----两个头像的纵间隔为:31
    //------------选择网友------------------
    //i_page用来保存点了几下"下一页",到时候利用此变量来决定点几下回到第1页
    i=0:i_page=1
    While i<>99
        //展开好友界面
        Plugin Web.LeftClick(955,347)
        Delay 500
        If i=10
            i=0
            //是否还有下一页
            VBSCall FindColorEx(wxy0+930,wxy1+536,wxy0+930,wxy1+536,"9D6800",0,0.8,tx,ty)
            If tx>0
                Plugin Web.LeftClick(930,528)
                Delay 200
                i_page=i_page+1
            Else 
                //回到第一页
                For i_page
                    Plugin Web.LeftClick(849,528)
                    Delay 200
                EndFor 
                i=99
            EndIf 
        EndIf 
        If i<>99
            //选好友
            Plugin Web.LeftClick(855,217+31*i)
            Delay 500
            //收缩好友界面
            Plugin Web.LeftClick(795,354)
            Delay 500
            //先判断下是不是自己家的农场
            VBSCall FindColorEx(wxy0+81,wxy1+188,wxy0+81,wxy1+188,"FF9933",0,0.8,tx,ty)
            If tx>0
                //开始搞他的农场: )
                Gosub s_Other
            EndIf 
            i=i+1
        EndIf 
    EndWhile 
Return 
Sub s_Other
    //糟蹋别人的农场啦
    i_i=0
    While i_i<>99
        t1=array_x(i_i):t2=array_y(i_i)
        VBSCall FindColorEx(wxy0+t1,wxy1+t2,wxy0+t1,wxy1+t2,"B4E4F8",0,0.8,tx,ty)
        If tx<0
            Plugin Web.MoveTo(t1,t2)
            Delay 100
            //帮浇水
            If u_JS>0
                Plugin Web.LeftClick(487-107,597)
                Delay 300
                Plugin Web.LeftClick(t1,t2)
                Delay 100
            EndIf 
            //帮除草
            If u_CC>0
                Plugin Web.LeftClick(537-107,597)
                Delay 300
                Plugin Web.LeftClick(t1,t2)
                Delay 100
            EndIf 
            //帮杀虫
            If u_SC>0