作者：草戒指
伺服器 武曲星（１０-天波）
===============這行不用複製 複製以下內容=========================
UserVar jn1=a 設置技能1鍵位
UserVar jn2=2 設置技能2鍵位
UserVar jn3=F11 設置技能3鍵位
UserVar s1=60 設置技能1施放間隔時間
UserVar s2=90 設置技能2施放間隔時間
UserVar s3=120 設置技能3施放間隔時間
//-----------------------------------------------------------------------
//---------------------------------------------------------[賦值初始變量]
//-----------------------------------------------------------------------
dim number(2),thetime(2),key(2),sj(2)
dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
//聲明變量
number(0)=jn1:number(1)=jn2:number(2)=jn3
thetime(0)=s1:thetime(1)=s2:thetime(2)=s3
//把自定義參數的返回值轉換成數組元素
t1=now:t2=now:t3=now
//返回當前系統日期時間到變量
//-----------------------------------------------------------------------
//---------------------------------------------------------- [跳轉子程序]
//-----------------------------------------------------------------------
Gosub 判斷按鍵
Gosub 判斷時間
//-----------------------------------------------------------------------
//---------------------------------------------------------- [腳本主程序]
//-----------------------------------------------------------------------
While true
//條件無限循環
If DateDiff("s",t1,now)>=sj(0)
//< DateDiff 函數：返回兩個日期之間的時間間隔>
//<"s"：秒> <t1：時間變量> <now：當前系統日期和時間> <s(0)：自定義時間變量>
Delay 10
KeyPress key(0) 1
//按鍵 變量k(0) 1次
t1=now
//重新賦值日期時間到變量
EndIf
If DateDiff("s",t2,now)>=sj(1)
Delay 10
KeyPress key(1) 1
t2=now
EndIf
If DateDiff("s",t3,now)>=sj(2)
Delay 10
KeyPress key(2) 1
t3=now
EndIf
Delay 10
EndWhile
//-----------------------------------------------------------------------
//------------------------------------------------------ [判斷鍵碼子程序]
//-----------------------------------------------------------------------
Sub 判斷按鍵
a=0:b=0
//賦值數組最小下標
For 3
L=Len(number(a))
//< Len 函數：返回字符串內字符的數量>
If L=1
key(b)=Asc(UCase(number(a)))
//< Asc 函數：返回字符串首字母的ASCII字符代碼> < UCase 函數：返回轉換為大寫字母的字符>
If key(b)<48 or key(b)>90
Goto End
//超出範圍跳轉到腳本結束標記
ElseIf key(b)>57 and key(b)<65
Goto End
EndIf
ElseIf L>1 and L<4
If UCase(Left(number(a),1))="F"
//判斷字符串首字字符 < Left 函數：返回字符串最左邊的指定數量的字符>
key(b)=Asc(UCase(Left(number(a),1)))+Right(number(a),L-1)+41
//< Right 函數：返回字符串最右邊的指定數量的字符>
If key(b)<112 or key(b)>123
Goto End
EndIf
Else
Goto End
EndIf
Else
Goto End
EndIf
a=a+1:b=b+1
//數組下標+1
Delay 10
EndFor
Return 判斷按鍵
//-----------------------------------------------------------------------
//------------------------------------------------------ [判斷時間子程序]
//-----------------------------------------------------------------------
Sub 判斷時間
c=0:d=0
For 3
If IsNumeric(thetime(c))=True
//< IsNumeric 函數：返回布爾值指明表達式的值是否為數字>
sj(d)=cint(thetime(c))
/< CInt 函數：返回已被轉換為整形子類型的變體的表達式>
Else
Goto End
EndIf
c=c+1:d=d+1
Delay 10
EndFor
Return 判斷時間
//-----------------------------------------------------------------------
//-------------------------------------------------------- [腳本停止標記]
//-----------------------------------------------------------------------
Rem End
MessageBox 輸入錯誤 腳本停止運行
EndScript
===============這行不用複製 複製以上內容========================= |
收藏
分享
讚
幹
分享
分享
