[YARDIM] Scoreboard Klan

ardaabo

Forumdan paylaşılan bir klan paneli indirdim. İyi güzel ama ben bunu resimdeki gibi Scoreboard a "Klanı" nasıl ekleyebilirim, yardımcı olacak birisi var mı

Spoiler for Hiden:

Klan panel, exports.lua

Kod

-----------------------------------------------
--  Desarrollador/Developer: -Rex-
--  Proyecto/Proyect:        DangerGaming
--  Contacto/Contact:        https://www.facebook.com/rexscripting/
--  Fecha de creacion:       xx/xx/2016 No recuerdo el mes Jeje
--
--  Libre uso y modificacion, No borrar los creditos, Gracias
-----------------------------------------------


--Por que decidiste liberarlo?
--  Debido a que done este script a servidores amigos, Me llegaron a decirme que estos lo están intentando vender
--  Por lo que decidi publicarlo en la comunidad Gratis y a codigo abierto.

local database = dbConnect( "sqlite", "dbData_byRex.db" )

function isGroupExists( groupnames )
	
	--assert( groupnames, "Error bad argument @ 'groupnames' [Expected at argument 1, got "..tostring(groupnames).." ]")

	local qh = database:query( "SELECT groupname FROM groupsystem WHERE groupname=?", tostring( groupnames ) )
	local consulta = dbPoll( qh, -1 )

	for k,con in pairs(consulta) do
		if con["groupname"] then
			return true
		else
			return false
		end
	end	
end

function getPlayerGroup( player )

	assert( getElementType( player ) == "player", "Error bad argument @ 'player' [Expected at argument 1, got "..tostring(player).." ]")
	local acc = getAccountName(getPlayerAccount( player ))

	local qh = database:query( "SELECT * FROM groupmembers")
	local table = dbPoll( qh, -1 )
	
	for i, con in ipairs( table ) do
		if con["memberacc"] == acc then
			local gangname = tostring(con["name"])
			return gangname or false
		end
	end 
end

function isPlayerFounder( player, gang )

	assert( getElementType( player ) == "player", "Error bad argument @ 'player' [Expected at argument 2, got "..tostring(player).." ]")
	assert( type( gang ) == "string", "Error bad argument @ 'gang' [Expected at argument 2, got "..tostring(gang).." ]" )
	
	local acc = getAccountName(getPlayerAccount( player ))
	
	local qh = database:query( "SELECT rang FROM groupmembers WHERE name=? AND memberacc=?",gang,acc)
	local consulta = dbPoll( qh, -1 )

	for i,con in ipairs (consulta) do	

		if con["rang"] == "Fundador" then

			return true
		else
			return false
		end
	end
end

function isPlayerLeader( player, gang )

	assert( getElementType( player ) == "player", "Error bad argument @ 'player' [Expected at argument 2, got "..tostring(player).." ]")
	assert( type( gang ) == "string", "Error bad argument @ 'gang' [Expected at argument 2, got "..tostring(gang).." ]" )
	
	local acc = getAccountName(getPlayerAccount( player ))
	
	local qh = database:query( "SELECT rang FROM groupmembers WHERE name=? AND memberacc=?",gang,acc)
	local consulta = dbPoll( qh, -1 )

	for i,con in ipairs (consulta) do	

		if con["rang"] == "Lider" then

			return true
		else
			return false
		end
	end
end

function isPlayerInGroup( player )

	assert( getElementType( player ) == "player", "Error bad argument @ 'player' [Expected at argument 1, got "..tostring(player).." ]")

	local acc = getAccountName(getPlayerAccount( player ))

	local qh = database:query( "SELECT memberacc FROM groupmembers WHERE memberacc=?",acc )
	local consulta = dbPoll( qh, -1 )

	for i,con in ipairs(consulta) do
		if con["memberacc"] then
			return true
		else
			return false
		end
	end 
end

