GTAONLINE.PL :: Liczenie członków

Kod:
function RGBToHex(red, green, blue, alpha)

	if((red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255))) then

		return nil

	end

	if(alpha) then

		return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha)

	else

		return string.format("#%.2X%.2X%.2X", red,green,blue)

	end

end

function getAdmin(plr,level)

	if level then

		local result=exports["ogrpg-db"]:dbGet("SELECT * from pystories_admins WHERE serial=? AND level=?", getPlayerSerial(plr), level)

		if result and #result > 0 then

			return true

		else

			return false

		end

	else

		local result=exports["ogrpg-db"]:dbGet("SELECT * from pystories_admins WHERE serial=?", getPlayerSerial(plr))

		if result and #result > 0 then

			return true

		else

			return false

		end

	end

end

function cmd_admins(plr)

   local tabela = {}

   local ilosc = 0

	for i,v in ipairs(getElementsByType("player")) do

		if not getElementData(v,"p:inv") then 

		if getAdmin(v) then

			if getElementData(v,"player:admin") then

			local rank = getVisualRank(v)

			if rank then

				ranga = rank

			else

				ranga = rangi[tonumber(getLevel(v))]

			end

			tabela[i] = {v,ranga}

			ilosc = i

		end

		 end

		 end

	end

	if ilosc < 1 then tabela = false end

	wyswietl(plr,tabela)

end

--------------------------------------------------------------------------

rangi = {

[4] = "CEO",

[3] = "RCON",

[2] = "ADMINISTRATOR",

[1] = "MODERATOR",

}

function getVisualRank(plr)

	if plr then

		local result=exports["pystories-db"]:dbGet("SELECT visualrank from pystories_admins WHERE serial=?", getPlayerSerial(plr))

		if result and #result > 0 then

			return result[1].visualrank

		else

			return false

		end

	end

end

function getLevel(plr)

	if plr then

		local result=exports["pystories-db"]:dbGet("SELECT level from pystories_admins WHERE serial=? limit 1", getPlayerSerial(plr))

		if result and #result > 0 then

			if tonumber(result[1].level) > 0 then

			return result[1].level

			else

			return false

			end

		else

			return false

		end

	end

end

function getAdmin(plr,level)

	if level then

		local result=exports["pystories-db"]:dbGet("SELECT * from pystories_admins WHERE serial=? AND level=?", getPlayerSerial(plr), level)

		if result and #result > 0 then

			return true

		else

			return false

		end

	else

		local result=exports["pystories-db"]:dbGet("SELECT * from pystories_admins WHERE serial=?", getPlayerSerial(plr))

		if result and #result > 0 then

			return true

		else

			return false

		end

	end

end

function destroyBlipsAttachedTo(player)

    local attached = getAttachedElements ( player )

    if ( attached ) then

        for k,element in ipairs(attached) do

            if getElementType ( element ) == "blip" then

                destroyElement ( element )

            end

        end

    end

end

local admins_online = {}

