Sub 捡包
    Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
    l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
    If x0-a1>=a2-x0
        n=a1
    Else 
        n=x0-(a2-x0)
    EndIf 
    Rem 开始搜索
    v=l
    i=m
    x1=x0:y1=y0-v
    While x1>=n
        k1=0:k2=v
        For 2
            For i
                x1=x1+k1:y1=y1+k2
                If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2
                    MoveTo x1,y1
                    Delay 2
                    VBSCall shape=GetCursorShape(0)
                    If shape=d
                        Delay 50
                        RightClick 1
                        Delay 400
                        Goto 开始
                    EndIf 
                EndIf 
            EndFor 
            k1=v:k2=0
        EndFor 
        i=i+1:v=v*(-1)
    EndWhile 
    Goto 开始
Return 捡包