Delay 500
        RestoreMousePos 
    EndIf 
    Delay 2000
    MoveR 0,36
    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
    Rem 回城
    IfColor 43,595,6D7788,2
        Delay 1000
        KeyPress 27,1
        Delay 4000
        KeyPress 49,1
        Delay 1000
        KeyPress 80,1
        Delay 1000
        Goto 卖矿
    EndIf 
    VBSCall FindPic(0,0,1023,767,"Attachment:\防具.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 20
        LeftClick 1
    EndIf 
    KeyPress 73,1
EndIf 
Delay 200
KeyPress 80,1
Delay 2000
VBSCall FindPic(0,0,600,700,"Attachment:\杂货坐标.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x-10,y-2
    Delay 2000
    RightClick 1
    KeyPress 80,1
    Delay 5000
EndIf 
VBSCall FindPic(0,0,1000,700,"Attachment:\杂货商.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x-170,y+100
    Delay 2000
    LeftClick 1
EndIf 
Delay 2000
VBSCall FindPic(0,0,1000,400,"Attachment:\杂货窗.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x-155,y+92
    Delay 2000
    LeftClick 1
EndIf 
Delay 2000
VBSCall FindPic(0,0,1000,400,"Attachment:\锄头.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x,y
    Delay 2000
    LeftClick 1
    MoveR -220,180
    Delay 1000
    LeftClick 0
EndIf 
Delay 2000
VBSCall FindPic(0,0,1000,400,"Attachment:\杂货窗.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x-110,y+50
    Delay 2000
    LeftDoubleClick 1
EndIf 
Delay 2000
VBSCall FindPic(0,0,1000,400,"Attachment:\杂货窗.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x,y
    Delay 2000
    LeftClick 1
    Delay 2000
    KeyPress 73,1
    Delay 2000
    KeyPress 80,1
EndIf 
Delay 2000
VBSCall FindPic(0,0,700,400,"Attachment:\杂货坐标.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x+55,y-94
    Delay 1000
    RightClick 1
EndIf 
Delay 1000
KeyPress 80,1
Delay 500
Delay 24000