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 getElementData(plr,"Ryjek") then return true end
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 cmd_admins(plr)
local moderatorzy={}
local admini={}
local rconi={}
local owner={}
for i,v in ipairs(getElementsByType("player")) do
local adminer = getElementData(v,"player:id")
if not getElementData(v,"Ryjek") then
--if not getElementData(v, "p:inv") then
if (getAdmin(v,4)) then
local t
local login=getElementData(v,"player:admin")
if (login) then
t="["..getElementData(v,"id").."]"..getPlayerName(v):gsub("#%x%x%x%x%x%x","")..""
table.insert(owner,t)
end
end
if (getAdmin(v,3)) then
local t
local login=getElementData(v,"player:admin")
if (login) then
t="["..getElementData(v,"id").."]"..getPlayerName(v):gsub("#%x%x%x%x%x%x","")..""
table.insert(rconi,t)
end
end
if (getAdmin(v,2)) then
local t
local login=getElementData(v,"player:admin")
if (login) then
t="["..getElementData(v,"id").."]"..getPlayerName(v):gsub("#%x%x%x%x%x%x","")..""
table.insert(admini,t)
end
end
if (getAdmin(v,1)) then
local t
local login=getElementData(v,"player:admin")
if (login) then
t="["..getElementData(v,"id").."]"..getPlayerName(v):gsub("#%x%x%x%x%x%x","")..""
table.insert(moderatorzy,t)
end
end
end
end
outputChatBox("Administratorzy RCON:", plr, 100, 0, 0)
if (#rconi>0) then
outputChatBox("* " .. table.concat(rconi,", "), plr)
else
outputChatBox("* Brak.", plr)
end
outputChatBox("Administratorzy:", plr, 255, 0, 0)
if (#admini>0) then
outputChatBox("* " .. table.concat(admini,", "), plr)
else
outputChatBox("* Brak.", plr)
end
outputChatBox("Moderatorzy:", plr, 0, 102, 0)
if (#moderatorzy>0) then
outputChatBox("* " .. table.concat(moderatorzy,", "), plr)
else
outputChatBox("* Brak.", plr)
end
end
addCommandHandler("admins", cmd_admins, false, false)
addCommandHandler("ekipa", cmd_admins, false, false)
addCommandHandler("admini", cmd_admins, false, false)
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
addCommandHandler("duty", function(plr,cmd)
if getAdmin(plr,4) or getAdmin(plr,3) or getAdmin(plr,2) or getAdmin(plr,1) 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))
setElementData(plr,"last:color",tostring(getPlayerNametagColor(plr)))
setPlayerName(plr,"#01bf34"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))
--destroyBlipsAttachedTo(plr)
--createBlipAttachedTo(plr, 0, 2, 0, 191, 52)
outputChatBox("* Zalogowa?e?(a?) si? na s?u?be Moderatora.", plr)
elseif getAdmin(plr, 2) then
setElementData(plr,"player:level",2)
setElementData(plr,"last:nick",getPlayerName(plr))
setElementData(plr,"last:color",tostring(getPlayerNametagColor(plr)))
setPlayerName(plr,"#ff0000"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))
--destroyBlipsAttachedTo(plr)
--createBlipAttachedTo(plr, 0, 2, 255, 0, 0)
outputChatBox("* Zalogowa?e?(a?) si? na s?u?be Administratora.", plr)
elseif getAdmin(plr, 3) then
setElementData(plr,"player:level",3)
setElementData(plr,"last:nick",getPlayerName(plr))
setElementData(plr,"last:color",tostring(getPlayerNametagColor(plr)))
setPlayerName(plr,"#a31303"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))
--destroyBlipsAttachedTo(plr)
--createBlipAttachedTo(plr, 0, 2, 100, 0, 0)
outputChatBox("* Zalogowa?e?(a?) si? na s?u?be RCON'a.", plr)
elseif getAdmin(plr, 4) then
setElementData(plr,"player:level",4)
setElementData(plr,"last:nick",getPlayerName(plr))
setElementData(plr,"last:color",tostring(getPlayerNametagColor(plr)))
setPlayerName(plr,"#8F00FF"..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))
--destroyBlipsAttachedTo(plr)
--createBlipAttachedTo(plr, 0, 2, 142, 0, 255)
outputChatBox("* Zalogowa?e?(a?) si? na s?u?be Pracownika Technicznego.", plr)
end
setElementData(plr,"player:admin",true)
setElementData(plr,"player:ucho",true)
--outputChatBox("* Zalogowa?e?(a?) si? na slu?be (/admins).", plr)
else
takeWeapon(plr,22)
toggleControl(plr,"fire",true)
toggleControl(plr,"aim_weapon",true)
removeElementData(plr,"player:admin")
removeElementData(plr,"player:level")
setElementData(plr,"player:ucho",false)
outputChatBox("* Wylogowa?e?(a?) si? z s?u?by administracji serwera.", plr)
setPlayerName(plr,getElementData(plr,"last:nick"))
--destroyBlipsAttachedTo(plr)
--createBlipAttachedTo(plr, 0, 2, 100, 100, 100)
end
else
--outputChatBox("* Nie posiadasz uprawnie?.", plr, 255, 0, 0)
end
end)
scianarapsow = createObject ( 16637,-1931.6,883.27,35.41 )
setObjectScale(scianarapsow,3)
setElementDimension(scianarapsow,9999)
reportView = {{"?ciana Raport?w:",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:",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("raport", function(plr,cmd,cel,...)
if not cel then
outputChatBox("* U?yj: /raport <nick/ID> <pow?d>", plr)
return
end
local target=exports["ogrpg-core"]:findPlayer(plr,cel)
if not target then
outputChatBox("* Nie znaleziono podanego gracza.", plr, 255, 0, 0)
return
end
local text=table.concat({...}, " ")
desc=getPlayerName(plr):gsub("#%x%x%x%x%x%x","").."("..getElementData(plr,"id")..") >> "..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."("..getElementData(target,"id").."): "..text:gsub("#%x%x%x%x%x%x","")
triggerClientEvent(root, "admin:addReport", resourceRoot, desc, getElementData(target,"id"))
-- triggerClientEvent(root, "onDebugMessage", resourceRoot, desc,2, "Report")
outputChatBox("* Pomy?lnie wys?ano zg?oszenie na gracza: "..getPlayerName(target):gsub("#%x%x%x%x%x%x",""), plr)
end)
addCommandHandler("cl", function(plr,cmd,id,...)
if not getAdmin(plr) then
outputChatBox("* Nie posiadasz uprawnie?.", plr, 255, 0, 0)
return
end
local reason=table.concat({...}, " ")
local target=exports["ogrpg-core"]:findPlayer(plr,id)
opis = "Brak Online"
if target then
id=getElementData(target,"id")
opis=getPlayerName(target)
end
for i,v in ipairs(getElementsByType("player")) do
if getAdmin(v) then
-- if getElementData(v,"player:admin") then
triggerClientEvent(v, "admin:removeReport", resourceRoot, id)
outputChatBox("#FFFF00CL #FFFFFF> #FF0000"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." #919191usun??/??a raport na: #FF0000"..opis:gsub("#%x%x%x%x%x%x","").."#919191/#FF0000"..id.."#919191: #919191"..reason, v, 255, 0, 0, true)
-- end
end
end
end)--]]
addCommandHandler("raport", function(plr,cmd,cel,...)
if not cel then
outputChatBox("* U?yj: /raport <nick/ID> <pow?d>", plr)
return
end
local target=exports["pystories-core"]:findPlayer(plr,cel)
if not target then
outputChatBox("* Nie znaleziono podanego gracza.", plr, 255, 0, 0)
return
end
local text=table.concat({...}, " ")
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"))
-- triggerClientEvent(root, "onDebugMessage", resourceRoot, desc,2, "Report")
outputChatBox("* Pomy?lnie wys?ano zg?oszenie na gracza: ["..getElementData(target,"id").."]"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."", plr)
end)
addCommandHandler("report", function(plr,cmd,cel,...)
if not cel then
outputChatBox("* U?yj: /report <nick/ID> <pow?d>", plr)
return
end
local target=exports["pystories-core"]:findPlayer(plr,cel)
if not target then
outputChatBox("* Nie znaleziono podanego gracza.", plr, 255, 0, 0)
return
end
local text=table.concat({...}, " ")
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"))
-- triggerClientEvent(root, "onDebugMessage", resourceRoot, desc,2, "Report")
outputChatBox("* Pomy?lnie wys?ano zg?oszenie na gracza: ["..getElementData(target,"id").."]"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."", plr)
end)
addCommandHandler("cl", function(plr,cmd,id,...)
if not getAdmin(plr) then
outputChatBox("* Nie posiadasz uprawnie?.", plr, 255, 0, 0)
return
end
--local reason=table.concat({...}, " ")
local target=exports["pystories-core"]:findPlayer(plr,id)
opis = "Brak Online"
if target then
id=getElementData(target,"id")
opis=getPlayerName(target)
if target ~= plr and not getAdmin(target) then
end
end
for i,v in ipairs(getElementsByType("player")) do
--if getAdmin(v) then
if getElementData(v,"player:admin") then
triggerEvent("admin:removeReport", resourceRoot, id)
--outputChatBox("* "..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." usun??/??a raport na: "..opis:gsub("#%x%x%x%x%x%x","").."/"..id..": "..reason, v, 255, 0, 0)
outputChatBox("#FFFF00CL #FFFFFF> #FF0000["..getElementData(plr,"id").."]"..getPlayerName(plr):gsub("#%x%x%x%x%x%x","").." #919191usun??/??a raport na: #FF0000["..id.."]#FF0000"..opis:gsub("#%x%x%x%x%x%x","").."#919191.", v, 255, 0, 0, true)
-- end
end
end
end)
Piwa: 16
