xitSubElseGotoAEndIfEndIfEndSub//=======================================================================Sub召唤暂停//这个子程序的目的其实可以不要,但是为了提高BB出战的准确率,我加了个这个东西,必须召唤出来了才继续杀怪,不然切怪得速度太快,召唤不出来Dodm.keypress121//BB出战快捷键Delay1000dm_ret=dm.CmpColor(115,84,"d90a00-000000",0.9)//判断召唤是否成功Ifdm_ret=0ThenExitSubEndIfloopEndSub//=================================防卡===================================Sub防卡//这个防卡其实是为了在特殊地形远程人物攻击会卡,无效等情况,攻击之后不减血,立即换怪IfForm1.CheckBox1.Value=1ThenDelay500i=i+1Ifi>2Thendm_ret=dm.CmpColor(451,36,"d90a00-000000",0.9)Ifdm_ret=0ThenGoto继续找怪EndIfEndIfEndIfEndSub//===============================捡包====================================Sub捡包//说实话3D找色来找包,成功率真的很低。不建议使用dm_ret=dm.FindColor(0,0,2000,2000,"a3955f-000000",1.0,0,x,y)Ifx>=0andy>=0Thendm.movetox,yDelay100dm.RightClickElseExitSubEndIfEndSub
全文预览
