advmarkers/sscsm.lua

--
-- Minetest advmarkers SSCSM
--
-- Copyright © 2019 by luk3yx
-- License: https://luk3yx.mit-license.org/@2019
--

advmarkers = {}
local data = {}
local loaded = false

assert(not sscsm.restrictions or not sscsm.restrictions.chat_messages,
    'The advmarkers SSCSM needs to be able to send chat messages!')

local function string_to_pos(pos)
    if type(pos) == 'string' then
        pos = minetest.string_to_pos(pos)
    end
    if type(pos) == 'table' then
        return vector.round(pos)
    end
end

-- Display a waypoint
function advmarkers.display_waypoint(name)
    if data[name] then
        sscsm.com_send('advmarkers:display', name)
        return true
    end
    return false
end

-- Get a waypoint
function advmarkers.get_waypoint(name)
    return data[name]
end
advmarkers.get_marker = advmarkers.get_waypoint

-- Delete a waypoint
function advmarkers.delete_waypoint(name)
    if data[name] ~= nil then
        data[name] = nil
        sscsm.com_send('advmarkers:delete', name)
    end
end
advmarkers.delete_marker = advmarkers.delete_waypoint

-- Set a waypoint
function advmarkers.set_waypoint(pos, name)
    pos = string_to_pos(pos)
    if not pos then return end
    name = tostring(name)
    data[name] = pos
    sscsm.com_send('advmarkers:set', {
        name = name,
        pos = minetest.pos_to_string(pos),
    })
    return true
end
advmarkers.set_marker = advmarkers.set_waypoint

-- Rename a waypoint and re-interpret the position.
function advmarkers.rename_waypoint(oldname, newname)
    oldname, newname = tostring(oldname), tostring(newname)
    local pos = advmarkers.get_waypoint(oldname)
    if not pos or not advmarkers.set_waypoint(pos, newname) then return end
    if oldname ~= newname then
        advmarkers.delete_waypoint(oldname)
    end
    return true
end
advmarkers.rename_marker = advmarkers.rename_waypoint

-- Get waypoint names
function advmarkers.get_waypoint_names(sorted)
    local res = {}
    for name, _ in pairs(data) do
        table.insert(res, name)
    end
    if sorted or sorted == nil then table.sort(res) end
    return res
end

-- Display the formspec
local formspec_list = {}
local selected_name = false
function advmarkers.display_formspec()
    if not loaded then
        minetest.run_server_chatcommand('wp')
        return
    end

    local formspec = 'size[5.25,8]' ..
                     'label[0,0;Waypoint list ' ..
                        minetest.colorize('#888888', '(SSCSM)') .. ']' ..
                     'button_exit[0,7.5;1.3125,0.5;display;Display]' ..
                     'button[1.3125,7.5;1.3125,0.5;teleport;Teleport]' ..
                     'button[2.625,7.5;1.3125,0.5;rename;Rename]' ..
                     'button[3.9375,7.5;1.3125,0.5;delete;Delete]' ..
                     'textlist[0,0.75;5,6;marker;'

    -- Iterate over all the markers
    local selected = 1
    formspec_list = advmarkers.get_waypoint_names()
    for id, name in ipairs(formspec_list) do
        if id > 1 then formspec = formspec .. ',' end
        if not selected_name then selected_name = name end
        if name == selected_name then selected = id end
        formspec = formspec .. '##' .. minetest.formspec_escape(name)
    end

    -- Close the text list and display the selected marker position
    formspec = formspec .. ';' .. tostring(selected) .. ']'
    if selected_name then
        local pos = advmarkers.get_marker(selected_name)
        if pos then
            pos = minetest.formspec_escape(tostring(pos.x) .. ', ' ..
            tostring(pos.y) .. ', ' .. tostring(pos.z))
            pos = 'Waypoint position: ' .. pos
            formspec = formspec .. 'label[0,6.75;' .. pos .. ']'
        end
    else
        -- Draw over the buttons
        formspec = formspec ..
            'button_exit[0,7.5;5.25,0.5;quit;Close dialog]' ..
            'label[0,6.75;No waypoints. Add one with "/add_wp".]'
    end

    -- Display the formspec
    return minetest.show_formspec('advmarkers-sscsm', formspec)
