机战刷怪脚本（机战挂机脚本）

大家好,小耶来为大家解答以上的问题。机战刷怪脚本，机战挂机脚本这个很多人还不知道,现在让我们一起来看看吧！

1、我刚玩没几天 复制一个给你 希望有用~~~~~~~~~　　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 y4　　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 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=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 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点新建在基本命令栏里插入以下内容Rem ==========以下是按键精灵录制的内容==========Delay 250MoveTo 526,360RightDown 1RightClick 1Delay 252MoveTo 520,505RightDown 1RightClick 1Rem ==========以上是按键精灵录制的内容========= Delay=延时 MoveTo =鼠标移到 RightDown =右键按下 RightClick=右键单击注：调整脚本循环为（循环到案终止键为止） 把终止键从默认调整为 * 号或其他按键 只适合在训练室.和虫洞空间地图的最右下角 只能挂技能（天翔断空斩）没楼上的功能强大.但简单实用《本人在40大区8区 罗技G25 有时间一起玩撒..》HOHO。

本文到此分享完毕，希望对大家有所帮助。

TAG:
热门标签： 蛋卷(1) 忻州市(1) 南宋四大家(1) 珠穆朗玛峰(2) 枣子(5)
注

部分信息与图片素材来源于互联网，如内容侵权与违规，请与本站联系，将立即处理，举报邮箱：1356571586@qq.com

随机关键词：