Beiträge von Sc64nt™

local playerListLabels = {}
local playerListFactionMembersLabel = {}
local playersOnline = {}
local playersOnlineData = {}


local curPlayerListPosition = 1
local playerCount = 0
local playerListWidth = 584
local playerListHeight = 311
local maxPlayersInCurList = 17
local maxPlayers = 40


local playersToScrollPerButton = 10


function recieveServerSlotCount ( max )


	maxPlayers = max
end
addEvent ( "recieveServerSlotCount", true )
addEventHandler ( "recieveServerSlotCount", getRootElement(), recieveServerSlotCount )


local radioUpState, radioDownState, weaponUpState, weaponDownState


function fillPlayerListOnStart ()


	local players = getElementsByType ( "player" )
	for key, index in pairs ( players ) do
		playerCount = playerCount + 1
		playersOnlineData[index] = playerCount
		playersOnline[playerCount] = index
	end
end
fillPlayerListOnStart ()
function clientPlayerListDisconnect ()


	local i = playersOnlineData[source]
	playersOnline[i] = nil
	playerCount = playerCount - 1
end
addEventHandler ( "onClientPlayerQuit", getRootElement(), clientPlayerListDisconnect )
function clientPlayerListConnect ()


	local i
	for k = 1, maxPlayers do
		if not playersOnline[k] then
			i = k
			break
		end
	end
	playerCount = playerCount + 1
	playersOnlineData[source] = i
	playersOnline[i] = source
end
addEventHandler ( "onClientPlayerJoin", getRootElement(), clientPlayerListConnect )


