其他分享
首页 > 其他分享> > 脚本精灵——某app端脚本(正文部分)

脚本精灵——某app端脚本(正文部分)

作者:互联网

好不容易借来的,参考一下。

 

 

 

脚本部分:

 

 

 

 

Dim 年 = 00,月 = 00,日 = 00,时 = 00,分 = 00,秒 = 00,周 = 00
Dim 网络时间,网络分,网络秒,当前时间,时差分,时差秒,MyTime
MyTime = Time()
Dim 随机数,最大值 = ReadUIConfig("最大值",2),最小值 = ReadUIConfig("最小值",-2)
随机数 = CSng(随机数)
最大值 = CSng(最大值)
最小值 = CSng(最小值)
Dim 仙盟任务是否完成 = false,日常任务是否完成 = false
Dim 复活延时 = ReadUIConfig("复活延时",50),回城复活延时 = ReadUIConfig("回城复活延时",50),截图延时 = ReadUIConfig("截图延时",0)
复活延时 = CSng(复活延时)
回城复活延时 = CSng(回城复活延时)
截图延时 = CSng(截图延时)
Dim 子线程 = ""
Dim intX,intY
Dim 找点,历练,找色列表
Dim 脚本运行速度 = ReadUIConfig("输入脚本速度",50),找色速度 = ReadUIConfig("输入找色速度",10),相似度 = ReadUIConfig("输入找色相似度",0.9)
脚本运行速度 = CDbl(脚本运行速度)
找色速度 = CDbl(找色速度)
相似度 = CDbl(相似度)
Dim 跟战间隔时间 = ReadUIConfig("跟战间隔时间",1000)
Dim 开始跟战计时=0
跟战间隔时间 = CDbl(跟战间隔时间)
TracePrint 相似度
Dim 截图文件夹名 = ReadUIConfig("截图文件夹名"),截图名 = ReadUIConfig("截图名")
Dim 文件路径
//移动浮窗到右下角
SetControlBarPos 1.0

SetRowsNumber(33)
//注意:每次制作完字库后,需要自行把制作的字库文件添加到脚本“附件”中
TracePrint SetDictEx(0, "Attachment:右上角坐标.txt")
TracePrint SetDictEx(1, "Attachment:提示信息框.txt")
TracePrint SetDictEx(2, "Attachment:弹窗.txt")
//TracePrint UseDict(0)'右上角坐标
//TracePrint UseDict(1)'提示信息框

TracePrint "周=" & 时间("周")
//UI.SetText(设备ID,GetDeviceID())

//    设备ID = CStr(设备ID)
//    Dim return = UI.SetEditText(设备ID,设备ID,0,0)
//
//ShowMessage "设备ID:"&设备ID
//Delay 1000
//dim 设备IDjm=设备ID+10*9/12
//============================================================
 
//'创建一个名称为"layout1"的布局控件
//TracePrint UI.Newlayout ("layout1")
//'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
//TracePrint UI.AddEditText("layout1", "输入框1", 设备ID)
//'显示名称为:"layout1" 的布局控件
//UI.SetText("输入框1",GetDeviceID())
//TracePrint UI.Show ("layout1")
//

//============================================================
Delay 脚本运行速度
If ReadUIConfig("截图") = true Then
    Delay 截图延时
    Call 截图(截图文件夹名,截图名)
    EndScript
End If
If ReadUIConfig("使用网络时间") = true Then
    Delay 1000
    For 10
        网络时间 = GetNetworkTime()
        If 网络时间 = "unknown" Then
            
        Else
            Exit For
        End If
        Delay 500
    Next
    If 网络时间 = "unknown" Then
        ShowMessage "请检查网络连接!"
        Delay 3000
        EndScript
    End If
    Traceprint "网络时间=" & 网络时间
    dim 当前时间分
    当前时间分 = DateTime.Minute()
    当前时间分 = CSng(当前时间分)
    Traceprint "当前时间=分" & 当前时间分
    dim 当前时间秒
    当前时间秒 = DateTime.Second()
    当前时间秒 = CSng(当前时间秒)
    Traceprint "当前时间=秒" & 当前时间秒
    网络分 = Mid(网络时间, 15, 2)
    网络分 = CSng(网络分)
    Traceprint "网络分=" & 网络分
    时差分=网络分 - 当前时间分
    网络秒 = Mid(网络时间,18,2)
    网络秒 = CSng(网络秒)
    Traceprint "网络秒=" & 网络秒
    时差秒=网络秒 - 当前时间秒
    Traceprint "时差分="&时差分
    Traceprint "时差秒="&时差秒
    时差秒=网络秒 - 当前时间秒+时差分*60
    Traceprint "时差秒="&时差秒
    ShowMessage "时差=" & 时差秒 &"秒"
Else
    时差秒=0
End If

Dim 子线程自动跟战
Dim 子线程当前坐标
Dim 子线程自动使用土灵符
Dim 子线程抢红包
Dim 子线程自动攻击玩家
Dim 子线程仙侣传送
Dim 子线程自动跟战1 = False
Dim 子线程当前坐标1 = False
Dim 子线程自动使用土灵符1 = False
Dim 子线程抢红包1 = False
Dim 子线程自动攻击玩家1 = False
Dim 子线程仙侣传送1 = False

Rem 脚本开始
do
    If ReadUIConfig("数秒") = true Then
        Call 数秒()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("弹窗") = true Then
        Call 弹窗()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("当前坐标") = true Then
        If 子线程当前坐标1 = False Then
            子线程当前坐标 = Thread.Start(当前坐标)
            子线程当前坐标1 = true
        End If
    Else
        If 子线程当前坐标1 = true Then
            Thread.Stop(子线程当前坐标)
            子线程当前坐标1 = False
        End If
    End If
    Delay 脚本运行速度
    If ReadUIConfig("自动跟战") = true Then
        Call 自动跟战()
        //        //        Call 自动跟战()
        //        If 子线程自动跟战1 = False Then
        //            子线程自动跟战 = Thread.Start(自动跟战)
        //            子线程自动跟战1 = true
        //        End If
        //    Else
        //        If 子线程自动跟战1 = true Then
        //            Thread.Stop(子线程自动跟战)
        //            子线程自动跟战1 = False
        //        End If
    End If
    Delay 脚本运行速度
    If ReadUIConfig("自动使用土灵符") = true Then
        Call 自动使用土灵符()
        //        If 子线程自动使用土灵符1 = False Then
        //            子线程自动使用土灵符 = Thread.Start(自动使用土灵符)
        //            子线程自动使用土灵符1 = true
        //        End If
        //    Else
        //        If 子线程自动使用土灵符1 = true Then
        //            Thread.Stop(子线程自动使用土灵符)
        //            子线程自动使用土灵符1 = False
        //        End If
    End If
    Delay 脚本运行速度
    If ReadUIConfig("一条龙") = true Then
        Call 一条龙()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("抢红包") = true Then
        Call 抢红包()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("仙侣传送") = true Then
        Call 仙侣传送()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("接受组队邀请") = true Then
        Call 接受组队邀请()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("自动复活") = true Then
        Call 自动复活()
    ElseIf ReadUIConfig("回城复活") = true Then
        //返回城镇
        FindMultiColor 169,787,374,829,"291429","-4|-4|52284A,9|-36|080400,-3|-29|8C4173,10|-54|190810,-7|-35|F7F7F7,-3|58|4A4D4A,12|37|525552,6|27|943D7B,-8|39|3A1431",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            TracePrint "找到返回城镇2"
            文件路径="/sdcard/死亡截图"
            If Dir.Exist(文件路径) = 2 Then
                网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
                SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
            Else
                Call Dir.Create(文件路径) //先创建一个文件夹
                网络时间 = Date()
                SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
            End If
            随机(最大值,最小值)
            Tap intX + 随机数, intY + 随机数
            Delay 500
        End If
    End If
    Delay 脚本运行速度
    If 时间("时") = 12 And 时间("分") >= 30 and 时间("分") <= 44 Then
        If ReadUIConfig("神魔之井") = true Then
            //ShowMessage "开始神魔"
            Call 神魔之井()
        End If
    ElseIf 时间("时") = 19 And 时间("分") >= 20 and 时间("分") <= 34 Then
        If ReadUIConfig("神魔之井") = true Then
            //ShowMessage "开始神魔"
            Call 神魔之井()
        End If
    End If
    Delay 脚本运行速度
    If ReadUIConfig("日常任务") = true Then
        Call 日常任务()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("仙盟任务") = true Then
        Call 仙盟任务()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("斩妖除魔") = true Then
        Call 斩妖除魔()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("灵儿红包") = true Then
        If 时间("时") = 12 and 时间("分") = 00 and 时间("秒") >= 56 Then
            Call 灵儿红包()
        ElseIf 时间("时") = 12 and 时间("分") = 2 and 时间("秒") >= 56 Then
            Call 灵儿红包()
        ElseIf 时间("时") = 12 and 时间("分") = 4 and 时间("秒") >= 56 Then
            Call 灵儿红包()
        ElseIf 时间("时") = 19 and 时间("分") = 00 and 时间("秒") >= 56 Then
            Call 灵儿红包()
        ElseIf 时间("时") = 19 and 时间("分") = 2 and 时间("秒") >= 56 Then
            Call 灵儿红包()
        ElseIf 时间("时") = 19 and 时间("分") = 4 and 时间("秒") >= 56 Then
            Call 灵儿红包()
        Else
            
        End If
    End If
    Delay 脚本运行速度
    If 时间("时") = 19 And 时间("分") >= 00 and 时间("分") <= 20 Then
        If ReadUIConfig("仙盟无双") = true Then
            Call 仙盟无双()
        End If
    End If
    Delay 脚本运行速度
    If 时间("时") = 19 And 时间("分") >= 40 and 时间("分") <= 55 Then
        If ReadUIConfig("须弥幻境") = true Then
            Call 须弥幻境()
        End If
    End If
    Delay 脚本运行速度
    If 时间("周") = 7 And 时间("时") >= 21 And 时间("时") <= 22 Then
        If ReadUIConfig("净天之乱") = true Then
            Call 净天之乱()
        End If
    End If
    Delay 脚本运行速度
    If 时间("周") = 5 And 时间("时") >= 21 And 时间("分") <= 15 Then
        If ReadUIConfig("百鬼夜行") = true Then
            Call 百鬼夜行()
        End If
    End If
    Delay 脚本运行速度
    If ReadUIConfig("盘龙柱") = true Then
        If 时间("周") = 1 And 时间("时") >= 20 And 时间("分") <= 15 Then  
            Call 盘龙柱()
        ElseIf 时间("周") = 3 And 时间("时") >= 20 And 时间("分") <= 15 Then  
            Call 盘龙柱()
        ElseIf 时间("周") = 5 And 时间("时") >= 20 And 时间("分") <= 15 Then  
            Call 盘龙柱()
        ElseIf 时间("周") = 7 And 时间("时") >= 20 And 时间("分") <= 15 Then  
            Call 盘龙柱()
        End If
    End If
    Delay 脚本运行速度
    If ReadUIConfig("自动攻击玩家") = true Then
        Call 自动攻击玩家()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("测试") = true Then
        Call 测试找点()
    End If
    Delay 脚本运行速度
    If ReadUIConfig("日志") = true Then
        Log.Open
    Else
        Log.Close
    End If
    Delay 脚本运行速度
    TracePrint 子线程
    If ReadUIConfig("一键清理内存") = true Then
        If 子线程 = "" Then
            子线程 = Thread.Start(一键清理内存)
            TracePrint 子线程
        End If
    Else
        If 子线程 <> "" Then
            Thread.Stop(子线程)
            TracePrint 子线程
        End If
    End If
    Delay 100
    //    启动B()
