diff options
Diffstat (limited to 'led_marquee/init.lua')
| -rw-r--r-- | led_marquee/init.lua | 202 |
1 files changed, 202 insertions, 0 deletions
diff --git a/led_marquee/init.lua b/led_marquee/init.lua new file mode 100644 index 0000000..6444e6f --- /dev/null +++ b/led_marquee/init.lua @@ -0,0 +1,202 @@ +-- simple LED marquee mod +-- by Vanessa Dannenberg + +local S +if minetest.get_modpath("intllib") then + S = intllib.make_gettext_pair() +else + S = function(s) return s end +end + +-- the following functions based on the so-named ones in Jeija's digilines mod + +local reset_meta = function(pos) + minetest.get_meta(pos):set_string("formspec", "field[channel;Channel;${channel}]") +end + +local on_digiline_receive_std = function(pos, node, channel, msg) + local meta = minetest.get_meta(pos) + local setchan = meta:get_string("channel") + if setchan ~= channel then return end + local num = tonumber(msg) + if msg == "colon" or msg == "period" or msg == "off" or (num and (num >= 0 and num <= 9)) then + minetest.swap_node(pos, { name = "led_marquee:marquee_"..msg, param2 = node.param2}) + end +end + +-- the nodes: + +local fdir_to_right = { + { 0, -1 }, + { 0, -1 }, + { 0, -1 }, + { 0, 1 }, + { 1, 0 }, + { -1, 0 }, +} + +local cbox = { + type = "wallmounted", + wall_top = { -8/16, 7/16, -8/16, 8/16, 8/16, 8/16 }, + wall_bottom = { -8/16, -8/16, -8/16, 8/16, -7/16, 8/16 }, + wall_side = { -8/16, -8/16, -8/16, -7/16, 8/16, 8/16 } +} + +local padding = " " +local allon = string.char(128) +for i = 1, 64 do + padding = padding.." " + allon = allon..string.char(144) +end + +local display_string = function(pos, channel, string) + if string == "off_multi" then + string = "" + elseif string == "allon_multi" then + string = allon + end + local padded_string = string.sub(string..padding, 1, 64) + local fdir = minetest.get_node(pos).param2 % 8 + local pos2 = pos + local mastermeta = minetest.get_meta(pos) + local lastcolor = mastermeta:get_int("lastcolor") + if not lastcolor or lastcolor < 0 or lastcolor > 30 then + lastcolor = 0 + mastermeta:set_int("lastcolor", 0) + end + for i = 1, 64 do + local node = minetest.get_node(pos2) + local meta = minetest.get_meta(pos2) + local setchan = meta:get_string("channel") + if not string.match(node.name, "led_marquee:char_") or (setchan ~= nil and setchan ~= "" and setchan ~= channel) then break end + local asc = string.byte(padded_string, i, i) + if (node.param2 % 8) == fdir and asc > 30 and asc < 256 then + minetest.swap_node(pos2, { name = "led_marquee:char_"..asc, param2 = (node.param2 % 8) + (lastcolor*8)}) + pos2.x = pos2.x + fdir_to_right[fdir+1][1] + pos2.z = pos2.z + fdir_to_right[fdir+1][2] + elseif asc < 31 then + lastcolor = asc + mastermeta:set_int("lastcolor", asc) + end + end +end + +local on_digiline_receive_string = function(pos, node, channel, msg) + local meta = minetest.get_meta(pos) + local setchan = meta:get_string("channel") + local lastcolor = meta:get_int("lastcolor") + if not lastcolor or lastcolor < 0 or lastcolor > 30 then + lastcolor = 0 + meta:set_int("lastcolor", 0) + end + + if setchan ~= channel then return end + if msg and msg ~= "" and type(msg) == "string" then + if string.len(msg) > 1 then + if msg == "off" then + minetest.swap_node(pos, { name = "led_marquee:char_32", param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif msg == "colon" then + minetest.swap_node(pos, { name = "led_marquee:char_58", param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif msg == "period" then + minetest.swap_node(pos, { name = "led_marquee:char_46", param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif msg == "del" then + minetest.swap_node(pos, { name = "led_marquee:char_127", param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif msg == "allon" then + minetest.swap_node(pos, { name = "led_marquee:char_144", param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif msg == "cursor" then + minetest.swap_node(pos, { name = "led_marquee:char_31", param2 = (node.param2 % 8) + (lastcolor*8)}) + else + display_string(pos, channel, msg) + end + else + local asc = string.byte(msg) + if asc > 30 and asc < 256 then + minetest.swap_node(pos, { name = "led_marquee:char_"..asc, param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif asc < 31 then + lastcolor = asc + meta:set_int("lastcolor", asc) + elseif msg == "get" then -- get value as ASCII numerical value + digiline:receptor_send(pos, digiline.rules.default, channel, tonumber(string.match(minetest.get_node(pos).name,"led_marquee:char_(.+)"))) -- wonderfully horrible string manipulaiton + elseif msg == "getstr" then -- get actual char + digiline:receptor_send(pos, digiline.rules.default, channel, string.char(tonumber(string.match(minetest.get_node(pos).name,"led_marquee:char_(.+)")))) + end + end + elseif msg and type(msg) == "number" then + if msg == 0 then + minetest.swap_node(pos, { name = "led_marquee:char_32", param2 = (node.param2 % 8) + (lastcolor*8)}) + elseif msg > 30 then + minetest.swap_node(pos, { name = "led_marquee:char_"..tostring(msg), param2 = (node.param2 % 8) + (lastcolor*8)}) + end + end +end + +for i = 31, 255 do + local groups = { cracky = 2, not_in_creative_inventory = 1} + local light = LIGHT_MAX-2 + local description = S("Alphanumeric LED marquee panel ("..i..")") + local tiles = { + { name="led_marquee_base.png", color="white"}, + { name="led_marquee_leds_off.png", color="white"}, + "led_marquee_char_"..i..".png", + } + + if i == 31 then + tiles = { + { name="led_marquee_base.png", color="white"}, + { name="led_marquee_leds_off.png", color="white"}, + { + name = "led_marquee_char_31.png", + animation = {type = "vertical_frames", aspect_w = 32, aspect_h = 32, length = 0.75} + } + } + end + + if i == 32 then + groups = {cracky = 2} + light = nil + description = S("Alphanumeric LED marquee panel") + end + + minetest.register_node("led_marquee:char_"..i, { + description = description, + drawtype = "mesh", + mesh = "led_marquee.obj", + tiles = tiles, + palette="palette.png", + use_texture_alpha = true, + groups = groups, + paramtype = "light", + paramtype2 = "colorwallmounted", + light_source = light, + selection_box = cbox, + node_box = cbox, + on_construct = function(pos) + reset_meta(pos) + end, + on_receive_fields = function(pos, formname, fields, sender) + if (fields.channel) then + minetest.get_meta(pos):set_string("channel", fields.channel) + end + end, + digiline = { + receptor = {}, + effector = { + action = on_digiline_receive_string, + }, + }, + drop = "led_marquee:char_32" + }) +end + +-- crafts + + +minetest.register_craft({ + output = "led_marquee:char_32 6", + recipe = { + { "default:glass", "default:glass", "default:glass" }, + { "mesecons_lamp:lamp_off", "mesecons_lamp:lamp_off", "mesecons_lamp:lamp_off" }, + { "group:wood", "mesecons_microcontroller:microcontroller0000", "group:wood" } + }, +}) + |