[阴阳师]半自动御魂脚本

wzx王朝夕 · 发表于 2019-10-22 14:32:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wzx王朝夕于 2019-10-22 14:32 编辑

作者是个弟弟,源码只用来分享
感兴趣的随便看看
模拟器720*1280分辨率
脚本还不完善,也没整理,注释掉的代码,自行删除
有什么意见,有什么不足请大家指出!

界面:

[按键精灵] 纯文本查看 复制代码

界面1:
{
        御魂:
        {        
                注释:"***************************文字说明***************************",
                文字框:{显示内容:"说明:1. 开始前,自己手动创建组队,邀请好友",文字大小:16,高度:60},
                文字框:{显示内容:"         2. 自己开启加成",文字大小:16,高度:60},        
                文字框:{显示内容:"         3. 邀请5次后不接受,不在邀请",文字大小:16,高度:60},
                文字框:{显示内容:"————————————————————————",文字大小:16},        
                注释:"******************************组队***************************",
                水平布局:{
                        文字框:{显示内容:"  组队: "},
                        下拉框:{
                                名称:"队长队员",
                                选项:["司机","乘客",],
                                初始选项:1},        
                        文字框:{显示内容:" 开车: "},
                        下拉框:{
                                名称:"几人开始",
                                选项:["两人开","三人开",]},
                        文字框:{显示内容:" 次数:"},        
                        输入框:{名称:"御魂次数",
                                        初始文本:"9999",
                                        仅输入数字:true,},        
                },
                文字框:{显示内容:" _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _ "},
                注释:"******************************邀请设置***************************",
                多选框:{名称:"是否邀请",
                        提示内容:"【队长邀请】    ",
                        选中:true,},
                水平布局:{
                        文字框:{显示内容:"          好友 : "},
                        下拉框:{
                                名称:"好友类型",
                                选项:["好友","最近","跨区",]},        
                        文字框:{显示内容:"        第 "},
                        下拉框:{
                                名称:"好友位置",
                                选项:["1","2","3","4","5","6",]},
                        文字框:{显示内容:"个"},
                },
                文字框:{显示内容:" _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _ "},
                  注释:"******************************标记***************************",        
                  水平布局:{
                          多选框:{名称:"标记式神",
                                提示内容:"【标记己方式神】       ",},
                        下拉框:{
                                名称:"标记位置",
                                选项:[" 左1"," 左2"," 右2"," 右1"]},
                  },
                注释:"******************************集火***************************",
                多选框:{名称:"是否集火",
                        提示内容:"【集火怪物】",},
                水平布局:{
                        文字框:{显示内容:"          一层 "},                
                        下拉框:{
                                名称:"一层集火",
                                选项:["无","左","中","右",]},        
                        文字框:{显示内容:"    二层 "},
                        下拉框:{
                                名称:"二层集火",
                                选项:["无","左","中","右",]},        
                        文字框:{显示内容:"   三层 "},
                        下拉框:{
                                名称:"三层集火",
                                选项:["无","左","中","右",]
                  },        
                文字框:{显示内容:" _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _ "},
                注释:"******************************失败***************************",
                水平布局:{
                        多选框:{名称:"失败不邀请",
                                提示内容:"【失败不邀请】       ",
                                选中:false,},
                        多选框:{名称:"失败不接受",
                                提示内容:"【失败不接受】",
                                选中:false,},
                },
                文字框:{显示内容:" _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _  _ "},
                  注释:"****************************无人关闭加成***************************",        
                  多选框:{名称:"关闭加成",
                                提示内容:"【关闭御魂加成,停止脚本】",
                                选中:true,},
                  水平布局:{
                          文字框:{显示内容:"中断或者完成任务超过"},
                          输入框:{名称:"关闭御魂加成限时",
                                        初始文本:"5",
                                        仅输入数字:true,},        
                          文字框:{显示内容:" 分钟后执行[不要太短]"},}
                }
        },        
}

wzx王朝夕 · 发表于 2019-10-22 14:33:49

源码:

[按键精灵] 纯文本查看 复制代码

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
Dim intX,intY
//************************** 全局变量 *********************** ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓  
//**********************************************************  ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑

//**************************  御魂  *********************** ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓  
/*
	说明: 1.开始前,自己手动创建组队,邀请好友
		  2.自己开启加成
*/
//--------------------- <<御魂>> 配置变量 ----------------------------
Dim 队长队员,几人开始,御魂次数
Dim 是否邀请,好友类型,好友位置
Dim 是否集火,一层集火,二层集火,三层集火
Dim 是否标记,标记位置
Dim 失败不邀请,失败不接受
Dim 超时关闭加成,关闭御魂加成限时
队长队员 = ReadUIConfig("队长队员", 1) // 0队长 1队员
几人开始 = ReadUIConfig("几人开始", 0) // 0二人 1三人
御魂次数 = CLng(ReadUIConfig("御魂次数", "9999")) 
是否邀请 = ReadUIConfig("是否邀请", true) 
好友类型 = ReadUIConfig("好友类型", 0) // 0好友 1最近 2跨区 
好友位置 = ReadUIConfig("好友位置", 0)	// 123456
是否集火 = ReadUIConfig("是否集火", false)
一层集火 = ReadUIConfig("一层集火", 0) // 左中右
二层集火 = ReadUIConfig("二层集火", 0)
三层集火 = ReadUIConfig("三层集火", 0)
是否标记 = ReadUIConfig("标记式神", false)	
标记位置 = ReadUIConfig("标记位置", 0) // 左1,左2,中,右2,右1
失败不邀请 = ReadUIConfig("失败不邀请", false)
失败不接受 = ReadUIConfig("失败不接受", false)
超时关闭加成 = ReadUIConfig("关闭加成", true)
关闭御魂加成限时 = CLng(ReadUIConfig("关闭御魂加成限时", "5"))

