Delay 200

        Else 

            Gosub 开始打怪

        EndIf 

    Else 

        KeyPressH 192,1

        Delay 200

    EndIf 

Return 

//***************************************************

//    打怪开始

//**************************************************

Sub 开始打怪

    Delay 10

    katime = now

    katime2 = now

    Rem 怪没死

    //放技能1

    KeyPressH 49,1

    Delay 200

    //IfColor lan/100*((x-582)-(x-716))+(x-716), y-4, color(1), 2

    //还有蓝,用技能

    Gosub 时间技能

    //EndIf

    Delay 10

    //----------------------------------

    // Gosub 防卡检测

    If DateDiff("s",katime,now) >= 25

        katime = now

        Goto 换怪

    EndIf 

    If DateDiff("s",katime2,now)>= 6

        VBSCall FindColorEx(x2+142,y2-21,x2+151,y2-8,"0303E9",1,0.8,x5,y5)

        If x5>=0 and y5>=0

            katime2 = now

            LeftClickS 1

        EndIf 

    EndIf 

    //-----------------------------------

    //IfColor x2+5, y2+4, color(2), 2

    VBSCall Call FindPic(260,0,950,350,"Attachment:\定怪星.bmp",0.8,x21,y21)

    If x21>=0 and y21>=0

        Goto 怪没死

    Else 

        KeyPressH 192,1

        Delay 200

    EndIf 

    Rem 换怪

Return 

//******************************************************