If lyt <> 0 Then 
 		FindPic 465, 300, 713, 366, "Attachment:\炉岩炭.bmp", 0.8, intX2, intY2
 		If intX2 > 0 and intY2 > 0 Then 
			Call getOutBigMetris(lyt, intX2, intY2)
		End If
 	End If
 	Delay 300
 	
 	If sbp <> 0 Then 
 		FindPic 465, 300, 713, 366, "Attachment:\碎布片.bmp", 0.7, intX3, intY3
 		//TracePrint "sbp====" & lyt &"  x=" & intX3 &"   y= " & intY3
 		If intX3 > 0 and intY3 > 0 Then 
			Call getOutBigMetris(sbp, intX3, intY3)
		End If
 		
 	End If
 	
 	Delay 300
	If bigMoney <> 0 Then 
 		Call getBigMoney(bigMoney)
 	End If
	Delay 600
	Call getCollecationMetris(800, 0)
End Function


/**
 * 交换角色 
**/
Function switchRoles(i)
		Delay 100
		MoveTo 1250, 570
		Delay 800
		LeftClick 1
		Delay 1500
		MoveTo 1180, 455
		Delay 800
		LeftClick 1
		Delay 2400
		Call selectRoles(i)
End Function

/***finish game **/
Function finishGame()	
		Delay 100
		MoveTo 1250, 570
		Delay 800
		LeftClick 1
		Delay 1500
		MoveTo 1190, 535
		Delay 800
		LeftClick 1
		Delay 2000	
End Function


/**
 * 调整角色 
 **/
Function adjustRoles()
	Dim tempX
	Dim tempY
	//740,450,791,516
	FindPic 1540, 450, 1590, 515, "Attachment:\向下.bmp", 0.9, tempX, tempY
	Delay 100
	If tempX > 0 and tempY > 0 Then 
		MoveTo tempX+4, tempY+4
		Delay 200
		LeftClick 2
		Delay 100
		LeftClick 2
		Delay 200
	End If
	
End Function


/**
  *record login
  */
Function recordLogin(val, content, fileName)
	//下面这句是保存一个配置文件参数(小节名："Val" 键值名："内容")
	Call Plugin.File.WriteINI("Command",val, content, fileName)
	
End Function