Temple Teleport Scroll [Release]

[Alyhide]

Here is a simple script made by Doggynub, but it's pretty useful. The temple teleport scroll.

Actions Folder : TempleTeleportScroll.LUA

function countDown(number, pos, effect, msgonend, effectonend)
  local n = number
       for i = 1, number do
           addEvent(doSendAnimatedText,i* 1000, pos, n > 1 and n.."" or msgonend .."", n < 6 and TEXTCOLOR_RED or TEXTCOLOR_GREEN)
           addEvent(doSendMagicEffect,i* 1000, pos, n > 1 and effect or effectonend )
 
              n = n -1
       end
      n = number
return true
end
function onUse(cid, item, fromPosition, itemEx, toPosition)
 if isPlayerPzLocked(cid) then
    doPlayerSendCancel(cid,"You Cannot Teleport Right After A Battle!.")
 else
    countDown(10, getThingPos(cid), 5, "Warped!", 2)
    doCreatureSetNoMove(cid, 1)
    addEvent(doTeleportThing,10000,cid,getTownTemplePosition(getPlayerTown(cid)),FALSE)
    addEvent(doCreatureSetNoMove,10000,cid, 0) 
    addEvent(doSendMagicEffect,10004,getTownTemplePosition(getPlayerTown(cid)), 10) 
  end
return true
end

Actions.XML :

<action itemid="8189" event="script" value="other/templeteleportscroll.lua"/>

 

[Alyhide]

Nobody Wants It?

 

[KylerXX]

It is a simple script and sometimes useful. Nice work

 

[Alyhide]

Bump
Up
My
Post

 

[Klaien]

as KylerXX said, it's a simple but great script!
Good Job Kira! Keep it up!

 

[_Arthur]

You could've optimized the script and shortened it lots more.

Anyway, there have been hundreds of tp scroll scripts released already.

Here's mine..

function onUse(cid, item, frompos, item2, topos)
ppos = getPlayerPosition(cid)
temple = getPlayerMasterPos(cid)
if (getCreatureCondition(cid, CONDITION_INFIGHT) == FALSE) then
doTeleportThing(cid, temple, TRUE)
doSendMagicEffect(ppos,66)
doSendAnimatedText(frompos,'Wiee!',16)
else
doPlayerSendCancel(cid,"You can't teleport immediately after fight.")
doSendMagicEffect(ppos,2)
end
return 1
end

 

[KylerXX]

What is this??
TEXTCOLOR_RED or TEXTCOLOR_GREEN

TEXTCOLOR_RED never is nil or false. Then, only color red it is display.

--
Ok sorry I was not saw " n < 6" .
^_^

 

[Doggynub]

Humm , no credits , Btw "Teleported succesfully" wont appear all , as doSendAnimatedText() only show 8 characters.

 

[Alyhide]

You could've optimized the script and shortened it lots more.

Anyway, there have been hundreds of tp scroll scripts released already.

Here's mine..

function onUse(cid, item, frompos, item2, topos)
ppos = getPlayerPosition(cid)
temple = getPlayerMasterPos(cid)
if (getCreatureCondition(cid, CONDITION_INFIGHT) == FALSE) then
doTeleportThing(cid, temple, TRUE)
doSendMagicEffect(ppos,66)
doSendAnimatedText(frompos,'Wiee!',16)
else
doPlayerSendCancel(cid,"You can't teleport immediately after fight.")
doSendMagicEffect(ppos,2)
end
return 1
end

Ok thanks, I'll be sure to shorten it next time

Humm , no credits , Btw "Teleported succesfully" wont appear all , as doSendAnimatedText() only show 8 characters.

Ok, I will change that to "Warped!" xD

 

[Alyhide]

Bump
Up
My
Post

 

[Ataro]

Nice, Editing And using

 

[Alyhide]

No problem

 

[ERAGOS]

gr8 job !!!! Thx Man And sorry for bump

 

[The ShincZ]

Great Script Kira, one day you'll be the a King Scripter! If you keep it up..

 

[Alyhide]

Great Script Kira, one day you'll be the a King Scripter! If you keep it up..

haha maybe.

 

[virtual493]

great nice using bro! 8D

 

[narko]

c00l

doCreatureSetNoMove(cid, 1)

 

[Gzuz]

Is it Possible to do something like?

if (getCreatureCondition(cid, CONDITION_PZLocked) == FALSE) then

 

[Alyhide]

Is it Possible to do something like?

I'm sure it is, just not included in this.

 

[Amiroslo]

can u make it it teleports u after 3sec?