舰_2-3潜艇偷油

--[[ 
潜艇偷油脚本

[20161127] bug修正和增加双潜艇支持401
[20170209] 拆船设置改为每进行多少次出击后执行，支持在非出击时段内修船
[20180813] 移除即将弃用的API

注意事项
1.运行前请先把第一舰队清空，留一只船
2.请根据自行需要修改ChangeTeam中的潜艇的特征
3.一般喂满护甲，30级以上的潜艇就可以参与捞油了

]]
--###################################################################

--这里是设置区域！请仔细阅读！！！！！ 然后再修改 
--如果设置区域读不懂 请按Alt+F4提高智商后再来

math.randomseed(os.time())
--随机数初始化 不要改

one_ss = false
--单舰模式开关，设置true开启后将使用1艘SS去偷，会增加较高的败率，不推荐

color_site = 3
--颜色误差值 如果总是找不到潜艇，可以适量改到5或6！ 建议不要超过10
--自行添加特征教程 http://www.7moe.com/forum.php?mod=viewthread&tid=22037

page = 3
--潜艇是从按照船排序的第几页开始的 一般人可能从1开始

page_next = 6
--向后翻的页数 如page=2、page_next=4则是在2 3 4 5 6页面选择船

next_page_back = true
--让页面从后向前翻 如果设置的是start_page是6 则翻页 6 5 4 ...

use_speed = false
--修理大破船是否使用桶 如果桶很多可以考虑使用 当前潜艇如果也很多可以用量来代替
--想要不用桶连刷，估计需要3页潜艇吧（大概

use_speed_mid = false
--修理中破船是否使用桶 

run_hour = '["9:10-12:01", "14:20-17:10", "19:20-21:40"]'
--出击的时间设置 默认"[[0,23]]"为全天随时都执行，1.5.3版本KCA才可以使用
--设置举例："[8,10,[20,22]]" 为8、10、20、21、22为脚本出击时间

reset_battle_count = true 
--是否在每次等待到可执行的时间后重置战斗次数，1.5.3版本KCA才可以使用
--比如"[8,10,[20,22]]"的设置，会在8点，10点，20点进行重置

deleteKanAtBattleCount = 40
--在每进行多少次出击后执行拆船 如果设置0 则不会拆船

notBattleTimeRepair = true
--是否在非战斗时段修船

battle_count = 200
--偷油出击次数 30-50 （如果设置定时清0的话，这里没必要随机了）

battle_count_change = 3
--一个队伍最多打几场就换船 如果设置0 则直到大破中破才会换船

Kan.DelBattleInfo()
Kan.AddBattleInfo(1, 阵型.单纵, 否, false) --第一个点 不进夜战
Kan.AddBattleInfo(2, 阵型.单纵, 是, false) --第二个点 进夜战
Kan.AddBattleInfo(3, 阵型.单纵, 是, false) --第三个点 进夜战
--如果是过任务，可以把所有点都设置夜战

Kan.AddBattleInfoPoint(436, 80, 阵型.单纵, 是, false, false) --
Kan.AddBattleInfoPoint(596,127, 阵型.单纵, 否, false, false) --Boss点 不夜战


-----------------------------------------------------------------------------
k2_conquest = C.長距離練習航海_ID2
k3_conquest = C.東京急行_ID37
k4_conquest = C.北方鼠輸送作戦_ID21
--1.可自行新建一个远征脚本复制出这几行数据
--2.可输入C.会弹出输入提示，下拉可找到相应远征

--Kan.EasyConquestInit(60*6, 60*12)
--设置简易远征，每5-10分钟进行一次检测，1.5.3版本KCA才可以使用

if next_page_back == true then
	Base.SetConfig("ChangePageEndStart",1)
end

--###################################################################
m_now_team = 0
Base.MinVer(135, true)
m_now_battle_count = 0
m_lastRepairTime = 0

function ChangeTeam()
	if one_ss == true then
		return ChangeTeamOneSS()
	else
		return ChangeTeamTwoSS()
	end
end

