Advancet Teleport Temple Scroll

Antiemoxlr
em Actions e Talkactions

Antiemoxlr

Scripter
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 05/01/07Posts: 61Char no Tibia: Gaby Slayer

Vo Na pasta Da actions/tolls copie qualquer arkivo e ponha esta no Lugar

 

 

:sleep: :sleep: :sleep: :sleep: :sleep: :sleep: :sleep: :sleep: :sleep:

 

 

 

local Time1 = 0

local Use1 = 0

local timecount = 10 ---- Tiempo que tardara en teletransportarte

 

local function exhaust(cid, storevalue, exhausttime)

 

newExhaust = os.time()

oldExhaust = getPlayerStorageValue(cid, storevalue)

if (oldExhaust == nil or oldExhaust < 0) then

oldExhaust = 0

end

if (exhausttime == nil or exhausttime < 0) then

exhausttime = 1

end

diffTime = os.difftime(newExhaust, oldExhaust)

if (diffTime >= exhausttime or diffTime < 0) then

setPlayerStorageValue(cid, storevalue, newExhaust)

return 1

else

return 0

end

end

 

local function onTime1(z)

if isPlayer(z.cid) == 1 then

ppos = getPlayerPosition(z.cid)

if getCreatureCondition(z.cid, CONDITION_INFIGHT) == 1 then

stopEvent(time1)

stopEvent(Use1)

doPlayerSendTextMessage(z.cid, 21, "Teleport Canceled Because of IN-FIGHT!") ---- Lo que le saldra sino puede ser teletransportado por que esta en fight, solo puedes teletransportarte sin pz locked

else

if timecount > 0 then

Time1 = addEvent(onTime1, 1000, z)

end

timecount = timecount-1

doPlayerSendTextMessage(z.cid, 21, "Teleporting in " .. timecount .. " second.") ---- Cuenta atras para ser teletransportado

doSendMagicEffect(ppos, 53)

end

else

stopEvent(time1)

stopEvent(Use1)

end

end

local function onUse1(z)

if isPlayer(z.cid) == 1 then

if getCreatureCondition(z.cid, CONDITION_INFIGHT) == 0 then

ppos = getPlayerPosition(z.cid)

stopEvent(time1)

if z.item.itemid == 7727 then

npos = {x=160, y=50, z=6}

doTeleportThing(z.cid, npos)

doPlayerSendTextMessage(z.cid, 21, "Teleported to the Temple.") ---- Mensaje que saldra cuando sea teleportado

doSendMagicEffect(npos,40)

doSendMagicEffect(npos,10)

doSendMagicEffect(ppos,10)

stopEvent(time1)

end

else

stopEvent(time1)

doPlayerSendTextMessage(z.cid, 21, "Teleport Canceled.")

end

end

end

 

function onUse(cid, item, ppos, frompos, item2, topos)

local z = {cid = cid, item = item, ppos = ppos, item2 = item2, topos = topos}

if isPremium(cid) then

if getCreatureCondition(z.cid, CONDITION_INFIGHT) == 0 then

if (exhaust(cid, 9143, 11) > 0) then

Time1 = addEvent(onTime1, 1000, z)

Use1 = addEvent(onUse1, 11000, z)

timecount = 10

else

doPlayerSendCancel(cid, "You cannot use a teleport scroll again until you have been teleported.")

doSendMagicEffect(frompos, 2)

end

else

doPlayerSendCancel(cid, "You cannot use a teleport scroll when you are in a fight.")

doSendMagicEffect(frompos, 2)

end

else

doPlayerSendCancel(cid, "Only players with a Premium account can use teleport scroll.")

doSendMagicEffect(frompos, 2)

end

return 1

end

 

 

 

 

 

Va en action

 

<action itemid="SEU ID" script="tools/Scroll.lua"/>

GodBz

Vulcania - Adm Bz
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 27/01/10Posts: 23Char no Tibia: ADM BZ

Funcionou perfeitamente, mais vc esqueceu de mencionar que é preciso trocar o numero do id do item usado nessa parte:

if z.item.itemid == 7727 then

E passar pra o nosso idioma não seria uma má ideia não acha?

fora isso ta tudo certo, posta os creditos pra gente por gentileza...

Vulcania Alternative Server Game! - 24 Horas Online!

________________________________________________________________________________

Procurando um servidor novo? está cansado de ver sempre a mesma coisa?

Então entre em nosso mundo!

________________________________________________________________________________

 

 

Crie sua conta no site!

http://vulcania.tk

Clique aqui e jogue agora!

 

xtibia1.jpg

Antiemoxlr

Scripter
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 05/01/07Posts: 61Char no Tibia: Gaby Slayer

Olha Como Todo Mundo Poim em Ingles eu resolvi Colocar em espanhol pq nao sei escreve en ingles entendeu D:

DevilMoon

@leonartei
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 30/01/10Posts: 706Gênero: MasculinoChar no Tibia: Bakwin

cara ja tem topicos como esse explicando eu ja vi ja '-'

Contato: DevilMoon@Xtibia.com

fegula

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 14/02/10Posts: 10Char no Tibia: WinaLank

Como Eu Faco Pra Poder Tirar De Se Teleportar Apenas Sem Fight... Podendo Se Teleportar Sempre.

Bom Dia/Boa Tarde/Boa Noite.

Nós Do Ivos Otserv Estamos Aqui Para Recrutar Membros Para Equipe. Preencha Seu Cadastro Aqui No Forum. Como O Seguinte Cadastro:

Blog: http://ivosotserv.webs.com/

 

Nome:

Cargo:

Idade:

Email/Msn:

Tempo De Experiencia:

Motivo Pelo Qual Deseja Entrar:

Tempo Disponivel:

 

Vagas Disponiveis:

 

Scripter: [Vago][Vago][XxSupermanxX]

Mapper: [Vago][XxSupermanxX][Vago]

Web Maker/Desingner: [Vago][Vago]

Client Maker/Mananger: [Vago][Vago]

Sprite Maker: [Vago][Vago][Vago]

Sql Editor: [Vago][Vago] (Para Mecher Com Sqlite Do Servidor, ou Seja... A Database.)

 

Minhas Fan Bars.

401268766180.png

Antiemoxlr

Scripter
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 05/01/07Posts: 61Char no Tibia: Gaby Slayer

E so Voce Tirar a if getCreatureCondition(z.cid, CONDITION_INFIGHT) ==

silveralol

Silveralol
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 21/12/08Posts: 19Char no Tibia: Tenente ze gotinha

cara o script ja tem no otland, mas obrigado por trazer conteudo ao Xtibia... ele é bom pra ot's ex baixa e map global

lucasatak

Egoísmo?... Nunca!
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 07/05/08Posts: 120

@siveralol

se já tem no otland,ponha o link aqui.

 

@Antiemoxlr

caso tenha esse topico no otland,pode ser considerado ripping pois não está com creditos do autor do script,bote os duvidos creditos,antes que alguem te reporte.

 

abraços !

porco.gif

 

 

voltando aos poucos.

 

 

hsb.gif

 

É CAMPEÃO CARIOCA 2010 PORRA !

Adriez

avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 02/09/10Posts: 341Gênero: Masculino

fmz manos ?? teria como bloquear o item pra quem tivesse 20 resets usa ele ?? flws fmz

EX
969ds6.gif


Firmão igual um prego na areia,
Prego, jogou o ego, dentro de um buraco,
Um Bon vivant, jamais mostra o ponto fraco,
Pergunte a Sansão quem foi Dalila...