无标题文章

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