舰_自定开发脚本

--舰娘脚本
--自定义脚本例子
--执行3次开发
--[20151013]修正因为会保存上次配方导致的问题
--[20151021]修正设置300会调整到290的问题
--[20160529]支持从其他脚本调用时传参


燃料 = 10
弹药 = 10
钢材 = 28
铝材 = 10

执行次数 = 3
--上面的值修改成自己需要的

--从别的脚本调用过来 可以修改参数
if Base.GetValueInt("make_count") ~= 0 then
	执行次数 = Base.GetValueInt("make_count")
	燃料 = Base.GetValueInt("make_燃料")
	弹药 = Base.GetValueInt("make_弹药")
	钢材 = Base.GetValueInt("make_钢材")
	铝材 = Base.GetValueInt("make_铝材")
end


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

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 IsCreateItem() --由工具KanAuto专用取色工具生成，请到论坛下载
    array = {};count = {};
	
    array = {[0]=766,430,11841058}; count[0] = array;
    array = {[0]=642,457,7569419}; count[1] = array;
    array = {[0]=633,441,9211425}; count[2] = array;
    array = {[0]=701,443,14277720}; count[3] = array;

    return IsColorAll(count)
end

function CheckClickCount(_count)
	a = (_count - _count % 100) / 100
	b = ((_count % 100) - (_count % 100) % 10) / 10 - 1
	c = _count - a*100 - b*10 - 10
	
	if a == 3 then
		b = 0
		c = 0
	end
	
	return a,b,c
end



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

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

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

m_count = 0

while true do
	Base.Print("等待工厂界面...")
	while IsFactory() == false do --等待工厂界面载入
		Base.ClickRectEx(328,447) --点击底部 过滤掉
		Base.Sleep(1000)
	end
	Base.Sleep(500)
	
	Base.ClickRectEx(252,340) --点击开发按钮
	
	Base.Print("等待开发界面...")
	while IsCreateItem() == false do --等待开发界面
		Base.Sleep(1000)
	end

	Base.Sleep(500)

	if m_count == 0 then 

	--计算材料点击
	Base.Print("设置材料数量...")
	
	
	
	a,b,c = CheckClickCount(燃料)
	if a ~= 0 or  b ~= 0 or c ~= 0 then
		for n=1,a do
			Base.Click(490,163) --a
			Base.Sleep(100,true)
		end
		Base.Sleep(300,true)
		
		if b < 0 then 
			for n=1,math.abs (b) do
				Base.Click(437,136) --b
				Base.Sleep(100,true)
			end
		else
			for n=1,b do
				Base.Click(489,136) --b
				Base.Sleep(100,true)
			end
		end
		
		Base.Sleep(300,true)
		for n=1,c do
			Base.Click(361,156) --c
			Base.Sleep(100,true)
		end
	
	end
	
	a,b,c = CheckClickCount(弹药)
	
	if a ~= 0 or  b ~= 0 or c ~= 0 then
		for n=1,a do
			Base.Click(489,293) --a
			Base.Sleep(100,true)
		end
		Base.Sleep(300,true)
		if b < 0 then 
			for n=1,math.abs (b) do
				Base.Click(437,267) --b
				Base.Sleep(100,true)
			end
		else
			for n=1,b do
				Base.Click(490,267) --b
				Base.Sleep(100,true)
			end
		end
		Base.Sleep(300,true)
		for n=1,c do
			Base.Click(361,285) --c
			Base.Sleep(100,true)
		end
	end
	
	a,b,c = CheckClickCount(钢材)
	
	if a ~= 0 or  b ~= 0 or c ~= 0 then
		for n=1,a do
			Base.Click(718,163) --a
			Base.Sleep(100,true)
		end
		Base.Sleep(300,true)
		
		if b < 0 then 
			for n=1,math.abs (b) do
				Base.Click(665,136) --b
				Base.Sleep(100,true)
			end
		else
			for n=1,b do
				Base.Click(718,136) --b
				Base.Sleep(100,true)
			end
		end
		
		Base.Sleep(300,true)
		for n=1,c do
			Base.Click(589,155) --c
			Base.Sleep(100,true)
		end
	end
	
	a,b,c = CheckClickCount(铝材)
	
	if a ~= 0 or  b ~= 0 or c ~= 0 then
		for n=1,a do
		Base.Click(717,294) --a
			Base.Sleep(100,true)
		end
		Base.Sleep(300,true)
		if b < 0 then 
			for n=1,math.abs (b) do
				Base.Click(665,266) --b
				Base.Sleep(100,true)
			end
		else
			for n=1,b do
				Base.Click(718,266) --b
				Base.Sleep(100,true)
			end
		end
		Base.Sleep(300,true)
		for n=1,c do
			Base.Click(589,285) --c
			Base.Sleep(100,true)
		end
	end
	
	end
	Base.Sleep(500,true)

	Base.Print("给我力量吧！")
	Base.ClickRectEx(707,444,80,30)

	
	m_count=m_count+1
	if m_count == 执行次数 then Base.Print("次数达到"); break; end --达到次数 跳出循环
	
	Base.Sleep(1500)

end

Base.WaitColor("[[331,455,11978195],[313,458,11453907],[313,458]]","工厂界面加载")
Kan.GoHome()

Base.Print("脚本结束")