阴阳师 脚本 较多功能版本 源码 不知道失效与否 有源码文件

//注册大漠插件
PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")
Set dm = createobject("dm.dmsoft")
//注册大漠插件结束
//BeginThread 信息
ppp1=form1.InputBox6.Text
计划御魂次数 = Cint(ppp1)
ppp1=form1.InputBox1.Text
设定次数=cint(ppp1)
//注意分辨率！！窗口！！！
If form1.ComboBox2.ListIndex = 0 Then 
    突破次数 = 3
ElseIf form1.ComboBox2.ListIndex = 1 Then
    突破次数 = 6
ElseIf form1.ComboBox2.ListIndex = 2 Then
    突破次数=9
End If
//打5星下  6代表5星，依次类推，不然就变成0了
If form1.ComboBox1.ListIndex = 0 Then 
    xj01= 5
ElseIf form1.ComboBox1.ListIndex = 1 Then
    xj01= 4
ElseIf form1.ComboBox1.ListIndex = 2 Then
    xj01= 3
ElseIf form1.ComboBox1.ListIndex = 3 Then
    xj01=2
ElseIf form1.ComboBox1.ListIndex = 4 Then
    xj01=1
ElseIf form1.ComboBox1.ListIndex = 5 Then//0星
    xj01=0
End if
linshicuchun = form1.ComboBox3.ListIndex
御魂层数 = linshicuchun + 1
系统启动到目前时间 = Plugin.GetSysInfo.GetTime()
退出副本时间 = Plugin.GetSysInfo.GetTime()
If form1.CheckBox31.value = 1 Then 
    BeginThread 悬赏	
End If
 BeginThread 置顶
Do
    wxjj = 0
    qtjj = 0
    sbjj = 0 
    linshi = xj01
    失败总次数 = 0
    探索总次数 = 0
    御魂总次数 = 0
    业原火总次数 = 0
    妖气封印总次数 = 0
    突破总次数 = 0
    sdcs=0
    Rem 开始
    If sdcs > 设定次数 Then 
        Goto 下一个
    End If
    //开始探索
    If form1.CheckBox1.Value=1 then
        form2.Label1.Caption = time & ",正在进行动作：■探索副本开启■" & chr(13)& "探索具体情况：设定探索次数" & 设定次数 &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次"& chr(13)&"已养成狗粮"&狗粮&"只。"
        狗粮=0
        yizhaodao=0
        boss = 0
        tscs = 0
        无法退出探索里面 = 0
        lost = 0
        探索加成 = 1
        御魂加成=0
        Call 判断界面
        call 关闭加成
        Rem hui
        Call 探索
    End If
    Rem 下一个
    //启动御魂
    If form1.CheckBox20.value = 1 Then 
        If form1.ComboBox6.ListIndex = 1 Then 
            Call 等待加入模式
        End If
        Call 关闭加成
        Call 判断界面
        探索加成=0
        御魂加成=1
        Call 加成开启
        Call 御魂
    End If
    Rem 御魂完毕
    //开始妖气封印
    If form1.checkbox2.value = 1 Then 
        Call 判断界面
        yqcs=0
        Call 关闭加成
        Call 妖气封印
    End If
    //突破程序的跳转
    If zcx = 100 Then 
        Rem 突破刷新完成
        Call 突破
    End If
    //业原火
    If form1.CheckBox15.value = 1 Then 
        Call 判断界面
        Call 关闭加成
        Call 业原火
    End if
loop
Sub 签到
    //判断签到
    FindPic 10,0,1153,681,"C:\Users\DrunkDreamer\Documents\按键\11\签到.bmp",0.3,intaX,intaY
    If intaX > 0 And intaY > 0 Then 
        MoveTo intaX, intaY
        Delay 100
        LeftClick 1
        Delay 500
        Call 点击
    End If
End Sub
Event form1.Button1.Click //改分辨率和调整位置
    Hwnd = Plugin.Window.Find(0, "阴阳师-网易游戏")
    If hwnd = "" Then 
        MessageBox "自动获取失败，请把鼠标移至游戏界面。3秒后开始调整"
        Delay 3000
    End If
    Delay 100
    Call Plugin.Window.SetClientSize(Hwnd, 1136, 640)
    Delay 100
    Call Plugin.Window.Move(Hwnd, 0, 0)
