Derivado Como Deixar Teleport Free

[srjuninho 0]

Galera tenho um serve de poketibia base cyan, mais o teleport (h"nome da cidade) só está para vip, como deixo ele free? Se precisarem e algum arquivo falem o local que ele está que eu pego para vocês.

[Caronte 719]

Ele é por talkaction?

você tem que postar as coisas para a gente saber

 

abre talkactions.xml , e procure pelo comando da talkaction, e veja em que arquivo está, poste ele aqui...

[srjuninho 0]

Ele é por talkaction?

você tem que postar as coisas para a gente saber

 

abre talkactions.xml , e procure pelo comando da talkaction, e veja em que arquivo está, poste ele aqui...

 

Creio que seja por talk, o arquivo é esse

function onSay(cid, words, param)

if #getCreatureSummons(cid) == 0 then

return doPlayerSendCancel(cid, "You don't have any pokemon.")

end

 

 

local summons = getCreatureSummons(cid)[1]

local mon = getCreatureName(summons)

 

if getCreatureSpeed(summons) >= 1 then

doChangeSpeed(summons, -getCreatureSpeed(summons))

doCreatureSay(cid, ""..mon..", hold position!", TALKTYPE_SAY)

else

doRegainSpeed(summons)

doCreatureSay(cid, ""..mon..", stop holding!", TALKTYPE_SAY)

end

return 0

end

[Caronte 719]

Não, esse é um comando para fazer o pokemon parar de andar, ou andar...

[Deadpool 112]

talkactions/Tele.lua

 

Apague tudo dentro e cole isto:

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

local config = {
premium = false, -- se precisa ser premium account (true or false) ALTERE AQUI PARA PREMIUM OU FREE
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},
[2] = {name = "Cerulean", id = 2},
[3] = {name = "Lavender", id = 3},
[4] = {name = "Fuchsia", id = 4},
[5] = {name = "Celadon", id = 5},
[6] = {name = "Pewter", id = 6},
[7] = {name = "Pallet", id = 7},
[8] = {name = "Viridian", id = 8},
[9] = {name = "Vermilion", id = 9},
[10] = {name = "Cinnabar", id = 10},
[11] = {name = "Unnamed Town", id = 11},
[12] = {name = "Diamond City", id = 12},
[13] = {name = "Hasland Island", 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)[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, "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

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

return true
end