loop
Delay 5000
Goto 脚本开始
Delay 5000
Goto 脚本开始
Delay 5000
Goto 脚本开始

Function 随机(最大值,最小值)
    Randomize  
    随机数 = Int(((最大值 - 最小值 + 1) * Rnd()) + 最小值)
    随机 = 随机数
    Traceprint 随机数
    Delay 脚本运行速度
End Function

Function 补时差(最大值,最小值)

    Traceprint 随机数
    Delay 脚本运行速度
End Function


Function 时间(参数)
    MyTime = Time()
    Traceprint "MyTime"&MyTime
    MyTime = MyTime + 时差秒
    Traceprint "MyTime"&MyTime
    Select Case 参数
    Case "年"
        //年 = Mid(网络时间,1,4)
        年 = DateTime.Year(MyTime)
        年 = CSng(年)
        时间 = 年
        TracePrint 年
    Case "月"
        月 = DateTime.Month(MyTime)
        月 = CSng(月)
        时间 = 月
        TracePrint 月
    Case "日"
        日 = DateTime.Day(MyTime)
        日 = CSng(日)
        时间 = 日
        TracePrint 日
    Case "时"
        时 = DateTime.Hour(MyTime)
        时 = CSng(时)
        时间 = 时
        TracePrint 时
    Case "分"
        分 = DateTime.Minute(MyTime)
        分 = CSng(分)
        时间 = 分
        TracePrint 分
    Case "秒"
        秒 = DateTime.Second(MyTime)
        秒 = CSng(秒)
        时间 = 秒
        TracePrint 秒
    Case "周"
        周 = DateTime.WeekDay(MyTime)
        周 = CSng(周)
        时间 = 周
        TracePrint 周
    End Select
End Function

Sub 一键清理内存()
    do
        TracePrint "开始一键清理内存"
        Sys.ClearMemory() //释放内存
        Delay 300000
    loop
End Sub

Sub 当前坐标()
    do
        TracePrint UseDict(0)'右上角坐标
        TracePrint 找字(662,1172,688,1284,"DEDF9C-555555",0.9)
        ShowMessage 找字(662, 1172, 688, 1284, "DEDF9C-555555", 0.9)
        Delay 500
    loop
End Sub

Sub 弹窗()
    KeepCapture

    Delay 脚本运行速度
    //弹窗是否前往队友
    FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 361 + 随机数,556 + 随机数
        Delay 500
        随机(最大值,最小值)
        Tap 308 + 随机数,835 + 随机数
        Delay 500
    End If
    //弹窗危险地图
    FindMultiColor 420,366,497,652,"08147B","-3|43|0010A4,1|66|00147B,-15|89|081C42,4|89|000C9C,-12|10|08203A,-2|62|082031,-4|75|001C42,-8|60|0008DE",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 364 + 随机数,559 + 随机数
        Delay 500
        随机(最大值,最小值)
        Tap 307 + 随机数,834 + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    If 时间("时") = 12 And 时间("分") >= 00 and 时间("分") <= 3 Then
        //弹窗藏宝阁
        FindMultiColor  418,411,459,557,"08457B","17|19|084D9C,4|39|0869D6,19|50|0855A4,1|65|0065CE,19|72|738E9C,6|90|082031,19|105|425D6B,4|108|5A7584,-1|100|52697B",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap 307 + 随机数,448 + 随机数
            Delay 500
        End If
    End If
    Delay 脚本运行速度
    //弹窗防沉迷
    FindMultiColor 292,417,328,490,"944D84","2|10|EEEFEE,-8|24|6B3163,7|2|080408,7|7|3A1831,-8|-7|080408,1|-23|DE65B5,0|26|949294,-3|1|E671CE,5|-15|100C10",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 609 + 随机数,1075 + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    //弹窗主播
    FindMultiColor 300,831,318,845,"63355A","9|-1|733163,-4|27|292829,12|19|636563,9|-26|FFFBFF,2|-28|ADAEAD,-5|4|CECECE,69|-293|4A3D29,42|-266|524942,42|-293|5A4D52",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 360 + 随机数,557 + 随机数
        Delay 500
        随机(最大值,最小值)
        Tap 308 + 随机数,451 + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    //弹窗公告详情
    FindMultiColor 583,432,646,620,"F7DFDE","-4|6|EEEFEE,13|23|E69AB5,3|21|313131,7|50|424142,-5|79|ADAAAD,0|67|FFFFFF,6|101|4A4D4A,4|119|3A393A,-9|109|EEE3D6",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 609 + 随机数,1075 + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    //弹窗离线经验
    FindMultiColor 128,561,188,715,"421C3A","0|-57|101410,3|55|737173,-12|57|9C9E9C,-13|-56|313131,-15|-12|9C4184,-4|0|7B3D73,-10|14|000000,0|31|101410,-9|30|732D63",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    //    //土灵符
    //    FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
    //    If intX > -1 And intY > -1 Then
    //        随机(最大值,最小值)
    //        Tap intX + 随机数, intY + 随机数
    //        Delay 500
    //    End If
    //    //土灵符
    //    FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
    //    If intX > -1 And intY > -1 Then
    //        随机(最大值,最小值)
    //        Tap intX + 随机数, intY + 随机数
    //        Delay 500
    //    End If
    //    //土灵符
    //    FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
    //    If intX > -1 And intY > -1 Then
    //        随机(最大值,最小值)
    //        Tap intX + 随机数, intY + 随机数
    //        Delay 500
    //    End If
    ReleaseCapture
End Sub