End Event
Sub 探索
    Do
        FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\录像.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            intY = intY + 60
            Call 点击
        End If
        FindPic 5,1,1122,680,"C:\Users\DrunkDreamer\Documents\按键\11\失败.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            lost=lost+1
            失败总次数=失败总次数+1
            suiji1 = RndNum(1, 50)
            intX = intX + suiji1
            intY = intY + suiji1
            Call 点击
        End If
        //签到-全局-可能有问题
        FindPic 3,0,1147,675,"C:\Users\DrunkDreamer\Documents\按键\11\签到奖励.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            动作 = "领取签到奖励"
            Call 信息
            MoveTo intX - 200, intY + 50
            Delay 100
            LeftClick 1
            Delay 100
        End If
        //探索-全局
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\探索.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
            //困难难度
            If form1.CheckBox23.value=1  Then 
                FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\困难.bmp",0.9,a,b
                If a > 0 And b > 0 Then 
                    Call 点击1
                End If
            End If
            Call 点击
            画面中没有目标怪=0
        End If
        If form1.CheckBox25.value=1 then
            Call 药师
        End If
        If form1.CheckBox26.value = 1 Then 
            Call 年兽
        End If
        If form1.CheckBox26.value = 1 Then 
            Call 石距
        End If
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\宝箱.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            Call 点击
            yizhaodao=0
            Goto yizhaodao1
        End if
        //不打石距
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\疯狂的石距.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■不打石距，重新找目标副本■"
            yizhaodao = 0
        End If
        //不打药师
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\药师.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■不打药师，重新找目标副本■"
            yizhaodao = 0
        End If
        //不打年兽
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\年兽.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■不打年兽，重新找目标副本■"
            yizhaodao = 0
        End If
        
        FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\boss.bmp",0.4,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label1.Caption = time & ",统计信息：■" & 事项 & "■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)
            form2.Label2.Caption = time & ",正在进行动作：■正在挑战BOSS■"
            Call 点击
            boss=boss+1
        End If
        //=============================================
        //=============================================
        //=============================================
        //==========在庭院界面，准别进入探索地图时，提前判断事项=================================
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\探索灯笼.bmp",0.4,intX,intY    
        If intX > 0 And intY > 0 Then
            Call 签到
            //Call 宠物
            Call 点击
        End If
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\灯笼.bmp",0.5,intX,intY
        If intX > 0 And intY > 0 Then 
            //判断签到
            Call 签到
            Call 点击
        End If
        //====================================================================================
        //*******************************重要********************需要进行拖动章节选择
        If yizhaodao = 1 Then 
            Goto yizhaodao1
        End If
        //进入章节大地图，确定妖那个字，判断下面第一个是多少章节
        ae=form1.InputBox3.Text
        be = form1.InputBox4.Text
        zj = cint(ae)//文本框格式是char格式，所以需要强制转化为整数型
        zd=cint(be)
        FindPic 1,0,1150,684,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp",0.9,m,n
        If m > 0 And n > 0 Then 
            //判断是否是10票突破卷
            If form1.CheckBox22.value = 1  Then 
                For 突破卷 = 0 To 30
                    FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\突破卷"&突破卷&".bmp",1,intax,intay
                    If intax > 0 And intay > 0 and 突破卷 > 9 Then 
                        form2.Label2.Caption = time & ",正在进行动作：■发现突破卷满足要求，开始突破■"
                        Call 判断界面
                        Call 关闭加成
                        Call 突破
                    End If
                Next
            End If
            //            Rem jiacheng
            Call 加成开启
            form2.Label1.Caption = time & ",正在进行动作：■正在进行章节选择，请勿操作■"
            //进行根据最大章节来判断
            If zd - zj =0 Then 
                MoveTo m, n + 400
                Goto l1
            ElseIf zd - zj = 1 Then
                MoveTo m, n + 300
                Goto l1
            ElseIf zd - zj = 2 Then
                MoveTo m, n + 200
                Goto l1
            ElseIf zd - zj = 3 Then
                MoveTo m, n + 100
                Goto l1
            End If
            jl=(zd-zj-2)*100
            Do
                form2.Label2.Caption = time & ",正在进行动作：■拖动中■"&jl
                If jl <= 0 Then 
                    MoveTo m,n+400
                    Exit Do
                End If
                //向上翻页
                MoveTo m, n + 100
                Delay 100
                LeftDown 1
                Delay 100
                If jl > 400 Then 
                    yd = 500
                Else 
                    yd =jl
                End If
                Call Lib.Corder.SMoveto(m,n+yd+10,3)
                Delay 100
                LeftUp 1
                Delay 1000
                jl=jl-400
            Loop
            MoveTo m, n + 100
            Rem l1
            Delay 100
            LeftClick 1
            Delay 100
            //直接推出看有无宝箱
            For 5
                dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\关闭.bmp","000000",0.9,0,xa1,ya1)
                If xa1 >= 0 and ya1 >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■关闭界面■"
                    Delay 100
                    dm.moveto xa1,ya1
                    Delay 100
                    dm.leftclick 
                    Delay 500
                    Exit For
                End If
                Delay 1000
            Next  
            yizhaodao=1
        End If
        Rem yizhaodao1
        //***********************zj是各个章节的图表，不是文字那个********************************
        //推出一次 查看宝箱
        //这里做一个判断，如果多次未找到对应图，重复上面的滚动找章节-全局
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\"&zj&".bmp",0.9,mx1,mx2
        If mx1 > 0 And mx2 > 0 Then 
            Delay 100
            FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\宝箱.bmp",0.8,intX,intY
            If intX > 0 And intY > 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■找宝箱中 x1■"
                Call 点击
                yizhaodao=0
                Goto yizhaodao1
            End if
            //判断是否是10票突破卷
            If form1.CheckBox22.value = 1  Then 
                For 突破卷 = 0 To 30
                    FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\突破卷"&突破卷&".bmp",1,intax,intay
                    If intax > 0 And intay > 0 and 突破卷 > 9 Then 
                        form2.Label2.Caption = time & ",正在进行动作：■发现突破卷满足10票，即将进入突破进程■"
                        Call 关闭加成
                        Call 突破
                        Call 判断界面
                    End If
                Next
            End If
            //判断次数是否足够
            If sdcs > 设定次数 Then 
                Goto 下一个
            End If
            Delay 100
            MoveTo mx1, mx2
            Delay 100
            LeftClick 1
            Delay 1000
        End If
        form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & 设定次数 &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次"& chr(13)&"已养成狗粮"&狗粮&"只。"
        FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            无法退出探索里面=0
            Call 点击
            退出副本时间 = Plugin.GetSysInfo.GetTime()  
        End If
        //判断等待时间是不是2分钟了
        等待时间 = Plugin.GetSysInfo.GetTime()
        卡主时间 = int((120000 - (等待时间 - 退出副本时间)) / 1000)
        form2.Label3.Caption = time & ",探索副本中重置时间等待还剩■" & 卡主时间 & "秒■"
        FindPic 1,0,1150,684,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp",0.9,m1,n1
        If 等待时间 - 退出副本时间 > 120000 and m1 > 0 And n1 > 0 Then 
            yizhaodao = 0
            退出副本时间 = Plugin.GetSysInfo.GetTime() 
        End If
        无法退出探索里面 = 无法退出探索里面 + 1
        //满酒壶-全局
        FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\满酒壶.bmp",0.9,intX,intY
        If intX> 0 And intY> 0 Then
            Call 点击
            Delay 500
            FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\酒壶取消.bmp",0.9,intX,intY
            If intX> 0 And intY> 0 Then
                Call 点击
            End If
        End If
        //打败boss出的小纸人奖励-全局
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\奖励最后.bmp","202020",0.9,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            Call 点击
            Delay 1000
            vv = RndNum(-50, 50)
            MoveTo intX - 330+ vv, intY + 20+ vv*2
            LeftClick 1
            Delay 100
            拖动了 = 0
            退出副本时间 = Plugin.GetSysInfo.GetTime()  
        End If
        //         form2.Label3.Caption = time & ",探索副本怪物次数【" & 失败总次数 & "次】，失败次数【"&失败总次数&"次】，"
        //打败后出现的胜利鼓-全局
        FindPic 0,7,1137,680,"C:\Users\DrunkDreamer\Documents\按键\11\获得奖励.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            vv = RndNum(- 50 , 50)
            intX = intX + vv
            intY=intY+vv
            Call 点击
        End If
        //===============================================================================
        //根据选择，判断打什么怪，目前只设置了exp 和全部怪物两种模式
        If form1.CheckBox13.value = 1 Then 
            //打全部怪物的选择
            zuobiaox = 0
            zuobiaoy = 0
            zuobiaox1 = 1187
            zuobiaoy1 = 689
            Goto t2
        ElseIf form1.CheckBox12.value = 1 Then
            //只打经验怪
            Goto jy
        End If
        //===============================================================================
        Rem jy
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp3.bmp",0.3,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-3■" 
            zuobiaox = intX - 100
            zuobiaoy = intY - 250
            zuobiaox1 = intX + 100
            zuobiaoy1 = intY + 30
            Goto t2
        End If
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp6.bmp",0.3,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-6-1■" 
            zuobiaox = intX - 100
            zuobiaoy = intY - 250
            zuobiaox1 = intX + 100
            zuobiaoy1 = intY + 30
            Goto t2
        End If
        //找到经验图标1
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp.bmp",0.3,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■发现经验怪■"
            zuobiaox = intX +100
            zuobiaoy = intY - 250
            zuobiaox1 = intX -30
            zuobiaoy1 = intY + 30
            Goto t2
        End If
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp6.bmp",0.3,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-6■"
            zuobiaox = intX +100
            zuobiaoy = intY - 250
            zuobiaox1 = intX -30
            zuobiaoy1 = intY + 30
            Goto t2
        End If
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp4.bmp",0.3,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-4■"
            zuobiaox = intX +100
            zuobiaoy = intY - 186
            zuobiaox1 = intX 
            zuobiaoy1 = intY
            Goto t2
        End If
        //找到经验图标2
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp1.bmp",0.3,intX,intY
        If intX> 0 And intY> 0 Then
            form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-1■"
            zuobiaox = intX + 100
            zuobiaoy = intY - 250
            zuobiaox1 = intX - 30
            zuobiaoy1 = intY + 30
            画面中没有目标怪=画面中没有目标怪-1
            Rem t2
            //MessageBox zuobiaox&","&zuobiaoy&","&zuobiaox1&","&zuobiaoy1
            //注意，我把下面的模糊度调节为0.5，原来是0.2
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\打1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\打.bmp","000000",0.8,0,a,b)
            If a > 0 And b > 0 Then 
                form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"
                form2.Label2.Caption = time & ",正在进行动作：■攻打副本怪物中...■" 
                Call 点击1
                Delay 100
                画面中没有目标怪=0
                tscs = tscs + 1
                sdcs = tscs
                探索总次数=探索总次数+1
                //                Call 信息
            End If
        End If
        //管壁体力选项，然后等待5分钟
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\关闭体力.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=1 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            Delay 300000
        End If
        //弄个全局变量，判断是在地图里面，增加脚本效率，例如查找右小角 消耗寿司X3那个图标，一次算一次
        FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\小寿司.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            画面中没有目标怪=画面中没有目标怪+1
        End if
        //如果  画面中没有目标怪   好多次 
        form2.Label2.Caption = time & ",正在进行动作：■寻找怪物中■探索具体情况：检视怪物次数" & 画面中没有目标怪 &"次。5次后将拖动画面；已拖动"&拖动了&"次，5次后将会退出。"
        If 画面中没有目标怪 > 4 Then 
            //开始拖动副本
            FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\小寿司.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                LeftDown 1
                Call Lib.Corder.SMoveto(intX-800, intY, 0.5)
                LeftUp 1
                Delay 2500
                画面中没有目标怪 = 0
                拖动了=拖动了+1
            End If
        End If
        //如果拖动了大于6次，就开始进入退出阶段
        //判断同一个像素点是否一直都是一个颜色，如果是，就退出。想法
        FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\小寿司.bmp",0.9,intxxX,intxxY     
        If 拖动了 > 5 and intxxX > 0 And intxxY > 0 Then 
            //退出
            FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                Call 点击
                拖动了 = 0
            End If
        End If
        //普通模式下准备-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.9,intxxX,intxxY
        If intxxX > 0 And intxxY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■准备1■"
            Call 满级判断
            Delay 100
            MoveTo intxxX, intxxY
            Delay 100
            LeftClick 1
            Delay 1000
            yigundong=0
        End If
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\最终胜利.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
        form2.Label2.Caption = time & ",正在进行动作：■最终胜利（突破）■"
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 500
            LeftClick 1
            Delay 100
        End If
        //答应后的奖励前-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 2
            Delay 1500
            LeftClick 1
            Delay 100
        End If
        //打赢后的开达摩的图-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX - 450 + zz1, intY - 63 + zz1
            Delay 100
            LeftClick 1
            Delay 100
        End If
    Loop
