-- Decompiled using luadec 2.1 UNICODE r69 from http://code.google.com/p/luadec
-- Command line: noclone.luac

local l_0_0 = {}
local l_0_1 = {}
local l_0_2 = {}
local l_0_3 = {}
local l_0_4 = {}
 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

aaabcc = l_0_0
local l_0_5 = {}
local l_0_6 = {}
local l_0_7 = {}
local l_0_8 = {}
 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

 -- DECOMPILER ERROR: Unhandled construct in list (SETLIST)

l_0_4 = {l_0_5}
l_0_3 = {l_0_4}
l_0_2 = {l_0_3}
l_0_1 = {l_0_2}
cccbaa, l_0_0 = l_0_0, {l_0_1}
l_0_5 = {}
l_0_4 = {l_0_5}
l_0_3 = {l_0_4}
l_0_2 = {l_0_3}
l_0_6, l_0_5, l_0_4, l_0_3, l_0_2, l_0_1 = {}, {}, {}, {}, {}, {l_0_2}
bdayztogownopozdrowieniaodautora, l_0_0 = l_0_0, {l_0_1, l_0_2, l_0_3, l_0_4, l_0_5, l_0_6}
l_0_1 = {}
lol, l_0_0 = l_0_0, {l_0_1}
deads, l_0_0 = l_0_0, {}
deadShape, l_0_0 = l_0_0, {}
l_0_0 = function(l_1_0, l_1_1, l_1_2)
  if getElementData(source, "gang") == "HunterS" or getElementData(source, "gang") == "1337HS" then
    return false
  end
  local l_1_3, l_1_4, l_1_5 = getElementPosition(source)
  if deadShape[source] == nil then
    local l_1_6 = deadShape
    local l_1_7 = source
    l_1_6[l_1_7] = createColSphere(l_1_3, l_1_4, l_1_5, 10)
    l_1_6 = setTimer
    l_1_7 = removeClonedDeads
    l_1_6(l_1_7, 2000, 1, source)
  end
end

kilLDayZPlayer = l_0_0
l_0_0 = addEvent
l_0_1 = "kilLDayZPlayer"
l_0_2 = true
l_0_0(l_0_1, l_0_2)
l_0_0 = addEventHandler
l_0_1 = "kilLDayZPlayer"
l_0_2 = getRootElement
l_0_2 = l_0_2()
l_0_3 = kilLDayZPlayer
l_0_0(l_0_1, l_0_2, l_0_3)
l_0_0 = function(l_2_0)
  do
    local l_2_1 = getElementsWithinColShape(deadShape[l_2_0])
    deads[l_2_0] = {}
    for l_2_5,l_2_6 in pairs(l_2_1) do
      if getElementType(l_2_6) == "ped" then
        shape = getAttachedElements(l_2_6)
        for l_2_10,l_2_11 in pairs(shape) do
          if isElement(l_2_11) and getElementType(l_2_11) == "colshape" and getElementData(l_2_11, "playername") == getPlayerName(l_2_0) then
            table.insert(deads[l_2_0], l_2_11)
          end
        end
      end
    end
    if #deads[l_2_0] > 1 then
      i = 2
      for l_2_15 = 2, #deads[l_2_0] do
        destroyElement(deads[l_2_0][l_2_15])
        l_2_15 = l_2_15 + 1
      end
    end
    for l_2_19,l_2_20 in pairs(getElementsByType("player")) do
      if isInGroup(l_2_20, "Admin") or isInGroup(l_2_20, "Moderator") then
        if #deads[l_2_0] ~= 0 or not 0 then
          outputChatBox("KILL MONITOR: " .. getPlayerName(l_2_0) .. " | Liczba cial: " .. #deads[l_2_0] .. " | Usunieto cial: " .. #deads[l_2_0] - 1, l_2_20, 255, 255, 255, true)
        end
      end
      deads[l_2_0] = nil
      deadShape[l_2_0] = nil
    end
     -- WARNING: missing end command somewhere! Added here
  end
  -- WARNING: F->nextEndif is not empty. Unhandled nextEndif->addr = 114
end

removeClonedDeads = l_0_0
l_0_0 = function(l_3_0, l_3_1)
  local l_3_2 = getAccountName(getPlayerAccount(l_3_0))
  if isObjectInACLGroup("user." .. l_3_2, aclGetGroup(l_3_1)) then
    return true
  end
end

isInGroup = l_0_0
l_0_0 = addCommandHandler
l_0_1 = "noclone"
l_0_2 = function(l_4_0, l_4_1)
  outputChatBox("by dudeks antyclone system", l_4_0)
  outputChatBox("www: scary-dayz.pl", l_4_0)
end

l_0_0(l_0_1, l_0_2)