機戰掛機腳本機戰刷怪腳本 _知識經驗

文章插圖
大家好,小耶來為大家解答以上的問題。機戰刷怪腳本，機戰掛機腳本這個很多人還不知道,現在讓我們一起來看看吧！
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 。
【機戰掛機腳本機戰刷怪腳本】本文到此分享完畢，希望對大家有所幫助。

機戰掛機腳本 機戰刷怪腳本

機戰掛機腳本機戰刷怪腳本