舰_6-5攻略

--[[

上路1号基地出发 ACDGM

配置参考
1.2DD 1CL 1BB 2CV
2.1DD 1CLT 1CA 1BB 2CV

DD带夜战和对空CI
CL可带夜战装备
BB传统穿甲装备，不限制高低速
CV带制空280+即是1红1蓝2绿

路基全部攻击Boss
]]
---------------------------------------------------------------------------------
--这里是设置区域 请务必阅读！
--这里是设置区域 请务必阅读！

--Base.SleepSec(60*6)

--如果你要打的地图会超过4个战斗点，请添加自行添加，否则多出的战斗点会按照第1个的设置战斗
--请一定要注意，如果去打1-5你不改这个，就是去送死！
Kan.DelBattleInfo()
Kan.AddBattleInfo(1, 阵型.单纵, false, false) --A
Kan.AddBattleInfo(2, 阵型.复纵, false, false) --C
Kan.AddBattleInfo(3, 阵型.复纵, false, false) --D
Kan.AddBattleInfo(4, 阵型.轮型, false, false) --G
Kan.AddBattleInfo(5, 阵型.单纵, true,  false) --M

--不要修改101这个值（101为接管函数）
map_id = {101, 5}

--地图选择以及路基补充请看函数 LandAirCheck
Base.SetValue("FunReWriteSallyAll", "LandAirCheck")

--出击次数 
count = 5

--出击的队伍ID（1-4）
team_id = 1

--在每次出击正常结束后等待时间（分钟）
wait_time = 10

--所有修理都是高速修理！
--修理损坏=不到小破的那种掉血，建议高难度的图才开
修理大破 = true; 修理中破 = true; 修理小破 = true; 修理损坏 = false; 

--在打完count次数后进入远征循环后是否修船（不用桶）
repair = false

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

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

--路基攻击点设置
Kan.AddLandAir(1, 648, 144) --M
Kan.AddLandAir(1, 648, 144) --M
Kan.AddLandAir(2, 648, 144) --M
Kan.AddLandAir(2, 648, 144) --M


--Kan.AddWayAuto()
-----------------------------------------------------------------------------
--★远征设置
--1.可自行新建一个远征脚本复制出这几行数据
--2.可输入C.会弹出输入提示，下拉可找到相应远征
k2_conquest = C.海上護衛任務_ID5
k3_conquest = C.北方鼠輸送作戦_ID21
k4_conquest = C.東京急行_ID37

--设置5-10分钟检测收回并放出一次远征 如果需要远征 请取消前面“--”注释
--Kan.EasyConquestInit(60*5, 60*10);
---------------------------------------------------------------------------------
--所有延时随机增加1-100
Base.SetConfig("Sleep+?",100) 


--自主设定选择地图及重置航空队
function LandAirCheck() 
	Base.WaitColor("[[512,456,1139174,5],[527,440]]","区域6界面")
	Base.Sleep(1000)
	Base.Click(479,121) --Next
	
	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("[[512,456,1139174,5],[527,440]]","区域6界面")
	Base.Sleep(1000)
	Base.Click(718,277) --Next
	Base.Sleep(1500)
	Base.Click(605,206) --Next
	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 RunRepair()
	if repair == true then
		math.randomseed(os.time())
		if math.random(1,2) == 1 then
			Kan.Repair(2);
		end	
	end
end

function GetRepairID()
	rep_id = 0;
	if 修理大破 == true then
		rep_id = rep_id + 8;
	end
	if 修理中破 == true then
		rep_id = rep_id + 4;
	end
	if 修理小破 == true then
		rep_id = rep_id + 2;
	end
	if 修理损坏 == true then
		rep_id = rep_id + 1;
	end
	return rep_id;
end

s1 = os.time() 

--执行第一次远征
Kan.EasyConquestRun(false)

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

	ret = Kan.SupplyAllT();

    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 ret.kan11>0 or ret.kan12>0 or ret.kan13>0 or 
	   ret.kan14>0 or ret.kan15>0 or ret.kan16>0 then
        Win.Print('船大/中/小破！使用进入修理')
        
        --修理大中小破的船 6次 都使用桶！！
        Kan.RepairEx(6, 16, GetRepairID());
    elseif ret.team1 == -1 then
        Win.Pop('补给不足 脚本停止！',true)
        break
    end

    Kan.Sally(map_id[1], map_id[2]) --出击

    --第一舰队\战斗4次\使用能动点
    if Kan.BattleEx(team_id, map_battle_count , use_way) == false then
        LastBattleCount = Base.GetValue("LastBattleCount")
        Win.Print(LastBattleCount)    
        
        if LastBattleCount ~= nil then
            min = (7 - tonumber(LastBattleCount)) * 3
            Win.Print('战斗结束..等待'..min ..'分钟恢复疲劳再打...')
            Base.Sleep(1000 * 60 *  min) --等待时间
        else
            Win.Print('战斗结束..等待24分钟恢复疲劳再打...')
            Base.Sleep(1000 * 60 *  24) --等待时间
        end
    else
        Win.Print('战斗正常结束..等待' .. wait_time .. '分钟恢复疲劳再打...')
        Base.Sleep(1000 * 60 * wait_time) --等待时间
    end

    Kan.WaitHome(2000)
    Base.Sleep(2000)
end


--进入收发远征循环
Kan.EasyConquestEnterLoop("RunRepair")

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