CreatureEvent Forever aol

[Darad]

Forever aol script. Placed it under creatureEvent cause that seemed most logical.

To prevent loss from players with red skull the wearer is teleported to temple instead of dying. This way he doesn't loose experience. But this can be built in of course, if you wish to.

items.xml

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

add to login.lua in creaturescripts/scripts

registerCreatureEvent(cid, "onPrepareDeath")

add to creatureEvents.xml

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

add to creaturescript/scripts/preparedeaths.lua

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
    if isPlayer(cid) == true then
        if getPlayerSlotItem(cid, 2).itemid == 2196 then
        	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, getPlayerExperience(cid))
		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), true)
		doCreatureAddHealth(cid, (getCreatureMaxHealth(cid) - getCreatureHealth(cid)), true)
		doCreatureAddMana(cid, (getCreatureMaxMana(cid) - getCreatureMana(cid)))
		doPlayerRemoveAllConditions(cid)
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_HOLYAREA)
		return false
        end
    end
    return true
end

function doPlayerRemoveAllConditions(cid)
    for i = 1, 45 do
        if getCreatureCondition(cid, i) == true then
            doRemoveCondition(cid, i)
        end
    end
    doRemoveConditions(cid)
end

Credit: igorbr for the teleport script

 

[Shawak]

add to creaturescript/scripts/preparedeaths.lua[/I]

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
    if isPlayer(cid) == true then
        if getPlayerSlotItem(cid, 2).itemid == 2196 then
        	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, getPlayerExperience(cid))
		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), true)
		doCreatureAddHealth(cid, (getCreatureMaxHealth(cid) - getCreatureHealth(cid)), true)
		doCreatureAddMana(cid, (getCreatureMaxMana(cid) - getCreatureMana(cid)))
		doPlayerRemoveAllConditions(cid)
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_HOLYAREA)
		return false
        end
    end
    return true
end

function doPlayerRemoveAllConditions(cid)
    for i = 1, 45 do
        if getCreatureCondition(cid, i) == true then
            doRemoveCondition(cid, i)
        end
    end
    doRemoveConditions(cid)
end

Credit: igorbr for the teleport script

Don't understand the "doRemoveConditions(cid)" at the end ;/.

 

[Darad]

It removes poison, fire, drunk etc. Things you shouldn't have after death.

 

[Shawak]

It removes poison, fire, drunk etc. Things you shouldn't have after death.

Yeah i know, but..

    for i = 1, 45 do
        if getCreatureCondition(cid, i) == true then
            doRemoveCondition(cid, i)
        end
    end

Perhaps it make the same..?

 

[JDB]

@Up,

All Conditions?

for i = 1, 45 do

 

[Shawak]

@Up,

All Conditions?

for i = 1, 45 do

@Up: Read theard before posting.

Don't understand the "doRemoveConditions(cid)" at the end ;/.

So double removing all conditions?. .

 

[zieworski denero]

doesn't work in tfs 0.3.4

omfg ive searched around 2 month for a freaking aol script -.-

 

[brendan2]

what is the script for? tfs~

 

[JDB]

Yes, most scripts are.

 

[igorbr]

1st for all: try to use this scrip in GAME! lol?

 

[Fare]

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
    if isPlayer(cid) == true then
        if (getPlayerSlotItem(cid, CONST_SLOT_NECKLACE).itemid == 2196) then
		doCreatureSetDropLoot(cid, false)	
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_HOLYAREA) 
        return true
        end
    end
    return true
end

a bit simplier?

 

[Sync]

@up pwnt u all =x

 

[Darad]

@Chris, yea he posted it in another thread and I'm actually using it right now

Important reminder: If you use other onPrepareDeath events, make sure you execute them before this one.

 

[zieworski denero]

Can someone make a forever aol for TFS 0.3.4?

Even if you have a redskull, you won't drop anything...

 

[Darad]

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
    if isPlayer(cid) == true then
        if (getPlayerSlotItem(cid, CONST_SLOT_NECKLACE).itemid == 2196) then
		doCreatureSetDropLoot(cid, false)	
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_HOLYAREA) 
        return true
        end
    end
    return true
end

a bit simplier?

There you go. Read a bit please.

 

[Fare]

@up, forever aol for TFS 0.3.4. Even if you have a redskull, you won't drop anything...

 

[LoLaye]

does this work for blackskull?

 

[Zarabustor]

This thread must release forver aol 100% working why?
Becaouse all forever aols scripts doesnt work they dont count frags, ppl will love it becaouse isnt relased yet. Working 100%