Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 113, 196)
    If GetColor = "0000EF"
        X00=184:Y00=425:time00=500
    Else 
        X00=834:Y00=531:time00=500
    EndIf 
    X01= 450 : Y01= 137  : COL01 = "633000" : time01=300
    If Var005="1"
        X01= 450 : Y01= 157  : COL01 = "633000" : time01=300
    EndIf 
    Gosub CX.点击判断
    If Var1114_temp  = "0"
        //补看小弟的血
        Delay 500
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 262, 227)
        If right ( GetColor , 2 ) = "E7"
        Else 
            Gosub CX.精灵恢复补充
        EndIf 
        If buxue > 1
            Goto END精灵恢复关闭窗口
        EndIf 
        X00 = 405 :  Y00 = 225
        X01 = 392 :  Y01 = 249 : COL02 = "633000" :Time02 = 45 : xiaosh=1
        Gosub CX.点击判断
    EndIf 
    Gosub CX.精灵恢复补充
    Rem END精灵恢复关闭窗口
    //关闭窗口
    X01= 450 : Y01= 137  : COL01 = "633000" : time01=500
    If Var005="1"
        X01= 450 : Y01= 157  : COL01 = "633000" : time01=500
    EndIf 
    Gosub CX.判断点击判断
    buxue=cint(var2)
    Var1114_temp =  10
Return CX.精灵恢复
Sub CX.精灵恢复补充
    For 5
        //获取精灵恢复坐标
        Plugin XY = Bkgnd.FindColor(Hwnd, 230, 410, 450, 433, "0000FF")
        MyArray = Split(XY, "|")
        X = CInt(MyArray(0)): Y = CInt(MyArray(1))
        If X>0 and Y>0
            Goto 精灵恢复坐标
        EndIf 
        Delay time101
    EndFor 
    Rem 精灵恢复坐标
    X00=X:Y00=Y:time00=500
    X01= 358 : Y01= 239  : COL01 = "FFFFFF" : time01=500
    Gosub CX.点击判断
    For 5
        Gosub CX.确定判断
        Delay time101
    EndFor 
Return CX.精灵恢复补充
Sub CX.选择楼层
    X00=449:Y00=86:time00=500
    X01= 599 : Y01= 304  : COL01 = "FFFFFF" : time01=200
    Gosub CX.点击判断
    Rem 开始挑战001
    X00= Y3 : Y00=Y3:time00=500
    Gosub CX.直接点击
    Delay time101
    Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 113, 195)
    If GetColor =  "0004F7"
        Goto 进入挑战塔
    Else 
        //选择楼层
        Delay time101
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 793, 262)
        If GetColor =  "FFFFFF"
            X00=793:Y00=262+var3*36:time00=500
            X01= 113 : Y01= 195  : COL01 = "0004F7" : time01=200
            Gosub CX.点击判断
        Else 
            Goto 开始挑战001
        EndIf 
    EndIf 
    Rem 进入挑战塔
Return CX.选择楼层
Sub CX.读句柄
    VBS dim fso,file,filename
    VBS filename="..\句柄.txt"
    VBS Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filename)=0
        Var_QD = "1"
        Goto END读句柄
        //MessageBox "句柄不在"
        //Goto END
    EndIf 
    VBS Set file=fso.OpenTextFile(filename,1)
    VBS Hwnd=file.ReadLine
    VBS file.Close
    VBS dim fso,file,filename
    VBS filename="..\程序句柄.txt"
    VBS Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filename)=0
        Var_QD = "1"