冒險(xiǎn)島手游內(nèi)掛腳本大全
時(shí)間:2015-08-17 14:08:38 來(lái)源:k73電玩之家 作者:小四 熱度: 120 次
在這邊也分享一下我的腳本,塬本是用電腦版按鍵精靈在掛,但實(shí)在是不知道怎么解決用后臺(tái)找色去比對(duì)然后執(zhí)行步驟這方面的問(wèn)題(不知道為什么總是抓不到顏色),故使用版大提供的這種方式來(lái)實(shí)現(xiàn)另一種意義上的后臺(tái)。
在這邊也分享一下我的腳本,塬本是用電腦版按鍵精靈在掛,但實(shí)在是不知道怎么解決用后臺(tái)找色去比對(duì)然后執(zhí)行步驟這方面的問(wèn)題(不知道為什么總是抓不到顏色),故使用版大提供的這種方式來(lái)實(shí)現(xiàn)另一種意義上的后臺(tái)。
結(jié)合參考文章:K73.COM
Do //開(kāi)始循環(huán)
If CmpColorEx("65|153|202020,77|153|202020,71|160|FEFEFE,71|167|252525",1)=0 Then //假設(shè)句,尋找螢?zāi)簧鲜欠裼懈O(shè)定的座標(biāo)與相對(duì)應(yīng)的顏色相同的結(jié)果,0=否,1=是
Tap 817,599 //點(diǎn)擊欲施放技能的螢?zāi)蛔鶚?biāo)
Delay 500 //延遲時(shí)間
End If //結(jié)束假設(shè)
Loop //結(jié)束循環(huán)
這邊簡(jiǎn)單說(shuō)明一下腳本邏輯,上述使用延遲時(shí)間來(lái)施放buff有一個(gè)缺點(diǎn),就是時(shí)間到并點(diǎn)擊的當(dāng)下如果腳色正在動(dòng)作,還蠻大機(jī)率會(huì)被無(wú)視并且自動(dòng)跳入下一段延遲時(shí)間,長(zhǎng)久下來(lái)的效率就不好,故我的想法是去偵測(cè)是否有buff圖案來(lái)達(dá)成是否要施放buff。
改良后好處:
1.施放buff時(shí)就算角色正在動(dòng)作也不會(huì)無(wú)視,會(huì)一直持續(xù)動(dòng)作到直到buff放出
2.當(dāng)技能持續(xù)時(shí)間增加時(shí),不用一直去修改腳本延遲時(shí)間
3.腳本介面比較整齊乾凈XD
下面講一下腳本編寫流程
上面都做好以后就再去抓個(gè)你要放的buff座標(biāo)點(diǎn)加進(jìn)去,加個(gè)延遲時(shí)間跟循環(huán)就可以開(kāi)始掛機(jī)了。
PS:目前只寫好持續(xù)施放一個(gè)buff,施放多個(gè)還在研究中@@,目前是想使用副程式的寫法來(lái)達(dá)到交替使用,可是會(huì)一直卡在其中一個(gè)副程式無(wú)線施放無(wú)法跳脫出來(lái)(我就這樣放buff放到死掉@@)
----------------------08/15 更新buff消失后自動(dòng)上buff(感謝懵懵懂懂大大的指導(dǎo))-------------------
主要流程:
//打怪//
開(kāi)完自動(dòng)攻擊后 先判定是否出現(xiàn)怪物的綠色血條
如果有找到會(huì)使用技能施放(我設(shè)定兩種技能 CD短的一個(gè)放兩次后 才會(huì)放另一個(gè)CD長(zhǎng)的 以此循環(huán))
//斷線//
自動(dòng)重連 等待15s之后 自動(dòng)叫出寵物欄的第一隻角色 并點(diǎn)擊自動(dòng)戰(zhàn)斗
//上buff//
須先將buff圖中間小範(fàn)圍擷取加入按鍵精靈腳本附件
自動(dòng)判動(dòng)buff圖示是否消失 消失則自動(dòng)按壓特定位置進(jìn)行上buff
程式碼:
Dim A,B1,B2,X,Y,C1,C2
A = 0
Do
//判斷設(shè)定範(fàn)圍內(nèi)是否出現(xiàn)"00FF00"綠色 (沒(méi)找到則坐標(biāo)(C1,C2)=(-1,-1))
FindColor 11,172, 1192, 664, "00FF00", 1, 1, C1, C2
//判斷特定區(qū)域是否出現(xiàn)"CDFD64"顏色(斷線時(shí)才有
FindColor 569, 266, 742, 340, "CDFD64", 1, 1, X, Y
//新增的找buff圖
FindPic 6,126,252,173, "Attachment:buff.png","000000",1,0.9, B1, B2
//重新連線用 自動(dòng)開(kāi)啟寵物欄第1、2位置的寵物 并開(kāi)啟自動(dòng)戰(zhàn)斗//
If X >= 0 and Y > 0 Then
Touch 1195, 573, 200
Delay 15000
Touch 85, 87, 200
Delay 1000
Touch 311, 23, 200
Delay 1000
Touch 682, 103, 200
Delay 1000
Touch 138,222, 200 //點(diǎn)選第一隻寵物
Delay 1000
Touch 1066, 472, 200//召喚
Delay 1000
Touch 261,229, 200 //點(diǎn)選第二隻寵物
Delay 1000
Touch 1066, 472, 200
Delay 1000
Touch 1246, 691, 200
Delay 1000
Touch 58, 256, 200
Delay 100
End If
//戰(zhàn)斗用 CD短的技能攻擊兩次后 使用另一個(gè)CD長(zhǎng)的//
If C1>= 0 and A = 3 Then
Touch 915, 530, 200
A = 1
Delay 1000
ElseIf C1>=0 and A < 3 Then
A = A +1
Touch 860, 617, 200
Delay 2000
End If
//判斷buff是否消失 消失則自動(dòng)施放//
If B1=-1 Then
Touch 1139,426 ,200
Delay 5000
End If
Loop
只用了抓色寫了一個(gè)簡(jiǎn)易的 自動(dòng)上BUFF、自動(dòng)開(kāi)技能、防斷、重新連上以后自動(dòng)開(kāi)寵物跟自動(dòng)戰(zhàn)斗 的腳本,不過(guò)不防閃煺,因?yàn)槲覜](méi)這困擾。
語(yǔ)法:
Dim Disconnection
Dim Skill
Dim Buff
Dim Auto
Do
Disconnection = GetPixelColor(586, 564)
Skill = GetPixelColor(1130, 389)
Buff = GetPixelColor(267,145)
Auto = GetPixelColor(33,258)
If Disconnection = "776657" Then
Tap 1210,591
Delay 5000
Tap 862,586
Delay 1000
Tap 736,589
Delay 1000
Tap 617,589
End If
If Auto = "84CBED" Then //如果Auto顏色等于84CBED(自動(dòng)戰(zhàn)斗沒(méi)亮?xí)r的顏色)
Tap 33,258
End If
If Skill = "EFA2FE" Then //天破衝能完技能才會(huì)亮,我讓他亮了就開(kāi)技
Tap 1130,389
Tap 1130,389
Tap 1130,389
Tap 1130,389
Tap 1130,389
Delay 4000 //技能打到怪也有機(jī)率衝能,沒(méi)打到怪不會(huì)變暗,不加延遲他會(huì)一直開(kāi)
End If
If Not Buff = "FEAAB2" Then //我抓了最尾端BUFF的顏色,如果那個(gè)位置不是那顏色就上BUFF
Tap 1019,402
Tap 1019,402
Tap 1019,402
Delay 3000
Tap 923,487
Tap 923,487
Tap 923,487
Tap 923,487
Tap 923,487
End If
Loop
熱門新聞
我要評(píng)論 查看全部評(píng)論 (0)>>