间隔时间自动使用技能7个

1、新提醒】间隔时间自动使用技能 7 个原来这么简单谢谢晨风的教程我看有人要 5 个技能的，但是没有人回复设置技能 1我就给做个 7 的自己对比吧呵呵 UserVar jn1=1 键位UserVar jn2=2 设置技能 2 键位UserVar jn3=3 设置技能 3 键位UserVar jn4=4 设置技能 4 键位UserVar jn5=5 设置技能 5 键位UserVar jn6=6 设置技能 6 键位UserVar jn7=7 设置技能 7 键位UserVar s1=1设置技能1 施放间隔时间UserVar s2=1设置技能2 施放间隔时间UserVar s3=1设置技能3 施放间隔时间

2、UserVar s4=1设置技能4 施放间隔时间UserVar s5=1设置技能5 施放间隔时间UserVar s6=1设置技能6 施放间隔时间UserVar s7=1设置技能7 施放间隔时间赋值初始变/曰亠1量dim number(6),thetime(6),key(6),sj(6) dima,b,c,d,jn1,jn2,jn3,jn4,jn5,jn6,jn7,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,L/声明变量number(0)=jn1:number(1)=jn2:number(2)=jn3:number(3)=jn4:number(4)=jn5

3、:number(5)=jn6:number(6)=jn7thetime(0)=s1:thetime(1)=s2:thetime(2)=s3:thetime(3)=s4:thetime(4)=s5:thetime(5)=s6:thetime(6)=s7/把自定义参数的返回值转换成数组元素t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now/返回当前系统日期时间到变量/ 跳转子程序 /Gosub 判断按键Gosub 判断时间/ 脚本主程序 /While true/条件无限循环If DateDiff(s,t1,now)>=sj(0)/< Dat

4、eDiff 函数：返回两个日期之间的时间间隔><s:秒> <t1 :时间变量 > <now :当前系统日期和时间 > <s(0) ：自定义时间变量 >Delay 10KeyPress key(0) 1/按键 变量 k(0) 1 次t1=now/重新赋值日期时间到变量EndIfIf DateDiff(s,t2,now)>=sj(1)Delay 10KeyPress key(1) 1t2=nowEndIfIf DateDiff(s,t3,now)>=sj(2)Delay 10KeyPress key(2) 1 t3=nowEndIf

5、If DateDiff(s,t4,now)>=sj(3)Delay 10KeyPress key(3) 1 t4=nowEndIfIf DateDiff(s,t5,now)>=sj(4)Delay 10KeyPress key(4) 1 t5=nowEndIfIf DateDiff(s,t6,now)>=sj(5)Delay 10KeyPress key(5) 1 t6=nowEndIfIf DateDiff(s,t7,now)>=sj(6)Delay 10KeyPress key(6) 1 t7=nowEndIfDelay 10EndWhile/ 判断键码子程序/Su

6、b 判断按键a=0:b=0/赋值数组最小下标For 7L=Len(number(a)/< Len 函数：返回字符串内字符的数量 >If L=1key(b)=Asc(UCase(number(a)/< Asc 函数：返回字符串首字母的 ASCII 字符代码 > < UCase 函数：返回转换为大写字母的字符 >If key(b)<48 or key(b)>90Goto End/超出范围跳转到脚本结束标记ElseIf key(b)>57 and key(b)<65Goto EndEndIfElseIf L>1 and L<4I

7、f UCase(Left(number(a),1)=F/判断字符串首字字符< Left 函数：返回字符串最左边的指定数量的字符 >key(b)=Asc(UCase(Left(number(a),1)+Right(number(a),L-1)+41/< Right 函数： 返回字符串最右边的指定数量的字符 >ElseElseIf key(b)<112 or key(b)>123Goto EndEndIfGoto EndEndIfGoto EndEndIfa=a+1:b=b+1/ 数组下标 +1Delay 10EndForReturn 判断按键/ 判断时间子程序

8、/Sub 判断时间c=0:d=0For 7If IsNumeric(thetime(c)=True/< IsNumeric 函数：返回布尔值指明表达式的值是否为数字 >sj(d)=cint(thetime(c)/< CInt 函数：返回已被转换为整形子类型的 变体的表达式 >ElseGoto EndEndIfc=c+1:d=d+1Delay 10EndForReturn 判断时间/ 脚本停止标记/Rem EndMessageBox 输入错误 脚本停止运行EndScriptnumber(0)=jn1:number(1)=jn2:number(2)=jn3:number(3)=jn4:number(4)=jn5:number(5)=jn6:number(6)=jn7thetime(0)=s1:thetime(1)=s2:thetime(2)=s3:thetime(3)=s4:thetime(4)=s5:thetime(5)=s6:thetime(6