function onUse(cid, item, fromPosition, itemEx, toPosition)

local MonsterName = "Dragon Hatchling"

local MonsterEvo = "Dragon"

local MaximoSummon = 1

local exhaust = 180

segundos = 60

if (getPlayerStorageValue(cid, 3278) <= os.time()) then

if getPlayerVocation(cid) == 4 or getPlayerVocation(cid) == 8 then

local summons = getCreatureSummons(cid)

if(table.maxn(summons) < MaximoSummon) then -- no summons

doConvinceCreature(cid, doCreateMonster(MonsterName, getCreaturePosition(cid)))

doRemoveItem(item.uid,1)

addEvent(doRemoveCreature, segundos*1000, Monstername)

addEvent(doConvinceCreature(cid), segundos*1000, doCreateMonster,MonsterEvo, getCreaturePosition(cid))

addEvent(doPlayerSendTextMessage, segundos*1000, "Seu pet evoluiu! Parabens.")

setPlayerStorageValue(cid, 3278, os.time()+exhaust)

else

doPlayerSendCancel(cid, "Desculpe, você so pode sumonar novamente depois de "..exhaust.." segundos.")

end

end

else

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não possui a vocação para chocar este ovo!")

end

end

Pedidos:

Como você pode ver, ai esta para convece a criatura, mas quando eu uso, ela não convençe!!

addEvent(doPlayerSendTextMessage, segundos*1000, "Seu pet evoluiu! Parabens.")

Algo de errado? [05/07/2010 19:00:29] (luaDoPlayerSendTextMessage) Player not found

Como você pode ver tambem, ai esta para depois de um minuto,remover o "MonsterName"e sumonar o MonsterEvoMas isso não aconteçe!

Por favor, ajudem! Assim jutnos poderemos afzer um pet system novo!

tenta assim:

addEvent((doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Seu pet evoluiu! Parabens.")), segundos*1000)

E uma coisa ja foi, so falta por pra convecer, e arrumar dela transformar :\

O script ainda ficará sujeito a falhas. Você precisa de um jeito de controlar a evolução.

Para convencer um monster vc precisa alterar o xml do monster e colocar para poder convencer.

Fiz umas correções, mas ainda terá problemas na evolução.

local function evolve(cid, oldmid, MonsterEvo)
doRemoveCreature(oldmid)
local mid = doCreateMonster(MonsterEvo, getCreaturePosition(cid))
doConvinceCreature(mid)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Seu pet evoluiu! Parabens.")
end

function onUse(cid, item, fromPosition, itemEx, toPosition)
local MonsterName = "Dragon Hatchling"
local MonsterEvo = "Dragon"
local MaximoSummon = 1
local exhaust = 180
local segundos = 60

if (getPlayerStorageValue(cid, 3278) <= os.time()) then
	if getPlayerVocation(cid) == 4 or getPlayerVocation(cid) == 8 then
		local summons = getCreatureSummons(cid)
		if(table.maxn(summons) < MaximoSummon) then
			local mid = doCreateMonster(MonsterName, getCreaturePosition(cid))
			doConvinceCreature(cid, mid)
			doRemoveItem(item.uid,1)
			addEvent(evolve, segundos*1000, cid, mid, MonsterEvo)
			setPlayerStorageValue(cid, 3278, os.time()+exhaust)
		else
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você aingiu o limite de summons!")
		end
	else
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não possui a vocação para chocar este ovo!")
	end
else 
	doPlayerSendCancel(cid, "Desculpe, você so pode sumonar novamente depois de "..exhaust.." segundos.")
end
end

Deu isso, tentei por end no final, no final do começo, nada deu

[06/07/2010 13:09:35] data/actions/scripts/teste.lua:34: '<eof>' expected near 'end'

@eedi

corrigi, mas agora o dragon, mesmo convicable no monster.xml, ataka