间隔时间自动使用技能 脚本

mimi_rice

间隔时间自动使用技能 脚本

内容转载至晨风的帖子，由官方整理编排成一个系列{:4_99:}

游客，如果您要查看本帖隐藏内容请回复

脚本使用说明:

１．此脚本可应用于各种网络游戏，用于自动间隔时间使用 技能，可自定义三个技能和间隔时间。

２．脚本开始运行前请先在按键精灵主界面上设置自定义参数，修改后点击上方的“保存”按钮。

３．可定义 技能热键：数字0～9、字母A～Z、F1～F12 ，设置技能时字母可不分大小写。

４．如果 技能是F1～F12，比如技能是F12，自定义参数设置的输入格式：f12或F12

５．输入间隔时间单位为"秒"，比如间隔180秒，自定义参数的输入格式：180

６．如果在自定义设置中输入的数据错误，脚本将提示并停止运行。

>>具体脚本代码如下：

1. UserVar jn1=a 设置技能1键位
   
2. UserVar jn2=2 设置技能2键位
   
3. UserVar jn3=F11 设置技能3键位
   
4. UserVar s1=60 设置技能1施放间隔时间
   
5. UserVar s2=90 设置技能2施放间隔时间
   
6. UserVar s3=120 设置技能3施放间隔时间
   
7. //-----------------------------------------------------------------------
   
8. //---------------------------------------------------------[赋值初始变量]
   
9. //-----------------------------------------------------------------------
   
10. dim number(2),thetime(2),key(2),sj(2)
    
11. dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
    
12. //声明变量
    
13. number(0)=jn1:number(1)=jn2:number(2)=jn3
    
14. thetime(0)=s1:thetime(1)=s2:thetime(2)=s3
    
15. //把自定义参数的返回值转换成数组元素
    
16. t1=now:t2=now:t3=now
    
17. //返回当前系统日期时间到变量
    
18. //-----------------------------------------------------------------------
    
19. //---------------------------------------------------------- [跳转子程序]
    
20. //-----------------------------------------------------------------------
    
21. Gosub 判断按键
    
22. Gosub 判断时间
    
23. //-----------------------------------------------------------------------
    
24. //---------------------------------------------------------- [脚本主程序]
    
25. //-----------------------------------------------------------------------
    
26. While true
    
27.     //条件无限循环
    
28.     If DateDiff("s",t1,now)>=sj(0)
    
29.         //< DateDiff 函数：返回两个日期之间的时间间隔>
    
30.         //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
    
31.         Delay 10
    
32.         KeyPress key(0) 1
    
33.         //按键 变量k(0) 1次
    
34.         t1=now
    
35.         //重新赋值日期时间到变量
    
36.     EndIf
    
37.     If DateDiff("s",t2,now)>=sj(1)
    
38.         Delay 10
    
39.         KeyPress key(1) 1
    
40.         t2=now
    
41.     EndIf
    
42.     If DateDiff("s",t3,now)>=sj(2)
    
43.         Delay 10
    
44.         KeyPress key(2) 1
    
45.         t3=now
    
46.     EndIf
    
47.     Delay 10
    
48. EndWhile
    
49. //-----------------------------------------------------------------------
    
50. //------------------------------------------------------ [判断键码子程序]
    
51. //-----------------------------------------------------------------------
    
52. Sub 判断按键
    
53.     a=0:b=0
    
54.     //赋值数组最小下标
    
55.     For 3
    
56.         L=Len(number(a))
    
57.         //< Len 函数：返回字符串内字符的数量>
    
58.         If L=1
    
59.             key(b)=Asc(UCase(number(a)))
    
60.             //< Asc 函数：返回字符串首字母的ASCII字符代码> < UCase 函数：返回转换为大写字母的字符>
    
61.             If key(b)<48 or key(b)>90
    
62.                 Goto End
    
63.                 //超出范围跳转到脚本结束标记
    
64.             ElseIf key(b)>57 and key(b)<65
    
65.                 Goto End
    
66.             EndIf
    
67.         ElseIf L>1 and L<4
    
68.             If UCase(Left(number(a),1))="F"
    
69.                 //判断字符串首字字符  < Left 函数：返回字符串最左边的指定数量的字符>
    
70.                 key(b)=Asc(UCase(Left(number(a),1)))+Right(number(a),L-1)+41
    
71.                 //< Right 函数：返回字符串最右边的指定数量的字符>
    
72.                 If key(b)<112 or key(b)>123
    
73.                     Goto End
    
74.                 EndIf
    
75.             Else
    
76.                 Goto End
    
77.             EndIf
    
78.         Else
    
79.             Goto End
    
80.         EndIf
    
81.         a=a+1:b=b+1
    
82.         //数组下标+1
    
83.         Delay 10
    
84.     EndFor
    
85. Return 判断按键
    
86. //-----------------------------------------------------------------------
    
87. //------------------------------------------------------ [判断时间子程序]
    
88. //-----------------------------------------------------------------------
    
89. Sub 判断时间
    
90.     c=0:d=0
    
91.     For 3
    
92.         If IsNumeric(thetime(c))=True
    
93.             //< IsNumeric 函数：返回布尔值指明表达式的值是否为数字>
    
94.             sj(d)=cint(thetime(c))
    
95.             /< CInt 函数：返回已被转换为整形子类型的变体的表达式>
    
96.         Else
    
97.             Goto End
    
98.         EndIf
    
99.         c=c+1:d=d+1
    
100.         Delay 10
     
101.     EndFor
     
102. Return 判断时间
     
103. //-----------------------------------------------------------------------
     
104. //-------------------------------------------------------- [脚本停止标记]
     
105. //-----------------------------------------------------------------------
     
106. Rem End
     
107. MessageBox 输入错误 脚本停止运行
     
108. EndScript

复制代码

联系我时，请说是在 挂海论坛 上看到的，谢谢！

xmxnx

激动人心，无法言表！

xijiang

不知道说些什么了,太鸡冻了

f186111

看帖回帖，楼主辛苦了！       

q303456444

今日小生得以一见楼主大贴实在是惶恐至急，何否，楼主此贴实在妙哉!

uvgmn

虽然不需要  可还是谢谢楼主  辛苦了

wendong

虽然不需要  可还是谢谢楼主  辛苦了

a1064107916

谢谢分享，好贴！

hgjGYUo

怎么用，直接复制到按键里吗

cdy789491

正是我想要的，谢谢楼主。