data\npc\nomedonpc.xml

<npc name="NOMEDONPC" script="data/npc/scripts/nomedoarquivo.lua" walkinterval="2000" floorchange="0">
<health now="100" max="100"/>
<look type="134" head="78" body="88" legs="0" feet="88" addons="3"/>
	<parameters>
			<parameter key="message_greet" value="Ola. Para mais informacoes de meus servicos diga {buyitem}." />
			<parameter key="message_farewell" value="Tchau." />
			<parameter key="message_walkaway" value="Tchau." />
	</parameters>
</npc>

data\npc\scripts\nomedoarquivo.lua

------------------- By Notle -------------------
local keywordHandler = KeywordHandler:new()				  
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local money = 10000000 -------------- aqui vc coloca quantos de granas
local id = 10560
function onCreatureAppear(cid)			npcHandler:onCreatureAppear(cid)		end
function onCreatureDisappear(cid)		npcHandler:onCreatureDisappear(cid)		end
function onCreatureSay(cid, type, msg)		npcHandler:onCreatureSay(cid, type, msg)	end
function onThink()				npcHandler:onThink()				end
function creatureSayCallback(cid, type, msg)
if msgcontains(msg, 'buyitem') then
if doPlayerRemoveMoney(cid,money) then
doPlayerAddItem(cid,id,100)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "coloca um texto aqui")   -- edita aqui
else
doPlayerSendCancel(cid,"Você Não Tem Grana Só Lamento.")  -- edita aqui
end
end
return TRUE  
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
------------------- By Notle -------------------

2 - data\talkactions\scripts\nomedoarquivo.lua

function onSay(cid,words,param)
if doPlayerRemoveItem(cid,10560,100) then
doPlayerAddItem(cid,12372,1)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "coloca um texto aqui.")
else
doPlayerSendCancel(cid,"Você Não Tem 100 Wyvern Talismans Só Lamento.")  -- edita aqui
end
end

data\talkactions\talkactions.xml

<talkaction words="!buysafirapet" script="nomedoarquivo.lua"/>

o ultimo

data\actions\scripts\nomedoarquivo.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)
if doPlayerRemoveItem(cid,12372,1) then
doSummonMonster(cid, 'Demon')
doPlayerSendTextMessage(cid, 22, "você sumono um demon!")
end
end

data\actions\actions.xml

<action itemid="12372" script="nomedoarquivo.lua"/>