舰_自动刷闪2nd
--自动刷闪脚本
--★★★需要2.2.1版本才可以运行★★★
--会自动上1-3级的轻巡和驱逐陪练2个 无需再改陪练设置
--不会处理新捞到的小船，如果要刷很多只船，最好留一些空位，留俩1级的小船
--[[---------------------------------------------------------------------------]]
--[[-------------------------------★特别注意★---------------------------------]]
--[[---------------------------------------------------------------------------]]
--[[
为了保证换船识别的准确性，请设置腾讯云OCR对特征进行初始化
请复制前往查看设置方法：
http://kancode.moehex.com/2018/11/21/ocr/
此脚本不支持poi浏览器！
此脚本不支持poi浏览器！
此脚本不支持poi浏览器！
可能出现各种识别错误，请使用74或Oxo
]]
--[[---------------------------------------------------------------------------]]
--[[---------------------------------基础设置-----------------------------------]]
--[[---------------------------------------------------------------------------]]
Kan.DelBattleInfo()
Kan.AddBattleInfo(1, 1, false, false)
Kan.AddBattleInfo(2, 1, true, false) --第二场，夜战
--单船刷闪的次数，3次出击可到85闪
m_count = 3
--出击的队伍ID
m_team_id = 1
--是否使用另外的2个陪练船（1-3级任意驱逐或轻巡）
m_use_other_kan = true
--不要修改这个
m_flash_kan = {}
--定义检测编成中船名字的误差值 默认为20 如需修改，请取消注释 需要1.4.8版本
--Base.SetConfig("ChangeNameSiteString", 20)
--定义检测编成中船等级的误差值 默认为9 如需修改，请取消注释 需要1.4.8版本
--Base.SetConfig("ChangeNameSiteNum",9)
--以上两个设置请在无法正确识别等级或船名字的情况下修改
--[[---------------------------------------------------------------------------]]
--[[---------------------------------换船设置-----------------------------------]]
--[[---------------------------------------------------------------------------]]
--[[刷之前记得给会刷到的船上装备哦，特别是空母的飞机]]
--可以添加多条
table.insert(m_flash_kan,{name="^(正规|装甲).*", min_lv=75, max_lv=150, count=10})
table.insert(m_flash_kan,{name="^战舰.*", min_lv=80, max_lv=150, count=10})
--这里是添加条件，正规空母和装甲空母，刷完后刷战舰，等级80-150，刷10艘
--支持正则表达式
--[[
例子：
table.insert(m_flash_kan,{name="岛风改", min_lv=80, max_lv=150, count=1})
添加一个单体的条件，岛风改，等级80-150，刷1艘，如果定义船名，请设置刷1次
table.insert(m_flash_kan,{name=".*", min_lv=80, max_lv=150, count=10})
添加一个广泛的条件，会选择所有的80-150级船去刷10次
条件例子：
"^(正规|装甲).*"
选中正规或装甲开头的船
"^驱逐.*"
选中驱逐开头的船
".*神通.*"
选中包含“神通”的船
（条件请使用简体字）
]]
---------------------------------------------------------------------------------
Base.SetConfig("Sleep+?",100) --所有延时随机增加1-100
function Add(_name, _min_lv, _max_lv)
end
function ChangeKanMain(_name, _min_lv, _max_lv)
Win.Print('切换主船只' .. _name)
Kan.DelAllKanChangeColor()
Kan.AddKanChangeName(_name, _min_lv, _max_lv, true, 2, 1, true)
ret = Kan.ChangeDIY(1, m_team_id, C.SORT_LV, 20, true)
if ret == 1 then --可以改写失败了换别的船
return true
end
return false
end
function ChangeKanAll(_name, _min_lv, _max_lv)
Win.Print('切换所有船只' .. _name)
Kan.DelAllKanChangeColor()
Kan.AddKanChangeName(_name, _min_lv, _max_lv, true, 2, 1, true)
ret = Kan.ChangeDIY(1, m_team_id, C.SORT_LV, 20, true)
if m_use_other_kan == true then
Kan.DelAllKanChangeColor()
Kan.AddKanChangeName("^(驱逐舰|轻巡洋舰).*", 1, 3, true, 0, 2, true)
Kan.AddKanChangeName("^(驱逐舰|轻巡洋舰).*", 1, 3, true, 0, 3, true)
ret2 = Kan.ChangeDIY(1, m_team_id, C.SORT_NEW, 15, true)
else
ret2 = 2
end
if ret == 1 and ret2 == 2 then --可以改写失败了换别的船
return true
end
return false
end
function ChangeKanMin() --切换小船
Win.Print('切换陪练小船')
Kan.DelAllKanChangeColor()
Kan.AddKanChangeName("^(驱逐舰|轻巡洋舰).*", 1, 3, true, 0, 2, true)
Kan.AddKanChangeName("^(驱逐舰|轻巡洋舰).*", 1, 3, true, 0, 3, true)
ret = Kan.ChangeDIY(1, m_team_id, C.SORT_NEW, 15, false)
if ret == 2 then --可以改写失败了换别的船
return true
end
return false
end
function GoGoFlash()
for n = 1, m_count do --循环次数
a = "开始第:%d次"
Win.Print(a:format(n))
ret = Kan.Supply() --补给全部并返回所有数据
--Base.Print(ret)
kan_2_id = "kan" .. m_team_id .. "2"
kan_3_id = "kan" .. m_team_id .. "3"
kan_1_id = "kan" .. m_team_id .. "1"
--判断第2位置
if ret[kan_2_id] == C.KAN_STATE_MAX or ret[kan_2_id] == C.KAN_STATE_MID then
--小船的状态不适合继续刷
if m_use_other_kan == true then
Win.Print('小船状态不佳-2')
if ChangeKanMin() == false then
Win.Print('没有可换的小船！')
break
end
end
ret = Kan.Supply() --补给全部并返回所有数据
end
--判断第3位置
if ret[kan_3_id] == C.KAN_STATE_MAX or ret[kan_3_id] == C.KAN_STATE_MID then
--小船的状态不适合继续刷
if m_use_other_kan == true then
Win.Print('小船状态不佳-3')
if ChangeKanMin() == false then
Win.Print('没有可换的小船！')
break
end
end
ret = Kan.Supply()
end
--判断旗舰
if ret[kan_1_id] == C.KAN_STATE_MAX or ret[kan_1_id] == C.KAN_STATE_MID then
Win.Print('大船中破或大破，停止该船刷闪，换船')
break
end
if ret["team" .. m_team_id] == -1 then
Win.Pop('补给不足 脚本停止！',true)
break
end
Kan.Sally(1, 1)
if Kan.Battle(m_team_id, m_count) == false then
else
end
Kan.WaitHome(2000)
Base.Sleep(2000)
end
end --gogo结束
--从这里开始运行
for key,value in pairs(m_flash_kan) do
Win.Print('当前条件' .. value["name"])
for n=1,value["count"] do
if ChangeKanMain(value["name"], value["min_lv"], value["max_lv"]) == true then
if m_use_other_kan == true then
if ChangeKanMin() == true then
Win.Print('换船成功，开始刷闪战斗')
GoGoFlash()
else
Win.Print('没有符合条件的小船供替换！')
break
end
else
Win.Print('换船成功，开始刷闪战斗')
GoGoFlash()
end
else
Win.Print('没有找到符合条件的船！')
break
end
end
end
Win.Pop('脚本执行完毕！')Last updated