Delay 100
	FindPic 190, 140, 435, 380, "Attachment:\碎布片.bmp", 0.7, intX3, intY3
	Delay 100
	If wsjk <> 0 Then 
		If intX > 0 and intY > 0 Then 
			Call findBmp(intX, intY, tWsjk)
		End If
	End If
 	Delay 100
 	If hsjk <> 0 Then 
 		If intX1 > 0 and intY1 > 0 Then 
			Call findBmp(intX1, intY1, tHsjk)
		End If
 		
 	End If
 	Delay 100
 	If lyt <> 0 Then 
 		If intX2 > 0 and intY2 > 0 Then 
			Call findBmp(intX2, intY2, tLyt)
		End If
 		
 	End If
 	Delay 100
 	If sbp <> 0 Then 
 		If intX3 > 0 and intY3 > 0 Then 
			Call findBmp(intX3, intY3, tSbp)
		End If
 	End If
 	Delay 500
 	KeyPress "Esc", 1
	Delay 100
End Function

/*  
 *@Fun  取出材料
 *@arg1 start x 
 *@arg1 start y	 
 *@retun null
 **/
Function findBmp(intX,intY,mNum)
	//TracePrint intX&" "&intY
	If intX > 0 and intY > 0 Then 
			Delay 100
	 		MoveTo intX+4, intY+2
	 		Delay 300
	 		LeftClick 1
	 		Delay 100
	 		KeyPress "BackSpace", 8
			Delay 100
	 		Call Lib.键盘.KeyList(mNum, 2, 50)
	 		Delay 100
	 		LeftClick 1
	 		Delay 100
	End If		
End Function
 
 
  /*  
 *@Fun  整理大号仓库
 *@arg1 start x 
 *@arg1 start y	 
 *@retun null
 **/
 Function arrangeBigStore(x,y)
 	//打开金库箱子
 	Call moveMouseAndClick(x + 245, y + 390)
 	//个人金库
 	Call moveMouseAndClick(x + 215, y + 125)
 	//放入
	Delay 100
 	FindPic 240, 370, 440, 500, "Attachment:\放入.bmp", 1.0, intxP, intyP
 	//TracePrint intP &" " & intP
 	Delay 100
 	Call moveMouseAndClick(intxP+3, intyP+4)
 	 //材料
 	Call moveMouseAndClick(x + 590, y + 292)
 	//整理
 	Call moveMouseAndClick(x + 675, y + 440)
 	//收集
 	Delay 1000
 	Call collectMetries(x,y,"big")
 	//副职业
 	Call moveMouseAndClick(x+640, y+292)
  	//整理
 	Call moveMouseAndClick(x + 675, y + 440)
 	Delay 1000
 	//收集
 	Call collectMetries(x, y,"big")
 	//取出材料
 	Call getOutMetris()
 End Function
 

/************************处理小号材料************************************/


/**
 *是 590,465  
  钱 195,300
 交易 是235, 368