//我是在剑侠情缘129级使用的，按键精灵脚本。不做解释，自己拿去参考吧。
Dim anquanX,anquanY,guaji=0,week=DateTime.WeekDay(),qhb=Thread.Start(抢红包)
Call 挂机()
Rem 监测任务
Dim sj=DateTime.hour()&DateTime.Minute()
Select Case sj
Case "430"//4:30家族捐献
Call 家族捐献()
Case "60"
Thread.Stop(qhb)//关闭抢红包
Call 退出队伍()
Call 英雄挑战()
Call 武神殿()
Call 商会任务()
Call 打坐冥想()
Call 战龙任务()
Call 门客任务()
qhb = Thread.Start(抢红包)//开启抢红包
Call 挂机()
Case "1228","1928"//盟主两场-提前回安全区，后面有检查时间
Call 武林盟主()
Call 挂机()
Case "1625"//心魔14:25
If week = 2 or week = 4 or week= 6 Then
Call 心魔()
Call 挂机()
End If
Case "1630"//宋金16:30-16:50
Call 宋金()
Call 挂机()
Case "170"//白虎时间17:00
If week = 2 or week = 4 or week = 6 or week = 7 Then
Call 白虎堂()
Call 挂机()
End If
Case "1913"
Call 家族烤火()
Case "1950"
If week = 1 or week = 3 Then
Call 遗迹寻宝()
Call 挂机()
End If
Case "2030"
If week = 1 Then
Call 灰谷矿脉()
Call 挂机()
ElseIf week = 3 Then
//粮秣行()
End If
Case "2059"
If week = 1 Then
Call 门派竞技()
Call 挂机()
ElseIf week=3 Then
Call 通天()
Call 挂机()
ElseIf week=4 Then
Call 群英会()
Call 挂机()
ElseIf week = 5 Then
Call 周五九点活动()
Call 挂机()
ElseIf week=7 Then
Call 攻城战()
Call 挂机()
End If
Case "2129"
If (week = 1 or week = 3 or week = 5 or week = 7) And DateTime.Day() > 6 And DateTime.Day() < 27 Then
Call 华山论剑()
Call 挂机()
End If
Case "2157"
If week = 1 or week = 2 or week = 3 or week = 5 or week = 6 Then
Call 名将()
Call 挂机()
ElseIf week = 4 Then
Call 始皇活动()
Call 挂机()
End If
Case "2259"
If week = 7 Then
Call 通天()
Call 挂机()
End If
Case Else
ShowMessage guaji&","&week&","&sj&DateTime.Second(),1,20,30
End Select
Delay 500
Goto 监测任务
//////////////////////////////////////////////抢红包/////////////////////
Sub 抢红包()
Dim qhbx,qhby,i=0
Rem 抢红包
ShowMessage "抢红包-已开启"
Do//288,744
FindMultiColor 258,718,390,825,"1B2DA0-101010","0|64|1B2B9C-101010,56|0|2C40DB-101010,46|32|314AF8-101010,56|64|2A37D7-101010,0|30|73CCF8-101010,78|45|2A39CB-101010,2|67|172A99-101010",0,0.9,qhbx,qhby
If qhbx > -1 And qhby > -1 Then
ShowMessage "发现红包"
Tap qhbx, qhby + 30
Delay 500
Tap qhbx, qhby
Delay 1000
Tap 640, 130
Delay 500
Tap 640, 130
End If
Loop Until i=1
End Sub
//////////////////////////////////////////////抢红包-结束/////////////////////
//////////////////////////////////////////////家族捐献/////////////////////
Sub 家族捐献()
Do
ShowMessage "准备家族捐献"
Delay 5000
Loop Until DateTime.Second() > 50
Dim i=0
Rem 家族捐献
Delay 1000
If CmpColorEx("60|955|622EC2-101010,60|1044|C4E3FF-101010,60|1140|2822B1-101010,60|1225|E8C256-101010",0.9) = 1 Then
Tap 45, 960
Delay 3000
Tap 275, 1220
Delay 1000
Tap 320, 988
Delay 2000
Tap 530, 1060
Delay 2000
Tap 210, 780
ShowMessage "家族捐献"
KeyPress "Back"
Delay 500
KeyPress "Back"
Delay 500
KeyPress "Back"
Else
If i > 3 Then
Goto 结束家族捐献
End If
i=i+1
Tap 400, 1230
ShowMessage "切换图标"
Goto 家族捐献
End If
Delay 1000
Rem 结束家族捐献
Call 验证并关闭系统提示()
End Sub
//////////////////////////////////////////////家族捐献-结束/////////////////////
//////////////////////////////////////////////挂机/////////////////////
Sub 挂机()
ShowMessage "准备挂机"
Delay 1000
Call 验证并打开江湖地图()
Call 挂机地图定位()
Call 验证并打开自动技能()
Call 进入附近队伍(0)
guaji=1
End Sub
Sub 挂机地图定位()
ShowMessage "挂机地图为居延泽"
Tap 355, 400//居延泽-江湖地图坐标------------需明确
Call 切图()
Call 验证并打开小地图()
Tap 430, 850//居延泽-挂机点位------------需明确
ShowMessage "定位挂机点"
Delay 3000
KeyPress "Back"
Delay 5000
End Sub
//////////////////////////////////////////////挂机-结束/////////////////////
//////////////////////////////////////////////22点始皇/////////////////////
Sub 始皇活动()
ShowMessage "准备始皇活动"
Delay 1000
Call 返回襄阳城()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 3000
Tap 585, 250
Delay 2000
Tap 370, 750
Delay 1000
Tap 270, 760
Delay 120000
Call 验证并打开小地图()
Tap 410, 885
Delay 2000
KeyPress "Back"
Delay 1000
Do
ShowMessage "始皇活动-划水中"
Call 验证并打开自动技能()
Delay 10000
Loop Until DateTime.Minute() = 5
Delay 1000
Tap 570, 1040
Delay 1000
Tap 270, 760
Delay 1000
Call 切图()
Rem 始皇结束
ShowMessage "始皇活动-划水结束"
Delay 1000
End Sub
//////////////////////////////////////////////22点始皇-结束/////////////////////
//////////////////////////////////////////////华山论剑/////////////////////
Sub 华山论剑()
ShowMessage "准备华山论剑"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Do
ShowMessage "华山论剑-等待"
Delay 5000
Loop Until DateTime.Minute() > 30 And DateTime.Minute() < 40
ShowMessage "进华山论剑"
Tap 500,1180
Delay 3000
Tap 85, 1055
Delay 1000
Call 切图()
Delay 2000
If CmpColorEx("170|285|FEFDF9-101010,190|560|C7D9FE-101010,195|780|903B75-101010,180|1140|BD9F5E-101010", 0.9) = 1 Then
ShowMessage "没有次数，无法进入活动"
Tap 680, 1230
Delay 1000
Goto 华山论剑结束
End If
Do
Call 验证并打开自动技能()
ShowMessage "华山论剑活动中"
Delay 10000
Loop Until DateTime.Minute() = 50 or CmpColorEx("60|955|622EC2-101010,60|1044|C4E3FF-101010,60|1140|2822B1-101010,60|1225|E8C256-101010",0.9) = 1
Rem 华山论剑结束
ShowMessage "华山论剑-结束"
Delay 1000
Call 退出队伍()
End Sub
//////////////////////////////////////////////华山论剑-结束/////////////////////
//////////////////////////////////////////////群英会/////////////////////
Sub 群英会()
ShowMessage "准备群英会"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Do
ShowMessage "群英会活动-等待"
Delay 5000
Loop Until DateTime.Minute() > 2
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 3000
ShowMessage "单人群英会"
Tap 100, 1020
Delay 1000
Tap 260, 750
Call 切图()
Do
ShowMessage "群英会活动中"
Delay 10000
Call 验证并打开自动技能()
Loop Until DateTime.Minute() = 27
Call 切图()
ShowMessage "群英会-结束"
Delay 1000
End Sub
//////////////////////////////////////////////群英会-结束/////////////////////
//////////////////////////////////////////////心魔/////////////////////
Sub 心魔()
ShowMessage "准备心魔"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Tap 500,1180
Delay 3000
ShowMessage "单人心魔"
Tap 100, 550
Delay 1000
Call 切图()
Delay 2000
Do
ShowMessage "心魔活动中"
Delay 5000
Call 验证并打开自动技能()
Loop Until CmpColorEx("450|800|735717-101010,330|800|745818-101010,230|800|74571A-101010,88|507|FFFFD7-101010", 0.9) = 1
Delay 1000
Call 切图()
Delay 5000
Do
ShowMessage "关闭战报"
Tap 670, 1230
Delay 5000
Loop Until CmpColorEx("675|666|4A55CE-101010,668|735|3EA5EE-101010,670|985|30520B-101010",0.9) = 1
Rem 心魔结束
ShowMessage "心魔-结束"
Delay 1000
End Sub
//////////////////////////////////////////////心魔-结束/////////////////////
//////////////////////////////////////////////遗迹寻宝/////////////////////
Sub 遗迹寻宝()
ShowMessage "准备遗迹寻宝"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 3000
Tap 100, 320
Delay 1000
Call 切图()
Do
ShowMessage "遗迹寻宝活动中"
Delay 5000
Call 验证并打开自动技能()
Loop Until CmpColorEx("675|666|4A55CE-101010,668|735|3EA5EE-101010,670|985|30520B-101010",0.9) = 1
Rem 遗迹寻宝结束
ShowMessage "遗迹寻宝-结束"
Delay 1000
End Sub
//////////////////////////////////////////////遗迹寻宝-结束/////////////////////
//////////////////////////////////////////////周五九点活动/////////////////////
Sub 周五九点活动()
ShowMessage "准备九点活动"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Do
ShowMessage "等待九点活动"
Delay 3000
Loop Until DateTime.Minute() > 0 And DateTime.Minute() < 5
Tap 500,1180
Delay 3000
If CmpColorEx("90|404|DFFFFC-101010,106|998|FFF7E9-101010,106|1077|FFFEE9-101010", 0.9) = 1 Then
Call 家族保卫战()
ElseIf CmpColorEx("90|404|0A0A0A-101010,99|515|FFFFE3-101010,95|778|FFFF5-101010", 0.9) = 1 Then
Call 龙门之争()
ElseIf CmpColorEx("530|380|3F4A52-101010,530|630|3F4A52-101010,530|880|3F4A52-101010", 0.9) = 1 Then
Call 家族秘境()
End If
End Sub
//下面是周五九点的活动
Sub 家族保卫战()
Delay 3000
Tap 100, 1030
Delay 1000
Call 切图()
Delay 2000
Do
ShowMessage "家族保卫战"
Delay 5000
Loop Until CmpColorEx("675|666|4A55CE-101010,668|735|3EA5EE-101010,670|985|30520B-101010",0.9) = 1
Delay 1000
ShowMessage "家族保卫战-结束"
Delay 1000
End Sub
Sub 龙门之争()
Delay 3000
Tap 100, 555
Delay 1000
Call 切图()
Delay 2000
Do
ShowMessage "龙门之争活动中"
Delay 5000
Loop Until DateTime.Minute() = 17
Delay 1000
Tap 670, 1230
Delay 1000
ShowMessage "龙门之争-结束"
Delay 1000
End Sub
Sub 家族秘境()
Delay 3000
Tap 300, 400
Delay 500
Tap 80, 600
Call 切图()
Delay 2000
Do
ShowMessage "家族秘境活动中"
Delay 5000
Loop Until CmpColorEx("675|666|4A55CE-101010,668|735|3EA5EE-101010,670|985|30520B-101010",0.9) = 1
Delay 10000
ShowMessage "家族秘境-结束"
Delay 1000
End Sub
//上面都是周五九点活动
//////////////////////////////////////////////周五九点活动-结束/////////////////////
//////////////////////////////////////////////灰谷矿脉/////////////////////
Sub 灰谷矿脉()
ShowMessage "准备灰谷矿脉"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Delay 2000
Tap 500,1180
Delay 3000
Tap 100, 860
Call 切图()
Delay 2000
Do
ShowMessage "灰谷矿脉活动中"
Delay 3000
Loop Until DateTime.Minute() = 49
Delay 1000
Tap 670, 1230
Delay 200
Tap 670, 1230
Delay 1000
ShowMessage "灰谷矿脉-结束"
Delay 1000
End Sub
//////////////////////////////////////////////灰谷矿脉-结束/////////////////////
//////////////////////////////////////////////宋金/////////////////////
Sub 宋金()
ShowMessage "准备宋金"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 3000
Tap 95, 645
Delay 500
Tap 95, 645
Delay 1000
Call 切图()
Delay 3000
If CmpColorEx("525|90|6F95AD-101010,100|222|BD9B59-101010,360|910|55440B-101010", 0.9) = 1 Then
ShowMessage "未成功进入"
KeyPress "Back"
Delay 1000
Call 验证并关闭系统提示()
Goto 宋金结束
End If
Delay 2000
Do
ShowMessage "宋金进行中"
Delay 20000
Call 验证并打开自动技能()
Loop Until DateTime.Minute() = 48
Delay 1000
Tap 670, 1230
Delay 500
Tap 670, 1230
Delay 1000
Call 切图()
Rem 宋金结束
ShowMessage "宋金-结束"
Delay 1000
End Sub
//////////////////////////////////////////////宋金-结束/////////////////////
//////////////////////////////////////////////通天/////////////////////
Sub 通天()
ShowMessage "准备单人进通天"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Do
ShowMessage "等待通天活动中"
Delay 1000
Loop Until DateTime.Minute() > 0 And DateTime.Minute() < 5
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 3000
Tap 95, 550
Delay 500
Tap 95, 550
Delay 1000
Call 切图()
Delay 2000
Do
ShowMessage "通天进行中"
Call 验证并打开自动技能()
Delay 20000
Loop Until DateTime.Minute() = 23
Delay 1000
KeyPress "Back"
Tap 670, 1230
Delay 1000
KeyPress "Back"
Tap 670, 1230
Delay 1000
Tap 570, 1020
Delay 2000
Tap 270, 760
Call 切图()
Call 验证并关闭系统提示()
Rem 通天结束
ShowMessage "通天-结束"
Delay 1000
Call 退出队伍()
End Sub
//////////////////////////////////////////////通天-结束/////////////////////
//////////////////////////////////////////////名将/////////////////////
Sub 名将()
ShowMessage "准备名将"
Delay 1000
Call 返回襄阳城()
Call 退出队伍()
Rem 打开活动
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 2000
Rem 选名将
If DateTime.WeekDay() = 1 Then
Tap 75,240 //周一选幻境李元霸
Else
Tap 320,240 //选李元霸
End If
Delay 1000
Tap 95, 990
Call 切图()
Delay 5000
Do
If CmpColorEx("457|57|020100-101010,548|1174|F9F5E2-101010,100|950|A4841B-101010", 0.9) = 1 Then
ShowMessage "名将-被打死了"
Goto 选名将
End If
Call 验证并打开小地图()
Delay 2000
If DateTime.Second() < 10 or DateTime.Second() > 50 Then
ShowMessage "前往右路"
Tap 360,970
Delay 1000
Tap 365,975
ElseIf DateTime.Second() > 10 And DateTime.Second() < 30 And DateTime.Minute() = 0 Then
ShowMessage "前往中路"
Tap 440, 835
Delay 1000
Tap 450, 835
ElseIf DateTime.Second() > 30 And DateTime.Second() < 50 And DateTime.Minute() = 0 Then
ShowMessage "前往左路"
Tap 370, 690
Delay 1000
Tap 380, 690
End If
Delay 1000
KeyPress "Back"
Delay 2000
Call 验证并打开自动技能()
Delay 5000
ShowMessage "名将划水中"
Loop Until DateTime.Minute() > 2 And DateTime.Minute() < 20
Delay 1000
ShowMessage "名将划水-结束"
Delay 1000
Call 验证并打开小地图()
Delay 1000
Tap 200, 860
Delay 1000
Tap 150, 860
Delay 1000
Tap 200, 860
KeyPress "Back"
Delay 5000
Tap 570, 1020
Delay 2000
Tap 270, 760
Call 切图()
KeyPress "Back"
Call 验证并关闭系统提示()
End Sub
//////////////////////////////////////////////名将-结束/////////////////////
//////////////////////////////////////////////门派/////////////////////
Sub 门派竞技()
ShowMessage "准备门派竞技"
Call 返回襄阳城()
Do
ShowMessage "等待门派竞技中"
Delay 1000
Loop Until DateTime.Minute() > 0 And DateTime.Minute() < 5
Tap 500,1180
Delay 1000
Call 切图()
Do
ShowMessage "门派竞技中"
Call 验证并打开自动技能()
If DateTime.Minute() = 6 And DateTime.Second() < 15 Then
Delay 1000
Tap 680, 1220
Delay 500
KeyPress "Back"
Call 验证并关闭系统提示()
End If
Delay 5000
Loop Until DateTime.Minute() = 15
Tap 520, 1050
Delay 1000
Tap 260, 750
Delay 1000
ShowMessage "门派竞技-结束"
Call 切图()
End Sub
//////////////////////////////////////////////门派-结束/////////////////////
//////////////////////////////////////////////攻城战/////////////////////
Sub 攻城战()
ShowMessage "准备攻城战"
Call 返回襄阳城()
Delay 1000
Call 退出队伍()
Do
ShowMessage "等待攻城战中"
Delay 1000
Loop Until DateTime.Minute() > 0 And DateTime.Minute() < 30
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 2000
Tap 130, 1210
Delay 2000
Tap 85, 1050
Delay 1000
Call 切图()
Delay 1000
Do
ShowMessage "攻城战中"
Delay 2000
Loop Until DateTime.hour() & DateTime.Minute() = "2134"
ShowMessage "攻城战结束"
Delay 1000
End Sub
//////////////////////////////////////////////攻城战-结束/////////////////////
//////////////////////////////////////////////家族烤火/////////////////////
Sub 家族烤火()
ShowMessage "准备家族烤火"
Delay 1000
Call 返回襄阳城()
Delay 2000
Tap 45,960
Delay 2000
Tap 555,1220
Delay 2000
Tap 100,1050
Delay 1000
Call 切图()
Delay 5000
For 3 //3分钟点一次传功
ShowMessage "家族传功"
Call 家族烤火传功()
Delay 180000
Next
Delay 120000
End Sub
Sub 家族烤火传功()
Tap 40,960
Delay 5000
Tap 415,1220
Delay 500
Tap 415,1220
Delay 1000
Tap 610, 1010
Delay 1000
TouchDown 615, 800, 1
TouchMove 225, 800, 1, 3000
TouchUp 1
Tap 575, 555
Delay 2000
For 3
Tap 550, 1020
Delay 1000
Tap 485, 1020
Delay 1000
Tap 420, 1020
Delay 1000
Tap 355, 1020
Delay 1000
Tap 290, 1020
Delay 1000
Tap 225, 1020
Delay 2000
TouchDown 225, 800, 1
TouchMove 550, 800, 1, 2000
TouchUp 1
Delay 2000
Next
Delay 1000
Tap 685, 1220
End Sub
//////////////////////////////////////////////家族烤火-结束/////////////////////
//////////////////////////////////////////////白虎堂/////////////////////
Sub 白虎堂()
ShowMessage "准备白虎堂"
Call 返回襄阳城()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 2000
Tap 530,970
Delay 1000
Call 切图()
ShowMessage "等待进入白虎堂2号口"
Delay 10000
If CmpColorEx("687|732|B39328-101010,555|1035|4C3A1B-101010,560|950|4D3620-101010", 0.9) = 1 Then
Tap 570, 940
Delay 2000
Tap 535, 800
Delay 10000
Tap 333, 555
Delay 1000
Else
Goto 白虎堂结束
End If
ShowMessage "等待白虎堂开始-5分钟"
Delay 300000
Do
If CmpColorEx("675|666|4A55CE-101010,668|735|3EA5EE-101010,670|985|30520B-101010",0.9) = 1 Then
ShowMessage "被打死了"
Delay 1000
Goto 白虎堂结束
End If
ShowMessage "白虎堂活动中"
Delay 10000
Loop Until DateTime.Minute() = 20
If CmpColorEx("687|732|B39328-101010,555|1035|4C3A1B-101010,663|1050|B1EDFF-101010", 0.9) = 1 Then
Tap 570, 1020
Delay 2000
Tap 260, 760
Call 切图()
End If
Rem 白虎堂结束
ShowMessage "白虎堂-结束"
Delay 1000
Call 退出队伍()
End Sub
//////////////////////////////////////////////白虎堂-结束/////////////////////
//////////////////////////////////////////////武林盟主/////////////////////
Sub 武林盟主()
ShowMessage "准备武林盟主"
Call 返回襄阳城()
Do Until DateTime.Minute() >= 30
ShowMessage "等待盟主开始"
Delay 5000
Loop
Rem 打开盟主界面
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 500, 1000, 1
TouchMove 100, 1000, 1, 2000
TouchUp 1
Delay 500
Next
Delay 1000
Tap 530,970
Delay 1000
Dim shijian,jiemian
Do Until DateTime.Minute() > 42
If CmpColorEx("460|330|140201-101010,430|380|180400-101010,500|320|140201-101010,120|900|765010-101010,685|45|9C8D27-101010", 0.9) <> 1 Then
Goto 打开盟主界面
End If
shijian=DateTime.Minute()&DateTime.Second()
Select Case shijian
Case "310","311","312"
ShowMessage "第一次盟主"
Call 盟主战斗()
Call 盟主抢分()
Case "3410","3411","3412"
ShowMessage "第二次盟主"
Call 盟主战斗()
Call 盟主抢分()
Case "385","386","387"
ShowMessage "第三次盟主"
Call 盟主战斗()
Call 盟主抢分()
Case "4110","4111","4112"
ShowMessage "第四次盟主"
Call 盟主战斗()
Delay 10000
Goto 盟主结束
Case Else
ShowMessage "等待挑战盟主"&shijian
End Select
Delay 500
Loop
Rem 盟主结束
ShowMessage "武林盟主-关闭"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Call 验证并关闭系统提示()
End Sub
Sub 盟主战斗()
Dim i=0
Rem 盟主战斗
ShowMessage "盟主战斗"&i
Tap 50,1000
Delay 2000
If CmpColorEx("225|980|572F00-101010,292|303|52C8D4-101010,345|940|A2B1D1-101010", 0.9) = 1
Delay 500
Tap 150,850
Else
If i = 4 Then
Goto 盟主战斗结束
End If
i = i + 1
Goto 盟主战斗
End If
Call 切图()
Call 战斗中()
Call 切图()
Delay 3000
Tap 270, 590
Delay 1000
Tap 270, 590
Call 验证并关闭系统提示()
Rem 盟主战斗结束
ShowMessage "盟主战斗结束"
End Sub
Sub 盟主抢分()
Dim i=0
Rem 盟主抢分
ShowMessage "盟主抢分"&i
Tap 50,800
Delay 2000
If CmpColorEx("85|400|CDAD64-101010,85|900|CCA965-101010,600|337|B3A06D-101010,600|860|C0A87A-101010,618|594|000000-101010", 0.9) = 1
ShowMessage "挑选对手"
Tap 145, 900
Delay 500
Tap 235, 900
Delay 500
Tap 325, 900
Delay 500
Tap 415, 900
Delay 500
Tap 505, 900
Delay 500
Else
If i = 5 Then
Tap 618, 988
Goto 盟主抢分结束
End If
i = i + 1
Delay 3000
Goto 盟主抢分
End If
Delay 1000
If CmpColorEx("85|400|CDAD64-101010,85|900|CCA965-101010,600|337|B3A06D-101010,600|860|C0A87A-101010,618|594|000000-101010", 0.9) = 1
If i = 5 Then
Tap 618, 988
Goto 盟主抢分结束
End If
i = i + 1
Delay 2000
Goto 盟主抢分
End If
Call 战斗中()
Call 切图()
Delay 5000
Tap 100, 645
Rem 盟主抢分结束
ShowMessage "盟主抢分-结束"
End Sub
//////////////////////////////////////////////武林盟主-结束/////////////////////
//////////////////////////////////////////////商会任务/////////////////////\
Sub 商会任务()
ShowMessage "准备商会任务"
Call 返回襄阳城()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
Dim intX,intY,i=0//511,626
Do //找坐标
FindMultiColor 640,140,190,760,"B4CEF3-101010","5|51|C5F7FF-101010,-12|7|9BCAF6-101010,-8|48|D0ECFF-101010,24|27|031D4C-101010,-144|-14|A7861F-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Delay 2000
Tap intX - 144, intY - 14
Delay 500
Call 切图()
Delay 5000
If CmpColorEx("414|240|368BBD-101010,525|90|6D99B1-101010,550|1174|F9F7D8-101010,338|156|020301-101010", 0.9) = 1 Then //是否直接打开已接任务
Call 商会任务求助()
Call 商会任务采集()
Else
Call 商会接任务()
End If
i = 10
Else
TouchDown 350, 560, 1
TouchMove 650, 560, 1, 2000
TouchUp 1
Delay 500
i = i + 1
If i = 6 Then
ShowMessage "结束商会-未找到"
Goto 商会任务关闭
End If
End If
Loop Until i > 6
Rem 商会任务关闭
ShowMessage "商会任务-关闭"
End Sub
Sub 商会接任务()
ShowMessage "开始接商会任务"
Delay 10000
Dim shjgrw=1
If CmpColorEx("250|400|726238-101010,250|800|70603B-101010,250|900|70603B-101010", 0.9) = 1 Then
shjgrw = shjgrw + 1
End If
If CmpColorEx("150|363|726335-101010,150|800|73603A-101010,150|900|73603A-101010", 0.9) = 1 Then
shjgrw = shjgrw + 1
End If
Select Case shjgrw
Case 1
Tap 350, 400
Delay 1000
Case 2
Tap 250, 400
Delay 1000
Case 3
For 3
TouchDown 300, 400, 1
TouchMove 600, 400, 1, 2000
TouchUp 1
Delay 500
Next
Tap 150, 400
Delay 1000
End Select
Tap 350, 400
Delay 1000
ShowMessage "已接商会任务"
Delay 1000
Call 商会任务求助()
Call 商会任务采集()
End Sub
Sub 商会任务求助()
ShowMessage "商会任务-求助"
Delay 1000
Call 验证并打开商会任务界面()
For 3
TouchDown 550, 700, 1
TouchMove 150, 700, 1, 2000
TouchUp 1
Delay 500
Next
Delay 1000
Call 验证并打开商会任务界面()
For 4
Tap 550, 888
Delay 1000
Next
ShowMessage "商会任务-求助结束"
End Sub
Sub 商会任务采集()
ShowMessage "商会任务-采集"
Delay 1000
Call 验证并打开商会任务界面()
For 3
TouchDown 550, 700, 1
TouchMove 150, 700, 1, 2000
TouchUp 1
Delay 500
Next
Delay 500
Dim i=0,intX, intY
Do //250,1080
Call 验证并打开商会任务界面()
FindMultiColor 600, 1000, 100, 1140, "F3E7F9-101010", "20|-62|A98A23-101010,16|20|AB8A2D-101010,4|-30|E7FEFA-101010", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
ShowMessage intX&","&intY
Tap intX, intY
Call 切图()
Delay 5000
Else
ShowMessage "滑动找待采集物品"
TouchDown 150, 700, 1
TouchMove 550, 700, 1, 2000
TouchUp 1
Delay 500
i=i+1
End If
Delay 500
Loop Until i = 5
ShowMessage "商会任务-采集结束"
End Sub
Sub 验证并打开商会任务界面()
Delay 1000
Do Until CmpColorEx("414|240|368BBD-101010,525|90|6D99B1-101010,550|1174|F9F7D8-101010,338|156|020301-101010", 0.9) = 1
ShowMessage "验证商会任务界面"
Delay 1000
Call 验证并打开活动界面()
Delay 2000
Dim intX,intY,i=0//511,626
Do //找坐标
FindMultiColor 640,140,190,760,"B4CEF3-101010","5|51|C5F7FF-101010,-12|7|9BCAF6-101010,-8|48|D0ECFF-101010,24|27|031D4C-101010,-144|-14|A7861F-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Delay 2000
Tap intX - 144, intY - 14
Delay 500
i = 10
Else
TouchDown 350, 560, 1
TouchMove 650, 560, 1, 2000
TouchUp 1
Delay 500
i = i + 1
End If
If i = 4 Then
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
End If
Loop Until i > 6
Delay 2000
Loop
End Sub
//////////////////////////////////////////////商会任务-结束/////////////////////
//////////////////////////////////////////////家园打坐/////////////////////
Sub 打坐冥想()
ShowMessage "准备打坐冥想"
Call 返回襄阳城()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
Dim intX,intY,i=0,y=0//590,650
Do //找坐标
FindMultiColor 640,140,190,760,"D8F2FF-101010","4|-11|073777-101010,13|-8|0B2567-101010,20|20|DAEBFF-101010,20|-15|E1F3FF-101010,-140|-39|A68321-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Tap intX - 140, intY - 39
Delay 2000
ShowMessage "打坐冥想任务等待90秒"
Delay 90000
i = 1
Tap 486,1016
Call 切图()
Else
TouchDown 350, 560, 1
TouchMove 650, 560, 1, 2000
TouchUp 1
Delay 500
y = y + 1
If y = 6 Then
ShowMessage "结束打坐冥想-未找到"
Exit Do
End If
End If
Loop Until i = 1
End Sub
//////////////////////////////////////////////家园打坐-结束/////////////////////
//////////////////////////////////////////////门客任务/////////////////////
Sub 门客任务()
ShowMessage "准备门客任务"
Dim cishu=0
Rem 门客任务
Call 返回襄阳城()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
Dim intX,intY,i=0//599,277
Do //找活动界面坐标
FindMultiColor 640,140,190,760,"063880-101010","-4|8|D0F0FD-101010,-23|19|D8FAFF-101010,-11|4|02409E-101010,14|-4|D6F0FF-101010,-144|-34|A78422-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Delay 2000
Tap intX - 144, intY - 34
Delay 2000
Call 切图()
Delay 1000
i = 10
Else
TouchDown 350, 560, 1
TouchMove 650, 560, 1, 2000
TouchUp 1
Delay 500
i = i + 1
If i > 5 Then
ShowMessage "未找到任务"
Delay 1000
Goto 门客任务结束
End If
End If
Loop Until i > 5
Rem 门客接任务
Delay 2000
If CmpColorEx("535|90|6792AD-101010,166|236|886A39-101010,550|1175|F8F8DA-101010,70|85|665903-101010,686|663|392D1B-101010", 0.9) = 1 then
ShowMessage "准备开始门客任务"
Dim mkx=555,mky=300
Do
Tap mkx, mky
mkx = mkx - 105
If mkx < 300 Then
ShowMessage "门客任务失败或无效"
Goto 门客任务结束
End If
Delay 2000
Loop Until CmpColorEx("535|90|6792AD-101010,166|236|886A39-101010,550|1175|F8F8DA-101010,70|85|665903-101010,686|663|392D1B-101010", 0.9) <> 1
Delay 15000
If CmpColorEx("330|370|706238-101010,330|600|706238-101010,350|730|70603B-101010", 0.9) = 1 Then
Delay 1000
ShowMessage "点击领取任务"
Tap 335, 555
Delay 3000
If CmpColorEx("450|500|6D4822-101010,450|600|6E4923-101010,450|700|6E4822-101010,510|600|B59E71-101010",0.9) = 1 Then
ShowMessage "确认领取"
Tap 265, 755
Else
If cishu > 5 Then
ShowMessage "门客任务失败"
Delay 1000
Goto 门客任务结束
End If
ShowMessage "重新接门客任务"&cishu
cishu = cishu + 1
Tap 675, 750
Delay 1000
Tap 675, 750
Goto 门客接任务
End If
Dim h
h=Thread.Start(门客任务线程)
ShowMessage "门客任务-等待5分钟"
Delay 300000
Thread.Stop (h)
Goto 门客任务结束
Else
If cishu > 5 Then
ShowMessage "门客任务失败"
Delay 1000
Goto 门客任务结束
End If
ShowMessage "重新接门客任务"&cishu
cishu = cishu + 1
Tap 675, 750
Delay 1000
Tap 675, 750
Goto 门客接任务
End If
Else
If cishu > 5 Then
ShowMessage "门客任务失败"
Delay 1000
Goto 门客任务结束
End If
ShowMessage "门客任务-重新开始"&cishu
cishu = cishu + 1
Goto 门客任务
End If
Rem 门客任务结束
ShowMessage "门客任务-结束"
Tap 486,1016
Delay 1000
Call 切图()
End Sub
Sub 门客任务线程()
Dim i=0
Rem 门客对话
Do
Delay 3000
ShowMessage "门客任务-监测NPC对话"
If CmpColorEx("700|1265|2B1F15-101010,696|1248|E1E7D4-101010,50|900|0E0906-101010,33|1193|96733B-101010", 0.9) = 1 then
Tap 700, 1190
End If
Loop Until i=1
End Sub
//////////////////////////////////////////////门客任务-结束/////////////////////
//////////////////////////////////////////////武神殿/////////////////////
Sub 武神殿()
ShowMessage "准备武神殿"
Call 返回襄阳城()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
Dim intX,intY,i=0//341,259
Rem 打开武神殿
Do //找武神殿坐标
FindMultiColor 640,140,190,760,"B3ECFF-101010","0|42|ABE0FB-101010,37|-1|EAFFFF-101010,37|44|D1E2F7,18|16|044B8B-101010,-126|-31|A3811D-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Delay 2000
ShowMessage "点击坐标：" & intX & "," & intY
Tap intX - 128, intY
Delay 2000
i = 10
Else
TouchDown 350, 560, 1
TouchMove 650, 560, 1, 2000
TouchUp 1
Delay 500
i = i + 1
If i > 5 Then
ShowMessage "未找到任务"
Delay 1000
Goto 武神殿结束
End If
End If
Loop Until i > 5
If CmpColorEx("500|140|BBA474-101010,370|277|BDB0FF-101010,340|1048|82D0E7-101010,315|360|754E21-101010",0.9) = 1 Then
ShowMessage "准备挑战武神殿"
Call 挑战武神殿()
Else
Goto 打开武神殿
End If
Rem 武神殿结束
ShowMessage "武神殿-结束"
Delay 1000
End Sub
Sub 挑战武神殿()
Dim i=0,h=0
Rem 挑战武神殿
Do
h=h+1
If h = 13 Then
Exit Do
End If
Delay 1000
Tap 80, 180
Delay 500
Tap 350, 1080
Delay 1500
Tap 150, 880
Delay 1000
If CmpColorEx("200|600|B69A5A-101010,510|600|AE9E69-101010,470|670|40DAFD-101010",0.9) = 1 Then
ShowMessage "结束-没有次数"
Delay 1000
KeyPress "Back"
Delay 200
KeyPress "Back"
Delay 200
Exit Do
ElseIf CmpColorEx("450|500|6D4822-101010,450|600|6E4923-101010,450|700|6E4822-101010,510|600|B59E71-101010",0.9) = 1 Then
Tap 260, 750
Delay 1000
Goto 挑战武神殿
End If
Call 战斗中()
Call 切图()
Loop Until CmpColorEx("200|600|B69A5A-101010,510|600|AE9E69-101010,470|670|40DAFD-101010",0.9) = 1
End Sub
//////////////////////////////////////////////武神殿-结束/////////////////////
//////////////////////////////////////////////战龙任务/////////////////////
Sub 战龙任务()
ShowMessage "准备战龙任务"
Call 返回襄阳城()
Rem 开始战龙任务
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
Dim intX,intY,i=0,y=0
Do //找坐标//611,296
FindMultiColor 640,140,190,760,"D7F4FF-101010","-27|52|4BBC1E-101010,-17|8|A5D2F3-101010,-4|-30|C5EEFF-101010,-11|-14|C7F6FF-101010,-1|-17|0A2D5F-101010,-164|-52|A68321-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Delay 1000
Tap intX - 164, intY - 52
Delay 1000
Call 切图()
Delay 5000
Call 战龙接任务()
Dim zlsj=0
Do
zlsj=zlsj+1
ShowMessage "监控战斗"&zlsj
Delay 1000
Dim zdz
zdz = Thread.Start(战斗中)
Delay 60000
Thread.Stop(zdz)
Loop Until zlsj=10
i = 1
Else
Goto 开始战龙任务
y = y + 1
If y = 3 Then
ShowMessage "结束战龙-未找到"
Goto 战龙任务关闭
End If
End If
Loop Until i = 1
Rem 战龙任务关闭
Delay 1000
Tap 570, 1020
ShowMessage "战龙任务-关闭"
Delay 2000
Tap 270, 760
Call 切图()
End Sub
Sub 战龙接任务()
ShowMessage "开始接战龙任务"
Delay 10000
Dim shjgrw=1
If CmpColorEx("250|400|726238-101010,250|800|70603B-101010,250|900|70603B-101010", 0.9) = 1 Then
shjgrw = shjgrw + 1
End If
If CmpColorEx("150|363|726335-101010,150|800|73603A-101010,150|900|73603A-101010", 0.9) = 1 Then
shjgrw = shjgrw + 1
End If
Select Case shjgrw
// Case 1
// Tap 350, 400
// Delay 1000
// Case 2
// Tap 250, 400
// Delay 1000
Case 3
For 3
TouchDown 300, 400, 1
TouchMove 600, 400, 1, 2000
TouchUp 1
Delay 500
Next
// Tap 350, 400
// Delay 1000
End Select
Delay 1000
Tap 350, 400
ShowMessage "已接战龙任务"
Delay 1000
Call 切图()
Delay 1000
Call 切图()
End Sub
//////////////////////////////////////////////战龙任务-结束/////////////////////
//////////////////////////////////////////////英雄挑战/////////////////////
Sub 英雄挑战()
ShowMessage "准备英雄挑战"
Call 返回襄阳城()
Call 退出队伍()
Call 验证并打开活动界面()
Delay 2000
Tap 550, 1215
For 5
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Delay 500
Next
Rem 打开英雄挑战
ShowMessage "英雄挑战-开始"
Dim intX,intY,i=0
Do
FindMultiColor 640,140,190,760,"2024D0-101010","0|-79|A3D9FF-101010,25|-42|D0F1FF-101010,25|-55|D7F0FF-101010,-130|-20|AD8A23-101010",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
ShowMessage "点击任务坐标：" & intX & "," & intY
Tap intX - 130, intY - 20
Delay 2000
i = 10
Else
TouchDown 350, 560, 1
TouchMove 650, 560, 1, 2000
TouchUp 1
Delay 500
i = i + 1
If i > 5 Then
ShowMessage "未找到任务"
Delay 1000
Goto 英雄挑战结束
End If
End If
Loop Until i > 5
Delay 3000
If CmpColorEx("250|88|787513-101010,520|90|689AAC-101010,545|1175|FCF8DB-101010,95|1005|A68321-101010",0.9) = 1 Then
ShowMessage "开始挑战"
Call 英雄挑战中()
Delay 1000
Else
ShowMessage "英雄挑战界面不对-重新打开"
Delay 1000
Goto 打开英雄挑战
End If
Rem 英雄挑战结束
ShowMessage "英雄挑战-结束"
Tap 680, 1240
Call 切图()
End Sub
Sub 英雄挑战中()
Dim i=1
Do
Delay 1000
ShowMessage i&"次挑战"
Select Case i
Case 2
Tap 181, 881
Case 3
Tap 181, 920
Case 7,8,9,10,11
Tap 181, 350
Case Else
Tap 188, 633
End Select
Call 切图()
If CmpColorEx("250|88|787513-101010,520|90|689AAC-101010,545|1175|FCF8DB-101010,95|1005|A68321-101010",0.9) = 1 Then
ShowMessage "未进入挑战"
Else
Call 战斗中()
Call 切图()
End If
i=i+1
Loop Until i > 11
End Sub
//////////////////////////////////////////////英雄挑战-结束/////////////////////
//////////////////////////////////////////////通用/////////////////////
Sub 返回襄阳城()
ShowMessage "准备返回襄阳城"
Call 返回安全区(350,830)//居延泽安全区点位---需明确
Call 验证并打开江湖地图()
Delay 1000
Tap 123, 700//江湖地图-襄阳城坐标
If guaji = 1 Then
guaji=0
End If
Call 切图()
Call 验证并打开小地图()
For 10
Tap 170, 620
Delay 1000
Tap 180, 630
Delay 1000
Next
Call 验证并关闭系统提示()
Tap 180, 630
End Sub
Sub 返回安全区(anquanX, anquanY)
Call 验证并打开小地图()
ShowMessage "返回安全区:"&anquanX&","&anquanY
Tap anquanX, anquanY
Delay 1000
Tap anquanX - 30, anquanY - 30
Delay 2000
Tap anquanX,anquanY
Delay 1000
KeyPress "Back"
End Sub
Sub 战斗中()
Dim zdzx=0
Rem 战斗中
Delay 5000
If CmpColorEx("515|410|714303-101010,515|480|724305-101010,515|790|252B72-101010,515|910|252C71-101010,90|572|A38320-101010", 0.9) = 1 then
Tap 90,572
Delay 1000
Call 验证并关闭系统提示()
Else
zdzx = zdzx + 1
If zdzx <= 12 Then
ShowMessage "战斗中"&zdzx
Goto 战斗中
Else
ShowMessage "战斗超时-结束"
Tap 90,572
Delay 1000
Call 验证并关闭系统提示()
End If
End If
End Sub
Sub 切图()
Delay 2000
Dim qietux=0
Do
ShowMessage "等待滚动条"
Delay 500
Loop While CmpColorEx("215|580|E6BE08-101010,215|600|E2BA04-101010,216|546|BA9204-101010", 0.9) = 1
Delay 1000
Do
ShowMessage "切图中"&qietux
qietux = qietux + 1
Delay 1000
Loop While CmpColorEx("5|10|000000-101010,5|100|000000-101010,5|1260|000000-101010,5|1160|000000-101010", 0.9) = 1 And qietux < 30
End Sub
Sub 进入附近队伍(fjdw)//fjdw=1退队在进，fjdw=0不退队
ShowMessage "进入附近队伍-开始"
Delay 2000
Tap 540, 200
Delay 2000
Tap 540, 200
Delay 500
Tap 540, 200
Delay 3000
If CmpColorEx("102|847|FFFFE9-101010,113|889|FFFDEA-101010,108|910|FFFCC2-101010,109|943|FFFFF2-101010", 0.9) = 1 Then
Delay 500
Tap 100, 460
Delay 500
Tap 100, 460
Delay 3000
Tap 567, 870
Delay 500
Tap 477, 870
Delay 500
Tap 387, 870
Delay 1000
Tap 80, 628
Delay 1000
Tap 670,915
Delay 1500
Else
If fjdw = 0 Then
ShowMessage "已有队伍，不退队"
Delay 1000
ElseIf fjdw = 1 Then
ShowMessage "退队，加入附近队伍"
Tap 100, 460
Delay 500
Tap 100, 460
Delay 3000
Tap 567, 870
Delay 500
Tap 477, 870
Delay 500
Tap 387, 870
Delay 1000
Tap 80, 628
Delay 1000
Tap 670,915
Delay 1500
End If
End If
If CmpColorEx("102|847|FFFFE9-101010,113|889|FFFDEA-101010,108|910|FFFCC2-101010,109|943|FFFFF2-101010", 0.9) = 1 Then
ShowMessage "未找到-开启定时搜索队伍"
Thread.Start(定时搜索附近队伍)
End If
Delay 1000
Tap 680, 1240
Delay 2000
Rem 进入附近队伍结束
ShowMessage "进入附近队伍-结束"
Delay 1000
End Sub
Sub 定时搜索附近队伍()
Do
Delay 120000
ShowMessage "搜索队伍-定时"
Tap 540, 200
Delay 500
Tap 540, 200
Delay 2000
If CmpColorEx("102|847|FFFFE9-101010,113|889|FFFDEA-101010,108|910|FFFCC2-101010,109|943|FFFFF2-101010", 0.9) <> 1 Then
ShowMessage "已在队伍中"
Tap 680, 1240
Delay 1000
Exit Do
End If
Tap 100, 460
Delay 500
Tap 100, 460
Delay 3000
Tap 567, 870
Delay 500
Tap 477, 870
Delay 500
Tap 387, 870
Delay 1000
Tap 80, 628
Delay 1000
Tap 670,915
Delay 1000
Tap 680, 1240
Loop Until CmpColorEx("462|80|0BAF57-101010,462|100|1BAF57-101010,505|88|727272-101010,475|90|787071-101010",0.9) = 1
ShowMessage "定时搜索队伍-关闭"
Delay 1000
End Sub
Sub 退出队伍()
ShowMessage "准备退出队伍"
Tap 540, 200
Delay 2000
Tap 540, 200
Delay 500
Tap 540, 200
Delay 3000
Tap 100, 460
Delay 500
Tap 100, 460
Delay 1500
Tap 670,915
Delay 2000
Tap 680, 1240
ShowMessage "退出队伍-结束"
Delay 1000
End Sub
Sub 验证并打开自动技能()
Delay 1000
If CmpColorEx("60|955|622EC2-101010,60|1044|C4E3FF-101010,60|1140|2822B1-101010,60|1225|E8C256-101010",0.9) = 1 Then
Tap 400, 1230
ShowMessage "切换为技能"
Delay 1000
End If
If CmpColorEx("425|1110|502F15-101010,388|1110|533310-101010,437|1113|A2A780-101010",0.9) = 1 Then
ShowMessage "点击自动技能按钮"
Tap 400, 1110
Delay 1000
ElseIf CmpColorEx("425|1110|584432-101010,388|1110|564D39-101010,437|1113|E1F9FF-101010,375|1113|EAFFFF-101010",0.9) = 1 Then
ShowMessage "已开启自动技能"
End If
End Sub
Sub 验证并关闭系统提示()
Delay 1000
If CmpColorEx("66|650|C9B672-101010,66|890|D4BB7B-101010,650|830|00BBE3-101010,660|990|C2A677-101010",0.9) = 1 Then
ShowMessage "关闭小地图"
Tap 670, 1140
Delay 1000
End If
If CmpColorEx("450|500|6D4822-101010,450|600|6E4923-101010,450|700|6E4822-101010,510|600|B59E71-101010",0.9) = 1 Then
KeyPress "Back"
Delay 1000
End If
End Sub
Sub 验证并打开活动界面()
Delay 1000
Do
ShowMessage "打开活动界面"
Call 验证并关闭系统提示()
Tap 670,980
Delay 3000
Tap 550, 1215
Delay 2000
If CmpColorEx("290|30|744B1E-101010,290|120|CABA8C-101010,290|1155|CABA8B-101010,180|165|BFC8ED-101010",0.9) <> 1 Then
ShowMessage "验证活动界面不正确-重新打开"
KeyPress "Back"
End If
Delay 1000
Loop Until CmpColorEx("290|30|744B1E-101010,290|120|CABA8C-101010,290|1155|CABA8B-101010,180|165|BFC8ED-101010",0.9) = 1
End Sub
Sub 验证并打开江湖地图()
Do
ShowMessage "打开江湖地图"
Call 验证并关闭系统提示()
Tap 715, 1270
Delay 2000
If CmpColorEx("680|380|BA9678-101010,650|68|000000-101010,45|100|DFCDA8-101010,35|1100|D1DDDF-101010,675|1100|010600-101010",0.9) <> 1 Then
ShowMessage "验证江湖地图不正确-重新打开"
KeyPress "Back"
Else
TouchDown 100, 500, 1
TouchMove 600, 500, 1, 1000
TouchUp 1
End If
Delay 1000
Loop Until CmpColorEx("680|380|BA9678-101010,650|68|000000-101010,45|100|DFCDA8-101010,35|1100|D1DDDF-101010,675|1100|010600-101010",0.9) = 1
For 3
TouchDown 600, 500, 1
TouchMove 100, 500, 1, 2000
TouchUp 1
Next
End Sub
Sub 验证并打开小地图()
Do
ShowMessage "打开小地图"
Tap 630,1230
Delay 2000
If CmpColorEx("655|145|C6AF4B-101010,644|268|040006-101010,644|404|020404-101010,606|588|FFF88B-101010", 0.9) <> 1 Then
ShowMessage "打开非玩家单位列表"
Tap 530, 380
End If
Loop Until CmpColorEx("66|650|C9B672-101010,66|890|D4BB7B-101010,650|830|00BBE3-101010,660|990|C2A677-101010",0.9) = 1
End Sub
//////////////////////////////////////////////通用-结束/////////////////////
