TalkAction [Admin] Create teleporter

[Elsab3]

good job

 

[Odera]

how could i add it ?

 

[Emtrex]

Does it work on TFS 1.0?

 

[Lucifer]

Can someone convert this to tfs 1.x?

 

[Leesne]

Codes a bit slapped together but meh, it works.

1st /addtp sets the Teleport location,
2nd /addtp sets the Teleport destination location

/addtp NUM --Adds a teleport with action ID
eg:
/addtp 1337 -- adds a portal with actionID 1337

-- <talkaction words="/addtp" separator=" " script="addtp.lua"/>
function comparePosition(pos1, pos2)
    return (pos1.x == pos2.x and pos1.y == pos2.y and pos1.z == pos2.z) and true or false
end

local position = false
function onSay(cid, words, param)
    local player = Player(cid)
     if not player:getGroup():getAccess() then
      return true
     end

     if player:getAccountType() < ACCOUNT_TYPE_GOD then
      return false
     end

    local lookPosition = player:getPosition()
    lookPosition:getNextPosition(player:getDirection())

    local pos,c = lookPosition,position

        if param == "clear" then
            position = false
            return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Clear.")
        elseif param then
            if tonumber(param) then
                local tp = Game.createItem(1387, 1, pos)
                tp:setActionId(tonumber(param))
                position = false
                return true
            end
        end

        if not(position) or not(comparePosition(position,pos)) then
            if position == false then
                position = pos
                return player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, string.format("The teleporter's position was set. [X: %i, Y: %i, Z: %i]",pos.x, pos.y, pos.z)) and lookPosition:sendMagicEffect(CONST_ME_MAGIC_RED)
            end

            position = false
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, string.format("The teleporter was set up. From:[X: %i, Y: %i, Z: %i] To:[X: %i, Y: %i, Z: %i]",c.x, c.y, c.z, pos.x, pos.y, pos.z))
            lookPosition:sendMagicEffect(CONST_ME_MAGIC_RED)

            local tp = Game.createItem(1387, 1,c)
            tp:setDestination(pos)
        end
        return player:sendCancelMessage("The teleport position can't be the position where the teleporter is.") and player:getPosition():sendMagicEffect(CONST_ME_POFF)
end

 

[Lucifer]

Thank you @Leesne Works Perfect!

 

[Adorius Black]

Codes a bit slapped together but meh, it works.

1st /addtp sets the Teleport location,
2nd /addtp sets the Teleport destination location

/addtp NUM --Adds a teleport with action ID
eg:
/addtp 1337 -- adds a portal with actionID 1337

-- <talkaction words="/addtp" separator=" " script="addtp.lua"/>
function comparePosition(pos1, pos2)
    return (pos1.x == pos2.x and pos1.y == pos2.y and pos1.z == pos2.z) and true or false
end

local position = false
function onSay(cid, words, param)
    local player = Player(cid)
     if not player:getGroup():getAccess() then
      return true
     end

     if player:getAccountType() < ACCOUNT_TYPE_GOD then
      return false
     end

    local lookPosition = player:getPosition()
    lookPosition:getNextPosition(player:getDirection())

    local pos,c = lookPosition,position

        if param == "clear" then
            position = false
            return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Clear.")
        elseif param then
            if tonumber(param) then
                local tp = Game.createItem(1387, 1, pos)
                tp:setActionId(tonumber(param))
                position = false
                return true
            end
        end

        if not(position) or not(comparePosition(position,pos)) then
            if position == false then
                position = pos
                return player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, string.format("The teleporter's position was set. [X: %i, Y: %i, Z: %i]",pos.x, pos.y, pos.z)) and lookPosition:sendMagicEffect(CONST_ME_MAGIC_RED)
            end

            position = false
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, string.format("The teleporter was set up. From:[X: %i, Y: %i, Z: %i] To:[X: %i, Y: %i, Z: %i]",c.x, c.y, c.z, pos.x, pos.y, pos.z))
            lookPosition:sendMagicEffect(CONST_ME_MAGIC_RED)

            local tp = Game.createItem(1387, 1,c)
            tp:setDestination(pos)
        end
        return player:sendCancelMessage("The teleport position can't be the position where the teleporter is.") and player:getPosition():sendMagicEffect(CONST_ME_POFF)
end

Nice work, however it is better if there is also delete teleport function I am sure you can do it with your skill

 

[Joriku]

Here's an working TFS 1.3/OTBR version for the latest current 12.72 client. Remember, This may contain wrong codes/outdated codes. It's working and I see no reason for a bug to occur. If anyone does, feel free to comment about it.
Revscript:

local talkaction = TalkAction("/addtp")

function comparePosition(pos1, pos2)
    return (pos1.x == pos2.x and pos1.y == pos2.y and pos1.z == pos2.z) and true or false
end
 
local position = false
function talkaction.onSay(cid, words, param)
    local player = Player(cid)
     if not player:getGroup():getAccess() then
      return true
     end
 
     if player:getAccountType() < ACCOUNT_TYPE_GOD then
      return false
     end
 
    local lookPosition = player:getPosition()
    lookPosition:getNextPosition(player:getDirection())
 
    local pos,c = lookPosition,position
 
        if param == "clear" then
            position = false
            return doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Clear.")
        elseif param then
            if tonumber(param) then
                local tp = Game.createItem(1387, 1, pos)
                tp:setActionId(tonumber(param))
                position = false
                return true
            end
        end
 
        if not(position) or not(comparePosition(position,pos)) then
            if position == false then
                position = pos
                return player:sendTextMessage(MESSAGE_INFO_DESCR, string.format("The teleporter's position was set. [X: %i, Y: %i, Z: %i]",pos.x, pos.y, pos.z)) and lookPosition:sendMagicEffect(CONST_ME_MAGIC_RED)
            end
 
            position = false
            player:sendTextMessage(MESSAGE_EVENT_ADVANCE, string.format("The teleporter was set up. From:[X: %i, Y: %i, Z: %i] To:[X: %i, Y: %i, Z: %i]",c.x, c.y, c.z, pos.x, pos.y, pos.z))
            lookPosition:sendMagicEffect(CONST_ME_MAGIC_RED)
 
            local tp = Game.createItem(1387, 1,c)
            tp:setDestination(pos)
        end
        return player:sendCancelMessage("The teleport position can't be the position where the teleporter is.") and player:getPosition():sendMagicEffect(CONST_ME_POFF)
end

talkaction:separator(" ")

talkaction:register()