MT-test3d/init.lua

local statedir = minetest.get_worldpath() .. '/' .. minetest.get_current_modname() .. "/"
local oldprint=print
local function print(...)
 for k,v in ipairs({...}) do
  oldprint("[Test3D] "..tostring(v))
 end
end
print("Test3D loading.")
print("State directory: "..statedir)
if not digiline then
 print("Digilines not found.")
 return
 end
local function t21_digiline_receive(pos, node, channel, msg)
 print(pos,node,channel,msg)
end
print("Created T21 digiline function")

print("Loading/creating states")
_G.test3d = {}
_G.test3d.states={}
-- states:
--[[
{
mem = {4096 ints}
nodes = int
pc = int
}
]]--
function _G.test3d.save()
 local f = io.open(statedir.."/states.txt","wb")
 for k,v in pairs(test3d.states) do
  f:write(tostring(k).."\n")
  local g=io.open(statedir.."/"..tostring(k))
  for l,m in ipairs(test3d.states[k]) do
   g:write(tostring(m).."\n")
  end
  g:close()
 end
 f:close()
end
_G.test3d.laststate=0
_G.test3d.genstate = {}
local statetab={}
os.execute("mkdir "..statedir) -- just in case, 50/50 this kills minetest on some platforms
local f=io.open(statedir.."/states.txt","rb")
local statetab={}
if f ~= nil then
 f:close()
 for l in io.lines(statedir.."/states.txt") do
  print("State: "..l)
 end
end
print("Creating T21 formspec")
local function t21_set_meta(pos)
 minetest.get_meta(pos):set_string("formspec", "field[channel;Channel;${channel}]\nfield[statename;State;${statename}]")
end
minetest.register_on_shutdown(test3d.save)
minetest.register_node("test3d:t21", {
 description = "T21 Execution Node",
 tiles = {
  {
   image="t21.png",
   animation={
    type = "vertical_frames",
    aspect_w=16,
    aspect_h=16,
    length=18,
    length=1.8,
   },
  },
 },
 on_construct = t21_set_meta,
 on_punch = function(pos, _, _, _)
  local meta=minetest.get_meta(pos)
  local cbeep = meta:get_int("test3d_running")
--  print("cbeep ",cbeep)
  local nbeep=1
  if cbeep==1 then
   nbeep=0
  else
   nbeep=1
  end
  meta:set_int("test3d_running",nbeep)
 end,
 groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=3},
 digiline = {
  receptor = {},
  effector = {
   action = t21_digiline_receive
  }
 },
 on_receive_fields = function(pos,_,fields,sender)
  local meta = minetest.get_meta(pos)
  _G.test3d.states[meta:get_string("statename")].nodes=_G.test3d.states[meta:get_string("statename")].nodes-1 -- decrement node counter
  meta:set_string("statename",fields.statename)
  meta:set_string("channel",fields.channel) -- channel the thing listens for commands on
  _G.test3d.states[meta:get_string("statename")].nodes=_G.test3d.states[meta:get_string("statename")].nodes+1 -- increment new node counter
 end
})
print("T21 node registered")

minetest.register_abm({
 nodenames={"test3d:t21"},
 interval=1,
 chance=1,
 action = function(pos)
  local node = minetest.get_node_or_nil(pos)
  local meta = minetest.get_meta(pos)
  local beepState = meta:get_int("test3d_running")
  if beepState == nil then beepState=1 end
--  print(beepState)
  if beepState == 1 and meta:get_string("statename") ~= nil and meta:get_string("statename") ~= "" then
--[[   minetest.sound_play("default_break_glass",{
    pos=pos,
    max_hear_distance=100
   })
]]--
   print("Running T21 node with instance "..tostring(meta:get_string("statename")).." at position "..tostring(pos.x)..","..tostring(pos.y)..","..tostring(pos.z))
  end
 end,
})
print("T21 ABMs registered")

minetest.register_chatcommand("lua", { -- I'm a terrible person
 params = "<text>",
 description = "Execute some Lua code",
 privs = {talk = true},
 func = function( _ , text)
  e,lstr = pcall(loadstring(text))
  minetest.chat_send_all(tostring(lstr))
 end,
})