昨天刚玩这个游戏,开局不知道咋赚钱,税快交不起了,看村长视频说赌场玩老虎机能赚钱,就跑去练了半小时,眼要瞅瞎,成功率为零,想到按键精灵抓色,就跑去下了个软件学习了一下,捯饬出来一个脚本。目前成功率挺高的,基本100%了。分享一下。
我不是学计算机的,也不懂编程,代码看着教学临时搜的可能很垃圾但能运行,就分享个思路。原理很简单,抓取天使边框的亮黄色,从上面刷下来一抓到开始算时间,延迟特定毫秒后,点停止。我试了一下,虽然每多延迟30ms会跳格,但貌似只有很短的误差(5ms以内)才能保证比较稳定,不然会忽上忽下。我这里用的939ms延迟,根据各自机器变化这个数字需要改,取点位置也需要自己修改,尽量选择框内左上首次出现黄点的位置。
代码:
Dim a
Dim b
Dim c
a = 0
b = 0
c = 0
Do Until a=1
IfColor 1129, 642, "5BFFFF", 0 Then
Delay 939
LeftClick 1
a=1
Else
End If
Loop
Delay 200
Do Until b=1
IfColor 1250, 642, "5BFFFF", 0 Then
Delay 939
LeftClick 1
b=1
Else
End If
Loop
Delay 200
Do Until c=1
IfColor 1372, 642, "5BFFFF", 0 Then
Delay 939
LeftClick 1
c=1
Else
End If
Loop
我不是学计算机的,也不懂编程,代码看着教学临时搜的可能很垃圾但能运行,就分享个思路。原理很简单,抓取天使边框的亮黄色,从上面刷下来一抓到开始算时间,延迟特定毫秒后,点停止。我试了一下,虽然每多延迟30ms会跳格,但貌似只有很短的误差(5ms以内)才能保证比较稳定,不然会忽上忽下。我这里用的939ms延迟,根据各自机器变化这个数字需要改,取点位置也需要自己修改,尽量选择框内左上首次出现黄点的位置。
代码:
Dim a
Dim b
Dim c
a = 0
b = 0
c = 0
Do Until a=1
IfColor 1129, 642, "5BFFFF", 0 Then
Delay 939
LeftClick 1
a=1
Else
End If
Loop
Delay 200
Do Until b=1
IfColor 1250, 642, "5BFFFF", 0 Then
Delay 939
LeftClick 1
b=1
Else
End If
Loop
Delay 200
Do Until c=1
IfColor 1372, 642, "5BFFFF", 0 Then
Delay 939
LeftClick 1
c=1
Else
End If
Loop















