2 files changed, 134 insertions, 0 deletions
diff --git a/nodes/mesecons_lagger.lua b/nodes/mesecons_lagger.lua
new file mode 100644
index 0000000..e4d966e
--- /dev/null
+++ b/nodes/mesecons_lagger.lua
@@ -0,0 +1,59 @@
+
+local wait = mesecons_debug.wait
+
+mesecon.queue:add_function("create_lag", function(_pos, duration)
+    wait(duration)
+end)
+
+
+minetest.register_node("mesecons_debug:mesecons_lagger", {
+    description = "machine for adding artificial mesecons lag",
+    group = {
+        not_in_creative_inventory = 1,
+        unbreakable = 1,
+    },
+    tiles = {"default_mese_block.png^[colorize:#F00:128"},
+    on_blast = function() end,
+    drop = "",
+
+    on_construct = function(pos)
+        local meta = minetest.get_meta(pos)
+        meta:set_float("lag", 0.0)
+        meta:set_float("chance", 0.0)
+        meta:set_string("formspec",
+                ("field[lag;Lag (in us);%s]field[chance;Chance;%s]"):format(0.0, 0.0))
+
+        local timer = minetest.get_node_timer(pos)
+        timer:start(0)
+    end,
+
+    on_receive_fields = function(pos, _formname, fields, sender)
+        if not minetest.check_player_privs(sender, "mesecons_debug") then
+            return
+        end
+        local meta = minetest.get_meta(pos)
+        if fields.lag then
+            meta:set_float("lag", fields.lag)
+        end
+        if fields.chance then
+            meta:set_float("chance", fields.chance)
+        end
+        meta:set_string("formspec",
+                ("field[lag;Lag (in us);%s]field[chance;Chance;%s]"):format(
+                        meta:get_float("lag"), meta:get_float("chance")))
+
+    end,
+
+    on_timer = function(pos, _elapsed)
+        local meta = minetest.get_meta(pos)
+        local lag = meta:get_float("lag")
+        local chance = meta:get_float("chance")
+        if lag > 0 and chance > 0 then
+            if math.random() < 1 / chance then
+                mesecon.queue:add_action(pos, "create_lag", { lag })
+            end
+        end
+
+        return true
+    end,
+})
diff --git a/nodes/penalty_controller.lua b/nodes/penalty_controller.lua
new file mode 100644
index 0000000..6e160c1
--- /dev/null
+++ b/nodes/penalty_controller.lua
@@ -0,0 +1,75 @@
+minetest.register_node("mesecons_debug:penalty_controller", {
+    description = "Mesecons penalty controller",
+    groups = {
+        cracky = 3,
+        not_in_creative_inventory = 1,
+    },
+
+    on_construct = function(pos)
+        local meta = minetest.get_meta(pos)
+        meta:set_string("formspec", "field[channel;Channel;${channel}")
+    end,
+
+    tiles = {
+        "penalty_controller_top.png",
+        "jeija_microcontroller_bottom.png",
+        "jeija_microcontroller_sides.png",
+        "jeija_microcontroller_sides.png",
+        "jeija_microcontroller_sides.png",
+        "jeija_microcontroller_sides.png"
+    },
+
+    inventory_image = "penalty_controller_top.png",
+    drawtype = "nodebox",
+    selection_box = {
+        --From luacontroller
+        type = "fixed",
+        fixed = { -8 / 16, -8 / 16, -8 / 16, 8 / 16, -5 / 16, 8 / 16 },
+    },
+    node_box = {
+        --From Luacontroller
+        type = "fixed",
+        fixed = {
+            { -8 / 16, -8 / 16, -8 / 16, 8 / 16, -7 / 16, 8 / 16 }, -- Bottom slab
+            { -5 / 16, -7 / 16, -5 / 16, 5 / 16, -6 / 16, 5 / 16 }, -- Circuit board
+            { -3 / 16, -6 / 16, -3 / 16, 3 / 16, -5 / 16, 3 / 16 }, -- IC
+        }
+    },
+
+    paramtype = "light",
+    sunlight_propagates = true,
+
+    on_receive_fields = function(pos, _, fields, sender)
+        local name = sender:get_player_name()
+        if minetest.is_protected(pos, name) and not minetest.check_player_privs(name, { protection_bypass = true }) then
+            minetest.record_protection_violation(pos, name)
+            return
+        end
+        local meta = minetest.get_meta(pos)
+        if fields.channel then
+            meta:set_string("channel", fields.channel)
+        end
+    end,
+
+    digiline = {
+        receptor = {},
+        effector = {
+            action = function(pos, _, channel, msg)
+                local meta = minetest.get_meta(pos)
+                if meta:get_string("channel") ~= channel then
+                    return
+                end
+                if msg == "GET" then
+                    local ctx = mesecons_debug.get_context(pos)
+                    -- copy and send values
+                    digiline:receptor_send(pos, digiline.rules.default, channel, {
+                        micros = ctx.micros,
+                        avg_micros = ctx.avg_micros_per_second,
+                        penalty = ctx.penalty,
+                        whitelisted = ctx.whitelisted
+                    })
+                end
+            end
+        }
+    }
+})