//小地图有效怪范围 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