SCR=	require"Zframework/screen"
COLOR=	require"Zframework/color"
SCN=	require"Zframework/scene"
LOG=	require"Zframework/log"
WS=		require"Zframework/websocket"

loadLib=require"Zframework/loadLib"
require"Zframework/wheelScroll"

require"Zframework/setFont"
require"Zframework/mDraw"

require"Zframework/json"
require"Zframework/dumpTable"
require"Zframework/urlEncode"

-- require"Zframework/upperChar"
require"Zframework/copyTable"
require"Zframework/splitStr"
require"Zframework/toTime"

VIB=	require"Zframework/vibrate"
SFX=	require"Zframework/sfx"

LIGHT=	require"Zframework/light"
BG=		require"Zframework/background"
WIDGET=	require"Zframework/widget"
TEXT=	require"Zframework/text"
SYSFX=	require"Zframework/sysFX"

IMG=	require"Zframework/image"
BGM=	require"Zframework/bgm"
VOC=	require"Zframework/voice"

LANG=	require"Zframework/languages"
TASK=	require"Zframework/task"
FILE=	require"Zframework/file"
PROFILE=require"Zframework/profile"

local ms,kb=love.mouse,love.keyboard

local gc=love.graphics
local gc_push,gc_pop=gc.push,gc.pop
local gc_discard,gc_present=gc.discard,gc.present
local gc_setColor,gc_draw,gc_rectangle=gc.setColor,gc.draw,gc.rectangle
local gc_print,gc_printf=gc.print,gc.printf
local setFont=setFont

local int,rnd,abs=math.floor,math.random,math.abs
local min,sin=math.min,math.sin
local ins,rem=table.insert,table.remove
local SCR=SCR

local mx,my,mouseShow=-20,-20,false
local touching--First touching ID(userdata)
local xOy=SCR.xOy
joysticks={}

local devMode

local infoCanvas=gc.newCanvas(108,27)
local function updatePowerInfo()
	local state,pow=love.system.getPowerInfo()
	gc.setCanvas(infoCanvas)gc_push("transform")gc.origin()
	gc.clear(0,0,0,.25)
	if state~="unknown"then
		gc.setLineWidth(4)
		local charging=state=="charging"
		if state=="nobattery"then
			gc_setColor(1,1,1)
			gc.setLineWidth(2)
			gc.line(74,SCR.safeX+5,100,22)
		elseif pow then
			if charging then	gc_setColor(0,1,0)
			elseif pow>50 then	gc_setColor(1,1,1)
			elseif pow>26 then	gc_setColor(1,1,0)
			elseif pow<26 then	gc_setColor(1,0,0)
			else				gc_setColor(.5,0,1)
			end
			gc_rectangle("fill",76,6,pow*.22,14)
			if pow<100 then
				setFont(15)
				gc_setColor(0,0,0)
				gc_print(pow,77,1)
				gc_print(pow,77,3)
				gc_print(pow,79,1)
				gc_print(pow,79,3)
				gc_setColor(1,1,1)
				gc_print(pow,78,2)
			end
		end
		gc_draw(IMG.batteryImage,73,3)
	end
	setFont(25)
	gc_print(os.date("%H:%M"),3,-5)
	gc_pop()gc.setCanvas()
end
-------------------------------------------------------------
local lastX,lastY=0,0--Last click pos
function love.mousepressed(x,y,k,touch)
	if touch then return end
	mouseShow=true
	mx,my=xOy:inverseTransformPoint(x,y)
	if devMode==1 then
		DBP(("(%d,%d), D=(%d,%d)~~(%d,%d)(%d,%d)"):format(
			mx,my,
			mx-lastX,my-lastY,
			int(mx/10)*10,int(my/10)*10,
			int((mx-lastX)/10)*10,int((my-lastY)/10)*10
		))
	end
	if not SCN.swapping then
		if SCN.mouseDown then
			SCN.mouseDown(mx,my,k)
		elseif k==2 then
			SCN.back()
		end
		if k==1 then
			WIDGET.press(mx,my)
		end
		lastX,lastY=mx,my
		SYSFX.newTap(3,mx,my,30)
	end
