Call yanshi()
    FindPic pyX,pyY,pyX+pmK,pyY+pmG,"Attachment:\宝石.bmp",0.6,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		Call yanshi()
		LeftClick 1
		Call yanshi()
		MoveTo pyX+979, pyY+481
		Call yanshi()
		LeftClick 1
		Call yanshi()
	End If
Else 
	chushihua = "包裹"
	Exit Function    
End If
End Function
Function nazb(zbi,pyX,pyY)//从装备栏中拿装备放入新月瓶中
	
	Call yanshi()
	MoveTo zb(zbi, 0), zb(zbi, 1)
	Call yanshi()
	LeftClick 1
	Call yanshi()
	MoveTo pyX+536, pyY+524
	Call yanshi()
	LeftClick 1
	Call yanshi()
	MoveTo pyX+536, pyY+424
	Call yanshi()	
    FindPic pyX+493,pyY+487,pyX+593,pyY+587,"Attachment:\判断装备.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then 
	nazb = 0
Else 
	nazb = 1	
End If
End Function
Function fangzb(zbi,pyX,pyY)//从新月瓶中拿出放入装备栏中
	
	Call yanshi()
	MoveTo pyX+536, pyY+524
	Call yanshi()
	LeftClick 1	
	Call yanshi()
    MoveTo zb(zbi, 0), zb(zbi, 1)
	Call yanshi()
	LeftClick 1
	Call yanshi()

End Function
Function pdxj(pyX,pyY,pmK,pmG)//判定装备现有星星数量返回值0-6
	
	//MsgBox "判定星级我运行了"
Dim str1，xxdj
Redim rgbsum(2),blue1(2)
rgbsum(0) = 0
rgbsum(1) = 0
rgbsum(2) = 0
str1 = ""
xxdj = 0
MoveTo  pyX+536, pyY+524
Delay 500
FindPic pyX,pyY,pyX+pmK,pyY+pmG,"Attachment:\装备位置.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	For j = 0 To 2 		
		For i = 0 To 2
			GetColor=GetPixelColor(intX-94+i, intY-46)
            Call Plugin.Color.ColorToRGB(getcolor, R, G, B)
			rgbsum(0) = rgbsum(0) + cint(R)
			rgbsum(1) = rgbsum(1) + Cint(G)
			rgbsum(2) = rgbsum(2) + cint(B)
			str1=str1 & "第" & i & "次" & r & "," & g & "," & b & vbcrlf
			blue1(i) = b			
		Next
		If blue1(0) > 150 and blue1(1) > 180 Then 
			If blue1(2) < 150 Then 
				xxdj = xxdj + 1
				//MsgBox "加1蓝色值" & blue1(0) & blue1(1) & blue1(2)					
			Else
				xxdj = xxdj + 2
				//MsgBox "加2蓝色值" & blue1(0) & blue1(1) & blue1(2)
			End If			
		End If
		intX=intX+22
	Next
	//MsgBox str1 & "总和：" & rgbsum(0) & "," & rgbsum(1) & "," & rgbsum(2)
	If rgbsum(0) > 1850 Then 
		xxdj=6
	End If
	//MsgBox xxdj
	pdxj=xxdj
Else 
MsgBox "找不到装备位置图片"
End If
End Function
Function quxing(xxsl,pyX,pyY,pmK,pmG)//根据星星等级取出相应数量宝石
	
			Call yanshi()
			//MsgBox "取星程序我也运行了"
		KeyDown "Ctrl", 1