local gc=love.graphics

local int,rnd=math.floor,math.random
local mStr=mStr

local scene={}

local board,cx,cy
local startTime,time
local move,push,state

local color,blind='color1'
local slide,pathVis,revKB

function scene.sceneInit()
	BG.set('rainbow2')
	BGM.play('push')
	board={{1,2,3,4},{5,6,7,8},{9,10,11,12},{13,14,15,16}}
	cx,cy=4,4
	startTime=0
	time=0
	move,push=0,0
	state=2

	color='color1'
	blind=false
	slide=true
	pathVis=true
	revKB=false
end

local function moveU(x,y)
	if y<4 then
		board[y][x],board[y+1][x]=board[y+1][x],board[y][x]
		cy=cy+1
	end
end
local function moveD(x,y)
	if y>1 then
		board[y][x],board[y-1][x]=board[y-1][x],board[y][x]
		cy=cy-1
	end
end
local function moveL(x,y)
	if x<4 then
		board[y][x],board[y][x+1]=board[y][x+1],board[y][x]
		cx=cx+1
	end
end
local function moveR(x,y)
	if x>1 then
		board[y][x],board[y][x-1]=board[y][x-1],board[y][x]
		cx=cx-1
	end
end
local function shuffleBoard()
	for i=1,300 do
		i=rnd()
		if i<.25 then moveU(cx,cy)
		elseif i<.5 then moveD(cx,cy)
		elseif i<.75 then moveL(cx,cy)
		else moveR(cx,cy)
		end
	end
end
local function checkBoard(b)
	for i=4,1,-1 do
		for j=1,4 do
			if b[i][j]~=4*i+j-4 then return false end
		end
	end
	return true
end
local function tapBoard(x,y,key)
	if state<2 then
		if not key then
			if pathVis then
				SYSFX.newShade(6,x-5,y-5,11,11,1,1,1)
			end
			x,y=int((x-320)/160)+1,int((y-40)/160)+1
		end
		local b=board
		local moves=0
		if cx==x then
			if y>cy and y<5 then
				for i=cy,y-1 do
					moveU(x,i)
					moves=moves+1
				end
			elseif y<cy and y>0 then
				for i=cy,y+1,-1 do
					moveD(x,i)
					moves=moves+1
				end
			end
		elseif cy==y then
			if x>cx and x<5 then
				for i=cx,x-1 do
					moveL(i,y)
					moves=moves+1
				end
			elseif x<cx and x>0 then
				for i=cx,x+1,-1 do
					moveR(i,y)
					moves=moves+1
				end
			end
		end
		if moves>0 then
			push=push+1
			move=move+moves
			if state==0 then
				state=1
				startTime=TIME()
			end
			if checkBoard(b)then
				state=2
				time=TIME()-startTime
				if time<1 then		MES.new(false,"不是人")
				elseif time<2 then	MES.new(false,"还是人")
				elseif time<3 then	MES.new(false,"神仙")
				elseif time<5 then	MES.new(false,"太强了")
				elseif time<7.5 then MES.new(false,"很强")
				elseif time<10 then	MES.new(false,"可以的")
				elseif time<20 then	MES.new(false,"马上入门了")
				elseif time<30 then	MES.new(false,"入门不远了")
				elseif time<60 then	MES.new(false,"多加练习")
				else				MES.new(false,"第一次玩?加油")
				end
				SFX.play('win')
				return
			end
			SFX.play('move')
		end
	end
end
function scene.keyDown(key,isRep)
	if isRep then return end
	if key=="up"then
		tapBoard(cx,cy-(revKB and 1 or -1),true)
	elseif key=="down"then
		tapBoard(cx,cy+(revKB and 1 or -1),true)
	elseif key=="left"then
		tapBoard(cx-(revKB and 1 or -1),cy,true)
	elseif key=="right"then
		tapBoard(cx+(revKB and 1 or -1),cy,true)
	elseif key=="space"then
		shuffleBoard()
		state=0
		time=0
		move,push=0,0
	elseif key=="q"then
		if state~=1 then
			color=(color+1)%5
		end
	elseif key=="w"then
		if state==0 then
			blind=not blind
		end
	elseif key=="e"then
		if state==0 then
			slide=not slide
			if not slide then
				pathVis=false
			end
		end
	elseif key=="r"then
		if state==0 and slide then
			pathVis=not pathVis
		end
	elseif key=="t"then
		if state==0 then
			revKB=not revKB
		end
	elseif key=="escape"then
		SCN.back()
	end
end
function scene.mouseDown(x,y)
	tapBoard(x,y)
end
function scene.mouseMove(x,y)
	if slide then
		tapBoard(x,y)
	end
end
function scene.touchDown(x,y)
	tapBoard(x,y)
end
function scene.touchMove(x,y)
	if slide then
		tapBoard(x,y)
	end
end

function scene.update()
	if state==1 then
		time=TIME()-startTime
	end
end

