[Event] Item

Erexo · Apr 3, 2011

Hello,
i looking for script, from all monsters can loot item with id 1234, 1% chance to loot.

I need this to a nice event...

Someone can help?

Cykotitan · Apr 6, 2011

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end

function onKill(cid, target, damage, flags)
	if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
		local a = getCreatureMaster(target)
		if not a or a == target then
			local b = getMonsterInfo(getCreatureName(target))
			if b and b.lookCorpse ~= 0 then
				local c = getItemInfo(b.lookCorpse)
				if c and c.type == ITEM_TYPE_CONTAINER then
					addEvent(f, 0, getThingPos(target), b.lookCorpse)
				end
			end
		end
	end
	return true
end

Knight God · Apr 22, 2011

This event may be specified from time to time such as every 1 month but the duration is for 7 days?
sorry for my bad english i use traductor of google.

Knight God · Apr 23, 2011

Cykotitan · Apr 23, 2011

use os.date('%d')

Knight God · Apr 23, 2011

use os.date('%d')

sorry mr. cykotitan
but I have no idea how you can add what you said earlier. : /
you could take the time to teach or simply re-configure the script?.

Knight God · Apr 27, 2011

bump?

anotapreta · May 21, 2011

Man create a mod file for activate only on saturday?

Bogart · May 21, 2011

anotapreta said:
Man create a mod file for activate only on saturday?

there's no need to make a mod, you can use this as base.

anotapreta · May 24, 2011

creaturescripts.xml

LUA:

<event type="death" name="SaturdayLoot" event="script" value="SaturdayLoot.lua"/>

login.lua

LUA:

	registerCreatureEvent(cid, "SaturdayLoot")

SaturdayLoot.lua

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end

local function isSaturday
 	local Saturday = Saturday 
end

	

 
function onKill(cid, target, damage, flags)

if isSaturday then
	if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
		local a = getCreatureMaster(target)
		if not a or a == target then
			local b = getMonsterInfo(getCreatureName(target))
			if b and b.lookCorpse ~= 0 then
				local c = getItemInfo(b.lookCorpse)
				if c and c.type == ITEM_TYPE_CONTAINER then
					addEvent(f, 0, getThingPos(target), b.lookCorpse)
				end
			end
		end
	end
	return true
end
end

Help

Summ · May 24, 2011

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end
 
local function isSaturday()
 	return os.date("%w") == 6 and true or false
end
 
function onKill(cid, target, damage, flags)
	if isSaturday() then
		if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
			local a = getCreatureMaster(target)
			if not a or a == target then
				local b = getMonsterInfo(getCreatureName(target))
				if b and b.lookCorpse ~= 0 then
					local c = getItemInfo(b.lookCorpse)
					if c and c.type == ITEM_TYPE_CONTAINER then
						addEvent(f, 0, getThingPos(target), b.lookCorpse)
					end
				end
			end
		end
	end
	return true
end

Knight God · May 24, 2011

Summ said:

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end
 
local function isSaturday()
 	return os.date("%w") == 6 and true or false
end
 
function onKill(cid, target, damage, flags)
	if isSaturday() then
		if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
			local a = getCreatureMaster(target)
			if not a or a == target then
				local b = getMonsterInfo(getCreatureName(target))
				if b and b.lookCorpse ~= 0 then
					local c = getItemInfo(b.lookCorpse)
					if c and c.type == ITEM_TYPE_CONTAINER then
						addEvent(f, 0, getThingPos(target), b.lookCorpse)
					end
				end
			end
		end
	end
	return true
end

o.0!
work in tfs 0.4?

Summ · May 24, 2011

o.0! Why not?? Maybe just test..

Cykotitan · May 24, 2011

Summ said:

and true or false isn't required

Knight God · May 24, 2011

well

then the script does not lose anything by removing and true or false?

anotapreta · May 24, 2011

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end
 
local function isSaturday()
 	return os.date("%w") == 6 
end

local HardMonter = {"dragon", "dragon lord", "grin rapper", "frost dragon"}

