舰_1-1刷闪

--舰娘脚本，刷闪，只刷一个船，不会换船，请自行换好船先
--刷闪的船放旗舰，然后带俩1级的重巡什么的

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


battle_count_max = 3
--出击多少次，一般3次可以刷到85吧好像，

kan_team = 1
--第几舰队，自行修改

battle_point_count = 3
--反正超过也没事，所以写3了。

Base.SetConfig("Sleep+?",100) --所有延时随机增加1-100
---------------------------------------------------------------------
battle_count = 0; run_count = 0;
--用于计数的变量，不要动

while true do --无限循环
	run_count = run_count+1
	a = "开始第:%d次"
	Win.Print(a:format(run_count))

	ret = Kan.SupplyAll() --执行补给 所有舰队

	if ret > 0 then
		Base.Print('舰船大破 脚本停止！')
		break
	elseif ret == -1 then
		Base.Print('补给不足 脚本停止！')
		break
	end
		
	Kan.Sally(1, 1) --进行出击1-5

	--不夜战/阵型单纵
	if Kan.Battle(kan_team, battle_point_count, false, 1) == false then
		Base.Print('战斗异常') --无法出击或者道中大破
		break
	end
	
	battle_count = battle_count + 1
	
	if battle_count >= battle_count_max then
		Win.Pop('达到最大战斗次数，脚本停止',true)
		break
	end
	Kan.WaitHome(1500)
	Base.Sleep(2000)
	
end

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