//--------------------- <<御魂>> 全局颜色数组 ----------------------------
Dim 探索界面,庭院界面,组队匹配界面,队伍中界面,创建队伍界面
探索界面 = Array(546, 1124, 599, 1185, "0B0C0D", "-12|0|C9D2D9,-11|-2|2A3636,8|-6|000D0D,10|-6|C6D6DE,9|8|343A40,10|13|334757") // 妖字
庭院界面 = Array(632, 401, 690, 434, "22282C", "1|-2|83D4FB,-4|-1|72C4F5,-10|4|22272B,-15|-3|629AF4,19|-4|79C3E9,25|-1|72BFEC") // 加成灯笼-->灯笼
组队匹配界面 = Array( 652,12,709,177,"A1E3F4","1|5|4B90DE,20|27|151F2E,0|58|DEF0F5,-14|80|E0F3F8,-12|78|2E3942,-6|105|E0F3F8") // 左上角组队文字-->退出

创建队伍界面 = Array(553, 197, 681, 297, "B9A9FA", "-7|4|2B2BA2,-24|-1|4F6093,4|31|92A1B1,-38|31|909FAE,-53|21|AEC3F6")// 左上的的桃枝,等级,关卡
队伍中界面 = Array( 662,88,698,216,"DDF0F5","-5|-3|0F1821,5|-5|E0F3F8,-6|38|E0F3F8,-6|41|2F3A43,-8|6|111A24,11|96|E0F3F8,7|98|0F1822")//协站字,左上

Dim 御魂战斗界面_鬼火,御魂战斗界面_加成
御魂战斗界面_鬼火 = Array(0,858,51,1046,"FFFFFF","16|-17|961E16,33|-2|A0280F,24|-1|AF6D02,18|-2|E3D2B5,0|10|CDBC23,3|8|D4B208,-9|-6|979F02,16|6|AD7A02")
御魂战斗界面_加成 = Array(3, 112, 62, 159, "252A2D", "-9|0|DBF4FC,-6|-3|272B2E,23|-5|C6DCE7,30|-3|515B67,-20|0|17284A,-18|1|B4CEF0,15|6|D5EEF5")

Dim 协作邀请界面
协作邀请界面 = Array(525, 512, 568, 562, "070B1E", "3|-2|31B5EF,-16|-10|3748E0,-14|-10|00000F,-20|-18|7088A6,6|9|35BAFF")//协作字
//--------------------- <<御魂>> 全局数值变量 ----------------------------

Dim 是否已经关闭加成
是否已经关闭加成 = False
    
Dim 时间线程,突发线程,状态,开车次数
Dim 次数任务是否完成

TracePrint 关闭御魂加成限时
时间线程 = Thread.Start(线程_全局到计时)
突发线程 = Thread.Start(线程_突发事件)
Thread.SetShareVar "计时_御魂无关界面",0
开车次数 = 1
次数任务是否完成 = False

Function _御魂()
    /*
    	组队界面 
    		1.邀请 
    		2.2/3开始
    */
    Call 接受邀请()
    Call 等待开始()
    Call 御魂战斗()
    Call 检测御魂任务相关界面()
    // TracePrint Thread.GetShareVar("计时_御魂无关界面")
End Function

//--------------------------------------------
//---------------- 接受邀请 参数 ---------------
//队友
Dim 御魂邀请,接收邀请,自动接收邀请,确认
//433,234,466,377
御魂邀请 = Array(318,224,467,377,"BBCCDF","4|-2|4C57AA,12|2|CBDBE5,5|21|3B46A2,13|22|D1E2EB,15|21|343E9F") // 可以判断上下2个
//接收邀请 = Array(318, 103, 492, 171, "6ABC62", "5|-20|6DA468,14|-11|87B787,20|19|7CBE6C,-9|14|8A9CB0,-19|0|4F6263")
接收邀请 = Array(252,92,497,176,"5AAD52","-19|-1|97A9BB,7|-20|6DAF65,6|-22|92A3B9,5|0|72BB6B,9|0|99AABA,8|28|94A4B3")
//自动接收邀请 = Array(318, 202, 498, 264, "68A9D2", "-10|2|95C6F0,0|1|68A9D2,-24|-1|62B358,-19|23|6ABC61,-36|-8|194565")
自动接收邀请 = Array(276, 200, 505, 271, "92C4ED", "-16|-13|2C4A68,-18|-14|99AABA,-26|10|67B65F,-10|2|549654,20|3|91ACBD,18|3|96C8EC")    
确认 = Array(245, 416, 471, 865, "5FB2F4", "151|-254|042FA8,132|-207|0630A8,134|-209|9AB3CC,111|-8|46515A,0|-177|5169DD,19|-159|332C8D")
Function 接受邀请()
    If 队长队员 = 0 or 失败不接受 or 开车次数 > 御魂次数 Then //队长直接跳出
        Exit Function
    End If    
    If Thread.GetShareVar("计时_接受邀请显示") Mod 7 = 0 Then 
        showM "接受邀请"
    End If
    If 区域多点找色(御魂邀请, false, 0, 0) Then 
        If 区域多点找色(自动接收邀请, true, 随机(-20, 20), 随机(-20, 20)) Then 
            showM "自动接收邀请"
            Delay 500
            // 等待2s 确认-自动接收邀请
            For 20
                If 区域多点找色(确认, true, 随机(-20, 20), 随机(-20, 20)) Then 
                    showM "确认,等待界面转换"
                    Delay 500
                    Exit For
                End If
                Delay 100
            Next
        ElseIf 区域多点找色(接收邀请, true, 随机(-20, 20), 随机(-20, 20)) Then
            showM "接受邀请,等待界面转换"
            Delay 500
        End If
    End If
	
End Function

//--------------------------------------------
//---------------- 等待开始 参数 ---------------
Dim 可以挑战,不可挑战,队友三_空,退出按钮,确定,邀请次数
可以挑战 = Array(38, 1169, 126, 1270, "80D2EB", "-13|-7|232B3B,-25|-33|395F93,34|-13|9EE1F9,14|16|243445,-37|30|5ABDDE,-8|-1|0E3455")
不可挑战 = Array(10, 1166, 98, 1276, "0F160F", "0|2|2760BA,26|0|2B7AE8,40|14|C4C4C4,77|-2|3A3A3A,64|-20|D1D1D1")    
队友三_空 = Array(410,1048,523,1135,"FFFFFF","0|-23|F0FFFF,-23|0|EAFEFF,6|-6|55565E,-6|-6|5F5F67,7|6|5B5D64,3|23|EAFEFF") // 白色加号
确定 = Array(249, 657, 327, 854, "5FB2F4", "21|-83|253E99,-28|-84|28419C,-26|-70|60B3F5,-23|78|75A6F4,22|16|65B2ED")    