function showPlayerList ()


	if gImage["playerList"] then
		guiSetVisible ( gImage["playerList"], true )
	else
		local label, img

		gImage["playerList"] = guiCreateStaticImage(screenwidth/2-playerListWidth/2,screenheight/2-playerListHeight/2,playerListWidth,playerListHeight,"images/colors/c_black.jpg",false)
		guiSetAlpha(gImage["playerList"],0.75)

		label = guiCreateLabel(12,9,51,23,"Name",false,gImage["playerList"])
		guiSetAlpha(label,1)
		guiLabelSetColor(label,255,255,255)
		guiLabelSetVerticalAlign(label,"top")
		guiLabelSetHorizontalAlign(label,"left",false)
		guiSetFont(label,"default-bold-small")
		img = guiCreateStaticImage(8,23,553,5,"images/colors/c_grey.jpg",false,gImage["playerList"])
		guiSetAlpha(img,0.7)
		label = guiCreateLabel(165,8,88,23,"Sozialer Status",false,gImage["playerList"])
		guiSetAlpha(label,1)
		guiLabelSetColor(label,255,255,255)
		guiLabelSetVerticalAlign(label,"top")
		guiLabelSetHorizontalAlign(label,"left",false)
		guiSetFont(label,"default-bold-small")
		label = guiCreateLabel(278,7,52,20,"Spielzeit",false,gImage["playerList"])
		guiSetAlpha(label,1)
		guiLabelSetColor(label,255,255,255)
		guiLabelSetVerticalAlign(label,"top")
		guiLabelSetHorizontalAlign(label,"left",false)
		guiSetFont(label,"default-bold-small")
		img = guiCreateStaticImage(151,28,3,268,"images/colors/c_grey.jpg",false,gImage["playerList"])
		guiSetAlpha(img,0.7)
		img = guiCreateStaticImage(265,28,3,268,"images/colors/c_grey.jpg",false,gImage["playerList"])
		guiSetAlpha(img,0.7)
		label = guiCreateLabel(346,8,62,16,"Telefonnr.",false,gImage["playerList"])
		guiSetAlpha(label,1)
		guiLabelSetColor(label,255,255,255)
		guiLabelSetVerticalAlign(label,"top")
		guiLabelSetHorizontalAlign(label,"left",false)
		guiSetFont(label,"default-bold-small")
		img = guiCreateStaticImage(333,28,3,268,"images/colors/c_grey.jpg",false,gImage["playerList"])
		guiSetAlpha(img,0.7)
		img = guiCreateStaticImage(413,28,3,268,"images/colors/c_grey.jpg",false,gImage["playerList"])
		guiSetAlpha(img,0.7)
		label = guiCreateLabel(439,8,35,15,"Ping",false,gImage["playerList"])
		guiSetAlpha(label,1)
		guiLabelSetColor(label,255,255,255)
		guiLabelSetVerticalAlign(label,"top")
		guiLabelSetHorizontalAlign(label,"left",false)
		guiSetFont(label,"default-bold-small")
		img = guiCreateStaticImage(483,28,3,268,"images/colors/c_grey.jpg",false,gImage["playerList"])
		guiSetAlpha(img,0.7)		
		label = guiCreateLabel(495,8,45,15,"Arbeit",false,gImage["playerList"])
		guiSetAlpha(label,1)
		guiLabelSetColor(label,255,255,255)
		guiLabelSetVerticalAlign(label,"top")
		guiLabelSetHorizontalAlign(label,"left",false)
		guiSetFont(label,"default-bold-small")


		gImage["playerListBarBG"] = guiCreateStaticImage(572,0,12,playerListHeight,"images/colors/c_white.jpg",false,gImage["playerList"])
		guiSetAlpha(gImage["playerListBarBG"],0.7)
		gImage["playerListBarPull"] = guiCreateStaticImage(0,17,12,33,"images/colors/c_black.jpg",false,gImage["playerListBarBG"])
		guiSetAlpha(gImage["playerListBarPull"],1)

		gLabel["playerListPlayers"] = guiCreateLabel(8,296,100,18,"0/"..maxPlayers.." Spieler",false,gImage["playerList"])
		guiSetAlpha(gLabel["playerListPlayers"],1)
		guiLabelSetColor(gLabel["playerListPlayers"],255,255,255)
		guiLabelSetVerticalAlign(gLabel["playerListPlayers"],"top")
		guiLabelSetHorizontalAlign(gLabel["playerListPlayers"],"left",false)
		guiSetFont(gLabel["playerListPlayers"],"default-bold-small")


		gLabel["playerListMaker"] = guiCreateLabel(396,296,262,18,"Local Server",false,gImage["playerList"])
		guiSetAlpha(gLabel["playerListMaker"],1)
		guiLabelSetColor(gLabel["playerListMaker"],255,255,255)
		guiLabelSetVerticalAlign(gLabel["playerListMaker"],"top")
		guiLabelSetHorizontalAlign(gLabel["playerListMaker"],"left",false)
		guiSetFont(gLabel["playerListMaker"],"default-bold-small")

		for i, index in pairs ( factionColors ) do
			if i > 0 then
				local r, g, b = factionColors[i][1], factionColors[i][2], factionColors[i][3]
				playerListFactionMembersLabel[i] = guiCreateLabel(8+75+(i)*20,296,20,18,"",false,gImage["playerList"])
				guiSetAlpha(playerListFactionMembersLabel[i],1)
				guiLabelSetColor(playerListFactionMembersLabel[i],r,g,b)
				guiLabelSetVerticalAlign(playerListFactionMembersLabel[i],"top")
				guiLabelSetHorizontalAlign(playerListFactionMembersLabel[i],"left",false)
				guiSetFont(playerListFactionMembersLabel[i],"default-bold-small")
			end
		end

		for i = 1, maxPlayersInCurList do
			playerListLabels[i] = {}
			playerListLabels[i][1] = guiCreateLabel(10,30 - 15 + 15 * i,141,16,"",false,gImage["playerList"])
			playerListLabels[i][2] = guiCreateLabel(155,30 - 15 + 15 * i,141,16,"",false,gImage["playerList"])
			playerListLabels[i][3] = guiCreateLabel(270,30 - 15 + 15 * i,141,16,"",false,gImage["playerList"])
			playerListLabels[i][4] = guiCreateLabel(338,30 - 15 + 15 * i,141,16,"",false,gImage["playerList"])
			playerListLabels[i][5] = guiCreateLabel(418,30 - 15 + 15 * i,141,16,"",false,gImage["playerList"])
			playerListLabels[i][6] = guiCreateLabel(488,30 - 15 + 15 * i,141,16,"",false,gImage["playerList"])

			for k = 1, 6 do
				guiSetAlpha(playerListLabels[i][k],1)
				guiLabelSetColor(playerListLabels[i][k],255,255,255)
				guiLabelSetVerticalAlign(playerListLabels[i][k],"top")
				guiLabelSetHorizontalAlign(playerListLabels[i][k],"left",false)
				guiSetFont(playerListLabels[i][k],"default-bold-small")
			end
			guiLabelSetColor ( playerListLabels[i][2], 200, 200, 0 )
		end
	end
	updatePlayerList ()
