<?xml version="1.0" encoding="UTF-8"?>

<npc name="Shiny Seller" script="data/npc/scripts/default.lua" walkinterval="2000" floorchange="0">

<health now="100" max="100"/>

<look type="80" head="0" body="0" legs="0" feet="0" addons="0"/>

<parameters>

<parameter key="module_shop" value="1"/>

<parameter key="shop_buyable" value="Shiny Dragonite,ID DA BALL,5000000"/>

</parameters>

</npc>

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}

function doBuyPokemonWithCasinoCoins(cid, poke) npcHandler:onSellpokemon(cid) end
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(not npcHandler:isFocused(cid)) then
return false
end

------------------------------------------------------------
local function buyPoke(cid, pokemon)			  
if not pokes[pokemon] then return false end

local gender = getRandomGenderByName(pokemon)
local btype = "normal"
local happy = 250

if getPlayerFreeCap(cid) >= 6 or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
  item = doCreateItemEx(11826)
else
   item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, 11826, 1)   
end

doItemSetAttribute(item, "poke", pokemon)
doItemSetAttribute(item, "hp", 1)
doItemSetAttribute(item, "happy", happy)
doItemSetAttribute(item, "gender", gender)
doItemSetAttribute(item, "description", "Contains a "..pokemon..".")
doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon..".")

if getPlayerFreeCap(cid) >= 6 or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
  doPlayerSendMailByName(getCreatureName(cid), item, 1)
  selfSay("Your pokemon was sent to Pokemon Center!", cid)
end
return true
end

local msg = msg:lower()
local pokemon = "Shiny Dragonite"
local price = 5000000 * 100 --faz uns testes ae.. n me do bem com o sistema de money do tibia..
------------------------------------------------------------------------------

if msgcontains(msg, 'sell') or msgcontains(msg, 'vender') then
  selfSay("I can sell to you a ".. pokemon .." for ".. (price/100) .."dls, do you want it?", cid)
  talkState[cid] = 1
  return true

elseif msgcontains(msg, "yes") or msgcontains(msg, "yes") and talkState[cid] == 1 then
  if doPlayerRemoveMoney(cid, price) == true then
  selfSay("Ok then, enjoy it!", cid)
  buyPoke(cid, pokemon)
  talkState[cid] = 0
  else
  selfSay("You don't have that much money!", cid)
  talkState[cid] = 0
  end    
end

if (msgcontains(msg, "no") or msgcontains(msg, "nao")) then
  selfSay("Ok then, come back if you want something...", cid)
  talkState[cid] = 0
  return true     
end

end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

<?xml version="1.0" encoding="UTF-8"?>
<npc name="NAME" script="NOME_SCRIPT.lua" walkinterval="3000" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1155" head="114" body="119" legs="114" feet="114" corpse="2212"/>

<parameters>
   <parameter key="message_greet" value="Welcome |PLAYERNAME|, i can {sell} somethings to you..."/>
</parameters>
</npc>