GTAONLINE.PL :: Jakie to rangi? [Shared Game]

--[[
Komendy administratora
@author value <[email protected]>
Nie masz prawa u?y? tego kodu bez mojej zgody
]]
addCommandHandler("gp", function (plr, cmd)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
local x,y,z = getElementPosition(plr)
local _,_,rz = getElementRotation(plr)
local int = getElementInterior(plr)
local dim = getElementDimension(plr)
outputChatBox(x..", "..y..", "..z..", "..rz, plr)
outputChatBox("int: "..int.." dim: "..dim, plr)
end)

-- Settings
function pobierzDate(type,time)

realTime=getRealTime()
type=tostring(type)
time=tonumber(time)
if time < 0 then return end
if type == "m" then if time > 59 then return end value1=realTime.minute+time else value1=realTime.minute end
if type == "h" then if time > 23 then return end value2=realTime.hour+time else value2=realTime.hour end
if type == "d" then if time > 31 then return end value3=realTime.monthday+time else value3=realTime.monthday end
if type == "w" then if time > 11 then return end value4=realTime.month+time else value4=realTime.month end
if value1 >= 60 then value1 = value1-60; value2=value2+1 end
if value2 >= 24 then value2 = value2-24; value3=value3+1 end
if value3 >= 31 then value3 = value3-31; value4=value4+1 end
date=string.format("%04d-%02d-%02d ", realTime.year+1900, value4+1, value3)
time=string.format("%02d:%02d:%02d", value2, value1, realTime.second)
--outputChatBox(date..time,root)
return date..time
end

addCommandHandler("vpaliwo", function(plr,cmd)
if getElementData(plr, "user:aduty") then
if not doesHaveAdminPerms(plr, "mod_pojazdy") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
local veh=getPedOccupiedVehicle(plr)
if not veh then
outputChatBox("#FF0000✗#FFFFFF Nie znajdujesz si? w poje?dzie", plr, 255,255,255, true)
return
end
setElementData(veh, "vehicle:fuel", 100)
outputChatBox("#007f04✔#FFFFFF Tw?j pojazd zosta? zatankowany!",plr,255,255,255, true)
end
end)

addCommandHandler('vgps', function(plr, cmd)
local uid=getElementData(plr,'user:uid')
if not uid then return end
outputChatBox('#079900✔ #FFFFFF GPS Wykry? nast?puj?ce pojazdy : ', plr,255,255,255,true)
outputChatBox('________________________________________', plr,255,255,255,true)

local vehicles=getElementsByType('vehicle')
for i,v in pairs(vehicles) do
if getElementData(v,'vehicle:ownedPlayer') and getElementData(v,'vehicle:ownedPlayer')==uid then
outputChatBox("#079900➡#FFFFFF Model: #4286f4"..getVehicleNameFromModel(getElementModel(v)).."#FFFFFF // #FFFFFFRejestracja: [#4286f4SF "..getElementData(v,"vehicle:id").."#FFFFFF]", plr,255,255,255,true)
outputChatBox('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', plr,255,255,255,true)
end
end
end)

