冒险岛手游内挂脚本大全
时间:2015-08-17 14:08:38 来源:k73电玩之家 作者:小四 热度: 120 次
在这边也分享一下我的脚本，塬本是用电脑版按键精灵在挂，但实在是不知道怎么解决用后台找色去比对然后执行步骤这方面的问题(不知道为什么总是抓不到颜色)，故使用版大提供的这种方式来实现另一种意义上的后台。
在这边也分享一下我的脚本，塬本是用电脑版按键精灵在挂，但实在是不知道怎么解决用后台找色去比对然后执行步骤这方面的问题(不知道为什么总是抓不到颜色)，故使用版大提供的这种方式来实现另一种意义上的后台。
结合参考文章：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
热门新闻
冒险岛手游尖兵值不值得培养
冒险岛手游尖兵加点路线推荐我要评论 查看全部评论 (0)>>
