冒险岛手游内挂脚本大全

在这边也分享一下我的脚本，塬本是用电脑版按键精灵在挂，但实在是不知道怎么解决用后台找色去比对然后执行步骤这方面的问题(不知道为什么总是抓不到颜色)，故使用版大提供的这种方式来实现另一种意义上的后台。

结合参考文章：K73.COM

Do //开始循环

If CmpColorEx("65|153|202020,77|153|202020,71|160|FEFEFE,71|167|252525",1)=0 Then //假设句，寻找萤幕上是否有跟设定的座标与相对应的颜色相同的结果，0=否，1=是

Tap 817,599 //点击欲施放技能的萤幕座标

Delay 500 //延迟时间

End If //结束假设

Loop //结束循环

这边简单说明一下脚本逻辑，上述使用延迟时间来施放buff有一个缺点，就是时间到并点击的当下如果脚色正在动作，还蛮大机率会被无视并且自动跳入下一段延迟时间，长久下来的效率就不好，故我的想法是去侦测是否有buff图案来达成是否要施放buff。

改良后好处：

1.施放buff时就算角色正在动作也不会无视，会一直持续动作到直到buff放出

2.当技能持续时间增加时，不用一直去修改脚本延迟时间

3.脚本介面比较整齐乾净XD

下面讲一下脚本编写流程

上面都做好以后就再去抓个你要放的buff座标点加进去，加个延迟时间跟循环就可以开始挂机了。

PS：目前只写好持续施放一个buff，施放多个还在研究中@@，目前是想使用副程式的写法来达到交替使用，可是会一直卡在其中一个副程式无线施放无法跳脱出来(我就这样放buff放到死掉@@)

----------------------08/15 更新buff消失后自动上buff(感谢懵懵懂懂大大的指导)-------------------

主要流程:

//打怪//

开完自动攻击后 先判定是否出现怪物的绿色血条

如果有找到会使用技能施放(我设定两种技能 CD短的一个放两次后 才会放另一个CD长的 以此循环)

//断线//

自动重连 等待15s之后 自动叫出宠物栏的第一隻角色 并点击自动战斗

//上buff//

须先将buff图中间小範围撷取加入按键精灵脚本附件

自动判动buff图示是否消失 消失则自动按压特定位置进行上buff

程式码:

Dim A,B1,B2,X,Y,C1,C2

A = 0

Do

//判断设定範围内是否出现"00FF00"绿色 (没找到则坐标(C1,C2)=(-1,-1))

FindColor 11,172, 1192, 664, "00FF00", 1, 1, C1, C2

//判断特定区域是否出现"CDFD64"颜色(断线时才有

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

//重新连线用 自动开启宠物栏第1、2位置的宠物 并开启自动战斗//

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 //点选第一隻宠物

Delay 1000

Touch 1066, 472, 200//召唤

Delay 1000

Touch 261,229, 200 //点选第二隻宠物

Delay 1000

Touch 1066, 472, 200

Delay 1000

Touch 1246, 691, 200

Delay 1000

Touch 58, 256, 200

Delay 100

End If

//战斗用 CD短的技能攻击两次后 使用另一个CD长的//

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是否消失 消失则自动施放//

If B1=-1 Then

Touch 1139,426 ,200

Delay 5000

End If

Loop

只用了抓色写了一个简易的 自动上BUFF、自动开技能、防断、重新连上以后自动开宠物跟自动战斗 的脚本，不过不防闪煺，因为我没这困扰。

语法：

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(自动战斗没亮时的颜色)

Tap 33,258

End If

If Skill = "EFA2FE" Then //天破衝能完技能才会亮，我让他亮了就开技

Tap 1130,389

Tap 1130,389

Tap 1130,389

Tap 1130,389

Tap 1130,389

Delay 4000 //技能打到怪也有机率衝能，没打到怪不会变暗，不加延迟他会一直开

End If

If Not Buff = "FEAAB2" Then //我抓了最尾端BUFF的颜色，如果那个位置不是那颜色就上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

上文即是冒险岛手游内挂脚本大全的内容了，文章的版权归原作者所有，本文仅作网络免费经验分享，如有侵犯您的权利，请及时联系本站删除，想要了解更多冒险岛挂机脚本相关资讯，请关注收藏773游戏网。