FindPic 100, 100, 1024, 768, "Attachment:\韩皇宫.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If
FindPic 100, 100, 1024, 768, "Attachment:\皇宫秦.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If
FindPic 100, 100, 1024, 768, "Attachment:\皇宫齐.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If
FindPic 100, 100, 1024, 768, "Attachment:\皇宫魏.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If
FindPic 100, 100, 1024, 768, "Attachment:\皇宫赵.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If
FindPic 100, 100, 1024, 768, "Attachment:\皇宫燕.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If	
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
Delay 2000
KeyPress "P", 1
Delay 1000
End Sub
Sub 自动挖矿	
Delay 2000
KeyDown 18, 1
KeyPress 49, 1
KeyUp 18, 1
Delay 1000	
End Sub
Sub 卖矿
Delay 1000
//找铁匠
For i=1 To 3
FindPic 200, 100, 1000, 400,"Attachment:\铁匠.bmp",0.9,intX,intY
If intX > 200 And intY > 100 Then
MoveTo intX+15, intY+50
Delay 300