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