Luanti/modolith
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mods that hopefully work for a TechAge-based pack

Browse Source
This commit is contained in:
tangent
2026-09-09 06:27:51 -06:00
parent 4e6b08d194
commit c27db2a537
6234 changed files with 375578 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mods/techage_modpack/ta4_addons/touchscreen/main.lua
+346
View File
@@ -0,0 +1,346 @@
--[[
TA4 Addons
==========
Copyright (C) 2020-2021 Joachim Stolberg
Copyright (C) 2020-2021 Thomas S.
AGPL v3
See LICENSE.txt for more information
Touchscreen
]]--
local S = ta4_addons.S
local M = minetest.get_meta
local N = techage.get_nvm
local function get_value(element, key, default)
return minetest.formspec_escape(element.get(key) or default)
end
local function parse_payload(payload)
local element_type = payload.get("type")
if type(element_type) ~= "string" then
return
end
element_type = string.lower(element_type)
if element_type == "button" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 2)
local h = get_value(payload, "h", 1)
local name = get_value(payload, "name", "button")
local label = get_value(payload, "label", "Button")
return "button["..x..","..y..";"..w..","..h..";"..name..";"..label.."]"
elseif element_type == "label" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local label = get_value(payload, "label", "Label")
return "label["..x..","..y..";"..label.."]"
elseif element_type == "image" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 1)
local h = get_value(payload, "h", 1)
local texture_name = get_value(payload, "texture_name", "default_apple.png")
return "image["..x..","..y..";"..w..","..h..";"..texture_name.."]"
elseif element_type == "animated_image" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 1)
local h = get_value(payload, "h", 1)
local name = get_value(payload, "name", "animated_image")
local texture_name = get_value(payload, "texture_name", "default_apple.png")
local frame_count = get_value(payload, "frame_count", 1)
local frame_duration = get_value(payload, "frame_duration", 1000)
local frame_start = get_value(payload, "frame_start", 1)
return "animated_image["..x..","..y..";"..w..","..h..";"..name..";"..texture_name..";"..frame_count..";"..frame_duration..";"..frame_start.."]"
elseif element_type == "item_image" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 1)
local h = get_value(payload, "h", 1)
local item_name = get_value(payload, "item_name", "default:apple")
return "item_image["..x..","..y..";"..w..","..h..";"..item_name.."]"
elseif element_type == "pwdfield" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 2)
local h = get_value(payload, "h", 1)
local name = get_value(payload, "name", "pwdfield")
local label = get_value(payload, "label", "Password")
return "pwdfield["..x..","..y..";"..w..","..h..";"..name..";"..label.."]"
elseif element_type == "field" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 2)
local h = get_value(payload, "h", 1)
local name = get_value(payload, "name", "field")
local label = get_value(payload, "label", "Input")
local default = get_value(payload, "default", ""):gsub("%${", "$ {") -- To prevent reading metadata
return "field["..x..","..y..";"..w..","..h..";"..name..";"..label..";"..default.."]"
elseif element_type == "field_close_on_enter" then
local name = get_value(payload, "name", "field")
local close_on_enter = get_value(payload, "close_on_enter", "false")
return "field_close_on_enter["..name..";"..close_on_enter.."]"
elseif element_type == "textarea" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 2)
local h = get_value(payload, "h", 1)
local name = get_value(payload, "name", "")
local label = get_value(payload, "label", "Textarea")
local default = get_value(payload, "default", ""):gsub("%${", "$ {") -- To prevent reading metadata
return "textarea["..x..","..y..";"..w..","..h..";"..name..";"..label..";"..default.."]"
elseif element_type == "image_button" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 1)
local h = get_value(payload, "h", 1)
local texture_name = get_value(payload, "texture_name", "default_apple.png")
local name = get_value(payload, "name", "image_button")
local label = get_value(payload, "label", "")
return "image_button["..x..","..y..";"..w..","..h..";"..texture_name..";"..name..";"..label.."]"
elseif element_type == "item_image_button" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 1)
local h = get_value(payload, "h", 1)
local item_name = get_value(payload, "item_name", "default:apple")
local name = get_value(payload, "name", "item_image_button")
local label = get_value(payload, "label", "")
return "item_image_button["..x..","..y..";"..w..","..h..";"..item_name..";"..name..";"..label.."]"
elseif element_type == "button_exit" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 2)
local h = get_value(payload, "h", 1)
local name = get_value(payload, "name", "button_exit")
local label = get_value(payload, "label", "Exit Button")
return "button_exit["..x..","..y..";"..w..","..h..";"..name..";"..label.."]"
elseif element_type == "image_button_exit" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 1)
local h = get_value(payload, "h", 1)
local texture_name = get_value(payload, "texture_name", "creative_clear_icon.png")
local name = get_value(payload, "name", "image_button")
local label = get_value(payload, "label", "")
return "image_button_exit["..x..","..y..";"..w..","..h..";"..texture_name..";"..name..";"..label.."]"
elseif element_type == "box" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local w = get_value(payload, "w", 2)
local h = get_value(payload, "h", 1)
local color = get_value(payload, "color", "")
return "box["..x..","..y..";"..w..","..h..";"..color.."]"
elseif element_type == "checkbox" then
local x = get_value(payload, "x", 1)
local y = get_value(payload, "y", 1)
local name = get_value(payload, "name", "checkbox")
local label = get_value(payload, "label", "")
local selected = get_value(payload, "selected", "false")
return "checkbox["..x..","..y..";"..name..";"..label..";"..selected.."]"
end
end
local function next_id(pos)
local nvm = N(pos)
local id = (nvm.element_id or 0) + 1
nvm.element_id = id
return id
end
local function reset_id(pos)
N(pos).element_id = 0
end
local function get_elements(pos)
local nvm = N(pos)
nvm.elements = nvm.elements or {}
return nvm.elements
end
local function valid_payload(payload)
if not payload then return false end
if type(payload) ~= "table" then return false end
if not payload.get then return false end
if not payload.next then return false end
return true
end
local function update_fs(pos)
local meta = M(pos)
local fs = "formspec_version[3]"
fs = fs .. "size[10,10]"
local elements = get_elements(pos)
for _,ele in ipairs(elements) do
fs = fs .. ele
end
meta:set_string("formspec", fs)
end
local function add_content(pos, payload)
if not valid_payload(payload) then
return
end
local element = parse_payload(payload)
if not element then
return
end
local elements = get_elements(pos)
local id = next_id(pos)
elements[id] = element
update_fs(pos)
return id
end
local function update_content(pos, payload)
if not valid_payload(payload) then
return false
end
local id = payload.get("id")
local elements = get_elements(pos)
if not id or not elements[id] then
return false
end
local element = parse_payload(payload)
if not element then
return false
end
elements[id] = element
update_fs(pos)
return true
end
local function remove_content(pos, payload)
if valid_payload(payload) then
local id = payload.get("id")
if id then
local elements = get_elements(pos)
if not elements[id] then
return false
end
elements[id] = nil
update_fs(pos)
return true
else
return false
end
end
local nvm = techage.get_nvm(pos)
nvm.elements = {}
nvm.element_id = nil
update_fs(pos)
return true
end
minetest.register_node("ta4_addons:touchscreen", {
description = S("TA4 Display"),
inventory_image = "ta4_addons_touchscreen_inventory.png",
tiles = {"ta4_addons_touchscreen.png"},
drawtype = "nodebox",
paramtype = "light",
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, "ta4_addons:touchscreen")
local meta = M(pos)
meta:set_string("node_number", number)
meta:set_string("infotext", S("Touchscreen no: ")..number)
update_fs(pos)
local nvm = techage.get_nvm(pos)
nvm.text = {"My", "Techage","TA4", "Touchscreen", "No: "..number}
lcdlib.update_entities(pos)
minetest.get_node_timer(pos):start(1)
end,
after_dig_node = function(pos, oldnode, oldmetadata)
remove_content(pos)
techage.remove_node(pos, oldnode, oldmetadata)
end,
on_rightclick = function(pos, node, clicker)
local meta = M(pos)
local ctrl = meta:get_string("ctrl")
if ctrl then
local own_num = meta:get_string("node_number") or ""
techage.send_single(own_num, ctrl, "msg", safer_lua.Store("_touchscreen_opened_by", clicker:get_player_name()))
end
end,
on_receive_fields = function(pos, formname, fields, sender)
local meta = M(pos)
local player_name = sender:get_player_name()
if meta:get_string("public") ~= "true" and minetest.is_protected(pos, player_name) then
return
end
local fields_store = safer_lua.Store()
for k,v in pairs(fields) do
fields_store.set(k, v)
end
fields_store.set("_sent_by", player_name)
local ctrl = meta:get_string("ctrl")
if ctrl then
local own_num = meta:get_string("node_number") or ""
techage.send_single(own_num, ctrl, "msg", fields_store)
end
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 = "ta4_addons:touchscreen",
recipe = {
{"", "dye:blue", ""},
{"default:copper_ingot", "techage:ta4_display", "default:copper_ingot"},
{"", "default:mese_crystal_fragment", ""},
},
})
techage.register_node({"ta4_addons:touchscreen"}, {
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)
elseif topic == "set" then -- overwrite the given row
techage.display.write_row(pos, payload)
elseif topic == "clear" then -- clear the screen
techage.display.clear_screen(pos)
elseif topic == "add_content" then
M(pos):set_string("ctrl", src)
return add_content(pos, payload)
elseif topic == "update_content" then
M(pos):set_string("ctrl", src)
return update_content(pos, payload)
elseif topic == "remove_content" then
M(pos):set_string("ctrl", src)
return remove_content(pos, payload)
elseif topic == "private" then
M(pos):set_string("public", "false")
elseif topic == "public" then
M(pos):set_string("public", "true")
end
end,
})