Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
 	If Hwnd <> 0 Then 
 		FindPic 107,182,693,470, "Attachment:\" & CH & ".bmp", 1.0, intX, intY
 		If intX > 0 and intY > 0 Then 
			Delay 200
	 		MoveTo intX, intY
	 		Delay 200
	 		LeftDoubleClick 1
	 		Call selectorRoles()
	 	Else
	    	MessageBox "找不到所选频道"
	    	Call reStartApp()
		End If
 	Else 
 		MessageBox "找不到所选频道"
 		Call reStartApp()
 	End If
End Function
/*
 *Fun 选择角色
 *arg1 flag调用标致，0    为刚登陆时的
 *					num  为登录后换角色的情况
 **/
/*---------------------------选择角色-----------------------------------------*/

Function selectorRoles()
	Delay 8000
 	Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
 	If Hwnd <> 0 Then 
 		FindPic 340,30,460,65, "Attachment:\selectroles.bmp", 0.8, intX, intY
 		If intX > 0 and intY > 0 Then 
 			Call selectRoles(0)
	 	Else
	    	MessageBox "找不到所选角色"
	    	Call reStartApp()
		End If
 	Else
 		MessageBox "找不到所选角色"
	   	Call reStartApp()
 	End If
	
End Function


 /*  
 *@Fun  选择角色
 *@arg   null
 *@retun null
 **/ 
 
 Function selectRoles(i)
 	tempArray = Split(roles(i), ",")
 	t_X = cInt(tempArray(0))
 	t_Y = cInt(tempArray(1))
 	MoveTo t_X, t_Y
	Delay 800
	LeftDoubleClick 1
	Delay 4000
 End Function




/****************************************************************************/

Function arrangePack(bmp1, bmp2, i)
	Delay 200
	//关闭广告
	MoveTo 400,496
	Delay 400
	LeftDoubleClick 1
	Delay 1300
	//点击塞利亚
	MoveTo 460,280
	Delay 500
	LeftClick 1
	Delay 1000
	//物品店
	MoveTo 490, 332
	Delay 800
	LeftClick 1
	Delay 1500
	//move to package
	Call movePack()
	//move 消耗品
	MoveTo 540, 290
	Delay 500
	LeftClick 1
	Delay 1500
	Call findMedicinal(465, 300, 721, 430, bmp1, 150, 570)
	Delay 300
	Call findMedicinal(465, 300, 721, 430, bmp2, 180, 570)
	Delay 300
	If roleNum = 0 Then 
		Delay 40000
	Else 
		Delay 1000
	End If
	Call saleSupplies()
	Delay 100