[教程源码] 手机版QQ炫舞源码

Import "zm.luae"
//下面是四个方向的数组
Dim 方向=Array (Array("FFFFFF","2|-3|FFFFFF,6|-6|FFFFFF,7|-8|FFFFFF,16|-7|FFFFFF,19|-5|FFFFFF,21|-3|FFFFFF,24|0|FFFFFF"),_
Array ("FFFFFF","2|2|FFFFFF,5|4|FFFFFF,7|7|FFFFFF,18|7|FFFFFF,21|4|FFFFFF,23|2|FFFFFF,25|0|FFFFFF"),_
Array ("FFFFFF","-1|1|FFFFFF,-3|3|FFFFFF,-6|7|FFFFFF,-6|17|FFFFFF,-3|20|FFFFFF,-1|22|FFFFFF,0|24|FFFFFF") ,_
array ("FFFFFF","2|2|FFFFFF,4|4|FFFFFF,7|7|FFFFFF,7|17|FFFFFF,3|20|FFFFFF,3|22|FFFFFF,0|24|FFFFFF"))
Dim x,y,x1,y1,i
Dim xy1,intX, intY,对比结果,intX1,intY1,isoff = 1

Do
    KeepCapture  //每次将要识别的图截图至内存中,增加识别的速度
        FindMultiColor 777,359,864,435, "FF9233","27|-29|3173FF,55|0|049DF2,28|27|23C05D", 0, 1, intX, intY  //识别有没有进入到游戏准备中
        If intX > -1 Then 
    If isoff = 1 Then   //isoff :这是开关1为进入按方向键  2为进入等待按空格键
        FindColor 275, 346, 669, 349, "FFFFFF", 0, 1, intX, intY   //这个是识别现在处于 LV 几次,一共有..1-7
        If intX > -1 and intY > -1 Then 
            x = intX - 8:y = intY - 16:x1 = intX + 35:y1 = intY + 20  //这个坐标是划分方向键成一个小方块,一次只识别一个键,识别完X值赋值新的一个坐标,往后一个格识别,
            For a=0 to 6   
                For i = 0 To UBound(方向)
                    xy1 = FCex(x+a*47, y, x1+a*47, y1, 方向(i))   //识别方向
                    If xy1 > -1 Then 
                        Select Case i     //如果 i  值是1根据方向数组顺序为上
                        Case 0   
                            Tap RUN(810,846), RUN(309,349)  //随机点击,防止检测
                            //TracePrint "上"
                        Case 1
                            Tap RUN(805, 850), RUN(438, 482)
                            //TracePrint "下"
                        Case 2
                            Tap RUN(736, 778), RUN(370, 419)
                            //TracePrint "左"
                        Case 3
                            Tap RUN(872, 914), RUN(370, 415)
                            //TracePrint "右"
                        End Select
                        Exit For   //识别到一个方向立即退出,下一个格
                    End If
                    xy1 = -1   //初始化值
                     isoff = 2   //开关键,关闭上识别方向,进入等待进去按空格
                Next
            Next

            ReleaseCapture    //释放截图至内存中
        End If
    ElseIf isoff = 2 Then
        isoff = 1
        do
            KeepCapture
            对比结果 = CmpColor(583,284, "D08F6E", 0.80)     //键空格我是以对比点色,如果那个点发生变改,证明游戏的圆点到达要按空格位置
            TracePrint 对比结果
            If 对比结果 = -1 Then 
                TracePrint "要点"
                Delay 50
                Tap RUN(125, 194), RUN(373, 423)
                Exit Do
            End If
            Delay 100
            ReleaseCapture
        loop  
    End If
     End If
    Delay 200
loop//随机函数
Function RUN(Min, Max)
    RUN = Int((Max - Min + 1) * Rnd() + Min)
End Function
找色函数
Function FCex(x, y, x1, y1, arr)
    FCex=-1
    Dim intX,intY 
    FindMultiColor x,y,x1,y1,arr(0),arr(1),0,1,intX,intY
    If intX>-1 And intY>-1 Then 
        FCex=intX
    End If
End Function