end
function love.mousemoved(x,y,dx,dy,t)
	if t then return end
	mouseShow=true
	mx,my=xOy:inverseTransformPoint(x,y)
	if SCN.swapping then return end
	dx,dy=dx/SCR.k,dy/SCR.k
	if SCN.mouseMove then SCN.mouseMove(mx,my,dx,dy)end
	if ms.isDown(1) then
		WIDGET.drag(mx,my,dx,dy)
	else
		WIDGET.moveCursor(mx,my)
	end
end
function love.mousereleased(x,y,k,touch)
	if touch or SCN.swapping then return end
	mx,my=xOy:inverseTransformPoint(x,y)
	WIDGET.release(mx,my)
	WIDGET.moveCursor(mx,my)
	if SCN.mouseUp then SCN.mouseUp(mx,my,k)end
	if lastX and SCN.mouseClick and(mx-lastX)^2+(my-lastY)^2<42 then
		SCN.mouseClick(mx,my,k)
	end
end
function love.wheelmoved(x,y)
	if SCN.swapping then return end
	if SCN.wheelMoved then SCN.wheelMoved(x,y)end
end

function love.touchpressed(id,x,y)
	mouseShow=false
	if SCN.swapping then return end
	if not touching then
		touching=id
		love.touchmoved(id,x,y,0,0)
	end
	x,y=xOy:inverseTransformPoint(x,y)
	lastX,lastY=x,y
	if SCN.touchDown then SCN.touchDown(x,y)end
	if kb.hasTextInput()then kb.setTextInput(false)end
end
function love.touchmoved(id,x,y,dx,dy)
	if SCN.swapping then return end
	x,y=xOy:inverseTransformPoint(x,y)
	if SCN.touchMove then SCN.touchMove(x,y,dx/SCR.k,dy/SCR.k)end
	if WIDGET.sel then
		if touching then
			WIDGET.drag(x,y,dx,dy)
		end
	else
		WIDGET.moveCursor(x,y)
		if not WIDGET.sel then
			touching=false
		end
	end
end
function love.touchreleased(id,x,y)
	if SCN.swapping then return end
	x,y=xOy:inverseTransformPoint(x,y)
	if id==touching then
		WIDGET.press(x,y)
		WIDGET.release(x,y)
		touching=false
		if WIDGET.sel and not WIDGET.sel.keepFocus then
			WIDGET.sel=false
		end
	end
	if SCN.touchUp then SCN.touchUp(x,y)end
	if(x-lastX)^2+(y-lastY)^2<62 then
		if SCN.touchClick then SCN.touchClick(x,y)end
		SYSFX.newTap(3,x,y,30)
	end
end

