Teleport Mistico

[Miltonhit 4]

Autor: MiltonHit

Versão Testada: TFS 0.3.6 (8.54)

Versão do Script: 1.0

 

Explicação do Script:

Ao dar use a primeira vez, ele salva as coordenadas do player, ao clicar a segunda vez ele teleporta para as coordenadas salvas.

Oque ele tem de diferente dos outros?

Muita coisa :palm:

 

-----Introduçãozinha----

 

Olá galera da OTBR, venho aqui postar um script de minha autoria, tava apodrecendo aqui no PC, então resolvi dar uma melhorada e posto-lo...

 

em actions/scripts adicione esse arquivo lua:

 

 --Script by Mirto, MiltonHit on OTBR--
--Postagem autorizada com os devidos creditos--
--Teleport Mistico 1.0--

---mensagens----
local salva = 'Você gravou suas coordenadas em seu teleport mistico.' ---msg para salvar a pos.
local teleport = 'Você ativou seu teleport mistico.' ---msg para quando começar o efeito do teleport.
local sucess = 'Você foi teleportado com sucesso.' ---msg depois que foi teleportado.
---efeitos---
local animated = 'Woup!!' --animated text 
local effect = 10  --efect que ficará dando durante o script.
---storages---
local salva1 = 111
local salva2 = 222  --storages que salvarão as coordenadas.
local salva3 = 333
local salva4 = 444

---começo do script (não mexa)-----
local function Teleport10(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
xpos = getPlayerStorageValue(cid, salva1)
ypos = getPlayerStorageValue(cid, salva2)
zpos = getPlayerStorageValue(cid, salva3)
spos = {x=xpos, y=ypos, z=zpos}
doTeleportThing(cid, spos)
doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, sucess)
doSendAnimatedText(getCreaturePosition(cid), animated, 213)
end
return TRUE
end

local function Teleport9(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport10, 1 * 1000, cid)
end
end

local function Teleport8(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport9, 1 * 1000, cid)
end
end

local function Teleport7(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport8, 1 * 1000, cid)
end
end

local function Teleport6(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport7, 1 * 1000, cid)
end
end

local function Teleport5(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport6, 1 * 1000, cid)
end
end

local function Teleport4(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport5, 1 * 1000, cid)
end
end

local function Teleport3(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport4, 1 * 1000, cid)
end
end

local function Teleport2(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport3, 1 * 1000, cid)
end
end

local function Teleport1(cid)
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), effect)
addEvent(Teleport2, 1 * 1000, cid)
end
end

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

local teleport = getPlayerStorageValue(cid, salva4)

if teleport == -1 or teleport == 0 then
savpos = {x=getThingPos(item2.uid).x, y=getThingPos(item2.uid).y, z=getThingPos(item2.uid).z, stackpos=253}
setPlayerStorageValue(cid, salva1, savpos.x)
setPlayerStorageValue(cid, salva2, savpos.y)
setPlayerStorageValue(cid, salva3, savpos.z)
setPlayerStorageValue(cid, salva4, 1)
doSendMagicEffect(topos, CONST_ME_MAGIC_BLUE)
doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, salva)

elseif teleport == 1 then
setPlayerStorageValue(cid, salva4, 0)
doSendMagicEffect(getCreaturePosition(cid), effect)
doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, teleport)
doRemoveItem(item.uid,1)
addEvent(Teleport1, 1 * 1000, cid)
end
end

 

Depois em actions.xml adicione essa linha linda:

<action itemid="IDITEM" script="teleport" />

 

 

Quando eu tiver paciencia faço a versão 2.0, nele nao vai poder teleporta com pk, e ficara exausted enquanto pisca, não poderá usar nenhuma runa.

Caso alguem queira melhorar ele fique a vontade, só coloque os creditos!

 

 

Beijinhos, até mais. :yes:

 

OBS: Gostou?Faz uma doaçãozinha!

OBS¹: Duvidas?Poste abaixo que eu respondo!

OBS²: Aceito sugestões para melhorar o script!

Editado 23 Julho, 2011 por iuniX
alguns ajustes.

[Socket 0]

Bem, o script fico exageradamente grande, e já possui um script como esse no fórum, porém o seu tem algumas coisas a mais que o diferencia do outro, por isso aprovarei seu script.

 

Movido.

[Lyon 3]

Muito bom esse script,mas os créditos são pela autoria total ou apenas por fazer o script,porque a idéia é do servidor Dragon Souls

Vlw por postar pra gente.

[Miltonhit 4]

uhum, tipo a ideia é eles eu só reproduzi a ideia, na versão 2.0 vou fazer algumas modificações..

 

obrigado pelos comentarios, se tiverem mais alguma duvida só postar.

[OlhoHell 1]

esse teleport mistico é uma imitação de um colega meu por isso eu não aprovo o meu colega nando fez um desse jeito então REPROVADO

[Miltonhit 4]

essa ideia foi pega de um outro servidor, se seu colega fez um parecido não é minha culpa, e antes de vim falar "REPROVADO" vire um moderador ou algo do tipo, até mais.

[Nostalgic 0]

@OlhoHell

velho voce esta sendo mto chato cara te reportei ja pq todo topico q eu vejo voce quer da uma de moderador,se toca cara, se ta fasendo isso pra q ?, ta achando q alguem da staf vai ver seus post e te dar o cargo, acho q n e atoa q voce ta cheio de infraçoes cuidado, mais algumas e voce e exiliado!!! E porfavor se for me responder n crie outro post se n vai bagunça o topico me mande pm

 

@topico

Script interessante...Mais ao meu ver n seria mto bom em um ot pq ja penso voce clica dentro de uma house ai depois vai e entra nela ^^

[rodrigo augusto 0]

N sei como adiciona no meu ot acho q e por causa da versao q e 8.4 alguem poderia me ajudar ??????????

[Ribas1574 1]

bem legal, porém não muito bom para ots de exp baixa...

[xS0NYx 15]

Mano, usa o for, depois eu faço um com for reduz muitas linhas mas em si ficou legal

Editado 24 Julho, 2011 por xS0NYx

[Captha 0]

eu pensei nesse script, começei a fazer , sot deu alguns bugs e parei

haha, 2 dias voce posta, ja achei onde errei

[Insaend 0]

eu aprovo.... A ideia de refazer ou melhorar algo q ja esista ou q outro ja fez.... Agora o plagi total e edição de creditoss nao aprovo....

No mais acho q isso de plagio so foi na ideia.... ?

 

Evoluir e sempre bom... Faça logo a 2.0

 

E poste.

 

Abraço.

[Allanmbrado 0]

Um script realmente interessante, mas acredito que seria melhor colocar para não poder usar em protection zone, pqe, imagina:

Vc ta no meio da war, e se teleporta pro dp?? '-'

[iuniX 4]

Um pouco de organização e indentação cairia bem ao script, está bem chato de ler.

[tguegue 0]

fiz, nao curti muito nao

 

mesmo assim vale um UP

[Asould Acalaylaa 5]

Maneiro, útil pra 4Fun.

@Lyon

Eu amo a sua assinatura. HUAHUEA

[ATTACH=CONFIG]3338[/ATTACH]