GTAONLINE.PL :: Administracja

BarteQ03,
function sprawdzRoota(login)
    plik = xmlLoadFile("@config/rooty.xml")
    if plik then
        local nodetable = xmlNodeGetChildren(plik)
        for i,nodexml in ipairs(nodetable) do
            if tostring(xmlNodeGetAttribute(nodexml, "login")) == login then
                 return true
            end
        end
        xmlUnloadFile(plik)
        return false    
    end
end

function sprawdzAdmina(login)
    plik = xmlLoadFile("@config/admini.xml")
    if plik then
        local nodetable = xmlNodeGetChildren(plik)
        for i,nodexml in ipairs(nodetable) do
            if tostring(xmlNodeGetAttribute(nodexml, "login")) == login then
                return true
            end
        end
        xmlUnloadFile(plik)
        return false
    end
end

function sprawdzModeratora(login)
    plik = xmlLoadFile("@config/moderatorzy.xml")
    if plik then
        local nodetable = xmlNodeGetChildren(plik)
        for i,nodexml in ipairs(nodetable) do
            if tostring(xmlNodeGetAttribute(nodexml, "login")) == login then
                 return true
            end
        end
        xmlUnloadFile(plik)
        return false        
    end
end

function sprawdzPojazd(value)
    plik = xmlLoadFile(":go-vehicles/config/pojazdy.xml")
    if plik then
        local nodetable = xmlNodeGetChildren(plik)
        for i,nodexml in ipairs(nodetable) do
            if tostring(xmlNodeGetAttribute(nodexml, "id")) == login then
                return xmlNodeGetAttribute(nodexml, "id")
            end
        end
        xmlUnloadFile(plik)
    end
end

-- KOMENDY DLA ROOTA
addCommandHandler("r", function(plr, cmd, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) then
        local text = table.concat(arg, " ")
        outputChatBox(">> "..text, getRootElement(), 255, 0, 0)
    end
end)

addCommandHandler("przeladuj", function(plr, cmd, value)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) then
        if not value then
            outputChatBox("U?yj: /przeladuj <nazwa zasobu>")
            return
        end
        restartResource(value)
    end
end)

addCommandHandler("frakcja", function(plr, cmd, target, value)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) then
        if (not target or not value) then
            outputChatBox("U?yj: /frakcja <id/nick> <id>", plr)
            return
        end
        
        local target = findPlayer(plr, target)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza o nicku " .. target, plr)
            return
        end
        
        setElementData(target, "gracz_frakcja", value)
        outputChatBox("* Doda?e? gracza do frakcji o id: ".. value, plr)
        outputChatBox("* Dodano ci? do frakcji o id: ".. value, target)
    end
end)

-- KOMENDY DLA ADMINA
addCommandHandler("a", function(plr, cmd, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzAdmina(login) then
        local text = table.concat(arg, " ")
        outputChatBox(">> "..text, getRootElement(), 0, 255, 255)
    end
end)

-- KOMENDY DLA MODERATORA
addCommandHandler("m", function(plr, cmd, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzModeratora(login) then
        local text = table.concat(arg, " ")
        outputChatBox(">> "..text, getRootElement(), 0, 255, 0)
    end
end)

-- KOMENDY DLA WSZYSTKICH
addCommandHandler("daj.kase", function(plr, cmd, target, value)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) then
        if (not target or not value) then
            outputChatBox("U?yj: /daj.kase <id/nick> <ilosc>", plr)
            return
        end
        
        local target = findPlayer(plr, target)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza o nicku ".. target, plr)
            return
        end
        
        givePlayerMoney(target, value)
    end
end)

addCommandHandler("wyrzuc", function(plr, cmd, target, powod)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) then
        if (not target or not powod) then
            outputChatBox("U?yj: /wyrzuc <id/nick> <powod>", plr)
            return
        end
        
        local target = findPlayer(plr, target)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza o nicku " .. target, plr)
            return
        end
    
        kickPlayer(target, plr, powod)
        outputChatBox("".. getPlayerName(target) .." zosta? wyrzucony przez: ".. getPlayerName(plr) ..", Pow?d: ".. powod .."", source, 255, 0, 0)
    end
end)

