[Action] Quest que Sumona monstro

renato ribeiro tutoriais

Postado Junho 1, 2011 13 anos

Créditos no script

Explicação: ao clicar no baú pela primeira vez você será teletransportado (opcional) para a 'ppos' e um monstro aparecerá em 'mpos', ao clicar pela segunda vez você ganhará o item 'itemid', e ao clicar pela terceira ou mais vezes aparecerá 'This chest is empty'

em Data > Actions > Scripts, cria 1 arquivo lua chamado questmonster.lua e cole-o dentro:



--[Created by Renato Ribeiro to www.TibiaKing.com and others]--


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

		teleport = "yes" -- teleportar player? yes para sim ou no para não

		stg = 5123

		itemid = 2160

		desc = getItemNameById(itemid)

		monster = "Demon" -- qual monstro aparecerá

		ppos = {x=1005, y=1028, z=7} -- pra onde o player irá (só se teleport for yes)

		mpos = {x=1006, y=1028, z=7} -- onde o monstro irá aparecer


		if getPlayerStorageValue(cid, stg) < 1 then

				if teleport == "yes" then

						doTeleportThing(cid, ppos)

						doSendMagicEffect(ppos,10)

						doCreateMonster(monster, mpos)

						doSendMagicEffect(mpos,10)

						doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Oh no! You raised the ire of the "..monster.."!")

						setPlayerStorageValue(cid, stg, 1)

						return TRUE

				else

						doCreateMonster(monster, mpos)

						doSendMagicEffect(mpos,10)

						doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Oh no! You raised the ire of the "..monster.."!")

						setPlayerStorageValue(cid, stg, 1)

						return TRUE

				end

		elseif getPlayerStorageValue(cid, stg) == 1 then

				doPlayerAddItem(cid, itemid)

				setPlayerStorageValue(cid, stg, 2)

				doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have found a "..desc..".")

				return TRUE

		else

				return doPlayerSendCancel(cid, "This chest is empty.")

		end


end

[/code]




agora em [color=#FF0000]Data > Actions > Actions.XML[/color]

[code]

<action actionid="2545" event="script" value="questmonster.lua"/>