//彩虹岛自动打怪挖矿脚本
//空格键设为强攻击即可打怪,定点移动捡物就交给宠物做了。
//空格键设为挖矿键即可挖矿,定点挖矿时可以自动捡矿,设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 判断按键
按键精灵我也用,不过你能想到用在彩虹岛里面你真是天才啊,怪每次死出来的位置都不同,你按键精灵怎样设置啊,打空气啊?
建议用小草或者助手这类的挂
有一种东西叫小草
I是物品,K是技能,L是宠物,O是设置,P是组队人员,Q是任务,W和M是地图,T是保存的石碑显示,E是装备察看,G是家族,剩下的按键都是可以自己设置的,