//小地图有效怪范围
VBS Dim MapA(4)
VBS MapA(0)=723
VBS MapA(1)=75
VBS MapA(2)=749
VBS MapA(3)=95
//大地图人物坐标
VBS Dim PosB(2)
VBS PosB(0)=400
VBS PosB(1)=280
//小地图中心坐标
VBS Dim PosA(2)
VBS PosA(0)=736
VBS PosA(1)=85
//阻挡提示文字坐标范围
VBS Dim PosL(2,2)
VBS PosL(0,0)=485
VBS PosL(0,1)=278
VBS PosL(1,0)=499
VBS Posl(1,1)=302
//设置挂机参数
Gosub SetPara
//--------------------
busy=0
SelectedET=0
SKILL_NUM=100
BLOOD_LOW=9
BLOOD_HI=8
UserVar MyBlood
//-----------------------------------
VBS time1=timer
VBS time1_skill=timer
VBS time20=timer
VBS time30=timer
VBS time40=timer
VBS time50=timer
//----------------------------------------
//循环前使用一次定时技能
SKILL_NUM=9
Gosub SkillA
//---------------------------------
//进入循环体
While Mykey<>35
    //寻怪
    If SelectedEt=0
        Busy=0
        Gosub CatchET
    EndIf 
    //------------------------------
    //使用打怪技能
    If SelectedET=1
        SKILL_NUM=3
        Gosub SkillA
    EndIf 
    //-----------------------------
    //判断
    IfColor 268 33 0 0
        IfColor 206 36 181821 2
            If SelectedET=1
                Busy=1
            EndIf 
        Else 
            Busy=0
            SelectedET=0
        EndIf 
    Else 
        Busy=0
        SelectedEt=0
    EndIf 
    //-------------------------------
    //使用补血技能
    VBS time21=timer
    If (time21-time20)>5
        time20=time21
        Gosub CheckMyBlood
        If MyBlood=BLOOD_LOW
            SKILL_NUM=4
            Gosub SkillA
        EndIf 
    Else 
        If (time21-time20)<0
            time20=time21
        EndIf 
    EndIf 
    //-------------------------------
    //使用定时技能
    VBS time2_skill=timer
    If (time2_skill-time1_skill)>600
        SKILL_NUM=9
        Gosub SkillA
    Else 
        If (time2_skill-time1_skill)<0
            time1=time2
        EndIf 
    EndIf 
    //-----------------------------------------------------------
    //时间片断内检查控制人物坐标
    VBS time41=timer
    If (time41-time40)>1
        Gosub RangeCtrl