• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

[TFS 0.4_DEV rev3884] Server problem #1

Kownikuzyt

Kownikuzyt

Member
Joined
Feb 11, 2020
Messages
170
Solutions
1
Reaction score
8
Hello, I'm trying to repair the server and I have a few problems that I can't deal with.

I would like to ask for help.



Command Line:

[Error - CreatureScript Interface]
In a timer event called from:
domodlib('Loot_func')
function onDeath(cid, corpse, deathList)
local killer,pos = deathList[1],getCreaturePosition(cid)
addEvent(corpseRetireItems,1,killer,pos)
return true
end:eek:nDeath
Description:
(luaGetContainerSize) Container not found

[Error - CreatureScript Interface]
In a timer event called from:
domodlib('Loot_func')
function onDeath(cid, corpse, deathList)
local killer,pos = deathList[1],getCreaturePosition(cid)
addEvent(corpseRetireItems,1,killer,pos)
return true
end:eek:nDeath
Description:
[string " info = {..."]:153: bad argument #1 to 'pairs' (table expected, got boolean)
stack traceback:
[C]: in function 'pairs'
[string " info = {..."]:153: in function <[string " info = {..."]:142>
Click to expand...



xxx\mods\autoloot.xml

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

        info = {
            OnlyPremium = true,
            AutomaticDeposit = true,
            BlockMonsters = {},
            BlockItemsList = {2123,2515}
            }

