local gc,sys=love.graphics,love.system
local kb=love.keyboard

local int=math.floor

local function notAir(L)
	for i=1,10 do
		if L[i]>0 then return true end
	end
end
local CUSTOMENV=CUSTOMENV

local scene={}

local initField
local function freshMiniFieldVisible()
	initField=false
	for y=1,20 do
		if notAir(FIELD[1][y])then
			initField=true
			return
		end
	end
end
function scene.sceneInit()
	destroyPlayers()
	BG.set(CUSTOMENV.bg)
	BGM.play(CUSTOMENV.bgm)
	freshMiniFieldVisible()
end
function scene.sceneBack()
	BGM.play()
end

function scene.keyDown(key)
	if key=="return"or key=="return2"then
		if CUSTOMENV.opponent~="X"then
			if CUSTOMENV.opponent:sub(1,2)=="CC"and CUSTOMENV.sequence=="fixed"then
				LOG.print(text.ai_fixed,"warn")
				return
			elseif #BAG>0 then
				LOG.print(text.ai_prebag,"warn")
				return
			elseif #MISSION>0 then
				LOG.print(text.ai_mission,"warn")
				return
			end
		end
		if key=="return2"or kb.isDown("lalt","lctrl","lshift")then
			if initField then
				loadGame("custom_puzzle",true)
			end
		else
			loadGame("custom_clear",true)
		end
	elseif key=="f"then
		SCN.go("custom_field","swipeD")
	elseif key=="s"then
		SCN.go("custom_sequence","swipeD")
	elseif key=="m"then
		SCN.go("custom_mission","swipeD")
	elseif key=="a"then
		SCN.go("custom_advance","swipeD")
	elseif key=="c"and kb.isDown("lctrl","rctrl")or key=="cC"then
		local str="Techmino Quest:"..copyQuestArgs().."!"
		if #BAG>0 then str=str..copySequence()end
		str=str.."!"
		if #MISSION>0 then str=str..copyMission()end
		sys.setClipboardText(str.."!"..copyBoards().."!")
		LOG.print(text.exportSuccess,COLOR.green)
	elseif key=="v"and kb.isDown("lctrl","rctrl")or key=="cV"then
		local str=sys.getClipboardText()
		local args=SPLITSTR(str:sub((str:find(":")or 0)+1),"!")
		if #args<4 then goto fail end
		if not(
			pasteQuestArgs(args[1])and
			pasteSequence(args[2])and
			pasteMission(args[3])
		)then goto fail end
		repeat table.remove(FIELD)until #FIELD==0
		FIELD[1]=newBoard()
		for i=4,#args do
			if not pasteBoard(args[i],i-3)and i<#args then goto fail end
		end
		freshMiniFieldVisible()
		LOG.print(text.importSuccess,COLOR.green)
		do return end
		::fail::LOG.print(text.dataCorrupted,COLOR.red)
	elseif key=="escape"then
		SCN.back()
	else
		WIDGET.keyPressed(key)
	end
end