function love.keypressed(i)
	mouseShow=false
	if devMode then
		if i=="f1"then		PROFILE.switch()
		elseif i=="f2"then	LOG.print(string.format("System:%s[%s]\nluaVer:%s\njitVer:%s\njitVerNum:%s",SYSTEM,jit.arch,_VERSION,jit.version,jit.version_num))
		elseif i=="f3"then
			for _=1,8 do
				local P=PLAYERS.alive[rnd(#PLAYERS.alive)]
				if P~=PLAYERS[1]then
					P.lastRecv=PLAYERS[1]
					P:lose()
				end
			end
		elseif i=="f4"then	if not kb.isDown("lalt","ralt")then LOG.copy()end
		elseif i=="f5"then	if WIDGET.sel then DBP(WIDGET.sel)end
		elseif i=="f6"then	for k,v in next,_G do DBP(k,v)end
		elseif i=="f7"then	if love._openConsole then love._openConsole()end
		elseif i=="f8"then	devMode=nil	LOG.print("DEBUG OFF",COLOR.yellow)
		elseif i=="f9"then	devMode=1	LOG.print("DEBUG 1",COLOR.yellow)
		elseif i=="f10"then	devMode=2	LOG.print("DEBUG 2",COLOR.yellow)
		elseif i=="f11"then	devMode=3	LOG.print("DEBUG 3",COLOR.yellow)
		elseif i=="f12"then	devMode=4	LOG.print("DEBUG 4",COLOR.yellow)
		elseif i=="\\"then	_G["\100\114\97\119\70\87\77"]=NULL
		elseif devMode==2 then
			if WIDGET.sel then
				local W=WIDGET.sel
				if i=="left"then W.x=W.x-10
				elseif i=="right"then W.x=W.x+10
				elseif i=="up"then W.y=W.y-10
				elseif i=="down"then W.y=W.y+10
				elseif i==","then W.w=W.w-10
				elseif i=="."then W.w=W.w+10
				elseif i=="/"then W.h=W.h-10
				elseif i=="'"then W.h=W.h+10
				elseif i=="["then W.font=W.font-1
				elseif i=="]"then W.font=W.font+1
				else goto NORMAL
				end
			else
				goto NORMAL
			end
		else
			goto NORMAL
		end
		return
	end
	::NORMAL::
	if i=="f8"then
		devMode=1
		LOG.print("DEBUG ON",COLOR.yellow)
	elseif i=="f11"then
		switchFullscreen()
	else
		if SCN.swapping then return end
		if SCN.keyDown then SCN.keyDown(i)
		elseif i=="escape"then SCN.back()
		else WIDGET.keyPressed(i)
		end
	end
end
function love.keyreleased(i)
	if SCN.swapping then return end
	if SCN.keyUp then SCN.keyUp(i)end
end

function love.textedited(texts)
	EDITING=texts
end
function love.textinput(texts)
	WIDGET.textinput(texts)
end

function love.joystickadded(JS)
	joysticks[#joysticks+1]=JS
end
function love.joystickremoved(JS)
	for i=1,#joysticks do
		if joysticks[i]==JS then
			rem(joysticks,i)
			LOG.print("Joystick removed",COLOR.yellow)
			return
		end
	end
end
local keyMirror={
	dpup="up",
	dpdown="down",
	dpleft="left",
	dpright="right",
	start="return",
	back="escape",
}
function love.gamepadpressed(_,i)
	mouseShow=false
	if SCN.swapping then return end
	if SCN.gamepadDown then SCN.gamepadDown(i)
	elseif SCN.keyDown then SCN.keyDown(keyMirror[i]or i)
	elseif i=="back"then SCN.back()
	else WIDGET.gamepadPressed(keyMirror[i]or i)
	end
end
function love.gamepadreleased(_,i)
	if SCN.swapping then return end
	if SCN.gamepadUp then SCN.gamepadUp(i)end
end
--[[
function love.joystickpressed(JS,k)
	mouseShow=false
	if SCN.swapping then return end
	if SCN.gamepadDown then SCN.gamepadDown(i)
	elseif SCN.keyDown then SCN.keyDown(keyMirror[i]or i)
	elseif i=="back"then SCN.back()
	else WIDGET.gamepadPressed(i)
	end
end
function love.joystickreleased(JS,k)
	if SCN.swapping then return end
	if SCN.gamepadUp then SCN.gamepadUp(i)
	end
end
function love.joystickaxis(JS,axis,val)

end
function love.joystickhat(JS,hat,dir)

end
function love.sendData(data)end
function love.receiveData(id,data)end
]]
local lastGCtime=0
function love.lowmemory()
	if TIME()-lastGCtime>6.26 then
		collectgarbage()
		lastGCtime=TIME()
		LOG.print("[auto GC] low memory 设备内存过低","warn")
	end
end
function love.resize(w,h)
	SCR.resize(w,h)
	if BG.resize then BG.resize(w,h)end

	SHADER.warning:send("w",w*SCR.dpi)
	SHADER.warning:send("h",h*SCR.dpi)
end
function love.focus(f)
	if f then
		love.timer.step()
	elseif SCN.cur=="play"and SETTING.autoPause then
		pauseGame()
	end
end
function love.errorhandler(msg)
	ms.setVisible(true)
	love.audio.stop()

	local err={"Error:"..msg}
	local trace=debug.traceback("",2)
	local c=2
	for l in trace:gmatch("(.-)\n")do
		if c>2 then
			if not l:find("boot")then
				err[c]=l:gsub("^\t*","")
				c=c+1
			end
		else
			err[2]="Traceback"
			c=3
		end
	end
	DBP(table.concat(err,"\n"),1,c-2)
	gc.reset()

	local errScrShot
	gc.captureScreenshot(function(_)errScrShot=gc.newImage(_)end)
	gc.present()

	SFX.fplay("error",SETTING.voc*.8)

	local BGcolor=rnd()>.026 and{.3,.5,.9}or{.62,.3,.926}
	local needDraw=true
	local count=0
	return function()
		love.event.pump()
		for E,a,b in love.event.poll()do
			if E=="quit"or a=="escape"then
				destroyPlayers()
				return 1
			elseif E=="resize"then
				love.resize(a,b)
				needDraw=true
			elseif E=="focus"then
				needDraw=true
			elseif E=="touchpressed"and b<100 or E=="mousepressed" and a==2 or E=="keypressed"and a=="space"then
				if count<3 then
					count=count+1
					SFX.play("ready")
				else
					local code=loadstring(love.system.getClipboardText())
					if code then
						code()
						SFX.play("reach")
					else
						SFX.play("finesseError")
					end
					count=0
				end
			end
		end
		if needDraw then
			gc_discard()
			gc.clear(BGcolor)
			gc_setColor(1,1,1)
			gc_push("transform")
			gc.replaceTransform(xOy)
			gc_draw(errScrShot,100,365,nil,512/errScrShot:getWidth(),288/errScrShot:getHeight())
			setFont(100)gc_print(":(",100,40,0,1.2)
			setFont(40)gc_printf(text.errorMsg,100,200,SCR.w0-100)
			setFont(20)
			gc_print(SYSTEM.."-"..VERSION_NAME,100,660)
			gc_print("scene:"..SCN.cur,400,660)
			gc_printf(err[1],626,360,1260-626)
			gc_print("TRACEBACK",626,426)
			for i=4,#err-2 do
				gc_print(err[i],626,370+20*i)
			end
			gc_pop()
			gc_present()
			needDraw=false
		end
		love.timer.sleep(.26)
	end
end
local WSnames={"app","chat","play","stream"}
local WScolor={
	{1,0,0,.26},
	{0,.7,1,.26},
	{0,1,0,.26},
	{1,1,0,.26}
}
local devColor={
	COLOR.white,
	COLOR.lMagenta,
	COLOR.lGreen,
	COLOR.lBlue,
}
love.draw,love.update=nil--remove default draw/update
function love.run()
	local SCN=SCN
	local SETTING=SETTING

	local TIME=TIME
	local STEP,WAIT=love.timer.step,love.timer.sleep
	local FPS=love.timer.getFPS
	local MINI=love.window.isMinimized
	local PUMP,POLL=love.event.pump,love.event.poll

	local frameTimeList={}

	local lastFrame=TIME()
	local lastFreshPow=lastFrame
	local FCT=0--Framedraw counter, from 0~99

	love.resize(gc.getWidth(),gc.getHeight())

	--Scene Launch
	SCN.init(SETTING.appLock and"calculator"or"load")

	return function()
		local _

		local t=TIME()
		local dt=t-lastFrame
		lastFrame=t

		--EVENT
		PUMP()
		for N,a,b,c,d,e in POLL()do
			if love[N]then
				love[N](a,b,c,d,e)
			elseif N=="quit"then
				destroyPlayers()
				return true
			end
		end

		--UPDATE
		STEP()
		TASK.update()
		VOC.update()
		BG.update(dt)
		SYSFX.update(dt)
		TEXT.update()
		if SCN.update then SCN.update(dt)end--Scene Updater
		if SCN.swapping then SCN.swapUpdate()end--Scene swapping animation
		WIDGET.update()--Widgets animation
		LOG.update()

		--DRAW
		if not MINI()then
			FCT=FCT+SETTING.frameMul
			if FCT>=100 then
				FCT=FCT-100

				--Draw background
				BG.draw()

				gc_push("transform")
					gc.replaceTransform(xOy)

					--Draw scene contents
					if SCN.draw then SCN.draw()end

					--Draw widgets
					WIDGET.draw()

					--Draw cursor
					if mouseShow then
						local R=int((t+1)/2)%7+1
						_=SKIN.libColor[SETTING.skin[R]]
						gc_setColor(_[1],_[2],_[3],min(abs(1-t%2),.3))
						_=spinCenters[R][0]
						gc_draw(TEXTURE.miniBlock[R],mx,my,t%3.14159265359*4,16,16,_[2]+.5,#BLOCKS[R][0]-_[1]-.5)
						gc_setColor(1,1,1)
						gc_draw(TEXTURE.cursor,mx,my,nil,nil,nil,6,6)
					end
					SYSFX.draw()
					TEXT.draw()
				gc_pop()

				--Draw power info.
				gc_setColor(1,1,1)
				if SETTING.powerInfo then
					gc_draw(infoCanvas,SCR.safeX,0,0,SCR.k)
				end

				--Draw scene swapping animation
				if SCN.swapping then
					_=SCN.stat
					_.draw(_.time)
				end

				--Draw network working status
				gc_push("transform")
				gc.translate(SCR.w,0)
				gc.scale(SCR.k)
				for i=1,4 do
					local status=WS.status(WSnames[i])
					gc_setColor(WScolor[i])
					gc_rectangle("fill",0,20*i,-20,-20)
					if status=="dead"then
						gc_setColor(.8,.8,.8)
						gc_draw(TEXTURE.ws_dead,-20,20*i-20)
					elseif status=="connecting"then
						gc_setColor(.8,.8,.8,.5+.3*sin(t*6.26))
						gc_draw(TEXTURE.ws_connecting,-20,20*i-20)
					elseif status=="running"then
						gc_setColor(.8,.8,.8)
						gc_draw(TEXTURE.ws_running,-20,20*i-20)
					end
				end
				gc_pop()

				--Draw FPS
				gc_setColor(1,1,1)
				setFont(15)
				_=SCR.h
				gc_print(FPS(),SCR.safeX+5,_-20)

				--Debug info.
				if devMode then
					gc_setColor(devColor[devMode])
					gc_print("MEM     "..gcinfo(),SCR.safeX+5,_-40)
					gc_print("Lines    "..FREEROW.getCount(),SCR.safeX+5,_-60)
					gc_print("Cursor  "..int(mx+.5).." "..int(my+.5),SCR.safeX+5,_-80)
					gc_print("Voices  "..VOC.getQueueCount(),SCR.safeX+5,_-100)
					gc_print("Tasks   "..TASK.getCount(),SCR.safeX+5,_-120)
					ins(frameTimeList,1,dt)rem(frameTimeList,126)
					gc_setColor(1,1,1,.3)
					for i=1,#frameTimeList do
						gc_rectangle("fill",150+2*i,_-20,2,-frameTimeList[i]*4000)
					end
					if devMode==3 then WAIT(.1)
					elseif devMode==4 then WAIT(.5)
					end
				end
				LOG.draw()

				gc_present()
				gc_discard()--SPEED UPUPUP!
			end
		end

		--Fresh power info.
		if t-lastFreshPow>2.6 then
			if SETTING.powerInfo and LOADED then
				updatePowerInfo()
				lastFreshPow=t
			end
			if gc.getWidth()~=SCR.w then
				love.resize(gc.getWidth(),gc.getHeight())
			end
		end

		--Keep 60fps
		_=TIME()-lastFrame
		if _<.016 then WAIT(.016-_)end
		while TIME()-lastFrame<1/60-5e-6 do WAIT(0)end
	end
end