韩信血王宫副本脚本

// 韩信血王宫副本脚本说明: //
// 第一位英雄韩信，另外两位 //
// 较强的战士如夏侯淳 //
// 游戏内设置：相机高度(高) //
// 金币效率：40金币每分钟 //
// qq群号码：236977679 //
Dim 金币上限是否自动停止="是"
Dim 金币上限是否关闭游戏="否"
Dim 是否相等,i=0
SetScreenScale 1080,1920,0
Do
'监视是否位于闯关界面
For 3
Tap 356,960
Tap 217, 821
是否相等 = 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
Next
'开始监视血条是否存在
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Do Until 是否相等 > -1
Delay 200
Tap 1026 ,1722
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Loop
'以下均为韩信操作
Delay 700
TouchDown 235 ,234 ,1
TouchMove 435 ,308 ,1
Delay 2800
TouchDown 133 ,1433 ,2
TouchMove 408 ,1450 ,2
TouchUp 2
TouchMove 540 ,300 ,1
Delay 1500
TouchDown 133 ,1433 ,2
TouchMove 408 ,1480 ,2
TouchUp 2
TouchMove 380 ,380 ,1
TouchDown 330 ,1560 ,2
TouchMove 230 ,1370 ,2
TouchUp 2
Delay 6500
TouchDown 330 ,1560 ,2
TouchMove 230 ,1370 ,2
TouchUp 2
Delay 1800
TouchDown 133 ,1433 ,2
TouchMove 370 ,1600 ,2
TouchUP 2
Delay 400
TouchDown 133 ,1433 ,2
TouchMove 370 ,1600 ,2
TouchUP 2
TouchMove 240 ,485 ,1
'判断遇到扁鹊对话，则点跳过
是否相等 = CmpColor(1026 ,1722,"DBA13F",0.9)
Do Until 是否相等 > -1
是否相等 = CmpColor(1026 ,1722,"DBA13F",0.9)
Delay 200
Loop
Tap 1026 ,1722
Delay 500
'二技能避开扁鹊，向徐福移动
Swipe 320 ,1560 ,300 ,1370
TouchDown 235 ,234 ,1
TouchMove 435 ,350 ,1
'判断徐福对话并跳过
是否相等 = CmpColor(1026 ,1722,"DBA13F",0.9)
Do Until 是否相等 > -1
是否相等 = CmpColor(1026 ,1722,"DBA13F",0.9)
Delay 200
Loop
For 4
Delay 200
Tap 1026 ,1722
Next
'开始监视血条是否存在
Delay 1000
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Do Until 是否相等 > -1
Delay 200
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Loop
Delay 500
'放二技能，走动一秒，砍，大招
Swipe 320 ,1560 ,200 ,1370 
TouchDown 235 ,234 ,1
TouchMove 380 ,380 ,1
Delay 1000
TouchUp 1
Tap 162 ,1717
Delay 400
Tap 460 ,1760
'判断是否通过。未通过则一直按普攻和一技能
是否相等 = CmpColor(1026 ,1722,"DBA13F",0.9)
Do Until 是否相等 > -1
Tap 141 ,1404
Delay 300
Tap 162 ,1717
Delay 300
是否相等 = CmpColor(1026 ,1722,"DBA13F",0.9)
Loop
Tap 1026 ,1722
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Do Until 是否相等 > -1
Tap 141 ,1404
Delay 200
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Loop
i = i + 1
ShowMessage "累计获得金币:" & i*48 & "耗时:" & 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