local poke = {'Abra', 'Kadabra', 'Alakazam', 'Drowzee', 'Hypno', 'Mr. Mime', 'Porygon', 'Porygon2', "Shiny Abra","Shiny Alakazam", "Shiny Hypno", "Jynx", "Shiny Jynx", "Misdreavus"}
local etele = 9499
local cdtele = 1800

local config = {
premium = true, -- se precisa ser premium account (true or false)
battle = true	-- se precisa estar sem battle (true). Se colocar false, poderá usar teleport no meio de batalhas
}

local places = {
[1] = {name = "Cerulean", id = 1, sto = 897529},
[2] = {name = "Saffron", id = 2, sto = 897530},
[3] = {name = "Lavender", id = 3, sto = 897532},
[4] = {name = "Celadon", id = 4, sto = 897533},
[5] = {name = "Pewter", id = 5, sto = 897534},
[6] = {name = "Viridian", id = 6, sto = 897535},  --alterado v1.7   sistema q precisa flar com a nurse do lugar pra poder da TP pra la...
[7] = {name = "Vermilion", id = 7, sto = 897536},
[8] = {name = "Fuchsia", id = 8, sto = 897537},		  
[9] = {name = "Cinnabar", id = 9, sto = 897538},
[10] = {name ="Snow", id = 10, sto = 897539},
[11] = {name = "Golden", id = 11, sto = 897540},
}


function onSay(cid, words, param)

if #getCreatureSummons(cid) == 0 then
	doPlayerSendCancel(cid, "You need a pokemon to use teleport.")
return true
end

if not isInArray(poke, getCreatureName(getCreatureSummons(cid)[1])) then
return 0
end

if getPlayerStorageValue(cid, 22545) == 1 then	  --golden arena
   doPlayerSendCancel(cid, "You can't do that while the golden arena!")
return true
end

if getPlayerStorageValue(cid, 212124) >= 1 then		 --alterado v1.6
   return doPlayerSendCancel(cid, "You can't do it with a pokemon with mind controlled!")
end

if getPlayerStorageValue(cid, 52480) >= 1 then
   return doPlayerSendCancel(cid, "You can't do it while a duel!")  --alterado v1.6
end

if getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then
   return doPlayerSendCancel(cid, "You can't do it while in the PVP Zone!")   --alterado v1.7
end

if exhaustion.get(cid, etele) and exhaustion.get(cid, etele) > 0 then
	local tempo = tonumber(exhaustion.get(cid, etele)) or 0
	local min = math.floor(tempo)
	doPlayerSendCancel(cid, "Your pokemon is tired, wait "..getStringmytempo(tempo).." to teleport again.")
return true
end

if config.premium and not isPremium(cid) then
	doPlayerSendCancel(cid, "Only premium members are allowed to use teleport.")
return true
end

if config.battle and getCreatureCondition(cid, CONDITION_INFIGHT) then
	doPlayerSendCancel(cid, "Your pokemon can't concentrate during battles.")
return true
end

if (param == '') then
	local str = ""
	str = str .. "Places to go :\n\nHouse\n"
		for a = 1, #places do
			str = str..""..places[a].name.."\n"
		end
	doShowTextDialog(cid, 7416, str)
return true
end

local item = getPlayerSlotItem(cid, 8)
local nome = getPokeballName(item.uid)
local summon = getCreatureSummons(cid)[1]
local lastppos = getThingPos(cid)
local lastspos = getThingPos(summon)
local telepos = {}
local myplace = ""
local townid = 0
local citySto = 0  --alterado v1.7

if string.lower(param) == "house" then

	if not getHouseByPlayerGUID(getPlayerGUID(cid)) then
		doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You don't own a house.")
	return true
	end

	telepos = getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid)))
	myplace = "our home"

else

	for x = 1, #places do
		if string.find(string.lower(places[x].name), string.lower(param)) then
			townid = places[x].id
			myplace = places[x].name
			citySto = places[x].sto or -1  --alterado v1.7
		end
	end

	if myplace == "" then
		doPlayerSendCancel(cid, "That place doesn't exist.")
	return true
	end

