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

local max,min,int=math.max,math.min,math.floor
local ins,rem=table.insert,table.remove
local sub=string.sub

local FIELD=FIELD
local scene={}

local sure
local pen--Pen type
local px,py--Pen position
local demo--If show x
local page

function scene.sceneInit()
	sure=0
	pen=1
	px,py=1,1
	demo=false
	page=1
end

local penKey={
	["1"]=1,["2"]=2,["3"]=3,["4"]=4,["5"]=5,["6"]=6,["7"]=7,["8"]=8,
	q=9,w=10,e=11,r=12,t=13,y=14,u=15,i=16,
	a=17,s=18,d=19,f=20,g=21,h=22,j=23,k=24,
	z=0,x=-1,
}

function scene.mouseDown(x,y)
	scene.mouseMove(x,y)
end
function scene.mouseMove(x,y)
	local sx,sy=int((x-200)/30)+1,20-int((y-60)/30)
	if sx<1 or sx>10 then sx=nil end
	if sy<1 or sy>20 then sy=nil end
	px,py=sx,sy
	if sx and sy and ms.isDown(1,2,3)then
		FIELD[page][sy][sx]=ms.isDown(1)and pen or ms.isDown(2)and -1 or 0
	end
end
function scene.wheelMoved(_,y)
	if y<0 then
		pen=pen+1
		if pen==25 then pen=1 end
	else
		pen=pen-1
		if pen==0 then pen=24 end
	end
end
function scene.touchDown(x,y)
	scene.mouseMove(x,y)
end
function scene.touchMove(x,y)
	local sx,sy=int((x-200)/30)+1,20-int((y-60)/30)
	if sx<1 or sx>10 then sx=nil end
	if sy<1 or sy>20 then sy=nil end
	px,py=sx,sy
	if sx and sy then
		FIELD[page][sy][sx]=pen
	end
