local tm,gc=love.timer,love.graphics
local kb,data=love.keyboard,love.data
local int,abs,rnd=math.floor,math.abs,math.random
local max,min=math.max,math.min
local sub,find=string.sub,string.find
local format,char,byte=string.format,string.char,string.byte
local ins,rem=table.insert,table.remove

function toTime(s)
	if s<60 then
		return format("%.3fs",s)
	elseif s<3600 then
		return format("%d:%.2f",int(s/60),s%60)
	else
		local h=int(s/3600)
		return format("%d:%d:%.2f",h,int(s/60%60),s%60)
	end
end
function mStr(s,x,y)
	gc.printf(s,x-320,y,640,"center")
end
function mText(s,x,y)
	gc.draw(s,x-s:getWidth()*.5,y)
end
function mDraw(s,x,y)
	gc.draw(s,x-s:getWidth()*.5,y-s:getHeight()*.5)
end
function destroyPlayers()
	for i=#players,1,-1 do
		local P=players[i]
		if P.canvas then P.canvas:release()end
		while P.field[1]do
			freeRow.discard(rem(P.field))
			freeRow.discard(rem(P.visTime))
		end
		if P.AI_mode=="CC"then
			BOT.free(P.bot_opt)
			BOT.free(P.bot_wei)
			BOT.destroy(P.AI_bot)
			P.AI_mode=nil
		end
		players[i]=nil
	end
	for i=#players.alive,1,-1 do
		players.alive[i]=nil
	end
	players.human=0
	collectgarbage()
end
--Single-usage funcs

function restoreVirtualKey()
	for i=1,#VK_org do
		local B,O=virtualkey[i],VK_org[i]
		B.ava=O.ava
		B.x=O.x
		B.y=O.y
		B.r=O.r
		B.isDown=false
		B.pressTime=0
	end
	if not modeEnv.Fkey then
		virtualkey[9].ava=false
	end
end
function copyBoard()
	local str=""
	local H=0
	for y=20,1,-1 do
		for x=1,10 do
			if preField[y][x]~=0 then
				H=y
				goto L
			end
		end
	end
	::L::
	for y=1,H do
		local S=""
		local L=preField[y]
		for x=1,10 do
			S=S..char(L[x]+1)
		end
		str=str..S
	end
	love.system.setClipboardText("Techmino sketchpad:"..data.encode("string","base64",data.compress("string","deflate",str)))
	TEXT.show(text.copySuccess,350,360,40,"appear",.5)
end
function pasteBoard()
	local str=love.system.getClipboardText()
	local fX,fY=1,1--*ptr for Field(r*10+(c-1))
	local _,Bid
	local p=find(str,":")--ptr*
	if p then str=sub(str,p+1)end
	_,str=pcall(data.decode,"string","base64",str)
	if not _ then goto ERROR end
	_,str=pcall(data.decompress,"string","deflate",str)
	if not _ then goto ERROR end
	p=1
	while true do
		_=byte(str,p)--1byte
		if not _ then
			if fX~=1 then goto ERROR
			else break
			end
		end--str end
		__=_%32-1--block id
		if __>17 then goto ERROR end--illegal blockid
		_=int(_/32)--mode id
		preField[fY][fX]=__
		if fX<10 then
			fX=fX+1
		else
			if fY==20 then break end
			fX=1;fY=fY+1
		end
		p=p+1
	end

	for y=fY+1,20 do
		for x=1,10 do
			preField[y][x]=0
		end
	end
	do return end
	::ERROR::TEXT.show(text.dataCorrupted,350,360,35,"flicker",.5)
end

function mergeStat(stat,delta)
	for k,v in next,delta do
		if type(v)=="table"then
			mergeStat(stat[k],v)
		else
			stat[k]=stat[k]+v
		end
	end
