95 lines
2.7 KiB
Lua
95 lines
2.7 KiB
Lua
|
|
||
|
|
-- Created by jogag
|
||
|
|
-- Part of the Digiline Stuff pack
|
||
|
|
-- Mod: digiline memory chip
|
||
|
|
-- A memory chip you can use to store several strings
|
||
|
|
-- "SET <address> <string>" to write
|
||
|
|
-- "GET <address>" to read
|
||
|
|
-- "ERASE" to delete all!!! xD
|
||
|
|
|
||
|
|
local GET_CMD = "GET"
|
||
|
|
local SET_CMD = "SET"
|
||
|
|
local DEL_CMD = "ERASE"
|
||
|
|
|
||
|
|
local OK_MSG = "OK"
|
||
|
|
|
||
|
|
-- list with the various chip sizes
|
||
|
|
-- (put two equal chips in crafting grid to upgrade)
|
||
|
|
local MEMORY_CHIPS = { 16, 32, 64, 128, 256, 512, 1024 }
|
||
|
|
|
||
|
|
-- all taken from digiline RTC mod
|
||
|
|
local chip_nodebox =
|
||
|
|
{
|
||
|
|
type = "fixed",
|
||
|
|
fixed = {
|
||
|
|
{ -8/16, -8/16, -8/16, 8/16, -7/16, 8/16 }, -- bottom slab
|
||
|
|
|
||
|
|
{ -7/16, -7/16, -7/16, 7/16, -5/16, 7/16 },
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
local chip_selbox =
|
||
|
|
{
|
||
|
|
type = "fixed",
|
||
|
|
fixed = {{ -8/16, -8/16, -8/16, 8/16, -3/16, 8/16 }}
|
||
|
|
}
|
||
|
|
|
||
|
|
local get_chip_size = function(pos)
|
||
|
|
return MEMORY_CHIPS[tonumber(minetest.get_node(pos).name:split("_")[3])]
|
||
|
|
end
|
||
|
|
|
||
|
|
local on_digiline_receive = function(pos, node, channel, msg)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
local data = minetest.deserialize(meta:get_string("data"))
|
||
|
|
-- ^^ xDDDDD
|
||
|
|
if channel == meta:get_string("channel") then
|
||
|
|
if msg == DEL_CMD then
|
||
|
|
meta:set_string("data", "return {}")
|
||
|
|
digiline:receptor_send(pos, digilines.rules.default, channel, OK_MSG)
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
if msg:split(" ")[2] == nil then return end -- no arguments :/
|
||
|
|
|
||
|
|
cmd = msg:split(" ")[2]
|
||
|
|
addr = tonumber(msg:split(" ")[2])
|
||
|
|
if addr == nil or addr < 1 or addr > get_chip_size(pos) then return end -- invalid address
|
||
|
|
|
||
|
|
if cmd == GET_CMD then digiline:receptor_send(pos, digiline.rules.default, channel, data[addr])
|
||
|
|
elseif cmd == SET_CMD and msg:split(" ")[3] ~= nil then
|
||
|
|
data[addr] = msg:sub(cmd:len() + tostring(addr):len() + 2, -1) -- its too complicated...
|
||
|
|
meta:set_string("data", minetest.serialize(data))
|
||
|
|
digiline:receptor_send(pos, digilines.rules.default, channel, OK_MSG)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
for i, s in ipairs(MEMORY_CHIPS) do
|
||
|
|
minetest.register_node("digilines_memory:memory_"..i, {
|
||
|
|
description = "Digiline Memory Chip ("..s.." addresses)",
|
||
|
|
drawtype = "nodebox",
|
||
|
|
tiles = {"digilines_memory.png"},
|
||
|
|
|
||
|
|
paramtype = "light",
|
||
|
|
paramtype2 = "facedir",
|
||
|
|
groups = {dig_immediate=2},
|
||
|
|
selection_box = chip_selbox,
|
||
|
|
node_box = chip_nodebox,
|
||
|
|
digiline = {
|
||
|
|
receptor = {},
|
||
|
|
effector = { action = on_digiline_receive },
|
||
|
|
},
|
||
|
|
on_construct = function(pos)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
meta:set_string("formspec", "field[channel;Channel;${channel}]")
|
||
|
|
meta:set_string("infotext", "Memory Chip ("..get_chip_size(pos).." addresses)")
|
||
|
|
meta:set_string("channel", "")
|
||
|
|
meta:set_string("data", "return {}") -- xD
|
||
|
|
end,
|
||
|
|
on_receive_fields = function(pos, formname, fields, sender)
|
||
|
|
if fields.channel then minetest.get_meta(pos):set_string("channel", fields.channel) end
|
||
|
|
end,
|
||
|
|
})
|
||
|
|
|
||
|
|
end
|