end

if myplace ~= "" and townid > 0 then
	telepos = getTownTemplePosition(townid)
end

if string.lower(param) ~= "house" and citySto ~= -1 and getPlayerStorageValue(cid, citySto) <= -1 then	--alterado v1.7
   doPlayerSendCancel(cid, "You have to talk with nurse in this place, before you can teleport for there!")
return true
end  

if getDistanceBetween(getThingPos(cid), telepos) <= 15 then
	doPlayerSendCancel(cid, "You are too near to the place you want to go!")
return true
end

doSendMagicEffect(getThingPos(summon), 28)
doSendMagicEffect(getThingPos(cid), 28)

doTeleportThing(cid, telepos, false)

local pos2 = getClosestFreeTile(cid, getPosByDir(getThingPos(cid), SOUTH))

doTeleportThing(summon, pos2, false)

doSendMagicEffect(getThingPos(cid), 28)

doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1)
doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1, false, 0, lastppos)
doCreatureSay(summon, "TELEPORT!", TALKTYPE_MONSTER)
doCreatureSay(summon, "TELEPORT!", TALKTYPE_MONSTER, false, 0, lastspos)

doCreatureSetLookDir(cid, SOUTH)
doCreatureSetLookDir(summon, SOUTH)

doSendMagicEffect(getThingPos(summon), CONST_ME_TELEPORT)
exhaustion.set(cid, etele, cdtele)

return true
end

local pokeballs = {
[1] = {effect = 188, on = 11826, use = 11827, off = 11828, all = {11826, 11827, 11828}},
[2] = {effect = 191, on = 11829, use = 11830, off = 11831, all = {11829, 11830, 11831}},
[3] = {effect = 190, on = 11835, use = 11836, off = 11837, all = {11835, 11836, 11837}},
[4] = {effect = 189, on = 11832, use = 11833, off = 11834, all = {11832, 11833, 11834}},
[5] = {effect = 188, on = 11737, use = 11738, off = 11739, all = {11737, 11738, 11739}},
[6] = {effect = 189, on = 11740, use = 11741, off = 11742, all = {11740, 11741, 11742}},
[7] = {effect = 190, on = 11743, use = 11744, off = 11745, all = {11743, 11744, 11745}},
[8] = {effect = 191, on = 11746, use = 11747, off = 11748, all = {11746, 11747, 11748}},
}

--alterado v1.7 \/\/
local posis = {   --[storage da city] = {pos da nurse na city},
[897529] = {x = 1060, y = 904, z = 7},    --cerulean
[897530] = {x = 1049, y = 1072, z = 6},   --saffron
[897532] = {x = 1204, y = 1042, z = 7},    --lavender
[897533] = {x = 900, y = 1014, z = 6},    --celadon												  
[897534] = {x = 724, y = 853, z = 6},    --pewter
[897535] = {x = 706, y = 1085, z = 7},    --viridian		   --Alterado por min, stylo para meu MAPA'
[897536] = {x = 1074, y = 1234, z = 6},    --vermilion
[897537] = {x = 1215, y = 1326, z = 7},    --fuchsia
[897538] = {x = 849, y = 1396, z = 6},    --cinnabar
[897539] = {x = 1431, y = 1600, z = 6},   --snow
[897540] = {x = 1361, y = 1007, z = 7},    --Golden
}

function onThingMove(creature, thing, oldpos, oldstackpos)
end

function onCreatureAppear(creature)
end

function onCreatureDisappear(cid, pos)
if focus == cid then
selfSay('Good bye sir!')
focus = 0
talk_start = 0
end
end

function onCreatureTurn(creature)
end

function msgcontains(txt, str)
return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))
end

function onCreatureSay(cid, type, msg)
local msg = string.lower(msg)
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

for a, b in pairs(gobackmsgs) do
   local gm = string.gsub(b.go, "doka!", "")
   local bm = string.gsub(b.back, "doka!", "")
if string.find(string.lower(msg), string.lower(gm)) or string.find(string.lower(msg), string.lower(bm)) then
return true
end
end

