FindPic 560,200,1000,700,"Attachment:\蓝宝石.bmp",0.9,intX,intY
If intX > 560 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
FindPic 560,200,1000,700,"Attachment:\红宝石.bmp",0.9,intX,intY
If intX > 560 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
FindPic 560,200,1000,700,"Attachment:\121.bmp",0.9,intX,intY
If intX > 560 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
FindPic 560,200,1000,700,"Attachment:\212.bmp",0.9,intX,intY
If intX > 560 And intY > 200 Then
MoveTo intX+10, intY+10
Delay 200
RightClick 1
End If
Delay 200
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
Delay 2000
KeyPress "P", 1
Delay 20000
KeyDown 18, 1
KeyPress 49, 1
KeyUp 18, 1
Delay 2000	
End Sub
Sub 恢复
Delay 2000
	KeyPress "Esc", 1
	Delay 2000
	KeyPress "Esc", 1
Delay 1000
KeyPress "P", 1
Delay 1000
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
Delay 1000	
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
RightClick 1
Delay 1000
KeyPress "P", 1
Delay 22000
KeyDown 18, 1
KeyPress 49, 1
KeyUp 18, 1
End If
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
Delay 1000	
FindPic 200,200,900,400,"Attachment:\矿山1.bmp",0.9,intX,intY
If intX > 200 And intY > 200 Then
MoveTo intX + 10 , intY + 25