Autoloot não stacka os items coletados

bom o problema é o seguinte, eu peguei um autoloot no forum e ele funciona 100%

mas ele não agrupa os items coletados. gostaria de uma ajuda nesse problema! quem poder ajudar já agradeço! ❤️

 

este é o script responsavel pela coleta!

AutoLoot = {
Min_Level = 10, -- [[ Level minimo para usar o autoloot ]] --
Max_Slots = 10, -- [[ Slots maximos disponiveis ]] --
Boost_Actived = true,
--- [[ Storages ]] --
Storage_Boost = 45000,
Storage_On_Items = 45001,
Storage_On_Gold = 45002,
Storages = {
Count_Gold = 45003,
Count_Items = 45004,
Count_Table = 45005,
Slots = {45006, 45007, 45008, 45009, 45010, 45011, 45012, 45013, 45014, 45015} -- [[ Storage pra cada slot ]] --
 }
}

AutoLoot_Boost = {
-- [[ Loot boost vende os loots coletados automaticamente ]] --
-- [[ID do item] = Valor.]] --
[11441] = 1000, 
[11442] = 1000, 
[11443] = 1000, 
[11444] = 1000, 
[11445] = 1000,
[11446] = 1000,
[11447] = 1000,
[11448] = 1000,
[11449] = 1000,
[11450] = 1000,
[11451] = 1000,
[11452] = 1000,
[11453] = 1000,
[11454] = 1000
}

function AutoLoot.CountTable(table)
local Count = 0
if type(table) == "table" then
for index in pairs(table) do
Count = Count + 1
end
return Count
end
return false
end

function AutoLoot.getContainerItemsInfo(ContainerUID)
local Table = {}
if ContainerUID and ContainerUID > 0 then
local Index = 0   
for i = 0, getContainerSize(ContainerUID) - 1 do
local item = getContainerItem(ContainerUID, i)
Index = Index + 1
Table[Index] = {UID = item.uid, ItemID = item.itemid, Count = item.type}
end
return Table
end
return false
end

function AutoLoot.String(String)
local Table = {}
local x, old, last = 0, 0, 0
local first, second, final = 0, 0, 0
if type(String) ~= "string" then
return Table
end
for i = 2, #String - 1 do
if string.byte(String:sub(i,i)) == string.byte(':') then
x, second, last = x + 1, i - 1, i + 2
for t = last, #String - 1 do
if string.byte(String:sub(t,t)) == string.byte(',') then
first = x == 1 and 2 or old
old, final = t + 2, t - 1
local Index = String:sub(first, second)
local Var = String:sub(last, final)
Table[tonumber(Index) or tostring(Index)] = tonumber(Var) or tostring(Var)
break
end
end
end
end
return Table
end

function AutoLoot.TranslateString(Table)
local String = ""
if type(Table) ~= "table" then
return String
end
for i, last in pairs(Table) do
String = String..i..": ".. last ..", "
end
String = "a"..String.."a"
return tostring(String)
end

function AutoLoot.getPlayerStorageZero(cid, key)
return getPlayerStorageValue(cid, key) > 0 and getPlayerStorageValue(cid, key) or 0
end

function AutoLoot.getStorageZero(key)
return getGlobalStorageValue(key) > 0 and getGlobalStorageValue(key) or 0
end

function AutoLoot.setPlayerTableStorage(cid, key, value)
return doPlayerSetStorageValue(cid, key, AutoLoot.TranslateString(value))
end

function AutoLoot.setGlobalTableStorage(key, value)
return setGlobalStorageValue(key, AutoLoot.TranslateString(value))
end

function AutoLoot.getPlayerTableStorage(cid, key)
return AutoLoot.String(getPlayerStorageValue(cid, key))
end

function AutoLoot.getGlobalTableStorage(key)
return AutoLoot.String(getGlobalStorageValue(key))
end

function AutoLoot.getPlayerList(cid)
local Table = {}
for i = 1, #AutoLoot.Storages.Slots do
if getPlayerStorageValue(cid, AutoLoot.Storages.Slots[i]) ~= -1 then
table.insert(Table, getPlayerStorageValue(cid, AutoLoot.Storages.Slots[i]))
end
end
return Table
end

function AutoLoot.ExistItemByName(name)
local Items = io.open("data/items/items.xml", "r"):read("*all")
local GetITEM = Items:match('name="' .. name ..'"')
if GetITEM == nil or GetITEM == "" then
return false
end
return true
end

function AutoLoot.addToList(cid, name)
local ItemID = getItemIdByName(name)
if AutoLoot.getPlayerList(cid) and isInArray(AutoLoot.getPlayerList(cid), ItemID) then
return false
end
for i = 1, #AutoLoot.Storages.Slots do
if getPlayerStorageValue(cid, AutoLoot.Storages.Slots[i]) == -1 then
doPlayerSetStorageValue(cid, AutoLoot.Storages.Slots[i], ItemID)
return true
end
end
end