function setPlayerStorageTable(cid, storage, tab)
    local tabstr = "&"
    for i,x in pairs(tab) do
            tabstr = tabstr .. i .. "," .. x .. ";"
    end
    setPlayerStorageValue(cid, storage, tabstr:sub(1, #tabstr-1))
end
function getPlayerStorageTable(cid, storage)
    local tabstr = getPlayerStorageValue(cid, storage)
    local tab = {}
    if type(tabstr) ~= "string" then
            return {}
    end
    if tabstr:sub(1,1) ~= "&" then
            return {}
    end
    local tabstr = tabstr:sub(2, #tabstr)
    local a = string.explode(tabstr, ";")
    for i,x in pairs(a) do
            local b = string.explode(x, ",")
            tab[tonumber(b[1]) or b[1]] = tonumber(b[2]) or b[2]
    end
    return tab
end

function isInTable(cid, item)
         for _,i in pairs(getPlayerStorageTable(cid, 27000))do
             if tonumber(i) == tonumber(item) then
                return true
             end
         end
return false
end
function addItemTable(cid, item)
         local x = {}
               for i = 1,#getPlayerStorageTable(cid, 27000) do
                   table.insert(x,getPlayerStorageTable(cid, 27000)[i])
               end
               if x ~= 0 then
                  table.insert(x,tonumber(item))
                  setPlayerStorageTable(cid, 27000, x)
               else
                   setPlayerStorageTable(cid, 27000, {item})
               end
end
function removeItemTable(cid, item)
         local x = {}
               for i = 1,#getPlayerStorageTable(cid, 27000) do
                   table.insert(x,getPlayerStorageTable(cid, 27000)[i])
               end
               for i,v in ipairs(x) do
                   if tonumber(v) == tonumber(item) then
                   table.remove(x,i)
               end
               end
         return setPlayerStorageTable(cid, 27000, x)
end
function ShowItemsTabble(cid)
local str,n = "-- My Loot List --\n\n",0
for i = 1,#getPlayerStorageTable(cid, 27000) do
n = n + 1
str = str..""..n.." - "..getItemNameById(getPlayerStorageTable(cid, 27000)[i]).."\n"
end
return doShowTextDialog(cid, 2529, str)
end
function getContainerItems(containeruid)
    local items = {}
    local containers = {}
    if type(getContainerSize(containeruid)) ~= "number" then
            return false
    end
    for slot = 0, getContainerSize(containeruid)-1 do
            local item = getContainerItem(containeruid, slot)
            if item.itemid == 0 then
                    break
            end
            if isContainer(item.uid) then
                    table.insert(containers, item.uid)
            end
            table.insert(items, item)
    end
    if #containers > 0 then
            for i,x in ipairs(getContainerItems(containers[1])) do
                    table.insert(items, x)
            end
            table.remove(containers, 1)
    end    
    return items
end
function getItemsInContainerById(container, itemid) -- Function By Kydrai
            local items = {}
            if isContainer(container) and getContainerSize(container) > 0 then
                            for slot=0, (getContainerSize(container)-1) do
                                            local item = getContainerItem(container, slot)
                                            if isContainer(item.uid) then
                                                            local itemsbag = getItemsInContainerById(item.uid, itemid)
                                                            for i=0, #itemsbag do
                                                                            table.insert(items, itemsbag[i])
                                                            end
                                            else
                                                            if itemid == item.itemid then
                                                                            table.insert(items, item.uid)
                                                            end
                                            end
                            end
            end
            return items
end
function doPlayerAddItemStacking(cid, itemid, quant) -- by mkalo
    local item = getItemsInContainerById(getPlayerSlotItem(cid, 3).uid, itemid)
    local piles = 0
    if #item > 0 then
            for i,x in pairs(item) do
                    if getThing(x).type < 100 then
                            local it = getThing(x)
                            doTransformItem(it.uid, itemid, it.type+quant)
                            if it.type+quant > 100 then
                                    doPlayerAddItem(cid, itemid, it.type+quant-100)
                            end
                    else
                           piles = piles+1
                    end
            end
    else
            return doPlayerAddItem(cid, itemid, quant)
    end
    if piles == #item then
            doPlayerAddItem(cid, itemid, quant)
    end
end
function AutomaticDeposit(cid,item,n)
local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n*1)
return doPlayerDepositMoney(cid, deposit)
end
function corpseRetireItems(cid, pos)
    local check = false
    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 items = getContainerItems(tile.uid)
                for i,x in pairs(items) do
                        if isInArray(getPlayerStorageTable(cid, 27000), tonumber(x.itemid)) then
                                if isItemStackable(x.itemid) then
                        doPlayerAddItemStacking(cid, x.itemid, x.type)
                        if info.AutomaticDeposit == true and isInArray({"2148","2152","2160"},tonumber(x.itemid)) then
                        AutomaticDeposit(cid,x.itemid,x.type)
                        end
                                else
                                        doPlayerAddItem(cid, x.itemid)
                                end
                                    doRemoveItem(x.uid)
                        end
                end
        end
end
]]></config>
<event type="login" name="LootLogin" event="script"><![CDATA[
function onLogin(cid)
registerCreatureEvent(cid, "MonsterAttack")
return true
end]]></event>
<event type="death" name="LootEventDeath" event="script"><![CDATA[
domodlib('Loot_func')
    function onDeath(cid, corpse, deathList)
    local killer,pos = deathList[1],getCreaturePosition(cid)
    addEvent(corpseRetireItems,1,killer,pos)
return true
end]]></event>
<event type="combat" name="MonsterAttack" event="script"><![CDATA[
domodlib('Loot_func')
        if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters,string.lower(getCreatureName(target))) then
            registerCreatureEvent(target, "LootEventDeath")
                        end
return true]]></event>
<talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
domodlib('Loot_func')
local t = string.explode(string.lower(param), ",")
if info.OnlyPremium == true and not isPremium(cid) then
doPlayerSendCancel(cid, "you must be a premium account.") return true
elseif not t[1] then
ShowItemsTabble(cid) return true
elseif tonumber(t[1]) or tonumber(t[2]) then
doPlayerSendCancel(cid, "enter!autoloot add,name or !autoloot remove,name") return true
elseif isInArray({"add","remove"}, tostring(t[1])) then
local func,check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
local item = getItemIdByName(tostring(t[2]), false)
if not item then
doPlayerSendCancel(cid, "This item does not exist.") return true
elseif check == true and isInArray(info.BlockItemsList, item) then
doPlayerSendCancel(cid, "You can not add this item in the list!") return true
elseif isInTable(cid, item) == check then
doPlayerSendCancel(cid, "This Item "..(check == true and "already" or "is not").." in your list.") return true
end
func(cid, item)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,check == true and "you added the item "..t[2].." in the list" or "you removed the item "..t[2].." from the list") return true
end
return true]]></talkaction>
</mod>
 