end


function updateFactionPlayerCount ()


	factionCounter = {}
	local players = getElementsByType ( "player" )
	for key, index in pairs ( players ) do
		local i = getElementData ( index, "fraktion" )
		if i then
			if not factionCounter[i] then
				factionCounter[i] = {}
			end
			factionCounter[i][index] = true
		end
	end
	for i, index in pairs ( factionColors ) do
		if playerListFactionMembersLabel[i] then
			local length = tableLength ( factionCounter[i] )
			if length > 0 then
				guiSetText ( playerListFactionMembersLabel[i], length )
			else
				guiSetText ( playerListFactionMembersLabel[i], "" )
			end	
		end
	end
end


function tableLength ( table )


	local i = 0
	if table then
		for _, _ in pairs ( table ) do
			i = i + 1
		end
	end
	return i
end


function updatePlayerList ()


	if guiGetVisible ( gImage["playerList"] ) then
		updateFactionPlayerCount ()
		guiSetText ( gLabel["playerListPlayers"], playerCount.."/"..maxPlayers.." Spieler" )
		reFillPlayerList ()
		playerListUpdateTimer = setTimer ( updatePlayerList, 1000, 1 )
	end
end


function reAdjustPlayerListScollBar ()


	pxPerPlayer = playerListHeight / ( playerCount )
	barSize = maxPlayersInCurList / playerCount * playerListHeight
	if barSize > playerListHeight then
		barSize = 1
		barYPos = 0
	else
		barYPos = ( curPlayerListPosition - 1 ) * ( pxPerPlayer )
	end
	guiSetSize ( gImage["playerListBarPull"], 17, barSize, false )
	guiSetPosition ( gImage["playerListBarPull"], 0, barYPos, false )
end


function reFillPlayerList ()


	for key, index in pairs ( playerListLabels ) do
		for i = 1, 6 do
			guiSetText ( playerListLabels[key][i], "" )
		end
	end
	local i = 0
	local k = 0
	local name, rang, playingtime, ping, job, r, g, b
	for z = -2, factioncount do
		for key, index in pairs ( playersOnline ) do
			if ( z == -2 and not getElementData ( index, "loggedin" ) ) or ( z == -1 and getElementData ( index, "loggedin" ) == 0 ) or getElementData ( index, "fraktion" ) == z then
				i = i + 1
				if k > maxPlayersInCurList then
					break
				end
				if i >= curPlayerListPosition then
					k = k + 1
					name = getPlayerName ( index )
					rang = getElementData ( index, "socialState" )
					ping = tonumber ( getPlayerPing ( index ) )
					job = laGetElementData ( index, "job" )
					if not rang then
						rang = "Verbindet...."
						nr = ""
						playingtime = ""
						job = ""
						r, g, b = 175, 175, 175
					else
						nr = getElementData ( index, "telenr" )
						local faction = getElementData ( index, "fraktion" )
						r, g, b = factionColors[faction][1], factionColors[faction][2], factionColors[faction][3]
						playingtime = getElementData ( index, "playingtime" )
						playingtime = math.floor ( playingtime / 60 )..":"..( playingtime - math.floor ( playingtime / 60 ) * 60 )
						job = laGetElementData ( index, "job" )
						if job == "gabelstapler" then
							job = "Gabelstapler"
						elseif job == "fischer" then
							job = "Fischer"
						elseif job == "airport" then
							job = "Flughafen"
						elseif job == "dealer" then
							job = "Drogendealer"
						elseif job == "taxifahrer" then
							job = "Taxifahrer"
						elseif job == "hotdog" then
							job = "Hotdog"
						elseif job == "streetclean" then
							job = "Reinigung"
						elseif job == "trucker" then
							job = "Trucker"
						elseif job == "bus" then
							job = "Bus"
						elseif job == "mechaniker" then
							job = "Mechaniker"
						elseif job == "lieferant" then
							job = "Lieferant"	
						elseif job == "infanterie" then
							job = "Infanterie"
						elseif job == "pionier" then
							job = "Pionier"
						elseif job == "marine" then
							job = "Marine"
						elseif job == "luftwaffe" then
							job = "Luftwaffe"
						elseif job == "artillerie" then
							job = "Artillerie"
						elseif job == "sniper" then
							job = "Scharfschuetze"
						elseif job == "none" then
							job = "Keine"
						elseif tonumber(job) == 0 then
							job = "Keine"
						else
							job = "Keine"
						end
					end
                	if tonumber(getElementData(player,"adminlevel")) >= 1 then
					sname = "[Team]"..name
				else
					sname = name
				end

					guiSetText ( playerListLabels[k][1], name )
					guiSetText ( playerListLabels[k][2], rang )
					guiSetText ( playerListLabels[k][3], playingtime )
					guiSetText ( playerListLabels[k][4], nr )
					guiSetText ( playerListLabels[k][5], ping )
					guiSetText ( playerListLabels[k][6], job )

					pr, pg, pb = getPingColor ( ping )
					guiLabelSetColor ( playerListLabels[k][1], r, g, b )
					guiLabelSetColor ( playerListLabels[k][5], pr, pg, pb )
				end
			end
		end
	end
