Teleport consertado, pokemon segue o player

Dom Matteo · Fevereiro 4, 2018

Bom galera, vim compartilhar com vocês algo que eu quebrei a cabeça pra resolver mas conseguir,

Pode parecer simples mas em algumas bases o pokemon não segue o player ao usar o comando de teleport (ex:abra, alakazam, etc) e muita gente fica chateado com isso.

é só apagar e substituir todo o seu data\talkactions\scripts\tele.lua por esse código (faça backup antes, não posso garantir que funcione na sua base)

(obs: lembre-se de checar as cidades e as ids do templo):

local poke = {"Abra", "Kadabra", "Alakazam", "Drowzee", "Hypno", "Porygon", "Mr. Mime", "Mewtwo", "Mew", "Natu", "Xatu", "Espeon", "Slowking", "Unown", 
"Wobbuffet", "Girafarig", "Porygon2", "Lugia", "Celebi", "Ralts", "Kirlia", "Gardevoir", "Meditite", "Medicham", "Spoink", "Grumpig", "Lunatone", "Solrock", 
"Baltoy", "Claydol", "Wynaut", "Beldum", "Metang", "Metagross", "Latias", "Latios", "Jirachi", "Deoxys", "Chingling", "Bronzor", "Bronzong", "Mime Jr.", 
"Gallade", "Porygon-Z", "Uxie", "Azelf", "Mesprit", "Cresselia", "Arceus", "Victini", "Munna", "Musharna", "Woobat", "Swoobat", "Sigilyph", "Gothita", 
"Gothorita", "Gothitelle", "Solosis", "Duosion", "Reuniclus", "Elgyem", "Beheeyem", "Meloetta", "Delphox", "Espurr", "Meowstic", "Inkay", "Malamar", 
"Sylveon", "Shiny Abra", "Shiny Kadabra", "Shiny Alakazam", "Shiny Drowzee", "Shiny Hypno", "Shiny Porygon", "Shiny Mr. Mime", "Shiny Mewtwo", "Shiny Mew", 
"Shiny Natu", "Shiny Xatu", "Shiny Espeon", "Shiny Slowking", "Shiny Unown", "Shiny Wobbuffet", "Shiny Girafarig", "Shiny Porygon2", "Shiny Lugia", "Shiny Celebi", 
"Shiny Ralts", "Shiny Kirlia", "Shiny Gardevoir", "Shiny Meditite", "Shiny Medicham", "Shiny Spoink", "Shiny Grumpig", "Shiny Lunatone", "Shiny Solrock", 
"Shiny Baltoy", "Shiny Claydol", "Shiny Wynaut", "Shiny Beldum", "Shiny Metang", "Shiny Metagross", "Shiny Latias", "Shiny Latios", "Shiny Jirachi", "Shiny Deoxys", 
"Shiny Chingling", "Shiny Bronzor", "Shiny Bronzong", "Shiny Mime Jr.", "Shiny Gallade", "Shiny Porygon-Z", "Shiny Uxie", "Shiny Azelf", "Shiny Mesprit", 
"Shiny Cresselia", "Shiny Arceus", "Shiny Victini", "Shiny Munna", "Shiny Musharna", "Shiny Woobat", "Shiny Swoobat", "Shiny Sigilyph", "Shiny Gothita", 
"Shiny Gothorita", "Shiny Gothitelle", "Shiny Solosis", "Shiny Duosion", "Shiny Reuniclus", "Shiny Elgyem", "Shiny Beheeyem", "Shiny Meloetta", "Shiny Delphox", 
"Shiny Espurr", "Shiny Meowstic", "Shiny Inkay", "Shiny Malamar", "Shiny Sylveon"}  --alterado v2.9