function onKill(cid, target, damage, flags)

	if isSaturday() then
		if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) and getCreatureName(getCreatureTarget(cid)) == HardMonter then
			local a = getCreatureMaster(target)
			if not a or a == target then
				local b = getMonsterInfo(getCreatureName(target))
				if b and b.lookCorpse ~= 0 then
					local c = getItemInfo(b.lookCorpse)
					if c and c.type == ITEM_TYPE_CONTAINER then
						addEvent(f, 0, getThingPos(target), b.lookCorpse)
					end
				end
			end
		end
	end
	return true
end

I need help so that only the monsters on the list have the chance to drop loot.
Or everyone will run to cave of rat because it is very easy to kill.

Knight God · May 25, 2011

anotapreta said:

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end
 
local function isSaturday()
 	return os.date("%w") == 6 
end


function onKill(cid, target, damage, flags)

 	local HardMonter = {'dragon', 'dragon lord', 'grin rapper', 'frost dragon'}

	if isSaturday() then
		if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
			local a = getCreatureMaster(target)
			if not a or a == target then
				local b = getMonsterInfo(getCreatureName(target))
				if b and b.lookCorpse ~= 0 then
					local c = getItemInfo(b.lookCorpse)
					if c and c.type == ITEM_TYPE_CONTAINER then
						addEvent(f, 0, getThingPos(target), b.lookCorpse)
					end
				end
			end
		end
	end
	return true
end

add if monster is hard for life or other
or chose monsters {dragon, dragon lord, demon}

which means it, that the harder the monster loot item?

Cykotitan · May 25, 2011

anotapreta said:

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end
 
local function isSaturday()
 	return os.date("%w") == 6 
end


function onKill(cid, target, damage, flags)

 	local HardMonter = {'dragon', 'dragon lord', 'grin rapper', 'frost dragon'}

	if isSaturday() then
		if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
			local a = getCreatureMaster(target)
			if not a or a == target then
				local b = getMonsterInfo(getCreatureName(target))
				if b and b.lookCorpse ~= 0 then
					local c = getItemInfo(b.lookCorpse)
					if c and c.type == ITEM_TYPE_CONTAINER then
						addEvent(f, 0, getThingPos(target), b.lookCorpse)
					end
				end
			end
		end
	end
	return true
end

I need help so that only the monsters on the list have the chance to drop loot.
Or everyone will run to cave of rat because it is very easy to kill.

just check the maxhealth?

anotapreta · May 25, 2011

Yes, is good maxhealth dragon or more hard, dragon is 1.000 max health. For add REP for you is in this link? http://otland.net/reputation.php?do=addreputation&p=1255045 ok?

For install i add:

creaturescripts.xml

LUA:

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

login.lua

LUA:

	registerCreatureEvent(cid, "SaturdayLoot")

SaturdayLoot.lua

LUA:

local function f(pos, b)
	local j = getTileItemById(pos, b).uid
	if j ~= 0 then
		doAddContainerItem(j, 1234)
	end
end
 
local function isSaturday()
 	return os.date("%w") == 6 
end
 
 
function onKill(cid, target, damage, flags)
 
	if isSaturday() then
		if math.random(100) == 1 and (damage == true or flags == 3) and isMonster(target) then
			local a = getCreatureMaster(target)
			if not a or a == target then
				local b = getMonsterInfo(getCreatureName(target))
				local e = getMonsterInfo(getCreatureMaxHealth(target))
				if b and b.lookCorpse ~= 0 and e >= 1000 then
					local c = getItemInfo(b.lookCorpse)
					if c and c.type == ITEM_TYPE_CONTAINER then
						addEvent(f, 0, getThingPos(target), b.lookCorpse)
					end
				end
			end
		end
	end
	return true
end

?

HELP!

EDIT: Kill the monster and he stands up. Besides never give any item even if it helped increase the odds.

[Event] Item

Erexo

Kage

Cykotitan

Experienced G'

Knight God

Member

Knight God

Member

Cykotitan

Experienced G'

Knight God

Member

Knight God

Member

anotapreta

New Member

Bogart

...has super panda powers

anotapreta

New Member

Summ

(\/)(;,,;)(\/) Y not?

Knight God

Member

Summ

(\/)(;,,;)(\/) Y not?

Cykotitan

Experienced G'

Knight God

Member

anotapreta

New Member

Knight God

Member

Cykotitan

Experienced G'

anotapreta

New Member