End If	
Next
LeftClick 1
Delay 1000
For i=1 To 3
FindPic 100, 100, 900, 768, "Attachment:\修理装备.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then
MoveTo intX+15, intY+33
Delay 300
End If
Next
LeftClick 1
Delay 1000
For i=1 To 3
FindPic 100, 100, 900, 768, "Attachment:\修理.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then
MoveTo intX+10, intY+10
Delay 300
End If
Next
LeftClick 1
Delay 1000
KeyPress "W", 1
Delay 1000
KeyPress "Esc", 1
//找武器商人
Delay 1000
For i=1 To 3
FindPic 570,430,1024,768,"Attachment:\武器商.bmp",0.9,intX,intY
If intX > 570 And intY > 430 Then 
MoveTo intX+12, intY-50
Delay 300
End If		
Next
LeftClick 1
Delay 1000
For i=1 To 3
FindPic 100,100,900,768,"Attachment:\卖东西.bmp",0.9,intX,intY
If intX > 100 And intY > 100 Then
MoveTo intX-70, intY+10
Delay 300
End If
Next
LeftClick 1
Delay1000
//循环卖矿
For i = 1 To 7	
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:\银矿.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:\铜矿渣.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:\铁矿渣.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:\铁矿渣2.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200