时间控制的辅助技能.doc

时间控制的辅助技能脚本进阶【荐】1游戏维护无聊中，来支持一下按键论坛，这次专门讲一下时间控制的辅助技能看到论坛有很多专门用于使用辅助技能的脚本，都是用DateDiff 函数循环判断时间的，只是判断的部分写的过于麻烦，每一个技能都要用一个DateDiff 来判断，类似于这种形式1. .2. .3. .4. Sub 第7快键技能5. If DateDiff(s,j7time,Now)j76. KeyPress 55,17. Delay ggg8. VBS j7time=now9. Else 10. EndIf 11. Return 第7快键技能12. Sub 第8快键技能13. If DateDiff(s,j8time,Now)j814. KeyPress 56,115. Delay hhh16. VBS j8time=now17. Else 18. EndIf 19. Return 第8快键技能20. Sub 第9快键技能21. If DateDiff(s,j9time,Now)j922. KeyPress 57,123. Delay iii24. VBS j9time=now25. Else 26. EndIf 27. Return 第9快键技能28. .29. .30. .复制代码这种方法的脚本我就不解释了，比较多的都是这样的，虽然功能可以实现，但可以看出来，这种写法非常麻烦，每多增加一个技能，都要对脚本进行修改，增加变量，增加过程模块，大大增加了脚本长度其实对于这种相同的，相似的代码块，我们同样的也可以把它们综合为一个过程函数，例如 1. VBSBegin 2. Sub UseSkill(ByVal KeyCode,ByVal ColdTime,ByVal EffTime)3. KeyCode 快捷键按键码, ColdTime 冷却时间，EffTime 效果持续时间 4. Execute T = T & KeyCode5. 执行语句块，取得时间 T 6. If DateDiff(s,T,Now() = EffTime Then7. KeyPress KeyCode,18. Execute T & KeyCode & =Now()9. 执行语句块，每个技能使用时间的变量名，用 T 加 按键码表示 10. Delay ColdTime*100011. 延迟，注意换算单位 12. End If13. End Sub14. VBSEnd 15. /按快捷键1(按键码49)，冷却时间1.5秒，效果持续时间为60秒16. /按快捷键2(按键码50)，冷却时间2秒，效果持续时间为120秒17. /按快捷键3(按键码51)，冷却时间1秒，效果持续时间为30秒18. /注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里19. Rem start20. Delay 10021. UseSkill 49,1.5,6022. UseSkill 50,2,12023. UseSkill 51,1,12024. Goto start复制代码这样，我们就可以在脚本中用 UseSkill 过程，通过不同的参数来使用不同的技能，增加技能时，只需要增加一行 UseSkill 就行了，上面是利用VBS 的Sub 过程，如果要使用按键精灵的伪过程，可以把参数做成字符串的形式，然后在过程中切割使用，脚本如下 1. /SkillStr 字符串值为按键码,冷却时间,效果持续时间格式，单位秒2. /快捷键1,冷却时间1.5秒，效果持续时间60秒3. /快捷键2,冷却时间2秒，效果持续时间120秒4. /快捷键3,冷却时间1秒，效果持续时间30秒5. /注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里6. Rem Start7. Delay 1008. SkillStr = 49,1.5,609. Gosub UseSkill10. SkillStr = 50,2,12011. Gosub UseSkill12. SkillStr = 51,1,3013. Gosub UseSkill14. Goto Start15. EndScript 16. Sub UseSkill17. SkillString = Split(SkillStr,-1,1)18. Execute T = T & SkillString(0)19. If DateDiff(s,T,Now() = CInt(SkillString(2)20. KeyPress SkillString(0),121. Execute T & SkillString(0) & =Now()22. Delay SkillString(1)*100023. EndIf 24. Return UseSkill复制代码对于某个技能来说，它的冷却时间和效果持续时间基本可以说，是固定的，那么我们可以在这个基础上更进一步，把不同的 SkillStr技能字符串作为数组保存起来，然后用循环调用 1. /Skill 字符串值为按键码,冷却时间,效果持续时间格式，单位秒2. /注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里3. Dim Skill(2)4. Skill(0) = 49,1.5,605. /快捷键1,冷却时间1.5秒，效果持续时间60秒6. Skill(1) = 50,2,1207. /快捷键2,冷却时间2秒，效果持续时间120秒8. Skill(2) = 51,1,309. /快捷键3,冷却时间1秒，效果持续时间30秒10. Rem Start11. I = 012. For UBound(Skill)+113. Delay 10014. SkillStr = Skill(I)15. Gosub UseSkill16. I = I + 117. EndFor 18. Goto Start19. EndScript 20. Sub UseSkill21. SkillString = Split(SkillStr,-1,1)22. Execute T = T & SkillString(0)23. If DateDiff(s,T,Now() = CInt(SkillString(2)24. KeyPress SkillString(0),125. Execute T & SkillString(0) & =Now()26. Delay SkillString(1)*100027. EndIf 28. Return UseSkill复制代码有的人可能说，这和前面的那个功能上完全一致，但是却复杂了很多，好像是多此一举，其实这样复杂了以后，我们就不必写很多 SkillStr = xxxxx和 Gosub UseSkill ，直接修改 Skill 数组就行，而且别急，这是为下一个更重要的目的做准备的 1. UserVar UserStr = 3,1 辅助技能快捷键序列2. /使用快捷键3和快捷键1的辅助技能3. /Skill 字符串值为按键码,冷却时间,效果持续时间格式，单位秒4. /注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里5. Dim Skill(2)6. Skill(0) = 49,1.5,607. /快捷键1,冷却时间1.5秒，效果持续时间60秒8. Skill(1) = 50,2,1209. /快捷键2,冷却时间2秒，效果持续时间120秒10. Skill(2) = 51,1,3011. /快捷键3,冷却时间1秒，效果持续时间30秒12. UserString = Split(UserStr,-1,1)13. Rem Start14. I = 015. For UBound(UserString)+116. Delay 10017. SkillStr = Skill(CInt(UserString(I)-1)18. Gosub UseSkill19. I = I + 120. EndFor 21. Goto Start22. EndScript 23. Sub UseSkill24. SkillString = Split(SkillStr,-1,1)25. Execute T = T & SkillString(0)26. If DateDiff(s,T,Now() = CInt(SkillString(2)27. KeyPress SkillString(0),128. Execute T & SkillString(0) & =Now()29. Delay SkillString(1)*100030. EndIf 31. Return UseSkill复制代码大家应该发现，脚本中多了一个自定义变量 UserStr，通过这个 UserStr 我们就可以让用户在自定义面板中指定只使用哪些技能(有的技能在某些情况下不需要使用)，以及第一次使用时的优先顺序，比如这个脚本就是使用快捷键3的技能，再使用快捷键1的技能，快捷键2的技能不用当然，对于这个脚本来说，每个快捷键使用什么技能，都是和 Skill 数组中的字符串对应的，也就是说，快捷键1是什么技能，2是什么技能，都是固定的，如果需要不固定，那就需要把更多的信息也表示在 UserStr 中例如 UserVar UserStr = 51,1,30|49,1.5,60 辅助技能快捷键序列这样就可以随意的按照你的个人习惯设置快捷键，当然，这样写就需要在脚本中重新设计切割方法，如下： 1. UserVar UserStr = 51,1,30|49,1.5,60 辅助技能快捷键序列2. /UserStr 格式为按键码,冷却时间,效果持续时间|按键码,冷却时间,效果持续时间，单位秒3. /注释部分只是为了帮助大家阅读而写的，使用时最好删掉，以免影响执行速度，最起码也不要放在循环里4. Skill = Split(UserStr,|,-1,1)5. Rem Start6. I = 07. For UBound(Skill)+18. Delay 1009. SkillStr = Skill(I)10. Gosub UseSkill11. I = I + 112. EndFor 13. Goto Start14. EndScript 15. Sub UseSkill16. SkillString = Split(SkillStr,-1,1)17. Execute T = T & SkillString(0)18. If DateDiff(s,T,Now() = CInt(SkillString(2)19. KeyPress SkillString(0),120. Execute T & SkillString(0) &