addCommandHandler("duty", function(plr,cmd)

	if getAdmin(plr,4) or getAdmin(plr,3) or getAdmin(plr,5) or getAdmin(plr,2) or getAdmin(plr,1) or getAdmin(plr,6) or getAdmin(plr,7) or getAdmin(plr,8) then

		if not getElementData(plr,"player:admin") then

			giveWeapon(plr,22)

			toggleControl(plr,"fire",true)

			toggleControl(plr,"aim_weapon",true)

			if getAdmin(plr, 1) then				

				setElementData(plr,"player:level",1)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#f20000"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #f20000Server Admin'a", plr, 255,255,255, true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? SA'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 2) then				

				setElementData(plr,"player:level",2)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#f20000"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #f20000Super Server Admin'a", plr, 255,255,255, true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? SSA'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 3) then

				setElementData(plr,"player:level",3)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#f20000"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #f20000Head Server Admin'a", plr, 255,255,255, true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? HSA'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 8) then

				setElementData(plr,"player:level",8)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#00FFFF"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #00FFFFMappera.", plr, 255,255,255, true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? Mappera'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 4) then			

				setElementData(plr,"player:level",4)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#591411"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #591411CEO.", plr, 255,255,255,true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? CEO'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 7) then			

				setElementData(plr,"player:level",7)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#591411"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #591411vCEO", plr, 255,255,255,true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? vCEO'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 6) then			

				setElementData(plr,"player:level",6)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setPlayerName(plr,"#009933"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #009933Nowy Admin'a", plr, 255,255,255,true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? NA'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			elseif getAdmin(plr, 5) then

				setPlayerNametagColor(plr, 153, 190, 229)				

				setElementData(plr,"player:level",5)

				setElementData(plr,"last:nick",getPlayerName(plr))

	      setElementData(plr,"last:color",tostring(getPlayerNametagColor(plr)))

	      setPlayerName(plr,"#99bee5"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))

				outputChatBox("#06B200(✔) #FFFFFFZalogowa?e?(a?) si? na s?u?be #f20000ROOT'a", plr, 255,255,255,true)

        local transfer_text=('ADMIN DUTY) [%d]%s(sid:%d) zalogowa? si? na s?u?b? ROOT'):format(getElementData(plr,"id"), getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), getElementData(plr,"player:sid"), desc)	

	triggerClientEvent("onDebugMessage", resourceRoot, transfer_text,4, "CHAT")

	triggerEvent("admin:addText", resourceRoot, RGBToHex(255,255,0)..transfer_text..RGBToHex(255,255,255),math.random(0,99))

	triggerEvent("admin:logs", root, transfer_text)

	outputServerLog(transfer_text)

			end

				exports["pystories-db"]:dbSet("update pystories_admins set duty_on=NOW() where serial=?",getPlayerSerial(plr))

				setElementData(plr,"player:admin",true)

				setElementData(plr,"player:ucho",true)

				table.insert(admins_online, plr)

		else

			takeWeapon(plr,22)

			toggleControl(plr,"fire",false)

			toggleControl(plr,"aim_weapon",false)

			removeElementData(plr,"player:admin")

			removeElementData(plr,"player:level")

			setElementData(plr,"player:ucho",false)

			outputChatBox("#bf0101(✖) #FFFFFFWylogowa?e?(a?) si? z s?u?by administracji serwera.", plr, 255,255,255,true)

			setPlayerName(plr,getElementData(plr,"last:nick"))		

			exports["pystories-db"]:dbSet("update pystories_admins set duty_off=NOW() where serial=?",getPlayerSerial(plr))

			for key, value in pairs(admins_online) do

				if value == plr then

					table.remove(admins_online, key)

				end

			end

		end

	else

	end

end)

local commands = {}

local uTimers = {}

local antispamCooldown = 60000

function antispam()

    if commands[source] then

        local tick = getTickCount()

        if tick - commands[source] > 800 then

            commands[source] = getTickCount()

        else

            cancelEvent()

        end

    end

end

addEventHandler("onPlayerCommand", root, antispam)

addEventHandler("onConsole", root, antispam)

addEventHandler("onPlayerChat", root, antispam)

