舰_2018夏E5P2
--[[
轻水打+6欧洲最短线路
建议强化道中制空 1队： 2BB 常规双炮穿甲飞机 2CVL 1红3绿 2CA 可带对空摩耶CI一个
2队： 随意吧 不要带BB和空母即可 3对陆 3CI 满足6欧洲船可以带雷巡
具体请去这抄作业吧： http://bbs.nga.cn/read.php?tid=14968193
]]
--Base.SleepSec(60*6)
--战斗点设置 Kan.DelBattleInfo()
Kan.AddBattleInfo(1,阵型.对潜警戒, false, false) --T 辛弃疾 Kan.AddBattleInfo(2,阵型.战斗队形, false, false) --P Kan.AddBattleInfo(3,阵型.战斗队形, false, false) --L Kan.AddBattleInfo(4,阵型.战斗队形, true, false) --W
--空袭点设置 Kan.AddLandAir(1, 726,502) --W Kan.AddLandAir(1, 726,502) --W Kan.AddLandAir(2, 726,502) --W Kan.AddLandAir(2, 726,502) --W --Kan.AddLandAir(3, 958,256) --T 辛弃疾 东海对潜 --Kan.AddLandAir(3, 958,256) --T 辛弃疾 东海对潜
Kan.AddLandAir(3, 726,502) --W Kan.AddLandAir(3, 726,502) --W
--能动点设置 --Kan.AddWayAuto(384,426) --E --F 430,284
--出击地图2-5，可自行改为其他图 map_id = {10, 5}
--出击次数 count = 6
--出击的队伍ID（1-4） team_id = 12
--在每次出击正常结束后等待时间（分钟） 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))
end
--进入收发远征循环 Kan.EasyConquestEnterLoop("RunRepair")
Win.Pop('脚本执行完毕！')
Last updated