End Sub
Sub 满级判断
    //判断经验满
    //中间
    FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\满2.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then 
        Goto t1
    End If
    //右侧
    If form1.CheckBox14.value = 1 Then 
        Goto tiaoguo
    End If
    FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\满3.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then 
        Goto t1
    End If
    Rem tiaoguo
    //左
    FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\满.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Do
            Rem t1
            form2.Label2.Caption = time & ",正在进行动作：■发现有满级狗粮，开始进行更换■"
            //点左下角神龛,进入换人界面
            FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\满1.bmp",0.9,a,b
            If a > 0 And b > 0 Then 
                Call 点击1
                Delay 1000
            End If
            //选择全部式神
            FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\全部.bmp",0.8,intX,intY
            If intX > 0 And intY > 0 Then 
                Call 点击
                Delay 1000
            End If
            //N卡和   素材判断
            FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\N.bmp",0.8,intX,intY
            If intX > 0 And intY > 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■选择N卡■"
                Call 点击
                Delay 1000
                zz1=0
            End If
            //滚动条判断
            If yigundong = 1 Then 
                Goto a2
            End If
            Do
                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\滚动.bmp", "202020", 0.9, 0, xa1, ya1)
                If xa1 > 0 And ya1 > 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■开始滚动■"
                    dm.MoveTo xa1, ya1
                    Delay 1000
                    dm.LeftDown 
                    Delay 500
                    zz = RndNum(100, 300)
                    Delay 100
                    Call Lib.Corder.SMoveto(xa1 + zz, ya1, 2)
                    Delay 1000
                    dm.LeftUp 
                    yigundong = 1
                    Delay 1000
                    Exit Do
                End If
                Delay 100
            Loop
            GetCursorPos mx, my
            mm=0
            Rem a2
            //中间满级
            Do
                form2.Label2.Caption = time & ",正在进行动作：■判断中间满级■"
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\满级.bmp","101010",0.9,0,xa3,ya3)
                If xa3 >= 0 and ya3 >= 0 Then
                    form2.Label2.Caption = time & ",正在进行动作：■中间满级■"
                    dm.MoveTo mx, my - 50
                    Delay 1000
                    dm.LeftDown
                    Delay 1000
                    Call Lib.Corder.SMoveto(xa3, ya3 + 50, 2)
                    Delay 1000
                    dm.LeftUp 
                    Delay 1000
                    狗粮=狗粮+1
                    mm = mm + 1
                    form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)&"已养成狗粮"&狗粮&"只。"
                End If
                //左边队长满级
                //满级
                If form1.CheckBox14.value = 1 Then 
                    Goto tiaoguo2
                End If
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\满级1.bmp","000000",0.9,0,xa1,ya1)
                If xa1 >= 0 and ya1 >= 0 Then
                    dm.Moveto mx + 200, my - 50
                    Delay 1000
                    dm.LeftDown 
                    Delay 1000
                    Call Lib.Corder.SMoveto(xa1, ya1 + 50, 2)
                    Delay 1000
                    dm.LeftUp 
                    Delay 1000
                    狗粮=狗粮+1
                    mm = mm + 1
                    form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)&"已养成狗粮"&狗粮&"只。"
                End If
                Rem tiaoguo2
                //右边
                form2.Label2.Caption = time & ",正在进行动作：■判断右边满级■"
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\满级2.bmp","000000",0.8,0,xa2,ya2)
                If xa2 >= 0 and ya2 >= 0 Then 
                    Delay 1000
                    MoveTo mx - 100, my - 50
                    Delay 1000
                    LeftDown 1
                    Delay 1000
                    Call Lib.Corder.SMoveto(xa2, ya2 + 50, 2)
                    Delay 1000
                    LeftUp 1
                    Delay 1000
                    狗粮=狗粮+1
                    mm = mm + 1
                    form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)&"已养成狗粮"&狗粮&"只。"
                End If
                mm = mm + 1
                Delay 100
                //判断换人次数，一般换3次最多，之后跳出换人这个循环，进入准备
                If mm > 5 Then 
                    Goto a3
                End If
                //接受悬赏
                FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp",0.9,intX,intY
                If intX> 0 And intY> 0 Then
                    call 点击
                End If
            Loop
        Loop
        //换人界面准备
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备2.bmp",0.5,intX,intY
        If intX > 0 And intY > 0 and mm>3 Then 
            yigundong=0
            Call 点击
            Goto a3
        End If
    End If
    Rem a3
End Sub
Sub 妖气封印
    Do
        form2.Label1.Caption = time & ",正在进行动作：■妖气封印■" & chr(13)& "妖气封印情况：设定次数" & form1.InputBox2.text &"次。已打"&yqcs &"次。"
        //返回庭院
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■退出副本■"
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //        FindPic 10,0,1153,681,"C:\Users\DrunkDreamer\Documents\按键\11\关闭.bmp",0.9,intX,intY
        //        If intX> 0 And intY> 0 Then
        //            Call 点击
        //        End If
        //卷轴
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\卷轴.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //组队
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\庭院组队.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            //判断是否达到指定次数
            gb1=form1.InputBox2.text
            If yqcs >= cint(gb1) Then 
                form2.Label2.Caption = time & ",正在进行动作：■进入下一个环节■"
                yqcs = 0
                Exit Do
            End If
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //奖励目标
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX - 450 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 100
        End If
        //满酒壶
        FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\满酒壶.bmp",0.9,intX,intY
        If intX> 0 And intY> 0 Then
            Call 点击
            Delay 500
            FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\酒壶取消.bmp",0.9,intX,intY
            If intX> 0 And intY> 0 Then
                Call 点击
            End If
        End If
        //奖励前
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 500
            LeftClick 1
            Delay 100
        End If
        //        //接受悬赏 有全局
        //        FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp",0.9,intX,intY
        //        If intX> 0 And intY> 0 Then
        //            call 点击
        //        End If
        //准备
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■准备1■"
            Call 点击
            yqcs=yqcs+1
            妖气封印总次数=妖气封印总次数+1
        End If
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备2.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 and mm > 3 Then 
            form2.Label2.Caption = time & ",正在进行动作：■准备2■"
            Call 点击
            yqcs=yqcs+1
            妖气封印总次数=妖气封印总次数+1
        End If
        //妖气封印
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\全部1.bmp","303030",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1+300
            Delay 100
            dm.leftdown 
            Call Lib.Corder.SMoveto(xa1,ya1+100,2)
            Delay 500
            dm.leftup 
            Delay 500
        End If
        //妖气封印X
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\妖气封印1.bmp","404040",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■找到妖气封印1■"
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 100
            Call 妖气选项
        End If
    Loop