邀请次数 = 0
Function 等待开始()
    If 区域多点找色(队伍中界面, false, 0, 0) Then 
        Call 判断开车次数()
        Thread.SetShareVar "计时_御魂无关界面",0
        If 队长队员 = 0 Then  // 队长 -- 邀请队友,点击开始 
            showM "5s后邀请队友"
            Thread.SetShareVar "倒计时_御魂邀请",5
            Do
                KeepCapture  //--------------截图
                Select Case 几人开始
                Case 0	// 2人
                    If 区域多点找色(可以挑战, false, 0, 0) Then 
                        Delay 随机(300,600)
                        点击 intX, intY,随机(-20, 20)
                        showM "开始"
                    End If
                Case 1 // 3人
                    If 区域多点找色(可以挑战, false, 0, 0) and 区域多点找色(队友三_空, false, 0, 0) = False Then 
                        Delay 随机(300,600) 
                        Call 区域点击(50,1197,102,1254) //
                        showM "开始"
                    End If
                End Select
                ReleaseCapture //--------------释放
                // 不在队伍界面,退出do
                If 区域多点找色(队伍中界面, false, 0, 0) = False Then 
                    Delay 2000 // 界面转换
                    Exit Do
                End If
                
                Delay 200
            
                If Thread.GetShareVar("倒计时_御魂邀请") = 0 And 邀请次数 < 5 Then 
                    showM "邀请好友"
                    Call 邀请好友()
                    邀请次数 = 邀请次数 + 1
                    showM (5+邀请次数*5)&"s后邀请好友"
                    Thread.SetShareVar "倒计时_御魂邀请", 5+邀请次数*5
                End If
            Loop
        Else  // 队员,如果是变成队长 退出组队
            If 区域多点找色(可以挑战, false, 0, 0) or 区域多点找色(不可挑战, false, 0, 0) Then 
                CAll 退出组队界面()
            End If
        End If
    End If
End Function

wzx王朝夕 · 发表于 2019-10-22 14:35:03

[按键精灵] 纯文本查看 复制代码

//--------------------------------------------
//---------------- 邀请好友 参数 ---------------	
Dim 好友邀请面板,好友组,位置组,选中    
好友邀请面板 = Array(110, 432, 182, 851, "5169DD", "32|-13|AFBFD8,0|231|5FB2F4,23|213|27439B,-22|330|254297,-26|-37|2B2B91,-11|69|AFBFD8")    
// 好友,最近,跨区
好友组 = Array(Array(589, 372, 623, 438, "22272B", "-4|0|87B0E2,-3|-25|9EC7E8,-5|-29|202427,10|-26|8EB4D9,9|3|242A2F"),_
    Array(588, 490, 624, 553, "202427", "-4|0|94BBDA,0|3|98C0DF,12|-1|2C343C,9|21|22272B,5|23|85ADDE,-5|34|252B30"),_	
Array(589, 605, 624, 666, "9EC8E9", "2|9|212529,0|11|80A1C0,-4|21|202427,-7|23|8BB4E6,17|34|262C33"),_
    Array(587,389,628,443),_
    Array(589,488,620,547),_
    Array(587,610,626,666))    
位置组 = Array(Array(503, 594, 543, 639, 480, 453, 509, 555),_
	Array(498, 885, 546, 934, 480, 730, 520, 831),_
	Array(406, 591, 450, 642, 383, 452, 427, 567),_
	Array(403, 886, 447, 934, 385, 743, 422, 864),_
	Array(312, 595, 350, 636, 312, 595, 350, 636),_
	Array(308, 888, 353, 930, 278, 735, 319, 878))	
选中 = Array(位置组(好友位置, 0), 位置组(好友位置, 1), 位置组(好友位置, 2), 位置组(好友位置, 3), "B3CBCB", "7|2|FEFEFC,9|1|BA9832,18|14|A18005,2|19|887711,13|22|FCFDFF")
Function 邀请好友()  //---------- 函数 ---------
    If 是否邀请 = False Then 
        Exit Function
    End If
    Do
        If 区域多点找色(好友邀请面板, false, 0, 0) Then         	
            // 选择相应类型的好友列表
            If 区域多点找色(好友组(好友类型), false, 0, 0) Then             	
                If 区域多点找色(选中, false, 0, 0) Then 
                    TracePrint "点击确认"
                    Call 区域点击(127, 734, 162, 807)
                    Delay 800
                    Exit Do
                Else 
                    TracePrint "选择好友"
                    Call 区域点击(位置组(好友位置, 4), 位置组(好友位置, 5), 位置组(好友位置, 6), 位置组(好友位置, 7)) 
                    Delay 800       			
                End If
            Else 
                TracePrint "选择好友类型"
                Call 区域点击(好友组(好友类型 + 3, 0), 好友组(好友类型 + 3, 1), 好友组(好友类型 + 3, 2), 好友组(好友类型 + 3, 3))
                Delay 800        		
            End If
        Else 
            TracePrint "打开好友邀请"
            Call 区域点击(378, 1040, 552, 1153)
            Delay 3000
        End If
        // 已经进入战斗
        If 区域多点找色(御魂战斗界面_鬼火, false, 0, 0) or 区域多点找色(御魂战斗界面_加成, false, 0, 0)Then 
            Exit Do
        End If
        Delay 200
    Loop
End Function