addCommandHandler("zbanuj", function(plr, cmd, target, powod)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not target or not powod) then
            outputChatBox("U?yj: /zbanuj <id/nick> <powod>", plr)
            return
        end
            
        local target = findPlayer(plr, target)
            
        if (not target) then
            outputChatBox("Nie znaleziono gracza o nicku " .. target, plr)
            return
        end
            
        banPlayer(target, plr, powod, czas)
        outputChatBox("".. getPlayerName(target) .." zosta? zbanowany przez: ".. getPlayerName(plr) ..", Pow?d: ".. powod .."", source, 255, 0, 0)
    end
end)

addCommandHandler("zabierz.prawko", function(plr, cmd, cel, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        local target = findPlayer(plr, cel)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza " .. cel,plr )
            return
        end
        
        local tresc = table.concat(arg, " ")
        local pojazd = getPedOccupiedVehicle(target)
        
        if (string.len(tresc)<=1) then
            outputChatBox("Wpisz tresc zabrania prawa jazdy!", plr)
            return
        end
        
        if (getPedOccupiedVehicle(target)) then
            removePedFromVehicle(target)
        end

        setElementData(target, "prawojazdy", 0)
        outputChatBox("Otrzyma?e? zakaz prowadzenia pojazd?w od: ".. getPlayerName(plr) .."!", target, 255, 0, 0)
        outputChatBox(getPlayerName(target) .. " otrzyma?/a zakaz prowadzenia pojazd?w kat. A/B/C od: " .. getPlayerName(plr) .. ": " .. tresc, getRootElement(), 255, 0, 0)
    end
end)

addCommandHandler("p", function(plr, cmd, model)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not model) then
            outputChatBox("U?yj: /p <model>", plr)
            return
        end
        
        local dim = getElementDimension(plr)
        local x,y,z = getElementPosition(plr)
        local r1,r2,r3 = getElementRotation(plr)
        local model = getVehicleModelFromName(model)
        
        if getPedOccupiedVehicle(plr) then
            setElementModel(getPedOccupiedVehicle(plr), model)
        else
            local pojazd = createVehicle(model, x, y, z, r1, r2, r3)
            warpPedIntoVehicle(plr, pojazd)
            setElementDimension(pojazd, dim)
        end
        
    end
end)

addCommandHandler("dim", function(plr, cmd, value)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not value) then
            outputChatBox("U?yj: /dim <numer>", plr)
            return
        end
        
        setElementDimension(plr, value)
    end
end)

--[[addCommandHandler("ac", function(plr, cmd, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        local text = table.concat(arg, " ")
        for i,v in ipairs(getElementsByType("player")) do
            outputChatBox("#000000AC> #FFFFFF"..getPlayerName(plr).. "(".. getElementData(plr, "id") .."): " .. text, v, 255, 255, 255, true)
            playSoundFrontEnd(plr, 12)
        end
    end
    end)--]]

addCommandHandler("jp", function(plr, cmd)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (isPedInVehicle(plr)) then
            removePedFromVehicle(plr)
        end
        if (doesPedHaveJetPack(plr)) then
            removePedJetPack(plr)
        else
            givePedJetPack(plr)
        end
    end
end)

addCommandHandler("up", function(plr, cmd, value)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (tonumber(value)==nil) then
            outputChatBox("U?yj: /up <ile>", plr)
            return
        end
    
        local e = plr
    
        if (isPedInVehicle(plr)) then
            e = getPedOccupiedVehicle(plr)
        end
    
        local x,y,z = getElementPosition(e)
        setElementPosition(e, x, y, z+tonumber(value))
    end
end)

addCommandHandler("thru", function(plr, cmd, value)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (tonumber(value)==nil) then
            outputChatBox("U?yj: /thru <ile>", plr)
            return
        end
    
        local e = plr
    
        if getCameraTarget(plr) ~= plr then
            e = getCameraTarget(plr)
        end
    
        if (isPedInVehicle(plr)) then
            e = getPedOccupiedVehicle(e)
        end
    
        local x,y,z = getElementPosition(e)
        local _,_,rz = getElementRotation(e)
    
        local rrz = math.rad(rz)
        local x = x + (value * math.sin(-rrz))
        local y = y + (value * math.cos(-rrz))
    
        setElementPosition(e, x, y, z)
    end
end)

addCommandHandler("fix", function(plr)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) then
        local pojazd = getPedOccupiedVehicle(plr)
        if not pojazd then
            outputChatBox("Musisz by? w poje?dzie!", plr)
            return
        end
        setElementHealth(pojazd, 1000)
        fixVehicle(pojazd)
    end
end)

