mod [Mod] Auto Loot Update.

pbottrinks · Julho 31, 2012

Credits: MatheusMkalo & Vodkart

versão testada: 8.54, 8.6 e 9.1

Não funciona em OT pokemon

Auto Loot.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>

Commads:

----------------

/autoloot -- mostra a sua lista de items

------------------

/autoloot add,ITEM NAME -- add item na loot list

ex:

/autoloot add,gold coin

------------------

/autoloot remove,ITEM NAME -- remove um item na loot list

Configurações:

OnlyPremium = true

se precisa ser premium para usar o comando

------------------------------

AutomaticDeposit = true

Se o dinheiro que ele dropar ao invés de ir para bag vai para o banco

-----------------------------------------

BlockMonsters = {}

aqui você pode bloquear alguns monstro para ele não usar o auto loot

exemplo:

BlockMonsters = {'hydra,'demon'}

------------------------

BlockItemsList = {2123,2515}

Aqui é para bloquear alguns itens que ele não vai pegar com o autoloot

--------------------------------

OBS:

caso no seu servidor precise relogar para atualizar a loot list adicione:

func(cid, item) -- dps desta linha
doPlayerSave(cid) -- essa função

Atenção: Esse tópico foi autorizado pelo Vodkart, cuja eu tenho total direitos de coloca-lo aqui.

Editado Agosto 1, 2012 por LucasCorrea

Vodkart · Julho 31, 2012

isso mesmo amigo

a diferença é que agr tem talk e de vez de ser por onKill é onDeath

vlw

RHCP · Julho 31, 2012

Faça a função de mandar direto pro bank, que a negada pira.

Porém, tá ótimo, parabéns.

BrunooMaciell · Julho 31, 2012

Sera que serve 8.54 - PokeTibia funciona ??

Vodkart · Julho 31, 2012

Faça a função de mandar direto pro bank, que a negada pira.

Porém, tá ótimo, parabéns.

vc diz o money?

boa ideia hein

@up

n sei, mas acho que nao

só 8.6

mas testa ai e fala se tiver algum erro

SweetEvul · Julho 31, 2012

Não testei ainda , mas parece ser muito bom , parabéns Vodkart e Mkalo pelo mod, e LucasCorrea pelo post! , otimo post e muito bem explicado!

até

Editado Julho 31, 2012 por SweetEvul

Leoxtibia · Julho 31, 2012

Ta foda o sistema. Parabéns aí vodka.

Vodkart · Julho 31, 2012

é isso ai

script atualizado

só ler o final do tópico

Raidou · Julho 31, 2012

Eae galera,fui eu que pedi pro Mkalo no msn,ele me passo por msn.So que esqueci de testa,mais mesmo assim parabens pra voce

Lucas,Otimo Topico.

RHCP · Agosto 17, 2012

Faça a função de mandar direto pro bank, que a negada pira.

Porém, tá ótimo, parabéns.

vc diz o money?

boa ideia hein

* Um ano depois eu respondo*

É, eu vi que atualizou, mas era o dinheiro sim.

Valeu ai, usarei em meu servidor

@edit

Erro ao adicionar item:


[18:9:49.731] [Error - TalkAction Interface]
[18:9:49.731] local cid = 268478915
[18:9:49.731] local words = "/autoloot"
[18:9:49.731] local param = "add, gold coin"
[18:9:49.731] local channel = 65534
[18:9:49.731] domodlib('Loot_func')
[18:9:49.731] local t = string.explode(string.lower(param), ",")
[18:9:49.731] if info.OnlyPremium == true and not isPremium(cid) then
[18:9:49.731] doPlayerSendCancel(cid, "you must be a premium account.") return true
[18:9:49.731] elseif not t[1] then
[18:9:49.731] ShowItemsTabble(cid) return true
[18:9:49.731] elseif tonumber(t[1]) or tonumber(t[2]) then
[18:9:49.731] doPlayerSendCancel(cid, "enter!autoloot add,name or !autoloot remove,name") return true
[18:9:49.731] elseif isInArray({"add","remove"}, tostring(t[1])) then
[18:9:49.731] local func,check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false
[18:9:49.731] local item = getItemIdByName(tostring(t[2]), false)
[18:9:49.731] if not item then
[18:9:49.731] doPlayerSendCancel(cid, "This item does not exist.") return true
[18:9:49.731] elseif check == true and isInArray(info.BlockItemsList, item) then
[18:9:49.731] doPlayerSendCancel(cid, "You can not add this item in the list!") return true
[18:9:49.731] elseif isInTable(cid, item) == check then
[18:9:49.731] doPlayerSendCancel(cid, "This Item "..(check == true and "already" or "is not").." in your list.") return true
[18:9:49.731] end
[18:9:49.731] func(cid, item)
[18:9:49.731] doPlayerSave(cid)
[18:9:49.731] 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
[18:9:49.731] end
[18:9:49.731] return true
[18:9:49.731] Description:
[18:9:49.731] (luaGetItemIdByName) Item not found

Editado Agosto 20, 2012 por RHCP

TiagoBordin1988 · Setembro 12, 2012

no meu server o sistema de vip é esse aqui vip time by Kydrai http://www.xtibia.com/forum/topic/136543-vip-system-by-account-v10/page__st__0 como colocaria esse sistema de auto loot só pra quem for vip time?

Setembro 12, 2012

Mesma duvida do @TiagoBordin1988, gostaria de saber se tem alguma forma de por apenas para vips!

Vodkart · Setembro 12, 2012

claro que tem

Setembro 12, 2012

claro que tem

Perguntinhas retóricas cara, isso é bem óbvio que tem, mas se alguem puder responder com o script editado tipo>

needvip = true -- true se precisa de vip false se não precisa

Vodkart · Setembro 12, 2012

entao pq pergunto tbm ? srsrs

qual seu sistema vip zé

Entrar

mod [Mod] Auto Loot Update.

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

pbottrinks

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

Anúncios