刷夜世界脚本

Dim intX,intY,倒计时,判断星星=0  

For 10
Call 开始()    
Next

Sub 开始()
For 5
Call 挑战()
倒计时=5
For 倒计时
倒计时=倒计时-1
Delay 1000
ShowMessage "还有"&倒计时&"秒继续",350,1000,60
Next
Next
Call 收集水晶()
End Sub

Sub 收集水晶()
MoveZoomOut(10,10,500,500)//捏合
For 3
ShowMessage "收取水晶"
Delay 1000
Swipe 939, 257, 961, 693
Delay 500
//点击小车子
FindMultiColor 651,26,1529,884,"485A5B","7|-7|18416F,16|-10|262B2F,19|-4|4A5752,23|0|5C6D69,18|3|183C60,12|9|5E6564,16|13|79867C,24|8|2F64A4,26|15|A4BDC0",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 1000
Tap 1201, 788
Delay 1000
Tap 1388,58
Exit For
End If

FindMultiColor 651,26,1529,884,"CE8BB7","-6|8|D1195E,-3|20|72B5AD,-13|39|204880",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 1000
Tap 1201, 788
Delay 1000
Tap 1388,58
Exit For
End If

FindMultiColor 651,26,1529,884,"836C61","-5|5|826D64,-8|9|908175,-7|19|80B4AA,-3|38|21497F,12|42|DF5A86,-5|52|51A6C9,27|54|1F2327",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 1000
Tap 1201, 788
Delay 1000
Tap 1388,58
Exit For
End If

Next
End Sub

Sub 挑战()
判断星星=0  
倒计时=20
Swipe 776,649, 335,239
Tap 102, 798
Delay 1000
Tap 1170, 592
Delay 1000
For 倒计时
倒计时=倒计时-1
dim 累计点击=0,初始点击=185,合计点击
ShowMessage "正在匹配对手"&倒计时,350,1000,60
Delay 1000
FindMultiColor 631,4,939,117,"D5D6FF","1|-9|8F94A7,2|-7|1F2123,2|-5|000000,16|26|FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
MoveZoomOut(10,10,500,500)//捏合
Call 投兵(6)
Call 判断胜利()
Exit For
End If
If 倒计时 = 1 Then 
TracePrint "没遇到没匹配到对手情况,不知道怎么写"
EndScript
End If
Next
End Sub

Sub 判断胜利()
倒计时=300
For 倒计时
倒计时 = 倒计时 - 1
ShowMessage "正在判断战争情况"&倒计时,350,1000,60
Delay 1000
Dim intX,intY
FindMultiColor 476,673,1182,867,"85E9B9","10|28|39D589,70|25|C5E3D5,79|34|0D0D0D,69|-22|F2FFFA",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit For
End If
Call 判断几颗星()
If 判断星星 = 3 Then 
倒计时=10
For 倒计时
倒计时 = 倒计时 - 1
Delay 1000
ShowMessage 倒计时&"秒后继续投兵", 350, 1000, 60
Next
Call 投兵(7)
判断星星 = 4
Call 判断胜利()
Exit For
End If
Next
If 倒计时 = 1 Then 
TracePrint "没判断,终止程序"
EndScript
End If
End Sub

Sub 投兵(数量)
dim 累计点击=0,初始点击=328,合计点击
Tap 187, 805
Delay 500
tap 1076,226
For 数量
合计点击=初始点击+累计点击
Tap 合计点击, 800
累计点击=累计点击+118
Delay 500
tap 1076,226
Next
累计点击 = 0
初始点击 = 188
Tap 187, 805
Delay 500
For 数量
Delay 1000
合计点击=初始点击+累计点击
Tap 合计点击, 800
累计点击=累计点击+118
Next
End Sub

sub 判断几颗星()
If 判断星星 = 0 Then 
FindMultiColor 1334,648,1377,697,"72E8FF","5|4|2D9EEA,15|3|207ED4",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
判断星星 = 1
TracePrint "获得1颗星"
End If
End If
If 判断星星 = 1 Then 
FindMultiColor 1378,651,1418,698,"72E8FF","5|4|2D9EEA,15|3|207ED4",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
判断星星 = 2
TracePrint "获得2颗星"
End If
End If
If 判断星星 = 2 Then 
FindMultiColor 1421,653,1464,698,"72E8FF","5|4|2D9EEA,15|3|207ED4",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
判断星星 = 3
TracePrint "获得3颗星"
End If
End If
End Sub