--每达到某个时间点后重设当前战斗次数
function ReSetBattleCount() 
	if reset_battle_count == true then
		Win.Print("战斗次数清零，并清理")
		f_count_now = 0
	end
end

function ChangeTeamTwoSS() --双SS的船配置
	m_now_team = 1
	last_change_battle_count = f_count_now 
	
	--如果你不想用某些船 ，请在相应的船特征前面加--注释掉，比如改后的船修理时间长什么的
	--自行添加特征教程 http://www.7moe.com/forum.php?mod=viewthread&tid=22037

	Kan.DelAllKanChangeColor()
	
	--luigi Torelli
	Kan.AddKanChangeColorEx(3, 145, true, "1VFTTRN,1NFVF", "1VFTTRO,1NFVF",0,2)
    --i26
	Kan.AddKanChangeColorEx(3, 145, true, "1VFVUVR,1RVVV", "1VFNVFR,1VVVV",0,2)
	
	Kan.AddKanChangeColorEx(3, 145, true, "1T01TFF,1NTVVVV,1VVVV", "1TURTFN,1NTVVVV,1VVVV",0,2)                            --401
	Kan.AddKanChangeColorEx(color_site,145,true,"11101111101111111111101110111101111111111111111111","11101100000001111111101110111101111111111111111111",0,2) --伊58
	Kan.AddKanChangeColorEx(color_site,145,true,"11110011111011011110110111111111111111111111111111","11111010001111111111111111111111111111111111111111",0,2) --伊8
	Kan.AddKanChangeColorEx(color_site,145,true,"11110111110111111111110111011110111011101101111111","11110110000000111111110111011110111011111001011111",0,2) --伊58改
	Kan.AddKanChangeColorEx(color_site,145,true,"11101100000001110111101110111110010111111111111111","10101111101101111100111110111010110111111111111111",0,2) --伊8改
	
Kan.AddKanChangeColorEx(3, 145, true, "1VFRNRV,1VTRF", "1VFRNRV,1VTRV",0,2) --ut25

 
	Kan.AddKanChangeColorEx(color_site,145,true,"11110111110111111111011111101111111101111011111111","11110110000000111111011111101111011101111011111111",0,1) --伊168
--Kan.AddKanChangeColorEx(color_site,145,true,"11110110000000111111011111110001011111111111111111","11010111110110111111011111100111011111111111111111",0,1) --伊19
	Kan.AddKanChangeColorEx(color_site,145,true,"10000000000111111110111011111011101111101111111111","11111011111111011101111011111011101111101111111111",0,1) --吕500
	Kan.AddKanChangeColorEx(color_site,145,true,"01000000000111110111111011111111011110111111010011","01111101101111110111111101111111011110111111010000",0,1) --伊168改
	Kan.AddKanChangeColorEx(color_site,145,true,"11101100000001111110111111100010111011111101011111","10101111101101111110111111001110111011101011111111",0,1) --伊19改


	
	ret = Kan.ChangeDIY(page,C.TEAM_1,0,page_next,false) --更换第二个船的位置
	
	Kan.DelAllKanChangeColor()
	
	Base.Print("成功替换"..ret.."个潜艇")
	
	if ret == 2 then --可以改写失败了换别的船
		return true
	end
	
	return false
end