function AutoLoot.removeFromList(cid, name)
local ItemID = getItemIdByName(name)
for i = 1, #AutoLoot.Storages.Slots do
if getPlayerStorageValue(cid, AutoLoot.Storages.Slots[i]) == ItemID then
doPlayerSetStorageValue(cid, AutoLoot.Storages.Slots[i], -1)
return true
end
end
return false
end

function AutoLoot.Boost(cid)
return tonumber(getPlayerStorageValue(cid, AutoLoot.Storage_Boost)) >= os.time()
end

function AutoLoot.Items(cid, position)
if not isPlayer(cid) then 
return true
end
local Check, String, Position = false, "", {}
for i = 1, 255 do
position.stackpos = i
if getThingFromPos(position).uid and getThingFromPos(position).uid > 0 and isContainer(getThingFromPos(position).uid) then
Position = position
Check = true
break
end
end
if Check then
local CorpseUID = AutoLoot.getContainerItemsInfo(getThingFromPos(Position).uid) 
if CorpseUID then
for Index, Item in pairs(CorpseUID) do
if Index < AutoLoot.CountTable(CorpseUID) then
if Item.UID and Item.ItemID then
if isContainer(Item.UID) then
local Bag = AutoLoot.getContainerItemsInfo(Item.UID)
for i = 1, AutoLoot.CountTable(Bag) do
if isInArray(AutoLoot.getPlayerList(cid), Bag[i].ItemID) then
if Bag[i].Count > 1 then
doRemoveItem(Bag[i].uid, Bag[i].Count)
doPlayerAddItem(cid, Bag[i].ItemID, Bag[i].Count)
String = String.." ".. Bag[i].Count .." ".. getItemNameById(Bag[i].ItemID) .." +"
else
doRemoveItem(Bag[i].uid)
if AutoLoot.Boost_Actived and AutoLoot.Boost(cid) then
if AutoLoot_Boost[Bag[i].ItemID] then
doPlayerSetBalance(cid, getPlayerBalance(cid) + AutoLoot_Boost[Bag[i].ItemID])
String = String.."1 ".. getItemNameById(Bag[i].ItemID) .." (".. AutoLoot_Boost[Bag[i].ItemID] .." dinheiro no banco)"
else
doPlayerAddItem(cid, Bag[i].ItemID, 1)
String = String.."1 ".. getItemNameById(Bag[i].ItemID) ..""
end
else
doPlayerAddItem(cid, Bag[i].ItemID, 1)
String = String.."1 ".. getItemNameById(Bag[i].ItemID) ..""
end
end
end
end
end
end
end
if isInArray(AutoLoot.getPlayerList(cid), Item.ItemID) then
if Item.Count > 1 then
doRemoveItem(Item.UID, Item.Count)
doPlayerAddItem(cid, Item.ItemID, Item.Count)
String = String.." ".. Item.Count .." ".. getItemNameById(Item.ItemID) .." +"
else
doRemoveItem(Item.UID)
if AutoLoot.Boost_Actived and AutoLoot.Boost(cid) then
if AutoLoot_Boost[Item.ItemID] then
doPlayerSetBalance(cid,getPlayerBalance(cid) + AutoLoot_Boost[Item.ItemID])
String = String.."1 "..getItemNameById(Item.ItemID).." ("..AutoLoot_Boost[Item.ItemID].." dinheiro no banco)"
else
doPlayerAddItem(cid, Item.ItemID, 1)
String = String.."1 "..getItemNameById(Item.ItemID)..""
end
else
doPlayerAddItem(cid, Item.ItemID, 1)
String = String.."1 "..getItemNameById(Item.ItemID)..""
end
end
end
end
end
end
AutoLoot.setPlayerTableStorage(cid, AutoLoot.Storages.Count_Table, {[1] = String, [2] = 0})
end

