Mod TFS 0.X [TFS] New Auto Loot Unlimited Edition 2.0

[Vodkart 2155]

[ + ] Descrição: Autoloot refeito para VERSÃO TFS e adicionado algumas outras funções que estarei explicando ao decorrer do tópico.

 

[ + ] Se você quer o Autoloot para VERSÃO OTX clica neste Link: AUTOLOOT OTX

 

 

 

 

[ + ] Imagem do comando:

 

 

[ + ] Features:

 

[ - ] Você pode ativar ou desativar o autoloot a hora que achar necessário.

[ - ] Também existe um comando para ativar ou desativar mensagens do loot que o autoloot coleta!

[ - ] Você pode escolher a cor do texto em que irá aparecer a coleta do loot!

[ - ] O autoloot informará para você se estiver com pouco slots na sua backpack, e o jogador poderá escolher se quer habilitar ou não está função no autoloot.

[ - ] Versão ilimitada de itens(não ficam armazenadas em storages).

[ - ] O jogador poderá optar por depositar direto no banco os golds que forem dropados.

 

[ + ] Instalação:

 

Primeiramente CRIE uma PASTA VAZIA chamanda "autoloot" em DATA/LOGS, ficando assim:

 

 

 

Depois instale o MODS normalmente na pasta MODS do seu servidor.

 

 

 

new_perfect_autoloot_tfs.xml

 

Link: https://pastebin.com/raw/0xJR4nwr

 

 

 [ + ] Configuração:

 

Dentro do mods tem essa tabela

info = {
	distro = 1, -- 1 = TFS // 2 = talk modificada
	directory = "data/logs/autoloot", -- não mexer
	Warn_Bp_Slots = 5, -- quando tiver 5 ou menos slots na BP vai avisar o jogador
	Talkaction_delay = 5, -- em segundos // delay para remover e adicionar item
	BlockMonsters = {}, -- Lista de monstros que o autoloot nao vai funcionar 
	BlockItemsList = {2123,2515}, -- Lista de itens que o autoloot nao coleta
	Money_ids = {2148, 2152, 2160}, -- id das moedas do ot
	Max_Slots = {free = 3, premium = 5}, -- quantidade de itens que podem ser adicionados no autoloot por free e premium
	Storages = {988801, 988802, 988803, 988804, 988805, 988806, 988807} -- não mexer
}

 

Sobre o distro = 1

 

Isso significa que ele usa versão padrão (1), pois existem 2 versões, caso aconteça esse error no seu console ao usar a talkaction do autoloot:

 

[8/10/2020 19:19:58] [Error - TalkAction Interface]
[8/10/2020 19:19:58] local words = "!autoloot"
(...)
[8/10/2020 19:19:59] return true
[8/10/2020 19:19:59] Description: 
[8/10/2020 19:19:59] (LuaInterface::luaGetItemIdByName) Item not found

 

Você deverá colocar:

 

distro = 2

 

Pq? acontece que em alguns servidores não reconhecem o parâmetro "false" da função "getItemIdByName"

 

OBS: Estarei anexando o autoloot já atualizado na versão 2.0 para quem tiver preguiça de copiar e colar!!

 

 

 

new_perfect_autoloot_tfs.xml

Editado Janeiro 17, 2021 por Vodkart (veja o histórico de edições)

[Belmont 141]

@Vodkart Tópico aprovado. Obrigado pela contribuição!

[diarmaint 67]

Funciona em OTX?

[Vodkart 2155]

1 hora atrás, diarmaint disse:

Funciona em OTX?

 

O autoloot para OTX se encontra nesse tópico:

 

 

[diarmaint 67]

23 minutos atrás, Vodkart disse:

 

O autoloot para OTX se encontra nesse tópico:

 

 

Não tinha visto..
Valeu! Funcionando 100%

[Vodkart 2155]

@diarmaint Valeu mano!

[Standard 2]