End Sub
Sub 妖气选项
    Do
        form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\骨女.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox11.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get 骨女■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If
        //直到普通状态才推出
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■进入准备1，跳出■"
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 100
            yqcs = yqcs + 1
            妖气封印总次数=妖气封印总次数+1
            Exit do
        End If
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\海坊主.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox10.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get海坊主■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If    
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\跳跳哥哥.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox9.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get跳跳哥哥■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If    
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\二口女.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox8.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get二口女■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If    
        //小松丸
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\小松丸.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox7.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get 小松丸■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If    
        //日和坊
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\日和坊.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox6.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get 日和坊■"
            //        Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If       
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\椒图.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox5.value=1 Then 
            //        Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
            form2.Label2.Caption = time & ",正在进行动作：■get椒图■"
        End If    
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\饿鬼.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox4.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get饿鬼■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 3000
        End If    
        //刷新
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\妖气封印2.bmp","505050",0.9,0,xb1,yb1)
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\刷新.bmp","000000",0.9,0,xa11,ya11)
        If xa11 >= 0 and ya11 >= 0 and xb1 >= 0 and yb1 >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■刷新咯■"
            Delay 100
            dm.moveto xa11,ya11
            Delay 100
            dm.leftclick 
            Delay 100
        End If
        dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\鬼使黑.bmp","101010",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.checkbox3.value = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■get 鬼使黑■"
            Delay 100
            dm.moveto xa1+420,ya1+35
            Delay 100
            dm.leftclick 
            Delay 100
        End If
    loop
End Sub
Sub 御魂
    ddsj = form1.InputBox5.text
    ddsj = Cint(ddsj)
    ddsj=ddsj*1000
    御魂胜利次数 = 0
    御魂失败次数=0
    Do
        //所有事项多做一个回到探索界面开始的一个子程序
        //御魂图标
        If form1.ComboBox6.ListIndex = 2 and yhtb=1 Then//加入队伍模式 
            Goto tgyhtb
            timeb= Plugin.GetSysInfo.GetTime 
        End If
        FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\御魂图标.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            Call 点击
            yhtb=1
        End If
        //这上面要进行判断，等待时间
        Rem tgyhtb
        If timeb - timea > ddsj Then 
            yhtb=0
        End If
        //八岐大蛇全局
        FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\八岐大蛇.bmp",0.9,ma,mb
        If ma > 0 And mb > 0 Then 
            MoveTo ma, mb
            Delay 100
            LeftClick 1
            Delay 1000
        End If
        //找魂10 并点击
        FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\组队界面御魂字.bmp",0.9,ma,mb
        If ma > 0 And mb > 0 and xx02=0 Then 
            Delay 100
            //根据所选章节判断层数
            cs001 = form1.ComboBox3.ListIndex
            cs001 = cs001 + 1
            If cs001 > 5 Then 
                //拖动
                MoveTo ma, mb+380
                Delay 100
                LeftDown 1
                Delay 100
                Call Lib.Corder.SMoveto(ma,mb,0.5)
                Delay 500
                LeftUp 1
                Delay 1000
            End If
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\御魂"&cs001&".bmp","303030",0.9,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■已选择御魂"&cs001&"层■" 
                Delay 100
                MoveTo intX, intY
                Delay 100
                LeftClick 1
                Delay 1000
                //加入队伍  6是队伍
                FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\加入.bmp",0.9,ma,mb
                If ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=2 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■加入队伍中..■" 
                    MoveTo ma, mb
                    Delay 100
                    LeftClick 1
                    Delay 1000
                    xx02=1
                End If
                //创建队伍
                FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\创建队伍.bmp",0.9,ma,mb
                If ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■创建队伍中■" 
                    MoveTo ma, mb
                    Delay 100
                    LeftClick 1
                    Delay 1000
                End If
            End If
        End If
        //刷新
        FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\刷新.bmp",0.9,ma,mb
        If ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=2 Then 
            form2.Label2.Caption = time & ",正在进行动作：■刷新..■" 
            MoveTo ma, mb
            Delay 100
            LeftClick 1
            Delay 1000
            xx02=1
        End If
        //加入队伍
        FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\加入.bmp",0.9,ma,mb
        If ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=2 Then 
            form2.Label2.Caption = time & ",正在进行动作：■加入队伍中...1■" 
            MoveTo ma, mb
            Delay 100
            LeftClick 1
            Delay 1000
            xx02=1
        End If
        //队伍公开选项
        FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\公开.bmp",0.9,gkx,gky
        If gkx > 0 And gky > 0 and form1.ComboBox4.ListIndex=0 Then//公开 
            form2.Label2.Caption = time & ",正在进行动作：■选择公开队伍■"
            MoveTo gkx + 20, gky + 45
            Delay 100
            LeftClick 1
            Delay 1000
            FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\御魂创建.bmp",0.9,cjx,cjy
            If cjx > 0 And cjy > 0 Then 
                Delay 100
                MoveTo cjx, cjy
                LeftClick 1
                Delay 1000
            End If
        ElseIf gkx > 0 and gky > 0 and form1.ComboBox4.ListIndex = 1 Then//好友寮友
            form2.Label2.Caption = time & ",正在进行动作：■选择仅好友和寮友■" 
            MoveTo gkx - 28, gky + 11
            Delay 100
            LeftClick 1
            Delay 1000
            FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp",0.9,cjx,cjy
            If cjx > 0 And cjy > 0 Then 
                Delay 100
                MoveTo cjx, cjy
                LeftClick 1
                Delay 1000
            End If
        ElseIf gkx > 0 and gky > 0 and form1.ComboBox4.ListIndex = 2 Then//不公开
            form2.Label2.Caption = time & ",正在进行动作：■选择不公开■" 
            MoveTo gkx-23, gky+15
            Delay 100
            LeftClick 1
            Delay 1000
            FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp",0.9,cjx,cjy
            If cjx > 0 And cjy > 0 Then 
                Delay 100
                MoveTo cjx, cjy
                LeftClick 1
                Delay 1000
            End If
        End If
        //判断准备组几人队
        //邀请1代表第二个位置为空
        form2.Label1.Caption = time & ",正在进行动作：■御魂副本■" & chr(13)& "御魂具体情况：设定御魂次数" & 计划御魂次数 &"次。已打"&御魂总次数 &"次。胜利次数"&御魂胜利次数&"次，失败"& 御魂失败次数&"次。"
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\进入协战队伍.bmp","000000",0.9,0,xaa1,yaa1)
        If xaa1 >= 0 and yaa1 >= 0 Then 
            Delay 1000
            If 御魂总次数 >= 计划御魂次数 Then 
                form2.Label2.Caption = time & ",正在进行动作：■御魂完成3■"
                御魂胜利次数 = 0
                Goto 御魂完毕
            End If
            //选择2人对
            if form1.ComboBox5.ListIndex = 0 Then
                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)
                Delay 100
                If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■御魂完成1■"
                    御魂胜利次数=0
                    Goto 御魂完毕
                    //                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请1.bmp", "000000", 0.9, 0, yqx,yqy)
                Else 
                    form2.Label2.Caption = time & ",正在进行动作：■两人队开始战斗■"
                    御魂胜利次数 = 御魂胜利次数 + 1
                    御魂总次数=御魂总次数+1
                    Delay 100
                    dm.moveto xa1,ya1
                    Delay 100
                    dm.leftclick 
                    Delay 2000
                End If
                //                and yqx<0 and yqy<0
            End if
            //邀请 代表三人队伍
            If form1.ComboBox5.ListIndex=1 then
                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)
                Delay 500
                If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then 
                    御魂胜利次数 = 0
                    form2.Label2.Caption = time & ",正在进行动作：■御魂次数已满2■"
                    Goto 御魂完毕
                end if
                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请.bmp", "000000", 0.9, 0, yqx,yqy)
                If xa1 >= 0 and ya1 >= 0 and yqx<0 and yqy<0 Then
                    form2.Label2.Caption = time & ",正在进行动作：■三人对开始战斗■"
                    御魂胜利次数 = 御魂胜利次数 + 1
                    御魂总次数=御魂总次数+1
                    Delay 100
                    dm.moveto xa1,ya1
                    Delay 100
                    dm.leftclick 
                    Delay 2000
                End If
            End If
        End If
        //3人
        If form1.ComboBox5.ListIndex=1 then
            dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)
            Delay 500
            If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then 
                御魂胜利次数 = 0
                form2.Label2.Caption = time & ",正在进行动作：■御魂次数已满5■"
                Goto 御魂完毕
            end if
            dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请.bmp", "000000", 0.9, 0, yqx,yqy)
            If xa1 >= 0 and ya1 >= 0 and yqx<0 and yqy<0 Then
                form2.Label2.Caption = time & ",正在进行动作：■三人对开始战斗■"
                御魂胜利次数 = 御魂胜利次数 + 1
                御魂总次数=御魂总次数+1
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 2000
            End If
        End If
 
        //选择2人对
        if form1.ComboBox5.ListIndex = 0 Then
            dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)
            Delay 100
            If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■御魂完成4■"
                御魂胜利次数=0
                Goto 御魂完毕
                //                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请1.bmp", "000000", 0.9, 0, yqx,yqy)
            Else 
                form2.Label2.Caption = time & ",正在进行动作：■两人队开始战斗■"
                御魂胜利次数 = 御魂胜利次数 + 1
                御魂总次数=御魂总次数+1
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 2000
            End If
            //                and yqx<0 and yqy<0
        End if
      
        //御魂按钮
        FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\探索地图御魂按钮.bmp",0.9,intax,intay
        If intax > 0 And intay > 0 Then 
            //判断是否是10票突破卷
            If form1.CheckBox22.value = 1  Then 
                For 突破卷 = 0 To 30
                    FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\突破卷"&突破卷&".bmp",1,intax,intay
                    If intax > 0 And intay > 0 and 突破卷 > 9 Then 
                        form2.Label2.Caption = time & ",正在进行动作：■发现突破卷满足10票，即将进入突破进程■"
                        Call 关闭加成
                        Call 突破
                        Goto 下一个
                    End If
                Next
            End If
            MoveTo intax, intay
            Delay 100
            LeftClick 1
            Delay 2500
        End If
        //点击组队
        FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\组队.bmp",0.9,intax,intay
        If intax > 0 And intay > 0 Then 
            MoveTo intax, intay
            Delay 100
            LeftClick 1
            Delay 1000
        End If
        For 2
            //默认邀请队友
            FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\默认邀请队友.bmp",0.9,intX,intY
            If intX> 0 And intY> 0 Then
                Call 点击
            Else //确认退出和确认一样
                FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                    Call 点击
                End If
            End If
        Next
        //准备
        form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"
        FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then
            call 点击
        End If
        //打赢后的奖励前-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 1500
            LeftClick 1
            Delay 1000
        End If
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\最终胜利.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
        form2.Label2.Caption = time & ",正在进行动作：■最终胜利（突破）■"
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 500
            LeftClick 1
            Delay 100
        End If
        //打赢后的开达摩的图-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX - 450 + zz1, intY - 63 + zz1
            Delay 100
            LeftClick 1
            Delay 1000
            timea = Plugin.GetSysInfo.GetTime
            //胜利后，等待8秒。直到看到准备
            If form1.ComboBox6.ListIndex = 2 Then 
                For 10*ddsj
                    Delay 100
                    //打赢后的奖励前-全局
                    FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp",0.8,intX,intY
                    If intX > 0 And intY > 0 Then 
                        zz1 = RndNum(-50, 50)
                        MoveTo intX +200 + zz1, intY + 63 + zz1
                        LeftClick 1
                        Delay 1000
                    End If
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意普通.bmp","000000",0.9,0,xa1,ya1)
                    If xa1 >= 0 and ya1 >= 0 Then 
                        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意默认.bmp","000000",0.9,0,xa1,ya1)
                        If xa1 >= 0 and ya1 >= 0 Then
                            Delay 100
                            dm.moveto xa1,ya1
                            Delay 100
                            dm.leftclick 
                            Delay 500
                        end if
                    End If
                    FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqY
                    If intqqX> 0 And intqqY> 0 Then
                        Exit for
                    End If
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
                    If xa1 >= 0 and ya1 >= 0 Then 
                        Delay 100
                        dm.moveto xa1+suiji1,ya1+suiji1
                        Delay 100
                        dm.leftclick 
                        Delay 1000
                        御魂失败次数=御魂失败次数+1
                    End if
                    //打赢后的奖励前-全局
                    FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intY
                    If intX > 0 And intY > 0 Then 
                        zz1 = RndNum(-50, 50)
                        MoveTo intX +200 + zz1, intY + 63 + zz1
                        LeftClick 1
                        Delay 100
                        LeftClick 1
                        Delay 1000
                    End If
                Next	
            End If
        End If
        //战斗失败最后一个界面 -全局
        suiji1 = RndNum(1, 50)
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1+suiji1,ya1+suiji1
            Delay 100
            dm.leftclick 
            Delay 1000
            //胜利后，等待8秒。直到看到准备
            If form1.ComboBox6.ListIndex = 2 Then 
                For 10*ddsj
                    Delay 100
                    FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqY
                    If intqqX> 0 And intqqY> 0 Then
                        Exit for
                    End If
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
                    If xa1 >= 0 and ya1 >= 0 Then 
                        Delay 100
                        dm.moveto xa1+suiji1,ya1+suiji1
                        Delay 100
                        dm.leftclick 
                        Delay 1000
                    End if
                Next	
            End If
            timea= Plugin.GetSysInfo.GetTime 
        End If
    Loop
