Some creatureevents that I waht to share with You.

[LucasFerraz]

After a long time searching this scripts, I've found them. I want to share with you.
I don't remember who made it. IT'S NOT BY ME!

{CreatureEvents}

End of VIP (vip_time) working 100%
In creaturescripts.xml put:

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

In data/creaturescripts/scripts create a VipFim.lua and put:

function onLogin(cid)
	if vip.hasVip(cid) == true then
		setPlayerStorageValue(cid, 20500, 1)
	elseif vip.hasVip(cid) == false and getPlayerStorageValue(cid, 20500) == 1 then
		doTeleportThing(cid, getPlayerMasterPos(cid))	
                        doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Your VIP has expired. The gods has therefore transported you to safety in Carlin.")	
		setPlayerStorageValue(cid, 20500, -1)
		setPlayerPromotionLevel(cid,1)
	end
	return true
end

Add in login.lua

        registerCreatureEvent(cid, "VipFim")

Extra experience for VIP players (vip_time) working 100%
In creaturescripts.xml put:

        <event type="login" name="ExpVip" script="vipexp.lua"/>

In data/creaturescripts/scripts create a vipexp.lua and put:

function onLogin(cid)

local rate = 1.1 -- 50%
local config = {
welvip = "You have "..((rate - 1)*100).."% of extra experience!",
not_vip = "Vip Accounts have "..((rate - 1)*100).."% of extra experience!",
s = 13540, -- storage vip
}

if vip.getVip(cid) >= 1 then
doPlayerSetExperienceRate(cid, rate)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.welvip)
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.not_vip)
end
return TRUE
end

Add in login.lua

                registerCreatureEvent(cid, "ExpVip")

Level 49- can be killed but will lose nothing (Will lose only if have skull)
Script made by Cykotitan
In creaturescripts.xml put:

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

In data/creaturescripts/scripts create a prevent.lua and put:

function getNameDescription(creature)
	local v = getCreatureName(creature)
	return isMonster(creature) and getMonsterInfo(v).description or v
end
 
function onPrepareDeath(cid, deathList)
	if getPlayerLevel(cid) < 50 and getCreatureSkullType(cid) < SKULL_WHITE then
		local corpse, ss = doCreateItem(getPlayerSex(cid) == 0 and 6081 or 6080, 1, getThingPos(cid)), ''
		ss = "You recognize " .. getCreatureName(cid) ..  ". " .. (getPlayerSex(cid) % 2 ~= 0 and "He" or "She") .. " was killed by "
		if isCreature(deathList[1]) then
			ss = ss .. getNameDescription(deathList[1])
			local master = getCreatureMaster(deathList[1])
			if master and master ~= deathList[1] then
				ss = ss .. " summoned by " .. getNameDescription(master)
			end
		else
			ss = ss .. deathList[1]
		end
 
		if #deathList > 1 then
			if type(deathList[1]) ~= type(deathList[2]) then
				if isCreature(deathList[2]) then
					ss = ss .. " and by " .. getNameDescription(deathList[2])
					local master = getCreatureMaster(deathList[2])
					if master and master ~= deathList[2] then
						ss = ss .. " summoned by " .. getNameDescription(master)
					end
				else
					ss = ss .. " and by " .. deathList[2]
				end
			elseif isCreature(deathList[2]) then
				if getNameDescription(deathList[1]) ~= getNameDescription(deathList[2]) then
					ss = ss .. " and by " .. getNameDescription(deathList[2])
					local master = getCreatureMaster(deathList[2])
					if master and master ~= deathList[2] then
						ss = ss .. " summoned by " .. getNameDescription(master)
					end
				end
			elseif deathList[1]:lower() ~= deathList[2]:lower() then
				ss = ss .. " and by " .. deathList[2]
			end
		end
		doItemSetAttribute(corpse, 'description', ss)
		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
		doCreatureAddHealth(cid, getCreatureMaxHealth(cid), 65535, 256, true)
		doCreatureAddMana(cid, getCreatureMaxMana(cid))
		doRemoveConditions(cid, false)
		return false
	end
	return true
end

Add in login.lua

                       registerCreatureEvent(cid, "prevent")

A way to prevent loss with OT Down
Description: Character will save at level advance.
In creaturescripts.xml put:

		<event type="advance" name="AdvanceSave" event="script" value="advancesave.lua"/>

In data/creaturescripts/scripts create a advancesave.lua and put:

function onAdvance(cid, skill, oldLevel, newLevel)
local config = {savePlayersOnAdvance = true}
if(config.savePlayersOnAdvance) then
doPlayerSave(cid, TRUE)
end
return TRUE
end

Add in login.lua

                       	registerCreatureEvent(cid, "AdvanceSave")

 

[hackerolammer]

thanks i was searcing it

 

[LucasFerraz]

OMG.
Views: 29
Reply: 1

Reply me.

 

[Santi]

http://otland.net/f16/proper-tagging-110327/
And then I reply

 

[LucasFerraz]

Sorry about it, I'm new here. Thank You.

Edited

 

[Amiroslo]

nice helpfull

 

[LucasFerraz]

Thank you