//--------------------------------------------
//---------------- 御魂战斗 参数 ---------------
//队长邀请
Dim 邀请面板_胜利,邀请面板_失败,默认已选中
邀请面板_胜利 = Array(237, 418, 475, 860, "452788", "-1|233|233B96,-5|277|5FB2F4,47|184|3E4850,49|180|9BB4CC,106|317|282E32,116|300|9BB4CC")
邀请面板_失败 = Array(245,416,451,855,"452788","-22|320|5FB2F4,104|45|3A4249,102|43|97AFC7,99|320|23272B,-38|75|5169DD,103|185|24292C,106|185|9BB3CB,-40|318|5FB2F4")
默认已选中 = Array(337, 535, 385, 585, "FDFAFA", "2|-19|9BB4CC,-18|1|9BB4CC,22|0|9BB4CC,-1|12|C04C3C,-7|-9|9C4131,12|-5|E95D4C") 
// 开始标记式神 , 每层标记 怪
Dim 一层,二层,三层// 检测到每层后就 标记区域 点击2次 
一层 = Array(213, 535, 381, 604, "071167", "9|-13|A5C8E2,135|-21|97C0E2,136|-17|202427,132|10|94BFDE,137|30|202427,140|33|95C0DE,116|6|A3D0EB,161|5|8EB8D8")    
二层 = Array(191, 533, 393, 611, "060D5B", "11|-14|0E1B6E,7|-5|79A7CA,129|-31|9CC4E3,131|-28|202528,155|-12|202427,156|-16|93BEDD,143|15|8DB2CA,175|-6|8EB8D7")    
三层 = Array(198, 522, 388, 611, "071164", "5|0|6593BB,-22|34|0C1875,116|18|93BBD5,102|21|202427,105|42|202427,119|22|202427,123|36|202427,138|22|202427,130|27|96C0E1")
Dim 视角移动
视角移动 = Array(104, 7, 178, 74, "0E1117", "-10|-8|88BCE0,-11|-6|215C8D,12|3|7AB3CB,9|6|3274A3,1|-13|233344,-12|15|465667,14|-13|8394A5")        
Dim 战斗胜利,战斗失败,抽奖按钮,抽奖完毕,战斗准备开始,战斗数据,经验加成
战斗失败 = Array(170,829,246,906,"5881CE","2|-1|3C5FAD,14|4|E8F4F9,-11|36|1837C7,-32|39|EDF5F7") // 强化御魂
抽奖按钮 = Array(86,479,142,556,"CE8A3C","-5|6|DBB5BD,-4|10|0B296E,2|14|44A9DF,8|7|080956,-18|-24|F5D22D")
抽奖完毕 = Array(151, 667, 251, 765, "47CFE7", "-7|8|4DD8EB,-13|4|101762,-16|-5|1A4DA9,-5|-25|192EA8,17|-40|0637B7")
战斗胜利 = Array(475,486,597,658,"2C3DE8","9|-16|A39A90,10|-33|376FA1,35|-67|B5CDDA,31|-4|6AA4C5")
战斗准备开始 = Array(133, 1119, 200, 1215, "2A70C6", "-8|-4|5991D5,-8|-3|C2E0F5,-35|-3|3F7CCC,-18|35|216CC7,-18|31|DCF5FF")//   准备按钮 
战斗数据 = Array(618, 39, 690, 113, "D5F2F2", "27|-3|AF7CF3,12|-13|C8A6EA,15|16|D4EDFD,-15|15|9E8E4C,-22|2|5AA5CE,-20|-16|C4E2EF,-1|-20|18212D,-1|32|0D1C34")    
经验加成 = Array( 40,75,89,472,"28F1F5","0|-8|15CDEA,16|-4|5BEFFA,6|-14|53DEDA,0|-20|DFB498,24|-21|B3772D,19|-27|E9C5A4,30|-28|FAEDDB,30|-6|AC7A41")    
dim 点击范围,准备计数,是否失败
点击范围 = Array(173,1074,411,1182)
准备计数 = 0 

Function 取消自动战斗()
    Dim posX,posY,自动按钮,小纸人,已开启自动,开启过了
    自动按钮 = Array(322, 53, 638, 114, "13242F", "5|8|0E3052,4|2|9ACDEF,10|10|96C8F1,13|10|97CAEC,24|-10|373853,20|-14|A1C6E2,14|13|251E34")    
    小纸人 = Array(290,294,676,401,"E5EDED","27|16|382BB3,15|20|141498,-6|-10|2A2D38,-22|8|976C8B,-10|8|282836,8|-13|F4F4F4,1|14|F1F1E6")
    已开启自动 = Array(343, 55, 614, 109, "94C6EF", "-10|-9|5EAF55,-20|2|62B762,11|-1|493E53,-2|12|67B460,-5|15|62B459,-12|1|67B95E")	
    开启过了 = False
    For 50
        If 区域多点找色(小纸人, false, 0, 0) Then
            //自动按钮 13|78
            TracePrint "点击按钮"
            Call 点击(posX+13,posY+78, 随机(-5, 5))
            Delay 500
            //-29|-22,26|26
            已开启自动 = Array(posX-39,posY-32,posX+36,posY+36,"94C6EF","-10|-9|5EAF55,-20|2|62B762,11|-1|493E53,-2|12|67B460,-5|15|62B459,-12|1|67B95E")
            If 区域多点找色(已开启自动, false, 0, 0) Then 
                TracePrint "已经开启,现在关闭"
                Call 点击(posX+13,posY+78, 随机(-5, 5))
                开启过了 = True
            End If
        ElseIf 区域多点找色(自动按钮, true, 随机(-5, 5), 随机(-5, 5))Then
            TracePrint "找到小纸人"
            Delay 300 
            posX = intX : posY = intY
            //小纸人 -21|234,52|310
            小纸人 = Array(posX - 21, posY + 234, posX + 52, posY + 310, "E5EDED", "27|16|382BB3,15|20|141498,-6|-10|2A2D38,-22|8|976C8B,-10|8|282836,8|-13|F4F4F4,1|14|F1F1E6") 
        End If
        Call 区域多点找色(已开启自动, true, 随机(-5, 5), 随机(-5, 5))
        If 开启过了 and 区域多点找色(自动按钮, false, 0, 0) Then 
            TracePrint "已经关闭自动"
            Exit For
        End If
    Next
	
End Function

wzx王朝夕 · 发表于 2019-10-22 14:36:40

[按键精灵] 纯文本查看 复制代码

