RightClick 1
End If
Delay 200
FindPic 200,200,1000,700,"Attachment:\铜矿渣2.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
FindPic 200,200,1000,700,"Attachment:\金矿石2.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
FindPic 200,200,1000,700,"Attachment:\劣质冰晶岩.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
FindPic 200,200,1000,700,"Attachment:\333.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"00BBFF",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"00EEFF",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"03E2E2",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"01B0F0",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"02E1E1",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"0414C4",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"05E5E6",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"2094C5",intX,intY
If intX > 570 And intY > 300 Then 
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
FindColor 570,300,927,543,"0099FF",intX,intY
If intX > 570 And intY > 300 Then 	
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Next
Delay 1000
KeyPress "W", 1
Delay 1000
KeyPress "Esc", 1
Delay 1000
KeyPress "P", 1
Delay 2000
For i=1 To 2
FindPic 200,200,900,400,"Attachment:\矿山1.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX + 10 , intY + 25
Delay 200
End If
Next
RightClick 1