按键精灵--挖宝石源码

按键精灵–挖宝石源码

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