Autoloot

[xS0NYx 15]

Autor: Jano
Versão testada : 8.54
Função: ele pega os itens dos monstros que são mortos sem precisar abrir o corpo e por na bag.
Forum: ******************

 

Primeiro, vá em data/creaturescripts e abre o creaturescripts.xml, e adicione isso :

<event type="login" name="aloot_reg" event="script" value="aloot.lua"/>
<event type="kill" name="aloot_kill" event="script" value="aloot.lua"/> 

 

Agora data/creaturescripts/scripts crie um arquivo aloot.lua e adicione isso:

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

local stor = 7575

function autoloot(cid, target, pos)
   local function doStack(cid, itemid, new)
       local count = getPlayerItemCount(cid, itemid)
       if (count > 100) then
           count = count - math.floor(count / 100) * 100
       end
       local newCount = count + new
       if (count ~= 0) then
           local find = getPlayerItemById(cid, true, itemid, count).uid
           if (find > 0) then
               doRemoveItem(find)
           else
               newCount = new
           end
       end
       local item = doCreateItemEx(itemid, newCount)
       doPlayerAddItemEx(cid, item, true)
   end

   local function scanContainer(cid, uid, list)
       for k = (getContainerSize(uid) - 1), 0, -1 do
           local tmp = getContainerItem(uid, k)
           if (isInArray(list, tmp.itemid)) then
               if isItemStackable(tmp.itemid) and (getPlayerItemCount(cid, tmp.itemid) > 0) then
                   doStack(cid, tmp.itemid, tmp.type)
               else
                   local item = doCreateItemEx(tmp.itemid, tmp.type)
                   doPlayerAddItemEx(cid, item, true)
               end
               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Looted ' .. tmp.type .. ' ' .. getItemNameById(tmp.itemid) .. '.')
               doRemoveItem(tmp.uid)
           elseif isContainer(tmp.uid) then
               scanContainer(cid, tmp.uid, list)
           end
       end
   end

   local items = {}
   for i = getTileInfo(pos).items, 1, -1 do
       pos.stackpos = i
       table.insert(items, getThingFromPos(pos))
   end

   if (#items == 0) then
       return
   end

   local corpse = -1
   for _, item in ipairs(items) do
       local name = getItemName(item.uid):lower()
       if name:find(target:lower()) then
           corpse = item.uid
           break
       end
   end

   if (corpse ~= -1) and isContainer(corpse) then
       scanContainer(cid, corpse, tostring(getPlayerStorageValue(cid, stor)):gsub('_', ''):explode(','))
   end
end

function onKill(cid, target, lastHit)
   if not isPlayer(target) then
       local infos = getPlayerStorageValue(cid, stor)
       if (infos == -1) then
           return true
       end
       local list = tostring(infos):explode(',')
       if (#list == 0) then
           return true
       end
       addEvent(autoloot, 150, cid, getCreatureName(target), getCreaturePosition(target))
   end
   return true
end

 

Agora vá em data/talksactions abra o talksaction.xml e adicione isto :

<talkaction words="/aloot" hide="yes" event="script" value="aloot.lua"/>  

 

Agora vá em data/talksactions/scripts e crie um arquivo aloot.lua e adicione isso:

local stor, limit = 7575, 5 --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

 

Agora os comandos :

/aloot check  - Checa a lista de itens do seu server.

/aloot add:worm  - Adiciona na lista dos itens para pegar automaticamente
/aloot add:2170 

/aloot remove:worm - Remove da lista dos itens para pegar automaticamente
/aloot remove:2170

 

Bem, esse script não é meu, coloquei o nome do autor e do forum, só achei interessante e trousse para o forum, já que não tinha nada parecido.

Valeu ;D

[Socket 0]

Aprovado.

[iuniX 4]

Um sistema realmente muito interessante. Obrigado por traze-lo ao fórum.

[Ribas1574 1]

Muito legal, é uma espécie de bot legalizado pelo servidor que usar o sistema rs

Obrigado por compartilhar

[uiuson 0]

se esse autoloot for = ao que esta sendo usado no PA esta faltando alguns comandos...

 

1. /autoloot on
   
2. /autoloot off
   
3. /aloot add:item
   
4. /aloot remove:item
   
5. /aloot clean
   
6. /aloot check
   

 

Att Lord Devol

[smowking 0]

Valew, mas vai facilitar bastante os botters em!

[Johnbrasil 0]

Em relação a esse auto-looter...

 

Tem alguma maneira de deixar ele automatico para pegar gold automaticamente, e quando chegar a 100 de gold (O sistema ajuntando o gold automaticamente) , ele transformar em 1 platinum automatico, e quando chegar a 100 plati, ele transformar em crystal automaticamente?

 

Se tiver como, por gentileza, teria como me mostrar?

[Pokemoon 0]

isso ai vai ajudar mt os bots nao gostei ;c

[xS0NYx 15]

John, tinha um script similar a esse que você quer aqui no forum, procure na parte de talksactions, que você acha, o cara postou lá um comando pra fazer isso juntar sozinho ^^

[Johnbrasil 0]

John, tinha um script similar a esse que você quer aqui no forum, procure na parte de talksactions, que você acha, o cara postou lá um comando pra fazer isso juntar sozinho ^^

Rapaz... procurei as 7 paginas de todas as Talkactions/Movements cara, e nao achei nada nao...

 

Se tu derrepente puder me passar o link brow, eu acho q ficaria melhor.. procurei 2x, e nao achei.. se vc puder me ajudar cara... agradeceria demais...

 

Vlw brow!

[xxgustavorx 0]

Muito Legal

[pedrook 0]

achei um bug no script.

 

você adiciona os golds coins;

e mata os bixos quando ele completa 100 GPS

ele não amontoa mais não pega mais.

[bivr123 0]

Mt bom Aprovado.

qnd eu chegar da escola vou por no meu ot serv vlw

[Geovani 0]

Usam esse mesmo script no tal Pokemon Adventures, muito obrigado ter trazido para o forum.

Vai ter vários Poke Servers com esse teu sistema

 

obs:o fato do gold não ser pego apartir de 100 e por que ele foi feito pra pokemon eu não cheguei a testar se quando pega 100 de outro referido item para,enfim para pokemon server.

[dz2 0]

ta bugado

quando tem 100 de gold na bag ele SOME com o q ele tenta ajunta depois

[BelmontK 0]

boua ehe

[Kiwith 0]

Vlw

[Maico Muleks 0]

funciona em TFS 1.3 ?

[Nolis 29]

Algum report de erro em 0.4? Funciona normal?