addCommandHandler("p", function(plr, cmd, model)
if getElementData(plr, "user:aduty") then
if not doesHaveAdminPerms(plr, "spawn_pojazdy") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if (not model) then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: /p <model>", plr, 255,255,255, true)
return
end
if tonumber(model) ~= nil then
outputChatBox("#FF0000✗#FFFFFF Nazwa nie ID", plr, 255,255,255, true)
return end

if model == "rhino" or model == "hydra" or model =="seasparrow" or model == "hunter" or model == "Rhino" or model == "Hunter" or model == "Hydra" then
outputChatBox("#FF0000✗#FFFFFF Nie mo?esz spawnowa? pojazd?w tego typu.", plr, 255, 255,255, true)
return end
local dim = getElementDimension(plr)
local x,y,z = getElementPosition(plr)
local r1,r2,r3 = getElementRotation(plr)
local model = getVehicleModelFromName(model)
local vehicle = getPedOccupiedVehicle(plr)
if getPedOccupiedVehicle(plr) then
outputChatBox("#FF0000✗#FFFFFF Nie mozesz podmieni? tego pojazdu!" , plr , 255, 255 ,255, true)
else
pojazd = createVehicle(model, x, y, z, r1, r2, r3)
-- warpPedIntoVehicle(plr, pojazd)
setElementDimension(pojazd, dim)
setElementPosition(plr,x, y, z+1.5)
-- setElementData(pojazd, "spawnowany", true)
setVehiclePlateText(pojazd, "RESPIONY")
local p_resp = ("[ADMINCMD /p] ADMIN "..getPlayerName(plr).." Zrespi? sobie pojazd "..model.."")
exports.Sg_mysql:mysql_query("INSERT INTO sg_logi SET name=?",p_resp)
addEventHandler("onVehicleExit", pojazd, function(plr,seat)
if seat ~= 0 then return end
destroyElement(source)
end)
end
else
outputChatBox("#FF0000✗#FFFFFF Brak uprawnie?.", plr , 255 , 255 ,255, true)
end
end)

function cmd_pwarn(plr, cmd, target, ...)
if not getElementData(plr, "user:aduty") then return end
if not doesHaveAdminPerms(plr, "warn") then return end
if not target or not ... then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza] [Pow?d]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
local text = table.concat({...}, " ")
if player then
--outputChatBox("Gracz "..getElementData(player, "user:username").." otrzyma? ostrze?enie od "..getElementData(plr, "user:username").."!", getRootElement(), 255, 0, 0)
--outputChatBox("Pow?d: "..text, getRootElement(), 255, 0, 0)
triggerClientEvent(getRootElement(), "createAnn", getRootElement(), "Gracz "..getElementData(player, "user:username").." otrzmuje ostrze?enie od "..getElementData(plr, "user:username").." Pow?d: "..text.."")
triggerClientEvent(player, "createWarn", player, text)

outputChatBox(" ", player)
outputChatBox("### Otrzyma?e?/a? ostrze?enie! ###", player, 255, 0, 0)
outputChatBox(text, player, 230, 230, 230)
outputChatBox(" ", player)
end
local p_war = ("[ADMINCMD /pwarn] Gracz "..getElementData(player, "user:username").." otrzmuje ostrze?enie od "..getElementData(plr, "user:username").." pow?d "..text.."")
exports.Sg_mysql:mysql_query("INSERT INTO sg_logi SET name=?",p_war)
end
addCommandHandler("pwarn", cmd_pwarn)

function cmd_pkick(plr, cmd, target, ...)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "kick") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target or not ... then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza] [Pow?d]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
local text = table.concat({...}, " ")
if player then
--outputChatBox("Gracz "..getElementData(player, "user:username").." otrzyma? ostrze?enie od "..getElementData(plr, "user:username").."!", getRootElement(), 255, 0, 0)
--outputChatBox("Pow?d: "..text, getRootElement(), 255, 0, 0)
triggerClientEvent(getRootElement(), "createAnn", getRootElement(), "Gracz "..getElementData(player, "user:username").." zostaje wykopany/a przez "..getElementData(plr, "user:username").." Pow?d: "..text.."")
outputConsole("===== ZOSTA?E?/A? WYKOPANY/A =====", player)
outputConsole("Nadawca: "..getElementData(plr, "user:username"), player)
outputConsole("Pow?d: "..text, player)
outputConsole(" ", player)
kickPlayer(player, getElementData(plr, "user:username"), "Sprawd? swoj? konsol? (~)")
local p_kik = ("[ADMINCMD /pkick] Gracz "..getElementData(player, "user:username").." zostaje wykopany/a przez "..getElementData(plr, "user:username").." Pow?d "..text.."")
exports.Sg_mysql:mysql_query("INSERT INTO sg_logi SET name=?",p_kik)
end
end
addCommandHandler("pkick", cmd_pkick)