function ChangeTeamOneSS() --单SS的船配置
	m_now_team = 1
	last_change_battle_count = f_count_now 
	
	--如果你不想用某些船 ，请在相应的船特征前面加--注释掉，比如改后的船修理时间长什么的
	--自行添加特征教程 http://www.7moe.com/forum.php?mod=viewthread&tid=22037

	Kan.DelAllKanChangeColor()
	Kan.AddKanChangeColorEx(color_site,145,true,"11101111101111111111101110111101111111111111111111","11101100000001111111101110111101111111111111111111",0,1) --伊58
	Kan.AddKanChangeColorEx(color_site,145,true,"11110011111011011110110111111111111111111111111111","11111010001111111111111111111111111111111111111111",0,1) --伊8
	Kan.AddKanChangeColorEx(color_site,145,true,"11110111110111111111110111011110111011101101111111","11110110000000111111110111011110111011111001011111",0,1) --伊58改
	Kan.AddKanChangeColorEx(color_site,145,true,"11101100000001110111101110111110010111111111111111","10101111101101111100111110111010110111111111111111",0,1) --伊8改
 
	Kan.AddKanChangeColorEx(color_site,145,true,"11110111110111111111011111101111111101111011111111","11110110000000111111011111101111011101111011111111",0,1) --伊168
	Kan.AddKanChangeColorEx(color_site,145,true,"11110110000000111111011111110001011111111111111111","11010111110110111111011111100111011111111111111111",0,1) --伊19
	Kan.AddKanChangeColorEx(color_site,145,true,"10000000000111111110111011111011101111101111111111","11111011111111011101111011111011101111101111111111",0,1) --吕500
	Kan.AddKanChangeColorEx(color_site,145,true,"01000000000111110111111011111111011110111111010011","01111101101111110111111101111111011110111111010000",0,1) --伊168改
	Kan.AddKanChangeColorEx(color_site,145,true,"11101100000001111110111111100010111011111101011111","10101111101101111110111111001110111011101011111111",0,1) --伊19改
	
	ret = Kan.ChangeDIY(page,队伍.队伍1,0,page_next,false) --更换第二个船的位置
	
	Kan.DelAllKanChangeColor()
	
	Base.Print("成功替换"..ret.."个潜艇")
	

	if ret == 1 then --可以改写失败了换别的船
		return true
	end
	
	return false
end

--在非执行时段时 每间隔大于300秒进行一次修理
function FuncRepairBottom()
	if notBattleTimeRepair == false then return; end;
	
	if os.time() - m_lastRepairTime > 300 then
		m_lastRepairTime = os.time();
		FuncRepair(true);
	end
end

function FuncRepair(_bottom_to_top)
	speed = 0
	if use_speed == true then			
		speed = speed + 入渠.大破
	end
	
	if use_speed_mid == true then			
		speed = speed + 入渠.中破
	end
	Kan.RepairEx(4,speed,入渠.擦伤 + 入渠.小破 + 入渠.中破 + 入渠.大破, _bottom_to_top) 
	--除了设置里要用桶的 其他慢慢修
end

function FuncNoKan(_min)
	Win.Print("没有可替换的船了，等待远征#1")
	if _min == nil then
		Base.Sleep(1000* 60* 5)
	else
		Base.Sleep(1000* 60* nil)
	end
	
	FuncRepair(true)
end


function CheckLv() --统计等级
	count = Base.GetValueInt("LastBattleCount")
	Base.Print("LastBattleCount:"..count)
	if count > 0 then
		m_lv.ALL = m_lv.ALL+count
		for n=1,count do
			ret = Base.GetValueInt("Battle_Lv_"..n)
			if ret == C.WIN_SS then
				m_lv.SS = m_lv.SS+1
			elseif  ret == C.WIN_S then
				m_lv.S = m_lv.S+1
			elseif  ret == C.WIN_A then
				m_lv.A = m_lv.A+1
			elseif  ret == C.WIN_B then
				m_lv.B = m_lv.B+1
			elseif  ret == C.WIN_C then
				m_lv.C = m_lv.C+1
			elseif  ret == C.WIN_D then
				m_lv.D = m_lv.D+1
			elseif  ret == C.WIN_ERROR then
				m_lv.ERROR = m_lv.ERROR+1
			end
			
		end
	end

	Win.SetState("累计战斗:"..m_lv.ALL.." SS:"..m_lv.SS.."  S:"..m_lv.S.."  A:"..m_lv.A.."  B:"..m_lv.B.."  C:"..m_lv.C.."  D:"..m_lv.D)
end

m_lv = {SS=0,S=0,A=0,B=0,C=0,D=0,ALL=0,ERROR=0}


s1 = os.time() 
--取现在时间的时间戳


