王者刷战令

Dim intX,intY,X1,Y1,X2,Y2,X3,Y3


Do

Call 开始()
Call 对战()


Loop


Function 开始
    Do
    Delay 5000
        //开始匹配
        If CmpColorEx("75|670|426D8C,74|695|427194,40|665|5A96B6,65|734|42799C,73|736|427494,66|718|FFFFFF",0.9) = 1 Then
            Tap 54, 761
            Delay 2000
        End If
        //    确认
        If CmpColorEx("187|534|44718E,187|726|46738E,169|654|45758F,177|629|A0B6C2,172|621|FFFFFF,189|583|4C738F,185|627|46728E",0.9) = 1 Then
            Tap 157, 622
            Delay 2000
        End If
        //选人
        If CmpColorEx("51|1125|4A799D,56|1241|42789B,52|1180|F0F4F7,61|1205|EFF3F6,66|1179|427394,52|1186|4A7DA5",0.9) = 1 Then
            Tap 49, 1182
            Delay 2000
            Exit Do
        End If

    Loop

End Function



Function 对战
    Do
    X1=0:X2=0:X3=0:Y1=0:Y2=0:Y3=0
        FindColor 498, 2, 716, 220, "79EC7D", 1, 0.8, X1, Y1
        FindColor 491, 2, 715, 219, "EDB773", 1, 0.8, X2, Y2
        FindColor 498, 8, 714, 228, "3C3DEA", 1, 0.8, X2, Y2
        X3 = 172+(X2 - X1)*100
        Y3 = 195+(X2 - X1)*100
        TouchDown 172,195, 1//按住屏幕上的100,100坐标不放，并设置此触点ID=1
        TouchMove X3, Y3, 1, 500//将ID=1的触点花200毫秒移动至300,300坐标
        TouchUp 1//松开弹起ID=1的触点
        FindMultiColor 58,817,485,1203,"528AAD","8|0|5AA2C6,15|-1|63AFD3,23|0|5ABEDC,11|7|63A6CE,13|-1|63AACE,12|-12|63A8CE",0,0.9,intX,intY
        If intX > -1 And intY > -1 Then
            Tap intX, intY
        End If
        FindMultiColor 58,817,485,1203,"B18A52","8|0|BD965A,19|0|DEA65A,9|-11|C1985B,15|1|CEA25A,0|1|B18A52",0,0.9,intX,intY
        If intX > -1 And intY > -1 Then
            Tap intX, intY
        End If
        Delay 1000
        Tap 104, 1163
        Delay 200
        Tap 431, 132
        Delay 200
        Tap 83, 950
        Delay 200
        Tap 226, 1018
        Delay 200
        Tap 303, 1164
        Delay 200
        Tap 104, 1163
        Delay 200
        Tap 71, 733
        Delay 200
        Tap 68, 842
        Delay 2000
        If CmpColorEx("75|542|9C6131,71|577|A56931,71|618|FFFFFF,76|657|FFFFFF,68|665|BA8F67,71|699|A56931,59|659|D7B693,68|657|DAC3AD",0.9) = 1 Then
            Tap 67, 637
            Delay 4000
            Tap 67, 637
            Delay 2000
            Do
                If CmpColorEx("72|673|427194,62|809|4C7FA5,77|733|F5F8F9,68|755|ADC4D7,76|685|427194,55|722|62A5C5",0.9) = 1 Then
                    Tap 69, 741
                    Delay 1000
                    Exit Do
                End If
            Loop
            Exit Do
        End If    
    Loop    
End Function