End Sub
Sub 业原火
    yyhcs = form1.InputBox7.text
    业原火计划次数 = Cint(yyhcs)
    业原火进行次数 = 0
    已选择=0
    //    ddsj=ddsj*1000
    //    御魂胜利次数 = 0
    //    御魂失败次数=0
    Do
        form2.Label1.Caption = time & ",正在进行动作：■业原火■" & chr(13)& "业原火情况：设定次数" & 业原火计划次数 &"次。已打"&业原火进行次数 &"次。"
        form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\御魂图标.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //业原火图标
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\业原火.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //选择管卡
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\贪之阵.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox28.value=1 and 已选择=0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            已选择=1
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\嗔之阵.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox29.value=1 and 已选择=0  Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            已选择=1
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\痴之阵.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox30.value=1 and 已选择=0  Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            已选择=1
        End If
        //挑战
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\业原火挑战.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            If 业原火进行次数 >= 业原火计划次数 Then 
                Goto wanbi
            End If
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            业原火总次数 = 业原火总次数 + 1
            已选择=0
        End If
        //准备
        FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then
            Call 点击
            业原火进行次数=业原火进行次数+1
        End If
        //打赢后的奖励前-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 1500
            LeftClick 1
            Delay 1000
        End If
        //打赢后的开达摩的图-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX - 450 + zz1, intY - 63 + zz1
            Delay 100
            LeftClick 1
            Delay 1000
        End If
        suiji1 = RndNum(1, 50)
        //shibai 
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1+suiji1,ya1+suiji1
            Delay 100
            dm.leftclick 
            Delay 1000
        End  if
    Loop
    Rem wanbi
