舰_自定拆船脚本

--发布地址：http://sp2.moehex.com/2016/07/10/%e8%88%b0_%e8%87%aa%e5%ae%9a%e6%8b%86%e8%88%b9%e8%84%9a%e6%9c%ac/

--自定义脚本例子
--按照New排序拆掉20个船

--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！
--请注意一定要先锁定不拆的船！！！！


--[2015.08.03]脚本会保留轻空母和水上机母舰这两种对空口粮
--[2015.08.04]优化船类型检测的速度
--[2015.08.04]不再随机选择船，而是按照顺序向下选择
--[2015.09.14]优化速度，基本等于人手操作
--[2015.10.30]支持保留正航口粮
--[2016.04.21]移除脚本确认提示！用于方便调用
--[2016.04.21]默认改为拆20个船
--[2016.04.21]拆船完成后会回到母港
--[2016.07.12]修正游戏UI调整会拆掉水母轻空母航母的问题
--[2017.06.07]修正会拆掉对空素材的问题
--[2018.01.09]支持多选

--需要1.2.6版本
local inspect = require([[base\inspect]])


m_max_count = 20
--拆船的次数


Base.SetColorDebug(false)

function IsColorAll(array) --请保持这个函数不要修改
	n=0
	ok=0
	while(array[n] ~= nil)
	do
		if Base.IsColor(array[n][0],array[n][1],array[n][2])==true then
			ok = ok + 1
		end
		n= n+1
	end
	
	if ok==n then
		return true
	else
		return false
	end
end

function IsFactory() --由工具KanAuto专用取色工具生成，请到论坛下载
    array = {};count = {};
    array = {[0]=291,246,3492493}; count[0] = array;
    array = {[0]=200,265,3029879}; count[1] = array;
    array = {[0]=202,238,3363487}; count[2] = array;
    array = {[0]=265,334,5016925}; count[3] = array;
    return IsColorAll(count)
end

function IsNew()--由工具KanAuto专用取色工具生成，请到论坛下载
    array = {};count = {};
	
    array = {[0]=579,108,13488566}; count[0] = array;
    array = {[0]=590,120,12040273}; count[1] = array;
    array = {[0]=592,114,9474092}; count[2] = array;
    array = {[0]=600,112,13488566}; count[3] = array;
    array = {[0]=578,110,10066495}; count[4] = array;
    array = {[0]=586,111,15922943}; count[5] = array;

    return IsColorAll(count)
end

function IsKanOk()--由工具KanAuto专用取色工具生成，请到论坛下载
    array = {};count = {};
	
    array = {[0]=734,425,11116845}; count[0] = array;
    array = {[0]=669,448,7233824}; count[1] = array;

    return IsColorAll(count)
end



function IsRunOk()--由工具KanAuto专用取色工具生成，请到论坛下载
    array = {};count = {};
	
    array = {[0]=551,449,14083822}; count[0] = array;
    array = {[0]=542,457,13886443}; count[1] = array;
    array = {[0]=582,455,14346736}; count[2] = array;
    array = {[0]=529,446,14149357}; count[3] = array;

    return IsColorAll(count)
end


function RetKanId(x,y)
	for i=1,10 do
		if Base.InRect(x,y,196,120 + ((i-1)*31),100,31) then
			return i
		end
	end
	return 0;
end
--判断是否是锁定的
function GetLockKanArray()
	t = {}
	for i=1,10 do
		if Base.IsColor(578, 140 + (i - 1) * 31, 9869808) then
			--Base.Print(string.format("%d = %s",i,"Lock"))
			t[i] = true;
		else
			t[i] = false;
		end
	end
	return t;
end


function CheckKanType()
kan_type = {}

cvl = Base.FindColorAllBin(15,145,{196,121,130,312},"1R0S0FE,1RVTF", "10RVVVD,1RVU8")
cvs = Base.FindColorAllBin(12,145,{196,121,130,312},"1NVDJO0,1DLBV", "1NVDVRM,1TK3V")
cv =  Base.FindColorAllBin(12,145,{196,121,130,312},"1RNVC3V,1VTNF", "1RGC1RF,1GTVF")

--Base.Print("CVL:" .. inspect(t))

if cvl ~= nil then
	Base.Print("-----")
	--输出坐标
	for key, value in pairs(cvl) do  
		id = RetKanId(value["x"],value["y"])
		Base.Print(string.format("%d = %s",id,"cvl"))
		kan_type[id] = "cvl"
	end  
end

if cvs ~= nil then
	Base.Print("-----")
	--输出坐标
	for key, value in pairs(cvs) do  
		id = RetKanId(value["x"],value["y"])
		Base.Print(string.format("%d = %s",id,"cvs"))
		kan_type[id] = "cvs" 
	end  
end


if cv ~= nil then
	Base.Print("-----")
	--输出坐标
	for key, value in pairs(cv) do  
		id = RetKanId(value["x"],value["y"])
		Base.Print(string.format("%d = %s",id,"cv"))
		kan_type[id] = "cv" 
	end  
end

return kan_type
end


--脚本从这里开始向下执行

--CheckKanType()
--Base.SleepSec(10)
--

Kan.WaitHomeEx(2000,120*1000) --等待母港

Base.ClickRect(281,358) --点击工厂


Base.Print("等待工厂界面...")
while IsFactory() == false do --等待工厂界面载入
	Base.Sleep(1000)
end
Base.Sleep(500)

Base.ClickRectEx(199,253) --点击解体按钮


Base.Print("等待切换排序...")
while IsNew() == false do --等待New排序
	Base.ClickRect(590,111) --点击切换排序
	Base.Sleep(500)
end

Base.Sleep(500)

m_count = 0

while true do 
	kan_type = {}
	Base.Print("检查船类型...")
	Base.Print(m_last_ok_id)
	--for i=1,100 do
	--	Base.Move(196,138 + i * 3)
	--	Base.Sleep(3)
	--end
	Base.ClickRect(185,118)
	Base.Sleep(150)
	kan_lock = GetLockKanArray()
	kanType = CheckKanType() --返回一个船类型列表
	Base.Print("锁定状态：" .. inspect(kan_lock))
	Base.Print("船类型：" .. inspect(kanType))
	--扫描列表
	--Base.Print(string.format("选择船ID:%d", kan_id))
	
	Base.Sleep(500)
	Base.Print("检查是否可以拆掉")
	err_count = 0;

	selectCount = 0;

	for i=1, 10 do
		Base.Sleep(333)
		if kanType[i] == nil and kan_lock[i] == false then
			Base.Print(string.format("选择船ID:%d", i))
			Base.ClickRect(240 , 120 + ((i-1)*31) +15)
			selectCount = selectCount + 1;
		end
		
	end
	
	if selectCount == 0 then break end 
	
	Base.Print("解体！")
	Base.Sleep(200)
	Base.ClickRectEx(708,435) --点击解体
	Base.Sleep(200)
	Base.Print("等待解体...")
	while IsRunOk() == false do --等待拆船
		Base.Sleep(100)
	end
	
	
	--拆了一个船
	
	m_count=m_count+1
	if m_count == m_max_count then break end
	
	Base.Sleep(100)
end

while IsRunOk() == false do --等待拆船完成界面
	Base.Sleep(100)
end
Base.Sleep(500)
Kan.GoHome() --回到母港
Kan.WaitHome() 


Base.Print("脚本结束")