i = 0
While i=0
FindPic 0,0,1366,768,"Attachment:\宝石.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX+20, intY+5
LeftDown 1
Delay 10
        FindPic 0,0,1024,768,"Attachment:\出售位置.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
End If
Delay 10
LeftUp 1
End If
Wend