[教程源码] 微信小游戏(跳一跳)

/////////////////////////////////下面的是论坛上下载的./////////////////////////////////
Dim 棋子 = {3,325,677,1081,"663C36-303030","-9|-32|52303A-303030,-5|-113|704449,8|-117|B48D96,8|-71|B48D96,-9|-38|50313B,-16|-10|593332,5|-49|4F3B3B,-14|-74|553D3A,15|-8|5D3639"}
Dim x1 = 40,y1 = 254,x2 = 650,y2 = 850
Dim 背景色,终点x,终点x2,除数 =  0.4233085317460317
Dim IntX,IntY,t,i,随机数,图1=1

Do
    If bb() = False Then 
        KeepCapture
        FindMultiColor 棋子(0), 棋子(1), 棋子(2), 棋子(3), 棋子(4), 棋子(5), 0, 0.9, intX, intY
        If IntX > -1 Then
            背景色 = GetPixelColor(120, 400)
            TracePrint IntX,IntY,背景色
            终点x = Null
            For i = y1 To y2 Step 2
                For j = x1 To x2 Step 2
                    If Not(IntX + 35 > j > IntX - 35) Then
                        If CmpColor(j, i, 背景色, 0.96) = -1 Then 
                            终点x = j
                            TracePrint j,i,GetPixelColor(j, i),背景色
                            Exit For
                        End If
                    End If
                Next
                If 终点x <> Null Then 
                    Exit For
                End If
            Next
            If 终点x <> Null Then 
                For j = x2 To x1 Step -2
                    If Not(IntX + 35 > j > IntX - 35) Then
                        If CmpColor(j, i, 背景色, 0.96) = -1 Then 
                            终点x = (j + 终点x) / 2
                            TracePrint 终点x,j,i,GetPixelColor(j, i),背景色
                            Exit For
                        End If
                    End If
                Next
                t = Abs(终点x - IntX) / 除数
                随机数 = sjs(50, 10)
                If 图1 = 1 Then
                    SnapShot "/sdcard/1.png"
                    图1 = 2
                Else        
                    SnapShot "/sdcard/2.png"
                    图1 = 1
                End If
                TracePrint "按的时间: ",t
                Touch 100 + 随机数, 250 + 随机数, t
                随机数 = sjs(2100, 1900)
                Delay 随机数
            End If
        Else 
            ShowMessage "没有棋子" : Delay 1000
        End If
    End If
    ReleaseCapture 
Loop
/////////////////////////////////////以下是我增加的///////////////////////////////////////////
Dim 目标物体_Arr=array(0,198,718,1078,"F5F5F5","9|0|F5F5F5,-1|3|F5F5F5,-10|0|F5F5F5,-1|-5|F5F5F5,-4|0|F5F5F5,7|-1|F5F5F5",1)
Dim 主物体_Arr=array(0,198,718,1078,"613837","3|-79|383534,27|-1|51363A,20|-41|4E4136,-18|-30|4F2A2B,0|-31|53343F",0.95)
Function bb()
    Dim x,y,ZX,ZY,MX,MY
    bb=True

    Do
        KeepCapture 
        Dim a= FCex(目标物体_Arr)
        MX = a(0)+2:MY=a(1)+2
        Dim b= FCex(主物体_Arr)
        ZX = b(0):ZY=b(1)
        If MX = 2 Then 
            bb=False
            Exit Do 
        End If
        TracePrint "目标物体",ZX,ZY
        TracePrint "主物",MX,MY
        If ZX > MX Then 
            x = ZX - MX 
        Else 
            x = MX - ZX
        End If 
        y = ZY - MY
        TouchDown 100, 100, 1
        TracePrint Sqr(x^2+y^2)
        If Sqr(x ^ 2 + y ^ 2) > 460 Then 
            Delay 31 * ((Sqr(x ^ 2 + y ^ 2)- 9) / 15)
        ElseIf Sqr(x ^ 2 + y ^ 2) > 420 Then 
            Delay 31 * ((Sqr(x ^ 2 + y ^ 2)- 7) / 15)
        ElseIf Sqr(x ^ 2 + y ^ 2) > 380 Then
            Delay 31 * ((Sqr(x ^ 2 + y ^ 2) - 6) / 15)
        ElseIf Sqr(x ^ 2 + y ^ 2) > 340 Then
            Delay 31 * ((Sqr(x ^ 2 + y ^ 2)- 4) / 15)
        Else 
            Delay 31 * (Sqr(x^2+y^2)/15)
        End If
        TouchUp 1 
        Delay 3000
        ReleaseCapture 
    Loop
End Function

Function FCex(arr)
    Dim intX,intY
    Dim xy(1)
    FCex=False 
    FindMultiColor arr(0), arr(1), arr(2), arr(3),arr(4),arr(5),0,arr(6),intX,intY
    If intX>-1 And intY>-1 Then 
        xy(0) = intX
        xy(1) = intY
    End If
    FCex = xy
End Function


Function Sjs(Zd, Zx)
    Sjs = Int((Zd - Zx + 1) * Rnd() + Zx)
End Function