机战挂机脚本机战刷怪脚本

文章插图
大家好,小耶来为大家解答以上的问题。机战刷怪脚本，机战挂机脚本这个很多人还不知道,现在让我们一起来看看吧！
1、我刚玩没几天复制一个给你希望有用~~~~~~~~~1.首先要选择职业 0近战 1远战2.要把显示人物名字的选项关闭3.可以使用带加PW的4号核心4.脚本支持两个技能放的时候最好一个用PW的一个用EN的技能从右到左1,2,3 根据喜好自己修改用哪种XP 默认1红 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,rVBS dim zhiye,zidongzhaoguai,zidongjianwu,xpVBS m=85:n=10VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""VBS c=0:d=0VBS dim jn1,jn2VBS jn1=0:jn2=0UserVar zhiye=1 选择职业 0近战 1远战UserVar hp=50 红量<%多少时,补红UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪UserVar zidongjianwu=1 0不自动捡物 1自动捡物UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3Rem 机战Gosub 找怪Gosub 攻击怪Gosub 补红Gosub 捡钱Gosub 捡熟练度Gosub 捡流星Gosub 捡粉红水晶Gosub 捡蓝水晶xGosub 捡聚态水晶Gosub 检测xpGosub 无弹回城Gosub 拒绝交易Gosub 同意组队Gosub 关闭推荐任务Gosub 关闭导师界面Delay 32Goto 机战Sub 找怪If zidongzhaoguai=1VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)If x<0 and y<0Delay 32VBS c=c+1If c>4Delay 225MoveTo 510 500LeftClick 1Gosub 快速找怪VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)If x<0 and y<0Delay 520MoveTo 100 330LeftClick 1Gosub 快速找怪VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)If x<0 and y<0Delay 520MoveTo 510 200LeftClick 1Gosub 快速找怪VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)If x<0 and y<0Delay 520MoveTo 920 330LeftClick 1Gosub 快速找怪EndIfEndIfEndIfEndIfEndIfEndIfReturnSub 攻击怪VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)If x>=0 and y>=0VBS c=0MoveTo x-20 y+20LeftClick 1Delay 32Gosub 攻击VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)If x>=0 and y>=0VBS c=0MoveTo x-20 y-20LeftClick 1Delay 32Gosub 攻击VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)If x>=0 and y>=0VBS c=0MoveTo x+20 y-20LeftClick 1Delay 32Gosub 攻击VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)If x>=0 and y>=0VBS c=0MoveTo x+20 y+20LeftClick 1Delay 32Gosub 攻击EndIfEndIfEndIfEndIfReturnSub 攻击VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)If x>=0 and y>=0MoveTo x+n y+mRightClick 1Gosub 技能1Gosub 技能2ElseVBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)If x>=0 and y>=0MoveTo x+n y+m-nRightClick 1EndIfEndIfReturnSub 快速找怪VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)If x<0 and y<0KeyDown 17 1LeftClick 1KeyUp 17 1EndIfReturnSub 技能1IfColor 139 45 ae21 2Delay 32VBS jn1=jn1+1If jn1>=4KeyPress 113 1VBS jn1=0EndIfEndIfReturnSub 技能2IfColor 139 45 ae21 2Delay 32VBS jn2=jn2+1If jn2>=8KeyPress 114 1VBS jn2=0EndIfEndIfReturnSub 补红IfColor hp*+121 31 313033 2KeyPress 112 1EndIfReturnSub 捡钱If zidongjianwu=1VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)If x1>=0 and y1>=0VBS a=x1:b=y1VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)If x2>=0 and y2>=0MoveTo a bDelay 32LeftClick 1VBS a="":b=""EndIfEndIfEndIfReturnSub 捡熟练度If zidongjianwu=1VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)If x1>=0 and y1>=0VBS e=x1:f=y1VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)If x2>=0 and y2>=0MoveTo e fDelay 32LeftClick 1VBS e="":f=""EndIfEndIfEndIfReturnSub 捡流星If zidongjianwu=1VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)If x1>=0 and y1>=0VBS g=x1:h=y1VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)If x2>=0 and y2>=0MoveTo g hDelay 32LeftClick 1VBS g="":h=""EndIfEndIfEndIfReturnSub 捡粉红水晶If zidongjianwu=1VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)If x1>=0 and y1>=0VBS i=x1:j=y1VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)If x2>=0 and y2>=0MoveTo i jDelay 32LeftClick 1VBS i="":j=""EndIfEndIfEndIfReturnSub 捡蓝水晶If zidongjianwu=1VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)If x1>=0 and y1>=0VBS k=x1:l=y1VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)If x2>=0 and y2>=0MoveTo k lDelay 32LeftClick 1VBS k="":l=""EndIfEndIfEndIfReturnSub 捡聚态水晶If zidongjianwu=1VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)If x1>=0 and y1>=0VBS q=x1:r=y1VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)If x2>=0 and y2>=0MoveTo g hDelay 32LeftClick 1VBS q="":r=""EndIfEndIfEndIfReturnSub 检测xpVBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)If x>=0 and y>=0Gosub xp1Gosub xp2Gosub xp3EndIfReturnSub xp1If xp=1MoveTo 935 540Delay 32LeftClick 1EndIfReturnSub xp2If xp=2MoveTo 881 547Delay 32LeftClick 1EndIfReturnSub xp3If xp=3MoveTo 812 551Delay 32LeftClick 1EndIfReturnSub 无弹回城If zhiye=1VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)If x<0 and y<0Delay 32VBS d=d+1If d=6KeyPress 119 1EndIfEndIfEndIfReturnSub 拒绝交易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>=0MoveTo 312 390Delay 32LeftClick 1EndIfReturnSub 同意组队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>=0MoveTo 223 394Delay 32LeftClick 1EndIfReturnSub 关闭推荐任务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>=0MoveTo 906 237Delay 32LeftClick 1EndIfReturnSub 关闭导师界面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>=0MoveTo 270 181Delay 32LeftClick 1EndIfReturn点新建在基本命令栏里插入以下内容Rem ==========以下是按键精灵录制的内容==========Delay 250MoveTo 526,360RightDown 1RightClick 1Delay 252MoveTo 520,505RightDown 1RightClick 1Rem ==========以上是按键精灵录制的内容=========Delay=延时MoveTo =鼠标移到RightDown =右键按下RightClick=右键单击注：调整脚本循环为（循环到案终止键为止）把终止键从默认调整为 * 号或其他按键只适合在训练室.和虫洞空间地图的最右下角只能挂技能（天翔断空斩）没楼上的功能强大.但简单实用《本人在40大区8区罗技G25有时间一起玩撒..》HOHO 。
【机战挂机脚本机战刷怪脚本】本文到此分享完毕，希望对大家有所帮助。

机战挂机脚本 机战刷怪脚本

机战挂机脚本机战刷怪脚本