Sub 自动跟战()
    //    Do
    If Time() >= 开始跟战计时 Then
            
        //队伍栏未开
        FindMultiColor 424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap 380 + 随机数,22 + 随机数
            Delay 500
        End If
        KeepCapture
        //队伍栏开
        FindMultiColor 341,2,415,43,"634542","26|6|E6E7E6,37|17|FFEFEE,-6|17|9C5D5A,1|-15|A46563,-7|1|6B6563,-11|4|4A393A,-13|12|73656B,13|3|6B494A,27|1|42353A",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
        
            //队伍跟战
            FindMultiColor 374,178,404,246,"5A393A","7|1|B5696B,10|-16|F7FBF7,5|-18|94928C,-1|-1|5A494A,0|23|4A3131,5|21|5A4D4A,4|15|7B7573,8|-7|A49A9C,12|-12|423131",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                随机(最大值,最小值)
                Tap intX + 随机数, intY + 随机数
                Delay 1000
                //弹窗前往队友
                FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
                If intX > -1 And intY > -1 Then
                    随机(最大值,最小值)
                    Tap 361 + 随机数,556 + 随机数
                    Delay 500
                    随机(最大值,最小值)
                    Tap 308 + 随机数,835 + 随机数
                    Delay 500
                End If
                开始跟战计时 = 0
                开始跟战计时 = 跟战间隔时间 + Time()
            Else
                //队伍跟战1
                FindMultiColor 293,177,322,241,"5A3D3A","5|1|7B4D4A,-1|11|FFFBFF,-7|1|635D5A,-6|-19|7B6D6B,6|-15|A49E9C,4|7|ADA6A4,-7|25|4A4142,-2|22|422D31,5|13|3A2829",0,相似度,intX,intY
                If intX > -1 And intY > -1 Then
                    随机(最大值,最小值)
                    Tap intX + 随机数, intY + 随机数
                    Delay 1000
                    //弹窗前往队友
                    FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        随机(最大值,最小值)
                        Tap 361 + 随机数,556 + 随机数
                        Delay 500
                        随机(最大值,最小值)
                        Tap 308 + 随机数,835 + 随机数
                        Delay 500
                    End If
                    开始跟战计时 = 0
                    开始跟战计时 = 跟战间隔时间 + Time()
                Else
                    //队伍跟战2
                    FindMultiColor 210,178,244,242,"422D29","-1|22|3A2829,-2|-15|63595A,6|-12|A4A2A4,-5|26|524142,6|21|E6E7E6,-7|0|9C9694,-8|-12|B56D6B,5|-18|4A3531,6|26|A4615A",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        随机(最大值,最小值)
                        Tap intX + 随机数, intY + 随机数
                        Delay 1000
                        //弹窗前往队友
                        FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            随机(最大值,最小值)
                            Tap 361 + 随机数,556 + 随机数
                            Delay 500
                            随机(最大值,最小值)
                            Tap 308 + 随机数,835 + 随机数
                            Delay 500
                        End If
                        开始跟战计时 = 0
                        开始跟战计时 = 跟战间隔时间 + Time()
                    Else
                        //队伍跟战3
                        FindMultiColor 207,175,241,243,"5A3D3A","-5|-15|C5C6C5,-9|-19|8C7D7B,-8|26|4A3131,-7|21|B5B2AD,3|18|635552,4|-9|BDB6B5,4|6|5A4D4A,-4|19|B5AAAD,-3|-3|84797B",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 1000
                            //弹窗前往队友
                            FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
                            If intX > -1 And intY > -1 Then
                                随机(最大值,最小值)
                                Tap 361 + 随机数,556 + 随机数
                                Delay 500
                                随机(最大值,最小值)
                                Tap 308 + 随机数,835 + 随机数
                                Delay 500
                            End If
                            开始跟战计时 = 0
                            开始跟战计时 = 跟战间隔时间 + Time()
                        Else
                            //弹窗前往队友
                            FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
                            If intX > -1 And intY > -1 Then
                                随机(最大值,最小值)
                                Tap 361 + 随机数,556 + 随机数
                                Delay 500
                                随机(最大值,最小值)
                                Tap 308 + 随机数,835 + 随机数
                                Delay 500
                            End If
                            开始跟战计时 = 0
                            开始跟战计时 = 跟战间隔时间 + Time()
                        End If
                    End If
                End If
            End If
        End If
        ReleaseCapture
    End If
    //        Delay 500
    //    Loop
End Sub


Sub 自动使用土灵符()
    //土灵符
    FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 1000
        Swipe 130, 88, 130, 130
    End If
End Sub
Sub 净天之乱()
    //战绩
    FindMultiColor 591,1039,599,1058,"635152","1|-18|845152,3|-3|9C9694,5|11|635552,-2|24|C5BABD,3|25|73494A,4|30|B56D6B,2|-25|AD696B,-1|-14|F7F7F7,-1|24|B5AEAD",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 477 + 随机数,20 + 随机数
        Delay 500
        随机(最大值,最小值)
        Tap 527 + 随机数,121 + 随机数
        Delay 500
    Else
        //净天弹窗
        FindMultiColor 424,442,440,456,"084584","19|2|0859B5,0|23|0851A4,17|49|00519C,19|58|083D6B,1|68|103D6B,19|82|084D94,7|90|0861C5,1|80|0865CE,9|72|0859B5",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap 309 + 随机数,839 + 随机数
            Delay 500
        End If
    End If
    //自动攻击未开
    FindMultiColor 319,1214,329,1231,"E6A6AD","-6|13|A4818C,-5|27|AD8184,-6|14|AD858C,4|6|FFD2D6,-3|16|A4797B,1|31|F7CACE,38|31|EEEFEE,14|15|CE7D84,27|14|CE757B",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 1000
    End If
End Sub

Sub 百鬼夜行()
    //百鬼夜行弹窗
    FindMultiColor 290,775,329,900,"D66DC5","-5|-55|D6DBD6,-6|-29|100C10,10|-24|ADAAAD,10|31|ADB2AD,141|-377|0865CE,143|-345|083D6B,123|-311|08519C,131|-308|083D73,136|-286|084173",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 309 + 随机数,839 + 随机数
        Delay 500
    End If
    //百鬼夜行·韩菱纱
    FindMultiColor 264,143,298,179,"9C7D73","-7|19|5A4542,6|-35|4A3D3A,1|-72|5A4D3A,1|-62|6B5542,7|-11|4A393A,0|27|3A2829,7|63|4A393A,217|-70|191C84,216|-40|191884",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
End Sub



Sub 一条龙()
    //截图至内存中
    KeepCapture
    //宝箱
    FindMultiColor 247,401,359,882,"312442","0|-14|CED2D6,-1|-4|636173,8|4|C5C6CE,-1|6|6B656B,28|8|314929,-12|0|212D19,-13|31|192410,-20|10|314D29,-8|25|6B6D84",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 301 + 随机数,459 + 随机数
        Delay 500
        //天罡剑阵
        FindMultiColor 678,1114,716,1279,"3A353A","-4|-8|636563,-7|-1|101010,-6|22|212021,1|49|635D63,-6|51|5A5D5A,-12|58|636163,-2|74|080C08,-13|80|424142,-9|86|4A4D4A",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap 302 + 随机数,824 + 随机数
            Delay 500
        End If
    End If
    //同意进入
    FindMultiColor 109,957,146,1080,"844573","-2|-27|292829,2|15|737973,-5|29|292429,-1|51|632452,-5|35|100810,8|44|D6D2D6,-8|-15|522042,3|-31|949294,6|14|3A393A",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    //确认离开
    FindMultiColor 293,801,328,870,"5A3152","-6|7|5A5D5A,4|12|522442,3|-7|635D63,10|-1|C555A4,-1|-22|5A555A,-7|-6|000000,10|-18|EEEFEE,11|18|848184,-4|28|212421",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    //前往活动
    FindMultiColor 119,1068,135,1084,"6B3963","-6|-31|5A244A,-4|29|190C19,-3|61|290C21,-3|-53|3A1429,4|-54|F7F3F7,-8|0|7B7D7B,1|29|CECECE,-12|56|101410,5|57|848584",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
    //试炼窟
    FindMultiColor 683,1148,719,1276,"4A494A","5|18|3A393A,-8|12|191C19,-1|35|C5C6C5,3|62|E6E7E6,-9|68|9C9A9C,-7|35|424142,-9|26|EEEBEE,-1|34|6B696B,-8|61|7B797B",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        
    Else
        //离开
        FindMultiColor 496,746,538,829,"088AC5","0|15|0881BD,-1|25|00B2E6,-6|38|00CEFF,-6|-26|00CEFF,2|-6|08BAEE,1|-16|0885BD,1|17|10619C,0|11|0865A4,-1|24|088AC5",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap intX + 随机数, intY + 随机数
            Delay 500
        End If
    End If
    //删除内存中的截图
    ReleaseCapture
End Sub