Sort by date Sort by votes
Try this:

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

    info = {
        OnlyPremium = true,
        AutomaticDeposit = true,
        BlockMonsters = {},
        BlockItemsList = {2123, 2515}
    }
    
function setPlayerStorageTable(cid, storage, tab)
    local tabstr = "&"
    for i,x in pairs(tab) do
            tabstr = tabstr .. i .. "," .. x .. ";"
    end
    setPlayerStorageValue(cid, storage, tabstr:sub(1, #tabstr-1))
end
function getPlayerStorageTable(cid, storage)
    local tabstr = getPlayerStorageValue(cid, storage)
    local tab = {}
    if type(tabstr) ~= "string" then
            return {}
    end
    if tabstr:sub(1,1) ~= "&" then
            return {}
    end
    local tabstr = tabstr:sub(2, #tabstr)
    local a = string.explode(tabstr, ";")
    for i,x in pairs(a) do
            local b = string.explode(x, ",")
            tab[tonumber(b[1]) or b[1]] = tonumber(b[2]) or b[2]
    end
    return tab
end

function isInTable(cid, item)
         for _,i in pairs(getPlayerStorageTable(cid, 27000))do
             if tonumber(i) == tonumber(item) then
                return true
             end
         end
return false
end
function addItemTable(cid, item)
         local x = {}
               for i = 1,#getPlayerStorageTable(cid, 27000) do
                   table.insert(x,getPlayerStorageTable(cid, 27000)[i])
               end
               if x ~= 0 then
                  table.insert(x,tonumber(item))
                  setPlayerStorageTable(cid, 27000, x)
               else
                   setPlayerStorageTable(cid, 27000, {item})
               end
end
function removeItemTable(cid, item)
         local x = {}
               for i = 1,#getPlayerStorageTable(cid, 27000) do
                   table.insert(x,getPlayerStorageTable(cid, 27000)[i])
               end
               for i,v in ipairs(x) do
                   if tonumber(v) == tonumber(item) then
                   table.remove(x,i)
               end
               end
         return setPlayerStorageTable(cid, 27000, x)
end
function ShowItemsTabble(cid)
local str,n = "-- My Loot List --\n\n",0
for i = 1,#getPlayerStorageTable(cid, 27000) do
n = n + 1
str = str..""..n.." - "..getItemNameById(getPlayerStorageTable(cid, 27000)[i]).."\n"
end
return doShowTextDialog(cid, 2529, str)
end
function getContainerItems(containeruid)
    local items = {}
    local containers = {}
    if type(getContainerSize(containeruid)) ~= "number" then
            return false
    end
    for slot = 0, getContainerSize(containeruid)-1 do
            local item = getContainerItem(containeruid, slot)
            if item.itemid == 0 then
                    break
            end
            if isContainer(item.uid) then
                    table.insert(containers, item.uid)
            end
            table.insert(items, item)
    end
    if #containers > 0 then
            for i,x in ipairs(getContainerItems(containers[1])) do
                    table.insert(items, x)
            end
            table.remove(containers, 1)
    end    
    return items
end
function getItemsInContainerById(container, itemid) -- Function By Kydrai
            local items = {}
            if isContainer(container) and getContainerSize(container) > 0 then
                            for slot=0, (getContainerSize(container)-1) do
                                            local item = getContainerItem(container, slot)
                                            if isContainer(item.uid) then
                                                            local itemsbag = getItemsInContainerById(item.uid, itemid)
                                                            for i=0, #itemsbag do
                                                                            table.insert(items, itemsbag[i])
                                                            end
                                            else
                                                            if itemid == item.itemid then
                                                                            table.insert(items, item.uid)
                                                            end
                                            end
                            end
            end
            return items
end
function doPlayerAddItemStacking(cid, itemid, quant) -- by mkalo
    local item = getItemsInContainerById(getPlayerSlotItem(cid, 3).uid, itemid)
    local piles = 0
    if #item > 0 then
            for i,x in pairs(item) do
                    if getThing(x).type < 100 then
                            local it = getThing(x)
                            doTransformItem(it.uid, itemid, it.type+quant)
                            if it.type+quant > 100 then
                                    doPlayerAddItem(cid, itemid, it.type+quant-100)
                            end
                    else
                           piles = piles+1
                    end
            end
    else
            return doPlayerAddItem(cid, itemid, quant)
    end
    if piles == #item then
            doPlayerAddItem(cid, itemid, quant)
    end
end
function AutomaticDeposit(cid,item,n)
local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n*1)
return doPlayerDepositMoney(cid, deposit)
end

    function corpseRetireItems(cid, pos)
        -- Check if there is a valid corpse at the position
        local check = false
        for i = 0, 255 do
            pos.stackpos = i
            local tile = getTileThingByPos(pos)
            if tile.uid > 0 and isCorpse(tile.uid) then
                check = true
                break
            end
        end

        if check then
            -- Get items from the corpse
            local items = getContainerItems(tile.uid)
            if items then
                for i, x in pairs(items) do
                    -- Rest of the code for processing items
                end
            else
                print("No items found in the container.")
            end
        else
            print("No valid corpse found.")
        end
    end
    ]]></config>

    <event type="login" name="LootLogin" event="script"><![CDATA[
    function onLogin(cid)
        registerCreatureEvent(cid, "MonsterAttack")
        return true
    end]]></event>

    <event type="death" name="LootEventDeath" event="script"><![CDATA[
    domodlib('Loot_func')
    function onDeath(cid, corpse, deathList)
        local killer, pos = deathList[1], getCreaturePosition(cid)
        addEvent(corpseRetireItems, 1, killer, pos)
        return true
    end]]></event>

    <event type="combat" name="MonsterAttack" event="script"><![CDATA[
    domodlib('Loot_func')
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, string.lower(getCreatureName(target))) then
        registerCreatureEvent(target, "LootEventDeath")
    end
    return true]]></event>

    <talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
    domodlib('Loot_func')
    local t = string.explode(string.lower(param), ",")
    if info.OnlyPremium == true and not isPremium(cid) then
        doPlayerSendCancel(cid, "You must be a premium account.")
        return true
    elseif not t[1] then
        ShowItemsTabble(cid)
        return true
    elseif tonumber(t[1]) or tonumber(t[2]) then
        doPlayerSendCancel(cid, "Enter !autoloot add,name or !autoloot remove,name")
        return true
    elseif isInArray({"add", "remove"}, tostring(t[1])) then
        local func, check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
        local item = getItemIdByName(tostring(t[2]), false)
        if not item then
            doPlayerSendCancel(cid, "This item does not exist.")
            return true
        elseif check == true and isInArray(info.BlockItemsList, item) then
            doPlayerSendCancel(cid, "You cannot add this item to the list!")
            return true
        elseif isInTable(cid, item) == check then
            doPlayerSendCancel(cid, "This item " .. (check == true and "already" or "is not") .. " in your list.")
            return true
        end
        func(cid, item)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, check == true and "You added the item " .. t[2] .. " to the list" or "You removed the item " .. t[2] .. " from the list")
        return true
    end
    return true]]></talkaction>
