game-antum/mods/ui/bookmarks_gui/init.lua

--[[

Bookmarks GUI for Minetest

Copyright (c) 2012 cornernote, Brett O'Donnell <cornernote@gmail.com>
Source Code: https://github.com/cornernote/minetest-bookmarks_gui
License: BSD-3-Clause https://raw.github.com/cornernote/minetest-bookmarks_gui/master/LICENSE

]]--

-- expose api
bookmarks_gui = {}

-- filename
bookmarks_gui.filename = minetest.get_worldpath()..'/bookmarks_gui'

-- load_bookmarks
local bookmarkspos = {}
local load_bookmarks = function()
    local input = io.open(bookmarks_gui.filename..".bookmarks", "r")
    if input then
        while true do
            local x = input:read("*n")
            if x == nil then
                break
            end
            local y = input:read("*n")
            local z = input:read("*n")
            local name = input:read("*l")
			table.insert(bookmarkspos,{name=name:sub(2),x=x,y=y,z=z})
        end
        io.close(input)
    else
        bookmarkspos = {}
    end
end
load_bookmarks() -- run it now

-- set
bookmarks_gui.set = function(name, pos)
	name = string.lower(string.gsub(name, "%W", "_"))
	for i, v in ipairs(bookmarkspos) do
		if v.name==name then
			table.remove(bookmarkspos,i)
		end
	end
	table.insert(bookmarkspos,{name=name,x=pos.x,y=pos.y,z=pos.z})
	-- save the bookmarks data from the table to the file
	local output = io.open(bookmarks_gui.filename..".bookmarks", "w")
	for i, v in ipairs(bookmarkspos) do
		if v ~= nil then
			output:write(math.floor(v.x).." "..math.floor(v.y).." "..math.floor(v.z).." "..v.name.."\n")
		end
	end
	io.close(output)
end

-- del
bookmarks_gui.del = function(name, pos)
	name = string.lower(string.gsub(name, "%W", "_"))
	for i, v in ipairs(bookmarkspos) do
		if v.name==name then
			table.remove(bookmarkspos,i)
		end
	end
	-- save the bookmarks data from the table to the file
	local output = io.open(bookmarks_gui.filename..".bookmarks", "w")
	for i, v in ipairs(bookmarkspos) do
		if v ~= nil then
			output:write(math.floor(v.x).." "..math.floor(v.y).." "..math.floor(v.z).." "..v.name.."\n")
		end
	end
	io.close(output)
end

-- go 
bookmarks_gui.go = function(name, player)
	name = string.lower(string.gsub(name, "%W", "_"))
	local pos
	for i, v in ipairs(bookmarkspos) do
		if v.name==name then
			pos = v
			break
		end
	end
	if pos~=nil then
		-- move bookmark to the top of the list
		local bmp = {}
		for i,v in ipairs(bookmarkspos) do
			if v.name~=name then
				table.insert(bmp,v)
			end
		end
		table.insert(bmp,pos)
		bookmarkspos = bmp
		-- teleport player
		player:setpos(pos)
	end
end


local use_sfinv = false
if not core.global_exists("inventory_plus") and core.global_exists("sfinv_buttons") then
	use_sfinv = true
else
	local use_sfinv = (core.global_exists("sfinv_buttons") and core.settings:get("inventory") == "sfinv") or false
end

local ui_icon = nil
if core.get_modpath("default") then
	ui_icon = 'default_book.png'
end


-- formspec
bookmarks_gui.formspec = function(player)
	local formspec = "size[14,10]"
		.."button[0,9.5;2,0.5;main;Back]"
	local pages = bookmarks_gui.get_names()
	local x,y = 0,0
	local p
	for i = #pages,1,-1 do
		p = pages[i]
		if x == 14 then
			y = y+1
			x = 0
		end
		formspec = formspec .."button_exit["..(x)..","..(y)..";2,0.5;bookmarks_gui_jump;"..p.."]"
		x = x+2
	end
	if #pages == 0 then
		formspec = formspec
			.."label[4,3; --== Bookmarks GUI ==--]"
			.."label[4,4.5; Create as many bookmarks as you like!]"
			.."label[4,5.0; Simply enter a name for your bookmark]"
			.."label[4,5.5; then click Go.]"
	end
	formspec = formspec
		.."field[2.5,9.6;2,1;bookmarks_gui_go_name;;]"
		.."button_exit[4,9.5;1,0.5;bookmarks_gui_go;Go]"
	if minetest.check_player_privs(player:get_player_name(), {server=true}) then 
		formspec = formspec
			.."field[8.5,9.6;2,1;bookmarks_gui_del_name;;]"
			.."button_exit[10,9.5;1,0.5;bookmarks_gui_del;Del]"
			.."field[11.5,9.6;2,1;bookmarks_gui_set_name;;]"
			.."button_exit[13,9.5;1,0.5;bookmarks_gui_set;Set]"
	end
	return formspec
end

-- get_names
bookmarks_gui.get_names = function()
	local pages = {}
	for i,v in ipairs(bookmarkspos) do
		table.insert(pages,v.name)
	end
	return pages
end

if use_sfinv then
	sfinv_buttons.register_button("bookmarks_gui", {
		title = "Bookmarks",
		action = function(player)
			player:set_inventory_formspec(bookmarks_gui.formspec(player, "bookmarks_gui"))
		end,
		image = ui_icon,
	})
end

-- register_on_joinplayer
minetest.register_on_joinplayer(function(player)
	if not use_sfinv then
		-- add inventory_plus page
		inventory_plus.register_button(player,"bookmarks_gui","Bookmarks")
	end
end)

-- register_on_player_receive_fields
minetest.register_on_player_receive_fields(function(player, formname, fields)
	if fields.bookmarks_gui_set and fields.bookmarks_gui_set_name then
		if minetest.check_player_privs(player:get_player_name(), {server=true}) then 
			bookmarks_gui.set(fields.bookmarks_gui_set_name, player:getpos())
		end
	end
	if fields.bookmarks_gui_del and fields.bookmarks_gui_del_name then
		if minetest.check_player_privs(player:get_player_name(), {server=true}) then 
			bookmarks_gui.del(fields.bookmarks_gui_del_name, player:getpos())
		end
	end
	if fields.bookmarks_gui_go and fields.bookmarks_gui_go_name then
		bookmarks_gui.go(fields.bookmarks_gui_go_name, player)
	end
	if fields.bookmarks_gui_jump then
		bookmarks_gui.go(fields.bookmarks_gui_jump, player)
	end
	if fields.bookmarks_gui or fields.bookmarks_gui_set or fields.bookmarks_gui_del or fields.bookmarks_gui_go or fields.bookmarks_gui_jump then
		if use_sfinv then
			sfinv.set_page(player, "sfinv_buttons:buttons")
		else
			inventory_plus.set_inventory_formspec(player, bookmarks_gui.formspec(player))
		end
	end
end)

-- log that we started
minetest.log("action", "[MOD]"..minetest.get_current_modname().." -- loaded from "..minetest.get_modpath(minetest.get_current_modname()))