Techmino/parts/netPlayer.lua

local gc=love.graphics
local rnd,min=math.random,math.min
local sin,cos=math.sin,math.cos


local ins,rem=table.insert,table.remove

local posLists={
	--1~5
	(function()
		local L={}
		for i=1,5 do
			L[i]={x=70,y=20+90*i,w=1000,h=80}
		end
		return L
	end)(),
	--6~17
	(function()
		local L={}
		for i=1,10 do
			L[i]={x=40,y=60+55*i,w=520,h=50}
		end
		for i=1,7 do
			L[10+i]={x=600,y=60+55*i,w=520,h=50}
		end
		return L
	end)(),
	--18~31
	(function()
		local L={}
		for i=1,11 do L[i]=		{x=40,y=65+50*i,w=330,h=45}end
		for i=1,11 do L[11+i]=	{x=400,y=65+50*i,w=330,h=45}end
		for i=1,9 do L[22+i]=	{x=760,y=65+50*i,w=330,h=45}end
		return L
	end)(),
	--32~49
	(function()
		local L={}
		for i=1,10 do L[i]=		{x=30,y=60+50*i,w=200,h=45}end
		for i=1,10 do L[10+i]=	{x=240,y=60+50*i,w=200,h=45}end
		for i=1,10 do L[20+i]=	{x=450,y=60+50*i,w=200,h=45}end
		for i=1,10 do L[30+i]=	{x=660,y=60+50*i,w=200,h=45}end
		for i=1,9 do L[40+i]=	{x=870,y=60+50*i,w=200,h=45}end
		return L
	end)(),
	--50~99
	(function()
		local L={}
		for i=1,11 do L[i]=		{x=30,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+11]=	{x=135,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+22]=	{x=240,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+33]=	{x=345,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+44]=	{x=450,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+55]=	{x=555,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+66]=	{x=660,y=60+50*i,w=100,h=45}end
		for i=1,11 do L[i+77]=	{x=765,y=60+50*i,w=100,h=45}end
		for i=1,7 do L[i+88]=	{x=870,y=60+50*i,w=100,h=45}end
		for i=1,4 do L[i+95]=	{x=975,y=60+50*i,w=100,h=45}end
		return L
	end)(),
}
local posList

local netPLY={list={}}
local PLY=netPLY.list

local function getPLY(uid)
	for i=1,#PLY do
		if PLY[i].uid==uid then
			return PLY[i]
		end
	end
end
local function freshPosList()
	if #PLY<=5 then
		posList=posLists[1]
	elseif #PLY<=17 then
		posList=posLists[2]
	elseif #PLY<=31 then
		posList=posLists[3]
	elseif #PLY<=49 then
		posList=posLists[4]
	else--if #PLY<=99 then
		posList=posLists[5]
	end
end

function netPLY.clear()for _=1,netPLY.getCount()do rem(PLY)end end
function netPLY.add(p)
	p.connected=false
	ins(PLY,p.uid==USER.uid and 1 or #PLY+1,p)
	local a=rnd()*6.2832
	p.x,p.y,p.w,p.h=640+2600*cos(a),360+2600*sin(a),47,47
	freshPosList()
end
function netPLY.freshPos()
	freshPosList()
end

function netPLY.getCount()return #PLY end
function netPLY.rawgetPLY(i)return PLY[i]end
function netPLY.getUsername(uid)return getPLY(uid).username end
function netPLY.getSID(uid)return getPLY(uid).sid end
function netPLY.getSelfReady()return PLY[1].ready end
function netPLY.setPlayerObj(ply,p)ply.p=p end
function netPLY.setConf(uid,config)getPLY(uid).config=config end
function netPLY.setReady(uid,ready)
	for i,p in next,PLY do
		if p.uid==uid then
			if p.ready~=ready then
				p.ready=ready
				if not ready then NET.allReady=false end
				SFX.play('spin_0',.6)
				if i==1 then
					NET.unlock('ready')
				elseif not PLY[1].ready then
					for j=2,#PLY do
						if not PLY[j].ready then
							return
						end
					end
					SFX.play('blip_2',.5)
				end
			end
			return
		end
	end
end
function netPLY.setConnect(uid)
	for _,p in next,PLY do
		if p.uid==uid then
			p.connected=true
			return
		end
	end
end
function netPLY.freshStreamConn(list)
	for _,p in next,list do
		getPLY(p.uid).connected=true
	end
end
function netPLY.resetState()
	for i=1,#PLY do
		PLY[i].ready=false
		PLY[i].connected=false
	end
end

local selP,mouseX,mouseY
function netPLY.mouseMove(x,y)
	selP=nil
	for i=1,#PLY do
		local p=PLY[i]
		if x>p.x and y>p.y and x<p.x+p.w and y<p.y+p.h then
			mouseX,mouseY=x,y
			selP=p
			break
		end
	end
end

function netPLY.update()
	for i=1,#PLY do
		local p=PLY[i]
		local t=posList[i]
		p.x=p.x*.9+t.x*.1
		p.y=p.y*.9+t.y*.1
		p.w=p.w*.9+t.w*.1
		p.h=p.h*.9+t.h*.1
	end
end

local stencilW,stencilH
local function plyStencil()
	gc.rectangle('fill',0,0,stencilW,stencilH)
end
function netPLY.draw()
	for i=1,#PLY do
		local p=PLY[i]
		gc.translate(p.x,p.y)
			--Rectangle
			gc.setColor(COLOR[p.connected and"N"or p.ready and'A'or'Z'])
			gc.setLineWidth(2)
			gc.rectangle('line',0,0,p.w,p.h)

			--Stencil
			stencilW,stencilH=p.w,p.h
			gc.setStencilTest('equal',1)
				gc.stencil(plyStencil,'replace',1)
				gc.setColor(1,1,1)

				--Avatar
				local avatarSize=min(p.h,50)/128*.9
				gc.draw(USERS.getAvatar(p.uid),2,2,nil,avatarSize)

				--UID & Username
				if p.h>=47 then
					setFont(40)
					gc.print("#"..p.uid,50,-5)
					gc.print(p.username,210,-5)
				else
					setFont(159)
					gc.print("#"..p.uid,p.h,-2)
					setFont(30)
					gc.print(p.username,p.h,8)
				end
			gc.setStencilTest()
		gc.translate(-p.x,-p.y)
	end
	if selP then
		gc.translate(min(mouseX,880),min(mouseY,460))
			gc.setColor(.2,.2,.2,.7)
			gc.rectangle('fill',0,0,400,260)
			gc.setColor(1,1,1)
			gc.setLineWidth(2)
			gc.rectangle('line',0,0,400,260)

			gc.draw(USERS.getAvatar(selP.uid),5,5,nil,.5)
			setFont(30)
			gc.print("#"..selP.uid,75,0)
			setFont(35)
			gc.print(selP.username,75,25)
		gc.translate(-min(mouseX,880),-min(mouseY,460))
	end
end

return netPLY