Techmino/parts/scenes/net_rooms.lua

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

local int,max,min=math.floor,math.max,math.min

local NET=NET
local scrollPos,selected
local fetchTimer
local lastCreateRoomTime=0

local function fetchRoom()
	fetchTimer=5
	NET.fetchRoom()
end

local scene={}

function scene.sceneInit()
	BG.set()
	scrollPos=0
	selected=1
	fetchRoom()
end

local floatWheel=0
function scene.wheelMoved(_,y)
	if y>0 then
		if floatWheel<0 then floatWheel=0 end
		floatWheel=floatWheel+y^1.2
	elseif y<0 then
		if floatWheel>0 then floatWheel=0 end
		floatWheel=floatWheel-(-y)^1.2
	end
	while floatWheel>=1 do
		scrollPos=max(0,min(scrollPos-1,#NET.roomList-10))
		floatWheel=floatWheel-1
	end
	while floatWheel<=-1 do
		scrollPos=max(0,min(scrollPos+1,#NET.roomList-10))
		floatWheel=floatWheel+1
	end
end
function scene.keyDown(k)
	if k=="r"then
		if fetchTimer<=3.26 then
			fetchRoom()
		end
	elseif k=="m"or k=="n"then
		if TIME()-lastCreateRoomTime>6.26 then
			NET.createRoom(
				k=="m"and"classic"or
				tonumber(USER.uid)<100 and(
					kb.isDown("q")and"r49"or
					kb.isDown("w")and"r99"or
					kb.isDown("e")and"unlimited"
				)or"solo",
				(USERS.getUsername(USER.uid)or"???").."'s room"
			)
			lastCreateRoomTime=TIME()
		else
			LOG.print(text.createRoomTooFast,"warn")
		end
	elseif k=="escape"then
		SCN.back()
	elseif #NET.roomList>0 then
		if k=="down"then
			if selected<#NET.roomList then
				selected=selected+1
				scrollPos=max(selected-10,min(scrollPos,selected-1))
			end
		elseif k=="up"then
			if selected>1 then
				selected=selected-1
				scrollPos=max(selected-10,min(scrollPos,selected-1))
			end
		elseif k=="return"then
			if NET.getlock("fetchRoom")or not NET.roomList[selected]then return end
			if NET.roomList[selected].private then
				LOG.print("Can't enter private room now")
				return
			end
			NET.enterRoom(NET.roomList[selected].rid)--,password
		end
	end
end

function scene.mouseMove(_,_,_,dy)
	if ms.isDown(1)then
		scene.wheelMoved(0,dy/30)
	end
end
function scene.mouseClick(x,y)
	if x>50 and x<1230 then
		y=int((y-70)/40)
		if y>=1 and y<=10 then
			print(y+scrollPos)
			selected=y+scrollPos
		end
	end
end
function scene.touchMove(_,_,_,dy)
	scene.wheelMoved(0,dy/30)
end
scene.touchClick=scene.mouseClick

function scene.update(dt)
	if not NET.getlock("fetchRoom")then
		fetchTimer=fetchTimer-dt
		if fetchTimer<=0 then
			fetchRoom()
		end
	end
	if #NET.roomList>0 and not NET.roomList[selected]then
		selected=#NET.roomList
	end
end

function scene.draw()
	--Fetching timer
	gc.setColor(1,1,1,.12)
	gc.arc("fill","pie",300,620,60,-1.5708,-1.5708-1.2566*fetchTimer)

	--Room list
	gc.setColor(1,1,1)
	gc.setLineWidth(2)
	gc.rectangle("line",50,110,1180,400)
	if #NET.roomList>0 then
		setFont(35)
		for i=1,math.min(10,#NET.roomList-scrollPos)do
			local R=NET.roomList[scrollPos+i]
			if scrollPos+i==selected then
				gc.setColor(1,1,1,.3)
				gc.rectangle("fill",50,70+40*i,1180,40)
			end
			if R.private then
				gc.setColor(1,1,1)
				gc.draw(IMG.lock,59,75+40*i)
			end
			if R.start then
				gc.setColor(0,1,0)
				gc.print(text.started,800,66+40*i)
			end
			gc.setColor(.9,.9,1)
			gc.print(scrollPos+i,95,66+40*i)
			gc.setColor(1,1,.7)
			gc.print(R.name,250,66+40*i)
			gc.setColor(1,1,1)
			gc.printf(R.type,550,66+40*i,500,"right")
			gc.print(R.count.."/"..R.capacity,1100,66+40*i)
		end
	end

	--Profile
	drawSelfProfile()
end

scene.widgetList={
	WIDGET.newText{name="refreshing",x=640,y=255,font=45,hide=function()return not NET.getlock("fetchRoom")end},
	WIDGET.newText{name="noRoom",	x=640,y=260,font=40,hide=function()return #NET.roomList>0 or NET.getlock("fetchRoom")end},
	WIDGET.newKey{name="refresh",	x=300,y=620,w=140,h=140,font=35,code=fetchRoom,hide=function()return fetchTimer>3.26 end},
	WIDGET.newKey{name="new",		x=500,y=620,w=140,h=140,font=20,code=pressKey"n"},
	WIDGET.newKey{name="new2",		x=700,y=620,w=140,h=140,font=20,code=pressKey"m"},
	WIDGET.newKey{name="join",		x=900,y=620,w=140,h=140,font=40,code=pressKey"return",hide=function()return #NET.roomList==0 end},
	WIDGET.newButton{name="back",	x=1140,y=640,w=170,h=80,font=40,code=backScene},
}

return scene