f_count_now = 0 ; run_count = 0;
--当前战斗次数，请勿修改

last_change_battle_count = 0
--最后一次替换船时战斗的次数


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

math.randomseed(os.time())


--出击和战斗函数
function GoMapAndBattle () 
	if f_count_now <= battle_count then
		--出击目标 2-3
		Kan.Sally(2, 3) 
		--第一舰队/出击三次(A点)/不夜战/阵型1单纵（并不会选，因为俩船不需要选阵型）
		if Kan.BattleEx(1, 3, false) == false then 
			Win.Print('可能无法出击或道中大破')
		end
		CheckLv()
		--每次战斗增加1
		f_count_now = f_count_now  + 1 
		Win.Print('已完成'..f_count_now..'次战斗')
		Win.Print('本队完成'..(f_count_now - last_change_battle_count)..'次战斗')
		Kan.WaitHome(2000)
		Base.Sleep(2000)
	else
		Kan.WaitHome(2000)
		Win.Print('战斗次数达到'..f_count_now..'，等待5分后执行远征')
		Base.Sleep(1000*60*5)
		if math.random(1,2) == 1 then
			Kan.Repair(4)
		end	
	end
end


--主循环 无限
while true do 
kanState = true;
--判断是否在设置的脚本执行时间段内
Base.WaitRunHour(run_hour, true, "FuncRepairBottom", "ReSetBattleCount")
run_count = run_count + 1
Win.Print("开始第" .. run_count .. "次")

if deleteKanAtBattleCount ~= 0 and run_count % deleteKanAtBattleCount == 1 then
	dofile(".\\example\\舰_自定拆船脚本.lua")
end

if m_now_team == 0 then
	Win.Print("首次运行，切换到潜艇队伍")
	if ChangeTeam() == false then
		FuncNoKan(min) --等待远征
		Kan.EasyConquestWaitNextRun() --执行远征
		kanState = false;
	end
end

--如果设置了一个组合打多少次换船（即使没有大破） 执行换船
if battle_count_change ~= nil and battle_count_change > 0 then
	if f_count_now - last_change_battle_count >= battle_count_change then
		Win.Print("场次满足，执行换人")
		if ChangeTeam() == false then
			FuncNoKan(min) --等待远征
			Kan.EasyConquestWaitNextRun() --执行远征
			kanState = false;
		end
		FuncRepair(true)
	else
		Win.Print("场次不满足，不换人")
	end
end

--补给全部并返回所有舰队及船数据
ret = Kan.SupplyAllT();

kanState1 = ret.kan11
kanState2 = ret.kan12

--当前队伍第一和第二位置有维修中的船 切换队伍
if kanState1 == 补给.修理中 or kanState2 == 补给.修理中 then 
	if m_now_team ~= 3 then
		Win.Print("切换到第3队伍")
		if ChangeTeam() == false then
			FuncNoKan(min) --等待远征
			Kan.EasyConquestWaitNextRun() --执行远征
		end
		Kan.SupplyAllT() --换到的船不一定是满资源 所以补给
		FuncRepair()
	else 
		FuncNoKan(min) --等待远征
		Kan.EasyConquestWaitNextRun() --执行远征
	end
	kanState = false;
	
--有潜艇中破或者大破了 换队伍 并且将换下的维修
elseif (kanState1 < 3 and kanState1 > 0) or (kanState2 < 3 and kanState2 > 0) then 
	
	if ChangeTeam() == false then
		FuncNoKan(min) --等待远征
		Kan.EasyConquestWaitNextRun() --执行远征
		kanState = false;
	end
	Kan.SupplyAllT() --换到的船不一定是满资源 所以补给
	FuncRepair(true) --修理
end

--换船没有失败的情况下出击战斗
if kanState == true then
	GoMapAndBattle();
end

Base.Sleep(2000)

--是否到了远征的时间，是的话去搞一次远征
if conquest_open == true then
	Kan.EasyConquestWaitNextRun() --执行远征
end

end

Kan.EasyConquestEnterLoop()

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