Techmino/parts/scenes/load.lua

local gc=love.graphics

local int,sin=math.floor,math.sin

local scene={}

local blackTime,openTime
local shadePhase1,shadePhase2
local progress=0
local studioLogo--Studio logo text object
local logoColor1,logoColor2
local skip

local loadingThread=coroutine.create(function()
	for _=1,VOC.getCount()do
		VOC.loadOne()
		if _%3==0 then coroutine.yield()end
	end

	progress=1
	for i=1,BGM.getCount()do
		BGM.loadOne()
		if i%2==0 then coroutine.yield()end
	end

	progress=2
	for i=1,SFX.getCount()do
		SFX.loadOne()
		if i%2==0 then coroutine.yield()end
	end

	progress=3
	for i=1,IMG.getCount()do
		IMG.loadOne()
		if i%2==0 then coroutine.yield()end
	end

	progress=4
	for i=1,SKIN.getCount()do
		SKIN.loadOne()
		if i%2==0 then coroutine.yield()end
	end

	progress=5
	for i=1,17 do
		getFont(15+5*i)
		if i%3==0 then coroutine.yield()end
	end

	progress=6
	for i=1,#MODES do
		local m=MODES[i]--Mode template
		local M=require("parts/modes/"..m.name)--Mode file
		MODES[m.name],MODES[i]=M
		for k,v in next,m do
			M[k]=v
		end
		M.records=FILE.load("record/"..m.name..".rec")or M.score and{}
		-- M.icon=gc.newImage("media/image/modeIcon/"..m.icon..".png")
		-- M.icon=gc.newImage("media/image/modeIcon/custom.png")
		if i%5==0 then coroutine.yield()end
	end

	progress=7
	SKIN.change(SETTING.skinSet)
	if newVersionLaunch then--Delete old ranks & Unlock modes which should be unlocked
		for name,rank in next,RANKS do
			local M=MODES[name]
			if type(rank)~="number"then
				RANKS[name]=nil
			elseif M and M.unlock and rank>0 then
				for _,unlockName in next,M.unlock do
					if not RANKS[unlockName]then
						RANKS[unlockName]=0
					end
				end
			end
			if not(M and M.score)then
				RANKS[name]=nil
			end
		end
		FILE.save(RANKS,"conf/unlock","q")
	end

	DAILYLAUNCH=freshDate("q")
	if DAILYLAUNCH then
		logoColor1=COLOR.sea
		logoColor2=COLOR.lSea
	else
		local r=math.random()*6.2832
		logoColor1={COLOR.rainbow(r)}
		logoColor2={COLOR.rainbow_light(r)}
	end
	STAT.run=STAT.run+1
	LOADED=true
	--[[TODO
		WS.send("user",json.encode{
			id=USER.id,
			authToken=USER.authToken,
		})
	]]
	if FESTIVAL=="Xmas"then
		LOG.print("==============",COLOR.red)
		LOG.print("Merry Christmas!",COLOR.white)
		LOG.print("==============",COLOR.red)
	elseif FESTIVAL=="sprFes"then
		LOG.print(" ★☆☆★",COLOR.red)
		LOG.print("新年快乐!",COLOR.white)
		LOG.print(" ★☆☆★",COLOR.red)
	end
	while true do
		if math.random()<.26 then
			progress=progress+1
		end
		if progress==25 then
			loadingThread=false
			SFX.play("welcome_sfx")
			VOC.play("welcome_voc")
			return
		end
		coroutine.yield()
	end
end)

function scene.sceneInit()
	studioLogo=gc.newText(getFont(80),"26F Studio")
	blackTime=1
	openTime=0
	shadePhase1=6.26*math.random()
	shadePhase2=6.26*math.random()
	skip=0--Skip time
end
function scene.sceneBack()
	love.event.quit()
end

function scene.keyDown(k)
	if k=="escape"then
		SCN.back()
	elseif k=="s"then
		skip=999
	else
		skip=skip+1
	end
end
function scene.mouseDown()
	scene.keyDown()
end
function scene.touchDown()
	scene.keyDown()
