UserVar hong=100 红少于多少吃红药 UserVar lan=100 蓝少于多少吃蓝药 UserVar jn4=9 吃红键位 UserVar jn5=0 吃蓝键位 UserVar jn1=4 辅助技能1键位 UserVar jn2=5 辅助技能2键位 UserVar jn3=6 辅助技能3键位 UserVar s1=60 技能1施放间隔时间 UserVar s2=90 技能2施放间隔时间 UserVar s3=120 技能3施放间隔时间 UserVar huicheng=7 回程键位 UserVar sibaojing=DropList{是:0|否:1}=0 死亡报警 UserVar hongbaojing=DropList{报警:0|回程:1}=0 红药用完动作 UserVar lanbaojing=DropList{报警:0|回程:1}=0 蓝药用完报警 dim hong lan cq dim key(5) t1=now:t2=now:t3=now zifuchuan=jn4&jn5&jn1&jn2&jn3&huicheng //声明字符串 //-----------------------转换键码--------------------------- key(0)=Asc(UCase(jn1)) key(1)=Asc(UCase(jn2)) key(2)=Asc(UCase(jn3)) key(3)=Asc(UCase(jn4)) key(4)=Asc(UCase(jn5)) key(5)=Asc(UCase((huicheng))) //-----------------------主程序----------------------------- Plugin cq=Window.Foreground() Rem 开始打怪 Gosub 检查红蓝 Gosub 读经验 Gosub 抓怪 Gosub 打怪 Gosub 二次读经验 Gosub 捡物 Gosub 开辅助技能 Goto 开始打怪 //---------------------查红蓝-------------------------- Sub 检查红蓝 Rem 查红 Plugin hp=Memory.Read16Bit(cq,&h06877094) If hp=0 and sbaojing=0 VBS strSoundFile = "C:\WINDOWS\Media\ringin.wav" VBS Set objShell = CreateObject("Wscript.Shell") VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) VBS objShell.Run strCommand, 0, True Goto 等待 EndIf If CInt(hp)<CInt(hong) Plugin Window.SendKeyDown(cq,key(4)) Delay 32 Plugin Window.SendKeyUp(cq,key(4)) Gosub 再读一次红 EndIf Rem 查蓝 Plugin sp=Memory.Read16Bit(cq,&h068770a4) If CInt(sp)<CInt(lan) Plugin Window.SendKeyDown(cq,key(5)) Delay 32 Plugin Window.SendKeyUp(cq,key(5)) Gosub 再读一次蓝 EndIf Return //--------------------再读一次红-------------------- Sub 再读一次红 Plugin hp2=Memory.Read16Bit(cq,&h06877094) If hp2=hp and hongbaojing=0 VBS strSoundFile = "C:\WINDOWS\Media\ringin.wav" VBS Set objShell = CreateObject("Wscript.Shell") VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) VBS objShell.Run strCommand, 0, True Gosub 等待 EndIf ElseIf hp2=hp and hongbaojing=1 Plugin Window.SendKeyDown(cq,key(5)) Delay 32 Plugin Window.SendKeyUp(cq,key(5)) Gosub 等待 EndIf Return //--------------------再读一次蓝-------------------- Sub 再读一次蓝 Plugin sp2=Memory.Read16Bit(cq,&h068770a4) If sp2=sp1 and lanbaojing=0 VBS strSoundFile = "C:\WINDOWS\Media\ringin.wav" VBS Set objShell = CreateObject("Wscript.Shell") VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) VBS objShell.Run strCommand, 0, True Gosub 等待 ElseIf sp2=sp and lanbaojing=1 Plugin Window.SendKeyDown(cq,key(5)) Delay 32 Plugin Window.SendKeyUp(cq,key(5)) Gosub 等待 EndIf Return //--------------------第一次读经验------------------ Sub 读经验 Plugin jingyan=Memory.Read16Bit(cq,&h007e85d8) Return