x = Plugin.GetSysInfo.GetScreenResolutionX()
y = Plugin.GetSysInfo.GetScreenResolutionY()

Function m_c(img)
	//确定1，确定2，宝箱，全部拾取，再次挑战，片头，查看攻略
	//Call m_c("确定1")
	FindPic 0,0,x,y,"Attachment:\"&img&".bmp",0.8,intX,intY
	If intX > 0 And intY > 0 Then 
		m_c = true
		MoveTo intX+5, intY+5
		LeftClick 1
		MoveTo 0, 0
		LockMouse
	Else 
		m_c = false
	End If
End Function

Function 查看攻略()
	FindPic 0,0,x,y,"Attachment:\查看攻略.bmp",0.8,intX,intY
	If intX > 0 And intY > 0 Then 
		查看攻略 = true
		KeyDown "Right", 1
	Else 
		查看攻略 = false
		KeyUp "Right", 1
	End If
End Function


Dim dq_num，dq_fb
dq_fb = 0

UserVar Var1=0 "请输入要进入副本的次数"
If not IsNumeric(Var1)  Then 
	Var1 = 0
End If

UserVar dr_num=DropList{"3人":"3"|"2人":"2"|"1人":"1"}=3 "请选择副本中敌人数量"
UserVar dz_pb=DropList{"打坐":"1"|"跑步":"0"}=1 "完成副本次数后进行"


For Var1
	
	dq_fb = dq_fb + 1
	
	//战斗部分
	Rem 战斗部分
	//dr_num = 3
	dq_num = 0
	
	For dr_num
		dq_num = dq_num + 1
		
		While 查看攻略() = true
			//Call 查看攻略()
		Wend
		
		Call Plugin.Msg.Tips("当前副本第"&dq_fb&"次，第" & dq_num & "次战斗")
		
		While m_c("确定1") = false
			//Call m_c("确定1")
		Wend
		
		Delay 1000
		
	Next
	
	//结算部分
	Rem 结算部分
	
	While m_c("确定2_2") = false
			//Call m_c("确定2") = false
	Wend
	Delay 1000
	While m_c("宝箱") = false
			//Call m_c("宝箱") = false
	Wend
	While m_c("全部拾取") = false
			//Call m_c("全部拾取") = false
	Wend
	
	//循环部分
	Rem 循环部分
	
	If Var1 = dq_fb Then 
		While m_c("退出") = false
				//Call m_c("退出") = false
		Wend
		Delay 2000
	Else 
		While m_c("再次挑战") = false
				//Call m_c("再次挑战") = false
		Wend
		While m_c("片头") = true
				//Call m_c("片头") = true
		Wend
	End If

Next