function scene.draw()
	--Field content
	if initField then
		gc.push("transform")
		gc.translate(95,290)
		gc.scale(.5)
		gc.setColor(1,1,1)
		gc.setLineWidth(3)
		gc.rectangle("line",-2,-2,304,604)
		local F=FIELD[1]
		local cross=TEXTURE.puzzleMark[-1]
		local texture=SKIN.curText
		for y=1,20 do for x=1,10 do
			local B=F[y][x]
			if B>0 then
				gc.draw(texture[B],30*x-30,600-30*y)
			elseif B==-1 then
				gc.draw(cross,30*x-30,600-30*y)
			end
		end end
		gc.pop()
	end

	--Field
	setFont(40)
	if initField and #FIELD>1 then
		gc.setColor(1,1,int(TIME()*6.26)%2)
		gc.print("+",275,300)
		gc.print(#FIELD-1,300,300)
	end

	--Sequence
	if #BAG>0 then
		gc.setColor(1,1,int(TIME()*6.26)%2)
		gc.print("#",330,545)
		gc.print(#BAG,360,545)
	end
	setFont(30)
	gc.setColor(1,1,1)
	gc.print(CUSTOMENV.sequence,330,510)

	--Sequence
	if #MISSION>0 then
		gc.setColor(1,CUSTOMENV.missionKill and 0 or 1,int(TIME()*6.26)%2)
		gc.print("#",610,545)
		gc.print(#MISSION,640,545)
	end
end

scene.widgetList={
	WIDGET.newText{name="title",	x=520,	y=5,font=70,align="R"},
	WIDGET.newText{name="subTitle",	x=530,	y=50,font=35,align="L",color="grey"},
	WIDGET.newText{name="defSeq",	x=330,	y=550,align="L",color="grey",hide=function()return BAG[1]end},
	WIDGET.newText{name="noMsn",	x=610,	y=550,align="L",color="grey",hide=function()return MISSION[1]end},

	--Basic
	WIDGET.newSelector{name="drop",	x=170,	y=150,w=220,color="orange",	list={0,.125,.25,.5,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,1e99},disp=lnk_CUSval("drop"),code=lnk_CUSsto("drop")},
	WIDGET.newSelector{name="lock",	x=170,	y=230,w=220,color="red",	list={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,1e99},			disp=lnk_CUSval("lock"),code=lnk_CUSsto("lock")},
	WIDGET.newSelector{name="wait",	x=410,	y=150,w=220,color="green",	list={0,1,2,3,4,5,6,7,8,10,15,20,30,60},									disp=lnk_CUSval("wait"),code=lnk_CUSsto("wait")},
	WIDGET.newSelector{name="fall",	x=410,	y=230,w=220,color="yellow",	list={0,1,2,3,4,5,6,7,8,10,15,20,30,60},									disp=lnk_CUSval("fall"),code=lnk_CUSsto("fall")},

	--Else
	WIDGET.newSelector{name="bg",	x=1070,	y=150,w=250,color="yellow",list=BG.getList(),disp=lnk_CUSval("bg"),		code=function(i)CUSTOMENV.bg=i BG.set(i)end},
	WIDGET.newSelector{name="bgm",	x=1070,	y=230,w=250,color="yellow",	list=BGM.getList(),	disp=lnk_CUSval("bgm"),	code=function(i)CUSTOMENV.bgm=i BGM.play(i)end},

	--Copy/Paste/Start
	WIDGET.newButton{name="copy",	x=1070,	y=310,w=310,h=70,color="lRed",	font=25,code=pressKey"cC"},
	WIDGET.newButton{name="paste",	x=1070,	y=390,w=310,h=70,color="lBlue",	font=25,code=pressKey"cV"},
	WIDGET.newButton{name="clear",	x=1070,	y=470,w=310,h=70,color="lYellow",font=35,code=pressKey"return"},
	WIDGET.newButton{name="puzzle",x=1070,	y=550,w=310,h=70,color="lMagenta",font=35,code=pressKey"return2",hide=function()return not initField end},

	--More
	WIDGET.newKey{name="advance",	x=730,	y=190,w=220,h=90,color="red",	font=35,code=goScene"custom_advance"},
	WIDGET.newKey{name="mod",		x=730,	y=310,w=220,h=90,color="white",	font=35,code=goScene"mod"},
	WIDGET.newKey{name="field",		x=170,	y=640,w=240,h=80,color="water",	font=25,code=goScene"custom_field"},
	WIDGET.newKey{name="sequence",	x=450,	y=640,w=240,h=80,color="pink",	font=25,code=goScene"custom_sequence"},
	WIDGET.newKey{name="mission",	x=730,	y=640,w=240,h=80,color="sky",	font=25,code=goScene"custom_mission"},

	WIDGET.newButton{name="back",	x=1140,	y=640,	w=170,h=80,font=40,code=backScene},
}

return scene