Plugin Bkgnd.LeftClick(Hwnd, X, Y)
            Delay time101 + 5000
            Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 465, 338)
        EndWhile 
    EndIf 
Return CX.选择面向精灵
Sub 通过地图进入星系
    //打开地图
    X00=47:Y00=518:time01=2000
    X01= 632 : Y01= 357  : COL01 = "9C9A9C" : time01=1000
    Gosub CX.点击判断
    //帕诺星系
    Delay 1000
    For 20
        Plugin XY = Bkgnd.FindColor(Hwnd, A_PNX, B_PNX, C_PNX, D_PNX, COL_PNX)
        MyArray = Split(XY, "|")
        X = CInt(MyArray(0)): Y = CInt(MyArray(1))
        If X > 0 and Y > 0
            X01=X:Y01=Y:time01=2000
            Gosub CX.直接点击
        EndIf 
        //找云霄星
        //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：150, 184)处
        Plugin Bkgnd.MoveTo(Hwnd, X_SB, Y_SB)
        Delay 500
        Plugin XY = Bkgnd.FindCenterColor(Hwnd, 119, Y_SQ1 , 838, Y_SQ2 , COL_SQ)
        MyArray = Split(XY, "|")
        X = CInt(MyArray(0)): Y = CInt(MyArray(1))
        If X  > 0 and Y >0
            For 10
                X = X + 10
                Plugin Bkgnd.LeftClick(Hwnd, X, Y)
                Plugin Bkgnd.LeftClick(Hwnd, X, Y)
                Delay 500
                Plugin XY = Bkgnd.FindCenterColor(Hwnd, 119, Y_SQ1 , 838, Y_SQ2 , COL_SQ)
                MyArray = Split(XY, "|")
                X = CInt(MyArray(0)): Y = CInt(MyArray(1))
                If X  > 0 and Y >0
                    Plugin Bkgnd.LeftClick(Hwnd, X, Y)
                Else 
                    Goto 进入星系001
                EndIf 
            EndFor 
        EndIf 
    EndFor 
    Rem 进入星系001
    For 10
        Delay 1000
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 0, 0)
        If GetColor =  COL_MB
            Goto END进入星系
        EndIf 
    EndFor 
    Rem END进入星系
Return 通过地图进入星系
Rem END
EndScript