按键_部落冲突自动采集资源源码

Dim _ResourcesColor(),DrawScreen()
'---------------------------资源颜色------------------------------
Dim _ResourcesPoint = Array(9,163,583,1102)'资源查找范围坐标
_ResourcesColor(0) = Array("3CD3EF","3|0|37C3E7,4|-2|57E6EF,2|-5|55EAF1,4|-12|A9D3CE,-5|-10|7FBFB2,-5|6|7FBFB6,8|6|B6DAD7")'金币 
_ResourcesColor(1) = Array("D84DE8","-2|-4|C04AC3,1|-6|C046CB,6|-3|E92EF0,8|-9|B8DCD1,8|6|B8DCD4,-4|6|80C0B6,-5|-11|7BBCB1")'圣水
_ResourcesColor(2) = Array("513648","0|-4|301A25,2|-4|402838,6|-1|694C60,9|-8|B8DAD7,-4|-8|7CBCB0,-7|-1|73B8B0,-2|7|85C0B8")'黑油
'------------------------划动坐标------------------------------------
DrawScreen(0) = Array(351, 629, 230, 629, 200)'往上划
DrawScreen(1) = Array(230, 629, 450, 629, 200)'往下划
DrawScreen(2) = Array(450, 629, 330, 629, 200)'划回原坐标
'----------------------------点击函数-----------------------------------
Function _FindResourcesColor(ResPoint,ResColor)'查找资源并点击
    Dim ArrColor,intX, intY
    SetScreenScale 720,1280
    For i = 0 To UBOUND(ResColor)
        ArrColor = ResColor(i)
        Do
            FindMultiColor ResPoint(0),ResPoint(1),ResPoint(2),ResPoint(3), ArrColor(0), ArrColor(1), 1, 0.9, intX, intY
            If intX > -1 Then 
                Tap intX, intY
                Delay 100
            End If
            Delay 20
        Loop Until intX = -1
    Next
    ResetScreenScale
End Function
'----------------------------调用函数-----------------------------------
For Each n In DrawScreen
    Swipe n(0), n(1), n(2), n(3), n(4)
    Delay 500
    _FindResourcesColor(_ResourcesPoint,_ResourcesColor)'查找资源并点击
Next