Sub 自动复活()
    //    If Time() >= 开始复活延时计时 Then
    If ReadUIConfig("原地复活") = true Then
        FindMultiColor 344,458,358,470,"E671C5","-1|-30|DE61B5,-2|-54|7B7D7B,2|26|D655AD,2|59|4A494A,-1|26|DE5DB5,-8|-2|8C8E8C,9|58|63244A,-10|-56|313531,-9|28|B5B6B5",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            TracePrint "找到原地复活"
            TracePrint "开始原地复活延时"
            Delay 复活延时
            If ReadUIConfig("仙盟求助") = true Then
                FindMultiColor 168,642,185,651,"DE69C5","4|25|4A454A,4|20|AD418C,-15|24|522042,-14|-15|BDBEBD,-12|-18|6B2D5A,-11|-9|100C10,6|-12|080C08,-2|-24|5A595A,-2|29|D6D2D6",0,相似度,intX,intY
                If intX > -1 And intY > -1 Then
                    随机(最大值,最小值)
                    Tap intX + 随机数, intY + 随机数
                    Delay 500
                End If
            End If
            FindMultiColor 344,458,358,470,"E671C5","-1|-30|DE61B5,-2|-54|7B7D7B,2|26|D655AD,2|59|4A494A,-1|26|DE5DB5,-8|-2|8C8E8C,9|58|63244A,-10|-56|313531,-9|28|B5B6B5",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                随机(最大值,最小值)
                Tap intX + 随机数, intY + 随机数
                Delay 500
            End If
        End If
    End If
    
    //    End If
    If ReadUIConfig("回城复活") = true Then
        //返回城镇
        FindMultiColor 141,725,384,884,"BD61A4","-3|5|BDBEBD,2|28|100408,9|25|6B696B,-3|-25|000000,-1|59|9C397B,3|52|212021,0|-12|101010,0|-23|FFFBFF,-8|-30|191C19",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            文件路径="/sdcard/死亡截图"
            If Dir.Exist(文件路径) = 2 Then
                网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
                SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
            Else
                Call Dir.Create(文件路径) //先创建一个文件夹
                网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
                SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
            End If
            Delay 脚本运行速度
            //返回城镇
            FindMultiColor 141,725,384,884,"BD61A4","-3|5|BDBEBD,2|28|100408,9|25|6B696B,-3|-25|000000,-1|59|9C397B,3|52|212021,0|-12|101010,0|-23|FFFBFF,-8|-30|191C19",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                TracePrint "开始回城复活延时"
                Delay 回城复活延时
                For 10
                    Delay 脚本运行速度
                    //死亡聊天
                    FindMultiColor 4,61,66,120,"5A3D3A","-1|-11|523529,-3|10|6B4942,2|9|DEE3DE,-18|-7|8C7173,-15|0|7B4D4A,-2|17|634131,9|-7|4A3D3A,-3|-18|5A3529,-15|-8|9C7D7B",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        TracePrint "找到死亡聊天"
                        随机(最大值,最小值)
                        Tap intX + 随机数, intY + 随机数
                        Delay 500
                    End If
                    Delay 脚本运行速度
                    //聊天队伍
                    FindMultiColor 371,10,479,97,"5A4542","5|-4|EEEBEE,5|-14|191819,-8|-18|C5CAC5,-8|6|3A353A,9|-2|292429,-1|15|DEDBDE,-2|28|CECACE,-8|35|080C08,8|33|5A5D5A",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        TracePrint "找到聊天队伍"
                        随机(最大值,最小值)
                        Tap intX + 随机数, intY + 随机数
                        Delay 500
                    End If
                    Delay 脚本运行速度
                    //聊天定位
                    FindMultiColor 184,28,225,94,"94595A","-6|1|080408,2|21|C5C2C5,-1|17|525952,-6|24|313131,-1|-19|191010,-1|13|DEDBDE,3|11|080C08,-57|-18|DEDBDE,-62|-13|292829",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        TracePrint "找到聊天定位"
                        随机(最大值,最小值)
                        Tap intX + 随机数, intY + 随机数
                        Delay 500
                        //聊天发送
                        FindMultiColor 33,477,71,540,"9C5D5A","1|-9|E6E7E6,9|3|3A2021,-3|31|4A514A,6|16|737973,12|25|211C21,6|28|424142,1|-18|5A3531,10|-84|BDA6B5,9|-75|B58AAD",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            TracePrint "找到聊天发送"
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                            //关闭聊天界面
                            FindMultiColor 641,572,702,628,"F7DBD6","12|15|F7EFDE,-12|15|F7EBD6,0|-14|424142,-1|14|CE9684,1|27|9C8573,1|30|080808,8|-317|B5696B,8|-342|DE9684,0|-329|E6BAAD",0,相似度,intX,intY
                            If intX > -1 And intY > -1 Then
                                TracePrint "找到关闭聊天界面"
                                随机(最大值,最小值)
                                Tap intX + 随机数, intY + 随机数
                                Delay 500
                                Exit For
                            End If
                        End If
                    End If
                    Delay 脚本运行速度
                    //聊天表情
                    FindMultiColor 22,400,78,450,"AD85A4","-3|0|C5BEC5,2|0|BDA6B5,-8|11|EEE3EE,-9|-1|DECEDE,-12|5|A481A4,-22|5|845142,-5|-10|D681A4,-3|75|101410,-9|111|191819",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        TracePrint "找到聊天表情"
                        随机(最大值,最小值)
                        Tap intX + 随机数, intY + 随机数
                        Delay 500
                    End If
                Next
                //返回城镇
                FindMultiColor 141,725,384,884,"BD61A4","-3|5|BDBEBD,2|28|100408,9|25|6B696B,-3|-25|000000,-1|59|9C397B,3|52|212021,0|-12|101010,0|-23|FFFBFF,-8|-30|191C19",0,相似度,intX,intY
                If intX > -1 And intY > -1 Then
                    TracePrint "找到返回城镇2"
                    随机(最大值,最小值)
                    Tap intX + 随机数, intY + 随机数
                    Delay 500
                    For 10
                        //打开聊天界面
                        FindMultiColor 8,371,70,427,"BDB6B5","-3|4|948584,-19|-4|AD9694,-1|13|634D4A,-2|-7|634D42,-2|19|7B655A,9|2|4A3931,-3|-17|634D42,-15|-6|846563,-16|2|845952",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            TracePrint "找到打开聊天界面2"
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                        End If
                        Delay 脚本运行速度
                        //聊天队伍
                        FindMultiColor 371,10,479,97,"5A4542","5|-4|EEEBEE,5|-14|191819,-8|-18|C5CAC5,-8|6|3A353A,9|-2|292429,-1|15|DEDBDE,-2|28|CECACE,-8|35|080C08,8|33|5A5D5A",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            TracePrint "找到聊天队伍2"
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                        End If
                        //Tap 190, 440
                        //Delay 500
                        //Tap 307, 440
                        //Delay 500
                        //坐标-线(
                        FindMultiColor 154,290,582,419,"84E3F7","-8|-14|73DBEE,8|3|219EBD,10|-10|3AAEC5,1|5|42B6CE,7|12|63CADE,-10|11|219EBD,-1|11|0885AD,-3|-14|73D6E6,-9|-6|4ABACE",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            TracePrint "找到坐标-线"
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                        End If
                        //关闭聊天界面
                        FindMultiColor 641,572,702,628,"F7DBD6","12|15|F7EFDE,-12|15|F7EBD6,0|-14|424142,-1|14|CE9684,1|27|9C8573,1|30|080808,8|-317|B5696B,8|-342|DE9684,0|-329|E6BAAD",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            TracePrint "找到关闭聊天界面2"
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                            //土灵符
                            FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
                            If intX > -1 And intY > -1 Then
                                TracePrint "找到土灵符"
                                随机(最大值,最小值)
                                Tap intX + 随机数, intY + 随机数
                                Delay 500
                                Exit For
                            End If
                        End If
                        Delay 500
                    Next
                End If
            End If
        End If
    End If
End Sub

Sub 神魔之井()
    找色列表=array("活动限时神魔前往","仙盟活动神魔前往","仙盟活动神魔前往1","进行中神魔之井","神魔之井立即前往","神魔之井前往","神魔之井弹窗","无毒赤焰")

    Delay 脚本运行速度
    //截图至内存中
    KeepCapture
    For Each a In 找色列表
        TracePrint "a=" & a
        call 多点找色数据库(a)
        call 神魔(多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),a))
        Delay 找色速度
    Next
    //删除内存中的截图
    ReleaseCapture
    Delay 500