end
function randomTarget(P)
	if #players.alive>1 then
		local R
		repeat
			R=players.alive[rnd(#players.alive)]
		until R~=P
		return R
	end
end--return a random opponent for P
function freshMostDangerous()
	game.mostDangerous,game.secDangerous=nil
	local m,m2=0,0
	for i=1,#players.alive do
		local h=#players.alive[i].field
		if h>=m then
			game.mostDangerous,game.secDangerous=players.alive[i],game.mostDangerous
			m,m2=h,m
		elseif h>=m2 then
			game.secDangerous=players.alive[i]
			m2=h
		end
	end
end
function freshMostBadge()
	game.mostBadge,game.secBadge=nil
	local m,m2=0,0
	for i=1,#players.alive do
		local h=players.alive[i].badge
		if h>=m then
			game.mostBadge,game.secBadge=players.alive[i],game.mostBadge
			m,m2=h,m
		elseif h>=m2 then
			game.secBadge=players.alive[i]
			m2=h
		end
	end
end
function royaleLevelup()
	game.stage=game.stage+1
	local spd
	TEXT.show(text.royale_remain(#players.alive),640,200,40,"beat",.3)
	if game.stage==2 then
		spd=30
	elseif game.stage==3 then
		spd=15
		game.garbageSpeed=.6
		if players[1].alive then BGM.play("cruelty")end
	elseif game.stage==4 then
		spd=10
		local _=players.alive
		for i=1,#_ do
			_[i].gameEnv.pushSpeed=3
		end
	elseif game.stage==5 then
		spd=5
		game.garbageSpeed=1
	elseif game.stage==6 then
		spd=3
		if players[1].alive then BGM.play("final")end
	end
	for i=1,#players.alive do
		players.alive[i].gameEnv.drop=spd
	end
	if curMode.lv==3 then
		for i=1,#players.alive do
			local P=players.alive[i]
			P.gameEnv.drop=int(P.gameEnv.drop*.3)
			if P.gameEnv.drop==0 then
				P.curY=P.y_img
				P.gameEnv._20G=true
				if P.AI_mode=="CC"then CC_switch20G(P)end--little cheating,never mind
			end
		end
	end
end
function pauseGame()
	if not SCN.swapping then
		restartCount=0--Avoid strange darkness
		if not game.result then
			game.pauseCount=game.pauseCount+1
		end
		for i=1,#players do
			local l=players[i].keyPressing
			for j=1,#l do
				if l[j]then
					players[i]:releaseKey(j)
				end
			end
		end
		SCN.swapTo("pause","none")
	end
end
function resumeGame()
	SCN.swapTo("play","none")
end
function loadGame(M)
	--rec={}
	stat.lastPlay=M
	curMode=modes[M]
	local lang=setting.lang
	drawableText.modeName:set(text.modes[M][1])
	drawableText.levelName:set(text.modes[M][2])
	needResetGameData=true
	SCN.swapTo("play","fade_togame")
	SFX.play("enter")
end
function resetPartGameData()
	game={
		result=false,
		pauseTime=0,
		pauseCount=0,
		garbageSpeed=1,
	}
	frame=150-setting.reTime*15
	destroyPlayers()
	curMode.load()
	TEXT.clear()
	if modeEnv.task then
		for i=1,#players do
			TASK.new(modeEnv.task,players[i])
		end
	end
	if modeEnv.royaleMode then
		for i=1,#players do
			players[i]:changeAtk(randomTarget(players[i]))
		end
	end
	BG.set(modeEnv.bg)
	BGM.play(modeEnv.bgm)
	if modeEnv.royaleMode then
		for i=1,#players do
			players[i]:changeAtk(randomTarget(players[i]))
		end
		game.stage=1
		game.garbageSpeed=.3
	end
	restoreVirtualKey()
	collectgarbage()
end
function resetGameData()
	game={
		result=false,
		pauseTime=0,--Time paused
		pauseCount=0,--Pausing count
		garbageSpeed=1,--garbage timing speed
	}
	frame=150-setting.reTime*15
	destroyPlayers()
	modeEnv=curMode.env
	curMode.load()--bg/bgm need redefine in custom,so up here
	if modeEnv.task then
		for i=1,#players do
			TASK.new(modeEnv.task,players[i])
		end
	end
	BG.set(modeEnv.bg)
	BGM.play(modeEnv.bgm)

	TEXT.clear()
	FX_badge={}
	FX_attack={}
	if modeEnv.royaleMode then
		for i=1,#players do
			players[i]:changeAtk(randomTarget(players[i]))
		end
		game.stage=1
		game.garbageSpeed=.3
	end
	restoreVirtualKey()
	stat.game=stat.game+1
	freeRow.reset(30*#players)
	SFX.play("ready")
	collectgarbage()
end
function gameStart()
	SFX.play("start")
	for P=1,#players do
		P=players[P]
		P:popNext()
		P.timing=true
		P.control=true
	end
end