</mod>
 
Upvote 0 Downvote
Tenzhiro said:
Try this:

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

    info = {
        OnlyPremium = true,
        AutomaticDeposit = true,
        BlockMonsters = {},
        BlockItemsList = {2123, 2515}
    }
   
function setPlayerStorageTable(cid, storage, tab)
    local tabstr = "&"
    for i,x in pairs(tab) do
            tabstr = tabstr .. i .. "," .. x .. ";"
    end
    setPlayerStorageValue(cid, storage, tabstr:sub(1, #tabstr-1))
end
function getPlayerStorageTable(cid, storage)
    local tabstr = getPlayerStorageValue(cid, storage)
    local tab = {}
    if type(tabstr) ~= "string" then
            return {}
    end
    if tabstr:sub(1,1) ~= "&" then
            return {}
    end
    local tabstr = tabstr:sub(2, #tabstr)
    local a = string.explode(tabstr, ";")
    for i,x in pairs(a) do
            local b = string.explode(x, ",")
            tab[tonumber(b[1]) or b[1]] = tonumber(b[2]) or b[2]
    end
    return tab
end

function isInTable(cid, item)
         for _,i in pairs(getPlayerStorageTable(cid, 27000))do
             if tonumber(i) == tonumber(item) then
                return true
             end
         end
return false
end
function addItemTable(cid, item)
         local x = {}
               for i = 1,#getPlayerStorageTable(cid, 27000) do
                   table.insert(x,getPlayerStorageTable(cid, 27000)[i])
               end
               if x ~= 0 then
                  table.insert(x,tonumber(item))
                  setPlayerStorageTable(cid, 27000, x)
               else
                   setPlayerStorageTable(cid, 27000, {item})
               end
end
function removeItemTable(cid, item)
         local x = {}
               for i = 1,#getPlayerStorageTable(cid, 27000) do
                   table.insert(x,getPlayerStorageTable(cid, 27000)[i])
               end
               for i,v in ipairs(x) do
                   if tonumber(v) == tonumber(item) then
                   table.remove(x,i)
               end
               end
         return setPlayerStorageTable(cid, 27000, x)
end
function ShowItemsTabble(cid)
local str,n = "-- My Loot List --\n\n",0
for i = 1,#getPlayerStorageTable(cid, 27000) do
n = n + 1
str = str..""..n.." - "..getItemNameById(getPlayerStorageTable(cid, 27000)[i]).."\n"
end
return doShowTextDialog(cid, 2529, str)
end
function getContainerItems(containeruid)
    local items = {}
    local containers = {}
    if type(getContainerSize(containeruid)) ~= "number" then
            return false
    end
    for slot = 0, getContainerSize(containeruid)-1 do
            local item = getContainerItem(containeruid, slot)
            if item.itemid == 0 then
                    break
            end
            if isContainer(item.uid) then
                    table.insert(containers, item.uid)
            end
            table.insert(items, item)
    end
    if #containers > 0 then
            for i,x in ipairs(getContainerItems(containers[1])) do
                    table.insert(items, x)
            end
            table.remove(containers, 1)
    end   
    return items
end
function getItemsInContainerById(container, itemid) -- Function By Kydrai
            local items = {}
            if isContainer(container) and getContainerSize(container) > 0 then
                            for slot=0, (getContainerSize(container)-1) do
                                            local item = getContainerItem(container, slot)
                                            if isContainer(item.uid) then
                                                            local itemsbag = getItemsInContainerById(item.uid, itemid)
                                                            for i=0, #itemsbag do
                                                                            table.insert(items, itemsbag[i])
                                                            end
                                            else
                                                            if itemid == item.itemid then
                                                                            table.insert(items, item.uid)
                                                            end
                                            end
                            end
            end
            return items
end
function doPlayerAddItemStacking(cid, itemid, quant) -- by mkalo
    local item = getItemsInContainerById(getPlayerSlotItem(cid, 3).uid, itemid)
    local piles = 0
    if #item > 0 then
            for i,x in pairs(item) do
                    if getThing(x).type < 100 then
                            local it = getThing(x)
                            doTransformItem(it.uid, itemid, it.type+quant)
                            if it.type+quant > 100 then
                                    doPlayerAddItem(cid, itemid, it.type+quant-100)
                            end
                    else
                           piles = piles+1
                    end
            end
    else
            return doPlayerAddItem(cid, itemid, quant)
    end
    if piles == #item then
            doPlayerAddItem(cid, itemid, quant)
    end
end
function AutomaticDeposit(cid,item,n)
local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n*1)
return doPlayerDepositMoney(cid, deposit)
end

    function corpseRetireItems(cid, pos)
        -- Check if there is a valid corpse at the position
        local check = false
        for i = 0, 255 do
            pos.stackpos = i
            local tile = getTileThingByPos(pos)
            if tile.uid > 0 and isCorpse(tile.uid) then
                check = true
                break
            end
        end

        if check then
            -- Get items from the corpse
            local items = getContainerItems(tile.uid)
            if items then
                for i, x in pairs(items) do
                    -- Rest of the code for processing items
                end
            else
                print("No items found in the container.")
            end
        else
            print("No valid corpse found.")
        end
    end
    ]]></config>

    <event type="login" name="LootLogin" event="script"><![CDATA[
    function onLogin(cid)
        registerCreatureEvent(cid, "MonsterAttack")
        return true
    end]]></event>

    <event type="death" name="LootEventDeath" event="script"><![CDATA[
    domodlib('Loot_func')
    function onDeath(cid, corpse, deathList)
        local killer, pos = deathList[1], getCreaturePosition(cid)
        addEvent(corpseRetireItems, 1, killer, pos)
        return true
    end]]></event>

    <event type="combat" name="MonsterAttack" event="script"><![CDATA[
    domodlib('Loot_func')
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, string.lower(getCreatureName(target))) then
        registerCreatureEvent(target, "LootEventDeath")
    end
    return true]]></event>

    <talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
    domodlib('Loot_func')
    local t = string.explode(string.lower(param), ",")
    if info.OnlyPremium == true and not isPremium(cid) then
        doPlayerSendCancel(cid, "You must be a premium account.")
        return true
    elseif not t[1] then
        ShowItemsTabble(cid)
        return true
    elseif tonumber(t[1]) or tonumber(t[2]) then
        doPlayerSendCancel(cid, "Enter !autoloot add,name or !autoloot remove,name")
        return true
    elseif isInArray({"add", "remove"}, tostring(t[1])) then
        local func, check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
        local item = getItemIdByName(tostring(t[2]), false)
        if not item then
            doPlayerSendCancel(cid, "This item does not exist.")
            return true
        elseif check == true and isInArray(info.BlockItemsList, item) then
            doPlayerSendCancel(cid, "You cannot add this item to the list!")
            return true
        elseif isInTable(cid, item) == check then
            doPlayerSendCancel(cid, "This item " .. (check == true and "already" or "is not") .. " in your list.")
            return true
        end
        func(cid, item)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, check == true and "You added the item " .. t[2] .. " to the list" or "You removed the item " .. t[2] .. " from the list")
        return true
    end
    return true]]></talkaction>
