Delay 2000
KeyPress "P", 1	
End Sub
Sub 卖矿01
Delay 1000
MoveTo 800, 600
Delay 1000
LeftClick 1
Delay 1000
KeyPress "2", 1
Delay 15000
KeyPress "2", 1
Delay 5000
KeyPress "P", 1
Delay 1000
For i=1 To 3
FindPic 100, 100, 700, 768, "Attachment:\武器.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then
MoveTo intX - 5, intY+5
Delay 300
End If
Next
RightClick 1
Delay 1000
KeyPress "P", 1
End Sub
Sub 放宝石
Delay 2000
MoveTo 800, 600
LeftClick 1
Delay 1000
KeyPress "P", 1
Delay 2000
For i=1 To 3
FindPic 0,0,700,768,"Attachment:\仓库.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	MoveTo intX, intY+20
	Delay 300
End If
Next
RightClick 1
Delay 2000
KeyPress "P", 1
Delay 22000
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\仓库保管员.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	MoveTo intX+15, intY+40
	Delay 300
End If
Next
LeftClick 1
Delay 1000
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\打开仓库.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	MoveTo intX+15, intY+15
	Delay 300
End If
Next
LeftClick 1
Delay 1000
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\仓库确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	MoveTo intX+5, intY+5
	Delay 300
End If
Next
LeftClick 1
Delay 1000
For i = 1 To 7	
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:\黄宝石.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