女娲刺秦/易水副本脚本

// 女娲刺秦/易水副本脚本说明: //
// 第一位英雄带女娲 //
// 第二位可带刘邦 //
// 应在脚本开头语句进行设置 //
// 易水之畔不要带女娲刘邦之外的英雄 //
// 游戏内设置：相机高度(高) //
// 金币效率：60金币每分钟 //
// qq群号码：236977679 //
////以下设置区////
Dim 金币上限是否自动停止="是"
Dim 金币上限是否关闭游戏="否"
Dim 第二位刘邦="是"
Dim 副本=0 //刺秦之地=0，易水之畔=1
////以下脚本区////
Dim 是否相等,i=0,X,Y,金币,经验
SetScreenScale 1080,1920, 0
If 副本=0 Then 
金币=45
经验=126
Else 
金币=33
经验=108
End If
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 500
Tap 1026,1722
是否相等 = CmpColor(685 ,880 ,"17CC52",0.9)
Loop
//女娲移动传送
If 副本=0 //刺秦之地
TouchDown 251,247, 1
TouchMove 350,220,1
Delay 2500
TouchUp 1
TouchDownEvent 428, 1617, 2
Delay 100
TouchMoveEvent 581, 1491, 2,100
TouchUpEvent 2
Delay 2000
Else //易水之畔
TouchDown 214,232, 1
TouchMove 75,302,1
Delay 2000
TouchUp 1
TouchDownEvent 425,1612, 2
Delay 100
TouchMoveEvent 250, 1700, 2,100
TouchUpEvent 2
Delay 2000
End If
//若有刘邦则传送
If 第二位刘邦="是" Then
For 2
Tap 812,96
Delay 300
TouchDownEvent 451,1754,1
Delay 100
TouchMoveEvent 667,1790,1,100
TouchUpEvent 1
Delay 100
Tap 961,90
Next
End If
//点击自动按钮
For 5
Tap 961,90
Do
FindMultiColor 0,0,0,0,"FFCE35","-12|-6|9E5C1A,-22|-7|9E5C1A,-22|50|9E5C1A,-10|61|9E5C1A,-1|43|FFCE35,-11|41|9E5C1A",0,0.9,X,Y
If X = -1 And Y = -1 Then
Tap 1018,1794
End If
Delay 500
Loop While X = -1 And Y = -1
Next
//判断boss已死亡
是否相等 = CmpColor(896,771 ,"363ED9",0.9)
Do Until 是否相等 = -1
Delay 1000
是否相等 = CmpColor(896,771 ,"363ED9",0.9)
Loop
//boss死亡，不断点击跳过按钮位置
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Do Until 是否相等 > -1
Tap 1026, 1722
Tap 141 ,1404
Delay 200
是否相等 = CmpColor(133 ,1444 ,"1FA0E9",0.9)
Loop
i = i + 1
ShowMessage "累计获得经验:" & i*经验 & Chr(10) & "累计获得金币:" & i*金币 & Chr(10) & "耗时:" & Fix(TickCount() / 1000 / 60 ) & "分" & Fix(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