// 亚瑟通天塔副本脚本说明: //
// 第一位英雄带亚瑟 //
// 游戏内设置：相机高度(高) //
// 金币效率：30金币每分钟 //
// qq群号码：236977679 //
Dim 金币上限是否自动停止="是"
Dim 金币上限是否关闭游戏="否"
Dim 是否相等,i=0,intX,intY
SetScreenScale 1080,1920,0
Do
'监视是否位于闯关界面
For 3
Tap 356,960
Tap 217, 821
Tap 130,1600
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Do Until 是否相等 = -1
Tap 141,1404
Delay 1000
Tap 384,1017
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Loop
Delay 3000
If (CmpColor(306, 1317, "401FAB", 0.9) > -1) Then //n小时提醒跳过
Tap 306, 1317
End If
Next
'开始监视血条是否存在
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Do Until 是否相等 > -1
Delay 500
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Loop
Tap 1026 ,1722
Delay 1000
'移动~很久很久
TouchDown 568 ,166 ,1
TouchMove 568 ,176 ,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 968,1675,1050,1895,"D8A245","-33|0|B87332,-48|0|B77231,-48|27|CF8B32,-21|27|D99C39,-21|58|FBF9F4,-15|79|D7CCB6,-48|89|DFA232,-42|158|B66D2E,12|135|EBD361",0,0.9,intX,intY
Do Until intX > -1 And intY > -1
Delay 500
FindMultiColor 968,1675,1050,1895,"D8A245","-33|0|B87332,-48|0|B77231,-48|27|CF8B32,-21|27|D99C39,-21|58|FBF9F4,-15|79|D7CCB6,-48|89|DFA232,-42|158|B66D2E,12|135|EBD361",0,0.9,intX,intY
Loop
Tap 1000,1780
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Do Until 是否相等 > -1
Tap 141 ,1404
Delay 200
Tap 130,1600
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",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(477 ,1800 ,"E7DFCF",0.9) Then
ShowMessage "金币已达上限，脚本自动停止，若需要刷经验，请重新设置脚本"
If 金币上限是否关闭游戏="是" Then
KillApp "com.tencent.tmgp.sgame"
EndScript
End If
Delay 3000
EndScript
End If
End If
Loop