function AutoLoot.Gold(cid, position)
if not isPlayer(cid) then 
return true 
end
local Check = false
local Total_Gold = 0
local Position = {}
for i = 1, 255 do
position.stackpos = i
if getThingFromPos(position).uid and getThingFromPos(position).uid > 0 and isContainer(getThingFromPos(position).uid) then
Position = position
Check = true
break
end
end
if Check then
local CorpseUID = AutoLoot.getContainerItemsInfo(getThingFromPos(Position).uid)
if CorpseUID then
for Index, Item in pairs(CorpseUID) do
if Item.UID and Item.ItemID then
if Index < AutoLoot.CountTable(CorpseUID) then
if isContainer(Item.UID) then
local Bag = AutoLoot.getContainerItemsInfo(Item.UID)
for i = 1, AutoLoot.CountTable(Bag) do
if isInArray({2148, 2152, 2160}, Bag[i].ItemID) then
local Multiplier = 1
if Bag[i].ItemID == 2148 then
Multiplier = 1
elseif Bag[i].ItemID == 2152 then
Multiplier = 100
elseif Bag[i].ItemID == 2160 then
Multiplier = 1000
end
doRemoveItem(Bag[i].uid, Bag[i].Count)
doPlayerSetBalance(cid, getPlayerBalance(cid) + tonumber(Bag[i].Count) * Multiplier)
Total_Gold = Total_Gold + Bag[i].Count * Multiplier
doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Gold, tonumber(AutoLoot.getPlayerStorageZero(cid, AutoLoot.Storages.Count_Gold)) + tonumber(Item.Count) * tonumber(Multiplier))
end
end
end
end
if isInArray({2148, 2152, 2160}, Item.ItemID) then
local Multiplier = 1
if Item.ItemID == 2148 then
Multiplier = 1
elseif Item.ItemID == 2152 then
Multiplier = 100
elseif Item.ItemID == 2160 then
Multiplier = 1000
end
doRemoveItem(Item.UID, Item.Count)
doPlayerSetBalance(cid, getPlayerBalance(cid) + Item.Count * Multiplier)
doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Gold, tonumber(AutoLoot.getPlayerStorageZero(cid, AutoLoot.Storages.Count_Gold)) + tonumber(Item.Count) * tonumber(Multiplier))
Total_Gold = Total_Gold + Item.Count * Multiplier
end
end
end
end
end
if Total_Gold > 0 then
Total_Gold = Total_Gold - (Total_Gold * 0.2) 
Total_Gold = math.ceil(Total_Gold)
doPlayerSetBalance(cid, getPlayerBalance(cid) + Total_Gold)
local Table = AutoLoot.getPlayerTableStorage(cid, AutoLoot.Storages.Count_Table)
Table[2] = Total_Gold
AutoLoot.setPlayerTableStorage(cid, AutoLoot.Storages.Count_Table, Table)
end
end

function AutoLoot.Message(cid)
if not isPlayer(cid) then 
return true
end
local Table = AutoLoot.getPlayerTableStorage(cid, AutoLoot.Storages.Count_Table)
if AutoLoot.CountTable(Table) >= 1 then
if Table[1] then
if Table[2] and Table[2] > 0 then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "[Auto Loot] Coletados: ".. Table[1] .." ".. Table[2] .." gold coins.")
else
if type(Table[1]) == "string" and string.len(Table[1]) > 1 then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "[Auto Loot] Coletados: "..Table[1])
end
end
elseif not Table[1] then
if Table[2] then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "[Auto Loot] Coletados: "..Table[2].." gold coins.")
end
end
end
doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Table, -1)
end

 

Para agrupar os itens coletados pelo autoloot, você pode adicionar um loop para percorrer os itens coletados e verificar se há itens semelhantes. Se houver, você pode somar suas quantidades e removê-los da lista de itens coletados. Em seguida, adicione o item agrupado à lista de itens agrupados.

function auto_loot {
check_items
local old_IFS=$IFS

IFS=$'\n'

local items=($(printf '%s\n' "${item_list[@]}" | sort))

local grouped_items=()

for item in "${items[@]}"; do

     local name=${item%% *}

     local qty=${item#* }

     local sum_qty=$qty

     for ((i=0; i<${#grouped_items[@]}; i++)); do

     local g_name=${grouped_items[$i]%% *}

     local g_qty=${grouped_items[$i]#* }

     if [[ $name == $g_name ]]; then

        sum_qty=$((qty + g_qty))

        grouped_items[$i]="$name $sum_qty"

        break

    fi

   done

   if [[ $sum_qty -eq $qty ]]; then

    grouped_items+=("$name $qty")

   fi

done

IFS=$old_IFS

for item in "${grouped_items[@]}"; do

     local name=${item%% *}

     local qty=${item#* }

     loot $name $qty

done

}

 

1. O loop for item in "${items[@]}" percorre cada item coletado e verifica se há itens semelhantes na lista grouped_items.

2. O loop interno for ((i=0; i<${#grouped_items[@]}; i++)) percorre cada item agrupado e verifica se há um item semelhante.

3. Se um item semelhante for encontrado, sua quantidade é somada à quantidade do item coletado atual, e o item coletado é removido da lista de itens coletados.

4. Se nenhum item semelhante for encontrado, o item coletado é adicionado à lista de itens agrupados.

5. Após o loop, a lista de itens agrupados é percorrida e cada item é coletado usando a função loot.