end
function scene.update(dt)
	shadePhase1=shadePhase1+dt*2*(3.26-openTime)
	shadePhase2=shadePhase2+dt*3*(3.26-openTime)
	if blackTime>0 then
		blackTime=blackTime-dt
	end
	if progress<25 then
		local p=progress
		::again::
		if loadingThread then
			coroutine.resume(loadingThread)
		else
			return
		end
		if skip>0 then
			if progress==p then
				goto again
			else
				skip=skip-1
			end
		end
	else
		openTime=openTime+dt
		if skip>0 then
			openTime=openTime+.26
			skip=skip-1
		end
		if openTime>=3.26 then
			openTime=3.26
			SCN.swapTo("intro")
		end
	end
end

function scene.draw()
	--Logo
	if progress==25 then
		gc.push("transform")
		--Cool camera
		gc.translate(640,360)
		gc.rotate(.2/openTime)
		gc.scale(1.2+.5/openTime)

		--Logo layer 1
		gc.setColor(logoColor1)
		mDraw(studioLogo,0,(5+(3.26-openTime))*sin(shadePhase1))
		mDraw(studioLogo,(7+(3.26-openTime))*sin(shadePhase2),0)

		--Logo layer 2
		gc.setColor(logoColor2)
		mDraw(studioLogo,-2,2)
		mDraw(studioLogo,-2,-2)
		mDraw(studioLogo,2,2)
		mDraw(studioLogo,2,-2)

		--Logo layer 3
		gc.setColor(.2,.2,.2)
		mDraw(studioLogo,0,0)
		gc.pop()

		--Cool light
		if openTime>.3 and openTime<1.6 then
			local w=(1.6-openTime)/1.3
			gc.setColor(1,1,1,w^2)
			gc.rectangle("fill",340,360*w^2,600,720*(1-w^2))
		end
	end

	--Side coverer
	gc.setColor(.5,.5,.5)
	gc.rectangle("fill",340,0,-340,720)
	gc.rectangle("fill",940,0,340,720)

	--Floor info frame
	gc.setColor(.1,.1,.1)
	gc.rectangle("fill",1110-80,25,160,100)
	gc.setColor(.7,.7,.7)
	gc.setLineWidth(4)
	gc.rectangle("line",1110-80,25,160,100)

	--Floor info
	local d1=(progress+1)%10
	local d2=int((progress+1)/10)
	gc.setColor(.6,.6,.6)
	gc.draw(TEXTURE.pixelNum[d2],1060-3,40-3,nil,14)
	gc.draw(TEXTURE.pixelNum[d1],1120-3,40-3,nil,14)
	gc.setColor(1,1,1)
	gc.draw(TEXTURE.pixelNum[d2],1060,40,nil,14)
	gc.draw(TEXTURE.pixelNum[d1],1120,40,nil,14)

	--Elevator buttons
	gc.setLineWidth(3)
	setFont(25)
	for i=0,25 do
		local x,y=1050+60*int(i/9),180+i%9*60
		gc.setColor(COLOR[i==progress and"dOrange"or"dGrey"])
		gc.circle("fill",x,y,23)
		gc.setColor(.16,.16,.16)
		gc.circle("line",x,y,23)
		gc.setColor(1,1,1)
		mStr(i+1,x,y-18)
	end

	--Elevator door
	for i=1,0,-1 do
		gc.setColor(.3,.3,.3)
		local dx=300*(1-math.min((openTime-i*.1)/1.26-1,0)^2)
		gc.rectangle("fill",340,0,300-dx,720)
		gc.rectangle("fill",940,0,dx-300,720)

		gc.setColor(.16,.16,.16)
		gc.setLineWidth(4)
		gc.line(640-dx,0,640-dx,720)
		gc.line(640+dx,0,640+dx,720)
	end

	--Doorframe
	gc.setColor(0,0,0)
	gc.line(340,0,340,720)
	gc.line(940,0,940,720)

	--Black screen
	if blackTime>0 then
		gc.push("transform")
		gc.origin()
		gc.setColor(0,0,0,blackTime)
		gc.rectangle("fill",0,0,SCR.w,SCR.h)
		gc.pop()
	end
end

return scene