end
function scene.keyDown(key)
	local sx,sy=px,py
	if key=="up"or key=="down"or key=="left"or key=="right"then
		if not sx then sx=1 end
		if not sy then sy=1 end
		if key=="up"and sy<20 then sy=sy+1
		elseif key=="down"and sy>1 then sy=sy-1
		elseif key=="left"and sx>1 then sx=sx-1
		elseif key=="right"and sx<10 then sx=sx+1
		end
		if kb.isDown("space")then
			FIELD[page][sy][sx]=pen
		end
	elseif key=="delete"then
		if sure>20 then
			for y=1,20 do for x=1,10 do FIELD[page][y][x]=0 end end
			sure=0
			SFX.play("finesseError",.7)
		else
			sure=50
		end
	elseif key=="space"then
		if sx and sy then
			FIELD[page][sy][sx]=pen
		end
	elseif key=="escape"then
		SCN.back()
	elseif key=="j"then
		demo=not demo
	elseif key=="k"then
		ins(FIELD[page],1,{21,21,21,21,21,21,21,21,21,21})
		FIELD[page][21]=nil
		SFX.play("blip")
	elseif key=="l"then
		local F=FIELD[page]
		for i=20,1,-1 do
			for j=1,10 do
				if F[i][j]<=0 then goto L end
			end
			SYSFX.newShade(3,200,660-30*i,300,30)
			SYSFX.newRectRipple(3,200,660-30*i,300,30)
			rem(F,i)
			::L::
		end
		if #F~=20 then
			repeat
				F[#F+1]={0,0,0,0,0,0,0,0,0,0}
			until#F==20
			SFX.play("clear_3",.8)
			SFX.play("fall",.8)
		end
	elseif key=="c"and kb.isDown("lctrl","rctrl")or key=="cC"then
		sys.setClipboardText("Techmino Field:"..copyBoard(page))
		LOG.print(text.exportSuccess,COLOR.green)
	elseif key=="v"and kb.isDown("lctrl","rctrl")or key=="cV"then
		local str=sys.getClipboardText()
		local p=string.find(str,":")--ptr*
		if p then str=sub(str,p+1)end
		if pasteBoard(str,page)then
			LOG.print(text.importSuccess,COLOR.green)
		else
			LOG.print(text.dataCorrupted,COLOR.red)
		end
	elseif key=="tab"or key=="sTab"then
		if key=="sTab"or kb.isDown("lshift","rshift")then
			page=max(page-1,1)
		else
			page=min(page+1,#FIELD)
		end
	elseif key=="n"then
		ins(FIELD,page+1,newBoard(FIELD[page]))
		page=page+1
		SFX.play("blip_1",.8)
		SYSFX.newShade(3,200,60,300,600,.5,1,.5)
	elseif key=="m"then
		rem(FIELD,page)
		page=max(page-1,1)
		if not FIELD[1]then
			ins(FIELD,newBoard())
		end
		SYSFX.newShade(3,200,60,300,600,1,.5,.5)
		SFX.play("clear_4",.8)
		SFX.play("fall",.8)
	else
		pen=penKey[key]or pen
	end
	px,py,pen=sx,sy,pen
end

function scene.update()
	if sure>0 then sure=sure-1 end
end

function scene.draw()
	local sx,sy=px,py

	gc.translate(200,60)

	--Draw grid
	gc.setColor(1,1,1,.2)
	gc.setLineWidth(1)
	for x=1,9 do gc.line(30*x,0,30*x,600)end
	for y=0,19 do gc.line(0,30*y,300,30*y)end

	--Draw field
	gc.setColor(1,1,1)
	gc.setLineWidth(3)
	gc.rectangle("line",-2,-2,304,604)
	gc.setLineWidth(2)
	local cross=puzzleMark[-1]
	local F=FIELD[page]
	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 and not demo then
			gc.draw(cross,30*x-30,600-30*y)
		end
	end end

	--Draw pen
	if sx and sy then
		local x,y=30*sx,600-30*sy
		if kb.isDown("space")or ms.isDown(1)then
			gc.setLineWidth(5)
			gc.rectangle("line",x-30,y,30,30,4)
		elseif ms.isDown(3)then
			gc.setLineWidth(3)
			gc.line(x-15,y,x-30,y+15)
			gc.line(x,y,x-30,y+30)
			gc.line(x,y+15,x-15,y+30)
		else
			gc.setLineWidth(2)
			gc.rectangle("line",x-30,y,30,30,3)
			gc.setColor(1,1,1,.2)
			gc.rectangle("fill",x-30,y,30,30,3)
			gc.setColor(1,1,1)
		end
	end
	gc.translate(-200,-60)

	--Draw page
	setFont(55)
	mStr(page,100,530)
	mStr(#FIELD,100,600)
	gc.rectangle("fill",50,600,100,6)

	--Draw pen color
	if pen>0 then
		gc.setLineWidth(13)
		gc.setColor(SKIN.libColor[pen])
		gc.rectangle("line",565,495,70,70)
	elseif pen==-1 then
		gc.setLineWidth(5)
		gc.setColor(.9,.9,.9)
		gc.line(575,505,625,555)
		gc.line(575,555,625,505)
	end

	--Confirm reset
	if sure>0 then
		gc.setColor(1,1,1,sure*.02)
		gc.draw(drawableText.question,1145,330)
	end

	--Block name
	setFont(55)
	gc.setColor(1,1,1)
	local _
	for i=1,7 do
		_=SETTING.skin[i]
		if _<=8 then
			mStr(text.block[i],500+80*_,90)
		else
			mStr(text.block[i],500+80*(_-8),170)
		end
	end
end

local function setPen(i)return function()pen=i end end
scene.widgetList={
	WIDGET.newText{name="title",	x=1020,y=5,font=70,align="R"},
	WIDGET.newText{name="subTitle",	x=1030,y=50,font=35,align="L",color="grey"},

	WIDGET.newButton{name="b1",		x=580,	y=130,w=75,fText="",color=COLOR.red,	code=setPen(1)},--B1
	WIDGET.newButton{name="b2",		x=660,	y=130,w=75,fText="",color=COLOR.fire,	code=setPen(2)},--B2
	WIDGET.newButton{name="b3",		x=740,	y=130,w=75,fText="",color=COLOR.orange,	code=setPen(3)},--B3
	WIDGET.newButton{name="b4",		x=820,	y=130,w=75,fText="",color=COLOR.yellow,	code=setPen(4)},--B4
	WIDGET.newButton{name="b5",		x=900,	y=130,w=75,fText="",color=COLOR.lame,	code=setPen(5)},--B5
	WIDGET.newButton{name="b6",		x=980,	y=130,w=75,fText="",color=COLOR.grass,	code=setPen(6)},--B6
	WIDGET.newButton{name="b7",		x=1060,	y=130,w=75,fText="",color=COLOR.green,	code=setPen(7)},--B7
	WIDGET.newButton{name="b8",		x=1140,	y=130,w=75,fText="",color=COLOR.water,	code=setPen(8)},--B8

	WIDGET.newButton{name="b9",		x=580,	y=210,w=75,fText="",color=COLOR.cyan,	code=setPen(9)},--B9
	WIDGET.newButton{name="b10",	x=660,	y=210,w=75,fText="",color=COLOR.sky,	code=setPen(10)},--B10
	WIDGET.newButton{name="b11",	x=740,	y=210,w=75,fText="",color=COLOR.sea,	code=setPen(11)},--B11
	WIDGET.newButton{name="b12",	x=820,	y=210,w=75,fText="",color=COLOR.blue,	code=setPen(12)},--B12
	WIDGET.newButton{name="b13",	x=900,	y=210,w=75,fText="",color=COLOR.purple,	code=setPen(13)},--B13
	WIDGET.newButton{name="b14",	x=980,	y=210,w=75,fText="",color=COLOR.grape,	code=setPen(14)},--B14
	WIDGET.newButton{name="b15",	x=1060,	y=210,w=75,fText="",color=COLOR.magenta,code=setPen(15)},--B15
	WIDGET.newButton{name="b16",	x=1140,	y=210,w=75,fText="",color=COLOR.pink,	code=setPen(16)},--B16

	WIDGET.newButton{name="b17",	x=580,	y=290,w=75,fText="[  ]",color="dGrey",	code=setPen(17)},--BONE
	WIDGET.newButton{name="b18",	x=660,	y=290,w=75,fText="N",	color="black",	code=setPen(18)},--HIDE
	WIDGET.newButton{name="b19",	x=740,	y=290,w=75,fText="B",	color="lYellow",code=setPen(19)},--BOMB
	WIDGET.newButton{name="b20",	x=820,	y=290,w=75,fText="_",	color="grey",	code=setPen(20)},--GB1
	WIDGET.newButton{name="b21",	x=900,	y=290,w=75,fText="_",	color="lGrey",	code=setPen(21)},--GB2
	WIDGET.newButton{name="b22",	x=980,	y=290,w=75,fText="_",	color="dPurple",code=setPen(22)},--GB3
	WIDGET.newButton{name="b23",	x=1060,	y=290,w=75,fText="_",	color="dRed",	code=setPen(23)},--GB4
	WIDGET.newButton{name="b24",	x=1140,	y=290,w=75,fText="_",	color="dGreen",	code=setPen(24)},--GB5

	WIDGET.newButton{name="any",		x=600,	y=400,w=120,color="lGrey",	font=40,code=setPen(0)},
	WIDGET.newButton{name="space",		x=730,	y=400,w=120,color="grey",	font=65,code=setPen(-1)},
	WIDGET.newButton{name="pushLine",	x=990,	y=400,w=120,h=120,color="lYellow",font=20,code=pressKey"k"},
	WIDGET.newButton{name="delLine",	x=1120,	y=400,w=120,h=120,color="lYellow",font=20,code=pressKey"l"},

	WIDGET.newButton{name="copy",		x=730,	y=530,w=120,color="lRed",	font=35,code=pressKey"cC"},
	WIDGET.newButton{name="paste",		x=860,	y=530,w=120,color="lBlue",	font=35,code=pressKey"cV"},
	WIDGET.newButton{name="clear",		x=990,	y=530,w=120,color="white",	font=40,code=pressKey"delete"},
	WIDGET.newSwitch{name="demo",		x=755,	y=640,disp=function()return demo end,code=function()demo=not demo end},

	WIDGET.newButton{name="newPage",	x=100,	y=110,w=160,h=110,color="sky",font=20,code=pressKey"n"},
	WIDGET.newButton{name="delPage",	x=100,	y=230,w=160,h=110,color="lRed",font=20,code=pressKey"m"},
	WIDGET.newButton{name="prevPage",	x=100,	y=350,w=160,h=110,color="lGreen",font=20,code=pressKey"sTab",hide=function()return page==1 end},
	WIDGET.newButton{name="nextPage",	x=100,	y=470,w=160,h=110,color="lGreen",font=20,code=pressKey"tab",hide=function()return page==#FIELD end},

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

return scene