Initital Commit

diff --git a/README b/README
new file mode 100644 (file)
index 0000000..5a635ee
--- /dev/null
+++ b/README
@@ -0,0 +1 @@
+A dragonfire CSM to set warps in the world and use the teleport exploit.

diff --git a/init.lua b/init.lua
new file mode 100644 (file)
index 0000000..9eca734
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,94 @@
+warp = {}
+
+local storage = minetest.get_mod_storage()
+
+function warp.set(warp, pos)
+       if warp == "" or not pos then return false, "Missing parameter." end
+       local posstr = minetest.pos_to_string(pos)
+       storage:set_string(warp, posstr)
+       return true, "Warp " .. warp .. " set to " .. posstr .. "."
+end
+
+function warp.set_here(param)
+       local success, message = warp.set(param, vector.round(minetest.localplayer:get_pos()))
+       return success, message
+end
+
+function warp.get(param)
+       if param == "" then return false, "Missing parameter." end
+       local pos = storage:get_string(param)
+       if pos == "" then return false, "Warp " .. param .. " not set." end
+       return true, "Warp " .. param .. " is set to " .. pos .. ".", minetest.string_to_pos(pos)
+end
+
+function warp.delete(param)
+       if param == "" then return false, "Missing parameter." end
+       storage:set_string(param, "")
+       return true, "Deleted warp " .. param .. "."
+end
+
+minetest.register_chatcommand("setwarp", {
+       params = "<warp>",
+       description = "Set a warp to your current position.",
+       func = warp.set_here,
+})
+
+minetest.register_chatcommand("readwarp", {
+       params = "<warp>",
+       description = "Print the coordinates of a warp.",
+       func = warp.get,
+})
+
+minetest.register_chatcommand("deletewarp", {
+       params = "<warp>",
+       description = "Delete a warp.",
+       func = warp.delete,
+})
+
+minetest.register_chatcommand("listwarps", {
+       description = "List all warps.",
+       func = function()
+               local warps = storage:to_table().fields
+               local warplist = {}
+               for warp in pairs(warps) do
+                       table.insert(warplist, warp)
+               end
+               if #warplist > 0 then
+                       return true, table.concat(warplist, ", ")
+               else
+                       return false, "No warps set."
+               end
+       end,
+})
+
+local function do_warp(param)
+       if param == "" then return false, "Missing parameter." end
+       local success, pos = minetest.parse_pos(param)
+       if not success then
+               local msg
+               success, msg, pos = warp.get(param)
+               if not success then
+                       return false, msg
+               end
+       end
+       minetest.localplayer:set_pos(pos)
+       return true, "Warped to " .. minetest.pos_to_string(pos)
+end
+
+minetest.register_chatcommand("warp", {
+       params = "<pos>|<warp>",
+       description = "Warp to a set warp or a position.",
+       func = do_warp
+})
+
+minetest.register_chatcommand("warpandexit", {
+       params = "<pos>|<warp>",
+       description = "Warp to a set warp or a position and exit.",
+       func = function(param)
+               local s, m = do_warp(param)
+               if s then
+                       minetest.disconnect()
+               end
+               return s,m 
+       end
+})

diff --git a/mod.conf b/mod.conf
new file mode 100644 (file)
index 0000000..d014d75
--- /dev/null
+++ b/mod.conf
@@ -0,0 +1,3 @@
+name = warp
+author = Fleckenstein
+description = Set custom warps and use the teleport exploit