end

-- Register chatcommands
local function mrkr_cmd(param)
    if param == '' then return advmarkers.display_formspec() end
    minetest.run_server_chatcommand('wp', param)
end
sscsm.register_chatcommand('mrkr', mrkr_cmd)
sscsm.register_chatcommand('wp', mrkr_cmd)
sscsm.register_chatcommand('wps', mrkr_cmd)
sscsm.register_chatcommand('waypoint', mrkr_cmd)
sscsm.register_chatcommand('waypoints', mrkr_cmd)

-- Set the HUD
minetest.register_on_formspec_input(function(formname, fields)
    if formname == 'advmarkers-ignore' then
        return true
    elseif formname ~= 'advmarkers-sscsm' then
        return
    end
    local name = false
    if fields.marker then
        local event = minetest.explode_textlist_event(fields.marker)
        if event.index then
            name = formspec_list[event.index]
        end
    else
        name = selected_name
    end

    if name then
        if fields.display then
            if not advmarkers.display_waypoint(name) then
                minetest.display_chat_message('Error displaying waypoint!')
            end
        elseif fields.rename then
            minetest.show_formspec('advmarkers-sscsm', 'size[6,3]' ..
                'label[0.35,0.2;Rename waypoint]' ..
                'field[0.3,1.3;6,1;new_name;New name;' ..
                minetest.formspec_escape(name) .. ']' ..
                'button[0,2;3,1;cancel;Cancel]' ..
                'button[3,2;3,1;rename_confirm;Rename]')
        elseif fields.rename_confirm then
            if fields.new_name and #fields.new_name > 0 then
                if advmarkers.rename_waypoint(name, fields.new_name) then
                    selected_name = fields.new_name
                else
                    minetest.display_chat_message('Error renaming waypoint!')
                end
                advmarkers.display_formspec()
            else
                minetest.display_chat_message(
                    'Please enter a new name for the waypoint.'
                )
            end
        elseif fields.teleport then
            minetest.show_formspec('advmarkers-sscsm', 'size[6,2.2]' ..
                'label[0.35,0.25;' .. minetest.formspec_escape(
                    'Teleport to a waypoint\n - ' .. name
                ) .. ']' ..
                'button[0,1.25;3,1;cancel;Cancel]' ..
                'button_exit[3,1.25;3,1;teleport_confirm;Teleport]')
        elseif fields.teleport_confirm then
            -- Teleport with /teleport
            local pos = advmarkers.get_waypoint(name)
            if pos then
                minetest.run_server_chatcommand('teleport',
                    pos.x .. ', ' .. pos.y .. ', ' .. pos.z)
            else
                minetest.display_chat_message('Error teleporting to waypoint!')
            end
        elseif fields.delete then
            minetest.show_formspec('advmarkers-sscsm', 'size[6,2]' ..
                'label[0.35,0.25;Are you sure you want to delete this ' ..
                    'waypoint?]' ..
                'button[0,1;3,1;cancel;Cancel]' ..
                'button[3,1;3,1;delete_confirm;Delete]')
        elseif fields.delete_confirm then
            advmarkers.delete_waypoint(name)
            selected_name = false
            advmarkers.display_formspec()
        elseif fields.cancel then
            advmarkers.display_formspec()
        elseif name ~= selected_name then
            selected_name = name
            advmarkers.display_formspec()
        end
    elseif fields.display or fields.delete then
        minetest.display_chat_message('Please select a waypoint.')
    end
    return true
end)

-- Update the waypoint list
sscsm.register_on_com_receive('advmarkers:update', function(msg)
    data = msg or {}
    loaded = true
end)