</mod>
Click to expand...
@Tenzhiro

​


[Error - CreatureScript Interface]
In a timer event called from:
domodlib('Loot_func')
function onDeath(cid, corpse, deathList)
local killer, pos = deathList[1], getCreaturePosition(cid)
addEvent(corpseRetireItems, 1, killer, pos)
return true
end:eek:nDeath
Description:
[string "info = {..."]:157: attempt to index global 'tile' (a nil value)
stack traceback:
[string "info = {..."]:157: in function <[string "info = {..."]:143>
Click to expand...
 
Upvote 0 Downvote
Hmmmm
Everything after line 147 change for this and pray to god:

Lua: 
function corpseRetireItems(cid, pos)
        -- Check if there is a valid corpse at the position
        local check = false
        local tile = nil
        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 then
            -- Get items from the corpse
            local items = getContainerItems(tile.uid)
            if items then
                for i, x in pairs(items) do
                    -- Rest of the code for processing items
                end
            else
                print("No items found in the container.")
            end
        else
            print("No valid corpse found.")
        end
    end
    ]]></config>

    <event type="login" name="LootLogin" event="script"><![CDATA[
    function onLogin(cid)
        registerCreatureEvent(cid, "MonsterAttack")
        return true
    end]]></event>

    <event type="death" name="LootEventDeath" event="script"><![CDATA[
    domodlib('Loot_func')
    function onDeath(cid, corpse, deathList)
        local killer, pos = deathList[1], getCreaturePosition(cid)
        addEvent(corpseRetireItems, 1, killer, pos)
        return true
    end]]></event>

    <event type="combat" name="MonsterAttack" event="script"><![CDATA[
    domodlib('Loot_func')
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, string.lower(getCreatureName(target))) then
        registerCreatureEvent(target, "LootEventDeath")
    end
    return true]]></event>

    <talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
    domodlib('Loot_func')
    local t = string.explode(string.lower(param), ",")
    if info.OnlyPremium == true and not isPremium(cid) then
        doPlayerSendCancel(cid, "You must be a premium account.")
        return true
    elseif not t[1] then
        ShowItemsTabble(cid)
        return true
    elseif tonumber(t[1]) or tonumber(t[2]) then
        doPlayerSendCancel(cid, "Enter !autoloot add,name or !autoloot remove,name")
        return true
    elseif isInArray({"add", "remove"}, tostring(t[1])) then
        local func, check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
        local item = getItemIdByName(tostring(t[2]), false)
        if not item then
            doPlayerSendCancel(cid, "This item does not exist.")
            return true
        elseif check == true and isInArray(info.BlockItemsList, item) then
            doPlayerSendCancel(cid, "You cannot add this item to the list!")
            return true
        elseif isInTable(cid, item) == check then
            doPlayerSendCancel(cid, "This item " .. (check == true and "already" or "is not") .. " in your list.")
            return true
        end
        func(cid, item)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, check == true and "You added the item " .. t[2] .. " to the list" or "You removed the item " .. t[2] .. " from the list")
        return true
    end
    return true]]></talkaction>