addCommandHandler("zpj", function(plr,cmd,cel,time,rodzaj,...)
if not getElementData(plr, "user:aduty")then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "zpj") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
local reason=table.concat({...}, " ")
if not cel or not tonumber(time) or not rodzaj or not reason then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: /zpj <nick/ID> <czas> <jednostka: m/h/d/w> <pow?d>", plr, 255,255,255, true)
return
end
local target=findPlayer(plr,cel)
if not target then
outputChatBox("#FF0000✗#FFFFFF Nie znaleziono podanego gracza.", plr, 255, 255, 255, true)
return
end
if isPedInVehicle(target) then
removePedFromVehicle(target)
end
if tonumber(time) <= 0 then return end
if rodzaj == "m" then
exports.Sg_mysql:mysql_query("INSERT INTO rpg_punish (serial,reason,time,type) VALUES (?,?,NOW() + INTERVAL ? minute,?)", getPlayerSerial(target),reason, time, "prawko")
elseif rodzaj == "h" then
exports.Sg_mysql:mysql_query("INSERT INTO rpg_punish (serial,reason,time,type) VALUES (?,?,NOW() + INTERVAL ? hour,?)", getPlayerSerial(target),reason, time, "prawko")
elseif rodzaj == "d" then
exports.Sg_mysql:mysql_query("INSERT INTO rpg_punish (serial,reason,time,type) VALUES (?,?,NOW() + INTERVAL ? day,?)", getPlayerSerial(target),reason, time, "prawko")
elseif rodzaj == "w" then
exports.Sg_mysql:mysql_query("INSERT INTO rpg_punish (serial,reason,time,type) VALUES (?,?,NOW() + INTERVAL ? week,?)", getPlayerSerial(target),reason, time, "prawko")
end
triggerClientEvent(root, "createAnn", root, "Gracz "..getElementData(target, "user:username").." traci prawo jazdy na czas ("..time .. rodzaj ..") Pow?d: "..reason.."")
end)

