Question

按键精灵怎么设置自动捡东西?

按键精灵怎么设置自动捡东西? 我打的东西不是常见的，
是掉地上的东西，我玩机战，我的意思是做个脚本，然后打的时候会叫他自动捡东西，

Answer 1

　　//F1红 F2 F3技能 F8回城卷
　　VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r
　　VBS dim zhiye,zidongzhaoguai,zidongjianwu,xp
　　VBS m=85:n=10
　　VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
　　VBS c=0:d=0
　　VBS dim jn1,jn2
　　VBS jn1=0:jn2=0
　　UserVar zhiye=1 选择职业 0近战 1远战
　　UserVar hp=50 红量<%多少时,补红
　　UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪
　　UserVar zidongjianwu=1 0不自动捡物 1自动捡物
　　UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3
　　Rem 机战
　　Gosub 找怪
　　Gosub 攻击怪
　　Gosub 补红
　　Gosub 捡钱
　　Gosub 捡熟练度
　　Gosub 捡流星
　　Gosub 捡粉红水晶
　　Gosub 捡蓝水晶x
　　Gosub 捡聚态水晶
　　Gosub 检测xp
　　Gosub 无弹回城
　　Gosub 拒绝交易
　　Gosub 同意组队
　　Gosub 关闭推荐任务
　　Gosub 关闭导师界面
　　Delay 32
　　Goto 机战
　　Sub 找怪
　　If zidongzhaoguai=1
　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
　　If x<0 and y<0
　　Delay 32
　　VBS c=c+1
　　If c>4
　　Delay 225
　　MoveTo 510 500
　　LeftClick 1
　　Gosub 快速找怪
　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
　　If x<0 and y<0
　　Delay 520
　　MoveTo 100 330
　　LeftClick 1
　　Gosub 快速找怪
　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
　　If x<0 and y<0
　　Delay 520
　　MoveTo 510 200
　　LeftClick 1
　　Gosub 快速找怪
　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
　　If x<0 and y<0
　　Delay 520
　　MoveTo 920 330
　　LeftClick 1
　　Gosub 快速找怪
　　EndIf
　　EndIf
　　EndIf
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 攻击怪
　　VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)
　　If x>=0 and y>=0
　　VBS c=0
　　MoveTo x-20 y+20
　　LeftClick 1
　　Delay 32
　　Gosub 攻击
　　VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)
　　If x>=0 and y>=0
　　VBS c=0
　　MoveTo x-20 y-20
　　LeftClick 1
　　Delay 32
　　Gosub 攻击
　　VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)
　　If x>=0 and y>=0
　　VBS c=0
　　MoveTo x+20 y-20
　　LeftClick 1
　　Delay 32
　　Gosub 攻击
　　VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)
　　If x>=0 and y>=0
　　VBS c=0
　　MoveTo x+20 y+20
　　LeftClick 1
　　Delay 32
　　Gosub 攻击
　　EndIf
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 攻击
　　VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
　　If x>=0 and y>=0
　　MoveTo x+n y+m
　　RightClick 1
　　Gosub 技能1
　　Gosub 技能2
　　Else
　　VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
　　If x>=0 and y>=0
　　MoveTo x+n y+m-n
　　RightClick 1
　　EndIf
　　EndIf
　　Return
　　Sub 快速找怪
　　VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)
　　If x<0 and y<0
　　KeyDown 17 1
　　LeftClick 1
　　KeyUp 17 1
　　EndIf
　　Return
　　Sub 技能1
　　IfColor 139 45 ae21 2
　　Delay 32
　　VBS jn1=jn1+1
　　If jn1>=4
　　KeyPress 113 1
　　VBS jn1=0
　　EndIf
　　EndIf
　　Return
　　Sub 技能2
　　IfColor 139 45 ae21 2
　　Delay 32
　　VBS jn2=jn2+1
　　If jn2>=8
　　KeyPress 114 1
　　VBS jn2=0
　　EndIf
　　EndIf
　　Return
　　Sub 补红
　　IfColor hp*1.13+121 31 313033 2
　　KeyPress 112 1
　　EndIf
　　Return
　　Sub 捡钱
　　If zidongjianwu=1
　　VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)
　　If x1>=0 and y1>=0
　　VBS a=x1:b=y1
　　VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)
　　If x2>=0 and y2>=0
　　MoveTo a b
　　Delay 32
　　LeftClick 1
　　VBS a="":b=""
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 捡熟练度
　　If zidongjianwu=1
　　VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)
　　If x1>=0 and y1>=0
　　VBS e=x1:f=y1
　　VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)
　　If x2>=0 and y2>=0
　　MoveTo e f
　　Delay 32
　　LeftClick 1
　　VBS e="":f=""
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 捡流星
　　If zidongjianwu=1
　　VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)
　　If x1>=0 and y1>=0
　　VBS g=x1:h=y1
　　VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)
　　If x2>=0 and y2>=0
　　MoveTo g h
　　Delay 32
　　LeftClick 1
　　VBS g="":h=""
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 捡粉红水晶
　　If zidongjianwu=1
　　VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)
　　If x1>=0 and y1>=0
　　VBS i=x1:j=y1
　　VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)
　　If x2>=0 and y2>=0
　　MoveTo i j
　　Delay 32
　　LeftClick 1
　　VBS i="":j=""
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 捡蓝水晶
　　If zidongjianwu=1
　　VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)
　　If x1>=0 and y1>=0
　　VBS k=x1:l=y1
　　VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)
　　If x2>=0 and y2>=0
　　MoveTo k l
　　Delay 32
　　LeftClick 1
　　VBS k="":l=""
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 捡聚态水晶
　　If zidongjianwu=1
　　VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)
　　If x1>=0 and y1>=0
　　VBS q=x1:r=y1
　　VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)
　　If x2>=0 and y2>=0
　　MoveTo g h
　　Delay 32
　　LeftClick 1
　　VBS q="":r=""
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 检测xp
　　VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)
　　If x>=0 and y>=0
　　Gosub xp1
　　Gosub xp2
　　Gosub xp3
　　EndIf
　　Return
　　Sub xp1
　　If xp=1
　　MoveTo 935 540
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return
　　Sub xp2
　　If xp=2
　　MoveTo 881 547
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return
　　Sub xp3
　　If xp=3
　　MoveTo 812 551
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return
　　Sub 无弹回城
　　If zhiye=1
　　VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)
　　If x<0 and y<0
　　Delay 32
　　VBS d=d+1
　　If d=6
　　KeyPress 119 1
　　EndIf
　　EndIf
　　EndIf
　　Return
　　Sub 拒绝交易
　　VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)
　　VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)
　　VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)
　　If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
　　MoveTo 312 390
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return
　　Sub 同意组队
　　VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)
　　VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)
　　If x1>=0 and y1>=0 and x2>=0 and y2>=0
　　MoveTo 223 394
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return
　　Sub 关闭推荐任务
　　VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)
　　VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)
　　If x1>=0 and y1>=0 and x2>=0 and y2>=0
　　MoveTo 906 237
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return
　　Sub 关闭导师界面
　　VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)
　　VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)
　　If x1>=0 and y1>=0 and x2>=0 and y2>=0
　　MoveTo 270 181
　　Delay 32
　　LeftClick 1
　　EndIf
　　Return

Answer 2

是 自动 空格 还是 点 地上的 东西？ 你玩什么游戏 的？
楼下的 可以回答了 要修改一下 自己想要的职业