Corrigir E Por Algumas Funçoies No Meu Pet System (Exlcusivo)

[Oapocalipse 1]

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!

[Vodkart 1515]

tenta assim:

 

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

Editado Julho 6, 2010 por Vodkart

[Oapocalipse 1]

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

[Kydrai 146]

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

[Oapocalipse 1]

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

Editado Julho 6, 2010 por hretro