function cmd_pban(plr, cmd, target, t1, t2, ...)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "banowanie") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target or not t1 or not t2 or not ... then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza] [Jednostka m/h/d] [Czas] [Pow?d]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if not player then return end
local text = table.concat({...}, ", ")
local ts_start = getTimestamp()
if t1 == "m" then
local t2 = tonumber(t2)
local ts_final = ts_start + t2*60
local time = getRealTime(ts_final)
triggerClientEvent(getRootElement(), "createAnn", getRootElement(), "Gracz "..getElementData(player, "user:username").." zostaje zbanowany/a przez "..getElementData(plr, "user:username").." ("..t2.."m) Pow?d: "..text.."")
local user_id = getElementData(player, "user:uid")
local user_serial = getPlayerSerial(player)
local admin_id = getElementData(plr, "user:uid")
local final_date = (time.year+1900).."-"..(time.month+1).."-"..(time.monthday).." "..(time.hour)..":"..(time.minute)..":"..(time.second)
exports.rpg_mysql:mysql_query("INSERT INTO rpg_bany SET userid=?, serial=?, admin=?, reason=?, enddate=?", user_id, user_serial, admin_id, text, final_date)
outputConsole("~~~~ ZOSTA?E?/A? ZBANOWANY/A ~~~~", player)
outputConsole("Czas: "..t2.."m", player)
outputConsole("Nadawca: "..getElementData(plr, "user:username"), player)
outputConsole("Pow?d: "..text, player)
kickPlayer(player, getElementData(plr, "user:username"), "Otw?rz konsol? (~)")
elseif t1 == "h" then
local t2 = tonumber(t2)
local ts_final = ts_start + t2*3600
local time = getRealTime(ts_final)
triggerClientEvent(getRootElement(), "createAnn", getRootElement(), "Gracz "..getElementData(player, "user:username").." zostaje zbanowany/a przez "..getElementData(plr, "user:username").." ("..t2.."h) Pow?d: "..text.."")
local user_id = getElementData(player, "user:uid")
local user_serial = getPlayerSerial(player)
local admin_id = getElementData(plr, "user:uid")
local final_date = (time.year+1900).."-"..(time.month+1).."-"..(time.monthday).." "..(time.hour)..":"..(time.minute)..":"..(time.second)
exports.rpg_mysql:mysql_query("INSERT INTO rpg_bany SET userid=?, serial=?, admin=?, reason=?, enddate=?", user_id, user_serial, admin_id, text, final_date)
outputConsole("~~~~ ZOSTA?E?/A? ZBANOWANY/A ~~~~", player)
outputConsole("Czas: "..t2.."m", player)
outputConsole("Nadawca: "..getElementData(plr, "user:username"), player)
outputConsole("Pow?d: "..text, player)
kickPlayer(player, getElementData(plr, "user:username"), "Otw?rz konsol? (~)")
elseif t1 == "d" then
local t2 = tonumber(t2)
local ts_final = ts_start + t2*86400
local time = getRealTime(ts_final)
triggerClientEvent(getRootElement(), "createAnn", getRootElement(), "Gracz "..getElementData(player, "user:username").." zostaje zbanowany/a przez "..getElementData(plr, "user:username").." ("..t2.."d) Pow?d: "..text.."")
local user_id = getElementData(player, "user:uid")
local user_serial = getPlayerSerial(player)
local admin_id = getElementData(plr, "user:uid")
local final_date = (time.year+1900).."-"..(time.month+1).."-"..(time.monthday).." "..(time.hour)..":"..(time.minute)..":"..(time.second)
exports.Sg_mysql:mysql_query("INSERT INTO rpg_bany SET userid=?, serial=?, admin=?, reason=?, enddate=?", user_id, user_serial, admin_id, text, final_date)
outputConsole("~~~~ ZOSTA?E?/A? ZBANOWANY/A ~~~~", player)
outputConsole("Czas: "..t2..""..t1.."", player)
outputConsole("Nadawca: "..getElementData(plr, "user:username"), player)
outputConsole("Pow?d: "..text, player)
kickPlayer(player, getElementData(plr, "user:username"), "Otw?rz konsol? (~)")
else
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza] [Jednostka m/h/d] [Czas] [Pow?d]", plr, 255, 255, 255, true)
end
end
addCommandHandler("pban", cmd_pban)

function cmd_pieniadze(plr, cmd, target)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if player then
local money = getElementData(player, "user:money")
local nick = getElementData(player, "user:username")
outputChatBox("Gracz #4286f4"..nick.." #ffffffposiada przy sobie: #155100"..money.." #ffffffPLN", plr, 255, 255, 255, true)
end
end
addCommandHandler("stankonta", cmd_pieniadze)

function cmd_aduty(plr, cmd)
if getElementData(plr, "user:admin") < 1 then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
local duty = getElementData(plr, "user:aduty")
local level = getElementData(plr, "user:admin") or 0
if not duty then
if level == 1 then
setPlayerName(plr,"#BB0000"..getPlayerName(plr))
elseif level == 2 then
setPlayerName(plr,"#FF0000"..getPlayerName(plr))
elseif level == 3 then
setPlayerName(plr,"#00D700"..getPlayerName(plr))
end
setElementData(plr, "user:aduty", true)
else
setElementData(plr, "user:aduty", false)
outputChatBox("#4286f4Stan Duty:", plr, 255, 255, 255, true)
giveWeapon(plr,22)
toggleControl(plr,"aim_weapon",true)
setPlayerName(plr,getPlayerName(plr):gsub("#%x%x%x%x%x%x",""))
if duty then
setElementData(plr, "user:aecho", false)
end
end
end
addCommandHandler("aduty", cmd_aduty)