Vodkart, o loot vai para quem da o último hit, não tem uma maneira de colocar para quem realmente ganha o loot ?

[Vodkart 2155]

7 horas atrás, Standard disse:

Vodkart, o loot vai para quem da o último hit, não tem uma maneira de colocar para quem realmente ganha o loot ?

 

Você diz fazer pelo onDeath? dá sim.

[Standard 2]

10 horas atrás, Vodkart disse:

 

Você diz fazer pelo onDeath? dá sim.

 

Exato, eu tentei com deathList[2] e deathList[1] mas não tive sucesso, não sei se faltou usar alguma função junto, o deathList[1] funcionou mas o deathList[2] não...

Editado Outubro 12, 2020 por Standard (veja o histórico de edições)

[Vodkart 2155]

1 hora atrás, Standard disse:

 

Exato, eu tentei com deathList[2] e deathList[1] mas não tive sucesso, não sei se faltou usar alguma função junto, o deathList[1] funcionou mas o deathList[2] não...

No caso tem que mudar a função main e adaptar o código para registrar o evento no monstro, ai você mudaria o onKill para onDeath, compreende? se quiser posso fazer essa alteração p/ via PM ou discord

[Standard 2]

51 minutos atrás, Vodkart disse:

No caso tem que mudar a função main e adaptar o código para registrar o evento no monstro, ai você mudaria o onKill para onDeath, compreende? se quiser posso fazer essa alteração p/ via PM ou discord

 

Mandei PM para você, eu fiz exatamente o que você falou, e expliquei os detalhes na PM

[Orientalz 1]

Também queria deixar igual do lek ai de cima, pro loot ir pra quem matar o monstro e não pra quem der o ultimo hit, poderia me ajudar?

Editado Outubro 31, 2020 por Orientalz (veja o histórico de edições)

[Vodkart 2155]

1 hora atrás, Orientalz disse:

Também queria deixar igual do lek ai de cima, pro loot ir pra quem matar o monstro e não pra quem der o ultimo hit, poderia me ajudar?

 

manda PM ou me adc no discord que eu passo a versão alterada

[LeoTK 795]

@Vodkart posta no tópico essa versão anexada em xml ou lua  

[Orientalz 1]

Como adiciona os monstros, eu coloco
    BlockMonsters = {nome, nome, nome, nome},

 

e ta dando erro

[Vodkart 2155]

 

16 horas atrás, Orientalz disse:

Também queria deixar igual do lek ai de cima, pro loot ir pra quem matar o monstro e não pra quem der o ultimo hit, poderia me ajudar?

 

Link: https://pastebin.com/raw/1ied0FbM

 

9 horas atrás, Orientalz disse:

Como adiciona os monstros, eu coloco
    BlockMonsters = {nome, nome, nome, nome},

 

e ta dando erro

 

se usa com aspas, por exemplo

 

BlockMonsters = {"demon","hydra","rat"},

 

[Nysman 41]

Removido!

Editado Novembro 1, 2020 por Nysman (veja o histórico de edições)

[Orientalz 1]

18 horas atrás, Vodkart disse:

 

Link: https://pastebin.com/raw/1ied0FbM

 O meu eu tinha feito umas modificações, tem como tu da uma olhada (tentei remover alguns recursos). E nessa alteração que vc fez, como eu posso implementar nesse autoloot que estou usando: https://pastebin.com/46MFSvGx

[Nysman 41]

28 minutos atrás, Orientalz disse:

 O meu eu tinha feito umas modificações, tem como tu da uma olhada (tentei remover alguns recursos). E nessa alteração que vc fez, como eu posso implementar nesse autoloot que estou usando: https://pastebin.com/46MFSvGx

Pronto:

Spoiler