function isAccountInGroup( acc )

	local qh = database:query( "SELECT memberacc FROM groupmembers WHERE memberacc=?",acc )
	local consulta = dbPoll( qh, -1 )

	for i,con in ipairs(consulta) do
		if con["memberacc"] then
			return true
		else
			return false
		end
	end 
end

function addPlayerToGroup( player, gang)
	assert( getElementType( player ) == "player" and isElement(player), "Error bad argument @ 'player' [Expected at argument 2, got "..tostring(player).." ]")
	assert( type(gang) == "string", "Error bad argument @ 'gang' [Expected at argument 2, got "..tostring(gang).." ]" )
	if isGroupExists( gang ) then
		local acc = getAccountName(getPlayerAccount( player ))
		database:exec("INSERT INTO groupmembers ( name,memberacc,membername,rang,status) VALUES(?,?,?,?,?)", gang, acc, getPlayerName(player), "Aspirantes","Activo" )
	else
		error("Error bad argument @ 'gang [ Group is nil ] ")
	end
end

function addAccountToGroup( acc, gang)

		database:exec("INSERT INTO groupmembers ( name,memberacc,membername,rang,status) VALUES(?,?,?,?,?)", gang, acc, "Player", "Aspirantes","Activo" )
	
end

function setPlayerRang( player, rang )
	assert( getElementType( player ) == "player" and isElement(player), "Error bad argument @ 'player' [Expected at argument 2, got "..tostring(player).." ]")

	assert( type(rang) == "string", "Error bad argument @ 'rang' [Expected at argument 2, got "..tostring(rang).." ]" )
	if not getPlayerAccount( player ):isGuest() then
		local acc = getAccountName(getPlayerAccount( player ))
		local gang = getPlayerGroup(player)
		if isGroupExists( gang ) then
			database:exec( "UPDATE groupmembers SET rang=? WHERE memberacc=? AND name=?", tostring( rang ),acc,gang )
		else
			error( "Error bad argument @ 'gang' [Expected at argument 1, Group is nil ]" )
		end
	end
end

function getPlayerRang( player)

	assert( getElementType( player ) == "player" and isElement(player), "Error bad argument @ 'player' [Expected at argument 2, got "..tostring(player).." ]")
	local gang = getPlayerGroup(player)

	if isPlayerInGroup ( player ) then
		local acc = getAccountName(getPlayerAccount( player ))
		local qh = database:query( "SELECT rang FROM groupmembers WHERE memberacc=? AND name=?",acc, gang )
		local consulta = dbPoll( qh, -1 )
		for i,columna in pairs( consulta ) do
			local rang = columna["rang"]
			if rang then
				return rang
			end
		end
	else
		error( "Error bad argument @ 'gang' [Expected at argument 1, Group is nil ]" )
	end
end

function removePlayerFromGroup( player, gang)
	assert( getElementType( player ) == "player", "Error bad argument @ 'player' [Expected at argument 1, got "..tostring(player).." ]")
	assert( type( gang ) == "string", "Error bad argument @ 'gang' [Expected at argument 2, got "..tostring(gang).." ]" )

	if isGroupExists( gang ) then
		if isElement( player ) then
			local acc = getAccountName(getPlayerAccount( player ))
			database:exec( "DELETE FROM groupmembers WHERE name=? AND memberacc=?", gang,acc)
		else
			error("Error bad argument @player [ player is nil or player is offline ]")
		end
	else
		error( "Error bad argument @ 'gang' [Expected at argument 1, Group is nil ]" )
	end
end

--members,slots = getGroupSlots("prueba")
function getGroupSlots( gangname )
	--assert( type( gangname ) == "string", "Error bad argument @ 'gangname' [Expected at argument 1, got "..tostring(gangname).." ]" )
	--if isGroupExists ( gangname ) then
		local qh = database:query( "SELECT slots FROM groupsystem WHERE groupname=?",gangname)
		local table = dbPoll( qh, -1 ) 
		for _,columna in pairs(table) do
			slots = tonumber( columna["slots"] )
			local rqh = database:query( "SELECT memberacc FROM groupmembers WHERE name=?",gangname)
			local total = dbPoll( rqh, -1 ) 
			if total then
				return #total,slots
			end
		end
	--else
		--error( "Error bad argument @ 'gang' [Expected at argument 1, Group is nil ]" )
	--end
