- 初中三年级
- 4142060
- 421
- 0
- 60 朵
- 5020 个
- -6 个
- 17200
- 2016-10-01
|
1#
t
T
发表于 2017-04-21 04:04
|
|只看楼主
版本:王者冒险【V2.0】作者:国王陛下(转载请声明!) ①请下载源码文件文档(源码已打包): ②辅助下载(目标apk文件): http://bbs.anjian.com/showtopic-651686-1.aspx③辅助教程(目标apk文件): http://bbs.anjian.com/showtopic-664249-1.aspx- //脚本名:[秦国陛下]王者荣耀冒险(开源码)
- //作者:国王陛下
- //QQ:595836434
- //(转载请声明!)
- //*****************************
- //创作不易,求鼓励(1毛也行啊)**
- //①截一张图片②选择从相册里扫描*
- //*****************************
- //更多辅助&源码下载:
- //===以下是函数功能==========
- Function 时间_延迟(时间)
- Delay 时间
- End Function
- Function 时间_倒计时(提示,延时)
- Dim i=延时
- For 延时
- 消息框和调试(提示&i)
- Delay 1000
- i=i-1
- Next
- End Function
- Function 消息框和调试(提示)
- ShowMessage 提示, 0, 0, 960*(GetScreenY()/960)
- TracePrint 提示
- End Function
- Function 设备_截屏(时间)
- ReleaseCapture:Delay 时间:KeepCapture
- End Function
- Function 触摸_点(x,y)
- Tap x, y
- Delay 10
- End Function
- Function 触摸_点击(x,y)
- TouchDown x, y, 1
- Delay 100
- TouchUp 1
- End Function
- Function 随机数(M,X)
- Dim MyValue
- Randomize //随机数种子
- MyValue = Int(((M-X+1) * Rnd()) + X)
- 随机数= MyValue
- End Function
- Function 触摸_随机点(x,y,x1,y1)
- Dim x范围 = 随机数(x1,x)
- Dim y范围 = 随机数(y1,y)
- 触摸_点 x范围, y范围
- End Function
- Function 触摸_随机点击(x,y,x1,y1)
- Dim x范围 = 随机数(x1,x)
- Dim y范围 = 随机数(y1,y)
- 触摸_点击 x范围, y范围
- End Function
- //几秒:点A到 点B的时长
- Function 滑动_普通(x, y, x1, y1, 毫秒)
- TouchDown x,y, 1
- Delay 100
- TouchMove x1, y1, 1, 毫秒
- Delay 100
- TouchUp 1
- End Function
- //返回:bool
- //数组参数:下标0:比色颜色。下标1:相似度
- Function 颜色_多点比色arr(颜色)
- If CmpColorEx(颜色(0),颜色(1)) = 1 Then
- 颜色_多点比色arr=true
- Else
- 颜色_多点比色arr=false
- End If
- End Function
- //返回:bool。参数:数组型[下标:6]。
- //参数说明:0~3找色的区域。4第一颜色。5颜色偏差。6相似度
- Function 颜色_区域找色arr(颜色)
- Dim IntX,IntY
- FindMultiColor 颜色(0),颜色(1),颜色(2),颜色(3),颜色(4),颜色(5),0,颜色(6),intX,intY
- If intX > -1 Then
- 颜色_区域找色arr=true
- Else
- 颜色_区域找色arr=false
- End If
- End Function
- //返回:bool。参数:数组型。
- //参数说明:0~3点击区域坐标。4相似度。5提示。6延迟。7比色的颜色
- Function 颜色_多点比色随机点击arr(颜色)
- 颜色_多点比色随机点击arr = false
- if CmpColorEx(颜色(7),颜色(4)) =1 then
- 触摸_随机点(颜色(0),颜色(1),颜色(2),颜色(3))
- If 颜色(5)<> "" Then
- 消息框和调试 (颜色(5))
- End If
- Delay 颜色(6)
- 颜色_多点比色随机点击arr=true
- End If
- End Function
- //===以上是函数功能==========
- //======================冒险功能===========================↓
- Function 冒险特征_选地图(类图,难度,地图)
- //滑动:点a:380,200 点b:120,200
- //类图:362,146,421,228 隔:134
- //难度:394,795,410,823 隔:104
- //地图:414,449,427,505 隔:55
- If 类图 = 3 Then //用户选4类图时
- 滑动_普通 120, 242, 390, 243, 200 //往上滑动
- 类图 = 2 //初始化第三类图
- Else
- 滑动_普通 380, 200, 120, 200,200 //往下滑动
- End If
- 时间_延迟 500
- 类图 = 类图 * 134
- 触摸_随机点 362 - 类图, 146, 421 - 类图, 228
- 时间_延迟 200
- 难度 = 难度 * 104
- 触摸_随机点 394 - 难度,795,410 - 难度,823
- 时间_延迟 200
- 地图 = 地图 * 55
- 触摸_随机点 414 - 地图,449,427 - 地图,505
- End Function
- Function 冒险上限执行()
- Dim 用户选择 = Int(ReadUIConfig("下拉框_上限操作",0))
- Select Case 用户选择
- Case 0 //关闭辅助
- 时间_倒计时("金币上限!"&chr(10)&"关闭辅助",10)
- EndScript
-
- Case 1 //退出游戏,关辅
- 时间_倒计时("金币上限!"&chr(10)&"退游关辅",10)
- KillApp "com.tencent.tmgp.sgame"//关闭游戏
- EndScript
-
- Case 2 //退游,关辅,息屏
- 时间_倒计时("金币上限!"&chr(10)&"退游关辅,息屏",10)
- KillApp "com.tencent.tmgp.sgame"//关闭游戏
- KeyPress "Power"//息屏
- EndScript
-
- End Select
- End Function
- Function 逻辑线程_冒险挑战()
- Dim x = 0,y = 0
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Do
- Dim 冒险找色 = Thread.GetShareVar("局部变量_冒险挑战颜色")
- Select Case 冒险找色
- Case "主界面颜色"
- 触摸_随机点 160,766,209,836 //选择冒险模式
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "冒险页面颜色"
- 触摸_随机点 164, 438, 237, 554
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "闯关颜色"
- 触摸_随机点 66,706,94,784
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "页面人物没满颜色"
- 触摸_随机点 69,539,95,613
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "选人未满颜色"
- 触摸_随机点 257,214,282,235//打开英雄表
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "选人表颜色"
- //横距离100,纵100
- //第一英雄坐标:400,30,430,60
- 触摸_随机点 400 - x * 100, 30 + y * 100, 430 - x * 100, 60 + y * 100
- y = y + 1
- If y >= 8 Then
- y = 0
- x = x + 1
- If x >= 5 Then
- x = 0
- y = 0
- 消息框和调试 "人物已完!"
- End If
- End If
- 消息框和调试 ("第"&1+y+x*8&"个英雄!")
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "选人确定颜色"
- 触摸_随机点 17, 853, 42, 904
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "自动颜色"
- 触摸_随机点 514, 887, 526, 907
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "胜利颜色"
- 触摸_随机点 16,412,47,555 //点任意点击屏幕
- 时间_延迟 200
- 触摸_随机点 16,412,47,555 //点任意点击屏幕
- 时间_延迟 4000
-
- Thread.SetShareVar "全局数组_胜次数",Thread.GetShareVar("全局数组_胜次数") + 1
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "失败颜色"
- 触摸_随机点 33,433,67,524 //点击返回
- 时间_延迟 4000
- Thread.SetShareVar "全局数组_败次数",Thread.GetShareVar("全局数组_败次数") + 1
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "胜利奖励颜色"
- 触摸_随机点 59,456,82,506
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- Case "再来一次颜色"
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
-
- End Select
- 时间_延迟 500
- Loop
- End Function
- Function 冒险挑战_内部广告()
- Dim 子程序_相似度 = 0.9
- Dim 冒险跳过红色 = Array(505,861,519,928,子程序_相似度,"跳过红",1000,"490|856|0E59CB-101010,504|944|1574CE-101010,508|925|158DE5-101010,526|905|41F1F8-101010,520|901|1DAAEB-101010")
- Dim 冒险跳过白色 = Array(498,871,519,921,子程序_相似度,"跳过白",1000,"489|879|F5DF45-101010,504|879|F9F0E2-101010,500|904|FFFFFF-101010,523|943|FDDB5B-101010,504|936|AF6D32-101010")
- Dim 满星奖励 = Array(383,714,405,733,子程序_相似度,"满星奖励",1000,"392|419|B7821B-101010,394|723|E7C532-101010,388|761|291811-101010,367|745|F9C727-101010")
- Dim 提示框_健康系统 = Array("351|467|4D1D2D-101010,346|720|682747-101010,131|625|1E4587-101010,83|594|2E0D14-101010,156|670|4E23B9-101010",子程序_相似度)
-
- 设备_截屏(100)
- If 颜色_多点比色随机点击arr (冒险跳过白色) Then
- ElseIf 颜色_多点比色随机点击arr(冒险跳过红色) Then
- ElseIf 颜色_多点比色随机点击arr(满星奖励) Then
- ElseIf 颜色_多点比色arr(提示框_健康系统) Then
- 消息框和调试("健康系统_内")
- 触摸_随机点 149,594,169,647
- End If
- End Function
- Function 循环找色_冒险挑战()
- Dim 子程序_相似度 = 0.9
- Dim 超时_计时 = 0
- Dim 主界面颜色 = Array("508|427|0220D6-101010,520|525|FDF7FC-101010,523|624|D8B186-101010,515|708|FFFFFE-101010,525|715|99600E-101010,499|682|291816-101010",子程序_相似度)
- Dim 冒险页面颜色 = Array("526|57|E3CE0E-101010,391|478|E9D8B7-101010,149|485|B8946E-101010,159|470|E69191-101010,515|114|DBB02C-101010",子程序_相似度)
- Dim 选图页面颜色 = Array("504|49|ECC21D-101010,510|54|2C1B12-101010,525|160|FFFFFF-101010,523|199|FFFFFF-101010,518|242|261B14-101010",子程序_相似度)
- Dim 下一步颜色 = Array("47|742|B57332-101010,63|781|FFFFFF-101010,49|804|D49932-101010,59|829|FFFFFF-101010,62|853|C48238-101010",子程序_相似度)
- Dim 闯关颜色 = Array("71|678|1C82D7-101010,79|709|FFFFFF-101010,86|732|29A3E6-101010,90|748|FFFFFF-101010,80|782|2287D7-101010",子程序_相似度)
- Dim 页面人物没满颜色 = Array("513|55|291812-101010,527|283|FEFEFE-101010,199|770|2C1A0D-101010,194|775|2B180D-101010,82|509|C58439-101010,83|617|BE7A35-101010",子程序_相似度)
- Dim 选人主页颜色 = Array("511|15|BA9115-101010,512|78|BA9115-101010,513|118|332323-101010,517|827|4C2B23-101010,487|810|000674-101010",子程序_相似度)
- Dim 选人未满颜色 = Array("487|809|000674-101010,457|814|FDC427-101010,288|821|EAB025-101010,298|883|C87D1A-101010,275|889|3A3333-101010",子程序_相似度)
- Dim 选人表颜色 = Array("487|809|000674-101010,462|809|FFD833-101010,378|813|FEBC28-101010,284|827|E9AF23-101010,286|813|442B23-101010",子程序_相似度)
- Dim 选人满颜色 = Array("313|905|FFFFFE-101010,313|897|1C0B8B-101010,313|913|1C0B8B-101010,305|906|17087F-101010,370|811|FECD30-101010",子程序_相似度)
- Dim 选人确定颜色 = Array("520|806|4C2B23-101010,499|810|EFEFEF-101010,486|809|00066E-101010,30|840|2498E2-101010,33|923|248EDA-101010",子程序_相似度)
-
- Dim 自动颜色 = Array("511|886|E8B52D-101010,519|885|FFFFFE-101010,520|883|654A07-101010,529|906|805F0D-101010,525|948|E9AF5C-101010",子程序_相似度)
- Dim 新自动颜色 = Array("511|884|E7B42C-101010,519|884|FFFFFC-101010,521|882|654A09-101010,512|902|DEB531-101010,506|896|CD9B25-101010",子程序_相似度)
- Dim 自动已开启颜色 = Array("500|881|9E5C1A-101010,534|880|9B5A19-101010,535|914|995919-101010,501|915|9E5C1A-101010",子程序_相似度)
- Dim 胜利颜色 = Array("471|702|234C7D-101010,418|685|4689CD-101010,34|416|FFFFFF-101010,35|461|FFFFFF-101010,38|541|FFFFFF-101010",子程序_相似度)
- Dim 失败颜色 = Array("458|419|D1D1D1-101010,454|460|CACACA-101010,431|542|999999-101010,51|443|1B9CE6-101010,55|467|FFFFFF-101010",子程序_相似度)
- Dim 再来一次颜色 = Array("441|504|2774BF-101010,441|601|8195CB-101010,227|513|1032E1-101010,228|522|63EFFE-101010,465|499|FFFFFF-101010",子程序_相似度)
- Dim 金币上限颜色_模拟器 = Array("235|714|CEECEE-101010,226|738|CEECEE-101010,238|731|CEECEE-101010,250|744|CEECEE-101010,241|750|CEECEE-101010,236|833|E5DED0-101010,238|898|ECE5D5-101010",子程序_相似度)
- Dim 金币上限颜色_手机 = Array("235|714|CCEDEB-101010,226|738|CFEDEE-101010,238|731|CFEEEE-101010,250|744|CCEBED-101010,241|750|CEEEEE-101010,230|875|120C04-101010,235|912|AEAA9B-101010",子程序_相似度)
- Dim 胜利奖励颜色 = Array("61|421|2688D8-101010,77|461|FFFFFF-101010,77|491|FFFFFF-101010,75|507|38A8E7-101010,61|540|2584D3-101010",子程序_相似度)
-
- Dim 返回键颜色 = Array(500, 32, 527, 71,子程序_相似度,"返回键",1000,"505|7|291811-101010,497|41|A76201-101010,503|47|E7B71A-101010,507|69|EAC428-101010,511|89|241410-101010")
-
- Thread.SetShareVar("局部变量_冒险挑战颜色","")
- Dim 冒险线程ID = Thread.Start(逻辑线程_冒险挑战)
- Do
- 设备_截屏(100)
- If 颜色_多点比色arr(主界面颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "主界面颜色"
- 消息框和调试 "主界面颜色"
- 时间_延迟 1000
-
- ElseIf 颜色_多点比色arr(冒险页面颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "冒险页面颜色"
- 消息框和调试 "冒险页面颜色"
-
- ElseIf 颜色_多点比色arr(选图页面颜色) Then
- Dim 冒险模式用户 = Thread.GetShareVar("冒险模式用户")
- Select Case 冒险模式用户
- Case 0
- //指定卡关
- Dim 类图 = Int(ReadUIConfig("下拉框_地图类",0))
- Dim 难度 = Int(ReadUIConfig("下拉框_地图难度",0))
- Dim 地图 = Int(ReadUIConfig("下拉框_地图图", 0))
- 冒险特征_选地图(类图,难度,地图)
- Case 1
- //最新卡关
- //冒险选图_最新卡关
- Case 2
- //随机卡关
- //Dim 类图_随机 = 随机数(3,0)
- //Dim 难度_随机 = 随机数(2,0)
- //Dim 地图_随机 = 随机数(3,0)
- //冒险特征_选地图(类图_随机,难度_随机,地图_随机)
- End Select
- 触摸_随机点 38, 764, 60, 810 //下一步
- 时间_延迟 3000
-
- ElseIf 颜色_多点比色arr(闯关颜色) Then //这里需要找没满人 则选人
- If 颜色_多点比色arr(页面人物没满颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "页面人物没满颜色"
- 消息框和调试 "页面人物没满颜色"
- Else
- Thread.SetShareVar "局部变量_冒险挑战颜色", "闯关颜色"
- 消息框和调试 "闯关颜色"
- End If
-
- ElseIf 颜色_多点比色arr(选人主页颜色) Then//进入选人页面
- Thread.SetShareVar "局部变量_冒险挑战颜色", "选人主页颜色"
- //Dim t = TickCount()
- Do
- //If 时间_计时(t, 120000, true) Then //超时无条件退出do
- // Exit Do
- //End If
- 设备_截屏(100)
- If 颜色_多点比色arr(选人未满颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "选人未满颜色"
- 消息框和调试 "选人未满颜色"
- 时间_延迟 1000
- ElseIf 颜色_多点比色arr(选人满颜色) Then//人满时,找确定
- 设备_截屏(100)
- If 颜色_多点比色arr(选人确定颜色) Then
- 消息框和调试 "选人确定颜色"
- Thread.SetShareVar "局部变量_冒险挑战颜色", "选人确定颜色"
- 时间_延迟 2000
- Exit Do
- End If
- ElseIf 颜色_多点比色arr(选人表颜色) Then
- 消息框和调试 "选人表颜色"
- Thread.SetShareVar "局部变量_冒险挑战颜色", "选人表颜色"
- 时间_延迟 1000
- End If
- 时间_延迟 500
- Loop
-
- ElseIf 颜色_多点比色arr(自动颜色) And 颜色_多点比色arr(自动已开启颜色) = False Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "自动颜色"
- 消息框和调试 "自动颜色"
-
- ElseIf 颜色_多点比色arr(新自动颜色) And 颜色_多点比色arr(自动已开启颜色) = False Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "自动颜色"
- 消息框和调试 "新自动颜色"
-
- ElseIf 颜色_多点比色arr(胜利颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "胜利颜色"
- 消息框和调试 "胜利颜色"
-
- ElseIf 颜色_多点比色arr(失败颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "失败颜色"
- 消息框和调试 "失败颜色"
-
- ElseIf 颜色_多点比色arr(再来一次颜色) Then
- 时间_延迟 1000
- If ReadUIConfig("多选框_金币上限", true) Then
- 设备_截屏(100)
- If 颜色_多点比色arr(金币上限颜色_模拟器) Then //金币上限
- TracePrint "金币上限_模拟器"
- 冒险上限执行
- ElseIf 颜色_多点比色arr(金币上限颜色_手机) Then
- TracePrint "金币上限_手机"
- 冒险上限执行
- End If
- End If
-
- //次数到了
- Dim 用户人机次数 = Thread.GetShareVar("全局_用户冒险次数")
- Dim 人机已执行次数 = Thread.GetShareVar("全局数组_胜次数")+ Thread.GetShareVar("全局数组_败次数")
- If 人机已执行次数 >= 用户人机次数 And 用户人机次数 <> 0 Then
- ShowMessage ("胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数"),0,0,960*(GetScreenY()/960))
- TracePrint "胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数")
- 时间_倒计时 "已完成相应次数!" & Chr(10) & "即将关闭", 10
- EndScript
- End If
-
- //几局休息
- Dim 用户确定休息 = ReadUIConfig("多选框_冒险休息")
- Dim 用户几局休息 = Int(ReadUIConfig("输入框_冒险休息_次"))
- Dim 用户休息时间 = Int(ReadUIConfig("输入框_冒险休息_分钟"))
- If 用户确定休息 Then
- Dim 次数转换 = Int(Thread.GetShareVar("全局数组_按次数休息"))
- If 次数转换 >= 用户几局休息 Then
- Thread.SetShareVar("全局数组_按次数休息",0)//初始0
- 时间_倒计时("冒险休息"&用户休息时间&"分钟:",用户休息时间*60)
- End If
- Thread.SetShareVar("全局数组_按次数休息",Thread.GetShareVar("全局数组_按次数休息") + 1 )
- End If
-
- Dim 冒险用户卡关选择 = ReadUIConfig("下拉框_冒险模式",0)
- If 冒险用户卡关选择 = 0 Then
- 触摸_随机点 35,686,59,767 //点击再来一次
- Else
- 触摸_随机点 40,530,65,583 //点击返回
- End If
- Thread.SetShareVar "局部变量_冒险挑战颜色", "再来一次颜色"
- 消息框和调试 "再来一次颜色"
- 时间_延迟 7000
-
- ElseIf 颜色_多点比色arr(胜利奖励颜色) Then
- Thread.SetShareVar "局部变量_冒险挑战颜色", "胜利奖励颜色"
- 消息框和调试 "胜利奖励颜色"
-
- Else
- Thread.SetShareVar "局部变量_冒险挑战颜色", ""
- 冒险挑战_内部广告
- ShowMessage ("胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数"),0,0,960*(GetScreenY()/960))
-
- End If
-
- If Thread.GetShareVar("局部变量_冒险挑战颜色") = "" Then
- 超时_计时 = 超时_计时 + 1
- If 超时_计时 >= 6 Then
- 超时_计时 = 0
- 设备_截屏 (100)
- Do While 颜色_多点比色随机点击arr(返回键颜色)
- 设备_截屏 (100)
- 时间_延迟 1000
- Loop
- //王者_游内启动游戏()
- End If
- Else
- 超时_计时 = 0
- End If
- 时间_延迟 1000
- Loop
-
- Thread.Start (冒险线程ID)
- End Function
- //======================冒险功能===========================↑
- //主程序虚构
- Function OnScriptExit()
- ResetScreenScale //释放分频率
- End Function
- //①建议你把下面的分类,然后包装到函数里;
- //②现在下面零零散散的,不好阅读;
- //③写的时候想偷懒一下,呵呵,平时不是这样写的,这样对部分人好理解!
- Function UI初始化()
- SetScreenScale 540,960 //设置开发分频率
- For 3 //提示内容
- 消息框和调试 ("欢迎使用!秦国王者" & Chr(10) & GetScreenX() & "*" & GetScreenY())
- 时间_延迟 1000
- Next
- //界面设置初始化
- Thread.SetShareVar "全局_主模式", CInt(ReadUIConfig("下拉框_主模式", 0))
- Thread.SetShareVar "冒险模式用户", CInt(ReadUIConfig("下拉框_冒险模式", 0))
- Thread.SetShareVar "全局_用户冒险次数", CInt(ReadUIConfig("输入框_挑战次数", 0))
- End Function
- Function 主函数()
- Select Case Thread.GetShareVar("全局_主模式")
- Case 0
- //冒险
- For 2
- 消息框和调试 "正在执行-冒险模式"
- 时间_延迟 1000
- Next
- 循环找色_冒险挑战
- End Select
- End Function
- //全局变量
- Thread.SetShareVar("全局数组_胜次数",0)
- Thread.SetShareVar("全局数组_败次数",0)
- Thread.SetShareVar "全局数组_按次数休息", 0
- //代码执行入口
- UI初始化:主函数()
复制代码 创作不易,求鼓励(1毛也行啊) - 您所在的用户组无法下载或查看附件
 - 您所在的用户组无法下载或查看附件
|