Return 买药
//买药子程序
Sub 卖物
    Delay 500
    MoveTo 289,428
    Delay 1000
    LeftClick 1
    Delay 500
    MoveTo 777,215
    Delay 1000
    Gosub 过滤1
    For 8
        Delay 50
        MoveTo xc+1,yc+35
        Delay 200
        Gosub 过滤1
    EndFor 
    For 3
        Delay 50
        MoveTo xc+36,yc+2
        Delay 200
        Gosub 过滤246
        For 8
            Delay 50
            MoveTo xc+1,yc-33
            Delay 200
            Gosub 过滤246
        EndFor 
        Delay 50
        MoveTo xc+36,yc+2
        Delay 200
        Gosub 过滤357
        For 8
            Delay 50
            MoveTo xc+1,yc+34.5
            Delay 200
            Gosub 过滤357
        EndFor 
    EndFor 
Return 卖物
//清包子程序，并调用物品过滤子程序
Sub 过滤1
    Delay 50
    VBSCall GetCursorPos(xc,yc)
    Delay 50
    IfColor xc,yc,4249c6,1
        IfColor xc,yc,632008,1
            IfColor xc,yc,c65542,1
                IfColor xc,yc,008aad,1
                    IfColor xc,yc,c6d3ce,1
                        LeftClick 1
                        Delay 50
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return 过滤1
//过滤背包从到下第一排的物品
Sub 过滤246
    Delay 50
    VBSCall GetCursorPos(xc,yc)
    Delay 50
    IfColor xc yc 2130de 1
        IfColor xc yc 000cde 1
            IfColor xc yc 1010a5 1
                IfColor xc yc 842410 1
                    IfColor xc yc d63c63 1
                        IfColor xc yc d6967b 1
                            IfColor xc yc d63829 1
                                IfColor xc yc d60000 1
                                    IfColor xc yc a52408 1
                                        IfColor xc yc b5cfbd 1
                                            IfColor xc yc 425d42 1
                                                IfColor xc yc 84928c 1
                                                    IfColor xc yc 42499c 1
                                                        IfColor xc yc 315594 1
                                                            IfColor xc yc 009ac6 1
                                                                LeftClick 1
                                                                Delay 100
                                                            EndIf 
                                                        EndIf 
                                                    EndIf 
                                                EndIf 
                                            EndIf 
                                        EndIf 
                                    EndIf 
                                EndIf 
                            EndIf 
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return 过滤246
//过滤背包246排的物品
Sub 过滤357
    Delay 50
    VBSCall GetCursorPos(xc,yc)