Normal Sistema !autoloot com Item Remove

[mateusmoretti 18]

  Em 22/01/2017 em 22:27, Sekk disse:

precisa deletar nada n ueheu

precisa deletar nada n ueheu

Mostrar mais  

FUNCIONANDO 100% OBRIGADO SEKK

@Sekk

to tentando usar o comando !autoloot add, crystal coins

testei com todos os itens facil, porem ta falando que esse item não existe da uma força ai!

  Em 22/01/2017 em 22:26, Farathor disse:

eu esqueci as outras funções

 

  Mostrar conteúdo oculto

 

 

 

 

 

 

 

 

-- Sistema de auto loot criado por Vítor Bertolucci - Killua

-- Editado por Eduardo Rodrigues - Farathor

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

local function getPlayerList(cid)
    local tab = {}
    if getPlayerStorageValue(cid, 04420021) ~= -1 then
        table.insert(tab, getPlayerStorageValue(cid, 04420021))
    end
    if getPlayerStorageValue(cid, 04420031) ~= -1 then
        table.insert(tab, getPlayerStorageValue(cid, 04420031))
    end
    if getPlayerStorageValue(cid, 04420041) ~= -1 then
        table.insert(tab, getPlayerStorageValue(cid, 04420041))
    end
    if getPlayerStorageValue(cid, 04420051) ~= -1 then
        table.insert(tab, getPlayerStorageValue(cid, 04420051))
    end
    if #tab > 0 then
        return tab
    end
    return false
end

local function addToList(cid, name)
    local itemid = getItemIdByName(name)
    if getPlayerList(cid) and isInArray(getPlayerList(cid), itemid) then
        return false
    end
    if getPlayerStorageValue(cid, 04420021) == -1 then
        return doPlayerSetStorageValue(cid, 04420021, itemid)
    elseif getPlayerStorageValue(cid, 04420031) == -1 then
        return doPlayerSetStorageValue(cid, 04420031, itemid)
    elseif getPlayerStorageValue(cid, 04420041) == -1 then    
        return doPlayerSetStorageValue(cid, 04420041, itemid)
    elseif getPlayerStorageValue(cid, 04420051) == -1 then
        return doPlayerSetStorageValue(cid, 04420051, itemid)
    end
end

local function removeFromList(cid, name)
    local itemid = getItemIdByName(name)
    if getPlayerStorageValue(cid, 04420021) == itemid then
        return doPlayerSetStorageValue(cid, 04420021, -1)
    elseif getPlayerStorageValue(cid, 04420031) == itemid then
        return doPlayerSetStorageValue(cid, 04420031, -1)
    elseif getPlayerStorageValue(cid, 04420041) == itemid then
        return doPlayerSetStorageValue(cid, 04420041, -1)
    elseif getPlayerStorageValue(cid, 04420051) == itemid then
        return doPlayerSetStorageValue(cid, 04420051, -1)
    end
    return false
end