addCommandHandler("tt", function(plr, cmd, target)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not target) then
            outputChatBox("U?yj: /tt <id/nick", plr)
            return
        end
        
        local target = findPlayer(plr, target)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza o nicku " .. target, plr)
            return
        end
        local x,y,z = getElementPosition(target)
        if (isPedInVehicle(plr)) then
            removePedFromVehicle(plr)
        end
        setPedAnimation(plr)
        setElementAlpha(plr, 0)
        setElementDimension(plr, getElementDimension(target))
        setElementInterior(plr, getElementInterior(target))
        setElementPosition(plr, x+math.random(-3,3), y+math.random(-3,3), z+math.random(0,3))
    end
end)

addCommandHandler("th", function(plr, cmd, target)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not target) then
            outputChatBox("U?yj: /th <id/nick>", plr)
            return
        end
        
        local target = findPlayer(plr, target)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza o nicku " .. target, plr)
            return
        end
        local x,y,z = getElementPosition(plr)
        if (isPedInVehicle(target)) then
            removePedFromVehicle(target)
        end
        
        fadeCamera(target, true)
        setElementDimension(target, getElementDimension(plr))
        setElementInterior(target, getElementInterior(plr))
        setElementPosition(target, x+(math.random(-1,1)/5), y+(math.random(-1,1)/5), z+(math.random(0,10)/10))
    end
end)

addCommandHandler("heal", function(plr, cmd, cel)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not cel) then
            outputChatBox("U?yj: /heal <id/nick", plr)
            return
        end
        
        local target = findPlayer(plr, cel)
        
        if (not target) then
            outputChatBox("Nie znaleziono gracza o podanym ID/nicku!", plr)
            return
        end
        
        setElementHealth(target, 100)
        outputChatBox("* Uleczono gracza ".. getPlayerName(target), plr)
        outputChatBox("(( Zosta?e? uleczony/a. ))", target)
    end
end)

addCommandHandler("spec", function(plr, cmd, cel)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (not cel) then
            outputChatBox("U?yj: /spec <id/nick", plr)
            return
        end
        
        local target = findPlayer(plr, cel)
    
        if (not target) then
            outputChatBox("Nie znaleziono gracza o podanym ID/nicku!", plr)
            return
        end
    
        removePedFromVehicle(plr)
        setElementInterior(plr, getElementInterior(target))
        setElementDimension(plr, getElementDimension(target))
        setElementPosition(plr, -244.21, 2602.04, 62.70)
        setCameraTarget(plr, target)
    end
end)
    
addCommandHandler("specoff", function(plr, cmd)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        setElementPosition(plr, -244.21, 2602.04, 62.70)
        setCameraTarget(plr, plr)
    end
end)

addCommandHandler("inv", function(plr)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        if (getElementAlpha(plr)>0) then
            setElementAlpha(plr, 0)
        else
            setElementAlpha(plr, 255)
        end
    end
end)

addCommandHandler("invveh", function(plr)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        local plr = getPedOccupiedVehicle(plr)
        if not plr then return end
        if (getElementAlpha(plr)>0) then
            setElementAlpha(plr,0)
        else
            setElementAlpha(plr,255)
        end
    end
end)

