舰_2017夏E6绿条

--[[ 配置 请到发布页查看配置 机动也行 但是水打道中更稳定 所以我选水打

记得配你的路基！ 记得配你的路基！ 记得配你的路基！ 记得配你的路基！ ]]

--这里是设置区域 请务必仔细阅读！！！ Kan.AddBattleInfo(1, 阵型.战斗队形, false, false) --C Kan.AddBattleInfo(2, 阵型.战斗队形, false, false) --D Kan.AddBattleInfo(3, 阵型.战斗队形, false, false) --G Kan.AddBattleInfo(4, 阵型.战斗队形, true , false) --H

--每个点的战斗设置 如果要修改为别的活动图的时候需要改

--路基全路攻 记得改成出击状态 Kan.AddLandAir(1, 435,273) --H Kan.AddLandAir(1, 435,273) --H Kan.AddLandAir(2, 435,273) --H Kan.AddLandAir(2, 435,273) --H

--能动点 --Kan.AddWay(638,278) --B 上 Kan.AddWay(598,339) --C 下

count = 15 --出击次数

kan_support_boss_id = 4 --Boss支援舰队ID 不需要的话请在前面加--注释掉

kan_support_id = 3 --道中支援舰队ID 不需要的话请在前面加--注释掉

fullHPBattle = 否 --如果改为是，则会连擦伤的船也修

---

--下面的设置修改为别的活动图的时候才需要改

team_id = 12 --出击的队伍ID,联合舰队的话，请写12

use_way = true --是否使用能动点 地图如果不需要使用能动点 就写false

map_id = 6 --出击地图

map_battle_count = Kan.GetBattleInfoCount(); --在地图中进行几个点的战斗 超过也可以 但是不能少 少了到Boss前就撤退了 --(不包括资源点和能动点还有漩涡等不战斗的点的数量)

---

--k2_conquest = C.東京急行_ID37 --二队战斗了 所以不需要 k3_conquest = C.北方鼠輸送作戦_ID21 k4_conquest = C.防空射撃演習_ID6 --设置2、3、4队伍远征，可输入C.然后下拉选择

--Kan.EasyConquestInit(605, 6010) --设置简易远征，每5-10分钟进行一次检测，1.5.3版本KCA才可以使用 --需要远征的话，请取消注释

Base.SetConfig("Sleep+?",100) --所有延时随机增加1-100

Base.SetValue("FunReWriteSallyAll","LandAirCheck")

function LandAirCheck() --自主设定选择地图及重置航空队 Base.WaitColor("[[289,392,16446951],[280,383,15853506],[609,465,14477039,5],[711,446]]","活动界面") Base.Click(270,394) --点击航空队补充 Base.WaitColor("[[579,153,11056312],[579,246,11122105]]","航空队补充") Base.Click(775,220) --点击全补充 Base.Sleep(800) Base.WaitColor("[[579,153,11056312],[579,246,11122105]]","航空队补充") Win.Print("第2队伍") Base.Click(682,120) --点击第二队伍 Base.Sleep(800) Base.WaitColor("[[579,153,11056312],[579,246,11122105]]","航空队补充") Base.Click(775,220) --点击全补充 Base.Sleep(800) Base.WaitColor("[[579,153,11056312],[579,246,11122105]]","航空队补充") Win.Print("第3队伍") Base.Click(752,121) --点击第三队伍 Base.Sleep(800) Base.WaitColor("[[579,153,11056312],[579,246,11122105]]","航空队补充") Base.Click(775,220) --点击全补充 Base.Sleep(800) Base.WaitColor("[[579,153,11056312],[579,246,11122105]]","航空队补充") Base.Click(249,118) --补充完毕退出航空队选择 Base.Sleep(800) Base.WaitColor("[[289,392,16446951],[280,383,15853506],[609,465,14477039,5],[711,446]]","活动界面") Base.Click(739,277) --Next Base.Sleep(2000) Base.Click(526,354) --点击E6 Base.Sleep(1000) Base.WaitColor("[[590,80,12631325],[601,83,12631325],[615,84,7696929],[210, 117]]","出击") Base.Click(686,443) --点击决定 Win.Print("点击决定") Base.Sleep(1000) --剩下的都是战斗函数的处理范围了 end