End Sub
Sub 等待加入模式
    do
        //准备
        FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then
            call 点击
        End If
        //打赢后的奖励前-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 1500
            LeftClick 1
            Delay 1000
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\真蛇.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意普通.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意默认.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 500
            end if
        End If
        //打赢后的开达摩的图-全局
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            zz1 = RndNum(-50, 50)
            MoveTo intX - 450 + zz1, intY - 63 + zz1
            Delay 100
            LeftClick 1
            Delay 1000
            timea = Plugin.GetSysInfo.GetTime
            //胜利后，等待8秒。直到看到准备
            If form1.ComboBox6.ListIndex = 1 Then 
                For 10*ddsj
                    Delay 100
                    FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqY
                    If intqqX> 0 And intqqY> 0 Then
                        Exit for
                    End If
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
                    If xa1 >= 0 and ya1 >= 0 Then 
                        Delay 100
                        dm.moveto xa1+suiji1,ya1+suiji1
                        Delay 100
                        dm.leftclick 
                        Delay 1000
                    End if
                    //打赢后的奖励前-全局
                    FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intY
                    If intX > 0 And intY > 0 Then 
                        zz1 = RndNum(-50, 50)
                        MoveTo intX +200 + zz1, intY + 63 + zz1
                        LeftClick 2
                        Delay 1500
                        LeftClick 1
                        Delay 1000
                    End If
                Next	
            End If
            御魂胜利=御魂胜利+1
        End If
        //战斗失败最后一个界面 -全局
        suiji1 = RndNum(1, 50)
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1+suiji1,ya1+suiji1
            Delay 100
            dm.leftclick 
            Delay 1000
            //胜利后，等待8秒。直到看到准备
            If form1.ComboBox6.ListIndex = 1 Then 
                For 10*ddsj
                    Delay 100
                    FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqY
                    If intqqX> 0 And intqqY> 0 Then
                        Exit for
                    End If
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
                    If xa1 >= 0 and ya1 >= 0 Then 
                        Delay 100
                        dm.moveto xa1+suiji1,ya1+suiji1
                        Delay 100
                        dm.leftclick 
                        Delay 1000
                    End if
                Next	
            End If
        End If
    loop
End Sub
Sub 加成开启
    For 5
        //打开加成那个小灯笼
        FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\加成开启.bmp",0.9,intax,intay
        If intax > 0 And intay > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■打开加成选项■"
            MoveTo intax, intay
            Delay 100
            LeftClick 1
            Delay 1000
        End If
        //根据选择开启加成选项
        //经验加成
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\经验100.bmp","202020",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox1.value=1 and form1.CheckBox27.value=1 and 探索加成=1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■经验100%开启■"
            Delay 100
            dm.moveto xa1+175,ya1+10
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\经验50.bmp","202020",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox1.value=1 and form1.CheckBox16.value=1 and 探索加成=1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■经验50%开启■"
            Delay 100
            dm.moveto xa1+175,ya1+10
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //御魂加成
        FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\御魂加成.bmp",0.8,intbx,intby
        If intbx > 0 And intby > 0 and form1.CheckBox17.value=1 and form1.CheckBox20.value=1 and 御魂加成=1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■御魂加成开启■"
            MoveTo intbx + 461, intby
            Delay 100
            LeftClick 1
            Delay 100
        End If
        //觉醒加成
        FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\觉醒加成.bmp",0.8,intbx,intby
        If intbx > 0 And intby > 0 and form1.CheckBox18.value=1 and form1.CheckBox21.value=1 and 觉醒加成=1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■觉醒开启■"
            MoveTo intbx + 461, intby
            Delay 100
            LeftClick 1
            Delay 100
        End If
        //金钱加成
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\金钱100.bmp","202020",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.CheckBox1.value=1 and form1.CheckBox19.value=1 and 探索加成=1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■金币100%开启■"
            Delay 100
            dm.moveto xa1+175,ya1+10
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        Delay 100
    Next
    //关闭加成界面
    FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\关闭加成界面最下面樱花.bmp",0.9,intax,intay
    If intax > 0 And intay > 0 Then 
        form2.Label2.Caption = time & ",正在进行动作：■关闭加成界面■"
        Delay 100
        MoveTo intax , intay
        Delay 100
        LeftClick 1
        Delay 1000
    End If
End Sub
Sub 关闭加成
    For 20
        //打开加成那个小灯笼
        FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\加成开启.bmp",0.9,intax,intay
        If intax > 0 And intay > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■打开加成界面1■"
            MoveTo intax, intay
            Delay 100
            LeftClick 1
            Delay 100
        End If
        //根据选择关闭加成选项
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\暂停.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■暂停加成■"
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        Delay 100
    Next
    //关闭加成界面
    FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\关闭加成界面最下面樱花.bmp",0.9,intax,intay
    If intax > 0 And intay > 0 Then 
        form2.Label2.Caption = time & ",正在进行动作：■关闭加成界面■"
        Delay 200
        MoveTo intax,intay
        Delay 100
        LeftClick 1
        Delay 1000
    End If