<?xml version="1.0" encoding="ISO-8859-1"?>
<mod name="Perfect Auto Loot" version="1.0" author="Vodkart" contact="none.com" enabled="yes">
<config name="Loot_func"><![CDATA[

info = {
    distro = 1, -- 1 = TFS // 2 = talk modificada
    directory = "data/logs/autoloot",
    Talkaction_delay = 5, -- em segundos // delay para remover e adicionar item
    BlockMonsters = {},
    BlockItemsList = {6541},
    Money_ids = {2148, 2152, 2160}, -- id das moedas do ot
    Max_Slots = {free = 3, premium = 5},
    Storages = {988801, 988802, 988803, 988804, 988805, 988805, 988806}
}

Color_Loot = {
           [0] = {MESSAGE_EVENT_ORANGE, "Orange"},
           [1] = {MESSAGE_STATUS_CONSOLE_BLUE, "Blue"},
           [2] = {MESSAGE_INFO_DESCR, "Green"},
           [3] = {MESSAGE_STATUS_CONSOLE_RED, "Red"},
           [4] = {MESSAGE_STATUS_SMALL, "White"}
}

function getPlayerColorLootMessage(cid)
    return getPlayerStorageValue(cid, info.Storages[5]) <= 0 and 0 or getPlayerStorageValue(cid, info.Storages[5])
end
function isInTable(cid, item)
    for _,i in pairs(getItensFromAutoloot(cid)) do
        if tonumber(i) == tonumber(item) then
            return true
        end
    end
    return false
end
function doremoveItemFromAutoloot(cid, itemid)
    local file, fileContent = io.open(info.directory.."/"..getCreatureName(cid)..".txt", 'r'),{}
    for line in file:lines() do
     if line ~= "" and tonumber(line) ~= tonumber(itemid) then
             fileContent[#fileContent + 1] = line
        end
    end
    io.close(file)
    file = io.open(info.directory.."/"..getCreatureName(cid)..".txt", 'w')
    for index, value in ipairs(fileContent) do
    file:write(value..'\n')
    end
    io.close(file)
end
function doAddItemFromAutoloot(cid, itemid)
         if not existsAutoloot(cid) then
            doCreateLootUserName(cid, itemid) return true
         end 
         local file = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "a+")                            
         file:write('\n'..itemid)
         file:close()
end
function existsAutoloot(cid)
  local f = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "rb")
  if f then f:close() end
  return f ~= nil
end
function doCreateLootUserName(cid, itemid)
    newFile = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "w+" )
    newFile:write(itemid)
    newFile:close()
end
function getItensFromAutoloot(cid)
  if not existsAutoloot(cid) then return {} end
  lines = {}
  for line in io.lines(info.directory.."/"..getCreatureName(cid)..".txt") do
      if line ~= "" then
              lines[#lines + 1] = tonumber(line)
      end
  end
  return lines
end
function doCleanAutoloot(cid)
return os.remove(info.directory.."/"..getCreatureName(cid)..".txt")
end
function ShowItemsTabble(cid)
    local auto_list = getItensFromAutoloot(cid)    
    local n,str = 0,"[+] Auto Loot Commands [+]\n\n!autoloot item name --> Para adicionar ou remover item da lista.\n!autoloot money --> Para coletar gold automaticamente.\n!autoloot clear --> Para limpar a lista.\n\n[+] Auto Loot Info [+]\n\nSystem: "..(getPlayerStorageValue(cid, info.Storages[1]) <= 0 and "Activated" or "Disabled")..".\nGold Collecting: "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "Disabled")..".\nMessage: "..(getPlayerStorageValue(cid, info.Storages[6]) <= 0 and "Activated" or "Disabled")..".\nMaximum Slots: ["..#auto_list.."/"..(isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free).."]\n\n[+] Auto Loot Slots [+]\n\n"
    if #auto_list > 0 then
        for i = 1, #auto_list do
            n = n + 1
            str = str.."Slot "..n.." - "..getItemNameById(auto_list[i]).."\n"
        end
    end
    return doPlayerPopupFYI(cid, str)
