00
FindPic 875,83,1004,169,"Attachment:\小地图矿点.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+5,intY+5
    LeftClick 1
    Delay 5000
End If
x=488:y=369
v=10
i=1
For 10
    j=0:k=v
    For 2
        For i
            x=x+j:y=y+k
            MoveTo x,y
            Delay 10
            shape1=GetCursorShape(378619222)
If shape1=378619222 Then
    LockMouse
    LeftClick 1
    Delay 18000
End If
        EndFor 
        j=v:k=0
    EndFor 
    i=i+1:v=v*(-1)
EndFor