• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

coc部落冲突数字识别脚本代码 [复制链接]

1#
本人收菜党,心血来潮想自己这个脚本实现偷菜,边学边做,刚刚完成圣水的读取,备注和标识不规范,写得不好,只是想跟志同道合的人分享一下。只适合分辨率为1024*720的机器,在模拟器和电视机顶盒上运作正常。
Dim WaterX0,WaterY0,WaterX1,WaterY1,WaterCol,test_space,num_space=0
test_space=3
WaterX0 = 52
WaterCol="FDE8FF-101010"
WaterY0=108
WaterY1=125
Dim intX,intY,deltX
Dim a(),i=0
intX = WaterX0
intY = 0
deltX = 0
'1895342670
KeepCapture

Do Until num_space > 5 or i>9

WaterX0=intX+deltX
'11
FindMultiColor WaterX0,WaterY0,WaterX0+4,WaterY1,"FBE7FD","4|0|71787C,4|3|5F6468,4|5|4F5758,4|7|3C3F41,4|10|100F11,0|10|343739,0|7|585E61,0|4|5E6467,2|9|FDE8FF",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=1
num_space=0
deltx=3
TracePrint "1"
Else '8
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FCE7FE","4|-2|F9E5FC,8|0|FDE8FF,4|1|010101,4|3|FBE7FD,1|6|FDE8FF,8|6|FDE8FF,4|8|F9E6FC,4|6|030304,2|4|FDE8FF",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=8
num_space=0
deltx=10
TracePrint "8"
Else '9
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FDE8FF","4|-4|F8E5FB,8|0|FDE8FF,4|-1|060706,4|2|FDE8FF,7|5|FDE8FF,1|6|F8E5FB,4|4|050605,0|4|020302",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=9
num_space=0
deltx=9
TracePrint "9"
Else '5
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FCE8FE","3|-3|F7E4FA,7|-3|F7E4FA,4|0|070807,0|3|FCE8FF,7|5|FDE8FF,0|7|F7E4FA,0|5|010101,3|5|040505,4|8|F6E4F9",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=5
num_space=0
deltx=9
TracePrint "5"
Else '3
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FBE7FD","3|0|FDE8FF,7|2|FDE8FF,3|2|050605,2|5|F5E2F8,0|2|030404,7|7|FDE8FF,0|9|F8E5FB,6|9|FDE8FF",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=3
num_space=0
deltx=8
TracePrint "3"
Else '4
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FDE8FF","2|-3|FDE8FF,4|-6|FDE8FF,8|-6|FCE7FE,9|1|FDE8FF,7|4|FDE8FF,4|1|FDE8FF,4|-2|020303",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=4
num_space=0
deltx=11
TracePrint "4"
Else '22
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FBE7FD","4|0|FDE8FF,7|2|FDE8FF,5|4|FDE8FF,0|7|FDE8FF,0|10|FCE8FF,3|10|FDE8FF,7|9|FBE7FD,5|7|010101,0|2|060606",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=2
num_space=0
deltx=9
TracePrint "2"
Else '6
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"F4E2F8","4|-1|FDE8FF,7|-1|FDE8FF,8|1|000000,8|3|E3D9EB,0|3|FCE8FE,2|8|FDE8FF,4|9|FDE8FF,8|8|FDE8FF,4|6|030404",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=6
num_space=0
deltx=10
TracePrint "6"
Else '7
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FDE8FF","2|0|FDE8FF,4|0|FDE8FF,6|0|FDE8FF,7|1|FDE8FF,4|4|FDE8FF,3|7|FDE8FF,2|10|FDE8FF,7|0|FDE8FF",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=7
num_space=0
deltx=8
TracePrint "7"
Else '0
FindMultiColor WaterX0,WaterY0,WaterX0+8,WaterY1,"FCE7FE","5|-2|FBE7FE,9|0|FDE8FF,10|3|FDE8FF,10|6|FDE8FF,5|8|FDE8FF,1|7|FDE8FF,4|3|010101",0,0.9,intX,intY
If intX <> -1 Then
i = i + 1
a(i)=0
num_space=0
deltx=11
TracePrint "0"
Else 'space
deltx = 2
intX = WaterX0
num_space=num_space+1
TracePrint "space"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Loop
ReleaseCapture

Dim n=i
dim total=0

For i= 1 to n
total = total + a(i) * 10 ^ (n - i)
Next
ShowMessage total
Delay 1000

TracePrint total

peytonzhu
2#

楼主QQ多少 一起讨论下

3#

回复 2楼大熊来了的帖子

qq99258647,最近忙又没怎么写了,无聊时打发一下时间才写的。可以一起探讨一下

peytonzhu
4#

顶下!

5#

谢谢楼主分享谢谢楼主分享谢谢楼主分享

6#

Delay 50

7#


8#

谢谢楼主分享谢谢楼主分享谢谢楼主分享

发新话题 回复该主题