Mod TFS 0.X [Sistema] Auto Loot

[AgaSsI 65]

creaturescripts.xml

 

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

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

creaturescripts/scritps aloot.lua

 

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

talkactios.xml

 

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

Talkaction/scrips

 

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

Usando

/aloot check

Cheka a Lista dos Loots

/aloot add:itemid ou nome do item

Exemplo

/aloot add:worm

/aloot add:2170

16:42 Item >>worm<< has been added to the autoloot list.

Para remover

/aloot remove:worm

/aloot remove:2170

Exemplo Testado:

16:41 Looted 2 gold coin.

16:41 Looted 1 cheese.

CREDITOS: eduardobean

é isso pessoal gosto da + Rep

[Felyth 96]

Bacana cara, um bom sistema, muito criativo.

Tópico bem organizado e detalhado, só faltou os créditos caso haja.

[AgaSsI 65]

tava procurando ele em outro forum e resolvi trazar p/ vocês.

espero que serve para mais alguem

já estou colocando os devido credito.

[toty1234 109]

rePUTAdo.

Parece realmente ser bom o script, e realmente, muito criativo

Concerteza irá ajudar muitos ...

Editado Outubro 4, 2011 por toty1234 (veja o histórico de edições)

[Garou 304]

É um ótimo script, mas os créditos não são do tal eduardobean, mas sim de Jano da OTLand.

[Doughell 155]

A dica é o seguinte para o uso deste script:

Limite apenas para players VIP, pode ser uma vantagem a mais!

[Skydangerous 374]

Estou fazendo uma limpeza nas seções.

Percebi que o script "auto-loot" é um sistema, pois é composto por mais de um script.

Estarei movendo para a seção "Sistemas e MOD'S".

Qualquer dúvida me mande uma pm

[habacuque 0]

SE O ITEM TIVER DENTRO DE UMA BP DO MOSTRO O SISTEMA NÃO PEGA ELE.

[getulioroyal 1]

Não cata loot de monstros cujo corpese nao tem mesmo nome do monstro.

Como assim?

Ex:

Orc = Dead Orc = Cata o loot

Necromancer = Dead Human = Não cata o loot

[gabriel luccera zika 1]

o meu pegou mais eu devo não ter intendido correto por que vc não fez nenhuma explicação para cada script so fez coloca a localizasão mais não falou como e onde coloca ajuda ae por favor

Editado Junho 28, 2014 por gabriel luccera zika (veja o histórico de edições)

[gabriel luccera zika 1]

vlw pelo sistem mais ele esta cheio de bugs ou incompletos pq eu adiconei e a seeds e ele não pegou nenuma seed por cauda havia varias seed , 2 ele de vez em quando nãp pega o item adicionado no aoto loot vlw msm se puder resolver fala ai

[robi123 13]

qual o nome do arquivo dentro do  Talkaction/scrips  ?????

[Thunder Black 24]

On 1/4/2016 at 6:35 PM, robi123 said:

qual o nome do arquivo dentro do  Talkaction/scrips  ?????

 

é so ver no xml. O arquivo se chama aloot.

 

 

[lkrazy 1]

Vlw Amigo, + Rep.

[CabralChoi 0]

BOAAA... estava atras deste mesmo!!

[lucasmourahere 3]

[09/02/2017 23:32:55] [Error - CreatureScript Interface] 
[09/02/2017 23:32:55] In a timer event called from: 
[09/02/2017 23:32:55] data/creaturescripts/scripts/aloot.lua:onKill
[09/02/2017 23:32:55] Description: 
[09/02/2017 23:32:55] data/lib/050-function.lua:239: attempt to index a boolean value
[09/02/2017 23:32:55] stack traceback:
[09/02/2017 23:32:55]     data/lib/050-function.lua:239: in function 'getItemName'
[09/02/2017 23:32:55]     data/creaturescripts/scripts/aloot.lua:51: in function <data/creaturescripts/scripts/aloot.lua:6>

[xitajy 1]

cara perfeito mais com um detalhe depois q lota os 5 itens da lista ja era vc nao add nem remove mais nada so fica aqueles ajuda desbugar isso

[Riakisukzinho 0]

Desculpa ta revivendo o topico mas nao puxa o loot