if((msgcontains(msg, 'hi') or msgcontains(msg, 'heal') or msgcontains(msg, 'help')) and (getDistanceToCreature(cid) <= 3)) then

    if exhaustion.get(cid, 9211) then
   selfSay('Please wait a few moment before asking me to heal your pokemons again!')
   return true
      end

   if not getTileInfo(getThingPos(cid)).protection and nurseHealsOnlyInPZ then
       selfSay("Please, get inside the pokémon center to heal your pokemons!")
   return true
   end

   if getPlayerStorageValue(cid, 52480) >= 1 then
      selfSay("You can't do that while in a Duel!")   --alterado v1.6.1
   return true
   end

   for e, f in pairs(posis) do
    local pos = getThingPos(getNpcCid())
    if pos.x == f.x and pos.y == f.y and pos.z == f.z then
	   if getPlayerStorageValue(cid, e) <= -1 then		   --alterado v1.7
		  setPlayerStorageValue(cid, e, 1)
	   end
    end
   end

   exhaustion.set(cid, 9211, 5)

   doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))
   doCureStatus(cid, "all", true)
   doSendMagicEffect(getThingPos(cid), 132)

   local mypb = getPlayerSlotItem(cid, 8)

   if #getCreatureSummons(cid) >= 1 then

       if not nurseHealsPokemonOut then
           selfSay("Please, return your pokemon to his ball!")
       return true
       end

       local s = getCreatureSummons(cid)[1]
       doCreatureAddHealth(s, getCreatureMaxHealth(s))
       doSendMagicEffect(getThingPos(s), 13)
       doCureStatus(s, "all", false)
       if getPlayerStorageValue(s, 1008) < baseNurseryHappiness then
           setPlayerStorageValue(s, 1008, baseNurseryHappiness)
       end
       if getPlayerStorageValue(s, 1009) > baseNurseryHunger then
           setPlayerStorageValue(s, 1009, baseNurseryHunger)
       end
   else
       if mypb.itemid ~= 0 and isPokeball(mypb.itemid) then  --alterado v1.3
       doItemSetAttribute(mypb.uid, "hp", 1)
           if getItemAttribute(mypb.uid, "hunger") and getItemAttribute(mypb.uid, "hunger") > baseNurseryHunger then
               doItemSetAttribute(mypb.uid, "hunger", baseNurseryHunger)
           end
           for c = 1, 15 do
               local str = "move"..c
               setCD(mypb.uid, str, 0)
           end
           if getItemAttribute(mypb.uid, "happy") and getItemAttribute(mypb.uid, "happy") < baseNurseryHappiness then
               doItemSetAttribute(mypb.uid, "happy", baseNurseryHappiness)
           end
           if getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and getPlayerStorageValue(cid, 63215) <= 0 then
               for a, b in pairs (pokeballs) do
                   if isInArray(b.all, mypb.itemid) then
                   doTransformItem(mypb.uid, b.on)
                   end
               end
           end
       end
   end

   local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)

for balls = 1, 8 do	    --editar a qntdade de balls da tabela ali decima...
   for times = 1, 3 do
       local items = getItemsInContainerById(bp.uid, pokeballs[balls].all[times])
           if #items >= 1 then
               for _, uid in pairs(items) do
               doItemSetAttribute(uid, "hp", 1)
               doTransformItem(uid, pokeballs[balls].on)
               for c = 1, 15 do
              	 local str = "move"..c
              	 setCD(uid, str, 0)   --alterado v1.3
          	 end
                   if getItemAttribute(uid, "hunger") and getItemAttribute(uid, "hunger") > baseNurseryHunger then
                       doItemSetAttribute(uid, "hunger", baseNurseryHunger)
                   end
                   if getItemAttribute(uid, "happy") and getItemAttribute(uid, "happy") < baseNurseryHappiness then
                       doItemSetAttribute(uid, "happy", baseNurseryHappiness)
                   end
               end
           end
   end
end


selfSay('Olá! Nós recuperamos toda a vida de seu Pokemon. Esperamos vê-lo novamente em breve!')

if useKpdoDlls then  --alterado v1.7
  doUpdateMoves(cid)
end

end
end