btmunstick.lua

local event=require("event")
local component = require("component")
local computer = require("computer")
local debug = component.debug

local chat = component.chat_box
chat.setDistance(math.huge)

local unstickPos = {521, 33, -323}

local function tp(player, pos)
    local playerObj = debug.getPlayer(player)
    playerObj.setPosition(table.unpack(pos))
end

local function chatMessageHandler(ev, foo, name, msg)
    if msg == "unstick me" or msg == "unstuck me" then
        tp(name, unstickPos)
    end
end

event.listen("chat_message", chatMessageHandler)

chat.setName("UnstickMe")
chat.say("Enabled")

while true do
    event.pull()
end

event.ignore("chat_message", chatMessageHandler)