diff options
Diffstat (limited to 'data/scripts')
| -rw-r--r-- | data/scripts/default.lua | 184 |
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) + |