// qq群号码：236977679 //感谢群友"依然"的帮助
Dim 金币上限是否自动停止="是"
Dim 金币上限是否关闭游戏="否"
Dim 是否相等,i=0,intX,intY,itor
SetScreenScale 1080, 1920, 0
Function Skill1()
TouchDown 168, 1420 ,2 //一技能一段开始
Delay 200
TouchMove 350 ,1270 ,2,0
Delay 200
TouchUp 2 //一技能一段结束
End Function
Function Skill2()
TouchDown 330 ,1543 ,3 //二技能开始
Delay 200
TouchMove 50 ,1810 ,3,0
Delay 200
TouchUp 3 //二技能结束
End Function
Do
'监视是否位于闯关界面
For 3
Tap 356,960
Tap 165,1550//开始游戏
Delay 3000//防止出现小时提醒
If (CmpColor(359, 1200, "4C23B7", 0.9) > -1) Then //n小时提醒跳过
Tap 360,1260//点击跳过提醒
End If
Next
'开始监视英雄血条是否存在
是否相等 = CmpColor(685 ,880 ,"15CE53",0.9)
Do Until 是否相等 > -1
Delay 500
是否相等 = CmpColor(685 ,880 ,"15CE53",0.9)
Loop
Tap 1026 ,1822//点击跳过
Delay 800
'移动~
TouchDown 300 ,300 ,1
TouchMove 500, 195, 1
Delay 500
'判断boss血条，点击一技能
itor = 0
FindMultiColor 856,743,933,1302,"282EC4","-23|-2|212696,-23|32|141C98,-4|42|222AC9,-23|92|11198F,-4|140|2027CC,-21|196|121A95,-25|254|13178C,-13|327|2425BF,-4|367|2027CC",0,0.9,intX,intY
Do Until intX > -1 And intY > -1
If itor Mod 2 = 0 Then
Skill1
Else
Skill2
End If
itor = itor + 1
TouchUp 2
FindMultiColor 856,743,933,1302,"282EC4","-23|-2|212696,-23|32|141C98,-4|42|222AC9,-23|92|11198F,-4|140|2027CC,-21|196|121A95,-25|254|13178C,-13|327|2425BF,-4|367|2027CC",0,0.9,intX,intY
Loop
TouchUp 1
'判断是否通关
FindMultiColor 93,1826,103,1835,"FFBF02","9|0|FFBF02,3|0|FFBF02,0|5|FFBF02",0,0.9,intX,intY//判断是否通关
Do Until intX > -1 And intY > -1
Delay 100
Tap 460 ,1760//大招
Delay 100
Tap 180, 1780//普攻
Delay 100
Tap 140 ,1410//一技能
Delay 100
FindMultiColor 93,1826,103,1835,"FFBF02","9|0|FFBF02,3|0|FFBF02,0|5|FFBF02",0,0.9,intX,intY//判断是否通关
Loop
Tap 1026 ,1822//点击跳过
是否相等 = CmpColor(785 ,1495 ,"FFFFFF",0.9)//是否在再次页面-----------判断是否再次回到开始界面
Do Until 是否相等 > -1
//Tap 100 ,1404
Delay 100
Tap 80, 1600
//Tap 165,1550//开始游戏
是否相等 = CmpColor(785 ,1495 ,"FFFFFF",0.9)
Loop
i = i + 1
ShowMessage "累计获得经验:" & i*102 & "\n累计获得金币:" & i*29 & "\n耗时:" & Fix(TickCount() / 1000 / 60 ) & "分" & TickCount() / 1000 - Fix(TickCount() / 1000 / 60 )*60 & "秒",3000,0,0
If 金币上限是否自动停止="是" Then
If 是否相等 = CmpColor(472, 1722, "F2EBDB", 0.9) Then
ShowMessage "金币已达上限，脚本自动停止，若需要刷经验，请重新设置脚本"
If 金币上限是否关闭游戏="是" Then
KillApp "com.tencent.tmgp.sgame"
EndScript
End If
Delay 3000
EndScript
End If
End If
Loop