-- Copyright by Fanta @2014. Zachowaj autora !

local kratki={}
klatka = {}
local komenda = "klatka" -- komenda bez '/'

addCommandHandler(komenda, function(plr, cmd, target)
local accName = getAccountName ( getPlayerAccount ( plr ) ) 
     if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Admin" ) ) then 
    if not target then 
        outputChatBox("Uzyj: /klatka <nick gracza>")
        return
    end

    local cel=getPlayerFromName(target)
    if not cel then 
        outputChatBox("Nie ma takiego gracza.")
        return
    end

    local x,y,z=getElementPosition(cel)
    local dim=getElementDimension(cel)
    local int=getElementInterior(cel)

    if kratki[cel] then
        for i=1, #kratki[cel] do -- najoptymalniejsza petla
            if isElement(kratki[cel][i]) then
                destroyElement(kratki[cel][i])
            end
        end
        kratki[cel]=nil
    end

    kratki[cel]={}
    kratki[cel][1]=createObject(971, x, y, z-0.9, 270, 0, 180.0) -- O.K. Nie rusza?
    kratki[cel][2]=createObject(971, x, y, z+6, 270, 0, 180) -- O.K Nie rusza?
    kratki[cel][3]=createObject(971, x, y+3.5, z+2.5, 0, 0, 0) -- O.K. Nie rusza?
    kratki[cel][4]=createObject(971, x-4.5, y, z+2.5, 0, 0, 270) -- O.K. Nie rusza?
    kratki[cel][5]=createObject(971, x, y-3.5, z+2.5, 0, 0, 180) -- O.K. Nie rusza?
    kratki[cel][6]=createObject(971, x+4, y, z+2.5, 0, 0, 270) -- O.K. Nie rusza?
    table.insert ( klatka, kratki[cel][1] )
    table.insert ( klatka, kratki[cel][2] )
    table.insert ( klatka, kratki[cel][3] )
    table.insert ( klatka, kratki[cel][4] )
    table.insert ( klatka, kratki[cel][5] )
    table.insert ( klatka, kratki[cel][6] )
    

    setElementInterior(kratki[cel][1], int)
    setElementDimension(kratki[cel][1], dim)
    setElementInterior(kratki[cel][2], int)
    setElementDimension(kratki[cel][2], dim)
    setElementInterior(kratki[cel][3], int)
    setElementDimension(kratki[cel][3], dim)
    setElementInterior(kratki[cel][4], int)
    setElementDimension(kratki[cel][4], dim)
    setElementInterior(kratki[cel][5], int)
    setElementDimension(kratki[cel][5], dim)
    setElementInterior(kratki[cel][6], int)
    setElementDimension(kratki[cel][6], dim)
    outputChatBox("Stworzy?e?/a? klatk? wok?? gracza " .. getPlayerName(cel), plr)
    end
end)


-- Event

function zabezpieczenie()
        -- zabezpieczenie - jezeli zakratowano gracza, a on wyszedl.
    if kratki[source] then
        for i=1, #kratki[source] do
            if isElement(kratki[source][i]) then
                destroyElement(kratki[source][i])
            end
        end
        kratki[source]=nil
    end
end
addEventHandler("onPlayerQuit", root, zabezpieczenie)
addCommandHandler("klatkausun", zabezpieczenie)


addCommandHandler ( "usunklatke", function(plr)
for k,v in ipairs ( klatka ) do
local accName = getAccountName ( getPlayerAccount ( plr ) ) 
     if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Admin" ) ) then 
destroyElement ( v )
end
end
end)

addCommandHandler ( "usun", function ( plr, cmd, cel )
    gr = exports["core"]:partNick ( plr, cel )
    if gr then
        if kratki[gr] then
            for i=1, #kratki[gr] do -- najoptymalniejsza petla
                if isElement(kratki[gr][i]) then
                    destroyElement(kratki[gr][i])
                end
            end
        kratki[gr]=nil
        id = getElementData ( gr, "ID" )
        outputChatBox ( "Administrator "..getPlayerName ( plr ).." [ "..id.." ] uwolni? Ci?", gr, 255, 255, 255 )
        setElementData ( gr, "klatka", false )
        end
    end
end)