danrlei5 Cara não e um teleporte e um NPC que teleporta, Eu quero que ele so teleporte players VIPS! Skymagnum Como assim sistema VIP?. Pro player virar VIP e com diamonds ne um outro NPC que se cha "Diamonds", Não entendi oque você quis dizer sou novato kkk' mals Bhoris Lembre-se ele e um NPC que teleporta pra outras cidades tipow "Nova City" "City 1,2,3" e outras, mais ta ai a script local poke = {'Abra', 'Kadabra', 'Alakazam', 'Drowzee', 'Hypno', 'Mr. Mime', 'Porygon', 'Shiny Abra', 'Shiny Kadabra', 'Shiny Alakazam', 'Shiny Drowzee', 'Shiny Hypno', 'Shiny Mr. Mime', 'Shiny Porygon', 'Porygon2', 'Porygonz', 'Claydol', 'Lunatone', 'Solrock', 'Shiny Claydol', 'Shiny Lunatone', 'Shiny Solrock', 'Baltoy', 'Shiny Baltoy', 'Ralts', 'Kirlia', 'Gardevoir', 'Gallade'} local etele = 9499 local cdtele = 60 local config = { premium = false, -- 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 = { %5B1%5D = {name = "Saffron", id = 3}, %5B2%5D = {name = "Cerulean", id = 4}, %5B3%5D = {name = "Vermilion", id = 9}, %5B4%5D = {name = "Pewter", id = 10}, %5B5%5D = {name = "Lavender", id = 5}, %5B6%5D = {name = "Fuchsia", id = 6}, %5B7%5D = {name = "Celadon", id = 7}, %5B8%5D = {name = "Viridian", id = 8}, %5B9%5D = {name = "Cinnabar", id = 12}, %5B10%5D = {name = "Snow", id = 13}, } 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)%5B1%5D)) then return 0 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%5Ba%5D.name.."\n" end doShowTextDialog(cid, 7416, str) return true end local item = getPlayerSlotItem(cid, 8) local nome = getPokeballName(item.uid) local summon = getCreatureSummons(cid)%5B1%5D local lastppos = getThingPos(cid) local lastspos = getThingPos(summon) local telepos = {} local myplace = "" local townid = 0 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%5Bx%5D.name), string.lower(param)) then townid = places%5Bx%5D.id myplace = places%5Bx%5D.name 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 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), 29) doSendMagicEffect(getThingPos(cid), 29) doTeleportThing(cid, telepos, false) local pos2 = getClosestFreeTile(cid, getPosByDir(getThingPos(cid), SOUTH)) doTeleportThing(summon, pos2, false) doSendMagicEffect(getThingPos(cid), 29) 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) doRemoveCondition(cid, CONDITION_OUTFIT) return true end
