zzt挖礦
A. 彩虹島按鍵精靈
//彩虹島自動打怪挖礦腳本
//空格鍵設為強攻擊即可打怪，定點移動撿物就交給寵物做了。
//空格鍵設為挖礦鍵即可挖礦，定點挖礦時可以自動撿礦，設Z鍵。
VBS dim xx,zzT,pq,Akey,Bkey,Ckey,CK
dim i,j,k,p,q,L
dim key(2)
UserVar pq=1 設置左右轉身打怪開關，0為定點打怪，1為移動打怪。
UserVar xx=1 設為定點時可調整技能攻擊間隔，移動時調整轉身時間。
UserVar zzT=200 設置普通攻擊間隔時間（毫秒）
UserVar key(0)=V 設置第一技能鍵（Z，X，C，V中任選一）。
UserVar key(1)=C 設置第二技能鍵（Z，X，C，V中任選一）。
UserVar key(2)=Z 自定義按鍵（比如設為撿物品）。
ss=1
j=1
k=1
p=1
q=1
Gosub 判斷按鍵
Akey=key(0):Bkey=key(1):Ckey=key(2)
Plugin CK=Window.Foreground()
Plugin Window.Move(CK,0,0)
Delay 64
While true
Delay 32
If pq=1
While true
Delay 32
Gosub 向右移動
Delay 32
Gosub 向左移動
EndWhile
EndIf
Gosub 定點打怪
EndWhile
Sub 定點打怪
For xx
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
Delay 32
KeyPress Akey 1
Delay 32
For xx
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
Delay 32
KeyPress Bkey 1
Delay 32
Return 定點打怪
Sub 向右移動
Delay 32
If k mod 2
KeyDownH 39 1
For xx
KeyPress 32 1
Delay zzT
KeyPress 32 1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
If p mod 2
Delay 200
KeyPress Akey 1
Else
Delay 200
KeyPress Bkey 1
EndIf
p=p+1
Delay 32
KeyUpH 39 1
EndIf
//初始化得到當前時間
VBS strat_time1=now
a = 1
While a
KeyPress 32 1
Delay 32
v1=DateDiff("s", strat_time1, Now)
//判斷動作時間並賦值
VBS if v1>=ss then a=0
EndWhile
Return 向右移動
Sub 向左移動
Delay 32
If j mod 2
KeyDownH 37 1
For xx
KeyPress 32 1
Delay zzT
KeyPress 32 1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
If q mod 2
Delay 200
KeyPress Akey 1
Else
Delay 200
KeyPress Bkey 1
EndIf
q=q+1
Delay 32
KeyUpH 37 1
EndIf
//初始化得到當前時間
VBS strat_time2=now
b = 1
While b
KeyPress 32 1
Delay 32
v2=DateDiff("s", strat_time2, Now)
//判斷動作時間並賦值
VBS if v2>=ss then b=0
EndWhile
Return 向左移動
Sub 判斷按鍵
i=0
For 3
L=Len(trim(key(i)))
If L=1
key(i)=Asc(UCase(key(i)))
ElseIf L>1 and L<4
If UCase(Left(key(i),1))="F"
key(i)=Asc(UCase(Left(key(i),1)))+Ringhe(key(i),L-1)+41
EndIf
EndIf
i=i+1
EndFor
Return 判斷按鍵