Dim 金币上限=4200
Dim 金币上限是否自动停止="y"
Dim 金币上限是否关闭游戏="n"
Dim 是否相等,i=0
SetScreenScale 1080,1920,0
Do
'监视是否位于闯关界面
For 3
Tap 384,1017
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Do Until 是否相等 = -1
Tap 141,1404
Delay 2000
Tap 384,1017
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Loop
Delay 300
Next
'开始监视血条是否存在
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Do Until 是否相等 > -1
Delay 500
Tap 1026 ,1722
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Loop
//ShowMessage "累计获得金币:" & i*45 &"" ,40000
TouchDown 229, 237, 1
TouchMove 362, 172, 1
Delay 1000
//ShowMessage "111"
Touchdown 449, 1741, 2
Delay 200
TouchMove 620, 1665, 2
Delay 3500
TouchUp 1
//Delay 200
TouchUp 2
Delay 200
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Do Until 是否相等 > -1
Tap 1026 ,1722
Tap 85 ,1604
Delay 200
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Loop
i = i + 1
ShowMessage "累计获得金币:" & i*45 & "耗时:" & Fix(TickCount() / 1000 / 60 ) & "分" & TickCount() / 1000 - Fix(TickCount() / 1000 / 60 )*60 & "秒",40000
If 金币上限是否自动停止="y" Then
If i>=金币上限/45 Then
ShowMessage "金币已达上限，脚本自动停止，若需要刷经验，请重新设置脚本"
If 金币上限是否关闭游戏="y" Then
KillApp "com.tencent.tmgp.sgame"
EndScript
End If
Delay 3000
EndScript
End If
End If
Loop