end
function getContainerItems(container, array, haveCap)
    array = array or {}
    haveCap = haveCap or false
    if not isContainer(container.uid) or getContainerSize(container.uid) == 0 then
        array[#array +1] = container
    else
        local size = getContainerSize(container.uid)
        haveCap = (getContainerCap(container.uid) -size) > 0
        for slot = 0, (size -1) do
            local item = getContainerItem(container.uid, slot)
            if item.itemid > 1 then
                getContainerItems(item, array, haveCap)
            end
        end
    end
    return #array >= 1 and array, haveCap
end
function getContainerItemsById(container, itemid)
    local founds = {}
    local items = not container.uid and container or getContainerItems(container)
    for index, item in pairs(items) do
        if item.itemid == itemid then
            founds[#founds +1] = item
        end
    end
    return #founds >= 1 and founds
end
function getAllContainerFree(container) -- by vodka
    local containers,soma = {},0
    for i = 0, getContainerSize(container)-1 do
        local item = getContainerItem(container, i)
        if isContainer(item.uid) then
            table.insert(containers, item.uid)
        end
    end
    for _, check in pairs(containers) do
        soma = soma + getContainerSlotsFree(check)    
    end
    return (soma + getContainerSlotsFree(container))
end
function getContainerSlotsFree(container) -- by vodka
         return getContainerCap(container)-getContainerSize(container)
end
function doPlayerAddItemStackable(cid, itemid, count)
    local container = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
    if container.itemid > 1 then
        local items = getContainerItemsById(container, itemid)
        if not items then
            return doPlayerAddItem(cid, itemid, count)
        else
            local piles = #items
            for index, item in pairs(items) do
                if item.type < 100 then
                    local sum = item.type + count
                    local result = doTransformItem(item.uid, itemid, sum)
                    if sum <= 100 then
                        return result
                    else
                        return doPlayerAddItem(cid, itemid, sum - 100)
                    end
                else
                    piles = piles - 1
                    if piles == 0 then
                        return doPlayerAddItem(cid, itemid, count)
                    end
                end
            end
        end
    end
    return false
end
function corpseRetireItems(cid, pos)
    local check, slots = false, 0
    for i = 0, 255 do
        pos.stackpos = i
        tile = getTileThingByPos(pos)
        if tile.uid > 0 and isCorpse(tile.uid) then
            check = true break
        end
    end
    if check == true then
        local str, var = "", getContainerItems(tile)
        if var then
            local list = getItensFromAutoloot(cid)
            for _, item in pairs(var) do
                local id = item.itemid
                if #list > 0 and isInArray(list, id) or getPlayerStorageValue(cid, info.Storages[2]) > 0 and isInArray(info.Money_ids, id) then
                    local info = getItemInfo(id)
                    local amount = isItemStackable(id) and item.type or 1
                    local total_cap = getItemWeight(item.uid)*amount
                    if getPlayerSlotItem(cid, 3).itemid ~= 0 then
                        slots = getAllContainerFree(getPlayerSlotItem(cid, 3).uid)
                    end
                    if slots > 0 and getPlayerFreeCap(cid) >= total_cap then
                        if isItemStackable(id) then
                            str = str.." "..amount.." "..(amount > 1 and info.plural or info.name)..","
                            doPlayerAddItemStackable(cid, id, amount)
                            if isInArray(info.Money_ids, id) and getPlayerStorageValue(cid, info.Storages[4]) > 0 then
                            end
                        else
                            str = str.." ".. info.article.." " .. info.name ..","
                            doPlayerAddItem(cid, id)
                        end 
                        doRemoveItem(item.uid)    
                    end
                end
            end
        end
    end
end
function ExistItemByName(name) -- by vodka
    local items = io.open("data/items/items.xml", "r"):read("*all")
    local get = items:lower():match('name="' .. name:lower() ..'"')
    if get == nil or get == "" then
        return false
    end
return true
end
]]></config>
<event type="login" name="LootLogin" event="script"><![CDATA[
domodlib('Loot_func')
function onLogin(cid)
    registerCreatureEvent(cid, "LootEventKIll")
    if isPremium(cid) and getPlayerStorageValue(cid, 853608) <= 0 then
        setPlayerStorageValue(cid, 853608, 1)
    elseif getPlayerStorageValue(cid, 853608) > 0 and not isPremium(cid) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Auto Loot] You premium is Over, Start a new list!")
        setPlayerStorageValue(cid, 853608, -1)
        doCleanAutoloot(cid)
    end
    return true
end]]></event>
<event type="kill" name="LootEventKIll" event="script"><![CDATA[
domodlib('Loot_func')
function onDeath(cid, corpse, deathList)
    if isMonster(cid) then        
     addEvent(corpseRetireItems, 0, getThingPos(cid))
    end
    return true
end]]></event>
<talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
domodlib('Loot_func')
local param, slots = param:lower(), isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free
if not param or param == "" then
    ShowItemsTabble(cid) return true