End Sub
Sub 神魔(参数)
    Select Case 参数
    Case "神魔之井弹窗"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("开始游戏","公告确定","历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "神魔之井立即前往"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        Delay 500
    Case "神魔之井前往"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        Delay 500
    Case "摄魂夺魄"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "无毒赤焰"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "进行中神魔之井"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "活动限时神魔前往"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    End Select
End Sub

Sub 盘龙柱()
    //盘龙柱开启
    FindMultiColor 414,454,459,593,"086DDE","-11|0|084D94,-12|22|08519C,5|31|102842,2|47|084D9C,-14|51|083152,-11|67|083D6B,3|67|083963,6|90|192D42,-3|89|B5D2DE",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 309 + 随机数,837 + 随机数
        Delay 500
    End If
    Delay 找色速度
    //前往
    FindMultiColor 104,1075,182,1129,"5A7D84","26|9|3A5573,13|1|52516B,13|14|080C29,24|-8|000008,29|12|31456B,12|18|E6E7EE,-1|8|948EC5,7|5|080C08,31|9|4265B5",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 找色速度
    //副本未
    FindMultiColor 442,5,517,38,"7B5D5A","1|-2|A47D7B,29|8|B58E8C,27|-5|9C7173,19|-6|E6AEAD,19|-11|D6A2A4,17|4|423531,27|-6|946D6B,-7|-5|CE9A9C,-8|-1|9C797B",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 找色速度
    //匹配
    FindMultiColor 324,41,436,173,"294552","2|-26|1075E6,4|-17|002473,11|32|94AEB5,-3|32|BDD6DE,-9|81|CEEBF7,-1|18|CEE7EE,3|-33|216DDE,-4|-26|217DD6,11|-25|294DC5",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 找色速度
    //胜利
    FindMultiColor 537,556,586,684,"8CEFFF","-3|18|193D6B,15|27|218AF7,21|-10|63FBFF,1|-6|08AAFF,-24|31|100C5A,-9|-1|19556B,-2|-12|008AF7,20|53|1085EE,10|31|194D9C",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 148 + 随机数,640 + 随机数
        Delay 500
    End If
    Delay 找色速度
    //失败
    FindMultiColor 549,556,619,637,"6B5D5A","28|14|BDBEBD,17|18|7B7173,36|38|8C8184,7|16|313131,8|47|4A4D4A,13|33|948E8C,18|15|7B7973,6|10|847573,18|33|84797B",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 148 + 随机数,640 + 随机数
        Delay 500
    End If
End Sub


Sub 仙盟无双()
    FindMultiColor 417,431,459,616,"083963","13|-3|084984,12|2|08243A,11|22|0869D6,9|37|083D6B,5|50|082842,19|61|08283A,12|83|0861C5,11|89|9CB6BD,6|132|001C31",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 309 + 随机数,837 + 随机数
        Delay 500
    End If
End Sub

Sub 须弥幻境()
    FindMultiColor 408,438,460,598,"0855AD","14|0|084D94,18|30|08355A,1|41|0059AD,19|51|005DBD,3|48|086DDE,2|64|006DE6,19|72|0861C5,1|88|086DE6,10|93|8CA2AD",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 309 + 随机数,837 + 随机数
        Delay 500
    End If
    Delay 找色速度
    FindMultiColor 131,999,180,1116,"525552","4|-21|7B3563,3|6|E679CE,5|17|CECECE,3|24|000000,-6|38|100810,-3|28|101410,-5|8|7B356B,10|-9|000000,0|33|52244A",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
End Sub

Sub 仙盟任务()
    Do
        //截图至内存中
        KeepCapture
        //确认仙盟任务是否完成
        FindMultiColor 359,55,560,70,"5A69C5","3|4|9C9E9C,-4|18|EEEBEE,1|19|213DA4,-6|32|6BA2B5,-5|47|84D2E6,-6|76|73AEBD,-7|9|3A4DAD,-3|9|E6EBE6,7|11|F7F7F7",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            Delay 脚本运行速度
        Else
            Delay 脚本运行速度
            //确认任务栏是否打开
            FindMultiColor 424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                //   ShowMessage "日常任务已完成"
                日常任务是否完成 = true
                Call 弹窗()
                Exit Do
            End If
        End If

        //土灵符
        FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap intX + 随机数, intY + 随机数
            Delay 500
        End If
        Delay 脚本运行速度
        //接受任务
        FindMultiColor 105,296,171,412,"3A3D3A","-12|-22|9C9A9C,-8|-29|84396B,-1|-29|8C3D73,-7|-2|73396B,7|12|080408,-11|28|C5CAC5,-6|7|211019,3|3|7B396B,-6|-40|9C8594",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap intX + 随机数, intY + 随机数
            Delay 500
        Else
            //提交任务
            FindMultiColor 114,303,171,410,"4A4D4A","15|-4|E6E7E6,10|26|FFFFFF,5|26|8C497B,12|37|CECECE,14|15|313131,1|18|211021,12|45|633152,2|58|292D29,12|-7|3A393A",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                随机(最大值,最小值)
                Tap intX + 随机数, intY + 随机数
                Delay 500
            Else
                //诏书
                FindMultiColor 237,634,263,645,"8481B5","1|0|3A356B,1|4|BDCACE,-7|6|9C9A9C,8|5|A4B2B5,7|7|B5C2DE,0|-3|7381BD,-12|5|848E9C,7|-1|C5C2C5,9|-3|191819",0,相似度,intX,intY
                If intX > -1 And intY > -1 Then
                    随机(最大值,最小值)
                    Tap intX + 随机数, intY + 随机数
                    Delay 500
                Else
                    //仙盟任务
                    FindMultiColor 359,55,560,70,"5A69C5","3|4|9C9E9C,-4|18|EEEBEE,1|19|213DA4,-6|32|6BA2B5,-5|47|84D2E6,-6|76|73AEBD,-7|9|3A4DAD,-3|9|E6EBE6,7|11|F7F7F7",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        随机(最大值,最小值)
                        Tap intX + 随机数, intY + 随机数
                        Delay 500
                    Else
                        //仙盟总管仙盟任务
                        FindMultiColor 265,82,285,95,"D6B229","4|0|F7F731,-8|-1|9C4900,18|-1|C56142,13|-3|EEC23A,12|38|63514A,-3|63|312829,-3|83|312829,-3|95|4A3D3A,-3|114|5A4942",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                        End If
                        //仙盟总管仙盟任务2
                        FindMultiColor 266,85,297,104,"CE6D00","9|0|A48E3A,19|3|F7D221,12|28|312829,3|48|3A2D29,0|60|423531,16|10|C5B629,13|-6|F7CA3A,15|42|3A2D29,10|48|5A4942",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            随机(最大值,最小值)
                            Tap intX + 随机数, intY + 随机数
                            Delay 500
                        End If
                    End If
                End If
            End If
        End If


        //    找色列表=array("接受任务","提交任务","诏书","仙盟总管仙盟任务","土灵符","仙盟任务","任务栏未开")
        //    Do
        //        //截图至内存中
        //        KeepCapture
        //        //确认仙盟任务
        //        FindMultiColor 314,34,587,112,"525152","9|2|3A4994,-9|-1|101C5A,-3|9|101C52,1|-9|081C52,0|0|525152,-5|-2|EEEBEE,-4|2|B5B2B5,0|-2|ADAAAD,-2|13|193594",0,相似度,intX,intY
        //        If intX > -1 And intY > -1 Then
        //        Else
        //            Delay 脚本运行速度
        //            //确认任务栏是否打开
        //            FindMultiColor 311,4,580,113,"C5B6B5","0|-8|E6E3DE,-43|14|94616B,-46|12|3A2D29,-45|17|BD7984,-36|23|CEAEBD,-60|19|9C616B,-52|2|3A2D31,-76|13|AD6D6B",0,相似度,intX,intY
        //            If intX > -1 And intY > -1 Then
        //                //ShowMessage "仙盟任务已完成"
        //                仙盟任务是否完成 = true
        //                Exit Do
        //            End If
        //        End If
        //        Delay 脚本运行速度
        //        For Each a In 找色列表
        //            TracePrint "a=" & a
        //            call 多点找色数据库(a)
        //            call 仙盟任务1(多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),a))
        //            Delay 找色速度
        //            If intX > -1 And intY > -1 Then
        //                Exit For
        //            End If
        //        Next
        //        //删除内存中的截图
        //        ReleaseCapture
        //        Delay 300
        //    Loop
        ReleaseCapture
        Delay 300
    Loop
End Sub
Sub 仙盟任务1(参数)
    Select Case 参数
    Case "土灵符"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("开始游戏","公告确定","历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "接受任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("摄魂夺魄","无毒赤焰")
        Delay 500
    Case "提交任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "仙盟任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "诏书"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "仙盟总管仙盟任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "仙盟总管仙盟任务1"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "任务栏未开"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    End Select
End Sub

Sub 日常任务()
    找色列表=array("接受任务","提交任务","土灵符","日常任务","任务栏未开")
    //    Do
    //截图至内存中
    KeepCapture
    //        //确认日常任务是否完成
    //        FindMultiColor 327,45,567,93,"2139A4","-1|17|1935AD,6|13|DEDFDE,-7|6|8C8E8C,-2|10|000000,7|8|525152,2|11|7B7D7B,3|7|000000,-3|0|3145B5,2|16|3A4173",0,相似度,intX,intY
    //        If intX > -1 And intY > -1 Then
    //            Delay 脚本运行速度
    //        Else
    //            Delay 脚本运行速度
    //            //确认任务栏是否打开
    //            FindMultiColor 424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163",0,相似度,intX,intY
    //            If intX > -1 And intY > -1 Then
    //                //   ShowMessage "日常任务已完成"
    //                日常任务是否完成 = true
    //                Call 弹窗()
    //                Exit Do
    //            End If
    //        End If
    Delay 脚本运行速度
    For Each a In 找色列表
        TracePrint "a=" & a
        call 多点找色数据库(a)
        call 日常任务1(多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),a))
        Delay 找色速度
        If intX > -1 And intY > -1 Then
            Exit For
        End If
    Next
    //删除内存中的截图
    ReleaseCapture
    //        Delay 500
    //    Loop
