[scroll.lua] TP SCROLL FIX?!

ziomek14b · Mar 18, 2009

Hi, i want to have a tp scroll fixed.
Tp scroll should work anywhere even if you have pk.
Also when you press on scroll you teleport like when you press on it you dont have to wait any seconds.

This is script, if someone could fix it for me, this would be great!

local Time1 = 0
local Use1 = 0
local timecount = 0

local function exhaust(cid, storevalue, exhausttime)
-- Exhaustion function by Alreth, v1.1 2006-06-24 01:31
-- Returns 1 if not exhausted and 0 if exhausted

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!")
else
if timecount > 0 then
Time1 = addEvent(onTime1, 1000, z)
end
timecount = timecount-1
doPlayerSendTextMessage(z.cid, 21, "Teleporting in " .. timecount .. " second.")
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=1000, y=1000, z=7}
doTeleportThing(z.cid, npos)
doPlayerSendTextMessage(z.cid, 21, "You have been Teleported.")
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

Pitufo™ · Mar 19, 2009

If you just whant a simple Teleport Scroll then use this one:

PHP:

function onUse(cid, item, fromPosition, itemEx, toPosition)
		local telePos = {x=149 , y=388 , z=7}
		doTeleportThing(cid, telePos)
		doSendMagicEffect(getPlayerPosition(cid), 10)
		doSendMagicEffect(telePos, 10)
		doPlayerSendTextMessage(cid, 22, "You got teleported!")
	return TRUE
end

ziomek14b · Mar 19, 2009

could you get me scroll like that but you can only use once?
and is that scroll teleporting when you have pz?

josejunior23 · Mar 19, 2009

not tested \

PHP:

local CONFIG =
{
    {pos = {x=1000, y=1000, z=7}, lvl = 80, pa = FALSE} -- Teleport Scroll
}
 
function onUse(cid, item, fromPosition, itemEx, toPosition) 
   if getCreatureCondition(cid, CONDITION_INFIGHT) == 0 then
        if isPremium(cid) == CONFIG[item.actionid].pa then
            if getPlayerLevel(cid) >= CONFIG[item.actionid].lvl then
                doTeleportThing(cid,CONFIG[item.actionid].pos)
                doSendMagicEffect(getPlayerPosition(cid),10)
            else
        doCreatureSay(cid, "You cannot use a teleport scroll when you are in a fight.", TALKTYPE_ORANGE_1)
            end
        else
        doCreatureSay(cid, "Only players with a Premium account can use teleport scroll.", TALKTYPE_ORANGE_1)
        end
    else
        doCreatureSay(cid, "Only Players Level 80 or more can use this teleport scroll", TALKTYPE_ORANGE_1)
    end
    return TRUE
end

Pro Warbringer · Mar 19, 2009

josejunior23 said:

not tested \

PHP:

local CONFIG =
{
    [12850]={pos = {x=1000, y=1000, z=7}, lvl = 80, pa = FALSE}, -- Teleport Scroll
}
 
function onUse(cid, item, fromPosition, itemEx, toPosition) 
   if getCreatureCondition(z.cid, CONDITION_INFIGHT) == 0 then
        if isPremium(cid) == CONFIG[item.actionid].pa then
            if getPlayerLevel(cid) >= CONFIG[item.actionid].lvl then
                doTeleportThing(cid,CONFIG[item.actionid].pos)
                doSendMagicEffect(getPlayerPosition(cid),10)
                doRemoveItem(cid, item.uid, 1)
          else
        doCreatureSay(cid, "You cannot use a teleport scroll when you are in a fight.", TALKTYPE_ORANGE_1)
            end
        else
        doCreatureSay(cid, "Only players with a Premium account can use teleport scroll.", TALKTYPE_ORANGE_1)
        end
    else
        doCreatureSay(cid, "Only Players Level 80 can use this teleport scroll", TALKTYPE_ORANGE_1)
    end
    return TRUE
end

so the scroll will get removed

josejunior23 · Mar 19, 2009

Pro Warbringer said:
so the scroll will get removed

thanks d:

Zonet · Mar 19, 2009

PHP:

local CONFIG =
{
    [12850]={pos = {x=1000, y=1000, z=7}, lvl = 80, pa = FALSE}, -- Teleport Scroll
}
 
function onUse(cid, item, fromPosition, itemEx, toPosition) 
   if getCreatureCondition(z.cid, CONDITION_INFIGHT) == 0 then
        if isPremium(cid) == CONFIG[item.actionid].pa then
            if getPlayerLevel(cid) >= CONFIG[item.actionid].lvl then
                doTeleportThing(cid,CONFIG[item.actionid].pos)
                doSendMagicEffect(getPlayerPosition(cid),10)
          else
        doCreatureSay(cid, "You cannot use a teleport scroll when you are in a fight.", TALKTYPE_ORANGE_1)
            end
        else
        doCreatureSay(cid, "Only players with a Premium account can use teleport scroll.", TALKTYPE_ORANGE_1)
        end
    else
        doCreatureSay(cid, "Only Players Level 80 can use this teleport scroll", TALKTYPE_ORANGE_1)
    end
    return TRUE
