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,-33 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,-33 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,-33 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 38,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,35 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,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