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