addCommandHandler("alkomat",function( player, cmd, nick )
local accName = getAccountName ( getPlayerAccount ( player ) )
if isObjectInACLGroup ("user."..accName, aclGetGroup ( "LVPD" ) ) then
if nick then
local who = getPlayerFromName(nick)
local alkomat = getElementData(who,"alkomat")
outputChatBox("Gracz "..nick.." posiada "..alkomat.." promili alkoholu",player)
outputChatBox("Posiadasz "..alkomat.." promili alkoholu",who)
else
outputChatBox("U?yj /alkomat <nick>",player)
end
end
end)

function partNick ( plr, txt )
    osoby = {}
    gracz = txt and txt:gsub("#%x%x%x%x%x%x", ""):lower() or nil
    for _,v in ipairs ( getElementsByType ( "player" ) ) do
        gracz_ = getPlayerName(v):gsub("#%x%x%x%x%x%x", ""):lower()
        if gracz_:find(gracz, 1, true) then
            table.insert ( osoby, v )
            name = v
        end
    end
    if #osoby > 1 then
        return outputChatBox ( "Znaleziono wi?cej ni? 1 gracza!", plr )
    end
    if #osoby == 0 then
        outputChatBox ( "Nie znaleziono ?adnego gracza!", plr ) return false
    end
    return name
end

function sprawdz_alkomat ( plr, cmd, nick )
    local gracz = partNick ( plr, nick)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup( "user."..accName, aclGetGroup( "LVPD" )) then
        if cmd and nick then
            local gracza = getPlayerFromName( gracz )
            local promil = getElementData( gracza, "alkomat" )
            outputChatBox("Gracz "..gracz.." posiada "..promil.." promili alkoholu",plr)
            outputChatBox("Posiadasz "..promil.." promili alkoholu",gracza)
        else
        outputChatBox( "U?yj /alkomat [nick] !" plr, 255, 0, 0 )
    else
    outputChatBox( "Nie jeste? Policjantem !" plr, 255, 0, 0 )
end
end
addCommandHandler( "alkomat", sprawdz_alkomat)