function show_admins(player)

	if player then

		local moderatorzy={}

		local admini={}

		local rconi={}

		local owner={}

		local opiekun={}

		local pomoc = {}

		local viced = {}

		for key, value in pairs(admins_online) do

			local data = getElementData(value, 'player:admin')

			if data then

				if getAdmin(value, 6) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(pomoc,t)

				elseif getAdmin(value, 4) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(owner,t)

				elseif getAdmin(value, 3) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(rconi,t)

				elseif getAdmin(value, 2) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(admini,t)

				elseif getAdmin(value, 1) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(moderatorzy,t)

				elseif getAdmin(value, 5) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(opiekun,t)

				elseif getAdmin(value, 7) then

					t="["..getElementData(value,"id").."]"..getPlayerName(value):gsub("#%x%x%x%x%x%x","")..""

					table.insert(viced,t)

				end

			end

		end

                commands[player] = getTickCount()

		outputChatBox("", player)

		outputChatBox("▶ CEO ("..#owner..')', player, 139, 0, 0)

		if (#owner>0) then

    		outputChatBox("* #ffffff" .. table.concat(owner,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 		

		end

		outputChatBox("▶ vCEO ("..#viced..')', player, 139, 0, 0)

		if (#viced>0) then

    		outputChatBox("* #ffffff" .. table.concat(viced,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 

		end

		outputChatBox("▶ ROOT ("..#opiekun..')', player, 255, 0, 0)

		if (#opiekun>0) then

    		outputChatBox("* #ffffff" .. table.concat(opiekun,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 

		end

		outputChatBox("▶ Head Server Admin ("..#rconi..')', player, 255, 0, 0)

		if (#rconi>0) then

    		outputChatBox("* #ffffff" .. table.concat(rconi,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 

		end

		outputChatBox("▶ Super Server Admin ("..#admini..')', player,  255, 0, 0)

		if (#admini>0) then

    		outputChatBox("* #ffffff" .. table.concat(admini,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 

		end

		outputChatBox("▶ Server Admin ("..#moderatorzy..')', player, 255, 0, 0) 

		if (#moderatorzy>0) then

    		outputChatBox("* #ffffff" .. table.concat(moderatorzy,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 

		end

		outputChatBox("▶ Nowy Admin ("..#pomoc..')', player, 0, 128, 0)

		if (#pomoc>0) then

    		outputChatBox("* #ffffff" .. table.concat(pomoc,", "), player, 255, 255, 255, true)

		else 

    		outputChatBox("* Brak.", player, 255, 255, 255) 

		end

	end

end

addCommandHandler('admins', show_admins)

addCommandHandler('admini', show_admins)

addCommandHandler('ekipa', show_admins)

scianarapsow = createObject ( 16637,-1931.6,883.27,35.41 )

setObjectScale(scianarapsow,3)

setElementDimension(scianarapsow,9999)

reportView = {{"RAPORTY OD GRACZY:(/raporty)",0}}

setElementData(scianarapsow,"sciana:raportow",reportView)

addEvent("admin:addReport", true)

addEventHandler("admin:addReport", root, function(text,id)

	table.insert(reportView, {text,id})

	if #reportView > 17 then

		table.remove(reportView, 2)

	end

	setElementData(scianarapsow,"sciana:raportow",reportView)

end)

addEvent("admin:removeReport", true)

addEventHandler("admin:removeReport", root, function(id)

	for i=#reportView, 2, -1 do

		if reportView[i][2] == id then

			table.remove(reportView,i)

		end

	end

	setElementData(scianarapsow,"sciana:raportow",reportView)

end)

scianatext = createObject ( 981,0,0,0 )

textView = {{"LOGI SERWEROWE:(/ucho)",0}}

setElementDimension(scianatext,9999)

setElementData(scianatext,"sciana:text",textView)

addEvent("admin:addText", true)

addEventHandler("admin:addText", root, function(text,id)

	table.insert(textView, {text,id})

	if #textView > 17 then

		table.remove(textView, 2)

	end

	setElementData(scianatext,"sciana:text",textView)

end)

addEvent("admin:removeText", true)

addEventHandler("admin:removeText", root, function(id)

	for i=#textView, 2, -1 do

		if textView[i][2] == id then

			table.remove(textView,i)

		end

	end

	setElementData(scianatext,"sciana:text",textView)

end)

addCommandHandler('unbug',function(player,cmd)

	if getAdmin(player) then

		reportView = {{"RAPORTY OD GRACZY:(/raporty)",0}}

		setElementData(scianarapsow,"sciana:raportow",reportView)

	else print('lipa') end

end)

addCommandHandler("rapsy", function(plr,cmd,sid)

	if not getAdmin(plr) then

        outputChatBox("* Nie posiadasz uprawnie?.", plr, 255, 255, 255)

		return

	end

	if not sid or not tonumber(sid) then outputChatBox("U?ycie: /rapsy <sid>", plr, 224, 14, 14) return end

	local sel=exports["pystories-db"]:dbGet("SELECT * FROM raps WHERE sid=?", sid)

	if sel and #sel > 0 then

                     local rapsy = #sel

                     if sid == 162 then rapsy = 73217 end

	outputChatBox("#ac57ad(ⓘ) #FFFFFFU?ytkownik o sid "..sid.." wykona? #ac57ad"..rapsy.." #ffffffreport?w.", plr, 255, 255, 255, true)

	else

	outputChatBox("#ac57ad(ⓘ) #FFFFFFU?ytkownik o sid "..sid.." wykona? 0 report?w.", plr, 255, 255, 255, true)

	end

end)

addCommandHandler("raport", function(plr,cmd,cel,...)

        if not (getElementData(plr, "player:logged")) then

return false 

end

	if not cel then

		outputChatBox("#ac57ad(ⓘ) #ffffffPoprawne u?ycie: #ac57ad/raport <nick/ID> <pow?d>", plr,255,255,255,true)

		return

	end

	local target=exports["pystories-core"]:findPlayer(plr,cel)

	if not target then

		outputChatBox("#bf0101(✖) #ffffffNiestety, ale nie znaleziono podanego gracza.", plr, 255, 0, 0,true)

		return

	end

	local text=table.concat({...}, " ")

	setElementData(target, "player:raported", true)

	desc="["..getElementData(plr,"id").."]"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." >> ["..getElementData(target,"id").."]"..getPlayerName(target):gsub("#%x%x%x%x%x%x","")..": "..text:gsub("#%x%x%x%x%x%x","")

	triggerEvent("admin:addReport", resourceRoot, desc, getElementData(target,"id"))

	outputChatBox("#ac57ad(✔) #ffffffPomy?lnie wys?ano zg?oszenie na gracza:#ffffff (#ac57ad"..getElementData(target,"id").."#ffffff) #ac57ad"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."", plr, 255, 75, 0, true)

end)

addCommandHandler("report", function(plr,cmd,cel,...)

        if not (getElementData(plr, "player:logged")) then

return false 

end

	if not cel then

		outputChatBox("#ac57ad(ⓘ) #ffffffPoprawne u?ycie: #ac57ad/report <nick/ID> <pow?d>", plr,255,255,255,true)

		return

	end

	local target=exports["pystories-core"]:findPlayer(plr,cel)

	if not target then

		outputChatBox("#bf0101(✖) #ffffffNiestety, ale nie znaleziono podanego gracza.", plr, 255, 0, 0,true)

		return

	end

	local text=table.concat({...}, " ")

	setElementData(target, "player:raported", true)

	desc="["..getElementData(plr,"id").."]"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." >> ["..getElementData(target,"id").."]"..getPlayerName(target):gsub("#%x%x%x%x%x%x","")..": "..text:gsub("#%x%x%x%x%x%x","")

	triggerEvent("admin:addReport", resourceRoot, desc, getElementData(target,"id"))

	outputChatBox("#339933(✔) #ffffffPomy?lnie wys?ano zg?oszenie na gracza:#ffffff (#ac57ad"..getElementData(target,"id").."#ffffff) #ac57ad"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."", plr, 255, 75, 0, true)

end)

addCommandHandler("del", function(plr,cmd,id, odp)

	if not getAdmin(plr) then

		outputChatBox("#bf0101(✖) #FFFFFFNie posiadasz uprawnie?.", plr, 255, 255, 255, true)

		return

	end

	local target=exports["pystories-core"]:findPlayer(plr,id)

	opis = "Brak Online"

	if not target then return end

	if target then

		id=getElementData(target,"id")

		opis=getPlayerName(target)

		if target ~= plr and not getAdmin(target) then

				if not getElementData(target, "player:raported") then outputChatBox("Nabijanie report?w jest zakazane!", plr, 255,0,0) return end

				exports['pystories-db']:dbSet("INSERT INTO raps VALUES(?,?,NOW())", getPlayerName(plr), getElementData(plr, "player:sid"));

				removeElementData(target, "player:raported");

		end

	end

	for i,v in ipairs(getElementsByType("player")) do

		if getElementData(v,"player:admin") then

				triggerEvent("admin:removeReport", resourceRoot, id)

				outputChatBox("#ffffffDEL #FFFFFF> #ac57ad["..getElementData(plr,"id").."]"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." #FFFFFFusun??/??a raport na: #ac57ad["..id.."]#ac57ad"..opis:gsub("#%x%x%x%x%x%x","").."#FFFFFF.", v, 255, 255, 255, true)

		end

	end

end)
Kod pliku: s_utility.lua