//MessageBox intX &" "& intY
	If intX > 0 and intY > 0 Then 
		Delay 200
		MoveTo intX + 10, intY + 5
		Delay 500
		LeftClick 1
		Delay 1000
	End If
	SetSimMode 0
 End Function
 
 
 /*---------------------------输入验证码—————-----------*/
 Function inputValidate()
 	SetSimMode 2
 	Delay 300	
	Call Lib.键盘.KeyList(Answer, 2, 100)
	Delay 500
	KeyPress "Enter", 1
	Delay 300
	SetSimMode 0
 End Function
 
 /*  
 *@Fun  选择角色
 *@arg   null
 *@retun null
 **/ 
 
 Function selectRoles(i)
 	If i > 11 Then 
 		Call adjustRoles()
 	End If
 	tempArray = Split(roles(i), ",")
 	t_X = cInt(tempArray(0))
 	t_Y = cInt(tempArray(1))
 	If i = 0 Then 
 		MoveTo t_X, t_Y
 	Else 
 		MoveTo t_X + 800, t_Y
 	End If
	Delay 400
	LeftDoubleClick 1
	Delay 4000
 End Function
 
 
  /*  
 *@Fun   search every  region
 *@arg1  start x coordinate
 *@arg2  start y coordinate
 *@arg3  end x coordinate
 *@arg4  end y coordinate
 *@arg5  need to find dmp
 *@arg6  temp  variable
 *@arg7  similarity
 *@retun if success return  1  else  return  0
 **/ 
Function  selectBmp(s_x,s_y,e_x,e_y,mBmp)
	Dim intX, intY
	FindPic s_x, s_y, e_x, e_y, "Attachment:\" & mBmp & ".bmp",1.0, intX, intY	
	If intX > 0 and intY > 0 Then 
			Delay 500
	 		MoveTo intX+2, intY+2
	 		Delay 500
	 		LeftClick 1
	 	Else 
	 		EndScript
	End If
End Function




Function collectMetries(x,y,flag)
	Dim tempX, tempY
	Dim ux, uy
	Dim tempS
	Dim mX, mY
	tempS = 0
	tempX = 0 : tempY = 0
	ux = 0 : uy = 0
	mx = x + 485
	my = y + 318
	
	FindPic x + 467, y + 300, x + 717, y + 428, "Attachment:\store.bmp", 1.0, intX, intY
	If intX > 0 and intY > 0 Then 
	
				If intX = x + 472 Then 
					tempX = 0	
				ElseIf intX = x + 502 Then
					tempX = 1
				ElseIf intX = x + 532 Then
					tempX = 2
				ElseIf intX = x + 562 Then
					tempX = 3
				ElseIf intX = x + 592 Then
					tempX = 4
				ElseIf intX = x + 622 Then
					tempX = 5