兔宝宝游戏网游戏攻略手游攻略机战挂机脚本,机战脚本怎么用

机战挂机脚本,机战脚本怎么用

时间：2025-03-13 01:46:04 作者：兔宝宝游戏网浏览：0

机战挂机脚本,机战脚本怎么用。

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

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

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

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

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

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

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

6.F1红 F2 F3技能 F8回城卷

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

//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

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

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

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

Return

Sub 技能2

IfColor 139 45 ae21 2

Delay 32

VBS jn2=jn2+1

If jn2>=8

KeyPress 114 1

VBS jn2=0

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

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

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

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

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

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

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

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

机战脚本怎么用

机战绿B完美脚本

下面是我的脚本

UserVar zidongjianwu=1 0不自动捡物 1自动捡物

Delay 250

Gosub 打怪

Gosub 捡水晶

Delay 150

Gosub 捡流星

Delay 150

Gosub 1捡钱

Delay 50

Sub 打怪

Rem 打怪

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

If x>=0 and y>=0

MoveTo x+10 y+10

RightClick 1

Delay 800

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

RightClick 1

Delay 500

Else

Goto 捡水晶

EndIf

Return

Sub 捡水晶

Rem 捡水晶

If zidongjianwu=1

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

If x>=0 and y>=0

MoveTo x+10 y+10

LeftClick 1

Delay 300

LeftClick 1

Else

Delay 500

Goto 捡钱

EndIf

Return

Sub 捡流星

If zidongjianwu=1

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

If x>=0 and y>=0

MoveTo x+10 y+10

LeftClick 1

Delay 5000

LeftClick 1

EndIf

Return

Sub 捡钱

Rem 捡钱

If zidongjianwu=1

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

If x>=0 and y>=0

MoveTo x+00 y+30

LeftClick 1

Delay 900

LeftClick 1

Else

Delay 500

Goto 定位

EndIf

Return

Sub 定位

Rem 定位

MoveTo 898,130

LeftClick 1

Delay 600

EndIf

MoveTo 952,356

LeftClick 1

Delay 600

EndIf

MoveTo 456,310

Delay 1500

LeftClick 1

MoveTo 225,408

LeftClick 1

Delay 600

EndIf

MoveTo 140,230

LeftClick 1

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

If x>=0 and y>=0

MoveTo x+10 y+10

RightClick 1

Delay 800

Else

Delay 500

Goto 定位2

Return 定位

Sub 定位2

Delay 1000

EndIf

MoveTo 190,547

LeftClick 1

Delay 1000

EndIf

Goto 打怪

Return 定位

机战挂机脚本,机战脚本怎么用的详细介绍，兔宝宝游戏网希望对大家有帮助。

标题：机战挂机脚本,机战脚本怎么用

链接：http://www.qzj2.com/article/405978.html

版权：文章转载自网络，如有侵权，请联系删除！

上一篇：造梦西游3挂,造梦西游3天殇怎么获得
下一篇： qq牧场科研,QQ牧场要怎样才能科研

资讯推荐

海龟汤题目和答案全套恐怖高难度,细思极恐的冷门海龟汤

海龟汤题目和答案全套恐怖高难度,细思极恐的冷门海龟汤,细思极恐海龟汤大全及答案汤面：有兄弟三人，感情非常好

2025-03-13

gta5武器秘籍大全(完整版)无限子弹,gta5的武器秘籍有哪些

gta5武器秘籍大全，完整版无限子弹,gta5的武器秘籍有哪些,gta5武器全满代码是：IFWEREARCHMAN。其他秘籍：一、武

2025-03-13

梦幻西游义绝墨魂笔3x攻略(神器义绝墨魂笔之踪攻略)

梦幻西游义绝墨魂笔3x攻略，可以这么说，这个神器是3X神器挑战里最难刷的了，对于没刷过的朋友来说更难，那么怎么刷

2025-03-13

公交车里抓着摇曳的手环诗情,清晨时见雾青草沾雨露是什么歌

公交车里抓着摇曳的手环诗情,清晨时见雾青草沾雨露是什么歌,是马良的《醒着醉》里的歌词。醒着醉作词：马良作

2025-03-13