舰_2018夏E3P1

--[[

配置去这抄作业吧 http://bbs.nga.cn/read.php?tid=14968193

]]

--战斗点设置 Kan.DelBattleInfo() Kan.AddBattleInfo(1, 阵型.单纵, false, false) --C Kan.AddBattleInfo(2, 阵型.警戒, false, false) --J Kan.AddBattleInfo(3, 阵型.单纵, true, false) --M

--空袭点设置 Kan.AddLandAir(1, 455,172) --M Kan.AddLandAir(1, 455,172) --M Kan.AddLandAir(2, 455,172) --M Kan.AddLandAir(2, 455,172) --M

--能动点设置 Kan.AddWayAuto(375,298) --J --I 482,489

--出击地图2-5，可自行改为其他图 map_id = {10, 3}

--出击次数 count = 6

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

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

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

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

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

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

--【道中支援的队伍ID】以及【Boss支援的队伍ID】，不需要请在前面加--进行注释 kan_support_id = 3 --kan_support_boss_id = 4

---

--★远征设置 --1.可自行新建一个远征脚本复制出这几行数据 --2.可输入C.会弹出输入提示，下拉可找到相应远征 k2_conquest = C.北方鼠輸送作戦_ID21 k3_conquest = C.防空射撃演習_ID6 k4_conquest = C.東京急行_ID37

--设置5-10分钟检测收回并放出一次远征 如果需要远征 请取消前面“--”注释 --Kan.EasyConquestInit(605, 6010);

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

--在执行完一次远征后执行这个函数 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 ret["team"..kan_support_boss_id] ~= -3 then
    Kan.Conquest(kan_support_boss_id,10, 2) --出击Boss支援
end

if kan_support_id ~= nil and ret["team"..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.Repair(6, 1 + 2 + 4 + 8, GetRepairID());
elseif ret.team1 == -1 then
    Win.Pop('补给不足 脚本停止！',true)
    break
end

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

--第一舰队\战斗4次\使用能动点
if Kan.Battle(team_id, map_battle_count) == false then
    Win.Print('战斗非正常结束..等待' .. wait_time .. '分钟恢复疲劳再打...')
    Base.Sleep(1000 * 60 * wait_time) --等待时间
else
    Win.Print('战斗正常结束..等待' .. wait_time .. '分钟恢复疲劳再打...')
    Base.Sleep(1000 * 60 * wait_time) --等待时间
end

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

end

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

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