addCommandHandler("warn", function(plr,cmd,cel, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        local target = findPlayer(plr, cel)
        if (not target) then
            outputChatBox("Nie znaleziono gracza " .. cel,plr )
            return
        end
        local tresc = table.concat(arg, " ")
        if (string.len(tresc)<=1) then
            outputChatBox("Wpisz tresc ostrzezenia!", plr)
            return
        end
        triggerClientEvent("onPlayerWarningReceived", target, tresc)
        outputChatBox(getPlayerName(target) .. " otrzymal ostrzezenie od " .. getPlayerName(plr) .. ", pow?d: " .. tresc, getRootElement(), 255, 0, 0)
    end
end)

addCommandHandler("vopis", function(plr, cmd, ...)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) or sprawdzAdmina(login) or sprawdzModeratora(login) then
        local opis = table.concat(arg, " ")
        if (string.len(opis)<3) then
            outputChatBox("U?yj: /vopis <opis>, lub /vopis usun", plr)
            return
        end
    
        local pojazd = getPedOccupiedVehicle(plr)
    
        if (not pojazd) then
            outputChatBox("Musisz by? w poje?dzie w kt?rym chcesz zmieni? opis.", plr, 255, 0, 0)
            return
        end
    
        if (opis=="usun" or opis=="USUN") then
            removeElementData(pojazd, "pojazd_opis")
        else
            setElementData(pojazd, "pojazd_opis", opis)
        end
    end
end)

addCommandHandler("thv", function(plr, cmd, vid)
    local login = getAccountName ( getPlayerAccount ( plr ) )
    if sprawdzRoota(login) then
    if not tonumber(vid) then return end
    for i,v in ipairs(getElementsByType("vehicle")) do
    if getElementData(v, "car_id") == tonumber(vid) then
                local x,y,z = getElementPosition(plr)
                setElementFrozen(v, false)
                warpPedIntoVehicle(plr, v)
                setElementPosition(v, x,y,z)
                setElementInterior(v, getElementInterior(plr))
                setElementDimension(v, getElementDimension(plr))
                return
            end
          end
         end
         outputChatBox("* Nie masz praw do ten kom?dy lub nie znaleziono auta o takim ID!", plr, 255, 0, 0)
    end)
    
    
    addCommandHandler ( "admins", function ( plr, cmd )
    admini = {}
    support = {}
    super = {}
    for _,v in ipairs ( getElementsByType ( "player" ) ) do
        if isObjectInACLGroup ( "user."..getAccountName(getPlayerAccount(v)), aclGetGroup ( "RCON" ) ) then
        nick = "#ff0000#FFFFFF "..getPlayerName ( v ).."("..getElementData(v,"id")..")"
            table.insert ( admini, nick )
        end
    end
    outputChatBox ( "RCONi: ", plr, 128,0,0 )
    --outputChatBox ( " ", plr, 255, 255, 0 )
    if #admini > 0 then
        c = table.concat ( admini, ", " )
        outputChatBox ( c, plr, 255, 255, 255, true )
    else
        outputChatBox ( "Brak", plr )
    end
    -------------RCON
        for _,v in ipairs ( getElementsByType ( "player" ) ) do
        if isObjectInACLGroup ( "user."..getAccountName(getPlayerAccount(v)), aclGetGroup ( "Admin2" ) ) then
        nick = "#ff0000#FFFFFF "..getPlayerName ( v ).."("..getElementData(v,"id")..")"
            table.insert ( support, nick )
        end
    end
    outputChatBox ( " ", plr, 255, 255, 0 )
    outputChatBox ( "#ff9900Administratorzy:", plr, 255,0,0, true )
    --outputChatBox ( " ", plr, 0, 255, 255, true )
    if #support > 0 then
        c = table.concat ( support, ", " )
        outputChatBox ( c, plr, 255, 255, 255, true )
    else
        outputChatBox ( "Brak", plr )
    end
    -------------Admin
            for _,v in ipairs ( getElementsByType ( "player" ) ) do
            if isObjectInACLGroup ( "user."..getAccountName(getPlayerAccount(v)), aclGetGroup ( "Moderator" ) ) then
            nick = "#ff0000#FFFFFF "..getPlayerName ( v ).."("..getElementData(v,"id")..")"
            table.insert ( super, nick )
        end
    end
    outputChatBox ( " ", plr, 255, 255, 0 )
    outputChatBox ( "#0EC711Moderatorzy:", plr, 0, 255, 255, true )
    --outputChatBox ( " ", plr, 0, 255, 255, true )
    if #super > 0 then
        c = table.concat ( super, ", " )
        outputChatBox ( c, plr, 255, 255, 255, true )
    else
        outputChatBox ( "Brak", plr )
    end
    -------------Mods
end)