function onSay(cid, words, param)
local coin = 11192
local T = { -- [NOME DA QUEST] { descrição, quantidade de coin, storage da quest}
["Divine quest"] = {desc = "Descrição.", price = 20, storage = 1234},
["Berserk quest"] = {desc = "Descrição.", price = 20, storage = 1235},
["Mega quest"] = {desc = "Descrição.", price = 20, storage = 1236}
}
          if (param == "lista") then
                         local str = "Quest's :\n\n"
                                            for name, info in pairs(T) do
                                                           str = str..name.." Descrição: " .. info.desc .. ", Preço:".. info.price .. " " .. getItemNameById(coin) .. ".\n\n"
                                                       end
        doShowTextDialog(cid, coin, str) return true
 end
local a = T[tostring(param):lower()]
    if not a then
           doPlayerSendTextMessage(cid, 27, "Parâmetro incorreto digite !comando lista para ver as quest's disponíveis.")
     return true
end
          if doPlayerRemoveItem(cid, coin, a.price) == true then
                      setPlayerStorageValue(cid, a.storage, 0)
                                 doPlayerSendTextMessage(cid, 27, "Agora você pode fazer denovo a ".. param .." .")
                                      else
                                           doPlayerSendCancel(cid, "Desculpe, você precisa de ".. a.price .. " ".. getItemNameById(coin) .. " para isso.")
                             end
              return true
end