机战脚本(机战按键精灵近战挂机脚本,在教教我怎么用。我不懂按键精灵)

这篇文章给大家聊聊关于机战脚本，以及机战按键精灵近战挂机脚本,在教教我怎么用。我不懂按键精灵对应的知识点，希望对各位有所帮助，不要忘了收藏本站哦。

用按键精灵制作机战Online自动打怪的脚本

你的第二条可行，我试过，取那个技能图标坐标就行.

第三条.可以用在血条上用抓点抓色的办法。按键精灵上有这种用VB写的补红补篮脚本.你直接复制语句改下就OK撒.

机战脚本怎么用

机战绿B完美脚本

下面是我的脚本

UserVarzidongjianwu=10不自动捡物1自动捡物

Delay250

Gosub打怪

Gosub捡水晶

Delay150

Gosub捡流星

Delay150

Gosub1捡钱

Delay50

Sub打怪

Rem打怪

VBSCallFindColorEx(0,0,1024,768,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

MoveTox+10y+10

RightClick1

Delay800

MoveTo586,427----------------这里是防止鼠标卡死回一下鼠标位置的

RightClick1

Delay500

Else

Goto捡水晶

EndIf

Return

Sub捡水晶

Rem捡水晶

Ifzidongjianwu=1

VBSCallFindPic(0,0,1024,768,"水晶.bmp",0.9,x,y)

Ifx>=0andy>=0

MoveTox+10y+10

LeftClick1

Delay300

LeftClick1

Else

Delay500

Goto捡钱

EndIf

EndIf

EndIf

Return

Sub捡流星

Ifzidongjianwu=1

VBSCallFindPic(0,0,1024,768,"流星.bmp",0.9,x,y)

Ifx>=0andy>=0

MoveTox+10y+10

LeftClick1

Delay5000

LeftClick1

EndIf

EndIf

EndIf

Return

Sub捡钱

Rem捡钱

Ifzidongjianwu=1

VBSCallFindPic(0,0,1024,768,"钱.bmp",0.9,x,y)

Ifx>=0andy>=0

MoveTox+00y+30

LeftClick1

Delay900

LeftClick1

Else

Delay500

Goto定位

EndIf

EndIf

EndIf

Return

Sub定位

Rem定位

MoveTo898,130

LeftClick1

Delay600

EndIf

MoveTo952,356

LeftClick1

Delay600

EndIf

MoveTo456,310

Delay1500

LeftClick1

MoveTo225,408

LeftClick1

Delay600

EndIf

MoveTo140,230

LeftClick1

VBSCallFindColorEx(0,0,1024,768,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

MoveTox+10y+10

RightClick1

Delay800

Else

Delay500

Goto定位2

Return定位

Sub定位2

Delay1000

EndIf

MoveTo190,547

LeftClick1

Delay1000

EndIf

Goto打怪

Return定位

机战按键精灵近战挂机脚本,在教教我怎么用。我不懂按键精灵

我刚玩没几天复制一个给你希望有用~~~~~~~~~

1.首先要选择职业0近战1远战

2.要把显示人物名字的选项关闭

3.可以使用带加PW的4号核心

4.脚本支持两个技能放的时候最好一个用PW的一个用EN的

5.XP技能从右到左1,2,3根据喜好自己修改用哪种XP默认1

6.F1红F2F3技能F8回城卷

7.最好关闭与按键无关的其他软件避免出现游戏变卡影响脚本正常运行

//F1红F2F3技能F8回城卷

VBSdimhp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r

VBSdimzhiye,zidongzhaoguai,zidongjianwu,xp

VBSm=85:n=10

VBSa="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""

VBSc=0:d=0

VBSdimjn1,jn2

VBSjn1=0:jn2=0

UserVarzhiye=1选择职业0近战1远战

UserVarhp=50红量<%多少时,补红

UserVarzidongzhaoguai=10定点刷怪1自动刷怪

UserVarzidongjianwu=10不自动捡物1自动捡物

UserVarxp=1选择使用哪种XP技能,从右到左1,2,3

Rem机战

Gosub找怪

Gosub攻击怪

Gosub补红

Gosub捡钱

Gosub捡熟练度

Gosub捡流星

Gosub捡粉红水晶

Gosub捡蓝水晶x

Gosub捡聚态水晶

Gosub检测xp

Gosub无弹回城

Gosub拒绝交易

Gosub同意组队

Gosub关闭推荐任务

Gosub关闭导师界面

Delay32

Goto机战

Sub找怪

Ifzidongzhaoguai=1

VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

Ifx<0andy<0

Delay32

VBSc=c+1

Ifc>4

Delay225

MoveTo510500

LeftClick1

Gosub快速找怪

VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

Ifx<0andy<0

Delay520

MoveTo100330

LeftClick1

Gosub快速找怪

VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

Ifx<0andy<0

Delay520

MoveTo510200

LeftClick1

Gosub快速找怪

VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

Ifx<0andy<0

Delay520

MoveTo920330

LeftClick1

Gosub快速找怪

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

Return

Sub攻击怪

VBSCallFindColorEx(479,49,922,399,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

VBSc=0

MoveTox-20y+20

LeftClick1

Delay32

Gosub攻击

VBSCallFindColorEx(479,339,922,650,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

VBSc=0

MoveTox-20y-20

LeftClick1

Delay32

Gosub攻击

VBSCallFindColorEx(99,339,479,658,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

VBSc=0

MoveTox+20y-20

LeftClick1

Delay32

Gosub攻击

VBSCallFindColorEx(83,85,479,399,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

VBSc=0

MoveTox+20y+20

LeftClick1

Delay32

Gosub攻击

EndIf

EndIf

EndIf

EndIf

Return

Sub攻击

VBSCallFindColorEx(35,100,920,510,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

MoveTox+ny+m

RightClick1

Gosub技能1

Gosub技能2

Else

VBSCallFindColorEx(35,100,920,510,"303b8",1,0.8,x,y)

Ifx>=0andy>=0

MoveTox+ny+m-n

RightClick1

EndIf

EndIf

Return

Sub快速找怪

VBSCallFindColorEx(313,10,315,12,"0",1,0.8,x,y)

Ifx<0andy<0

KeyDown171

LeftClick1

KeyUp171

EndIf

Return

Sub技能1

IfColor13945ae212

Delay32

VBSjn1=jn1+1

Ifjn1>=4

KeyPress1131

VBSjn1=0

EndIf

EndIf

Return

Sub技能2

IfColor13945ae212

Delay32

VBSjn2=jn2+1

Ifjn2>=8

KeyPress1141

VBSjn2=0

EndIf

EndIf

Return

Sub补红

IfColorhp*1.13+121313130332

KeyPress1121

EndIf

Return

Sub捡钱

Ifzidongjianwu=1

VBSCallFindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)

Ifx1>=0andy1>=0

VBSa=x1:b=y1

VBSCallFindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)

Ifx2>=0andy2>=0

MoveToab

Delay32

LeftClick1

VBSa="":b=""

EndIf

EndIf

EndIf

Return

Sub捡熟练度

Ifzidongjianwu=1

VBSCallFindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)

Ifx1>=0andy1>=0

VBSe=x1:f=y1

VBSCallFindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)

Ifx2>=0andy2>=0

MoveToef

Delay32

LeftClick1

VBSe="":f=""

EndIf

EndIf

EndIf

Return

Sub捡流星

Ifzidongjianwu=1

VBSCallFindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)

Ifx1>=0andy1>=0

VBSg=x1:h=y1

VBSCallFindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)

Ifx2>=0andy2>=0

MoveTogh

Delay32

LeftClick1

VBSg="":h=""

EndIf

EndIf

EndIf

Return

Sub捡粉红水晶

Ifzidongjianwu=1

VBSCallFindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)