end


function getPingColor ( ping )


	if ping <= 50 then
		return 0, 200, 0
	elseif ping <= 150 then
		return 200, 200, 0
	else
		return 200, 0, 0
	end
end


function playerListScrollDown ()


	if curPlayerListPosition < playerCount - maxPlayersInCurList + playersToScrollPerButton then
		curPlayerListPosition = curPlayerListPosition + playersToScrollPerButton
	else
		curPlayerListPosition = playerCount
	end
	reFillPlayerList ()
end
function playerListScrollUp ()


	if curPlayerListPosition > playersToScrollPerButton then
		curPlayerListPosition = curPlayerListPosition - playersToScrollPerButton
	else
		curPlayerListPosition = 1
	end
	reFillPlayerList ()
end


function playerListKeyPressed ( key, state )


	if state == "down" then
		radioUpState = isControlEnabled ( "radio_next" )
		radioDownState = isControlEnabled ( "radio_prelaus" )
		weaponUpState = isControlEnabled ( "next_weapon" )
		weaponDownState = isControlEnabled ( "prelaus_weapon" )

		toggleControl ( "radio_next", false )
		toggleControl ( "radio_prelaus", false )
		toggleControl ( "next_weapon", false )
		toggleControl ( "prelaus_weapon", false )

		if isTimer ( playerListUpdateTimer ) then
			killTimer ( playerListUpdateTimer )
		end
		scollBarAdjustTimer = setTimer ( reAdjustPlayerListScollBar, 50, -1 )
		bindKey ( "mouse_wheel_up", "down", playerListScrollUp )
		bindKey ( "mouse_wheel_down", "down", playerListScrollDown )
		showPlayerList ()
	else
		toggleControl ( "radio_next", radioUpState )
		toggleControl ( "radio_prelaus", radioDownState )
		toggleControl ( "next_weapon", weaponUpState )
		toggleControl ( "prelaus_weapon", weaponDownState )

		killTimer ( scollBarAdjustTimer )
		unbindKey ( "mouse_wheel_up", "down", playerListScrollUp )
		unbindKey ( "mouse_wheel_down", "down", playerListScrollDown )
		guiSetVisible ( gImage["playerList"], false )
	end
end
bindKey ( "tab", "both", playerListKeyPressed )

function triggerNRGateVarb ()


	NRGateMoving = false
end


NRGate2Moving = false
NRGate2Moved = false
NRGate2 = createObject ( 980, -2018, 486.60000610352, 35.9, 0, 0, 270 )


function NRGate2_func ( player )


   	if isReporter(player) or isGatePermitted(player) then
		if getDistanceBetweenPoints3D ( -2018, 486.60000610352, 35.9, getElementPosition ( player ) ) < 17 then
			if not NRGate2Moving then
				if NRGate2Moved == false then
					moveObject ( NRGate2, 3000, -2018, 486.60000610352, 31.4, 0, 0, 0 )
					setTimer ( triggerNRGate2Varb, 3000, 1 )
					NRGate2Moved = true
				else
					moveObject ( NRGate2, 3000, -2018, 486.60000610352, 35.9, 0, 0, 0 )
					setTimer ( triggerNRGate2Varb, 3000, 1 )
					NRGate2Moved = false
				end
				NRGate2Moving = true
			end
		end
	end
end
addCommandHandler ( "move", NRGate2_func )