Function 御魂战斗()
    // 不在这个界面就直接退出,减少 创建变量
    If (区域多点找色(御魂战斗界面_鬼火, false, 0, 0) or 区域多点找色(御魂战斗界面_加成, false, 0, 0)) = False Then 
        Exit Function
    End If
    Thread.SetShareVar "计时_御魂无关界面", 0
    showM "第"&开车次数&"次御魂"
    
    Dim 色组
    色组 = Array(战斗准备开始, 视角移动, 一层, 二层, 三层, 战斗胜利, 抽奖按钮, 抽奖完毕, 战斗失败, 战斗数据,经验加成, 协作邀请界面, 邀请面板_胜利, 邀请面板_失败)
    
    Do    	
        Select Case 截图找多组色(色组)
        Case 0  // -------------------------------------- 准备
            准备计数 = 准备计数 + 1
            If 准备计数 > 3 Then 
                showM "点击准备" 
                Call 区域点击(138, 1136, 193, 1212)                   	
            End If
        Case 1 // --------------------------------------- 视角归位
            Call 点击(intX, intY, 随机(-10, 10))    		
            showM "视角移动"
            Delay 1000
        Case 2 // --------------------------------------- 标记 集火1
            Delay 500
            showM "一层"
            Call 标记式神(标记位置) //内部有图像识别               
            Call 集火(一层集火, 2) 
        Case 3 // --------------------------------------- 集火2
            showM "二层"
            Delay 500
            Call 集火(二层集火, 2)
            If 开车次数 > 御魂次数 Then 
                Call 取消自动战斗() 
            End If
        Case 4 // --------------------------------------- 集火3
            showM "三层"
            Delay 500
            Call 集火(三层集火, 2)
        Case 5,6,7 // ----------------------------------- 胜利,抽奖,完毕
            Thread.SetShareVar "计时_御魂无关界面",0
            TracePrint("胜利")
            Call 区域点击(点击范围(0), 点击范围(1), 点击范围(2), 点击范围(3))
            Delay 随机(200, 300)
        Case 8 // --------------------------------------- 失败
            showM ("失败")
            Call 区域点击(点击范围(0), 点击范围(1), 点击范围(2), 点击范围(3))
            Delay 随机(200, 300)
        Case 9,10 // --------------------------------------- 战斗数据,经验加成
            showM ("完成")
            Call 区域点击(点击范围(0), 点击范围(1), 点击范围(2), 点击范围(3))
            Delay 随机(200, 300)
        Case 11 // --------------------------------------  协作邀请界面
            Call 点击(intX+35, intY+246, 随机(-10, 10))
        Case 12 // --------------------------------------  邀请面板_胜利
            TracePrint "邀请面板"
            If 区域多点找色(默认已选中, false, 0, 0) Then //有选中勾选肯定是 胜利了
                // 点击确定
                TracePrint "点击确定"
                Call 区域点击(267, 698, 307, 821)
                Delay 200
            Else 
                // 点击选中
                TracePrint "点击选中"
                Call 区域点击(350, 546, 375, 574)
                Delay 400
            End If
        Case 12 // --------------------------------------  邀请面板_失败
            If 失败不邀请 Then 
                TracePrint "点击取消"
                Call 区域点击(273, 482, 302, 566)                    
            Else
                TracePrint "点击确定"
                Call 区域点击(267, 698, 307, 821)
            End If
        End Select
    	   
        // 判读退出 Do --- 找到四个界面 1探索界面 2庭院界面 3组队界面
        If 区域多点找色(庭院界面, false, 0, 0) or 区域多点找色(探索界面, false, 0, 0) or 区域多点找色(队伍中界面, false, 0, 0) Then 
            开车次数 = 开车次数 + 1            
            Exit Do
        End If
        
        Delay 100
    Loop
End Function

//--------------------------------------------
//---------------- 标记式神 参数 ---------------
Dim 标记图标,标记区域
Dim 位置_左1,位置_左2,位置_中间,位置_右2,位置_右1//12345
// 0123--找色位置  , 4567--点击位置
位置_左1 = Array(317, 47, 545, 232, 216, 150, 295, 197)
位置_左2 = Array(295, 301, 477, 449, 191, 370, 276, 414)
位置_中间 = Array(273, 505, 424, 679, 189, 577, 256, 619) // 没用,被第几层挡住,不好用
位置_右2 = Array(250, 735, 473, 918, 165, 802, 262, 850)
位置_右1 = Array(267, 1003, 448, 1151, 169, 1017, 262, 1086)
Function 标记式神(_标记位置)
    Select Case _标记位置
    Case 0
        标记区域 = 位置_左1
    Case 1
        标记区域 = 位置_左2
    Case 2
        标记区域 = 位置_右2
    Case 3
        标记区域 = 位置_右1    
    End Select
    标记图标 = Array(标记区域(0),标记区域(1),标记区域(2),标记区域(3),"0E8FE4","52|-2|529A16,34|-3|7FDA53,84|-23|598C02,86|20|568A03,74|5|5C9504,0|-9|0F86DB") // 血条和 绿色的标记

    If 是否标记 And 区域多点找色(御魂战斗界面_鬼火, false, 0, 0) Then 
        Do
            If 区域多点找色(标记图标, false, 0, 0) Then 
                showM "已经标记了"
                Exit Do
            Else
                Call 区域点击(标记区域(4), 标记区域(5), 标记区域(6), 标记区域(7))
                Delay 随机(500, 600)
            End If
        Loop  
    End If	
End Function

Function 集火(指定, 点击次数)  	
    Dim 左怪,中怪,右怪,集火怪
    
    左怪 = Array(508,318,565,338)      
    中怪 = Array(540,621,590,639)    
    右怪 = Array(512,907,565,929)    
    Select Case 指定 // 0 无
    Case 1 //左
        集火怪 = 左怪
    Case 2 //中
        集火怪 = 中怪        
    Case 3 //右
        集火怪 = 右怪        
    End Select  
    If 是否集火 and 指定 <> 0 Then 
        For 点击次数
            Call 区域点击(集火怪(0), 集火怪(1), 集火怪(2), 集火怪(3))
            Delay 随机(250,600)
        Next
    End If
  	
End Function