</mod>
 
Upvote 0 Downvote
Tenzhiro said:
Hmmmm
Everything after line 147 change for this and pray to god:

Lua: 
function corpseRetireItems(cid, pos)
        -- Check if there is a valid corpse at the position
        local check = false
        local tile = nil
        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 then
            -- Get items from the corpse
            local items = getContainerItems(tile.uid)
            if items then
                for i, x in pairs(items) do
                    -- Rest of the code for processing items
                end
            else
                print("No items found in the container.")
            end
        else
            print("No valid corpse found.")
        end
    end
    ]]></config>

    <event type="login" name="LootLogin" event="script"><![CDATA[
    function onLogin(cid)
        registerCreatureEvent(cid, "MonsterAttack")
        return true
    end]]></event>

    <event type="death" name="LootEventDeath" event="script"><![CDATA[
    domodlib('Loot_func')
    function onDeath(cid, corpse, deathList)
        local killer, pos = deathList[1], getCreaturePosition(cid)
        addEvent(corpseRetireItems, 1, killer, pos)
        return true
    end]]></event>

    <event type="combat" name="MonsterAttack" event="script"><![CDATA[
    domodlib('Loot_func')
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, string.lower(getCreatureName(target))) then
        registerCreatureEvent(target, "LootEventDeath")
    end
    return true]]></event>

    <talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
    domodlib('Loot_func')
    local t = string.explode(string.lower(param), ",")
    if info.OnlyPremium == true and not isPremium(cid) then
        doPlayerSendCancel(cid, "You must be a premium account.")
        return true
    elseif not t[1] then
        ShowItemsTabble(cid)
        return true
    elseif tonumber(t[1]) or tonumber(t[2]) then
        doPlayerSendCancel(cid, "Enter !autoloot add,name or !autoloot remove,name")
        return true
    elseif isInArray({"add", "remove"}, tostring(t[1])) then
        local func, check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
        local item = getItemIdByName(tostring(t[2]), false)
        if not item then
            doPlayerSendCancel(cid, "This item does not exist.")
            return true
        elseif check == true and isInArray(info.BlockItemsList, item) then
            doPlayerSendCancel(cid, "You cannot add this item to the list!")
            return true
        elseif isInTable(cid, item) == check then
            doPlayerSendCancel(cid, "This item " .. (check == true and "already" or "is not") .. " in your list.")
            return true
        end
        func(cid, item)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, check == true and "You added the item " .. t[2] .. " to the list" or "You removed the item " .. t[2] .. " from the list")
        return true
    end
    return true]]></talkaction>
