1 files changed, 90 insertions, 0 deletions
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..740d62e
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,90 @@
+local characters = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","1","2","3","4","5","6","7","8","9","0","!","#","-",".",":",";","?"}
+
+
+for _, name in ipairs(characters) do --do this for all characters in the list
+   local byte = string.byte(name)
+     if byte < 10 then file = "00"..byte end
+     if byte > 10 and byte < 100 then file = "0"..byte end         
+     if byte > 100 then file = tostring(byte) end 
+   local desc = "The \'"..name.."\' Character"
+
+   minetest.register_node("ehlphabet:"..byte, {
+      description = "Ehlphabet Block \'"..name.."\'",
+      tiles = {"ehlphabet_"..file..".png"},
+      groups = {cracky=3}
+   })
+  -- uncomment this line to revert written blocks to blank blocks 
+  minetest.register_craft ({ type="shapeless", output = "ehlphabet:block", recipe = {"ehlphabet:"..byte} })
+end
+
+minetest.register_node("ehlphabet:machine", {
+   description = "Letter Machine",
+   tiles = {"ehlphabet_machine.png"},
+   paramtype = "light",
+   groups = {cracky=2},
+   
+   after_place_node = function(pos, placer)
+      local meta = minetest.env:get_meta(pos)
+   end,
+
+   on_construct = function(pos)
+      local meta = minetest.env:get_meta(pos)
+      meta:set_string("formspec", "invsize[8,6;]"..
+         "field[3.8,.5;1,1;lettername;Letter;]"..
+         "list[current_name;input;2.5,0.2;1,1;]"..
+         "list[current_name;output;4.5,0.2;1,1;]"..
+         "list[current_player;main;0,2;8,4;]"..
+         "button[2.54,-0.25;3,4;name;Blank -> Letter]")
+         local inv = meta:get_inventory()
+      inv:set_size("input", 1)
+      inv:set_size("output", 1)
+   end,
+
+   on_receive_fields = function(pos, formname, fields, sender)
+      local meta = minetest.env:get_meta(pos)
+      local inv = meta:get_inventory()
+      local inputstack = inv:get_stack("input", 1)
+      if fields.lettername ~= nil and inputstack:get_name()=="ehlphabet:block" then
+         for _,v in pairs(characters) do
+            if v == fields.lettername then
+               local give = {}
+               give[1] = inv:add_item("output","ehlphabet:"..string.byte(fields.lettername))
+               inputstack:take_item()
+               inv:set_stack("input",1,inputstack)
+               break
+            end
+         end
+         
+      end   
+   end
+})
+
+minetest.register_node("ehlphabet:block", {
+  description = "Blank Ehlphabet Block",
+  tiles = {"ehlphabet_000.png"},
+  groups = {cracky=3},
+})
+
+--RECIPE: blank blocks
+minetest.register_craft({ output = "ehlphabet:block 8",
+  recipe = {
+    {'default:paper', 'default:paper', 'default:paper'},
+    {'default:paper', 'default:paper', 'default:paper'},
+    {'default:paper', 'default:paper', 'default:paper'},
+  }
+})
+
+--RECIPE: build the machine!
+minetest.register_craft({ output = "ehlphabet:machine",
+  recipe = {
+    {'default:stick', '', 'default:stick'},
+    {'default:coal_lump', 'ehlphabet:block', 'default:coal_lump'},
+    {'default:paper', '', 'default:paper'},
+  }
+})
+
+--RECIPE: craft unused blocks back into paper
+minetest.register_craft ({ output = "default:paper",
+  recipe = {"ehlphabet:block"},
+  type = "shapeless"
+})