Function 关闭加成()
    If 是否已经关闭加成 Then 
        Exit Function
    End If
	
    Dim 御魂加成图标,已开启加成,已关闭加成
    御魂加成图标 = Array(330, 367, 602, 427, "1F4963", "-25|-4|B4BCCC,-18|-1|E6D816,3|-18|D2B718,6|-4|DEF7FE,18|0|939390,-5|18|D8C003") // 只是图标 -35|364  24|390 这个区域搜素是否开启加成	
    If 区域多点找色(庭院界面, false,0,0) Then
        Do
            If 区域多点找色(御魂加成图标, false, 0, 0) Then 
                已开启加成 = Array(intX - 35, intY + 364, intX + 24, intY + 390, "C8D0E0", "0|4|0F7FC7,21|0|C4CCDC,20|4|1D86C4,10|4|0383D6,-6|4|C8D0E0,26|7|C4CCDC")
                已关闭加成 = Array(intX - 35, intY + 364, intX + 24, intY + 390, "3021A1", "1|-4|C8D0E0,22|-4|C4CCDC,20|-1|322298,23|3|3C3BC3,-1|3|2F237E,-5|3|C8D0E0")            
                If 区域多点找色(已开启加成, true, 13 + 随机(-5, 5), 53 + 随机(-25, 25)) Then 
                    Delay 500
                ElseIf 区域多点找色(已关闭加成, false ,0 ,0) Then 
                    showM "已关闭加成"
                    是否已经关闭加成 = True
                    Call 区域点击(149, 954, 472, 1060)
                    Delay 500
//                    Exit Do
                    EndScript
                End If
            ElseIf 区域多点找色(庭院界面, true, 随机(-10, 10), 随机(-10, 10)) Then
                Delay 1000
            End If
        Loop
    Else 
        showM "不在庭院"
    End If
End Function

//--------------------------------------------------------------------------
Dim 界面Array = Array(创建队伍界面,探索界面, 庭院界面, 组队匹配界面, 队伍中界面)

Function 退出组队界面()
    Dim 退出按钮= Array(667,38,694,60)
    Do
        If 区域多点找色(队伍中界面, false, 0 ,0) Then 
            For 3
                If 区域多点找色(确定, true, 随机(-10, 10), 随机(-10, 10)) Then 
                Else 
                    Call 区域点击(退出按钮(0), 退出按钮(1), 退出按钮(2), 退出按钮(3))
                    Delay 500
                End If
            Next  
        End If
        // 不在队伍界面,退出do
        If 区域多点找色(队伍中界面, false, 0, 0) = False Then 
            Delay 2000 // 界面转换
            Exit Do
        End If
        Delay 200
    Loop
End Function

Function 判断开车次数()
    TracePrint "判断开车次数"
    If 次数任务是否完成 = False Then 
        If 开车次数 > 御魂次数 Then 
            showM "已刷够" & 御魂次数 & "次"
            If 回到庭院(判断所处界面(界面Array)) Then 
                次数任务是否完成 =True
                Call 关闭加成()
            End If	
        End If	
    End If
End Function

wzx王朝夕 · 发表于 2019-10-22 14:41:28

[按键精灵] 纯文本查看 复制代码

Function 检测御魂任务相关界面()
    If 超时关闭加成 Then 
        Dim 计时
        计时 = 关闭御魂加成限时 * 60 - Thread.GetShareVar("计时_御魂无关界面")
        If 计时 Mod 15 = 0 Then 
            showM (计时\60)&"分"&(计时 mod 60)&"秒后关闭加成,停止脚本"
        End If
        If Thread.GetShareVar("计时_御魂无关界面") > 关闭御魂加成限时 * 60 Then  
            showM "任务中断或界面卡住"
            Thread.SetShareVar "计时_御魂无关界面", 0
            Call 回到庭院(判断所处界面(界面Array))
            Call 关闭加成()
        End If
    End If
End Function

Function 判断所处界面(界面Arr)
    Dim i=截图找多组色(界面Arr)
    If i > -1 Then 
        判断所处界面 = 界面Arr(i)
    Else 
        判断所处界面 = False
        TracePrint "判断所处界面 - 不知道哪个界面"
    End If
    TracePrint i
End Function

//截图 找到单个的 色组 ,返回序号
Function 截图找多组色(色组)
    截图找多组色 = -1
    KeepCapture
    For i = 0 to UBound(色组)
        If 区域多点找色(色组(i), false, 0, 0) Then 
            截图找多组色 = i
            Exit For
        End If
    Next
    ReleaseCapture
End Function

wzx王朝夕 · 发表于 2019-10-22 14:42:12

[按键精灵] 纯文本查看 复制代码

//------------------ 界面转换 -----------------
// 固定的界面转换操作,会有 时间的堵塞 去等待判断的界面
// 思路 : 将所有单一的界面操作单元化,使用时,直接单元化的操作拼合使用
/*
Function 回到庭院(所在界面)
        
    // 探索界面, 庭院界面, 组队匹配界面,队伍中界面
    Select Case 所在界面
    Case 探索界面
        Call 探索To庭院(5)
    Case 庭院界面
    Case 组队匹配界面
        Call 组队匹配To庭院(5)
    Case 创建队伍界面
        Call 创建队伍To组队匹配(5)
        Call 组队匹配To庭院(5)
    Case 队伍中界面
        Call 退出组队界面()
        Call 回到庭院(界面Array(判断所处界面(界面Array)))
    End Select
End Function*/

Function 回到庭院(所在界面)
    回到庭院 = False
    // 探索界面, 庭院界面, 组队匹配界面,队伍中界面
    Select Case 所在界面
    Case 探索界面
        Call 路线界面转换(Array(探索界面,庭院界面 ))
    Case 庭院界面
    Case 组队匹配界面
        Call 路线界面转换(Array(组队匹配界面,庭院界面 ))
    Case 创建队伍界面
        Call 路线界面转换(Array(创建队伍界面, 组队匹配界面, 庭院界面))
    Case 队伍中界面
        Call 退出组队界面()
        Call 回到庭院(判断所处界面(界面Array))
    Case Else
        TracePrint "不知道在哪个界面"
    End Select
    If 判断所处界面(界面Array) = 庭院界面 Then 
        回到庭院 = True
    End If
End Function