End Sub
Sub 日常任务1(参数)
    Select Case 参数
    Case "土灵符"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("开始游戏","公告确定","历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "接受任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("摄魂夺魄","无毒赤焰")
        Delay 500
    Case "提交任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "日常任务"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    Case "任务栏未开"
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        TracePrint 参数
        //        找色列表=array("历练","玲珑宝塔","普通闯塔")
        Delay 500
        TracePrint 参数
    End Select
End Sub


Sub 仙侣传送()
    //前往
    FindMultiColor 289,803,327,872,"844573","-1|-8|080808,7|-7|000000,-2|13|000000,-1|30|943D84,13|15|4A1C3A,-6|-22|A4A2A4,0|7|E671CE,7|5|291421,-2|-16|4A4D4A",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
    Delay 脚本运行速度
End Sub

Sub 数秒()
    ShowMessage 时间("时")&":"&时间("分")&":"&时间("秒")
End Sub

Sub 斩妖除魔()
    KeepCapture

    //    //提交
    //    FindMultiColor 135,993,166,1034,"844173","-1|-24|EEF3EE,-9|0|636163,-9|30|848584,-10|-11|73315A,10|13|210C19,7|29|848184,9|4|A44584,0|9|FFFFFF,-4|-10|948E94",0,相似度,intX,intY
    //    If intX > -1 And intY > -1 Then
    //        随机(最大值,最小值)
    //        Tap intX + 随机数, intY + 随机数
    //        Delay 500
    //    Else
    //弹窗斩妖除魔任务
    FindMultiColor 570,184,584,199,"BD966B","-8|-36|D6C69C,-3|-51|C5A663,3|-55|D6BE84,-11|1|EEDFD6,-13|58|CE927B,5|63|BD6D5A,-1|38|D6B6A4,-12|31|CEAE9C,-9|-19|BD9663",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap 152 + 随机数,1029 + 随机数
        Delay 500
    Else
        //斩妖除魔任务
        FindMultiColor 348,51,565,71,"3A51BD","-6|2|F7F7F7,-4|19|293973,4|9|DEDFDE,-11|7|2945B5,-4|12|D6D6D6,-5|28|6396A4,-10|44|6BAEBD,-9|52|7BBED6,0|32|94E3F7",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap intX + 随机数, intY + 随机数
            Delay 500
        Else
            //红叉
            FindMultiColor 663,1216,693,1234,"080C73","18|-25|084DD6,20|27|105DEE,-12|-11|101C52,-9|17|10246B,15|-17|1949D6,12|1|103DCE,15|8|0835B5,17|25|1945CE,13|15|192484",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                随机(最大值,最小值)
                Tap intX + 随机数, intY + 随机数
                Delay 500
            Else
                
            End If
        End If
    End If
    //    End If
    ReleaseCapture

End Sub



Sub 自动攻击玩家()
    do
        //截图至内存中
        KeepCapture
        //当前目标女蛊师
        FindMultiColor 589,397,696,664,"B5C2F7","2|-4|21243A,3|-8|5A65A4,6|7|3A394A,7|4|848594,7|22|A4A6AD,-8|18|94A6FF,-3|16|8CAADE,-14|15|7B9EE6,24|-1|BDB2AD",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            Call 技能()
        Else
            //当前目标男蛊师
            FindMultiColor 598,397,685,506,"84A6DE","0|-5|8CA2C5,-3|8|000408,2|8|5A7594,-4|26|3A314A,2|26|425D84,-13|17|8CA6DE,-16|16|738ACE,-24|17|6379C5,11|19|313131",0,相似度,intX,intY
            If intX > -1 And intY > -1 Then
                Call 技能()
            Else
                //当前目标女剑仙
                FindMultiColor 590,390,693,663,"738ACE","-3|9|21283A,-2|4|191419,1|17|101419,-9|26|C5D2FF,-16|25|5A5DBD,17|19|636573,15|20|CEE7FF,0|32|080808,5|20|4A4D73",0,相似度,intX,intY
                If intX > -1 And intY > -1 Then
                    Call 技能()
                Else
                    //当前目标男剑仙
                    FindMultiColor 584,377,695,672,"6375BD","-1|18|313942,-8|14|A4C6EE,-12|27|5A7DBD,-17|25|8492E6,12|28|94B2DE,14|27|29183A,0|32|29243A,-11|35|101421,-16|35|423D3A",0,相似度,intX,intY
                    If intX > -1 And intY > -1 Then
                        Call 技能()
                    Else
                        //当前目标女豪侠
                        FindMultiColor 583,369,698,510,"8C92B5","-10|1|192D4A,-14|-2|524152,-14|15|080810,-25|9|6B8AD6,-11|11|42557B,-31|8|5A61BD,-39|5|5271BD,-39|-3|8C9ACE,-14|-17|191419",0,相似度,intX,intY
                        If intX > -1 And intY > -1 Then
                            Call 技能()
                        Else
                            //当前目标男豪侠
                            FindMultiColor 577,389,691,665,"426594","0|6|3A496B,3|14|314163,7|14|5A7194,-14|24|4A59A4,11|9|6B7DAD,11|11|313552,4|30|212442,-14|7|29394A,-13|2|425184",0,相似度,intX,intY
                            If intX > -1 And intY > -1 Then
                                Call 技能()
                            Else
                                Exit Do
                            End If
                        End If
                    End If
                End If
            End If
        End If
        //删除内存中的截图
        ReleaseCapture
        Delay 100
    Loop
    Delay 脚本运行速度
    //点击切换目标键
    FindMultiColor 305,1125,370,1175,"CE7D7B","-6|-5|EEC2C5,38|-24|F7E7E6,16|6|C5757B,0|-1|D6817B,8|-2|C57984,3|-10|EEB2AD,30|-25|BD7D8C,20|-8|734542,17|-17|BD7984",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    End If
End Sub

Function 技能()
    If ReadUIConfig("技能1") = true Then
        随机(最大值,最小值)
        Tap 238 + 随机数, 1224 + 随机数
        Delay 200
    End If
    If ReadUIConfig("技能2") = true Then
        随机(最大值,最小值)
        Tap 235 + 随机数,1119 + 随机数
        Delay 200
    End If
    If ReadUIConfig("技能3") = true Then
        随机(最大值,最小值)
        Tap 159 + 随机数,1044 + 随机数
        Delay 200
    End If
    If ReadUIConfig("技能4") = true Then
        随机(最大值,最小值)
        Tap 56 + 随机数,1044 + 随机数
        Delay 200
    End If
    If ReadUIConfig("技能0") = true Then
        随机(最大值,最小值)
        Tap 109 + 随机数,1173 + 随机数
        Delay 200
    End If
End Function

Sub 接受组队邀请()
    KeepCapture
    FindMultiColor 170,852,428,872,"7BC67B","8|-3|63EB4A,33|21|7BFF7B,23|20|73DF63,18|-7|84F373,14|-426|9C456B,12|-453|AD4973,15|-436|EECAE6,30|-426|3145EE,24|-424|4251E6",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
    Else
        //邀请提示
        FindMultiColor 90,779,188,884,"EEE7EE","-9|1|7B4163,-10|-1|945184,-14|2|BD7D9C,-15|1|844D63,7|15|1020C5,9|11|1931D6,7|10|E6D2DE,8|-1|9C5D8C,-4|-4|C549A4",0,相似度,intX,intY
        If intX > -1 And intY > -1 Then
            随机(最大值,最小值)
            Tap intX + 随机数, intY + 随机数
            Delay 500
        End If
    End If
    ReleaseCapture
End Sub

Sub 抢红包()
    FindMultiColor 197,916,320,1007,"637DAD","-28|-26|73DFF7,-31|-26|193184,-33|-8|5AD6F7,-32|18|5ACEEE,-7|3|6B8EBD,-3|-9|7396BD,11|11|7385BD,17|-4|6385B5,12|-21|2928A4",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
        Delay 500
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
    End If
End Sub

Sub 灵儿红包()
    //灵儿红包确定
    FindMultiColor 166,565,216,714,"7B3D6B","-4|-22|848584,5|-18|B5B2B5,-5|25|AD4D9C,-8|28|5A595A,11|15|100408,-11|-12|732D63,-2|6|63315A,-7|-27|B55194,-4|-11|8C5984",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
    End If
    Do
        If 时间("分") = 1 and 时间("秒") >= 6 Then
            Exit Do
        ElseIf 时间("分") = 3 and 时间("秒") >= 6 Then
            Exit Do
        ElseIf 时间("分") = 5 and 时间("秒") >= 6 Then
            Exit Do
        Else
            Tap 253,962
        End If
        Delay 50
    Loop
    Delay 5000
    //灵儿红包确定
    FindMultiColor 166,565,216,714,"7B3D6B","-4|-22|848584,5|-18|B5B2B5,-5|25|AD4D9C,-8|28|5A595A,11|15|100408,-11|-12|732D63,-2|6|63315A,-7|-27|B55194,-4|-11|8C5984",0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        Delay 1000
        Call 截图("灵儿红包","")
        随机(最大值,最小值)
        Tap intX + 随机数, intY + 随机数
    End If
End Sub

Sub 多点找色数据库(参数)
    Select Case 参数
    Case "点券红包"
        找点=Array(197,916,320,1007,"637DAD","-28|-26|73DFF7,-31|-26|193184,-33|-8|5AD6F7,-32|18|5ACEEE,-7|3|6B8EBD,-3|-9|7396BD,11|11|7385BD,17|-4|6385B5,12|-21|2928A4")
    Case "绿勾"
        找点=Array(269,768,476,905,"73E75A","1|-19|4A9E4A,1|-4|31853A,-11|-5|5AE36B,21|18|5AD663,-4|1|296D31,5|-11|7BE763,-2|-11|6BEB52,8|3|73EB63,12|16|6BCE52")
    Case "组队邀请"
        找点=Array(168,391,437,921,"B5D6DE","-1|5|526D7B,0|14|C5E3E6,-8|6|CEEBEE,-9|9|294552,-5|22|9CBAC5,-1|35|BDDBDE,-8|43|849EAD,-18|46|84A2AD,-4|51|94AAB5")
    Case "邀请提示"
        找点=Array(90,779,188,884,"EEE7EE","-9|1|7B4163,-10|-1|945184,-14|2|BD7D9C,-15|1|844D63,7|15|1020C5,9|11|1931D6,7|10|E6D2DE,8|-1|9C5D8C,-4|-4|C549A4")
    Case "摄魂夺魄"
        找点=Array(8,975,315,1280,"5A0031","-5|0|842063,-7|37|FFCAF7,18|5|290029,35|11|841C73,54|4|730029,-42|7|D6004A,-17|32|73004A,3|15|7B046B,-7|-36|840031")
    Case "无毒赤焰"
        找点=Array(6,991,291,1275,"100873","-4|-13|290031,1|-13|5231EE,4|-4|CECAEE,30|-3|B5A2C5,20|-10|DEDBFF,36|-8|D6CAD6,25|-12|AD81D6,-16|-9|5200A4,14|-12|52355A")
    Case "回梦诀"
        找点=Array(8,975,315,1280,"5A1442","4|25|422D31,-17|15|FF10FF,18|2|FFC2F7,-24|28|FFB2FF,-31|13|941084,-35|18|FF04F7,-27|-12|AD49A4,-9|43|DE5DDE,11|-1|F728E6")
    Case "当前目标男豪侠"
        找点 = Array(577,389,691,665,"426594","0|6|3A496B,3|14|314163,7|14|5A7194,-14|24|4A59A4,11|9|6B7DAD,11|11|313552,4|30|212442,-14|7|29394A,-13|2|425184")
    Case "当前目标女豪侠"
        找点 = Array(583,369,698,510,"8C92B5","-10|1|192D4A,-14|-2|524152,-14|15|080810,-25|9|6B8AD6,-11|11|42557B,-31|8|5A61BD,-39|5|5271BD,-39|-3|8C9ACE,-14|-17|191419")   
    Case "当前目标男剑仙"
        找点=Array(584,377,695,672,"6375BD","-1|18|313942,-8|14|A4C6EE,-12|27|5A7DBD,-17|25|8492E6,12|28|94B2DE,14|27|29183A,0|32|29243A,-11|35|101421,-16|35|423D3A")
    Case "当前目标女剑仙"
        找点=Array(590,390,693,663,"738ACE","-3|9|21283A,-2|4|191419,1|17|101419,-9|26|C5D2FF,-16|25|5A5DBD,17|19|636573,15|20|CEE7FF,0|32|080808,5|20|4A4D73")
    Case "当前目标男蛊师"
        找点=Array(598,397,685,506,"84A6DE","0|-5|8CA2C5,-3|8|000408,2|8|5A7594,-4|26|3A314A,2|26|425D84,-13|17|8CA6DE,-16|16|738ACE,-24|17|6379C5,11|19|313131")
    Case "当前目标女蛊师"
        找点=Array(589,397,696,664,"B5C2F7","2|-4|21243A,3|-8|5A65A4,6|7|3A394A,7|4|848594,7|22|A4A6AD,-8|18|94A6FF,-3|16|8CAADE,-14|15|7B9EE6,24|-1|BDB2AD")
    Case "切换目标键"
        找点=Array(270,1071,438,1219,"FFF7F7","-8|2|EEB2B5,-4|10|D6929C,-12|1|F7EFEE,-12|11|DE8E8C,-14|6|C5757B,-17|8|FFF7F7,3|18|F7BEC5,-1|24|DEA6B5,21|-13|AD7D84")
    Case "仙侣传送弹窗"
        找点=Array(405,379,474,472,"10283A","2|3|ADCAD6,2|24|D6EFF7,-5|27|08203A,6|31|9C9E9C,1|36|082031,1|45|EEEBDE,-9|47|EEEBDE,10|48|EEE3D6,-9|55|CECAC5")
    Case "仙侣传送弹窗1"
        找点=Array(404,381,470,894,"5A7184","-8|-3|A4C2CE,-21|0|082031,1|9|19354A,-6|12|08203A,0|24|42596B,1|45|314D5A,-20|59|19354A,-6|84|102842,1|124|213D52")
    Case "仙侣传送前往"
        找点=Array(268,753,350,923,"000000","0|-2|CE55A4,-5|10|5A595A,3|10|D6D6D6,4|8|000000,2|34|FFFFFF,1|31|100408,-10|32|BD5DA4,-4|52|080808,-4|48|F7FBF7")
    Case "仙侣传送前往1"
        找点=Array(268,753,350,923,"311829","-8|0|632D52,2|-19|080000,-3|-17|DE65B5,1|10|CE61B5,-6|14|9C4D8C,0|24|F7F7F7,-7|31|080808,-11|38|292829,8|36|BD4594")
    Case "诏书"
        找点=Array(222,616,282,666,"3A356B","-1|2|BDC6C5,2|4|E6EBEE,6|2|A4AAAD,-1|8|7B8E94,6|-1|C5C2C5,-3|5|52595A,-4|4|E6EBF7,-5|1|9C9EAD,-6|0|63558C")'=
    Case "土灵符"
        找点=Array(125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD")
    Case "提交任务"
        找点=Array(114,303,171,410,"4A4D4A","15|-4|E6E7E6,10|26|FFFFFF,5|26|8C497B,12|37|CECECE,14|15|313131,1|18|211021,12|45|633152,2|58|292D29,12|-7|3A393A")'=
    Case "接受任务"
        找点=Array(105,296,171,412,"3A3D3A","-12|-22|9C9A9C,-8|-29|84396B,-1|-29|8C3D73,-7|-2|73396B,7|12|080408,-11|28|C5CAC5,-6|7|211019,3|3|7B396B,-6|-40|9C8594")'=
    Case "日常任务"
        找点=Array(327,45,567,93,"2139A4","-1|17|1935AD,6|13|DEDFDE,-7|6|8C8E8C,-2|10|000000,7|8|525152,2|11|7B7D7B,3|7|000000,-3|0|3145B5,2|16|3A4173")'=
    Case "仙盟总管仙盟任务"
        找点=Array(256,113,309,262,"5A4D4A","15|-3|4A3931,17|12|3A2D29,5|18|3A2D29,15|17|423131,2|27|4A393A,2|50|423531,18|33|3A2D31,1|61|52413A,11|81|5A4542")'=
    Case "仙盟总管仙盟任务1"
        找点=Array(246,101,319,283,"4A3931","-9|3|7B6152,-11|-16|3A2D31,-7|-26|CEAE9C,4|-23|4A3D3A,3|-37|8C7163,5|11|52413A,1|9|4A393A,2|33|4A393A,-1|38|7B655A")
    Case "仙盟任务"
        找点=Array(325,44,567,114,"E6E3DE","5|4|DEDBDE,-2|8|6B6D6B,2|5|7B797B,3|11|B5B2B5,8|7|E6E7E6,1|10|7B7D7B,8|6|A4A2A4,2|8|292829,-1|5|313131")'=
    Case "仙盟任务1"
        找点=Array(309,42,570,316,"3A4DB5","4|-5|F7FBF7,-5|-2|CED2CE,-1|6|3A4563,10|14|7BC2D6,-9|13|314D52,8|17|8CE3F7,9|29|5A8A94,-7|34|94E3FF,1|49|84CADE")
    Case "任务栏开"
        找点=Array(424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163")'=
    Case "任务栏未开"
        找点=Array(446,4,508,43,"846163","13|12|C59294,22|-7|3A2829,28|-1|3A2D29,-6|6|A4797B,19|3|422D31,-9|2|BD9294,-15|10|523D3A,17|3|523D42,19|7|3A2D31")'=
    Case "队伍栏开"
        找点=Array(323,1,566,56,"FFEBEE","-20|4|E6C2C5,-10|-10|5A5152,-11|-11|EEEBE6,-24|-3|6B6163,-25|-18|CECAC5,-22|-13|423531,-26|-13|AD717B,-48|-13|524542,-53|-6|FFFFFF")
    Case "队伍栏未开"
        找点=Array(311,1,435,48,"DEAEAD","17|19|422D31,-2|-4|E6AEAD,8|8|5A4142,18|17|946D73,29|3|E6AEAD,-12|0|8C6D6B,-11|19|3A2D29,17|-3|73595A,31|11|E6B2B5")
    Case "原地复活"
        找点=Array(80,349,457,904,"DE61B5","6|-11|F7FBF7,8|1|080000,0|18|080808,-1|27|7B416B,-4|30|6B656B,-3|55|C559AD,4|48|524D52,-1|67|5A5D5A,-4|82|080408")
    Case "返回城镇"
        找点 = Array(80, 349, 457, 904, "AD4984", "4|-22|080808,6|-20|F7F7F7,-6|-3|000000,0|20|080408,-5|33|BD59A4,-1|51|636163,-2|61|CE51A4,-11|54|B5499C,1|92|63204A")
        //神魔之井【【【【【【【【【【【【【【【【【【
    Case "神魔之井弹窗"
        找点=Array(421,450,460,600,"00519C","-20|1|103D6B,-20|12|083963,-1|55|0069DE,-18|47|08498C,-19|84|0859B5,1|83|083963,-4|88|00519C,-8|112|29495A,-1|128|42596B")
    Case "神魔之井立即前往"
        找点=Array(282,773,335,906,"C565B5","-1|-25|000000,2|25|8C8A8C,-3|-44|732D52,7|-52|636963,1|-33|212021,-4|35|BD499C,5|42|000400,-9|60|100C10,11|43|843163")
    Case "神魔之井前往"
        找点=Array(102,1168,188,1243,"426D7B","14|14|000000,23|18|293952,-7|-4|3A49B5,-22|12|08147B,14|3|B5B2B5,18|-11|100C21,-8|4|73C6E6,-3|6|5A7D8C,32|17|6379A4")
    Case "进行中神魔之井"
        找点 = Array(479, 1106, 549, 1209, "297D5A", "2|24|217152,-8|16|297D5A,-12|45|21694A,1|54|31A673,-18|30|217552,-27|21|D6D6D6,-36|23|D6DBD6,-44|58|ADAAAD,-36|63|B5B2B5")
    Case "仙盟活动神魔前往"
        找点=Array(137,1027,173,1095,"B559A4","3|-28|BDC2BD,-11|-20|84396B,-13|9|190C19,-7|27|943D7B,-7|4|42203A,17|63|2941E6,8|66|B5BEFF,10|58|EEEBFF,-12|-26|C5BEC5")
    Case "仙盟活动神魔前往1"
        找点=Array(144,1053,167,1067,"8C457B","5|-27|BDBEBD,-9|27|848184,-3|-27|D665B5,-10|-20|84396B,8|-16|732D5A,5|23|DEE3DE,-10|-27|D6D6D6,-12|4|848584,5|25|212021")
        //】】】】】】】】】】】】】】】
    Case "活动限时神魔前往"
        找点=Array(76,1132,220,1278,"5271A4","10|-18|000000,9|-13|F7F7F7,-14|-18|212042,-7|21|000000,-16|9|EEF3F7,-33|13|4A496B,-34|18|080C08,-32|-10|7BAAB5,11|25|632DA4")
    Case "死亡聊天"
        找点=Array(4,46,68,132,"523531","-3|0|6B4942,-19|4|9C8184,-1|9|4A2D21,-4|20|D6D6D6,9|5|524542,10|16|311C19,-14|11|6B4542,-14|0|63393A,-3|-8|523129")
    Case "聊天附近"
        找点=Array(446,1,664,105,"4A4D4A","-4|-5|080808,3|9|DEDFDE,-11|15|5A595A,-7|22|8C6963,-4|31|D6D2D6,2|48|FFFFFF,-7|41|000000,-12|51|E6E3E6,-8|49|84655A")
    Case "聊天队伍"
        找点=Array(382,2,474,98,"D6D6D6","-1|-16|FFFFFF,-2|-12|4A494A,-11|-1|424142,-8|0|B5B6B5,-15|9|424542,-1|21|3A393A,-1|22|9C9A9C,-9|37|7B6152,-9|35|191810")
    Case "聊天定位"
        找点=Array(186,14,229,109,"6B4142","7|-15|EEF3EE,0|6|6B4142,8|24|080400,3|19|3A393A,2|26|73454A,-3|-12|000400,-4|27|422D29,7|14|423D42")
    Case "聊天发送"
        找点=Array(28,460,73,555,"6B4542","1|-18|844D52,9|-14|E6E3E6,11|8|422421,2|30|000000,-6|31|636163,2|7|844D52,-5|-5|000400,11|23|000000,2|15|5A595A")
    Case "聊天表情"
        找点=Array(21,397,80,455,"D685C5","1|9|BD7DAD,-9|5|AD799C,-7|5|FFFBFF,2|1|E6C2DE,1|7|FFFFFF,-4|18|AD85AD,-4|20|8C455A,13|4|DE7DAD,-19|4|845542")
    Case "打开聊天界面"
        找点=Array(5,366,71,435,"5A4942","-3|2|7B655A,0|-8|4A3529,-19|-2|845152,-14|-9|6B413A,9|1|847D7B,9|-6|8C817B,-3|19|845942,-4|-16|522D21,-14|3|734142")
    Case "关闭聊天界面"
        找点=Array(619,581,718,628,"EED6CE","-1|13|D69E8C,0|4|FFF7F7,13|15|F7E7D6,-13|14|EED6C5,-8|8|DEAA9C,5|-539|CE7194,19|-540|E69ECE,6|-526|BD8EA4")
    Case "坐标-线"
        找点=Array(165,256,560,421,"088EAD","-11|1|63CEDE,-2|9|4AB6CE,7|7|6BD2E6,3|0|3AAAC5,-3|-1|4ABACE,-9|-9|42B6CE,-11|-10|0085AD,9|5|0085A4,-1|10|5AC6DE")
    Case "离开"
        找点=Array(480,669,559,977,"00AADE","1|-5|08B2EE,-1|-19|105194,0|13|00CAFF,-2|25|00BAEE,-6|-25|00CAFF,-6|38|00CAFF,-8|38|00CEFF,-8|-25|00CAFF,-8|7|00CAFF")
    Case "抽奖关闭"
        找点=Array(124,571,180,722,"6B2852","-2|-9|A4AAA4,-2|-3|EEEFEE,-3|0|000400,-14|11|844573,-4|22|000000,-18|30|B54D94,-13|37|4A2442,-20|41|8C8A8C,-14|45|C54DAD")
    Case "场景天罡剑阵"
        找点=Array(683,1118,718,1271,"9C969C","4|-2|100C10,4|19|080C08,-2|12|000400,-9|17|EEEFEE,3|25|080408,-4|41|191819,2|42|313131,2|48|100C10,-2|79|A4A6A4")
    Case "仙盟无双弹窗"
        找点=Array(404,447,472,610,"08457B","-8|-5|193142,1|9|08314A,-13|18|08243A,-5|57|5A6973,-4|66|102842,-5|74|0859B5,-6|80|5A6973,-5|99|D6CEC5,-9|113|082031")
    Case "仙盟无双立即前往"
        找点=Array(282,758,339,915,"525552","-7|-1|DE65B5,-3|6|292829,-4|21|737573,-2|46|848184,-3|53|B5B6B5,0|58|311029,-10|61|6B285A,0|84|190810,-12|83|3A1429")
    Case "须弥幻境弹窗"
        找点=Array(406,448,468,618,"6B757B","-9|-8|0055AD,-20|-1|0855A4,-3|22|193542,-8|45|006DE6,-6|54|08417B,-5|62|082842,-4|88|B5CED6,-3|92|3A596B,-1|106|738E9C")
    Case "须弥幻境弹窗立即前往"
        找点=Array(277,759,339,914,"3A393A","-6|-22|080808,-8|-42|848184,-11|-32|3A1831,-3|-6|949694,-13|-23|7B3163,-14|7|B555A4,-14|35|42203A,-9|41|8C356B,-1|48|D6D2D6")
    Case "须弥幻境挑战"
        找点 = Array(119, 980, 185, 1143, "423D42", "0|3|6B2D52,-9|17|84497B,-15|22|63315A,-14|30|000000,-5|49|080400,-13|48|CE55AD,-19|7|4A203A,-3|45|F7FBF7,-17|53|632852")
    Case "副本奖励宝箱"
        找点=Array(97,937,155,1094,"CE69B5","0|-22|191819,-2|-28|080408,3|21|84657B,-4|26|000000,-9|-53|EEEFEE,-9|1|424142,-7|61|D6DBD6,-5|27|6B315A,-6|8|101010")
    Case "副本奖励宝箱1"
        找点=Array(247,401,359,882,"312442","0|-14|CED2D6,-1|-4|636173,8|4|C5C6CE,-1|6|6B656B,28|8|314929,-12|0|212D19,-13|31|192410,-20|10|314D29,-8|25|6B6D84")
    Case "净天弹窗"
        找点=Array(396,435,481,619,"103963","5|1|0859B5,-14|-1|083152,-12|8|08519C,-3|41|08519C,6|56|08498C,6|82|084D94,-5|90|102D42,-7|87|10283A,-6|93|10283A")
        //《《《《《《一条龙》》》》》》
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
        //    Case "属性加成-气血"
        //        找点=Array()
    End Select
End Sub



Sub 测试找点()
    找色列表=array("净天弹窗","副本奖励宝箱1","副本奖励宝箱","队伍栏未开","仙盟总管仙盟任务1","坐标-线","聊天发送","聊天定位","打开聊天界面","关闭聊天界面","聊天表情","聊天队伍","须弥幻境挑战","须弥幻境弹窗立即前往","须弥幻境弹窗","仙盟无双立即前往","仙盟无双弹窗","场景天罡剑阵","抽奖关闭","离开","仙盟任务1","活动限时神魔前往","仙盟活动神魔前往","进行中神魔之井","神魔之井立即前往","神魔之井弹窗","聊天附近","死亡聊天","返回城镇","原地复活","队伍栏开","任务栏开","日常任务","接受任务","提交任务","土灵符","点券红包","绿勾","组队邀请","邀请提示","摄魂夺魄","无毒赤焰","回梦诀","当前目标男豪侠","当前目标男剑仙","当前目标女剑仙","当前目标女蛊师","切换目标键","仙侣传送弹窗","仙侣传送弹窗1","仙侣传送前往","仙侣传送前往1")
    Dim a,i:i=0
    //截图至内存中
    KeepCapture
    For Each a In 找色列表
        call 多点找色数据库(找色列表(i))
        ShowMessage 多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),找色列表(i))
        i=i+1
        Delay 找色速度
        If intX>-1 And intY>-1 Then
            Delay 2000
        End If
        Delay 5
    Next
    //删除内存中的截图
    ReleaseCapture
End Sub



Function 多点找色(x,y,x1,y1,参照点,相对点,名称)
    FindMultiColor x,y,x1,y1,参照点,相对点,0,相似度,intX,intY
    If intX>-1 And intY>-1 Then
        多点找色 = 名称
    End If
End Function

Function 截图(文件夹名,图片名)
    Delay 1000
    Dim SD卡目录
    SD卡目录=GetSdcardDir()
    图片名 = 图片名&时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
    Dim j
    j = Dir.Exist(SD卡目录&"/"&文件夹名&"/"&图片名&".png")
    if j = 1 then
        图片名 = 图片名 & "-1"
    End If
    Dim 文件路径=SD卡目录&"/"&文件夹名
    If Dir.Exist(文件路径) = 2 Then
        网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
        SnapShot SD卡目录&"/"&文件夹名&"/"&图片名&".png"
    Else
        Call Dir.Create(文件路径) //先创建一个文件夹
        网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
        SnapShot SD卡目录&"/"&文件夹名&"/"&图片名&".png"
    End If
    TracePrint SD卡目录&"/"&文件夹名&"/"&图片名&".png"
End Function

Function 找字(x,y,x1,y1,颜色格式串,相似度)
    找字=Ocr(x,y,x1,y1,颜色格式串,相似度)
End Function
//Function 数组的最大下标(arr)
//    Dim a,i:i=0
//    For Each a In arr
//        i=i+1
//    Next
//    数组的最大下标=i-1
//End Function
//TracePrint 数组的最大下标(找点)

标签:脚本,End,app,精灵,Delay,随机数,Tap,intY,intX
来源: https://www.cnblogs.com/amumumuyoulan/p/12860351.html