时间控制的辅助技能.doc

时间控制的辅助技能脚本进阶【荐】1游戏维护无聊中，来支持一下按键论坛，这次专门讲一下时间控制的辅助技能看到论坛有很多专门用于使用辅助技能的脚本，都是用DateDiff 函数循环判断时间的，只是判断的部分写的过于麻烦，每一个技能都要用一个DateDiff 来判断，类似于这种形式 .. .. .. Sub 第7快键技能 ? ? If DateDiff(s,j7time,Now)j7 ? ?? ???KeyPress 55,1 ? ?? ???Delay ggg ? ?? ???VBS j7time=now ? ? Else ? ? EndIf Return 第7快键技能 Sub 第8快键技能 ? ? If DateDiff(s,j8time,Now)j8 ? ?? ???KeyPress 56,1 ? ?? ???Delay hhh ? ?? ???VBS j8time=now ? ? Else ? ? EndIf Return 第8快键技能 Sub 第9快键技能 ? ? If DateDiff(s,j9time,Now)j9 ? ?? ???KeyPress 57,1 ? ?? ???Delay iii ? ?? ???VBS j9time=now ? ? Else ? ? EndIf Return 第9快键技能 .. .. .. 复制代码 这种方法的脚本我就不解释了，比较多的都是这样的，虽然功能可以实现，但可以看出来，这种写法非常麻烦，每多增加一个技能，都要对脚本进行修改，增加变量，增加过程模块，大大增加了脚本长度其实对于这种相同的，相似的代码块，我们同样的也可以把它们综合为一个过程函数，例如 VBSBegin ? ? Sub UseSkill(ByVal KeyCode,ByVal ColdTime,ByVal EffTime) ? ? KeyCode 快捷键按键码, ColdTime 冷却时间，EffTime 效果持续时间 ? ? Execute T = T KeyCode ? ? 执行语句块，取得时间 T ? ? If DateDiff(s,T,Now()) = EffTime Then ? ? KeyPress KeyCode,1 ? ? Execute T KeyCode =Now() ? ? 执行语句块，每个技能使用时间的变量名，用 T 加 按键码表示 ? ? Delay ColdTime*1000 ? ? 延迟，注意换算单位 ? ? End If ? ? End Sub VBSEnd //按快捷键1(按键码49)，冷却时间1.5秒，效果持续时间为60秒 //按快捷键2(按键码50)，冷却时间2秒，效果持续时间为120秒 //按快捷键3(按键码51)，冷却时间1秒，效果持续时间为30秒 //注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里 Rem start Delay 100 UseSkill 49,1.5,60 UseSkill 50,2,120 UseSkill 51,1,120 Goto start 复制代码 这样，我们就可以在脚本中用 UseSkill 过程，通过不同的参数来使用不同的技能，增加技能时，只需要增加一行 UseSkill 就行了，上面是利用VBS 的Sub 过程，如果要使用按键精灵的伪过程，可以把参数做成字符串的形式，然后在过程中切割使用，脚本如下 //SkillStr 字符串值为按键码,冷却时间,效果持续时间格式，单位秒 //快捷键1,冷却时间1.5秒，效果持续时间60秒 //快捷键2,冷却时间2秒，效果持续时间120秒 //快捷键3,冷却时间1秒，效果持续时间30秒 //注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里 Rem Start Delay 100 SkillStr = 49,1.5,60 Gosub UseSkill SkillStr = 50,2,120 Gosub UseSkill SkillStr = 51,1,30 Gosub UseSkill Goto Start EndScript Sub UseSkill ? ? SkillString = Split(SkillStr,,,-1,1) ? ? Execute T = T SkillString(0) ? ? If DateDiff(s,T,Now()) = CInt(SkillString(2)) ? ?? ???KeyPress SkillString(0),1 ? ?? ???Execute T SkillString(0) =Now() ? ?? ???Delay Skil