End Sub
Sub 突破
    等待次数=0
    Do
        If 等待次数>3000 Then 
            Goto 开始
        End If
        Delay 100
        //突破按钮
        form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次"
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破按钮.bmp","000000",0.8,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■突破按钮（突破）■"
            Delay 100
            dm.MoveTo intX,intY
            Delay 500
            dm.leftclick 
            Delay 2000
        End If
                //突破界面 -判断事项
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp","000000",0.8,0,intX,intY)
                If intX >= 0 and intY >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■找到突破界面，并刷新判断（突破）■"
                    Call 突破刷新判断
                End If
        //五星以下=====
        Rem agin
        If linshi = 5 Then  
            dm_ret = dm.FindPicEx(2,0,1356,732, "C:\Users\DrunkDreamer\Documents\按键\11\测试5星.bmp", "404040", 0.8, 0)
            If len(dm_ret) > 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■找到五星（突破）■"
                ss = split(dm_ret,"|")
                index = 0
                count = UBound(ss) + 1
                Do While index < count
                    sss = split(ss(index),",")
                    id = int(sss(0))
                    x = int(sss(1))
                    y = int(sss(2))
                    dm.MoveTo x,y
                    Delay 1000
                    dm.leftclick 
                    Delay 1000
                    Call 循环
                    wxjj = wxjj + 1
                    form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次"
                    index = index+1
                Loop
            End If
            linshi = linshi - 1
            Goto agin
        End If
        If linshi < 0 Then 
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破刷新.bmp","202020",0.8,0,intX,intY)
                If intX >= 0 and intY >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■发现突破刷新了■"
                    dm.MoveTo intX,intY
                    Delay 1000
                    dm.leftclick 
                    Delay 1000
                    //确认
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","202020",0.8,0,intX,intY)
                    If intX >= 0 and intY >= 0 Then 
                        form2.Label2.Caption = time & ",正在进行动作：■确认退出02■"
                        dm.MoveTo intX,intY
                        Delay 1000
                        dm.leftclick 
                        Delay 1000
                        //                        linshi=xj01//重置星
                      
                    End If
                End If
            Goto 开始
        End If
        form2.Label2.Caption = time & ",正在进行动作：■寻找有无"&linshi&"星结界■"
        if linshi>-1 and linshi<5 then
            form2.Label2.Caption = time & ",正在进行动作：■寻找有无"&linshi&"星结界-1■"
            dm_ret = dm.FindPicEx(2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\测试"&linshi&"星.bmp","303030",0.8,0)
            If len(dm_ret) > 0 Then
                ss = split(dm_ret,"|")
                index = 0
                count = UBound(ss) + 1
                Do While index < count
                    sss = split(ss(index),",")
                    id = int(sss(0))
                    x = int(sss(1))
                    y = int(sss(2))
                    dm.MoveTo x,y//挨个点击找到的结界
                    Delay 1000
                    dm.leftclick 
                    Delay 1000
                    Call 循环
                    qtjj = qtjj + 1//其他结界
                    form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次"
                    index = index+1
                Loop
            End If
            linshi = linshi - 1
            Goto agin
        End If
        等待次数=等待次数+1
    Loop
End Sub
Sub 循环
    Do
        //        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp","000000",0.8,0,intvX,intvY)
        //        If intvX >= 0 and intvY >= 0 and 等待次数 > 5 Then 
        //        form2.Label2.Caption = time & ",正在进行动作：■突破界面■"
        //            dm.MoveTo x,y
        //            Delay 1000
        //            dm.leftclick 
        //            Delay 1000
        //            等待次数=0
        //        End If
        form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，御魂战斗次数【"&御魂总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"&等待次数
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破进攻.bmp","303030",0.7,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■突破进攻■"
            Delay 1000
            dm.MoveTo intX+50,intY+50
            Delay 1000
            dm.leftclick 
            Delay 100
            等待次数=0
        End If
        //准备
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备.bmp","202020",0.8,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■准备（突破）■"
            Delay 100
            dm.MoveTo intX,intY
            Delay 100
            dm.leftclick 
            Delay 100
            等待次数=0
            突破总次数=突破总次数+1
        End If
        //准备1
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp","202020",0.8,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■准备1（突破）■"
            Delay 100
            dm.MoveTo intX,intY
            Delay 100
            dm.leftclick 
            Delay 100
            等待次数=0
            突破总次数=突破总次数+1
        End If
        //胜利阶段1
        //        Do while sl=1
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\最终胜利.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
        form2.Label2.Caption = time & ",正在进行动作：■最终胜利（突破）■"
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 500
            LeftClick 1
            Delay 100
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp","000000",0.9,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■突破奖励（突破）■"
            a = Lib.算法.随机数字串(2)
            xa = intX +a
            ya=intY +a
            dm.MoveTo xa, ya
            Delay 100
            dm.LeftClick 
            Delay 100
            等待次数=0
        End If
        FindPic 6,1,1138,683,"C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
            sl = 0
            form2.Label2.Caption = time & ",正在进行动作：■回到突破界面，开始判断是否满足条件刷新■"
            Call 突破刷新判断
            Goto xx1
        End If
        //准备
        //        loop
        //奖励前
        FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■奖励前（突破）■"
            zz1 = RndNum(-50, 50)
            MoveTo intX +200 + zz1, intY + 63 + zz1
            LeftClick 1
            Delay 100
            LeftClick 1
            Delay 100
            等待次数=0
        End If
        //胜利后
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp","000000",0.8,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■奖励（突破）■"
            a = Lib.算法.随机数字串(2)
            xa = intX +a
            ya=intY +a
            dm.MoveTo xa, ya
            Delay 1000
            dm.LeftClick 
            Delay 1000
            dm.LeftClick 
            Delay 1000
            sl = 1
        End If
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■失败1（突破）■"
                suiji1 = RndNum(1, 50)
                intX = intX + suiji1
                intY = intY + suiji1
                Call 点击
                Delay 1000
                sbjj=sbjj+1
                form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次。失败"&sbjj&"次。"
                sl = 1
            End If
        
        //        //失败
        //        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,intX,intY)
        //        If intX > 0 And intY > 0 Then 
        //            form2.Label2.Caption = time & ",正在进行动作：■失败1（突破）■"
        //            suiji1 = RndNum(1, 50)
        //            intX = intX + suiji1
        //            intY = intY + suiji1
        //            Call 点击
        //            Delay 2000
        //            sbjj=sbjj+1
        //            form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次。失败"&sbjj&"次。"
        //            sl = 1
        //        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\关闭体力.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■关闭体力（突破）■"
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            form2.Label2.Caption = time & ",正在进行动作：■等待5分钟■"
            Delay 300000
        End If
        If 等待次数>1000 Then 
            Goto 开始
        End If
        //没票了
        FindPic 6, 1, 1138, 683, "C:\Users\DrunkDreamer\Documents\按键\11\0票.bmp", 1, intX, intY
        If intX > 0 And intY > 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■0票了（突破）■"
            //            If sdcs > 设定次数 Then 
            //                form2.Label2.Caption = time & ",正在进行动作：■下一个001■"
            //                Goto 开始
            //            End If
            goto 下一个//这里可以做一个全局界面判断，最终进入探索大地图后再exit do
            //也可以放在外面循环
        End If
        等待次数 = 等待次数 + 1
        Delay 100
    Loop
    Rem xx1
End Sub
Sub 突破刷新判断
    If form1.ComboBox2.ListIndex = 0 Then //选择3次刷新
        For rrr=3 to 8
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录"&rrr&".bmp","202020",0.8,0,intX,intY)
            If intX >= 0 and intY >= 0 Then 
                //刷新
                Delay 1000
                form2.Label2.Caption = time & ",正在进行动作：■检查记录中■"
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破刷新.bmp","202020",0.8,0,intX,intY)
                If intX >= 0 and intY >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■发现突破刷新了■"
                    dm.MoveTo intX,intY
                    Delay 1000
                    dm.leftclick 
                    Delay 1000
                    //确认
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","202020",0.8,0,intX,intY)
                    If intX >= 0 and intY >= 0 Then 
                        form2.Label2.Caption = time & ",正在进行动作：■确认退出02■"
                        dm.MoveTo intX,intY
                        Delay 1000
                        dm.leftclick 
                        Delay 1000
                        //                        linshi=xj01//重置星
                        Goto 突破刷新完成
                    End If
                End If
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\灰色刷新.bmp","000000",0.9,0,xa1,ya1)
                If xa1 >= 0 and ya1 >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■刷新CD中■"
                    Goto 开始
                End if
            End If
        next
    End If
    //刷新6次
    If form1.ComboBox2.ListIndex = 1 Then //选择3次刷新
        For rrr=7 to 8
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录"&rrr&".bmp","202020",0.8,0,intX,intY)
            If intX >= 0 and intY >= 0 Then 
                //刷新
                Delay 1000
                form2.Label2.Caption = time & ",正在进行动作：■检查记录中■"
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破刷新.bmp","202020",0.8,0,intX,intY)
                If intX >= 0 and intY >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■发现突破刷新了■"
                    dm.MoveTo intX,intY
                    Delay 1000
                    dm.leftclick 
                    Delay 1000
                    //确认
                    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","202020",0.8,0,intX,intY)
                    If intX >= 0 and intY >= 0 Then 
                        form2.Label2.Caption = time & ",正在进行动作：■确认退出02■"
                        dm.MoveTo intX,intY
                        Delay 1000
                        dm.leftclick 
                        Delay 1000
                        //                        linshi=xj01//重置星
                        Goto 突破刷新完成
                    End If
                End If
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\灰色刷新.bmp","000000",0.9,0,xa1,ya1)
                If xa1 >= 0 and ya1 >= 0 Then 
                    form2.Label2.Caption = time & ",正在进行动作：■刷新CD中6■"
                    Goto 开始
                End if
            End If
        next
    End If
    //9次  9次后自动刷新，会导致linshi还是0 ，所以怎么判断重置。是个问题
    If form1.ComboBox2.ListIndex = 2 Then
        For rrr=1 to 8
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录"&rrr&".bmp","202020",0.8,0,intX,intY)
            If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■9次中发现攻破记录"&rrr&"次■"
                已经突破中 = 1
                Exit For
            End If
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录0.bmp","202020",0.8,0,intaX,intaY)
            If intaX >= 0 and intaY >= 0 and 已经突破中 = 1 Then 
            form2.Label2.Caption = time & ",正在进行动作：■重置星■"
                linshi = xj01//重置星级
                delay 1000
                已经突破中 = 0
                Exit for
            End If
        next
    End if
End Sub
Sub 判断界面
    Do
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\式神委派界面.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,intX,intY)
            If intX >= 0 and intY >= 0 Then 
                form2.Label2.Caption = time & ",正在进行动作：■式神委派■"
                Delay 100
                dm.moveto intX, intY
                Delay 100
                dm.leftclick 
                Delay 1000
            End if
        End If
        //突破判断
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破进攻.bmp","303030",0.7,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■突破进攻界面03■"
            Delay 100
            dm.moveto intX-200, intY
            Delay 100
            dm.leftclick 
            Delay 1000
        End if
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\加成界面1.bmp","000000",0.8,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            form2.Label2.Caption = time & ",正在进行动作：■加成界面001■"
            Delay 100
            dm.moveto intX, intY + 120
            Delay 100
            dm.leftclick 
            Delay 1000
        End If
        //C:\Users\DrunkDreamer\Documents\按键\11\庭院.bmp 这个删除了
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\酒壶取消.bmp|C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\退后.bmp|C:\Users\DrunkDreamer\Documents\按键\11\叉1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp|C:\Users\DrunkDreamer\Documents\按键\11\离开队伍.bmp|C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp|C:\Users\DrunkDreamer\Documents\按键\11\取消.bmp|C:\Users\DrunkDreamer\Documents\按键\11\叉.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            Delay 100
            dm.moveto intX, intY
            Delay 100
            dm.leftclick 
            Delay 1000
        End If
        //=====判断是否在副本里面，根据情况进行操作
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\探索副本左下角.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            //如果勾选了探索，就直接开始探索
            If form1.CheckBox1.value = 1 Then 
                Call 探索
            Else 
                //判断
                dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,intX,intY)
                If intX >= 0 and intY >= 0 Then 
                    Delay 100
                    dm.moveto intX, intY
                    Delay 100
                    dm.leftclick 
                    Delay 1000
                End if
            End If
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本左下角变暗图标.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","000000",0.9,0,intX,intY)
            If intX >= 0 and intY >= 0 Then 
                Delay 100
                dm.moveto intX, intY
                Delay 100
                dm.leftclick 
                Delay 1000
            End if
        End If
        //======
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\探索灯笼.bmp",0.4,intX,intY    
        If intX > 0 And intY > 0 Then
            Call 签到
            //Call 宠物
            Call 点击
        End If
        FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\灯笼.bmp",0.5,intX,intY
        If intX > 0 And intY > 0 Then 
            //判断签到
            Call 签到
            Call 点击
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Exit do
        End If
    Loop