local frontColor={
	color1={
		COLOR.lR,COLOR.lR,COLOR.lR,COLOR.lR,
		COLOR.lG,COLOR.lB,COLOR.lB,COLOR.lB,
		COLOR.lG,COLOR.lY,COLOR.lV,COLOR.lV,
		COLOR.lG,COLOR.lY,COLOR.lV,COLOR.lV,
	},--Colored(rank)
	rainbow={
		COLOR.lR,COLOR.lR,COLOR.lR,COLOR.lR,
		COLOR.lO,COLOR.lY,COLOR.lY,COLOR.lY,
		COLOR.lO,COLOR.lG,COLOR.lB,COLOR.lB,
		COLOR.lO,COLOR.lG,COLOR.lB,COLOR.lB,
	},--Rainbow(rank)
	color2={
		COLOR.lR,COLOR.lR,COLOR.lR,COLOR.lR,
		COLOR.lB,COLOR.lB,COLOR.lB,COLOR.lB,
		COLOR.lG,COLOR.lY,COLOR.lV,COLOR.lV,
		COLOR.lG,COLOR.lY,COLOR.lV,COLOR.lV,
	},--Colored(row)
	gray={
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
	},--Gray
	black={
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
		COLOR.Z,COLOR.Z,COLOR.Z,COLOR.Z,
	},--Black
}
local backColor={
	color1={
		COLOR.dR,COLOR.dR,COLOR.dR,COLOR.dR,
		COLOR.dG,COLOR.dB,COLOR.dB,COLOR.dB,
		COLOR.dG,COLOR.dY,COLOR.dV,COLOR.dV,
		COLOR.dG,COLOR.dY,COLOR.dV,COLOR.dV,
	},--Colored(rank)
	rainbow={
		COLOR.dR,COLOR.dR,COLOR.dR,COLOR.dR,
		COLOR.dO,COLOR.dY,COLOR.dY,COLOR.dY,
		COLOR.dO,COLOR.dG,COLOR.dB,COLOR.dB,
		COLOR.dO,COLOR.dG,COLOR.dB,COLOR.dB,
	},--Rainbow(rank)
	color2={
		COLOR.dR,COLOR.dR,COLOR.dR,COLOR.dR,
		COLOR.dB,COLOR.dB,COLOR.dB,COLOR.dB,
		COLOR.dG,COLOR.dY,COLOR.dV,COLOR.dV,
		COLOR.dG,COLOR.dY,COLOR.dV,COLOR.dV,
	},--Colored(row)
	gray={
		COLOR.dH,COLOR.dH,COLOR.dH,COLOR.dH,
		COLOR.dH,COLOR.dH,COLOR.dH,COLOR.dH,
		COLOR.dH,COLOR.dH,COLOR.dH,COLOR.dH,
		COLOR.dH,COLOR.dH,COLOR.dH,COLOR.dH,
	},--Gray
	black={
		COLOR.D,COLOR.D,COLOR.D,COLOR.D,
		COLOR.D,COLOR.D,COLOR.D,COLOR.D,
		COLOR.D,COLOR.D,COLOR.D,COLOR.D,
		COLOR.D,COLOR.D,COLOR.D,COLOR.D,
	},--Black
}
function scene.draw()
	setFont(40)
	gc.setColor(1,1,1)
	gc.print(("%.3f"):format(time),1026,80)
	gc.setColor(1,.8,.8)
	gc.print(move,1026,130)
	gc.setColor(.8,.8,1)
	gc.print(push,1026,180)

	if state==2 then
		--Draw no-setting area
		gc.setColor(1,0,0,.3)
		gc.rectangle('fill',15,295,285,340)

		gc.setColor(.9,.9,0)--win
	elseif state==1 then
		gc.setColor(.9,.9,.9)--game
	elseif state==0 then
		gc.setColor(.2,.8,.2)--ready
	end
	gc.setLineWidth(10)
	gc.rectangle('line',313,33,654,654,18)

	gc.setLineWidth(4)
	local mono=blind and state==1
	setFont(80)
	for i=1,4 do
		for j=1,4 do
			if cx~=j or cy~=i then
				local N=board[i][j]
				local C=mono and 3 or color

				gc.setColor(backColor[C][N])
				gc.rectangle('fill',j*160+163,i*160-117,154,154,8)
				gc.setColor(frontColor[C][N])
				gc.rectangle('line',j*160+163,i*160-117,154,154,8)
				if not mono then
					gc.setColor(.1,.1,.1)
					mStr(N,j*160+240,i*160-96)
					mStr(N,j*160+242,i*160-98)
					gc.setColor(1,1,1)
					mStr(N,j*160+243,i*160-95)
				end
			end
		end
	end
	gc.setColor(0,0,0,.3)
	gc.setLineWidth(10)
	gc.rectangle('line',cx*160+173,cy*160-107,134,134,50)
end

local function ifGaming()return state==1 end
scene.widgetList={
	WIDGET.newButton{name="reset",	x=160,y=100,w=180,h=100,color='lG',	font=40,code=pressKey"space"},
	WIDGET.newSelector{name="color",x=150,y=240,w=200,list={'color1','rainbow','color2','gray','black'},color='lY',disp=function()return color end,	code=function(v)if state~=1 then color=v end end,hideF=ifGaming},
	WIDGET.newSwitch{name="blind",	x=240,y=330,w=60,					font=40,disp=function()return blind end,	code=pressKey"w",hideF=ifGaming},
	WIDGET.newSwitch{name="slide",	x=240,y=420,w=60,					font=40,disp=function()return slide end,	code=pressKey"e",hideF=ifGaming},
	WIDGET.newSwitch{name="pathVis",x=240,y=510,w=60,					font=40,disp=function()return pathVis end,	code=pressKey"r",hideF=function()return state==1 or not slide end},
	WIDGET.newSwitch{name="revKB",	x=240,y=600,w=60,					font=40,disp=function()return revKB end,	code=pressKey"t",hideF=ifGaming},
	WIDGET.newButton{name="back",	x=1140,y=640,w=170,h=80,fText=TEXTURE.back,code=backScene},
}

return scene