彩虹岛按键精灵

2024-11-14 20:41:47
推荐回答(4个)
回答1:

  //彩虹岛自动打怪挖矿脚本
  //空格键设为强攻击即可打怪,定点移动捡物就交给宠物做了。
  //空格键设为挖矿键即可挖矿,定点挖矿时可以自动捡矿,设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 判断按键

回答2:

按键精灵我也用,不过你能想到用在彩虹岛里面你真是天才啊,怪每次死出来的位置都不同,你按键精灵怎样设置啊,打空气啊?
建议用小草或者助手这类的挂

回答3:

有一种东西叫小草

回答4:

I是物品,K是技能,L是宠物,O是设置,P是组队人员,Q是任务,W和M是地图,T是保存的石碑显示,E是装备察看,G是家族,剩下的按键都是可以自己设置的,