techage_modpack/techage/icta_controller/display.lua

--[[

	TechAge
	=======

	Copyright (C) 2019-2022 Joachim Stolberg

	AGPL v3
	See LICENSE.txt for more information

	ICTA Controller - Display

]]--

local S = techage.S

techage.display = {}

local NUM_ROWS = 5
local RADIUS = 6
local Param2ToFacedir = {[0] = 0, 0, 3, 1, 2, 0}

local function lcdlib_bugfix(text_tbl)
	if text_tbl and next(text_tbl) then
		local t = {}
		for _,txt in ipairs(text_tbl) do
			if txt == "" then
				t[#t+1] = " "
			else
				t[#t+1] = txt
			end
		end
		return table.concat(t, "\n")
	end
	return ""
end

function techage.display.display_update(pos, objref)
	pos = vector.round(pos)
	local nvm = techage.get_nvm(pos)
	local text = lcdlib_bugfix(nvm.text)
	local texture = lcdlib.make_multiline_texture(
		"default", text,
		70, 70, NUM_ROWS, "top", "#000", nil, true)
	objref:set_properties({ textures = {texture},
		visual_size = {x=0.94, y=0.94} })
end

function techage.display.display_updateXL(pos, objref)
	pos = vector.round(pos)
	local nvm = techage.get_nvm(pos)
	local text = lcdlib_bugfix(nvm.text)
	local texture = lcdlib.make_multiline_texture(
		"default", text,
		126, 70, NUM_ROWS, "top", "#000", nil, true)
	objref:set_properties({ textures = {texture},
		visual_size = {x=0.94*1.9, y=0.94} })
end

function techage.display.on_timer(pos)
	local mem = techage.get_mem(pos)
	mem.ticks = mem.ticks or 0

	if mem.ticks > 0 then
		local node = minetest.get_node(pos)
		-- check if display is loaded and a player in front of the display
		if node.name ~= "ignore" then
			local dir = minetest.facedir_to_dir(Param2ToFacedir[node.param2 % 6])
			dir.y = 0
			local pos2 = vector.add(pos, vector.multiply(dir, RADIUS))
			for _, obj in pairs(minetest.get_objects_inside_radius(pos2, RADIUS)) do
				if obj:is_player() then
					lcdlib.update_entities(pos)
					mem.ticks = mem.ticks - 1
					break
				end
			end
		end
	end
	return true
end

techage.display.lcd_box = {
	type = "wallmounted",
	wall_top = {-8/16, 15/32, -8/16, 8/16, 8/16, 8/16}
}

minetest.register_node("techage:ta4_display", {
	description = S("TA4 Display"),
	inventory_image = 'techage_display_inventory.png',
	tiles = {"techage_display.png"},
	drawtype = "nodebox",
	paramtype = "light",
	use_texture_alpha = techage.CLIP,
	sunlight_propagates = true,
	paramtype2 = "wallmounted",
	node_box = techage.display.lcd_box,
	selection_box = techage.display.lcd_box,
	light_source = 6,

	display_entities = {
		["techage:display_entity"] = { depth = 0.42,
			on_display_update = techage.display.display_update},
	},

	after_place_node = function(pos, placer)
		local number = techage.add_node(pos, "techage:ta4_display")
		local meta = minetest.get_meta(pos)
		meta:set_string("number", number)
		meta:set_string("infotext", S("Display no: ")..number)
		local nvm = techage.get_nvm(pos)
		nvm.text = {"My", "Techage","TA4", "Display", "No: "..number}
		lcdlib.update_entities(pos)
		minetest.get_node_timer(pos):start(1)
	end,

	after_dig_node = function(pos, oldnode, oldmetadata)
		techage.remove_node(pos, oldnode, oldmetadata)
	end,

	on_timer = techage.display.on_timer,
	on_place = lcdlib.on_place,
	on_construct = lcdlib.on_construct,
	on_destruct = lcdlib.on_destruct,
	on_rotate = lcdlib.on_rotate,
	groups = {cracky=2, crumbly=2},
	is_ground_content = false,
	sounds = default.node_sound_glass_defaults(),
})

techage.display.lcd_boxXL = {
	type = "fixed",
	fixed = {-0.9, -8/16, -8/16, 0.9, -15/32, 8/16}
}

minetest.register_node("techage:ta4_displayXL", {
	description = S("TA4 Display XL"),
	inventory_image = 'techage_display_inventoryXL.png',
	tiles = {"techage_displayXL.png"},
	drawtype = "nodebox",
	paramtype = "light",
	use_texture_alpha = techage.CLIP,
	sunlight_propagates = true,
	paramtype2 = "wallmounted",
	node_box = techage.display.lcd_boxXL,
	selection_box = techage.display.lcd_boxXL,
	light_source = 6,

	display_entities = {
		["techage:display_entityXL"] = { depth = 0.42,
			on_display_update = techage.display.display_updateXL},
	},

	after_place_node = function(pos, placer)
		local number = techage.add_node(pos, "techage:ta4_displayXL")
		local meta = minetest.get_meta(pos)
		meta:set_string("number", number)
		meta:set_string("infotext", S("Display no: ")..number)
		local nvm = techage.get_nvm(pos)
		nvm.text = {"My", "Techage","TA4", "Display", "No: "..number}
		lcdlib.update_entities(pos)
		minetest.get_node_timer(pos):start(2)
	end,

	after_dig_node = function(pos, oldnode, oldmetadata)
		techage.remove_node(pos, oldnode, oldmetadata)
	end,

	on_timer = techage.display.on_timer,
	on_place = lcdlib.on_place,
	on_construct = lcdlib.on_construct,
	on_destruct = lcdlib.on_destruct,
	on_rotate = lcdlib.on_rotate,
	groups = {cracky=2, crumbly=2},
	is_ground_content = false,
	sounds = default.node_sound_glass_defaults(),
})


minetest.register_craft({
	output = "techage:ta4_display",
	recipe = {
		{"", "", ""},
		{"techage:basalt_glass_thin", "dye:green", "techage:ta4_wlanchip"},
		{"", "default:copper_ingot", ""},
	},
})

minetest.register_craft({
	output = "techage:ta4_displayXL",
	recipe = {
		{"techage:ta4_display", "techage:ta4_display"},
		{"", ""},
	},
})

function techage.display.add_line(pos, payload, cycle_time)
	local nvm = techage.get_nvm(pos)
	local mem = techage.get_mem(pos)
	nvm.text = nvm.text or {}
	mem.ticks = mem.ticks or 0
	local str = tostring(payload) or "oops"

	if mem.ticks == 0 then
		mem.ticks = cycle_time
	end

	while #nvm.text >= NUM_ROWS do
		table.remove(nvm.text, 1)
	end
	table.insert(nvm.text, str)
end

function techage.display.write_row(pos, payload, cycle_time, beduino)
	local nvm = techage.get_nvm(pos)
	local mem = techage.get_mem(pos)
	local str, row

	nvm.text = nvm.text or {}
	mem.ticks = mem.ticks or 0

	if beduino or type(payload) == "string" then
		row = tonumber(payload:sub(1,1) or "1") or 1
		str = payload:sub(2) or "oops"
	else
		str = tostring(payload.get("str")) or "oops"
		row = tonumber(payload.get("row")) or 1
	end

	if mem.ticks == 0 then
		mem.ticks = cycle_time
	end

	if row < 1 then row = 1 end
	if row > NUM_ROWS then row = NUM_ROWS end

	while #nvm.text < row do
		table.insert(nvm.text, "")
	end
	nvm.text[row] = str
end

function techage.display.clear_screen(pos, cycle_time)
	local nvm = techage.get_nvm(pos)
	local mem = techage.get_mem(pos)
	mem.ticks = mem.ticks or 0

	if mem.ticks == 0 then
		mem.ticks = cycle_time
	end

	nvm.text = {}
end

techage.register_node({"techage:ta4_display"}, {
	on_recv_message = function(pos, src, topic, payload)
		if topic == "add" then  -- add one line and scroll if necessary
			techage.display.add_line(pos, payload, 1)
		elseif topic == "set" then  -- overwrite the given row
			techage.display.write_row(pos, payload, 1)
		elseif topic == "clear" then  -- clear the screen
			techage.display.clear_screen(pos, 1)
		end
	end,
	on_beduino_receive_cmnd = function(pos, src, topic, payload)
		if topic == 67 then  -- add one line and scroll if necessary
			techage.display.add_line(pos, payload, 1)
		elseif topic == 68 then  -- overwrite the given row
			techage.display.write_row(pos, payload, 1, true)
		elseif topic == 17 then  -- clear the screen
			techage.display.clear_screen(pos, 1)
		else
			return 2
		end
		return 0
	end,
})

techage.register_node({"techage:ta4_displayXL"}, {
	on_recv_message = function(pos, src, topic, payload)
		if topic == "add" then  -- add one line and scroll if necessary
			techage.display.add_line(pos, payload, 2)
		elseif topic == "set" then  -- overwrite the given row
			techage.display.write_row(pos, payload, 2)
		elseif topic == "clear" then  -- clear the screen
			techage.display.clear_screen(pos, 2)
		end
	end,
	on_beduino_receive_cmnd = function(pos, src, topic, payload)
		if topic == 67 then  -- add one line and scroll if necessary
			techage.display.add_line(pos, payload, 2)
		elseif topic == 68 then  -- overwrite the given row
			techage.display.write_row(pos, payload, 2, true)
		elseif topic == 17 then  -- clear the screen
			techage.display.clear_screen(pos, 2)
		else
			return 2
		end
		return 0
	end,
})

lcdlib.register_display_entity("techage:display_entity")
lcdlib.register_display_entity("techage:display_entityXL")