// qq群号码：236977679 //感谢群友"依然"的帮助
Dim 金币上限是否自动停止="是"
Dim 金币上限是否关闭游戏="否"
Dim 是否相等,i=0,intX,intY
SetScreenScale 1080,1920,0
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 500
'移动~很久很久
TouchDown 300 ,300 ,1
TouchMove 500, 195, 1
'判断boss血条，点击一技能
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
Delay 500
TouchDown 141 ,1404 ,2
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
'boss出现，点击自动按钮
Tap 1023,1789//点击自动按钮
Delay 2000
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 500
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