function SupplyAllStringMatch(_str) local t2 = { string.match(_str , "^(-?%d+),(-?%d+),(-?%d+),(-?%d+)|(%d+),(%d+),(%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("第1舰队单船状态:%d %d %d %d %d %d",t[5],t[6],t[7],t[8],t[9],t[10]))
Base.Print(string.format("第2舰队单船状态:%d %d %d %d %d %d",t[11],t[12],t[13],t[14],t[15],t[16]))
return t

end

function NeedRepair(_t) --判断是否需要修理 if t[5]>0 or t[6]>0 or t[7]>0 or t[8]>0 or t[9]>0 or t[10]>0 then return true end if t[11]>0 or t[12]>0 or t[13]>0 or t[14]>0 or t[15]>0 or t[16]>0 then return true end

return false

end

Kan.EasyConquestRun(false) --首次启动的时候执行一次远征

for n = 1, count do --循环次数 a = "开始第:%d次" Win.Print(a:format(n))

ret = Base.CallFunc("Kan.SupplyAll") --补给全部并返回所有数据
Base.Print(ret)

t = SupplyAllStringMatch(ret) --返回的文本转到table

if kan_support_boss_id ~= nil and t[kan_support_boss_id] ~= -3 then
    Kan.Conquest(kan_support_boss_id,10,2) --出击Boss支援
end

if kan_support_id ~= nil and t[kan_support_id] ~= -3 then
    Kan.Conquest(kan_support_id,10,1) --出击道中支援
end

if NeedRepair(t) == true then
    Win.Print('船大/中/小破！使用进入修理')
    re = 0
    --修理大中小破的船 6次 除潜艇外的船都使用桶！！
    --普通擦伤不修理 如果要修 就在参数3加上 +1
	if fullHPBattle == true then
		re = 1
	end
    Kan.RepairEx(12, re + 2 + 4 + 8, 2 + 4 + 8 + re)
elseif t[1] == -1 then
    Win.Pop('补给不足 脚本停止！',true)
    break
end

Kan.Sally(101, map_id) --出击E3

Base.SetConfig("LastBattleCount", 0)
--第一舰队\战斗4次\使用能动点
if Kan.BattleEx(team_id, map_battle_count , use_way) == false then
    LastBattleCount = Base.GetValue("LastBattleCount")
    if LastBattleCount ~= nil and LastBattleCount ~= "" then
        if tonumber(LastBattleCount) < map_battle_count then
            Win.Print('道中劝退')
        end
        min = (7 - tonumber(LastBattleCount)) * 3 
        Win.Print('战斗正常结束..等待'..min ..'分钟恢复疲劳再打...')
        Base.Sleep(1000 * 60 *  min) --等待时间
    else
		if LastBattleCount == "" or LastBattleCount == "0" then
			Win.Print('出击失败，存在大破船或船位装备已满')
			break
		else
			Win.Print('战斗正常结束..等待24分钟恢复疲劳再打...')
        	Base.Sleep(1000 * 60 *  24) --等待时间
		end
    end 
else
    LastBattleCount = Base.GetValue("LastBattleCount")
    if LastBattleCount ~= nil and tonumber(LastBattleCount) < map_battle_count then
        --Win.Print('第一舰队旗舰大破劝退')
    end
    Win.Print('战斗正常结束..等待6分钟恢复疲劳再打...')
    Base.Sleep(1000 * 60 * 6) --等待时间
end
Kan.WaitHome(2000)

if n % 2 == 0 then

end

Base.Sleep(2000)

end

Kan.EasyConquestEnterLoop()

Win.Pop('脚本执行完毕！')