Rem 卖矿
KeyPress 80,1
Delay 1000
VBSCall FindPic(0,0,700,400,"Attachment:\杂货坐标.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x-43,y-5
    Delay 1000
    RightClick 1
    Delay 2000
    KeyPress 80,1
EndIf 
Delay 24000
VBSCall FindPic(0,0,1023,767,"Attachment:\找防具商.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x+360,y+110
    Delay 500
    LeftClick 1
EndIf 
Delay 2000
VBSCall FindPic(0,0,1023,767,"Attachment:\防具.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x-153,y+80
    Delay 20
    LeftClick 1
EndIf 
Delay 2000
VBSCall FindPic(0,0,1023,767,"Attachment:\背包位置.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x,y
    Delay 20
    MoveR -110,-160
    Delay 3000
    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 
    MoveR 0,30
    Delay 2000
    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
        SaveMousePos 
        Delay 1000
        MoveTo x,y+8
        Delay 1000
        LeftClick 1
        Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 32,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