Ifx1>=0andy1>=0

VBSi=x1:j=y1

VBSCallFindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)

Ifx2>=0andy2>=0

MoveToij

Delay32

LeftClick1

VBSi="":j=""

EndIf

EndIf

EndIf

Return

Sub捡蓝水晶

Ifzidongjianwu=1

VBSCallFindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)

Ifx1>=0andy1>=0

VBSk=x1:l=y1

VBSCallFindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)

Ifx2>=0andy2>=0

MoveTokl

Delay32

LeftClick1

VBSk="":l=""

EndIf

EndIf

EndIf

Return

Sub捡聚态水晶

Ifzidongjianwu=1

VBSCallFindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)

Ifx1>=0andy1>=0

VBSq=x1:r=y1

VBSCallFindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)

Ifx2>=0andy2>=0

MoveTogh

Delay32

LeftClick1

VBSq="":r=""

EndIf

EndIf

EndIf

Return

Sub检测xp

VBSCallFindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)

Ifx>=0andy>=0

Gosubxp1

Gosubxp2

Gosubxp3

EndIf

Return

Subxp1

Ifxp=1

MoveTo935540

Delay32

LeftClick1

EndIf

Return

Subxp2

Ifxp=2

MoveTo881547

Delay32

LeftClick1

EndIf

Return

Subxp3

Ifxp=3

MoveTo812551

Delay32

LeftClick1

EndIf

Return

Sub无弹回城

Ifzhiye=1

VBSCallFindColorEx(575,6,580,10,"101010",1,0.8,x,y)

Ifx<0andy<0

Delay32

VBSd=d+1

Ifd=6

KeyPress1191

EndIf

EndIf

EndIf

Return

Sub拒绝交易

VBSCallFindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)

VBSCallFindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)

VBSCallFindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)

Ifx1>=0andy1>=0andx2>=0andy2>=0andx3>=0andy3>=0

MoveTo312390

Delay32

LeftClick1

EndIf

Return

Sub同意组队

VBSCallFindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)

VBSCallFindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)

Ifx1>=0andy1>=0andx2>=0andy2>=0

MoveTo223394

Delay32

LeftClick1

EndIf

Return

Sub关闭推荐任务

VBSCallFindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)

VBSCallFindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)

Ifx1>=0andy1>=0andx2>=0andy2>=0

MoveTo906237

Delay32

LeftClick1

EndIf

Return

Sub关闭导师界面

VBSCallFindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)

VBSCallFindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)

Ifx1>=0andy1>=0andx2>=0andy2>=0

MoveTo270181

Delay32

LeftClick1

EndIf

Return

关于机战脚本到此分享完毕，希望能帮助到您。

本文链接：https://bk.89qw.com/a-1080938