//==============窗口分辨率=================
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux = CLng(MyArray(0))
Uy = CLng(MyArray(1))
//横竖距离= 48
Do//===================横向程序段===================
    Call 开始()
    Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "当前状态：游戏进行中...", "0000FF")
    x = 293 + Ux : y = 118 + Uy//起点坐标
    For 8//循环8横排
        For 5//横向循环5次
            yanse1=GetPixelColor(x,y)
            x1 = x
            x = x + 48
            yanse2=GetPixelColor(x,y)
            x2 = x
            x = x + 48
            yanse3=GetPixelColor(x,y)
            x3 = x
            x = x + 48
            yanse4=GetPixelColor(x,y)
            x4 = x
            //==================横向判断程序=================
            If yanse1 <> yanse2 And yanse1 = yanse3 And yanse1 = yanse4 Then 
                MoveTo x1, y
                Delay 10
                LeftClick 1
                Delay 10
                MoveTo x2, y
                Delay 10
                LeftClick 1
                Delay 10
            End If
            If yanse1 = yanse2 And yanse1 <> yanse3 And yanse1 = yanse4 Then
                MoveTo x3, y
                Delay 10
                LeftClick 1
                Delay 10
                MoveTo x4, y
                Delay 10
                LeftClick 1
                Delay 10
            End If
            x = x1 + 48
        Next 
        x = 293 + Ux : y = y + 48
    Next
    //==========竖向程序段========
    Call 开始()
    x = 293 + Ux : y = 118 + Uy//起点坐标
    For 8//循环8竖排
        For 5//竖向循环5次
            yanse1=GetPixelColor(x,y)
            y1 = y
            y = y + 48
            yanse2=GetPixelColor(x,y)
            y2 = y
            y = y + 48
            yanse3=GetPixelColor(x,y)
            y3 = y
            y = y + 48
            yanse4=GetPixelColor(x,y)
            y4 = y
            //==================竖向判断程序=================
            If yanse1 <> yanse2 And yanse1 = yanse3 And yanse1 = yanse4 Then 
                MoveTo x, y1
                Delay 10
                LeftClick 1
                Delay 10
                MoveTo x, y2
                Delay 10
                LeftClick 1
                Delay 10
            End If
            If yanse1 = yanse2 And yanse1 <> yanse3 And yanse1 = yanse4 Then
                MoveTo x, y3
                Delay 10
                LeftClick 1
                Delay 10
                MoveTo x, y4
                Delay 10
                LeftClick 1
                Delay 10
            End If
            y = y1 + 48
        Next 
        x = x + 48 : y = 118 + Uy
    Next
    //=============================================================================
    // 横向交叉
    Call 开始()
    x = 293 + Ux : y = 118 + Uy//起点坐标
    For 7
        For 6
            //===================横向交叉判断==================
            yanse1=GetPixelColor(x,y)
            x1 = x