local etele = 9499
local cdtele = 1800

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 = {
[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 = "Viridian", id = 6, sto = 897535},  --alterado v2.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 = "Pewter", id = 8, sto = 897537},          
[9] = {name = "Pallet", id = 9},
[10] = {name = "Cinnabar", id = 10, sto = 897538},
[11] = {name = "Snow", id = 11, sto = 897539},
[12] = {name = "Hunter Village", id = 14, sto = 897540},
[13] = {name = "Sunshine", id = 15, sto = 897541},
[14] = {name = "Cherrygrove", id = 16, sto = 897542},
[15] = {name = "Violet", id = 17, sto = 897543},
[15] = {name = "Singer", id = 12, sto = 897544}
}
function onSay(cid, words, param)

	if #getCreatureSummons(cid) == 0 then
		doPlayerSendCancel(cid, "Teleport olabilmek için pokemona ihtiyaciniz var.")
	return true
	end

	if not isInArray(poke, getCreatureName(getCreatureSummons(cid)[1])) then
	return 0
	end
	
	if getPlayerStorageValue(cid, Agatha.stoIni) >= 1 and getPlayerStorageValue(cid, Agatha.stoIni) < 50 then --alterado v2.9
	   doPlayerSendCancel(cid, "You can't do that here!")
    return true
    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 getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then 
	   return doPlayerSendCancel(cid, "You can't do it while in the PVP Zone!")   --alterado v2.7
    end
    
	if config.premium and not isPremium(cid) then
		doPlayerSendCancel(cid, "Only premium members are allowed to use teleport.")
	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 v2.7

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

		if not getHouseByPlayerGUID(getPlayerGUID(cid)) then
			doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Bir Eve Sahip Degilsiniz.")
		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 v2.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
	
	
		

	

	local summons = getCreatureSummons(cid)
	doSendMagicEffect(getThingPos(cid), 29)
	
	doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1)
	doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1, false, 0, lastppos)
	doCreatureSetLookDir(summons[1], SOUTH)
	doCreatureSetLookDir(cid, SOUTH)

	local pos2 = getClosestFreeTile(cid, getPosByDir(getThingPos(cid), SOUTH))
	
	doTeleportThing(summons[1], pos2, false)
	doTeleportThing(cid, telepos, false)
	
	local pk = getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "poke")
  	doRemoveCreature(summons[1])

	doSummonMonster(cid, pk)
	local newpok = getCreatureSummons(cid)[1]
	adjustStatus(newpok, getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, true, false, true)

	doCreatureSay(newpok, "TELEPORT!", TALKTYPE_MONSTER)
	doCreatureSay(newpok, "TELEPORT!", TALKTYPE_MONSTER, false, 0, lastspos)
	doCreatureSetLookDir(newpok, SOUTH)
	doCreatureSetLookDir(cid, SOUTH)
	doSendMagicEffect(getThingPos(newpok), 29)
	doSendMagicEffect(getThingPos(cid), 29)

	exhaustion.set(cid, etele, cdtele)

return true
end

Editado Fevereiro 15, 2018 por Dom Matteo (veja o histórico de edições)

Cjaker · Fevereiro 5, 2018

Este tópico foi movido para a área correta. Esta é uma mensagem automática!
Pedimos que leia as regras do fórum!

Spoiler

This topic has been moved to the correct area. This is an automated message!
Please read the forum rules.

Dom Matteo · Fevereiro 5, 2018

46 minutos atrás, Cjaker disse:

Este tópico foi movido para a área correta. Esta é uma mensagem automática!
Pedimos que leia as regras do fórum!

Ocultar conteúdo

This topic has been moved to the correct area. This is an automated message!
Please read the forum rules.

Desculpe, mas é difícil de encontrar a área correta de postar as coisas aqui

~~ADM Flow~~ · Junho 8, 2020

Em 04/02/2018 em 09:00, Dom Matteo disse:

Bom galera, vim compartilhar com vocês algo que eu quebrei a cabeça pra resolver mas conseguir,

Pode parecer simples mas em algumas bases o pokemon não segue o player ao usar o comando de teleport (ex:abra, alakazam, etc) e muita gente fica chateado com isso.

é só apagar e substituir todo o seu data\talkactions\scripts\tele.lua por esse código (faça backup antes, não posso garantir que funcione na sua base)

(obs: lembre-se de checar as cidades e as ids do templo):


local poke = {"Abra", "Kadabra", "Alakazam", "Drowzee", "Hypno", "Porygon", "Mr. Mime", "Mewtwo", "Mew", "Natu", "Xatu", "Espeon", "Slowking", "Unown", 
"Wobbuffet", "Girafarig", "Porygon2", "Lugia", "Celebi", "Ralts", "Kirlia", "Gardevoir", "Meditite", "Medicham", "Spoink", "Grumpig", "Lunatone", "Solrock", 
"Baltoy", "Claydol", "Wynaut", "Beldum", "Metang", "Metagross", "Latias", "Latios", "Jirachi", "Deoxys", "Chingling", "Bronzor", "Bronzong", "Mime Jr.", 
"Gallade", "Porygon-Z", "Uxie", "Azelf", "Mesprit", "Cresselia", "Arceus", "Victini", "Munna", "Musharna", "Woobat", "Swoobat", "Sigilyph", "Gothita", 
"Gothorita", "Gothitelle", "Solosis", "Duosion", "Reuniclus", "Elgyem", "Beheeyem", "Meloetta", "Delphox", "Espurr", "Meowstic", "Inkay", "Malamar", 
"Sylveon", "Shiny Abra", "Shiny Kadabra", "Shiny Alakazam", "Shiny Drowzee", "Shiny Hypno", "Shiny Porygon", "Shiny Mr. Mime", "Shiny Mewtwo", "Shiny Mew", 
"Shiny Natu", "Shiny Xatu", "Shiny Espeon", "Shiny Slowking", "Shiny Unown", "Shiny Wobbuffet", "Shiny Girafarig", "Shiny Porygon2", "Shiny Lugia", "Shiny Celebi", 
"Shiny Ralts", "Shiny Kirlia", "Shiny Gardevoir", "Shiny Meditite", "Shiny Medicham", "Shiny Spoink", "Shiny Grumpig", "Shiny Lunatone", "Shiny Solrock", 
"Shiny Baltoy", "Shiny Claydol", "Shiny Wynaut", "Shiny Beldum", "Shiny Metang", "Shiny Metagross", "Shiny Latias", "Shiny Latios", "Shiny Jirachi", "Shiny Deoxys", 
"Shiny Chingling", "Shiny Bronzor", "Shiny Bronzong", "Shiny Mime Jr.", "Shiny Gallade", "Shiny Porygon-Z", "Shiny Uxie", "Shiny Azelf", "Shiny Mesprit", 
"Shiny Cresselia", "Shiny Arceus", "Shiny Victini", "Shiny Munna", "Shiny Musharna", "Shiny Woobat", "Shiny Swoobat", "Shiny Sigilyph", "Shiny Gothita", 
"Shiny Gothorita", "Shiny Gothitelle", "Shiny Solosis", "Shiny Duosion", "Shiny Reuniclus", "Shiny Elgyem", "Shiny Beheeyem", "Shiny Meloetta", "Shiny Delphox", 
"Shiny Espurr", "Shiny Meowstic", "Shiny Inkay", "Shiny Malamar", "Shiny Sylveon"}  --alterado v2.9

