Normal [PEDIDO] Autoloot gold para TFS 1.2

[willks123 3]

Bom antes que me critique pois sem que tem vários tópicos sobre autoloot. Peço desculpas pois sou leigo em programação. 

 

Eu preciso de um Script de autoloot apenas para Gold Coin ir direto para o Banco. Porém esse sistema tem que ser ativado por um item e ter duração de 15 dias pois vou colocar para vender no Store.

Mas quero que seja um item que o jogador possa vender pra outros jogadores para girar o comércio do OT.

 

Bom se for possível isso agradeço e dou Rep++ e coloco os creditoseus pelo sistema em meu servidor.

[Erimyth 95]

up tbm preciso....

[TioSlash 45]

Em 20/06/2017 em 12:30, willks123 disse:

Bom antes que me critique pois sem que tem vários tópicos sobre autoloot. Peço desculpas pois sou leigo em programação. 

 

Eu preciso de um Script de autoloot apenas para Gold Coin ir direto para o Banco. Porém esse sistema tem que ser ativado por um item e ter duração de 15 dias pois vou colocar para vender no Store.

Mas quero que seja um item que o jogador possa vender pra outros jogadores para girar o comércio do OT.

 

Bom se for possível isso agradeço e dou Rep++ e coloco os creditoseus pelo sistema em meu servidor.

 

9 horas atrás, erimyth disse:

up tbm preciso....

 

Trouxe esse script do Printer,

testado e aprovado em TFS 1.x

todo credito de criação do mesmo é dele, segue o script:

 

!autoloot add, itemId or name -- Adding a item to the list
!autoloot remove, itemId or name -- Removing a item from the list
!autoloot show -- Show the autoLoot list
!autoloot clear -- Clears the autoLoot list

Vá em data/global.lua e no final do arquivo cole isso:

 

-- AutoLoot config
    AUTO_LOOT_MAX_ITEMS = 5
 
    -- Reserved storage
    AUTOLOOT_STORAGE_START = 10000
    AUTOLOOT_STORAGE_END = AUTOLOOT_STORAGE_START + AUTO_LOOT_MAX_ITEMS
-- AutoLoot config end

Agora vá em data/talkactions/talkactions.xml e coleque essa tag:

 

<talkaction words="!autoloot" separator=" " script="autoloot.lua"/>

Depois entre em /data/talkactions/scripts e crie um arquivo com o nome autoloot.lua, dentro dele coloque isso:

 

function onSay(player, words, param)
    local split = param:split(",")
 
    local action = split[1]
    if action == "add" then
        local item = split[2]:gsub("%s+", "", 1)
        local itemType = ItemType(item)
        if itemType:getId() == 0 then
            itemType = ItemType(tonumber(item))
            if itemType:getId() == 0 then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "There is no item with that id or name.")
                return false
            end
        end
 
        local itemName = tonumber(split[2]) and itemType:getName() or item
        local size = 0
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            local storage = player:getStorageValue(i)
            if size == AUTO_LOOT_MAX_ITEMS then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "The list is full, please remove from the list to make some room.")
                break
            end
 
            if storage == itemType:getId() then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." is already in the list.")
                break
            end
 
            if storage <= 0 then
                player:setStorageValue(i, itemType:getId())
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." has been added to the list.")
                break
            end
 
            size = size + 1
        end
    elseif action == "remove" then
        local item = split[2]:gsub("%s+", "", 1)
        local itemType = ItemType(item)
        if itemType:getId() == 0 then
            itemType = ItemType(tonumber(item))
            if itemType:getId() == 0 then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "There is no item with that id or name.")
                return false
            end
        end
 
        local itemName = tonumber(split[2]) and itemType:getName() or item
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            if player:getStorageValue(i) == itemType:getId() then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." has been removed from the list.")
                player:setStorageValue(i, 0)
                return false
            end
        end
 
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." was not founded in the list.")
    elseif action == "show" then
        local text = "-- Auto Loot List --\n"
        local count = 1
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            local storage = player:getStorageValue(i)
            if storage > 0 then
                text = string.format("%s%d. %s\n", text, count, ItemType(storage):getName())
                count = count + 1
            end
        end
 
        if text == "" then
            text = "Empty"
        end
 
        player:showTextDialog(1950, text, false)
    elseif action == "clear" then
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            player:setStorageValue(i, 0)
        end
 
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "The autoloot list has been cleared.")
    else
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Use the commands: !autoloot {add, remove, show, clear}")
    end
 
    return false
end

Agora vá em data/creaturescripts/creaturescripts.xml e coloque esta tag dentro:

 

<event type="kill" name="AutoLoot" script="autoloot.lua" />

Depois entra em /data/creaturescripts/scripts e crie um arquivo chamado autoloot.lua, dentro dele coloque isso:

 

local function scanContainer(cid, position)
    local player = Player(cid)
    if not player then
        return
    end
 
    local corpse = Tile(position):getTopDownItem()
    if not corpse or not corpse:isContainer() then
        return
    end
 
    if corpse:getType():isCorpse() and corpse:getAttribute(ITEM_ATTRIBUTE_CORPSEOWNER) == cid then
        for a = corpse:getSize() - 1, 0, -1 do
            local containerItem = corpse:getItem(a)
            if containerItem then
                for b = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
                    if player:getStorageValue(b) == containerItem:getId() then
                        containerItem:moveTo(player)
                    end
                end
            end
        end
    end
end
 
