summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--data/scripts/default.lua184
1 files changed, 184 insertions, 0 deletions
diff --git a/data/scripts/default.lua b/data/scripts/default.lua
new file mode 100644
index 000000000..22486ac5a
--- /dev/null
+++ b/data/scripts/default.lua
@@ -0,0 +1,184 @@
+--[[function basicSerialize(o)
+ if type(o) == "number" then
+ return tostring(o)
+ else -- assume it is a string
+ return string.format("%q", o)
+ end
+end
+
+function dump2(name, value, saved)
+ saved = saved or {} -- initial value
+ io.write(name, " = ")
+ if type(value) == "number" or type(value) == "string" then
+ io.write(basicSerialize(value), "\n")
+ elseif type(value) == "table" then
+ if saved[value] then -- value already saved?
+ io.write(saved[value], "\n") -- use its previous name
+ else
+ saved[value] = name -- save name for next time
+ io.write("{}\n") -- create a new table
+ for k,v in pairs(value) do -- save its fields
+ local fieldname = string.format("%s[%s]", name,
+ basicSerialize(k))
+ save(fieldname, v, saved)
+ end
+ end
+ else
+ error("cannot save a " .. type(value))
+ end
+end]]
+
+--[[function dump(o, name, dumped, s)
+ name = name or "_"
+ dumped = dumped or {}
+ s = s or ""
+ s = s .. name .. " = "
+ if type(o) == "number" then
+ s = s .. tostring(o)
+ elseif type(o) == "string" then
+ s = s .. string.format("%q", o)
+ elseif type(o) == "boolean" then
+ s = s .. tostring(o)
+ elseif type(o) == "function" then
+ s = s .. "<function>"
+ elseif type(o) == "nil" then
+ s = s .. "nil"
+ elseif type(o) == "table" then
+ if dumped[o] then
+ s = s .. dumped[o]
+ else
+ dumped[o] = name
+ local t = {}
+ for k,v in pairs(o) do
+ t[#t+1] = dump(v, k, dumped)
+ end
+ s = s .. "{" .. table.concat(t, ", ") .. "}"
+ end
+ else
+ error("cannot dump a " .. type(o))
+ return nil
+ end
+ return s
+end]]
+
+function basic_serialize(o)
+ if type(o) == "number" then
+ return tostring(o)
+ elseif type(o) == "string" then
+ return string.format("%q", o)
+ elseif type(o) == "boolean" then
+ return tostring(o)
+ elseif type(o) == "function" then
+ return "<function>"
+ elseif type(o) == "nil" then
+ return "nil"
+ else
+ error("cannot dump a " .. type(o))
+ return nil
+ end
+end
+
+function serialize(o, name, dumped)
+ name = name or "_"
+ dumped = dumped or {}
+ io.write(name, " = ")
+ if type(o) == "number" or type(o) == "string" or type(o) == "boolean"
+ or type(o) == "function" or type(o) == "nil" then
+ io.write(basic_serialize(o), "\n")
+ elseif type(o) == "table" then
+ if dumped[o] then
+ io.write(dumped[o], "\n")
+ else
+ dumped[o] = name
+ io.write("{}\n") -- new table
+ for k,v in pairs(o) do
+ local fieldname = string.format("%s[%s]", name, basic_serialize(k))
+ serialize(v, fieldname, dumped)
+ end
+ end
+ else
+ error("cannot dump a " .. type(o))
+ return nil
+ end
+end
+
+function dump(o, dumped)
+ dumped = dumped or {}
+ if type(o) == "number" then
+ return tostring(o)
+ elseif type(o) == "string" then
+ return string.format("%q", o)
+ elseif type(o) == "table" then
+ if dumped[o] then
+ return "<circular reference>"
+ end
+ dumped[o] = true
+ local t = {}
+ for k,v in pairs(o) do
+ t[#t+1] = "" .. k .. " = " .. dump(v, dumped)
+ end
+ return "{" .. table.concat(t, ", ") .. "}"
+ elseif type(o) == "boolean" then
+ return tostring(o)
+ elseif type(o) == "function" then
+ return "<function>"
+ else
+ error("cannot dump a " .. type(o))
+ return nil
+ end
+end
+
+print("omg lol")
+print("minetest dump: "..dump(minetest))
+
+minetest.register_object("a", "dummy string");
+
+local TNT = minetest.new_entity {
+ -- Maybe handle gravity and collision this way? dunno
+ physical = true,
+ weight = 5,
+ boundingbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
+ visual = "box",
+ textures = {"tnt_top.png","tnt_bottom.png","tnt_side.png","tnt_side.png","tnt_side.png","tnt_side.png"},
+ -- Initial value for our timer
+ timer = 0,
+ -- List names of state variables, for serializing object state
+ state_variables = {"timer"},
+}
+
+-- Called after object is created
+function TNT:on_create(env)
+end
+
+-- Called periodically
+function TNT:on_step(env, dtime)
+ self.timer = self.timer + dtime
+ if self.timer > 4.0 then
+ self.to_be_deleted = true -- Environment will delete this object at a suitable point of execution
+ env:explode(self.pos, 3) -- Uh... well, something like that
+ end
+end
+
+-- Called when object is punched
+function TNT:on_punch(env, hitter)
+ -- If tool is bomb defuser, revert back to being a block
+ local item = hitter.inventory.get_current()
+ if item.itemtype == "tool" and item.param == "bomb_defuser" then
+ env:add_node(self.pos, 3072)
+ self.to_be_deleted = true
+ end
+end
+
+-- Called when object is right-clicked
+function TNT:on_rightclick(self, env, hitter)
+end
+
+print("TNT dump: "..dump(TNT))
+
+print("Registering TNT");
+minetest.register_object("TNT", TNT)
+
+--print("minetest.registered_objects: "..dump(minetest.registered_objects))
+print("minetest.registered_objects:")
+serialize(minetest.registered_objects)
+