elseif tonumber(param) then
    doPlayerSendCancel(cid, "enter commands: !autoloot item name [+] !autoloot clean [+] !autoloot money [+] !autoloot on/off") return true
elseif isInArray({"clean","limpar", "clear"}, param) then
    if existsAutoloot(cid) then doCleanAutoloot(cid) end
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Auto Loot] Your list has been cleaned.") return true
elseif isInArray({"start","stop","on","off"}, param) then
    setPlayerStorageValue(cid, info.Storages[1], getPlayerStorageValue(cid, info.Storages[1]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot "..(getPlayerStorageValue(cid, info.Storages[1]) > 0 and "Stopped" or "Started")..".") return true
elseif isInArray({"mensagem","message","mensagen","msg"}, param) then
    setPlayerStorageValue(cid, info.Storages[6], getPlayerStorageValue(cid, info.Storages[6]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Message "..(getPlayerStorageValue(cid, info.Storages[6]) > 0 and "disabled" or "Activated")..".") return true
elseif isInArray({"money","gold","gps","dinheiro"}, param) then
    setPlayerStorageValue(cid, info.Storages[2], getPlayerStorageValue(cid, info.Storages[2]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Gold Colleting "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "disabled")..".") return true
end
if info.distro ~= 1 then
    item = ExistItemByName(tostring(param))
    if not item then
        doPlayerSendCancel(cid, "This item does not exist.") return true
    end
    item = getItemIdByName(tostring(param))
else
    item = getItemIdByName(param, false)
    if not item then
        doPlayerSendCancel(cid, "This item does not exist.") return true
    end
end
local var = isInTable(cid, item)
if isInArray(info.Money_ids, item) then 
    doPlayerSendTextMessage(cid, MESSAGE_FIRST, "Enter !autoloot money to add money in your list!") return true    
elseif isInArray(info.BlockItemsList, item) then
    doPlayerSendCancel(cid, "You can not add this item in the list!") return true
elseif not var and #getItensFromAutoloot(cid) >= slots then
    doPlayerSendCancel(cid, "max "..slots.." from auto loot") return true
elseif getPlayerStorageValue(cid, info.Storages[7]) - os.time() > 0 then
        doPlayerSendCancel(cid, "wait a second to use this command again") return true
end
if not var then
    doAddItemFromAutoloot(cid, item)
else
    doremoveItemFromAutoloot(cid, item)
end
setPlayerStorageValue(cid, info.Storages[7], os.time()+info.Talkaction_delay)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,not var and "Voce adicionou o item "..param.." em sua lista" or "Voce removeu o item "..param.." de sua lista.")
return true]]></talkaction>
</mod>

 

[Orientalz 1]

 

Em 01/11/2020 em 17:44, Nysman disse:

Pronto:

  Mostrar conteúdo oculto

<?xml version="1.0" encoding="ISO-8859-1"?>
<mod name="Perfect Auto Loot" version="1.0" author="Vodkart" contact="none.com" enabled="yes">
<config name="Loot_func"><![CDATA[

info = {
    distro = 1, -- 1 = TFS // 2 = talk modificada
    directory = "data/logs/autoloot",
    Talkaction_delay = 5, -- em segundos // delay para remover e adicionar item
    BlockMonsters = {},
    BlockItemsList = {6541},
    Money_ids = {2148, 2152, 2160}, -- id das moedas do ot
    Max_Slots = {free = 3, premium = 5},
    Storages = {988801, 988802, 988803, 988804, 988805, 988805, 988806}
}

Color_Loot = {
           [0] = {MESSAGE_EVENT_ORANGE, "Orange"},
           [1] = {MESSAGE_STATUS_CONSOLE_BLUE, "Blue"},
           [2] = {MESSAGE_INFO_DESCR, "Green"},
           [3] = {MESSAGE_STATUS_CONSOLE_RED, "Red"},
           [4] = {MESSAGE_STATUS_SMALL, "White"}
}

function getPlayerColorLootMessage(cid)
    return getPlayerStorageValue(cid, info.Storages[5]) <= 0 and 0 or getPlayerStorageValue(cid, info.Storages[5])
end
function isInTable(cid, item)
    for _,i in pairs(getItensFromAutoloot(cid)) do
        if tonumber(i) == tonumber(item) then
            return true
        end
    end
    return false
end
function doremoveItemFromAutoloot(cid, itemid)
    local file, fileContent = io.open(info.directory.."/"..getCreatureName(cid)..".txt", 'r'),{}
    for line in file:lines() do
     if line ~= "" and tonumber(line) ~= tonumber(itemid) then
             fileContent[#fileContent + 1] = line
        end
    end
    io.close(file)
    file = io.open(info.directory.."/"..getCreatureName(cid)..".txt", 'w')
    for index, value in ipairs(fileContent) do
    file:write(value..'\n')
    end
    io.close(file)
end
function doAddItemFromAutoloot(cid, itemid)
         if not existsAutoloot(cid) then
            doCreateLootUserName(cid, itemid) return true
         end 
         local file = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "a+")                            
         file:write('\n'..itemid)
         file:close()
end
function existsAutoloot(cid)
  local f = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "rb")
  if f then f:close() end
  return f ~= nil
end
function doCreateLootUserName(cid, itemid)
    newFile = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "w+" )
    newFile:write(itemid)
    newFile:close()
end
function getItensFromAutoloot(cid)
  if not existsAutoloot(cid) then return {} end
  lines = {}
  for line in io.lines(info.directory.."/"..getCreatureName(cid)..".txt") do
      if line ~= "" then
              lines[#lines + 1] = tonumber(line)
      end
  end
  return lines
end
function doCleanAutoloot(cid)
return os.remove(info.directory.."/"..getCreatureName(cid)..".txt")
end
function ShowItemsTabble(cid)
    local auto_list = getItensFromAutoloot(cid)    
    local n,str = 0,"[+] Auto Loot Commands [+]\n\n!autoloot item name --> Para adicionar ou remover item da lista.\n!autoloot money --> Para coletar gold automaticamente.\n!autoloot clear --> Para limpar a lista.\n\n[+] Auto Loot Info [+]\n\nSystem: "..(getPlayerStorageValue(cid, info.Storages[1]) <= 0 and "Activated" or "Disabled")..".\nGold Collecting: "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "Disabled")..".\nMessage: "..(getPlayerStorageValue(cid, info.Storages[6]) <= 0 and "Activated" or "Disabled")..".\nMaximum Slots: ["..#auto_list.."/"..(isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free).."]\n\n[+] Auto Loot Slots [+]\n\n"
    if #auto_list > 0 then
        for i = 1, #auto_list do
            n = n + 1
            str = str.."Slot "..n.." - "..getItemNameById(auto_list[i]).."\n"
        end
    end
    return doPlayerPopupFYI(cid, str)
end
function getContainerItems(container, array, haveCap)
    array = array or {}
    haveCap = haveCap or false
    if not isContainer(container.uid) or getContainerSize(container.uid) == 0 then
        array[#array +1] = container
    else
        local size = getContainerSize(container.uid)
        haveCap = (getContainerCap(container.uid) -size) > 0
        for slot = 0, (size -1) do
            local item = getContainerItem(container.uid, slot)
            if item.itemid > 1 then
                getContainerItems(item, array, haveCap)
            end
        end
    end
    return #array >= 1 and array, haveCap
end
function getContainerItemsById(container, itemid)
    local founds = {}
    local items = not container.uid and container or getContainerItems(container)
    for index, item in pairs(items) do
        if item.itemid == itemid then
            founds[#founds +1] = item
        end
    end
    return #founds >= 1 and founds
end
function getAllContainerFree(container) -- by vodka
    local containers,soma = {},0
    for i = 0, getContainerSize(container)-1 do
        local item = getContainerItem(container, i)
        if isContainer(item.uid) then
            table.insert(containers, item.uid)
        end
    end
    for _, check in pairs(containers) do
        soma = soma + getContainerSlotsFree(check)    
    end
    return (soma + getContainerSlotsFree(container))
end
function getContainerSlotsFree(container) -- by vodka
         return getContainerCap(container)-getContainerSize(container)
end
function doPlayerAddItemStackable(cid, itemid, count)
    local container = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
    if container.itemid > 1 then
        local items = getContainerItemsById(container, itemid)
        if not items then
            return doPlayerAddItem(cid, itemid, count)
        else
            local piles = #items
            for index, item in pairs(items) do
                if item.type < 100 then
                    local sum = item.type + count
                    local result = doTransformItem(item.uid, itemid, sum)
                    if sum <= 100 then
                        return result
                    else
                        return doPlayerAddItem(cid, itemid, sum - 100)
                    end
                else
                    piles = piles - 1
                    if piles == 0 then
                        return doPlayerAddItem(cid, itemid, count)
                    end
                end
            end
        end
    end
    return false
end
function corpseRetireItems(cid, pos)
    local check, slots = false, 0
    for i = 0, 255 do
        pos.stackpos = i
        tile = getTileThingByPos(pos)
        if tile.uid > 0 and isCorpse(tile.uid) then
            check = true break
        end
    end
    if check == true then
        local str, var = "", getContainerItems(tile)
        if var then
            local list = getItensFromAutoloot(cid)
            for _, item in pairs(var) do
                local id = item.itemid
                if #list > 0 and isInArray(list, id) or getPlayerStorageValue(cid, info.Storages[2]) > 0 and isInArray(info.Money_ids, id) then
                    local info = getItemInfo(id)
                    local amount = isItemStackable(id) and item.type or 1
                    local total_cap = getItemWeight(item.uid)*amount
                    if getPlayerSlotItem(cid, 3).itemid ~= 0 then
                        slots = getAllContainerFree(getPlayerSlotItem(cid, 3).uid)
                    end
                    if slots > 0 and getPlayerFreeCap(cid) >= total_cap then
                        if isItemStackable(id) then
                            str = str.." "..amount.." "..(amount > 1 and info.plural or info.name)..","
                            doPlayerAddItemStackable(cid, id, amount)
                            if isInArray(info.Money_ids, id) and getPlayerStorageValue(cid, info.Storages[4]) > 0 then
                            end
                        else
                            str = str.." ".. info.article.." " .. info.name ..","
                            doPlayerAddItem(cid, id)
                        end 
                        doRemoveItem(item.uid)    
                    end
                end
            end
        end
    end
end
function ExistItemByName(name) -- by vodka
    local items = io.open("data/items/items.xml", "r"):read("*all")
    local get = items:lower():match('name="' .. name:lower() ..'"')
    if get == nil or get == "" then
        return false
    end
return true
end
]]></config>
<event type="login" name="LootLogin" event="script"><![CDATA[
domodlib('Loot_func')
function onLogin(cid)
    registerCreatureEvent(cid, "LootEventKIll")
    if isPremium(cid) and getPlayerStorageValue(cid, 853608) <= 0 then
        setPlayerStorageValue(cid, 853608, 1)
    elseif getPlayerStorageValue(cid, 853608) > 0 and not isPremium(cid) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Auto Loot] You premium is Over, Start a new list!")
        setPlayerStorageValue(cid, 853608, -1)
        doCleanAutoloot(cid)
    end
    return true
end]]></event>
<event type="kill" name="LootEventKIll" event="script"><![CDATA[
domodlib('Loot_func')
function onDeath(cid, corpse, deathList)
    if isMonster(cid) then        
     addEvent(corpseRetireItems, 0, getThingPos(cid))
    end
    return true
end]]></event>
<talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
domodlib('Loot_func')
local param, slots = param:lower(), isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free
if not param or param == "" then
    ShowItemsTabble(cid) return true
elseif tonumber(param) then
    doPlayerSendCancel(cid, "enter commands: !autoloot item name [+] !autoloot clean [+] !autoloot money [+] !autoloot on/off") return true
elseif isInArray({"clean","limpar", "clear"}, param) then
    if existsAutoloot(cid) then doCleanAutoloot(cid) end
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Auto Loot] Your list has been cleaned.") return true
elseif isInArray({"start","stop","on","off"}, param) then
    setPlayerStorageValue(cid, info.Storages[1], getPlayerStorageValue(cid, info.Storages[1]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot "..(getPlayerStorageValue(cid, info.Storages[1]) > 0 and "Stopped" or "Started")..".") return true
elseif isInArray({"mensagem","message","mensagen","msg"}, param) then
    setPlayerStorageValue(cid, info.Storages[6], getPlayerStorageValue(cid, info.Storages[6]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Message "..(getPlayerStorageValue(cid, info.Storages[6]) > 0 and "disabled" or "Activated")..".") return true
elseif isInArray({"money","gold","gps","dinheiro"}, param) then
    setPlayerStorageValue(cid, info.Storages[2], getPlayerStorageValue(cid, info.Storages[2]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Gold Colleting "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "disabled")..".") return true
end
if info.distro ~= 1 then
    item = ExistItemByName(tostring(param))
    if not item then
        doPlayerSendCancel(cid, "This item does not exist.") return true
    end
    item = getItemIdByName(tostring(param))
else
    item = getItemIdByName(param, false)
    if not item then
        doPlayerSendCancel(cid, "This item does not exist.") return true
    end
end
local var = isInTable(cid, item)
if isInArray(info.Money_ids, item) then 
    doPlayerSendTextMessage(cid, MESSAGE_FIRST, "Enter !autoloot money to add money in your list!") return true    
elseif isInArray(info.BlockItemsList, item) then
    doPlayerSendCancel(cid, "You can not add this item in the list!") return true
elseif not var and #getItensFromAutoloot(cid) >= slots then
    doPlayerSendCancel(cid, "max "..slots.." from auto loot") return true
elseif getPlayerStorageValue(cid, info.Storages[7]) - os.time() > 0 then
        doPlayerSendCancel(cid, "wait a second to use this command again") return true
end
if not var then
    doAddItemFromAutoloot(cid, item)
else
    doremoveItemFromAutoloot(cid, item)
end
setPlayerStorageValue(cid, info.Storages[7], os.time()+info.Talkaction_delay)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,not var and "Voce adicionou o item "..param.." em sua lista" or "Voce removeu o item "..param.." de sua lista.")
return true]]></talkaction>
</mod>

 

Ta dando um erro assim: Quando os bixos morrem eles continuam vivos, mas sem HP e continuam hitando