- 用户定义变量 hong=100 红少于多少吃红药
- 用户定义变量 lan=100 蓝少于多少吃蓝药
- 用户定义变量 jn4=9 吃红键位
- 用户定义变量 jn5=0 吃蓝键位
- 用户定义变量 jn1=4 辅助技能1键位
- 用户定义变量 jn2=5 辅助技能2键位
- 用户定义变量 jn3=6 辅助技能3键位
- 用户定义变量 s1=60 技能1施放间隔时间
- 用户定义变量 s2=90 技能2施放间隔时间
- 用户定义变量 s3=120 技能3施放间隔时间
- 用户定义变量 huicheng=7 回程键位
- 用户定义变量 sibaojing=DropList{是:0|否:1}=0 死亡报警
- 用户定义变量 hongbaojing=DropList{报警:0|回程:1}=0 红药用完动作
- 用户定义变量 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)))
- //-----------------------主程序-----------------------------
- 调用插件命令 cq=Window.Foreground()
- 标记 开始打怪
- 调用子程序 检查红蓝
- 调用子程序 读经验
- 调用子程序 抓怪
- 调用子程序 打怪
- 调用子程序 二次读经验
- 调用子程序 捡物
- 调用子程序 开辅助技能
- 跳转到标记 开始打怪
- //---------------------查红蓝--------------------------
- 子程序 检查红蓝
- 标记 查红
- 调用插件命令 hp=Memory.Read16Bit(cq,&h06877094)
- 如果表达式 (hp=0 and sbaojing=0) 为真,则
- (VBScript语句) strSoundFile = "C:\WINDOWS\Media\ringin.wav"
- (VBScript语句) Set objShell = CreateObject("Wscript.Shell")
- (VBScript语句) strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
- (VBScript语句) objShell.Run strCommand, 0, True
- 跳转到标记 等待
- 条件结束
- 如果表达式 (CInt(hp)<CInt(hong)) 为真,则
- 调用插件命令 Window.SendKeyDown(cq,key(4))
- 延时32毫秒
- 调用插件命令 Window.SendKeyUp(cq,key(4))
- 调用子程序 再读一次红
- 条件结束
- 标记 查蓝
- 调用插件命令 sp=Memory.Read16Bit(cq,&h068770a4)
- 如果表达式 (CInt(sp)<CInt(lan)) 为真,则
- 调用插件命令 Window.SendKeyDown(cq,key(5))
- 延时32毫秒
- 调用插件命令 Window.SendKeyUp(cq,key(5))
- 调用子程序 再读一次蓝
- 条件结束
- 子程序结束,回到调用处
- //--------------------再读一次红--------------------
- 子程序 再读一次红
- 调用插件命令 hp2=Memory.Read16Bit(cq,&h06877094)
- 如果表达式 (hp2=hp and hongbaojing=0) 为真,则
- (VBScript语句) strSoundFile = "C:\WINDOWS\Media\ringin.wav"
- (VBScript语句) Set objShell = CreateObject("Wscript.Shell")
- (VBScript语句) strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
- (VBScript语句) objShell.Run strCommand, 0, True
- 调用子程序 等待
- 条件结束
- 否则如果(hp2=hp and hongbaojing=1)为真,则
- 调用插件命令 Window.SendKeyDown(cq,key(5))
- 延时32毫秒
- 调用插件命令 Window.SendKeyUp(cq,key(5))
- 调用子程序 等待
- 条件结束
- 子程序结束,回到调用处
- //--------------------再读一次蓝--------------------
- 子程序 再读一次蓝
- 调用插件命令 sp2=Memory.Read16Bit(cq,&h068770a4)
- 如果表达式 (sp2=sp1 and lanbaojing=0) 为真,则
- (VBScript语句) strSoundFile = "C:\WINDOWS\Media\ringin.wav"
- (VBScript语句) Set objShell = CreateObject("Wscript.Shell")
- (VBScript语句) strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
- (VBScript语句) objShell.Run strCommand, 0, True
- 调用子程序 等待
- 否则如果(sp2=sp and lanbaojing=1)为真,则
- 调用插件命令 Window.SendKeyDown(cq,key(5))
- 延时32毫秒
- 调用插件命令 Window.SendKeyUp(cq,key(5))
- 调用子程序 等待
- 条件结束
- 子程序结束,回到调用处
- //--------------------第一次读经验------------------
- 子程序 读经验
- 调用插件命令 jingyan=Memory.Read16Bit(cq,&h007e85d8)
- 子程序结束,回到调用处