Suporte Error autoloot

[deza 1]

Alguem pra ajudar resolver esse problema do autoloot pf !

 

Citar

--[[
    Auto Loot System by Danyel Varejão
    Created in 02/07/2017
]]

function onLogin(cid)
    registerCreatureEvent(cid, "Auto_Loot_Login")
    registerCreatureEvent(cid, "Auto_Loot_Kill")
    return true
end

function onKill(cid, target, lastHit)
    if isPlayer(cid) and isMonster(target) then
        if getPlayerStorageValue(cid, AutoLoot.Storage_On_Items) == 1 and #AutoLoot.getPlayerList(cid) > 0 then
            addEvent(AutoLoot.Items, 500, cid, getCreaturePosition(target))
        end
        if getPlayerStorageValue(cid, AutoLoot.Storage_On_Gold) == 1 then
            addEvent(AutoLoot.Gold, 500, cid, getCreaturePosition(target))
        end
        if getPlayerStorageValue(cid, AutoLoot.Storage_On_Items) == 1 or getPlayerStorageValue(cid, AutoLoot.Storage_On_Gold) == 1 then
            addEvent(AutoLoot.Message, 500, cid)
        end
    end
    return true
end

 

[luanluciano93 1994]

Pelo jeito o erro é em alguma função relacionada ao autoloot. VocÊ precisa mostrar a biblioteca do sistema onde estão as funções.

[deza 1]

27 minutos atrás, luanluciano93 disse:

Pelo jeito o erro é em alguma função relacionada ao autoloot. VocÊ precisa mostrar a biblioteca do sistema onde estão as funções.

Citar

--[[
    Auto Loot System by Danyel Varejão
]]

AutoLoot = {
    Min_Level = 100, -- Level minimo pra utilizar o auto loot.
    Max_Slots = 5, -- Máximo de slots permitidos.
    Boost_Actived = true,
    
    -- Nao mexa daqui pra baixo caso nao entenda --
    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} -- Storage pra cada slot.
    }
}

AutoLoot_Boost = {
    -- [ID do item] = Valor,
    [6099] = 30000,
        [6100] = 30000,
        [6101] = 30000,
        [6107] = 30000,
        [2350] = 30000,
        [5940] = 30000,
        [2218] = 30000,
        [2512] = 30000,
        [6579] = 30000,
    [2393] = 30000
}

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] .."gp 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].."gps 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 = 10000
                                    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 = 10000
                        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_EVENT_DEFAULT, "[Auto Loot System] Coletados: ".. Table[1] .." ".. Table[2] .." gold coins.")
            else
                if type(Table[1]) == "string" and string.len(Table[1]) > 1 then
                    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: "..Table[1])
                end
            end
        elseif not Table[1] then
            if Table[2] then
                doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: "..Table[2].." gold coins.")
            end
        end
    end
    doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Table, -1)
end

 

 

Citar

--[[
    Auto Loot System by Danyel Varejão
    Created in 02/07/2017
]]

function onLogin(cid)
    registerCreatureEvent(cid, "Auto_Loot_Login")
    registerCreatureEvent(cid, "Auto_Loot_Kill")
    return true
end

function onKill(cid, target, lastHit)
    if isPlayer(cid) and isMonster(target) then
        if getPlayerStorageValue(cid, AutoLoot.Storage_On_Items) == 1 and #AutoLoot.getPlayerList(cid) > 0 then
            addEvent(AutoLoot.Items, 500, cid, getCreaturePosition(target))
        end
        if getPlayerStorageValue(cid, AutoLoot.Storage_On_Gold) == 1 then
            addEvent(AutoLoot.Gold, 500, cid, getCreaturePosition(target))
        end
        if getPlayerStorageValue(cid, AutoLoot.Storage_On_Items) == 1 or getPlayerStorageValue(cid, AutoLoot.Storage_On_Gold) == 1 then
            addEvent(AutoLoot.Message, 500, cid)
        end
    end
    return true
end

 

Citar

--[[
    Auto Loot System by Danyel Varejão
]]

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if AutoLoot.Boost(cid) then
        doPlayerSendCancel(cid, "Voce ja esta com o BOOST ativado!")
        return true
    end
    if doRemoveItem(item.uid) then
        doPlayerSetStorageValue(cid, AutoLoot.Storage_Boost, os.time() + 3600 * 6)
        doSendMagicEffect(getThingPos(cid), 49)
        doPlayerPopupFYI(cid, "[Auto Loot Booster]\n\nVoce ativou o Auto Loot BOOST por 6 horas.\nDurante esse tempo os itens coletados serao vendidos automaticamente\ne o dinheiro sera depositado no seu banco")
    end
    return true
end

Desculpa minha ignorancia, mas se refere ao script ?

Editado Março 16, 2022 por deza (veja o histórico de edições)