Alguem pode me dizer o que a de errado nesse script ?

[ztalkerr 1]

Bom dia galera.. esse é meu script de autoloot porem comecei a perceber que estava dando 1 erro doido e travando o ot e ninguem conseguia conectar.. 

 

Esse erro ai.

 

Desativei o autoloot e por enquanto esta normalizado.

 

Alguem por favor me diga oque tem de errado nesse script. abaixo.

 

 

local stor, limit = 7575, 25 --storage, limit to add.

 

local allow_container = false --empty! not looted with items, atleast for now.

 

function onSay(cid, words, param)

    local expl = param:explode(':')

    local action, rst = expl[1], expl[2]

    if (action:lower() == 'check') then

        local infos, list = getPlayerStorageValue(cid, stor), {}

        if (infos ~= -1) then

            list = tostring(infos):explode(',')

        end

        local txt = 'Autoloot List:\n'

        if (#list > 0) then

            for k, id in ipairs(list) do

                id = id:gsub('_', '')

                if tonumber(id) then

                    txt = txt .. getItemNameById(tonumber(id)) .. ((k < #list) and '\n' or '')

                end

            end

        else

            txt = 'Empty'

        end

        doPlayerPopupFYI(cid, txt)

    elseif (action:lower() == 'add') then

        local infos, list = getPlayerStorageValue(cid, stor), {}

        if (infos ~= -1) then

            list = tostring(infos):gsub('_', ''):explode(',')

        end

        if (#list >= limit) then

            return doPlayerSendCancel(cid, 'You already have ' .. limit .. ' autolooting items.')

        end

        local item = tonumber(rst)

        if not item then

            item = getItemIdByName(rst, false)

            if not item then

                return doPlayerSendCancel(cid, 'not valid item.')

            end

        end

        if not allow_container and isItemContainer(item) then

            return doPlayerSendCancel(cid, 'this item can not be autolooted.')

        end

        local attrs = getItemInfo(item)

        if not attrs then

            return doPlayerSendCancel(cid, 'not valid item.')

        elseif not attrs.movable or not attrs.pickupable then

            return doPlayerSendCancel(cid, 'this item can not be autolooted.')

        end

        if isInArray(list, item) then

            return doPlayerSendCancel(cid, 'already added.')

        end

        table.insert(list, tostring(item))

        local new = ''

        for v, id in ipairs(list) do

            new = new .. '_' .. id:gsub('_' ,'') .. ((v < #list) and ',' or '')

        end

        doPlayerSetStorageValue(cid, stor, tostring(new))

        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Item >>' .. getItemNameById(item) .. '<< has been added to the autoloot list.')

    elseif (action:lower() == 'remove') then

        local infos, list = getPlayerStorageValue(cid, stor), {}

        if (infos ~= -1) then

            list = tostring(infos):gsub('_', ''):explode(',')

        end

        if (#list == 0) then

            return doPlayerSendCancel(cid, 'You dont have any item added.')

        end

        if (#list >= limit) then

            return doPlayerSendCancel(cid, 'You already have ' .. limit .. ' autolooting items.')

        end

        local item = tonumber(rst)

        if not item then

            item = getItemIdByName(rst, false)

            if not item then

                return doPlayerSendCancel(cid, 'not valid item.')

            end

        end

        if not isInArray(list, item) then

            return doPlayerSendCancel(cid, 'This item is not in the list.')

        end

        local new = ''

        for v, id in ipairs(list) do

            if (tonumber(id) ~= item) then

                new = new .. '_' .. id:gsub('_' ,'') .. ((v < #list) and ',' or '')

            end

        end

        doPlayerSetStorageValue(cid, stor, tostring(new))

        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Item >>' .. getItemNameById(item) .. '<< removed from the autoloot list.')

    end        

    return true

end

 

 

Obrigado.

[Wakon 912]

O tópico foi movido para a área correta, preste mais atenção da próxima vez!
Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:
De: "OTServ → Scripting → Geral"
Para: "OTServ → Suporte OTServ → Suporte de Scripts"