ZC=droplist{否:0|是:1}=0 是否定时关机
UserVar u_CC=droplist{不帮:0|帮:1}=1 帮他人除草
UserVar u_CC1=droplist{不帮:0|帮:1}=1 帮他人除虫
UserVar u_Zhai=droplist{不摘:0|摘:1}=1 摘他人果实
UserVar YanShi0=droplist{快:1000|中:2000|慢:3000}=1 打开下页时间
UserVar YanShi=50 请输入下一轮的时间间隔，默认是50秒
VBS dim  x,y,ax,ay
YanShiA=YanShi*1000
Plugin Hwnd = Window.MousePoint()
Gosub 定时关机
Rem 开始
Delay 1000
Gosub 是否开好友
Rem 3
Plugin Bkgnd.LeftClick(Hwnd,930,122)
Delay 2000
Rem 1
Delay 1000
Plugin XY = BkgndColor.FindColor(Hwnd,903,458,927,475, "A9A9A9")
MyArray = Split(XY, "|")
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
If X>0 and Y>0
    Goto 回我农场
EndIf 
Gosub 看是否有收获
Gosub 看是否有草
Gosub 看是否有虫
Gosub 看网络
Delay YanShi0
Plugin Bkgnd.LeftClick(Hwnd, 916, 469)
If ZC=1
    Goto Start
EndIf 
Goto 1
Rem 回我农场
Delay 500
Plugin Bkgnd.LeftClick(Hwnd,930,122)
Delay 100
Plugin Bkgnd.LeftClick(Hwnd,930,122)
Delay 1000
Gosub 我的农场
Goto 开始
Sub 看是否有草
    Delay 500
    If u_CC=1
        Plugin XY = BkgndColor.FindColor(Hwnd,900,140,927,455, "186E44")
        MyArray = Split(XY, "|")
        X = Clng(MyArray(0)): Y = Clng(MyArray(1))
        If X>0 and Y>0
            Plugin Bkgnd.LeftClick(Hwnd, X, Y)
            Delay 2500
            Plugin Bkgnd.LeftClick(Hwnd, 753, 248)
            Delay 500
            Plugin Bkgnd.KeyPress(Hwnd, 87)
            Delay 100
            Gosub 动工
            Delay 1000
            Plugin Bkgnd.LeftClick(Hwnd,937,248)
            Gosub 看网络
            Goto 1
        EndIf 
    EndIf 
Return 看是否有草
本帖隐藏的内容需要回复才可以浏览
Sub 看是否有虫
    Delay 500
    If u_CC1=1
        Plugin XY = BkgndColor.FindColor(Hwnd,900,140,927,455, "205F7A")
        MyArray = Split(XY, "|")
        X = Clng(MyArray(0)): Y = Clng(MyArray(1))
        If X>0 and Y>0
            Plugin Bkgnd.LeftClick(Hwnd, X, Y)
            Delay 2500
            Plugin Bkgnd.LeftClick(Hwnd, 753, 248)
            Delay 500
            Plugin Bkgnd.KeyPress(Hwnd, 69)
            Delay 100
            Gosub 动工
            Gosub 给我农场浇水
            Delay 1000
            Plugin Bkgnd.LeftClick(Hwnd,937,248)
            Gosub 看网络
            Goto 1
        EndIf 
    EndIf 
Return 看是否有草
Sub 看是否有收获
    Delay 500
    If u_Zhai=1
        Plugin XY = BkgndColor.FindColor(Hwnd,900,140,927,455, "346FAF")
        MyArray = Split(XY, "|")
        X = Clng(MyArray(0)): Y = Clng(MyArray(1))
        If X>0 and Y>0
            Plugin Bkgnd.LeftClick(Hwnd, X, Y)
            Delay 2500
            Plugin Bkgnd.LeftClick(Hwnd, 753, 248)
            Delay 500
            Plugin Bkgnd.KeyPress(Hwnd, 82)
            Delay 100
            Gosub 动工