From 3dcaa839626d284ad17e51489b449d8f8a1ce739 Mon Sep 17 00:00:00 2001 From: Wuzzy Date: Mon, 28 Aug 2017 01:51:21 +0200 Subject: [PATCH] Add redstone comparators by ex-bart --- .../ITEMS/REDSTONE/mcl_comparator/depends.txt | 2 + mods/ITEMS/REDSTONE/mcl_comparator/init.lua | 318 ++++++++++++++++++ .../textures/mcl_comparator_comp.png | Bin 0 -> 102 bytes .../textures/mcl_comparator_ends_comp.png | Bin 0 -> 145 bytes .../textures/mcl_comparator_ends_off.png | Bin 0 -> 167 bytes .../textures/mcl_comparator_ends_on.png | Bin 0 -> 167 bytes .../textures/mcl_comparator_ends_sub.png | Bin 0 -> 155 bytes .../textures/mcl_comparator_item.png | Bin 0 -> 278 bytes .../textures/mcl_comparator_off.png | Bin 0 -> 233 bytes .../textures/mcl_comparator_on.png | Bin 0 -> 562 bytes .../textures/mcl_comparator_sides_comp.png | Bin 0 -> 140 bytes .../textures/mcl_comparator_sides_off.png | Bin 0 -> 167 bytes .../textures/mcl_comparator_sides_on.png | Bin 0 -> 167 bytes .../textures/mcl_comparator_sides_sub.png | Bin 0 -> 154 bytes .../textures/mcl_comparator_sub.png | Bin 0 -> 102 bytes 15 files changed, 320 insertions(+) create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/depends.txt create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/init.lua create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_comp.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_ends_comp.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_ends_off.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_ends_on.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_ends_sub.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_item.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_off.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_on.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_comp.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_off.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_on.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_sub.png create mode 100644 mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sub.png diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/depends.txt b/mods/ITEMS/REDSTONE/mcl_comparator/depends.txt new file mode 100644 index 000000000..4fdbda79f --- /dev/null +++ b/mods/ITEMS/REDSTONE/mcl_comparator/depends.txt @@ -0,0 +1,2 @@ +mesecons +doc? diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/init.lua b/mods/ITEMS/REDSTONE/mcl_comparator/init.lua new file mode 100644 index 000000000..b0f6fed33 --- /dev/null +++ b/mods/ITEMS/REDSTONE/mcl_comparator/init.lua @@ -0,0 +1,318 @@ +-- Functions that get the input/output rules of the comparator + +local comparator_get_output_rules = function(node) + local rules = {{x = -1, y = 0, z = 0}} + for i = 0, node.param2 do + rules = mesecon:rotate_rules_left(rules) + end + return rules +end + + +local comparator_get_input_rules = function(node) + local rules = { + -- we rely on this order in update_self below + {x = 1, y = 0, z = 0}, -- back + {x = 0, y = 0, z = -1}, -- side + {x = 0, y = 0, z = 1}, -- side + } + for i = 0, node.param2 do + rules = mesecon:rotate_rules_left(rules) + end + return rules +end + + +-- Functions that are called after the delay time + +local comparator_turnon = function(params) + local rules = comparator_get_output_rules(params.node) + mesecon:receptor_on(params.pos, rules) +end + + +local comparator_turnoff = function(params) + local rules = comparator_get_output_rules(params.node) + mesecon:receptor_off(params.pos, rules) +end + + +-- Functions that set the correct node type an schedule a turnon/off + +local comparator_activate = function(pos, node) + local def = minetest.registered_nodes[node.name] + mesecon:swap_node(pos, def.comparator_onstate) + minetest.after(0.1, comparator_turnon , {pos = pos, node = node}) +end + + +local comparator_deactivate = function(pos, node) + local def = minetest.registered_nodes[node.name] + mesecon:swap_node(pos, def.comparator_offstate) + minetest.after(0.1, comparator_turnoff, {pos = pos, node = node}) +end + + +-- wether pos has an inventory that contains at least one item +local container_inventory_nonempty = function(pos) + local invnode = minetest.get_node(pos) + local invnodedef = minetest.registered_nodes[invnode.name] + -- Ignore stale nodes + if not invnodedef then return false end + + -- Only accept containers. When a container is dug, it's inventory + -- seems to stay. and we don't want to accept the inventory of an air + -- block + if not invnodedef.groups.container then return false end + + local inv = minetest.get_inventory({type="node", pos=pos}) + if not inv then return false end + + for listname, _ in pairs(inv:get_lists()) do + if not inv:is_empty(listname) then return true end + end + + return false +end + +-- whether the comparator should be on according to its inputs +local comparator_desired_on = function(pos, node) + local my_input_rules = comparator_get_input_rules(node); + local back_rule = my_input_rules[1] + local state = mesecon:is_powered_from(pos, back_rule) + or container_inventory_nonempty(vector.add(pos, back_rule)) + + -- if back input if off, we don't need to check side inputs + if not state then return false end + + -- without power levels, side inputs have no influence on output in compare + -- mode + local mode = minetest.registered_nodes[node.name].comparator_mode + if mode == "comp" then return state end + + -- subtract mode, subtract max(side_inputs) from back input + local side_state = false + for ri = 2,3 do + side_state = side_state or mesecon:is_powered_from(pos, my_input_rules[ri]) + if side_state then break end + end + -- state is known to be true + return not side_state +end + + +-- update comparator state, if needed +local update_self = function(pos, node) + node = node or minetest.get_node(pos) + local old_state = mesecon:is_receptor_on(node.name) + local new_state = comparator_desired_on(pos, node) + if new_state ~= old_state then + if new_state then + comparator_activate(pos, node) + else + comparator_deactivate(pos, node) + end + end +end + + +-- compute tile depending on state and mode +local get_tiles = function(state, mode) + local top = "mcl_comparator_"..state..".png^".. + "mcl_comparator_"..mode..".png" + local sides = "mcl_comparator_sides_"..state..".png^".. + "mcl_comparator_sides_"..mode..".png" + local ends = "mcl_comparator_ends_"..state..".png^".. + "mcl_comparator_ends_"..mode..".png" + return { + top, "mcl_stairs_stone_slab_top.png", + sides, sides.."^[transformFX", + ends, ends, + } +end + +-- Given one mode, get the other mode +local flipmode = function(mode) + if mode == "comp" then return "sub" + elseif mode == "sub" then return "comp" + end +end + +local make_rightclick_handler = function(state, mode) + local newnodename = + "mcl_comparator:comparator_"..state.."_"..flipmode(mode) + return function (pos, node) + mesecon:swap_node(pos,newnodename) + end +end + + +-- Register the 2 (states) x 2 (modes) comparators + +local longdesc = "Redstone comparators are redstone components which ".. + "compare redstone signals and measure various node states, such as ".. + "how full inventories are." +local usagehelp = "To power a redstone comparater, send a signal in “arrow” ".. + "direction, or place the block to measure there. Send the signal ".. + "to compare with in from the side." +local icon = "mcl_comparator_item.png" + +local node_boxes = { + comp = { + { -8/16, -8/16, -8/16, + 8/16, -6/16, 8/16 }, -- the main slab + { -1/16, -6/16, 6/16, + 1/16, -4/16, 4/16 }, -- front torch + { -4/16, -6/16, -5/16, + -2/16, -1/16, -3/16 }, -- left back torch + { 2/16, -6/16, -5/16, + 4/16, -1/16, -3/16 }, -- right back torch + }, + sub = { + { -8/16, -8/16, -8/16, + 8/16, -6/16, 8/16 }, -- the main slab + { -1/16, -6/16, 6/16, + 1/16, -3/16, 4/16 }, -- front torch (active) + { -4/16, -6/16, -5/16, + -2/16, -1/16, -3/16 }, -- left back torch + { 2/16, -6/16, -5/16, + 4/16, -1/16, -3/16 }, -- right back torch + }, +} + +local collision_box = { + type = "fixed", + fixed = { -8/16, -8/16, -8/16, 8/16, -6/16, 8/16 }, +} + +local state_strs = { + [ mesecon.state.on ] = "on", + [ mesecon.state.off ] = "off", +} + +local groups = { + dig_immediate = 3, + dig_by_water = 1, + destroy_by_lava_flow = 1, + dig_by_piston = 1, + attached_node = 1, +} + +for _, mode in pairs{"comp", "sub"} do +for _, state in pairs{mesecon.state.on, mesecon.state.off} do + local state_str = state_strs[state] + local nodename = + "mcl_comparator:comparator_"..state_strs[state].."_"..mode + + local nodedef = { + description = "Redstone Comparator", + inventory_image = icon, + wield_image = icon, + _doc_items_longdesc = longdesc, + _doc_items_usagehelp = usagehelp, + drawtype = "nodebox", + tiles = get_tiles(state_strs[state], mode), + wield_image = "mcl_comparator_off.png", + walkable = true, + selection_box = collision_box, + collision_box = collision_box, + node_box = { + type = "fixed", + fixed = node_boxes[mode], + }, + groups = groups, + paramtype = "light", + paramtype2 = "facedir", + sunlight_propagates = false, + is_ground_content = false, + drop = 'mcl_comparator:comparator_off_comp', + on_construct = update_self, + on_rightclick = + make_rightclick_handler(state_strs[state], mode), + comparator_mode = mode, + comparator_onstate = "mcl_comparator:comparator_on_"..mode, + comparator_offstate = "mcl_comparator:comparator_off_"..mode, + sounds = mcl_sounds.node_sound_stone_defaults(), + mesecons = { + receptor = { + state = state, + rules = comparator_get_output_rules, + }, + effector = { + rules = comparator_get_input_rules, + action_change = update_self, + } + } + } + + if mode == "comp" and state == mesecon.state.off then + -- This is the prototype + nodedef._doc_items_create_entry = true + else + nodedef.groups = table.copy(nodedef.groups) + nodedef.groups.not_in_creative_inventory = 1 + local extra_desc = {} + if mode == "sub" then + table.insert(extra_desc, "Subtract") + end + if state == mesecon.state.on then + table.insert(extra_desc, "Powered") + end + nodedef.description = nodedef.description.. + " ("..table.concat(extra_desc, ", ")..")" + end + + minetest.register_node(nodename, nodedef) +end +end + +-- Register recipies +local rstorch = "mesecons_torch:mesecon_torch_on" +local quartz = "mcl_nether:quartz" +local stone = "mcl_core:stone" + +minetest.register_craft({ + output = "mcl_comparator:comparator_off_comp", + recipe = { + { "", rstorch, "" }, + { rstorch, quartz, rstorch }, + { stone, stone, stone }, + } +}) + +-- Register active block handlers +minetest.register_abm({ + label = "Comparator check for containers", + nodenames = { + "mcl_comparator:comparator_off_comp", + "mcl_comparator:comparator_off_sub", + }, + neighbors = {"group:container"}, + interval = 1, + chance = 1, + action = update_self, +}) + +minetest.register_abm({ + label = "Comparator check for no containers", + nodenames = { + "mcl_comparator:comparator_on_comp", + "mcl_comparator:comparator_on_sub", + }, + -- needs to run regardless of neighbors to make sure we detect when a + -- container is dug + interval = 1, + chance = 1, + action = update_self, +}) + + +-- Add entry aliases for the Help +if minetest.get_modpath("doc") then + doc.add_entry_alias("nodes", "mcl_comparator:comparator_off_comp", + "nodes", "mcl_comparator:comparator_off_sub") + doc.add_entry_alias("nodes", "mcl_comparator:comparator_off_comp", + "nodes", "mcl_comparator:comparator_on_comp") + doc.add_entry_alias("nodes", "mcl_comparator:comparator_off_comp", + "nodes", "mcl_comparator:comparator_on_sub") +end diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_comp.png b/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_comp.png new file mode 100644 index 0000000000000000000000000000000000000000..9967cf5c15b877cd99bf08fda4b69b7e221707eb GIT binary patch literal 102 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61SBU+%rFB|Y$ZW{!9W@a@|Lkr1X9wTE{-7; ujL8xT35qH#E=w{$Oq{rIYKAcvz2n@<`2y7X#=8^}ISS3j3^ HP6;M1%+jDaQ?d_D6m4RYD zGBOrILM@F=R+<`WJUo$p?%4^EKyF`8hmX0cuA+E?tGO7Wf%Qo~f@0WkWAw9c&`i$R_i3|+)p0X9B TpZ1*%bP0o}tDnm{r-UW|q>^VZ literal 0 HcmV?d00001 diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_off.png b/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_off.png new file mode 100644 index 0000000000000000000000000000000000000000..b7affc2eaf324b8408cffe6a145d166ae3ba3ffa GIT binary patch literal 233 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!73?$#)eFPGa3-AeX%}z{=^mC7k46iFGoZQ*G zbozw$hMIz$Gz%di9~qg%84s5MRknG$IEGX(@*XqX)MOyQ_F(>W*{n|;0nDtr*)kcO z2RM(!rSPn^7Kw4p&)xTmSs?Sz)CQ^LAMN;gPpHf>G(NF^am8B}HTx5$6BX|LxTgBH z>CF5;iq{U>+}S35)F5T|)o*+ug}ax@1iim(^FeggKbF(NnO}LGigx*|k2`l_YHKTp g$*D*CFZ^P+$dz8Oy>9(OpoPx$>`6pHR4C7FlEG^lK@`TnY}{mZb)&mZ7KADlB8$)j1M#5VOQ7^#3WZ#HX#caG zdMM-{NOB1YNe+@~2q;>z8E3n3cU`S%?BU7KlzxZd8+g3=z3_gG?0DkipCl-2+f{6+olea-8zj`Dq+RLij@XZofx_ifI+Xc(%Q} z2f)yDx8G~jcR2Sr_v~V++iBB~+q-*qeiMKqW3ls_-A?<>{(j#bCDZzN8Ue72B`S!+ zD4kpfpa38@=nWgq*0;k$0ED-Eu-OvAmq97ie$X2_PMLFWt5S`_h#my6RjG3BIZjy! zpQ2Z2LBVuF4G5a5<&|?!k|*Sj33{tiWz3|ldC7IgTGWW7>e+;Z12FmWbpqVsU%mYF z5kMHvo~2}HIsj*5sxhnPsu);fxtNT zC`8N3eh(w^a>#k)ue^KvT7G8vljo67BT6sz2k6oBU=LhM8~^|S07*qoM6N<$f;0#P AQ2+n{ literal 0 HcmV?d00001 diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_comp.png b/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_comp.png new file mode 100644 index 0000000000000000000000000000000000000000..536d61bf937ebe0ee8296470734a78f5caad8ef1 GIT binary patch literal 140 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61SBU+%rFB|Y$ZW{!9W@a@|Lkr1X7NkE{-7; zjL8esC0G|9aCbZAu@#8#wNgT$$V>;qpoer$~!Ei#Fs2ww?v?$VG*lkri01O h&60f$F)5l0k{F`W)ReY=IVb}%)YH|^Wt~$(69A=!CRP9d literal 0 HcmV?d00001 diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_off.png b/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_off.png new file mode 100644 index 0000000000000000000000000000000000000000..ba70c3efe99f1358e26b47d3468271d1f7148305 GIT binary patch literal 167 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!73?$#)eFPFv5AX?b1=2n;G8RHYYCJp@30{E? zrm>zj=|L`$e(rIR;dLd21vzPxJDau5q!ocm8B2ovf*Bm1-ADs+^gLZ0Ln;`P7uY3) zFa-PX^e_dm3H!7#svY{nxM&OWif6XU|JlXVDis~u%K3R2g6!A~d;@#BfI1mGUHx3v IIVCg!0GJ9Y>;M1& literal 0 HcmV?d00001 diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_on.png b/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_on.png new file mode 100644 index 0000000000000000000000000000000000000000..bb683c933f6ae41320d4be94c021cc37bbb908c8 GIT binary patch literal 167 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!73?$#)eFPFv5AX?b1=4-0szs8LX<}j(30{E? zrm>zj=|L`$e(rIR;dLd21vzPxJDVqep0ysRl(8hpFPOpM*^M+HN6*v6F{FYqd4XL* z2t%+BPY+W7o3Kv{quQZAjElA~uXtvw{GVM+ty0mkt(>2iA;^x+z&Eg`3#gO9)78&q Iol`;+0K?=i4gdfE literal 0 HcmV?d00001 diff --git a/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_sub.png b/mods/ITEMS/REDSTONE/mcl_comparator/textures/mcl_comparator_sides_sub.png new file mode 100644 index 0000000000000000000000000000000000000000..76d9187d3f0ea817dbb326222ae21f873629a512 GIT binary patch literal 154 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!73?$#)eFPFv4DbnY1=4-0szs8LX<}j(30{E? zrjdT`agpJ5C4~h!X_Gsfk4xv40~Ilr1o;IsI6S+N2IQ!Fx;TbZFeWE8FwHV)ZM$sM)$5kZ>Oi@$s0!}++<*I*w3=0QE}>epcV#CS3j3^P6