CreatureEvent Forever Amulet (Red & Black Skull Protection)

[perfection]

in creaturescripts/scripts/preparedeath.lua

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
	if(getPlayerSlotItem(cid, 2).itemid == 2196) and getPlayerSkullType(cid) >= 0 then
		doCreatureSetDropLoot(cid, false)
	end
return true
end

and in creaturescripts/scripts/login.lua add

registerCreatureEvent(cid, "onPrepareDeath")

and add in creaturescripts.xml

<event type="preparedeath" name="onPrepareDeath" event="script" value="preparedeath.lua"/>

NOW to change the name of the item

in items.xml

change:

	<item id="2196" article="a" name="broken amulet">
		<attribute key="weight" value="420" />
		<attribute key="slotType" value="necklace" />
	</item>

to:

	<item id="2196" article="a" name="Forever Amulet">
		<attribute key="weight" value="420" />
		<attribute key="slotType" value="necklace" />
	</item>

 

[Santi]

No need to check skull type.
Already released but good job.

 

[president vankk]

+ czerwoną czaszką Amulet - Tibia.net.pl


It seems to be the same, but you did some edits ;p. But if i'm wrong... nice release... If i'm correct... yeye

 

[perfection]

+ czerwoną czaszką Amulet - Tibia.net.pl


It seems to be the same, but you did some edits ;p. But if i'm wrong... nice release... If i'm correct... yeye

its a bit close to mine but thats not forever and i dont know polak to go on a polak site and thx anyways

 

[Optus]

ironically they use the same item ID and functions

 

[Serginov]

You usually use broken amulet for forever aol though..

 

[perfection]

You usually use broken amulet for forever aol though..

thats why i used broken amulet coz i played tibia 4 yrs and never saw another amulet used as forever amulet ...

@@Optus thx for ur constant crticism

 

[Elox]

When using this amulet you won't leave a corpse nor a deathlist when dying.

 

[Optus]

You would have to make another onDeath to make it create a corpse i guess.

 

[Kimzan]

Where can i find the quest for Forever amulet of loss? Plz help me

 

[perfection]

in actions/scripts/foreverquest.lua

local chest = XXX -- Unique Id of quest chest
local storage = 3438 -- Storage
local reward = 2196, 1 -- Id Of Forever Aol
function onUse(cid, item, frompos, item2, topos)
	if item.itemid == chest and getPlayerStorageValue(cid, storage) ~= 1 then
		doPlayerAddItem(cid, reward)
		setPlayerStorageValue(cid, storage, 1)
		doPlayerSendTextMessage(cid,25,"You Recieved a Forever Amulet")
	else
		doPlayerSendCancel(cid,"You Already Done That Quest")
	end
return 1
end

hope this helps

 

[70011983]

When I die,I lose the amulet!
Fix that script,everything is OK but when dying,the amulet is gone,just as an regular AOL

 

[Smokiee Jo]

@ up

add this into the "forever aol" items.xml

<attribute key="charges" value="99999"/>

that should work "Tested" and it worked for me

Hope this helps!

 

[Elgenady]

its protect items but when dead no dead human and teleport me to temple im use tfs 3.6 please fix it to me

 

[Elgenady]

no one can fixe it ?

 

[Nubaza]

Cool script..
but @perfection haven't edited the corpses xd!

- - - Updated with corpses xd! - - -

heba, i have your solution =)
i edited the script for the dead human appears e.e

just change the script in creaturescripts/scripts/preparedeath.lua for this:

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
	if(getPlayerSlotItem(cid, 2).itemid == 2196) and getPlayerSkullType(cid) >= 0 then
		doCreatureSetDropLoot(cid, false)
if getPlayerSex(cid) == 1 then
     corpse = doCreateItem(3058, 1, getThingPos(cid))
else
     corpse = doCreateItem(3065, 1, getThingPos(cid))
end
                doItemSetAttribute(corpse, "description", "You recognize " .. getCreatureName(cid) .. ".")
	end
return true
end

4 nothing
PD: U must edit the IDS 3058 and 3065 for the real ID of corpses, u can see it searching for dead human on items.xml

 

[Elgenady]

15:32 You see a dead human (Vol:10).
You recognize Serata.


don't write killed by "monster name and still teleport me to temple like this http://oi45.tinypic.com/10h8006.jpg

 

[Nubaza]

So u wan't fix that: don't write killed by "monster name and still teleport

And teleport to temple, right? xd

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
	if(getPlayerSlotItem(cid, 2).itemid == 2196) and getPlayerSkullType(cid) >= 0 then
if getPlayerSex(cid) == 1 then
     corpse = doCreateItem(3058, 1, getThingPos(cid))
else
     corpse = doCreateItem(3065, 1, getThingPos(cid))
end
                doItemSetAttribute(corpse, "description", "You recognize " .. getCreatureName(cid) .. ".")
	end
       doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
          doCreatureAddMana(cid, getCreatureMaxMana(cid))
return true
end

And the thing of "killed by monster" i'm thinking how to fix it xd

 

[Elgenady]

02:24 You see a dead human (Vol:10).
You recognize Hero Fun. He was killed by Orshabaal summoned by Bazir.
02:24 You see a dead human (Vol:10).
You recognize Hero Fun.

its add 2 human :S one where u dead and one in temple :S

 

[Frikx]

Skull Amy

Awesome!