function onKill(player, target)
    if not target:isMonster() then
        return true
    end
 
    addEvent(scanContainer, 100, player:getId(), target:getPosition())
    return true
end

Por fim, não esqueça de registrar o evento dentro do arquivo login.lua que fica na pasta creaturescripts/scripts.

no meu caso (tfs 1.3) ele fica no seguinte caminho: /data/creaturescripts/scripts/others/login.lua

adicione esta tag:

player:registerEvent("AutoLoot")

Creditos 100%: Printer

Editado Março 18, 2018 por TioSlash (veja o histórico de edições)

[heitor1 3]

Em 18/03/2018 em 10:43, TioSlash disse:

 

 

Trouxe esse script do Printer,

testado e aprovado em TFS 1.x

todo credito de criação do mesmo é dele, segue o script:

 

!autoloot add, itemId or name -- Adding a item to the list
!autoloot remove, itemId or name -- Removing a item from the list
!autoloot show -- Show the autoLoot list
!autoloot clear -- Clears the autoLoot list

Vá em data/global.lua e no final do arquivo cole isso:

 

-- AutoLoot config
    AUTO_LOOT_MAX_ITEMS = 5
 
    -- Reserved storage
    AUTOLOOT_STORAGE_START = 10000
    AUTOLOOT_STORAGE_END = AUTOLOOT_STORAGE_START + AUTO_LOOT_MAX_ITEMS
-- AutoLoot config end

Agora vá em data/talkactions/talkactions.xml e coleque essa tag:

 

<talkaction words="!autoloot" separator=" " script="autoloot.lua"/>

Depois entre em /data/talkactions/scripts e crie um arquivo com o nome autoloot.lua, dentro dele coloque isso:

 

function onSay(player, words, param)
    local split = param:split(",")
 
    local action = split[1]
    if action == "add" then
        local item = split[2]:gsub("%s+", "", 1)
        local itemType = ItemType(item)
        if itemType:getId() == 0 then
            itemType = ItemType(tonumber(item))
            if itemType:getId() == 0 then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "There is no item with that id or name.")
                return false
            end
        end
 
        local itemName = tonumber(split[2]) and itemType:getName() or item
        local size = 0
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            local storage = player:getStorageValue(i)
            if size == AUTO_LOOT_MAX_ITEMS then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "The list is full, please remove from the list to make some room.")
                break
            end
 
            if storage == itemType:getId() then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." is already in the list.")
                break
            end
 
            if storage <= 0 then
                player:setStorageValue(i, itemType:getId())
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." has been added to the list.")
                break
            end
 
            size = size + 1
        end
    elseif action == "remove" then
        local item = split[2]:gsub("%s+", "", 1)
        local itemType = ItemType(item)
        if itemType:getId() == 0 then
            itemType = ItemType(tonumber(item))
            if itemType:getId() == 0 then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "There is no item with that id or name.")
                return false
            end
        end
 
        local itemName = tonumber(split[2]) and itemType:getName() or item
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            if player:getStorageValue(i) == itemType:getId() then
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." has been removed from the list.")
                player:setStorageValue(i, 0)
                return false
            end
        end
 
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, itemName .." was not founded in the list.")
    elseif action == "show" then
        local text = "-- Auto Loot List --\n"
        local count = 1
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            local storage = player:getStorageValue(i)
            if storage > 0 then
                text = string.format("%s%d. %s\n", text, count, ItemType(storage):getName())
                count = count + 1
            end
        end
 
        if text == "" then
            text = "Empty"
        end
 
        player:showTextDialog(1950, text, false)
    elseif action == "clear" then
        for i = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
            player:setStorageValue(i, 0)
        end
 
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "The autoloot list has been cleared.")
    else
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Use the commands: !autoloot {add, remove, show, clear}")
    end
 
    return false
end

Agora vá em data/creaturescripts/creaturescripts.xml e coloque esta tag dentro:

 

<event type="kill" name="AutoLoot" script="autoloot.lua" />

Depois entra em /data/creaturescripts/scripts e crie um arquivo chamado autoloot.lua, dentro dele coloque isso:

 

local function scanContainer(cid, position)
    local player = Player(cid)
    if not player then
        return
    end
 
    local corpse = Tile(position):getTopDownItem()
    if not corpse or not corpse:isContainer() then
        return
    end
 
    if corpse:getType():isCorpse() and corpse:getAttribute(ITEM_ATTRIBUTE_CORPSEOWNER) == cid then
        for a = corpse:getSize() - 1, 0, -1 do
            local containerItem = corpse:getItem(a)
            if containerItem then
                for b = AUTOLOOT_STORAGE_START, AUTOLOOT_STORAGE_END do
                    if player:getStorageValue(b) == containerItem:getId() then
                        containerItem:moveTo(player)
                    end
                end
            end
        end
    end
end
 
function onKill(player, target)
    if not target:isMonster() then
        return true
    end
 
    addEvent(scanContainer, 100, player:getId(), target:getPosition())
    return true
end

Por fim, não esqueça de registrar o evento dentro do arquivo login.lua que fica na pasta creaturescripts/scripts.

no meu caso (tfs 1.3) ele fica no seguinte caminho: /data/creaturescripts/scripts/others/login.lua

adicione esta tag:

player:registerEvent("AutoLoot")

Creditos 100%: Printer

 

Funciona no TFS 1.3, tibia 12.1?

 

Muito obrigado pelo tutorial...

[Stefano Blanco 0]

nao funciona. tfs 1.2 nem erro volta.. pode digitar a vontade no !autoloot nao acontece nada.