OTClient Module teleporte list/Pokémon

[Nysman 41]

Funciona da seguinte forma;

O player clica no nome da cidade e é teleportado.

baixe o modulo e jogue na pasta modules do seu cliente:

 

Download:

https://www.dropbox.com/s/1dn9c2p25en8c8c/TP LIST.rar?dl=0

 

 

Scan:

https://www.virustotal.com/gui/file/06ef6e8655eadb9a0bb4f38ef5afaad354e3bb508e325ff9e392ae9f466b864b/detection

 

talkaction/script/crie um arquivo com o nome tele.lua e adicione:

 

Spoiler

Spoiler

local poke = {"Espeon", "Shiny Xatu", "Jynx", "Shiny Jynx", "Xatu", "Natu", "Exeggutor", "Slowking", "Slowbro", "Shiny Mr. Mime", 'Mew', 'Mewtwo', 'Abra', 'Kadabra', 'Alakazam', 'Drowzee', 'Hypno', 'Mr. Mime', 'Porygon', 'Shiny Abra', 'Shiny Alakazam', 
'Shiny Hypno', 'Porygon2'}  --alterado v1.9

local etele = 9499
local cdtele = 16

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 = {-- Kanto --
[1] = {name = "Saffron", id = 1, sto = 897530},
[2] = {name = "Cerulean", id = 2, sto = 897531},
[3] = {name = "Lavender", id = 3, sto = 897532},
[4] = {name = "Fuchsia", id = 4, sto = 897533},
[5] = {name = "Celadon", id = 5, sto = 897534},
[6] = {name = "Pallet", id = 6, sto = 897535},
[7] = {name = "Pewter", id = 8, sto = 897536},
[8] = {name = "Viridian", id = 9, sto = 897537},
[9] = {name = "Vermilion", id = 10, sto = 897538},
[10] = {name = "Cinnabar", id = 11, sto = 897539},
-- Hoeen --
[11] = {name = "Larosse", id = 13, sto = 897540},
[12] = {name = "Orre", id = 7, sto = 897541},
[13] = {name = "Canavale", id = 16, sto = 897542},
-- Vip
[14] = {name = "Singer", id = 12, sto = 897543},
[15] = {name = "Hunter Village", id = 14, sto = 897544},
[16] = {name = "Sunshine", id = 15, sto = 897545},
[17] = {name = "Battle City", id = 31, sto = 897546},
-- Johto --
[18] = {name = "Goldenrod", id = 23, sto = 897547},
[19] = {name = "Azalea", id = 24, sto = 897548},
[20] = {name = "Ecruteak", id = 25, sto = 897549},
[21] = {name = "Olivine", id = 26, sto = 897550},
[22] = {name = "Violet", id = 27, sto = 897551},
[23] = {name = "Cherrygrove", id = 28, sto = 897552},
[24] = {name = "New Bark", id = 29, sto = 897553},
[25] = {name = "Mahogany", id = 30, sto = 897554},
[26] = {name = "Blackthron", id = 32, sto = 897555},
-- Outro --

[27] = {name = "Cianwood", id = 42, sto = 897557},
-- Novas Citys
}

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 v2.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 v2.6
    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, "Seu pokemon está cansado, espere "..getStringmytempo(tempo).."Para Teleportar de novo.")
    return true
    end

    if config.premium and not isPremium(cid) then
        doPlayerSendCancel(cid, "Somente os membros premium podem usar o teletransporte.")
    return true
    end

    if config.battle and getCreatureCondition(cid, CONDITION_INFIGHT) then
        doPlayerSendCancel(cid, "Seu pokémon nao pode se concentrar durante as batalhas.")
    return true
    end

    if (param == '') then
        local str = ""
        str = str .. "Lugares para ir :\n\nHouse\n"
            for a = 1, #places do
                str = str..""..string.lower(places[a].name).."\n"
            end
        doShowTextDialog(cid, 7416, str)
    return true
    end

    local item = getPlayerSlotItem(cid,
    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

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

        if not getHouseByPlayerGUID(getPlayerGUID(cid)) then
            doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Voce nao possui uma casa.")
        return true
        end

        telepos = getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid)))
        myplace = "nosso Lar"

    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
            end
        end

        if myplace == "" then
            doPlayerSendCancel(cid, "Esse lugar nao existe.")
        return true
        end

    end

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

    doSendMagicEffect(getThingPos(summon), 29)
    doSendMagicEffect(getThingPos(cid), 29)
    
    doReturnPokemon(cid, summon, item, 0)
    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.."!", TALKTYPE_ORANGE_1)
    doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", TALKTYPE_ORANGE_1, false, 0, lastppos)

    doCreatureSetLookDir(cid, SOUTH)
    exhaustion.set(cid, etele, cdtele)

return true
end

 

Agora em talkaction.xml adicione:

<talkaction  words="!teleport;!tp;!h" event="script" value="tele.lua"/>

 

Creditos:

Spoiler

brazvct: Pela postagem do module

                                                                                                 

Walox: Pelo script de teleporte

 

Bom uso