function onSay(cid, words, param)
    if param == "" then
        local t = getPlayerStorageValue(cid, 04428201) - os.time()
        local horas = math.floor(t/(60*60))
        local minutos = math.floor((t/60) - (horas*60))
        local segundos = math.floor(t - ((horas*60*60) + (minutos *60)))
        local fi = getPlayerStorageValue(cid, 04420021) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 04420021)) or ""
        local se = not vip.hasVip(cid) and "Não disponível para free account" or getPlayerStorageValue(cid, 04420031) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 04420031)) or ""
        local th = not vip.hasVip(cid) and "Não disponível para free account" or getPlayerStorageValue(cid, 04420041) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 04420041)) or ""
        local fo = not vip.hasVip(cid) and "Não disponível para free account" or getPlayerStorageValue(cid, 04420051) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 04420051)) or ""
        local stt = getPlayerStorageValue(cid, 04421011) == 1 and "sim" or "não"
        local str = getPlayerStorageValue(cid, 04421001) == 1 and "sim" or "não"
        doPlayerPopupFYI(cid, "{Auto-Loot} ---Menu Auto Loot do jogador\n{Auto-Loot} ----------------\n{Auto-Loot} ---Coletar dinheiro: "..stt..". Para ligar/desligar: !autoloot gold \n{Auto-Loot} ---Coletar itens únicos: "..str..". Para ligar/desligar: !autoloot power\n{Auto-Loot} --Configuração dos slots:\n{Auto-Loot} ---Slot 1: "..fi.."\n{Auto-Loot} ---Slot 2: "..se.."\n{Auto-Loot} ---Slot 3: "..th.."\n{Auto-Loot} ---Slot 4: "..fo.."\n{Auto-Loot} ---Para adicionar um novo item aos slots: !autoloot add, <nome do item>\n{Auto-Loot} ---Para retirar um item dos slots: !autoloot remove, <nome do item>\n{Auto-Loot} ---Para limpar todos os slots utilize: !autoloot clear\n{Auto-Loot} ---Para informações de quanto você já fez utilizando a coleta de dinheiro, use: !autoloot goldinfo\n\nTempo: "..horas.." Horas, "..minutos.." Minutos, "..segundos.." Segundos\n\nSe seu autoloot bugar use !autoloot desbug\n\n{Auto-Loot} ----------------")
        return true
    end
    
    local t = string.explode(param, ",")
    
    if t[1] == "power" then
        elseif getPlayerStorageValue(cid, 04428201) < os.time() then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você não tem tempo de autoloot")
        else
            local check = getPlayerStorageValue(cid, 04421001) == -1 and "ligou" or "desligou"
            doPlayerSetStorageValue(cid, 04421001, getPlayerStorageValue(cid, 04421001) == -1 and 1 or -1)
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você "..check.." o auto loot.")
        end
    elseif t[1] == "gold" then
        elseif getPlayerStorageValue(cid, 04428201) < os.time() then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você não tem tempo de autoloot")
        else
            local check = getPlayerStorageValue(cid, 04421011) == -1 and "ligou" or "desligou"
            doPlayerSetStorageValue(cid, 04421011, getPlayerStorageValue(cid, 04421011) == -1 and 1 or -1)
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você "..check.." a coleta de dinheiro.")
            doPlayerSetStorageValue(cid, 04421021, 0)
        end
    elseif t[1] == "goldinfo" then
        local str = getPlayerStorageValue(cid, 04421011) == -1 and "O sistema de coleta de dinheiro está desligado" or "O sistema já coletou "..getPlayerStorageZero(cid, 04421021).." gold coins"
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, str)
    elseif t[1] == "add" then
        elseif getPlayerStorageValue(cid, 04428201) < os.time() then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você não tem tempo de autoloot")
        else
            if ExistItemByName(t[2]) then
                local item = getItemIdByName(t[2])
                if isInArray({2160, 2148, 2152}, item) then
                    return doPlayerSendCancel(cid, "Você não pode adicionar moedas no autoloot. Para coletar dinheiro use !autoloot gold")
                end
                if vip.hasVip(cid) then
                    if getPlayerStorageValue(cid, 04420011) < 3 then
                        if addToList(cid, t[2]) then
                            doPlayerSetStorageValue(cid, 04420011, getPlayerStorageValue(cid, 04420011) + 1)
                            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, t[2].." adicionado à sua lista do auto loot! Para ver sua lista diga !autoloot list")
                        else
                            doPlayerSendCancel(cid, t[2].." já está em sua lista!")
                        end
                    else
                        doPlayerSendCancel(cid, "Sua lista já tem 4 itens! Você deve remover algum antes de adicionar outro.")
                    end
                else
                    if getPlayerStorageValue(cid, 04420011) == -1 then
                        if addToList(cid, t[2]) then
                            doPlayerSetStorageValue(cid, 04420011, getPlayerStorageValue(cid, 04420011) + 1)
                            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, t[2].." adicionado à sua lista do auto loot! Para ver sua lista diga !autoloot")
                        else
                            doPlayerSendCancel(cid, t[2].." já está em sua lista!")
                        end
                    else
                        doPlayerSendCancel(cid, "Você já tem um item adicionado no auto loot! Para adicionar outro, você deve remover o item atual.")
                    end
                end
            else
                doPlayerSendCancel(cid, "Este item não existe!")
            end
        end
    elseif t[1] == "remove" then
        if ExistItemByName(t[2]) then
            if removeFromList(cid, t[2]) then
                doPlayerSetStorageValue(cid, 04420011, getPlayerStorageValue(cid, 04420011) - 1)
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, t[2].." removido da sua lista do auto loot!")
            else
                doPlayerSendCancel(cid, "Este item não está na sua lista!")
            end
        else
            doPlayerSendCancel(cid, "Este item não existe!")
        end
    elseif t[1] == "clear" then
        if getPlayerStorageValue(cid, 04420011) > -1 then
            doPlayerSetStorageValue(cid, 04420011, -1)
            doPlayerSetStorageValue(cid, 04420021, -1)
            doPlayerSetStorageValue(cid, 04420031, -1)
            doPlayerSetStorageValue(cid, 04420041, -1)
            doPlayerSetStorageValue(cid, 04420051, -1)
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Lista limpa!")
        else
            doPlayerSendCancel(cid, "Sua lista ja esta limpa!")
        end
    elseif t[1] == "desbug" or t[1] == "desbugar" then
        doPlayerSetStorageValue(cid, 04420011, -1)
        doPlayerSetStorageValue(cid, 04420021, -1)
        doPlayerSetStorageValue(cid, 04420031, -1)
        doPlayerSetStorageValue(cid, 04420041, -1)
        doPlayerSetStorageValue(cid, 04420051, -1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Desbugado!")
    elseif t[1] == "list" then
        local fi = getPlayerStorageValue(cid, 04420021) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 04420021)).."\n" or ""
        local se = getPlayerStorageValue(cid, 04420031) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 04420031)).."\n" or ""
        local th = getPlayerStorageValue(cid, 04420041) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 04420041)).."\n" or ""
        local fo = getPlayerStorageValue(cid, 04420051) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 04420051)).."\n" or ""
        doPlayerPopupFYI(cid, "O sistema auto loot está coletando:\n "..fi..""..se..""..th..""..fo)
    end
    return true
