From fb2d44eda41a89417d47e4675c5f24e428e9c6f1 Mon Sep 17 00:00:00 2001
From: Emoji <55009343+Emojigit@users.noreply.github.com>
Date: Thu, 11 Aug 2022 07:56:36 +0800
Subject: [PATCH] teleportmenu init

---
 init.lua | 143 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 mod.conf |   4 ++
 2 files changed, 147 insertions(+)
 create mode 100644 init.lua
 create mode 100644 mod.conf

diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..b111e9b
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,143 @@
+local S = minetest.get_translator("teleportmenu")
+local F = minetest.formspec_escape
+local gui = flow.widgets
+
+local function get_player_name_list()
+	local RLST = {}
+	for _,y in pairs(minetest.get_connected_players()) do
+		table.insert(RLST,y:get_player_name())
+	end
+	return RLST
+end
+
+local function confirm_func(player,ctx)
+	local name = player:get_player_name()
+	local privs = minetest.check_player_privs(name,{teleport=true,bring=true})
+	if not privs then
+		ctx.status = S("Missing privileges!")
+	else
+		local from_name = ctx.pnames[ctx.form.from]
+		local from_player = minetest.get_player_by_name(from_name)
+		if not from_player then
+			ctx.status = S("Player @1 does not exist!",ctx.pnames[ctx.form.from])
+			return true
+		end
+		local pos
+		if ctx.provide_pos then
+			pos = minetest.string_to_pos(ctx.form.pos)
+		else
+			local to_player = minetest.get_player_by_name(ctx.pnames_targetlist[ctx.form.to])
+			if not to_player then
+				ctx.status = S("Player @1 does not exist!",ctx.pnames_targetlist[ctx.form.to])
+				return true
+			end
+			pos = to_player:get_pos()
+		end
+		from_player:set_pos(pos)
+		local to_str = minetest.pos_to_string(vector.round(pos))
+		minetest.log("action",("%s teleported %s to %s"):format(name,from_name,to_str))
+		ctx.status = S("Teleported @1 to @2.",from_name,to_str)
+		minetest.chat_send_player(name,ctx.status)
+	end
+	return true
+end
+
+local function to_func(player,ctx)
+	print(ctx.form.to)
+	if ctx.form.to == ctx.targetlist_length then
+		ctx.provide_pos = true
+	else
+		ctx.provide_pos = false
+	end
+	return true
+end
+
+local menu = flow.make_gui(function(player,ctx)
+	ctx.pnames = ctx.pnames or get_player_name_list()
+	if not ctx.pnames_targetlist then
+		ctx.pnames_targetlist = table.copy(ctx.pnames)
+		table.insert(ctx.pnames_targetlist,S("Provide a Position"))
+		ctx.targetlist_length = #ctx.pnames_targetlist
+	end
+	if not ctx.status then
+		ctx.status = S("Idle")
+	end
+
+	if ctx.provide_pos then
+		return gui.VBox {
+			gui.HBox {
+				gui.Textlist {
+					h = 7, -- Optional
+					w = 4,
+					name = "from", -- Optional
+					listelems = ctx.pnames,
+				},
+				gui.VBox {
+					gui.Textlist {
+						h = 6,
+						w = 4,
+						name = "to",
+						on_event = to_func,
+						listelems = ctx.pnames_targetlist,
+					},
+					gui.Field {
+						w = 4, -- Optional
+						h = 1, -- Optional
+						name = "pos", -- Optional
+						label = "",
+						default = "(0,0,0)",
+					},
+				}
+			},
+			gui.HBox {
+				gui.Label {
+					label = ctx.status,
+				},
+				gui.Spacer{},
+				gui.ButtonExit{label = S("Exit")},
+				gui.Button{label = S("Teleport"),on_event = confirm_func},
+			}
+		}
+	else
+		return gui.VBox {
+			gui.HBox {
+				gui.Textlist {
+					h = 7, -- Optional
+					w = 4,
+					name = "from", -- Optional
+					listelems = ctx.pnames,
+				},
+				gui.Textlist {
+					h = 7,
+					w = 4,
+					name = "to",
+					on_event = to_func,
+					listelems = ctx.pnames_targetlist,
+				}
+			},
+			gui.HBox {
+				gui.Label {
+					label = ctx.status,
+				},
+				gui.Spacer{},
+				gui.ButtonExit{label = S("Exit")},
+				gui.Button{label = S("Teleport"),on_event = confirm_func},
+			}
+		}
+	end
+end)
+
+local orig_tp_func = minetest.registered_chatcommands["teleport"].func
+
+minetest.registered_chatcommands["teleport"].func = function(name,param)
+	if param == "" then
+		menu:show(name)
+		return true, S("Teleport menu shown.")
+	else
+		return orig_tp_func(name,param)
+	end
+end
+
+minetest.registered_chatcommands["teleport"].params = "[" .. minetest.registered_chatcommands["teleport"].params .. "]"
+
+minetest.registered_chatcommands["teleport"].description = S("Teleport to position or player, or open the teleport menu if no params provided")
diff --git a/mod.conf b/mod.conf
new file mode 100644
index 0000000..c5b9cd4
--- /dev/null
+++ b/mod.conf
@@ -0,0 +1,4 @@
+name = teleportmenu
+title = Teleport Menu
+description = GUI tool to teleport players
+depends = flow