zw=DropList{请选择:0|早产:1|晚产:2}=0 种植类别
UserVar JiLi=1 作物顺序
Plugin Hwnd = Window.Foreground()
Delay 100
Plugin Window.Size(Hwnd, 800, 600)
Delay 100
Plugin Window.Move(Hwnd, 0, 0)
Delay 100
Plugin Window.Max(Hwnd)
Delay 100
Plugin Window.Restore(Hwnd)
Delay 2000
MoveTo 405,305
Delay 2
LeftClick 1
Delay 100
MoveTo 90,216+26*zw
Delay 100
LeftClick 1
Delay 100
MoveTo 90,162+26*JiLi
Delay 100
LeftClick 1
Delay 200
Rem 收地
MoveTo 375,250
VBSCall var=GetCursorShape(0)
If var=1869203251
    LeftClick 1
    Delay 7000
    Rem 拾取
    VBSCall FindPic(0,0,800,600,"Attachment:\全部拾取.bmp",1,A,B)
    If A>0 And B>0
        MoveTo A+40,B+10
        Delay 500
        LeftClick 1
        Delay 200
        MoveTo 464,255
        Delay 200
        LeftClick 1
        Delay 7000
        MoveTo A+40,B+10
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 361,335
        Delay 200
        LeftClick 1
        Delay 7000
        MoveTo A+40,B+10
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 405,305
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 90,216+26*zw
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 450,336
        Delay 100
        LeftClick 1
        Delay 7000
        MoveTo A+40,B+10
        Delay 20000
        LeftClick 1
        Delay 50
        MoveTo 90,162+26*JiLi
        Delay 2
        LeftClick 2
        Delay 5000
        Goto 收地
    EndIf 
Else 
    Goto 收地
EndIf