FindPic 0,0,1366,768,"Attachment:\剩余数.bmp",0.9, x, y
TracePrint x &","& y//451,250
If x =-1 Then
TracePrint "没有找到启动位置,建议查看启动状态"
ExitScript
End If
范围左上角x = x +(431-451)
范围左上角y = y +(297-250)
范围右下角x = x +(958-451)
范围右下角y = y +(610-250)//深黄 1D88D0 深蓝AB2B2B 紫色7C20B9 浅黄23BCBC 浅蓝 BBBB5F 红色2424BD
宝石 =Array("1D88D0","AB2B2B","7C20B9","23BCBC","BBBB5F","2424BD")
下一关颜色 =Array("0159B1","0066CC")
下一关x = x +(734-451)
下一关y = y +(535-250)
Do
For j =0 To UBound(宝石)
call 寻找宝石并点击(宝石(j))
Next
// For Each 宝石颜色 In 宝石
// Call 寻找宝石并点击(宝石颜色)// Next
// For Each 颜色 In 下一关颜色
// Call 进入下一关(颜色)// Next
For i =0 To UBound(下一关颜色)
Call 进入下一关(下一关颜色(i))
Next
Delay 1
Loop
Function 寻找宝石并点击(宝石颜色)
FindCenterColor 范围左上角x, 范围左上角y, 范围右下角x, 范围右下角y, 宝石颜色, x, y
If x >-1 Then
LClick x, y
End If
End Function
Sub 进入下一关(颜色)
IfColor 下一关x, 下一关y, 颜色,0 Then
Delay 5000//为了看一下分数
LClick 下一关x, 下一关y
Delay 10
End If
End Sub
Sub LClick(x, y)
MoveTo x, y
Delay 10
LeftClick 1
End Sub