end

 

 

Mostrar mais  

@Farathor colokei esse que voce mando, e deu isso aqui!

ta legal sem nenhum erro na distro, porem quem nao tem o item id consegue ativar o autoloot ainda!

Editado Janeiro 22, 2017 por mateusmoretti (veja o histórico de edições)

[Farathor 14]

  Em 22/01/2017 em 22:31, mateusmoretti disse:

FUNCIONANDO 100% OBRIGADO SEKK

@Sekk

to tentando usar o comando !autoloot add, crystal coins

testei com todos os itens facil, porem ta falando que esse item não existe da uma força ai!

@Farathor colokei esse que voce mando, e deu isso aqui!

ta legal sem nenhum erro na distro, porem quem nao tem o item id consegue ativar o autoloot ainda!

Mostrar mais  

Como assim, não entendi

[Sekk 396]

  Em 22/01/2017 em 22:31, mateusmoretti disse:

FUNCIONANDO 100% OBRIGADO SEKK

@Sekk

to tentando usar o comando !autoloot add, crystal coins

testei com todos os itens facil, porem ta falando que esse item não existe da uma força ai!

@Farathor colokei esse que voce mando, e deu isso aqui!

ta legal sem nenhum erro na distro, porem quem nao tem o item id consegue ativar o autoloot ainda!

Mostrar mais  

 

 

É que o certo, é crystal COIN, sem o 's' kkkk

[mateusmoretti 18]

  Em 23/01/2017 em 17:30, Sekk disse:

 

 

É que o certo, é crystal COIN, sem o 's' kkkk

Mostrar mais  

Vou testa aqui, porem se eu tenta adicionar os itens "magic plate armor, demon shield, golden legs, o comando não ta dando!

se voce poder verificar ai!

[Sekk 396]

  Em 23/01/2017 em 17:35, mateusmoretti disse:

Vou testa aqui, porem se eu tenta adicionar os itens "magic plate armor, demon shield, golden legs, o comando não ta dando!

se voce poder verificar ai!

Expand   Mostrar mais  

 

vou ver se ta funcionando aqui