VBSCall FindColorEx(441,216,582,260,"f3973d",1,0.9,x,y)
        If x>=0 and y>=0
            KeyPressH 27,1
            Delay 100
            KeyDownH 37,1
            Delay 750
            KeyUpH 37,1
        Else 
            MoveTo 500+Int((420*Rnd)-210) 380+Int((400*Rnd)-200)
            Delay 100
            LeftClick 2
            RightClick 2
        EndIf 
        lo=0
    EndIf 
    Delay 100
    KeyPressH 50,1
    Delay 100
    KeyPressH 50,1
    Delay 100
    KeyPressH 51,1
    Delay 100
    KeyPressH 51,1
    Delay 100
    KeyPressH 52,1
    Delay 100
    KeyPressH 52,1
    Delay 100
    KeyPressH 32,1
    Goto 技能
Else 
    KeyPressH 32,4
    lo=0
EndIf 
sj=0
Goto 开始
//============================================
//==================子程序==================
//============================================
//==================随机移动==================
Sub 随机移动
    //如果整个窗口没怪就随机移动
    Rem 查怪
    If g1=>1
        KeyPressH 39,6
        VBSCall FindColorEx(55,45,955,650,"00ffff",1,0.8,x,y)
        Delay 150
        If x>=0 and y>=0
            Goto 自动打怪
        Else 
        EndIf 
    EndIf 
    If g2=>1
        KeyPressH 39,6
        VBSCall FindColorEx(55,45,955,650,"80ff",1,0.8,x,y)
        Delay 150
        If x>=0 and y>=0
            Goto 自动打怪
        Else 
        EndIf 
    EndIf 
    If g3=>1
        KeyPressH 39,6
        VBSCall FindColorEx(55,45,955,650,"40bec0",1,0.8,x,y)
        Delay 150
        If x>=0 and y>=0
            Goto 自动打怪
        Else 
        EndIf 
    EndIf 
    Goto 查怪
Return 随机移动
//==================对话消除==================
Sub 对话消除
    IfColor 418,697,d4d6d6,0
        KeyPressH 13,1
    Else 
    EndIf 
Return 对话消除
//====================加血加蓝====================
Sub 补血蓝
    //红
    IfColor ax,22,8688db,2
    Else 
        Delay 100
        IfColor ax,22,8688db,2
        Else 
            Delay 100
            IfColor ax,22,8688db,2
            Else 
                KeyPressH 49,1
            EndIf 
        EndIf 
    EndIf 
    //蓝
    IfColor mx,38,af3021,2
    Else 
        IfColor mx,38,af3021,2
        Else 
            IfColor mx,38,af3021,2