KeyDown 192,1
        Delay 100
        // 紫裝
        VBSCall FindColor(0,70,1023,720,"ea8460",x2,y2)
        If x2>=0 and y2>=70
            j=0
            For 6
                k=0
                For 6
                    MoveTo x2+30-k*5 y2+30-j*5
                    VBSCall Shape=GetCursorShape(0)
                    If Shape=0
                        MoveR 0,25
                        LeftClick 1
                        Delay 50
                        LeftClick 1
                        For 20
                            Delay 50
                            KeyPress 32,1
                        EndFor 
                    ElseIf Shape=978197372
                        Gosub CheckMon
                    EndIf 
                    k=k+1
                    Delay 5
                EndFor 
                j=j+1
            EndFor 
        Else 
            If GetBaoVar=1
                // 先撿後面
                VBSCall FindColor(0,394,1023,720,"ffffff",x2,y2)
                If x2>=0 and y2>=394
                    j=0
                    For 6
                        k=0
                        For 6
                            MoveTo x2+30-k*5 y2+30-j*5
                            VBSCall Shape=GetCursorShape(0)
                            If Shape=0
                                MoveR 0,-20
                                LeftClick 1
                                Delay 50
                                LeftClick 1
                                For 10
                                    Delay 50
                                    KeyPress 32,1
                                EndFor 
                            ElseIf Shape=978197372
                                Gosub CheckMon
                            EndIf 
                            k=k+1
                            Delay 5
                        EndFor 
                        j=j+1
                    EndFor 
                Else 
                    // 撿中間
                    VBSCall FindColor(0,166,1023,362,"ffffff",x2,y2)
                    If x2>=0 and y2>=166
                        j=0
                        For 6
                            k=0
                            For 6
                                MoveTo x2+30-k*5 y2+30-j*5
                                VBSCall Shape=GetCursorShape(0)
                                If Shape=0
                                    MoveR 0,25
                                    LeftClick 1
                                    Delay 50
                                    LeftClick 1
                                    For 10
                                        Delay 50
                                        KeyPress 32,1
                                    EndFor 
                                ElseIf Shape=978197372
                                    Gosub CheckMon
                                EndIf 
                                k=k+1
                                Delay 5
                            EndFor 
                            j=j+1
                        EndFor 
                    Else 
                        // 撿前面
                        VBSCall FindColor(175,70,890,165,"ffffff",x2,y2)
                        If x2>=175 and y2>=70
                            j=0
                            For 6
                                k=0
                                For 6
                                    MoveTo x2+30-k*5 y2+30-j*5
                                    VBSCall Shape=GetCursorShape(0)
                                    If Shape=0
                                        MoveR 0,25
                                        LeftClick 1
                                        Delay 50
                                        LeftClick 1
                                        For 10
                                            Delay 50