舰_1-1自动刷闪改二

--[[
自动刷闪脚本
只需自行设置需要刷的船名
默认会自动上1-3级的轻巡或驱逐陪练2个，可自定关闭
不会处理新捞到的小船，如果要刷很多只船，最好留一些空位，留俩1级的小船
[20151119]优化 如果没有符合条件要刷的船 如果该条件还有次数剩余 会自动跳出
[20151119]增加 找船误差设置，如果无法正确识别大部分船，请提高误差
          建议误差不超过默认的2倍
[20151121]修正 队伍设置只对出击有效的问题
[20160904]新增 支持设置单舰刷闪 默认开启
]]
---------------------------------------------------------------------------------
--这里是设置区域
Kan.DelBattleInfo()
Kan.AddBattleInfo(1,1,false,false)
Kan.AddBattleInfo(2,1,true,false)
--每个点的战斗设置 一般不用改

m_count = 3
--单船刷闪的次数，3次出击可到85闪

m_team_id = 1
--出击的队伍ID

m_use_other_kan = true
--是否使用另外的2个陪练船（1-3级任意驱逐或轻巡）

m_flash_kan = {}
--不要修改

---------------------------------------------------------------------------------
--Base.SetConfig("ChangeNameSiteString", 20)
--定义检测编成中船名字的误差值 默认为20 如需修改，请取消上一行注释 需要1.4.8版本

--Base.SetConfig("ChangeNameSiteNum",9)
--定义检测编成中船等级的误差值 默认为9 如需修改，请取消上一行注释 需要1.4.8版本

--以上两个设置请在无法正确识别等级或船名字的情况下修改
---------------------------------------------------------------------------------
--★★★请在这里自行设置需要刷的船名 

--在KanAuto顶部的小船按钮中可以帮助你快速添加该项目 
--刷之前记得给会刷到的船上装备哦，特别是空母的飞机
--可以添加多条
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 SupplyAllStringMatch(_str)
    local t2 = { string.match(_str , "^(-?%d+),(-?%d+),(-?%d+),(-?%d+)|(%d+),(%d+),(%d+),(%d+),(%d+),(%d+)") }
    --将返回的数据匹配到表中
    t = {}
    for key, value in pairs(t2) do  
            table.insert(t,tonumber(value))
    end  --转为数值
    Base.Print(string.format("舰队状态:%d %d %d %d",t[1],t[2],t[3],t[4]))
    Base.Print(string.format("第一舰队单船状态:%d %d %d %d %d %d",t[5],t[6],t[7],t[8],t[9],t[10]))
        
    return t
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 = Base.CallFunc("Kan.SupplyAll") --补给全部并返回所有数据
    Base.Print(ret)
    
    t = SupplyAllStringMatch(ret) --返回的文本转到table

	kan_2_id = 2 + (m_team_id-1)*6 + 4
	kan_3_id = 3 + (m_team_id-1)*6 + 4
	kan_1_id = 1 + (m_team_id-1)*6 + 4
	if t[kan_2_id] == C.KAN_STATE_MAX or t[kan_2_id] == C.KAN_STATE_MID then --判断第2位置
		--小船的状态不适合继续刷
		
		if m_use_other_kan == true then
			Win.Print('小船状态不佳-2')
			if ChangeKanMin() == false then
				Win.Print('没有可换的小船！')
				break
			end
		end
		ret = Base.CallFunc("Kan.SupplyAll") --补给全部并返回所有数据
	end
	
	if t[kan_3_id] == C.KAN_STATE_MAX or t[kan_3_id] == C.KAN_STATE_MID then --判断第3位置
		 --小船的状态不适合继续刷
		if m_use_other_kan == true then
			Win.Print('小船状态不佳-3')
			if ChangeKanMin() == false then
				Win.Print('没有可换的小船！')
				break
			end
		end
		ret = Base.CallFunc("Kan.SupplyAll")
	end
	
	
	if t[kan_1_id] == C.KAN_STATE_MAX or t[kan_1_id] == C.KAN_STATE_MID then --判断旗舰
		Win.Print('大船中破或大破，停止该船刷闪，换船')
		break
	end
	
    if t[m_team_id] == -1 then
        Win.Pop('补给不足 脚本停止！',true)
        break
    end

    Kan.Sally(1, 1)
    
    if Kan.BattleEx(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('脚本执行完毕！')