</mod>
Click to expand...
@Tenzhiro

Does not pick up added items.
 
Upvote 0 Downvote
Kownikuzyt said:
@Tenzhiro

There are no blocked items in "BlockItemsList".
Unfortunately, it doesn't automatically collect anything, meat or armor.
Click to expand...
Ah I didnt copied the code for processing items if this doesn't work I have no idea i'm afraid


Lua: 
function corpseRetireItems(cid, pos)
    -- Check if there is a valid corpse at the position
    local check = false
    local tile = nil
    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 then
        -- Get items from the corpse
        local items = getContainerItems(tile.uid)
        if items then
            for i, x in pairs(items) do
                if isInArray(getPlayerStorageTable(cid, 27000), tonumber(x.itemid)) then
                    if isItemStackable(x.itemid) then
                        doPlayerAddItemStacking(cid, x.itemid, x.type)
                        if info.AutomaticDeposit == true and isInArray({"2148","2152","2160"}, tonumber(x.itemid)) then
                            AutomaticDeposit(cid, x.itemid, x.type)
                        end
                    else
                        doPlayerAddItem(cid, x.itemid)
                    end
                    doRemoveItem(x.uid)
                end
            end
        end
    end
end

function onDeath(cid, corpse, deathList)
    local killer, pos = deathList[1], getCreaturePosition(cid)
    addEvent(corpseRetireItems, 1, killer, pos)
    return true
