//3.2版本 //作者:gosoyoung //QQ:18093219 VBS dim hong,lan,g1,g2,g3,sj,lo,ci VBS dim t1,t2,t3,q,e,r,kk t1=now:t2=now:t3=now //==================设置================== UserVar hong=60 按%血量吃红 UserVar lan=50 按%MP量吃蓝(0表示不使用自动加蓝功能) UserVar g1=1 是否攻击黄怪(是=1,否=0) UserVar g2=1 是否攻击浅红怪(是=1,否=0) UserVar g3=1 是否攻击浅黄怪(是=1,否=0) UserVar r=100 第8键辅助技能的间隔时间(秒),写0表示不使用 UserVar e=100 第9键辅助技能的间隔时间(秒),写0表示不使用 UserVar q=90 第0键辅助技能(的间隔时间(秒),写0表示不使用 UserVar ci=100 循环次内没击倒怪就放弃,随即跑动,重新找怪 sj=0 ax=hong*1.8+64 mx=lan*1.8+61 //===================================================== //===================================================== Delay 500 //==================开始================== Rem 开始 //检查下是否有对话框存在 IfColor 418,697,d4d6d6,0 KeyPressH 13,1 Else EndIf //---------------------------------------- //检查下是否要加辅助技能 If r>0 If datediff("s",t1,now)>=r Delay 100 KeyPressH 56,1 t1=now Goto 寻怪 EndIf EndIf If e>0 If datediff("s",t2,now)>=e Delay 100 KeyPressH 57,1 t2=now Goto 寻怪 EndIf EndIf If q>0 If datediff("s",t3,now)>=q Delay 100 KeyPressH 48,1 t3=now Goto 寻怪 EndIf EndIf //---------------------------------------- //开始寻找怪物 Rem 寻怪 If sj=>1 Gosub 随机移动 EndIf //搜索黄怪 If g1=>1 Gosub 找怪1 EndIf //搜索浅红怪 If g2=>1 Gosub 找怪2 EndIf //搜索浅黄怪 If g3=>1 Gosub 找怪3 EndIf Gosub 补血 sj=1 Goto 开始 //---------------------------------------- //=================确认怪================= Rem 自动打怪 //点到怪就用物理攻击 dx=x dy=y+30 MoveTo dx+Int((80*Rnd)-40) dy+Int((30*Rnd)-15) RightClick 2 MoveTo dx+Int((80*Rnd)-40) dy+Int((30*Rnd)-15) RightClick 2 MoveTo dx+Int((80*Rnd)-40) dy+Int((30*Rnd)-15) RightClick 2 MoveTo dx+Int((80*Rnd)-40) dy+Int((30*Rnd)-15) RightClick 2 Rem 技能 Gosub 对话消除 Delay 100 Gosub 补血蓝 IfColor 374,20,a95f8,2 lo=lo+1 If lo=>ci Delay 100 KeyPressH 27,1 Delay 200