telemosaic/init.lua

--[[

Telemosaic [telemosaic]
=======================

A mod which provides player-placed teleport pads

Copyright (C) 2015 Ben Deutsch <ben@bendeutsch.de>

License
-------

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301
USA

]]

telemosaic = {
    -- configuration
    config = {
        teleport_delay = 2.0, -- seconds
    },

    players = {
        --[[
        name = {
            last_pos = '-10:5:3',
            time_in_pos = 0.0,
            allow_teleport = true,
        }
        ]]
    },

}

local M = telemosaic
local C = M.config

local function hash_pos(pos)
    return math.floor(pos.x + 0.5) .. ':' .. 
           math.floor(pos.y + 0.5) .. ':' ..
           math.floor(pos.z + 0.5)
end
local function unhash_pos(hash)
    local pos = {}
    local list = string.split(hash, ':')
    pos.x = tonumber(list[1])
    pos.y = tonumber(list[2])
    pos.z = tonumber(list[3])
    return pos
end

minetest.register_node('telemosaic:beacon', {
    description = 'Telemosaic beacon',
    tiles = {
        'telemosaic_beacon_top.png',
        'telemosaic_beacon_side.png',
        'telemosaic_beacon_side.png',
        'telemosaic_beacon_side.png',
        'telemosaic_beacon_side.png',
        'telemosaic_beacon_side.png',
    },
    paramtype = 'light',
    groups = { cracky = 2 },
    on_rightclick = function(pos, node, player, itemstack, pointed_thing)
        local name = itemstack:get_name()
        --print("Clicked by a " ..name)
        if name == 'default:mese_crystal_fragment' and itemstack:get_count() == 1 then
            --print("Clicked by a single key")
            itemstack = ItemStack({
                name = "telemosaic:key",
                count = 1,
                wear = 0,
                metadata = hash_pos(pointed_thing.under),
            })
        elseif name == 'telemosaic:key' then
            local posstring = itemstack:get_metadata()
            --print("Key with metadata " .. posstring)
            local meta = minetest.get_meta(pointed_thing.under)
            meta:set_string('telemosaic:dest', posstring) 
            --print ("set to " .. meta:get_string('telemosaic:dest'))
            itemstack = ItemStack({
                name = "default:mese_crystal_fragment",
                count = 1, wear = 0,
            })
        end
        return itemstack
    end
})

minetest.register_tool('telemosaic:key', {
    description = 'Telemosaic key',
    inventory_image = 'default_mese_crystal.png',
    stack_max = 1,
})

minetest.register_on_joinplayer(function(player)
    local name = player:get_player_name()
    if not M.players[name] then
        local pos = player:getpos()
        local pos_hash = hash_pos(pos)
        M.players[name] = {
            last_pos = pos_hash,
            time_in_pos = 0.0,
            allow_teleport = false, -- no teleport after join
        }
    end
end)

minetest.register_globalstep(function(dtime)
    for _,player in ipairs(minetest.get_connected_players()) do
        local name = player:get_player_name()
        local pl = M.players[name]
        local pos = player:getpos()
        local pos_hash = hash_pos(pos)
        -- from now on, pos is slightly *under* the player
        pos.y = pos.y - 0.01
        local stand_node = minetest.get_node(pos)
        --print ("At position " .. pos_hash .. " standing on a " .. stand_node.name)
        if pos_hash ~= pl.last_pos then
            --print("Moved to " .. pos_hash)
            pl.last_pos = pos_hash
            pl.time_in_pos = 0.0
            pl.allow_teleport = true
        elseif pl.allow_teleport and stand_node.name == 'telemosaic:beacon' then
            pl.time_in_pos = pl.time_in_pos + dtime
            if pl.time_in_pos > C.teleport_delay then
                local dest_hash = minetest.get_meta(pos):get_string('telemosaic:dest')
                if dest_hash ~= nil and dest_hash ~= '' then
                    --print("Ping to " .. dest_hash)
                    local dest = unhash_pos(dest_hash)
                    dest.y = dest.y + 0.5
                    player:setpos(dest)
                    pl.last_pos = hash_pos(dest)
                    pl.allow_teleport = false -- need to move first
                end
            end
        end
    end
end)