RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 0,-31
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 0,-31
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 0,-31
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 34,0
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 0,30
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 0,30
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x,y+8
        LeftClick 1
    EndIf 
    Delay 2000
    MoveR 0,32
    RightClick 1
    Delay 1000
    VBSCall FindPic(250,250,550,400,"Attachment:\卖石.bmp",0.9,x,y)
    If x>=0 and y>=0
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8