之前发过一个包含很多功能的版本(可以查看这个笔记：https://sulao.cn/post/765.html)，但是资源消耗也比较多，可能很多朋友都用不上那些功能，这次发了一个精简版出来，只包含打怪加血功能，同时也优化带CD技能和加血一些小问题
注意使用我的脚本请使用雷电模拟器，同时要求分辨率960*540，dpi 160按下图这个选择，不然会出现取色和坐标偏移的问题
主要源代码如下
脚本内容：
//SetScreenScale 960,540,1 // 屏幕缩放，不是这个比例的请去掉注释
//以下配置可能不同模拟器或者电脑需要重新取色
Dim bloodPixelColor = "0E27BB" //血条固定位置颜色(GetPixelColor(200, 45))
Dim bluePixelColor = "6B5A29" //魔条固定位置颜色(GetPixelColor(120, 60))
Dim autoButtoColor = "9EF0F8" //挂机按钮位置颜色(GetPixelColor(930, 260))
Dim isMonthCard,isPick,cdTime,cdTimeArray
isMonthCard = CInt(ReadUIConfig("isMonthCard")) //月卡用户
isPick = CInt(ReadUIConfig("isPick")) //捡取物品
cdTime = CInt(ReadUIConfig("cdTime")) //技能冷却时间
cdTimeArray = Array(15, 30, 60, 120, 300)
//加血
Function AddBlood(bloodPixelColor)
Dim bloodColor
bloodColor = GetPixelColor(200, 45)
If bloodColor <> bloodPixelColor Then
Tap 660, 430
TracePrint GetNetworkTime()&" 当前血量不足，正在加血！"
Delay 500
End If
End Function
//加魔
Function AddBlue(bluePixelColor)
Dim blueColor
blueColor = GetPixelColor(120, 60)
If blueColor <> bluePixelColor Then
Tap 660, 500
TracePrint GetNetworkTime()&" 当前魔力不足，正在加魔！"
Delay 500
End If
End Function
Do While true
Dim num, num1, num2, num3
//如果是月卡用户使用月卡的挂机功能
If isMonthCard = 1 Then
Delay 1000
If autoButtoColor <> GetPixelColor(930, 260) Then
Tap 930, 260
Else
TracePrint GetNetworkTime()&" 已经在挂机中..."
End If
Delay 150000
Else
For num = 1 To cdTimeArray(cdTime)
num1 = num Mod 3
If num1 = 0 Then
Tap 750, 415 // 第三技能
//TracePrint GetNetworkTime()&" 正在使用第3技能！"
Delay 500
Call AddBlood(bloodPixelColor)
End If
num2 = num Mod 4
If num2 = 0 Then
Tap 760, 500 // 第四技能
//TracePrint GetNetworkTime()&" 正在使用第4技能!"
Delay 500
Call AddBlood(bloodPixelColor)
Tap 835, 515 //怪物目标定位
End If
If isPick = 1 //捡取物品
num3 = num Mod 3
If num3 = 0 Then
Tap 930, 510 //捡东西
Delay 500
End If
End If
Tap 800, 345 //第二技能
//TracePrint GetNetworkTime()&" 正在使用第2技能!"
Delay 500
Call AddBlood(bloodPixelColor)
Call AddBlue(bluePixelColor)
Next
Tap 890, 330 //第一技能
//TracePrint GetNetworkTime()&" 正在使用第1技能！"&cdTimeArray(cdTime)
Delay 500
Call AddBlood(bloodPixelColor)
End If
Loop界面代码
界面1:
{
游戏挂机设置:
{
水平布局:
{
文字框:
{
名称:"notice",
显示内容:" 请使用雷电模拟器，分辨率使用960*540(dpi160)，且请勿开启极致多开模式！ ",
文字大小:18,
高度:40,
宽度:0
},
},
水平布局:
{
文字框:
{
名称:"isMonthCardtips",
显示内容:"是否月卡用户 ",
文字大小:16,
高度:40,
宽度:0
},
下拉框:
{
名称:"isMonthCard",
选项:
[
"否",
"是",
],
初始选项:0
},
文字框:
{
名称:"isMonthCardtips1",
显示内容:" (如果是月卡用户将使用月卡用户的挂机功能) ",
文字大小:14,
高度:40,
宽度:0
},
},
水平布局:
{
文字框:
{
名称:"isPicktips",
显示内容:"是否捡取物品 ",
文字大小:16,
高度:40,
宽度:0
},
下拉框:
{
名称:"isPick",
选项:
[
"否",
"是",
],
初始选项:1
},
文字框:
{
名称:"isPicktips1",
显示内容:" (如果配置是月卡用户此配置将失效，默认使用月卡用户捡取配置) ",
文字大小:14,
高度:40,
宽度:0
},
水平布局:
{
文字框:
{
名称:"cdTimetips",
显示内容:"技能冷却时间 ",
文字大小:16,
高度:40,
宽度:0
},
下拉框:
{
名称:"cdTime",
选项:
[
"15秒施展一次",
"30秒施展一次",
"60秒施展一次",
"120秒施展一次",
"300秒施展一次",
],
初始选项:0
},
文字框:
{
名称:"cdTimetips1",
显示内容:" (此设置适合超过10秒冷却时间的技能，根据技能冷却时间选择) ",
文字大小:14,
高度:40,
宽度:0
},
},
},
},
}可以直接下载以下附件解压后导入到按键精灵电脑版
上述源代码使用教程可以查看这里的笔记：https://sulao.cn/post/995.html