end

function addGroupSlots( group, ammount )
	assert( type( group ) == "string", "Error bad argument @ 'group' [Expected at argument 1, got "..tostring(group).." ]" )
	assert( type( tonumber(ammount) ) == "number","Error bad argument @ 'ammount' [Expected at argument 2, got number" )
	if isGroupExists( group ) then
		local qh = database:query( "SELECT * FROM groupsystem WHERE groupname=?",group)
		local table = dbPoll( qh, -1 )
		for i,columna in pairs( table)  do
			local slots = columna["slots"]		
			local s = tonumber(slots) + tonumber(ammount)
			database:exec( "UPDATE groupsystem SET slots=? WHERE groupname=?", tostring( s ),group )
			outputServerLog(  group.." Changed slots to: "..tostring(s) )
		end
	else
		error( "Error bad argument @ 'group' [Expected at argument 1, got nil" )
	end
end


function deleteGroup( gang )
	--assert( type(gang) == "string", "Error bad argument @ 'gang' [Expected at argument 1, got "..tostring(gang).." ]" )
		database:exec( "DELETE FROM groupsystem WHERE groupname=?", gang)
		database:exec( "DELETE FROM groupinfo WHERE gpname=?", gang)
		local qh = database:query("SELECT * FROM groupmembers WHERE name=?",gang)
		for _, columna in ipairs( dbPoll( qh, -1 ) ) do
			local acc = columna["memberacc"]
			database:exec("DELETE FROM groupmembers WHERE memberacc=?", acc)
		end
		database:exec( "DELETE FROM groupmembers WHERE name=?", gang)
		outputServerLog( "The group "..gang.." Has been deleted" )
end

function setGroupColor( gang, r, g, b, alpha )
	assert( type( gang ) == "string", "Error bad argument @ 'gang' [Expected at argument 1, got "..tostring( gang ).." ]" )

	assert( type( r ) == "number" and r <= 255 , "Error bad argument @ 'r' [Expected at argument 2, got "..tostring( r ).." ]" )

	assert( type( g ) == "number" and g <= 255, "Error bad argument @ 'g' [Expected at argument 3, got "..tostring( g ).." ]" )

	assert( type( b ) == "number" and b <= 255, "Error bad argument @ 'b' [Expected at argument 4, got "..tostring( b ).." ]" )

	assert( type( alpha ) == "number" and alpha <= 255, "Error bad argument @ 'alpha' [Expected at argument 5, got "..tostring( alpha ).." ]" )

	if isGroupExists ( gang ) then
		database:exec( "UPDATE groupsystem SET r=?,g=?,b=?,alpha=? WHERE groupname=?", r, g, b, alpha, gang )
	else
		error("Error bad argument @ 'gang [ Group is nil ] ")
	end
end

function getGroupColor( gang )
	assert( type( gang ) == "string", "Error bad argument @ 'gang' [Expected at argument 1, got "..tostring( gang ).." ]" )

	if isGroupExists ( gang ) then
		local qh = database:query( "SELECT r,g,b,alpha FROM groupsystem WHERE groupname=?",gang)
		local table = dbPoll( qh, -1 )
		for _,columna in pairs(table) do
			local r,g,b,alpha = columna["r"],columna["g"],columna["b"],columna["alpha"]
			return tonumber(r), tonumber(g), tonumber(b), tonumber(alpha)
		end
	else
		error("Error bad argument @ 'gang [ Group is nil ] ")
	end
end

MTASATURK · « : 17 Nisan 2020, 11:13:57 »

KG Night

Spoiler for Hiden:

exports["scoreboard"]:scoreboardAddColumn ( "group", root, 100, "Klan", 29 )

ardaabo

[YARDIM] Scoreboard Klan

MTASATURK

[YARDIM] Scoreboard Klan

KG Night

Ynt: [YARDIM] Scoreboard Klan