end

Josejunioers, just that the scroll doesn't removes.

josejunior23 · Mar 19, 2009

PHP:

local CONFIG =
{
     [12850]={pos = {x=1000, y=1000, z=7}, lvl = 80, pa = TRUE}, -- Teleport Scroll
}
 
function onUse(cid, item, fromPosition, itemEx, toPosition) 
   if getCreatureCondition(cid, CONDITION_INFIGHT) == 0 then
        if isPremium(cid) == CONFIG[item.actionid].pa then
            if getPlayerLevel(cid) >= CONFIG[item.actionid].lvl then
                doTeleportThing(cid,CONFIG[item.actionid].pos)
                doSendMagicEffect(getPlayerPosition(cid),10)
                doRemoveItem(cid, item.uid, 1)
          else
        doCreatureSay(cid, "You cannot use a teleport scroll when you are in a fight.", TALKTYPE_ORANGE_1)
            end
        else
        doCreatureSay(cid, "Only players with a Premium account can use teleport scroll.", TALKTYPE_ORANGE_1)
        end
    else
        doCreatureSay(cid, "Only Players Level 80 can use this teleport scroll", TALKTYPE_ORANGE_1)
    end
    return TRUE
end

Zonet said:
Josejunioers, just that the scroll doesn't removes.

better now d:

ziomek14b · Mar 19, 2009

this doesnt work for me. Script should be done like when you have pz you can teleport and you dont need any level for it, also you dont have to wait any seconds to teleport. thanks

josejunior23 · Mar 19, 2009

PHP:

local CONFIG =
{
     {pos = {x=1000, y=1000, z=7})
}
 
function onUse(cid, item, fromPosition, itemEx, toPosition) 
   if getCreatureCondition(cid, CONDITION_INFIGHT) == 0 then
                doTeleportThing(cid,CONFIG.pos)
                doRemoveItem(cid, item.uid, 1)
          else
        doCreatureSay(cid, "You cannot use a teleport scroll when you are in a fight.", TALKTYPE_ORANGE_1)
            end
    return TRUE
end

if it doenst work, I can't help you \:

MxSoft · Jul 26, 2010

This one works, tested

function onUse(cid, item, fromPosition, itemEx, toPosition)
local telePos = {x=714 , y=767 , z=7}
doTeleportThing(cid, telePos)
doSendMagicEffect(getPlayerPosition(cid), 10)
doSendMagicEffect(telePos, 10)
doRemoveItem(cid, item.uid, 1)
doPlayerSendTextMessage(cid, 22, "You got teleported!")
return TRUE
end

kkk111 · Jul 27, 2010

function onUse(cid, item, fromPosition, itemEx, toPosition)
doTeleportThing(cid, {x=714 , y=767 , z=7})
doSendMagicEffect(getPlayerPosition(cid), 10)
doRemoveItem(cid, itemEx.uid, 1)
doPlayerSendTextMessage(cid, 22, "You got teleported!")
return true
end

zieworski denero · Jul 27, 2010

why cid in "doRemoveItem"?

JoSePh15_ · Jul 27, 2010

Code:

function onUse(cid, item, fromPosition, itemEx, toPosition) 
        local telePos = {x=149 , y=388 , z=7} 
        doTeleportThing(cid, telePos) 
        doSendMagicEffect(getPlayerPosition(cid), 10) 
        doSendMagicEffect(telePos, 10) 
        doPlayerSendTextMessage(cid, 22, "You got teleported!") 
        doRemoveItem(item.uid)
    return TRUE 
end

REP++ ME IF I HELPED! :ninja:

aququ · Feb 4, 2011

Does somebody know how to make it if character have pz its not teleporting. If player doesnt have pz it will teleport in 8 seconds and is counting down ?

Repp ++

mori2005 · Jun 25, 2014

Limos · Jun 25, 2014

Post your problem, which script you use, what the problems are with that, which errors you got, which server you use etc.

Just "help" isn't really useful information.

[scroll.lua] TP SCROLL FIX?!

ziomek14b

New Member

Pitufo™

InfinityOT.com

ziomek14b

New Member

josejunior23

read&read&read

Pro Warbringer

Retired with developing

josejunior23

read&read&read

Zonet

Web Developer

josejunior23

read&read&read

ziomek14b

New Member

josejunior23

read&read&read

MxSoft

Leave Tibia, Live Life.

kkk111

Member

zieworski denero

MS

JoSePh15_

Well-Known Member

aququ

New Member

mori2005

New Member

Limos

★

Similar threads