end

function onLogin(cid)
    registerCreatureEvent(cid, "MonsterAttack")
    return true
end

function MonsterAttack(cid, target)
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, string.lower(getCreatureName(target))) then
        registerCreatureEvent(target, "LootEventDeath")
    end
    return true
end

function onCombat(cid)
    domodlib('Loot_func')
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, string.lower(getCreatureName(target))) then
        registerCreatureEvent(target, "LootEventDeath")
    end
    return true
end

function onTalk(cid, words, param)
    domodlib('Loot_func')
    local t = string.explode(string.lower(param), ",")
    if info.OnlyPremium == true and not isPremium(cid) then
        doPlayerSendCancel(cid, "You must be a premium account.")
        return true
    elseif not t[1] then
        ShowItemsTabble(cid)
        return true
    elseif tonumber(t[1]) or tonumber(t[2]) then
        doPlayerSendCancel(cid, "Enter !autoloot add,name or !autoloot remove,name")
        return true
    elseif isInArray({"add", "remove"}, tostring(t[1])) then
        local func, check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
        local item = getItemIdByName(tostring(t[2]), false)
        if not item then
            doPlayerSendCancel(cid, "This item does not exist.")
            return true
        elseif check == true and isInArray(info.BlockItemsList, item) then
            doPlayerSendCancel(cid, "You cannot add this item to the list!")
            return true
        elseif isInTable(cid, item) == check then
            doPlayerSendCancel(cid, "This item " .. (check == true and "already" or "is not") .. " in your list.")
            return true
        end
        func(cid, item)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, check == true and "You added the item " .. t[2] .. " to the list" or "You removed the item " .. t[2] .. " from the list")
        return true
    end
    return true
end

Why don't you use TFS 1.x?
 
Upvote 0 Downvote

Similar threads

J
  • Question
Autoloot problem
Replies
4
Views
367
jareczekjsp
J
G
  • Question
Lua Autoloot Script/Error onkill-Mods
Replies
1
Views
348
Gaber Zen
G
G
  • Question
Lua Auto loot-No Limt-mods
Replies
2
Views
453
Gaber Zen
G
L
  • Question
TFS 0.X Autoloot bug
Replies
5
Views
589
Gaber Zen
G
G
  • Solved
RevScripts Autoloot-creaturescripts (OTX-8.6)
Replies
3
Views
427
Gaber Zen
G
J
  • Question
Autoloot Problem tfs 0.4
Replies
1
Views
305
jareczekjsp
J
J
  • Question
Problem autoloot
Replies
8
Views
592
Obito
Obito
demonrage
  • Question
how to add new attributes in that script ?
Replies
3
Views
505
demonrage
demonrage
G
  • Solved
Lua Script Freeze Rune (Bug Character)
2
Replies
25
Views
793
Gaber Zen
G
J
  • Question
Auction system Problem
Replies
0
Views
251
jareczekjsp
J
Back
Top