End Sub
Sub 循环探索事项
    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp|C:\Users\DrunkDreamer\Documents\按键\11\妖怪发现.bmp","000000",0.9,0,xa1,ya1)
    If xa1 >= 0 and ya1 >= 0 Then 
        Delay 100
        dm.moveto xa1,ya1
        Delay 100
        dm.leftclick 
        Delay 1000
    End If
End Sub
Event form1.Button2.Click
    form2.show
    Delay 100
    Call Plugin.Window.Move(form2.Hwnd, 1140, 458)
End Event
Event Form2.Button1.Click
    form2.Hide
End Event
Randomize
Function RndNum(MinNum,MaxNum)
    RndNum=Int((MaxNum-MinNum+1)*Rnd()+MinNum)
End Function
Sub 点击
    MoveTo intX, intY
    Delay 200
    LeftClick 1
    Delay 500
End Sub
Sub 点击1
    MoveTo a, b
    Delay 100
    LeftClick 1
    Delay 500
End Sub
Sub 药师
    Rem 药师1
    //发现药师就打
    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\药师.bmp","000000",0.9,0,xa1,ya1)
    If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 1 Then 
        Delay 100
        dm.moveto xa1,ya1
        Delay 100
        dm.leftclick 
        Delay 5000
        yizhaodao=0
        //组队
        do
            //组队挑战
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距鼓.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距胜利.bmp|C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp|C:\Users\DrunkDreamer\Documents\按键\11\组队挑战.bmp|C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 1000
            End If
            delay 1000
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Exit Do
            End If
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 1000
                Goto 药师1
            End If
        loop
    End If
End Sub
Sub 年兽
    Rem 年兽1
    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\年兽.bmp","000000",0.9,0,xa1,ya1)
    If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 1 Then 
        Delay 100
        dm.moveto xa1,ya1
        Delay 100
        dm.leftclick 
        Delay 5000
        yizhaodao=0
        //组队
        do
            //组队挑战
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距鼓.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距胜利.bmp|C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp|C:\Users\DrunkDreamer\Documents\按键\11\组队挑战.bmp|C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 1000
            End If
            delay 1000
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Exit Do
            End If
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 1000
                Goto 年兽1
            End If
        loop
    End If	
End Sub
Sub 石距
    //发现石距就打
    Rem 石距1
    dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\疯狂的石距.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距.bmp","000000",0.9,0,xa1,ya1)
    If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 1 Then 
        Delay 100
        dm.moveto xa1,ya1
        Delay 100
        dm.leftclick 
        Delay 5000
        yizhaodao=0
        //组队
        do
            //组队挑战
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距鼓.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距胜利.bmp|C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp|C:\Users\DrunkDreamer\Documents\按键\11\组队挑战.bmp|C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 1000
            End If
            delay 1000
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Exit Do
            End If
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)
            If xa1 >= 0 and ya1 >= 0 Then 
                Delay 100
                dm.moveto xa1,ya1
                Delay 100
                dm.leftclick 
                Delay 1000
                Goto 石距1
            End If
        loop
    End If
End Sub
Event form1.CheckBox13.Click
    //当多选框被点击后触发的事件
    If form1.CheckBox13.value = 1 Then 
        form1.CheckBox12.Enabled = 0
        form1.CheckBox12.value = 0            
    Else 
        form1.CheckBox12.Enabled = 1
    End If
End Event
Event form1.CheckBox12.Click
    //当多选框被点击后触发的事件
    If form1.CheckBox12.value = 1 Then 
        form1.CheckBox13.Enabled = 0
        form1.CheckBox13.value=0
    Else 
        form1.CheckBox13.Enabled = 1
    End If
End Event
Event form1.Button3.Click
    form1.SaveSetting
End Event
Sub 悬赏
    //注册大漠插件
    PutAttachment ".\plugin", "RegDll.dll"
    PutAttachment ".\plugin\dm", "dm.dll"
    Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")
    Set dm = createobject("dm.dmsoft")
    //注册大漠插件结束
    Hwnd1 = Plugin.Window.Find(0, "阴阳师-网易游戏")
    Call Plugin.Window.Show(Hwnd1)
    do
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\关闭聊天.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then 
            Delay 100
            dm.moveto intX, intY
            Delay 100
            dm.leftclick 
            Delay 1000
        End If
        //关闭好友界面
           dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\同心.bmp","000000",0.9,0,xaa1,yaa1)
        If xaa1 >= 0 and yaa1 >= 0 Then 
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\叉.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        End If
          //御魂过多
           dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\御魂过多.bmp","000000",0.9,0,xaa1,yaa1)
        If xaa1 >= 0 and yaa1 >= 0 Then 
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确定御魂.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        End If
        
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\普通召唤.bmp","000000",0.9,0,xaa1,yaa1)
        If xaa1 >= 0 and yaa1 >= 0 Then 
            dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
         End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\真蛇.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\宠物奖励.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 Then 
            Delay 100
            dm.moveto xa1-100,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        //只买两次
        If 买体力 = 2 and form1.体力操作.ListIndex=1 Then 
            Goto 跳过体力购买
        End If
         dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\普攻.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=2 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 100
            
        End If
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\购买体力.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=2 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
            买体力=买体力+1
        End If
        //一直买
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\购买体力.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=1 Then 
            Delay 100
            dm.moveto xa1,ya1
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        Rem 跳过体力购买
        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\手动.bmp","000000",0.9,0,xa1,ya1)
        If xa1 >= 0 and ya1 >= 0  Then 
            Delay 100
            dm.moveto xa1+10,ya1+10
            Delay 100
            dm.leftclick 
            Delay 500
        End If
        Delay 2000
    loop
End Sub
Sub 置顶
m=0
	Do
	Key=WaitKey()    
//脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里   
If Key = 20 and m=0 Then    
    Hwnd2 = Plugin.Window.Find(0, "阴阳师-网易游戏")
    Call Plugin.Window.Top(Hwnd2, 0)
    Hwnd3 = Plugin.Window.Find(0, "运行信息")
    Call Plugin.Window.Top(Hwnd3, 0)
    m=1
End If  
If key = 20 and m = 1 Then 
	Call Plugin.Window.Top(Hwnd2, 1)
Call Plugin.Window.Top(Hwnd3, 1)

    m=0
End If
loop
End Sub

具体源码自行下载
https://www.lanzous.com/i6tuvri