local etele = 9499
local cdtele = 1800

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 = {
[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 = "Viridian", id = 6, sto = 897535},  --alterado v2.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 = "Pewter", id = 8, sto = 897537},          
[9] = {name = "Pallet", id = 9},
[10] = {name = "Cinnabar", id = 10, sto = 897538},
[11] = {name = "Snow", id = 11, sto = 897539},
[12] = {name = "Hunter Village", id = 14, sto = 897540},
[13] = {name = "Sunshine", id = 15, sto = 897541},
[14] = {name = "Cherrygrove", id = 16, sto = 897542},
[15] = {name = "Violet", id = 17, sto = 897543},
[15] = {name = "Singer", id = 12, sto = 897544}
}
function onSay(cid, words, param)

	if #getCreatureSummons(cid) == 0 then
		doPlayerSendCancel(cid, "Teleport olabilmek için pokemona ihtiyaciniz var.")
	return true
	end

	if not isInArray(poke, getCreatureName(getCreatureSummons(cid)[1])) then
	return 0
	end
	
	if getPlayerStorageValue(cid, Agatha.stoIni) >= 1 and getPlayerStorageValue(cid, Agatha.stoIni) < 50 then --alterado v2.9
	   doPlayerSendCancel(cid, "You can't do that here!")
    return true
    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 getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then 
	   return doPlayerSendCancel(cid, "You can't do it while in the PVP Zone!")   --alterado v2.7
    end
    
	if config.premium and not isPremium(cid) then
		doPlayerSendCancel(cid, "Only premium members are allowed to use teleport.")
	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 v2.7

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

		if not getHouseByPlayerGUID(getPlayerGUID(cid)) then
			doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Bir Eve Sahip Degilsiniz.")
		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 v2.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
	
	
		

	

	local summons = getCreatureSummons(cid)
	doSendMagicEffect(getThingPos(cid), 29)
	
	doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1)
	doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1, false, 0, lastppos)
	doCreatureSetLookDir(summons[1], SOUTH)
	doCreatureSetLookDir(cid, SOUTH)

	local pos2 = getClosestFreeTile(cid, getPosByDir(getThingPos(cid), SOUTH))
	
	doTeleportThing(summons[1], pos2, false)
	doTeleportThing(cid, telepos, false)
	
	local pk = getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "poke")
  	doRemoveCreature(summons[1])

	doSummonMonster(cid, pk)
	local newpok = getCreatureSummons(cid)[1]
	adjustStatus(newpok, getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, true, false, true)

	doCreatureSay(newpok, "TELEPORT!", TALKTYPE_MONSTER)
	doCreatureSay(newpok, "TELEPORT!", TALKTYPE_MONSTER, false, 0, lastspos)
	doCreatureSetLookDir(newpok, SOUTH)
	doCreatureSetLookDir(cid, SOUTH)
	doSendMagicEffect(getThingPos(newpok), 29)
	doSendMagicEffect(getThingPos(cid), 29)

	exhaustion.set(cid, etele, cdtele)

return true
end

test n PDA¡¡

Entrar

Teleport consertado, pokemon segue o player

Posts Recomendados

Dom Matteo 13

Link para o post

Compartilhar em outros sites

Cjaker 298

Link para o post

Compartilhar em outros sites

Dom Matteo 13

Link para o post

Compartilhar em outros sites

ADM Flow 2

Link para o post

Compartilhar em outros sites

Participe da conversa

Quem Está Navegando 0 membros estão online

Conteúdo Similar

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Fóruns

Anuncie

Informação Importante