// -----  界面转换 A2B 代表着 当前是处于A界面的 代表着 -------
//------------start 路线界面转换 -----------------
Function 路线界面转换(路线Arr)
    // 没在当前的界面,
    路线界面转换 = -1  
    For i = 0 To UBOUND(路线Arr) - 1
        TracePrint i
        If 区域多点找色(路线Arr(i), false, 0, 0) Then
            Call 界面转换(路线Arr(i), 路线Arr(i + 1))
        Else 
            TracePrint i&"出错le"
        End If
    Next	
End Function

Function 界面转换(A, B)
    Select Case A
    Case 庭院界面
        Call 庭院To其他(B)
    Case 探索界面
        Call 探索To其他(B)
    Case 组队匹配界面
        Call 组队匹配To其他(B)
    Case 创建队伍界面
        Call 创建队伍To其他(B)
    Case 队伍中界面 //  这个有问题
        Call 退出组队界面()
        Call 界面转换(判断所处界面(界面Array), B)        
    End Select
End Function
//------------end 路线界面转换 -----------------
//------------start 单个转换 -----------------
Dim 庭院_组队按钮,庭院_探索灯笼
庭院_组队按钮 = Array(51, 337, 142, 428, "DADDE0", "33|-8|4D74E6,26|-11|362422,-4|19|AF3B76,0|18|AAAAB7,-4|-30|D062B1")
庭院_探索灯笼 = Array(532, 453, 624, 548, "C5FFFF", "6|-4|BCFEFF,8|-3|020A0E,-2|0|031016,18|0|ACEBFD,9|-4|BAFBFF,26|2|010405")
Function 庭院To其他(界面)
    // 组队匹配界面 , 探索界面
    If 区域多点找色(庭院界面 , false, 0, 0) Then 
    	
        Select Case 界面

        Case 组队匹配界面	//----------- go 组队匹配界面
            If 进入界面找色(组队匹配界面, Array(庭院_组队按钮, true, 随机(-10,10),随机(-10,10))) Then 
                TracePrint "庭院界面 go 组队匹配界面"
                庭院To其他 = 1
                Exit Function
            End If
            // For都执行完了,还没进入,是错误的了
            TracePrint "庭院界面 go 组队匹配界面,有错"
            
        Case 探索界面	//----------- go 探索界面
            Call 滑动(200,1152,195,674, 20, 100)
            Delay 300
            Call 滑动(200, 1152, 195, 674, 20, 100)
            Delay 300
            If 进入界面(探索界面, Array(534,470,604,534)) Then 
                TracePrint "庭院界面 go 探索界面"
                庭院To其他 = 1
                Exit Function
            End If
            // For都执行完了,还没进入,是错误的了
            TracePrint "庭院界面 go 探索界面,有错"
            
        Case Else 
            庭院To其他 = 0 //无法到达	
        End Select
    Else 
        庭院To其他 = -1 //不在这个界面
    End If
    
End Function

Function 组队匹配To其他(界面)
    // 创建队伍 , 庭院
    If 区域多点找色(组队匹配界面 , false, 0, 0) Then 
    	 
        Select Case 界面

        Case 创建队伍界面	//----------- go 创建队伍界面
            If 进入界面(创建队伍界面, Array(86, 1035, 111, 1133)) Then 
                TracePrint "组队匹配 go 创建队伍"
                组队匹配To其他 = 1
                Exit Function
            End If
            // For都执行完了,还没进入,是错误的了
            TracePrint "组队匹配 go 创建队伍,有错"
            
        Case 庭院界面	//----------- go 庭院界面
            If 进入界面(庭院界面, Array(670, 37, 693, 69)) Then 
                TracePrint "组队匹配 go 庭院界面"
                组队匹配To其他 = 1
                Exit Function
            End If
            // For都执行完了,还没进入,是错误的了
            TracePrint "组队匹配 go 庭院界面,有错"
            
        Case Else 
            组队匹配To其他 = 0 //无法到达	
        End Select
    Else 
        组队匹配To其他 = -1 //不在这个界面
    End If
    
End Function

Function 创建队伍To其他(界面)
    //   1组队匹配  2队伍中
    If 区域多点找色(创建队伍界面, false, 0, 0) Then 
        Select Case 界面

        Case 组队匹配界面	//----------- go 组队匹配界面
            TracePrint "创建队伍 go 组队匹配界面"
            If 进入界面(组队匹配界面, Array(111, 361, 151, 441)) Then 
                创建队伍To其他 = 1
                Exit Function
            End If
            // For都执行完了,还没进入,是错误的了
            TracePrint "创建队伍 go 组队匹配界面,有错"
            
        Case 队伍中界面	//----------- go 队伍中界面
            If 进入界面(队伍中界面, Array(111,844,145,915)) Then 
                TracePrint "创建队伍 go 队伍中界面"
                创建队伍To其他 = 1
                Exit Function
            End If	
            // For都执行完了,还没进入,是错误的了
            TracePrint "创建队伍 go 队伍中界面,有错"
            
        Case Else 
            创建队伍To其他 = 0 //无法到达	
        End Select
    Else 
        创建队伍To其他 = -1 //不在这个界面
    End If
	
End Function

Function 探索To其他(界面)
    // 创建队伍 , 庭院
    If 区域多点找色(探索界面 , false, 0, 0) Then 
    	 
        Select Case 界面

        Case 庭院界面	//----------- go 庭院界面
            If 进入界面(庭院界面, Array(670, 37, 693, 69)) Then 
                TracePrint "探索 go 庭院界面" 
                探索To其他 = 1
                Exit Function
            End If
            // For都执行完了,还没进入,是错误的了
            TracePrint "go 庭院界面,有错"
            
        Case Else 
            探索To其他 = 0 //无法到达	
        End Select
    Else 
        探索To其他 = -1 //不在这个界面
    End If
    
End Function
//------------end 单个转换 -----------------

wzx王朝夕 · 发表于 2019-10-22 14:43:21

[按键精灵] 纯文本查看 复制代码

//------------start 界面基类方法 -----------------
Function 进入界面(要进入的界面,点击区域)
    进入界面 = False
    For 5
        Call 区域点击(点击区域(0),点击区域(1),点击区域(2),点击区域(3))
        If 是否进入该界面(要进入的界面, 5) Then 
            进入界面 = True
            Exit For
        End If
    Next	
