//初始化角度
        n=0
        //设置第一圈半径
        r=8
        //设置画圆圈数
        For 8
            While n<3.1415926*2
                //画圆公式
                x=x0+r*cos(n)
                y=y0-r*sin(n)
                MoveTo x y
                Delay 100
                VBSCall Shape=GetCursorShape(0)
                If shape=shape2
                    Goto 收
                EndIf 
                Delay 10
                //l/r：点距除以半径，取得2点间相对圆心的角度
                //能有效控制扫描点的密度，2点间的距离就比较平均
                n=n+l/r
            EndWhile 
            //画完一圈后重置角度
            n=0
            //画完一圈后半径递增rr
            r=r+rr
            If r=20*7+8
                If shape<>shape2
                    Goto 全部收完
                EndIf 
            EndIf 
        EndFor 
        Goto 找作物
        Rem 收
        MoveTo x y //开始收割
        Delay 256
        LeftDown 1
        Delay 100
        LeftUp 1
        Delay 6000
        //  Rem 没收完
        //VBSCall Shape=GetCursorShape(0)
        // IfColor 504 307 78ebfd 2
        //IfColor 505 307 010244 2
        Delay 50
        MoveTo 475 310 //收取
        LeftClick 1
        Delay 1000
        //   Goto 收完
        // Else
        Delay 1000
        //    Goto 没收完
        // EndIf
        // EndIf
        Rem 收完
    EndFor 
    //Goto 找作物
    Rem 全部收完
Return 收割