minetest/data/scripts/default.lua

186 lines
4.6 KiB
Lua
Raw Normal View History

2011-11-11 18:36:52 +01:00
--[[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_dump2(o)
2011-11-11 18:36:52 +01:00
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) == "userdata" then
return "<userdata>"
2011-11-11 18:36:52 +01:00
elseif type(o) == "nil" then
return "nil"
else
error("cannot dump a " .. type(o))
return nil
end
end
function dump2(o, name, dumped)
2011-11-11 18:36:52 +01:00
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"
or type(o) == "userdata" then
io.write(basic_dump2(o), "\n")
2011-11-11 18:36:52 +01:00
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_dump2(k))
dump2(v, fieldname, dumped)
2011-11-11 18:36:52 +01:00
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>"
2011-11-12 09:39:44 +01:00
elseif type(o) == "userdata" then
return "<userdata>"
elseif type(o) == "nil" then
return "nil"
2011-11-11 18:36:52 +01:00
else
error("cannot dump a " .. type(o))
return nil
end
end
print("omg lol")
print("minetest dump: "..dump(minetest))
2011-11-11 19:50:09 +01:00
--local TNT = minetest.new_entity {
local TNT = {
2011-11-11 18:36:52 +01:00
-- Maybe handle gravity and collision this way? dunno
physical = true,
weight = 5,
2011-11-12 09:39:44 +01:00
collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
2011-11-12 02:21:40 +01:00
visual = "cube",
2011-11-11 18:36:52 +01:00
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 periodically
function TNT:on_step(dtime)
2011-11-12 01:25:30 +01:00
--print("TNT:on_step()")
2011-11-11 18:36:52 +01:00
end
-- Called when object is punched
function TNT:on_punch(hitter)
print("TNT:on_punch()")
2011-11-11 18:36:52 +01:00
end
-- Called when object is right-clicked
function TNT:on_rightclick(clicker)
print("TNT:on_rightclick()")
2011-11-12 09:39:44 +01:00
print("self: "..dump(self))
print("getmetatable(self): "..dump(getmetatable(self)))
print("getmetatable(getmetatable(self)): "..dump(getmetatable(getmetatable(self))))
2011-11-12 01:25:30 +01:00
pos = self.object:getpos()
print("TNT:on_rightclick(): object position: "..dump(pos))
pos = {x=pos.x+0.5+1, y=pos.y+0.5, z=pos.z+0.5}
2011-11-12 09:39:44 +01:00
--minetest.env:add_node(pos, 0)
2011-11-11 18:36:52 +01:00
end
print("TNT dump: "..dump(TNT))
print("Registering TNT");
2011-11-11 19:50:09 +01:00
minetest.register_entity("TNT", TNT)
2011-11-11 18:36:52 +01:00
2011-11-11 19:50:09 +01:00
--print("minetest.registered_entities: "..dump(minetest.registered_entities))
print("minetest.registered_entities:")
dump2(minetest.registered_entities)
2011-11-11 18:36:52 +01:00