End Function

Function 进入界面找色(要进入的界面,找色obj)
    进入界面找色 = False
    For 5
        If 区域多点找色(找色obj(0), 找色obj(1), 找色obj(2), 找色obj(3)) Then 
            If 是否进入该界面(要进入的界面, 4) Then 
                进入界面找色 = 1
                Exit For
            End If
        Else 
            TracePrint "没有找到色"
        End If
    Next	
End Function

Function 是否进入该界面(界面,时间)
    是否进入该界面 = False	
    For 时间*8
        If 区域多点找色(界面, False, 0, 0) Then 
            是否进入该界面 = True
            Exit For
        End If
        Delay 100
    Next
End Function
//------------end 界面基类方法 -----------------
// --------------- start 线程函数 -------------
Function 线程_全局到计时()
    Dim 倒计时,计时,temp
    倒计时 = Array("倒计时_御魂邀请")
    计时 = Array("计时_御魂无关界面","计时_接受邀请显示")
    temp = 0
    Do
        For Each item in 倒计时
            temp = Thread.GetShareVar(item) - 1
            If temp < 0 Then 
                temp = 0
            End If
            Thread.SetShareVar item, temp
        Next
        For Each item in 计时
            temp = Thread.GetShareVar(item) + 1
            Thread.SetShareVar item, temp
        Next	
        Delay 1000
    Loop
End Function

Function 线程_突发事件()
    Dim 协作邀请界面
    协作邀请界面 = Array(525, 512, 568, 562, "070B1E", "3|-2|31B5EF,-16|-10|3748E0,-14|-10|00000F,-20|-18|7088A6,6|9|35BAFF")//协作字
    Do
        If 区域多点找色(协作邀请界面, true, 35 + 随机(-5, 5), 246 + 随机(-5, 5)) Then //35|247
            showM "关闭协作邀请"
        End If
        Delay 1000
    Loop
End Function
// --------------- end 线程函数 -------------
//**********************************************************  ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑


//-------------------------------------------------------------------------------
//-------------------------------  主函数  ---------------------------------------

Call 中心函数()
//Call 回到庭院(判断所处界面(界面Array))
//Call 路线界面转换(Array(庭院界面,组队匹配界面,创建队伍界面,组队匹配界面,庭院界面,探索界面, 庭院界面, 组队匹配界面,队伍中界面))
//Call 路线界面转换(Array(庭院界面,探索界面))
Function 中心函数()
    Dim 计数
    计数 = 0
    Log.Open 
    ShowMessage "司机需要创建好队伍后,在开启脚本!", 5
    Delay 5000
    Do
        Call _御魂()
        Delay 100    
        If 计数 > 40 Then 
            计数 = 0     
            // 检测线程的状态
            状态 = zm.ThreadStatus(时间线程)
            If 状态 = "error" or 状态 = "cancelled" Then 
                TracePrint "时间线程"&状态
                时间线程 = Thread.Start(线程_全局到计时)
            End If
            状态 = zm.ThreadStatus(突发线程)
            If 状态 = "error" or 状态 = "cancelled" Then 
                TracePrint "突发线程"&状态
                突发线程 = Thread.Start(线程_全局到计时)
            End If
        End If
        计数 = 计数 + 1   
    Loop
End Function

//**************************  基本函数  *********************** ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓  
Function 区域多点找色(参数, 是否单击, offsetX, offsetY)
    区域多点找色 = false
    FindMultiColor(参数(0), 参数(1), 参数(2), 参数(3), 参数(4), 参数(5), 0, 0.9, intX, intY)
    If intX > -1 Then 
        If 是否单击 = true Then         	
            Delay 100 
            Call 点击(intX + offsetX, intY + offsetY, 6)            
        End If
        区域多点找色 = true
    End If
    Delay 20
End Function

Function 区域找图(参数, 是否单击, offsetX, offsetY)
    区域找图 = false
    FindPic (参数(0), 参数(1), 参数(2), 参数(3), 参数(4), "000000", 0, 0.9, intX, intY)
    If intX > -1 Then 
        If 是否单击 = true Then         	
            Delay 100 
            Call 点击(intX + offsetX, intY + offsetY, 6)            
        End If
        区域找图 = true
    End If
End Function

Sub 点击(x, y, offt)
    Dim t
    x = x + 随机(-offt, offt)    
    y = y + 随机(-offt, offt) 
    t = 随机(80, 120)    
    Touch x, y, t
End Sub

Sub 区域点击(x1, y1, x2, y2)
    Dim x,y,t     
    x = 随机(x1, x2)    
    y = 随机(y1, y2)
    t = 随机(80, 120)    
    Touch x, y, t
End Sub

Function 随机(min, max)
    随机 = Int((max - min) * Rnd() + min)	
End Function

Sub showM(信息)
    TracePrint 信息
    ShowMessage 信息,1000
End Sub

Sub 滑动(x1, y1, x2, y2, 随机度, 时间)
    Dim dx,dy,x,y,t,分段数
    分段数 = 2
    
    dx = (x2 - x1) / 分段数
    dy = (y2 - y1) / 分段数
    t = 时间 / 分段数
    
    x = x1+ 随机(-随机度 / 2, 随机度 / 2)   		
    y = y1+ 随机(-随机度 / 2, 随机度 / 2)   
    TouchDown x, y, -123    
    Delay 随机(20, 50)    	
    For i = 1 To 分段数
        x = x1 + dx * i + 随机(-随机度 / 2, 随机度 / 2)   		
        y = y1 + dy * i + 随机(-随机度 / 2, 随机度 / 2)   	
        TouchMove x, y, -123, t   		
    Next
    Delay 随机(20, 50)
    TouchUp -123      
End Sub
//**********************************************************  ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑

紫猫 · 发表于 2019-10-23 09:13:25

感谢分享

saywe001 · 发表于 2020-1-22 12:42:16

感谢楼主分享啊谢谢啊

q315767552 · 发表于 2020-12-8 20:57:57

很给力!

		自动登录	找回密码
密码			立即注册

[教程源码] [阴阳师]半自动御魂脚本

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。