function cmd_echo(plr, cmd)
if not getElementData(plr, "user:aduty") then return end
if not doesHaveAdminPerms(plr, "echo") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
local echo = getElementData(plr, "user:aecho")
setElementData(plr, "user:aecho", not echo)
outputChatBox("#4286f4Echo: #eeeeee"..tostring(not echo), plr, 255, 255, 255, true)
end
addCommandHandler("echo", cmd_echo)

function cmd_inv(plr, cmd)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if tonumber(getElementData(plr, "user:admin")) < 1 then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
local a = getElementAlpha(plr)
if a == 255 then
setElementAlpha(plr, 0)
else
setElementAlpha(plr, 255)
end
end
addCommandHandler("inv", cmd_inv)

function cmd_freeze(plr, cmd, target)
if not getElementData(plr, "user:aduty") then return end
if not doesHaveAdminPerms(plr, "freeze") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if not player then return end
local freeze = getElementData(player, "admin:freeze")
if freeze then
setElementFrozen(player, false)
setElementData(player, "admin:freeze", false)
outputChatBox("Zosta?e?/a? odmro?ony przez administratora", player, 255, 0, 0)
outputChatBox(getElementData(player, "user:username").." zosta?/a odmro?ony", plr, 255, 200, 0)
else
setElementFrozen(player, true)
setElementData(player, "admin:freeze", true)
outputChatBox("Zosta?e?/a? zamro?ony przez administratora", player, 255, 0, 0)
outputChatBox(getElementData(player, "user:username").." zosta?/a zamro?ony", plr, 255, 200, 0)
end
end
addCommandHandler("afreeze", cmd_freeze)

function cmd_vfix(plr, cmd, target)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "mod_pojazdy") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if not player then return end
if not isPlayerInVehicle(player) then
outputChatBox("#FF0000✗#FFFFFF Ten gracz nie jest w poje?dzie", plr, 255, 255, 255, true)
return
end
local veh = getPedOccupiedVehicle(player)
if not veh then
outputChatBox("#FF0000✗#FFFFFF Ten gracz nie jest w poje?dzie", plr, 255, 255, 255, true)
return
end
fixVehicle(veh)
end
addCommandHandler("vfix", cmd_vfix)

function cmd_vflip(plr, cmd, target)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "mod_pojazdy") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if not player then return end
if not isPlayerInVehicle(player) then
outputChatBox("#FF0000✗#FFFFFF Ten gracz nie jest w poje?dzie", plr, 255, 0, 0)
return
end
local veh = getPedOccupiedVehicle(player)
if not veh then
outputChatBox("#FF0000✗#FFFFFF Ten gracz nie jest w poje?dzie", plr, 255, 0, 0)
return
end
local _,_,rz = getElementRotation(veh)
setElementRotation(veh, 0, 0, rz)
end
addCommandHandler("vflip", cmd_vflip)

function cmd_tpto(plr, cmd, target)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "tp") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if not player then return end
local x,y,z = getElementPosition(player)
setElementPosition(plr, x+1, y, z)
setElementAlpha(plr, 0)
end
addCommandHandler("tp", cmd_tpto)

function cmd_tphr(plr, cmd, target)
if not getElementData(plr, "user:aduty") then
outputChatBox("#FF0000✗#FFFFFF Nie jeste? zalogowany na duty.", plr,255,255,255,true)
return
end
if not doesHaveAdminPerms(plr, "tp") then
outputChatBox("#FF0000✗#FFFFFF Nie posiadasz uprawnie? do u?ycia tej komendy.", plr,255,255,255,true)
return
end
if not target then
outputChatBox("[#4286f4#KOMENDA#FFFFFF]: #eeeeee/"..cmd.." [ID/Nazwa gracza]", plr, 255, 255, 255, true)
return
end
local player = findPlayer(plr, target)
if not player then return end
local x,y,z = getElementPosition(plr)
setElementPosition(player, x+1, y, z)
end
addCommandHandler("th", cmd_tphr)