Make them emit light again

1 files changed, 106 insertions, 95 deletions

diff --git a/init.lua b/init.lua
index 812ca2b..2b626b2 100644
--- a/init.lua
+++ b/init.lua
@@ -37,112 +37,123 @@ function rgblightstone.autofill(pos, player)
 	end
 end
 
-minetest.register_node("rgblightstone:rgblightstone", {
-	tiles = {"rgblightstone_white.png"},
-	palette = "rgblightstone_palette.png",
-	groups = {cracky=2},
-	description = "RGB Lightstone",
-	paramtype2 = "color",
-	on_construct = function(pos)
-		local meta = minetest.get_meta(pos)
-		meta:set_string("formspec", "size[8,5;]field[1,1;6,2;channel;Channel;${channel}]field[1,2;2,2;addrx;X Address;${addrx}]field[5,2;2,2;addry;Y Address;${addry}]button_exit[2.25,3;3,1;submit;Save]button_exit[2.25,4;3,1;autofill;Auto-Fill From Node Above]label[3,2;Leave address blank\nfor individual mode]")
-		meta:set_string("infotext","Not configured! Right-click to set up manually, or punch to auto-fill from the node above.")
-		meta:set_string("color","000000")
-	end,
-	on_punch = function(pos, node, player, pointed_thing)
-		rgblightstone.autofill(pos,player)
-	end,
-	on_receive_fields = function(pos, formname, 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.autofill then
-			rgblightstone.autofill(pos,sender)
-		else
-			if fields.channel then
-				meta:set_string("channel", fields.channel)
-				meta:set_string("infotext","")
+for i=0,14,1 do 
+	minetest.register_node("rgblightstone:rgblightstone_"..i, {
+		tiles = {"rgblightstone_white.png"},
+		palette = "rgblightstone_palette.png",
+		groups = i == 0 and {cracky = 2,} or {cracky = 2,not_in_creative_inventory = 1,},
+		description = i == 0 and "RGB Lightstone" or "RGB Lightstone (lit state - you hacker you!)",
+		paramtype2 = "color",
+		light_source = i,
+		on_construct = function(pos)
+			local meta = minetest.get_meta(pos)
+			meta:set_string("formspec", "size[8,5;]field[1,1;6,2;channel;Channel;${channel}]field[1,2;2,2;addrx;X Address;${addrx}]field[5,2;2,2;addry;Y Address;${addry}]button_exit[2.25,3;3,1;submit;Save]button_exit[2.25,4;3,1;autofill;Auto-Fill From Node Above]label[3,2;Leave address blank\nfor individual mode]")
+			meta:set_string("infotext","Not configured! Right-click to set up manually, or punch to auto-fill from the node above.")
+			meta:set_string("color","000000")
+		end,
+		on_punch = function(pos, node, player, pointed_thing)
+			rgblightstone.autofill(pos,player)
+		end,
+		on_receive_fields = function(pos, formname, 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
-			if fields.addrx then meta:set_string("addrx",fields.addrx) end
-			if fields.addry then meta:set_string("addry",fields.addry) end
-		end
-	end,
-	light_source = 0,
-	digiline = {
-		wire = {
-			rules = {
-				{x = 1,y = 0,z = 0},
-				{x = -1,y = 0,z = 0},
-				{x = 0,y = 0,z = 1},
-				{x = 0,y = 0,z = -1},
-				{x = 0,y = 1,z = 0},
-				{x = 0,y = -1,z = 0},
-			},
-		},
-		receptor = {},
-		effector = {
-			action = function(pos, node, channel, msg)
-				local meta = minetest.get_meta(pos)
-				local setchan = meta:get_string("channel")
-				if channel ~= setchan then
-					return
+			local meta = minetest.get_meta(pos)
+			if fields.autofill then
+				rgblightstone.autofill(pos,sender)
+			else
+				if fields.channel then
+					meta:set_string("channel", fields.channel)
+					meta:set_string("infotext","")
 				end
+				if fields.addrx then meta:set_string("addrx",fields.addrx) end
+				if fields.addry then meta:set_string("addry",fields.addry) end
+			end
+		end,
+		light_source = 0,
+		digiline = {
+			wire = {
+				rules = {
+					{x = 1,y = 0,z = 0},
+					{x = -1,y = 0,z = 0},
+					{x = 0,y = 0,z = 1},
+					{x = 0,y = 0,z = -1},
+					{x = 0,y = 1,z = 0},
+					{x = 0,y = -1,z = 0},
+				},
+			},
+			receptor = {},
+			effector = {
+				action = function(pos, node, channel, msg)
+					local meta = minetest.get_meta(pos)
+					local setchan = meta:get_string("channel")
+					if channel ~= setchan then
+						return
+					end
 
-				local addrx = tonumber(meta:get_string("addrx"))
-				local addry = tonumber(meta:get_string("addry"))
+					local addrx = tonumber(meta:get_string("addrx"))
+					local addry = tonumber(meta:get_string("addry"))
 
-				if type(msg) == "table" then
-					if not (addrx and addry and type(msg[addry]) == "table" and msg[addry][addrx]) then
-						return
+					if type(msg) == "table" then
+						if not (addrx and addry and type(msg[addry]) == "table" and msg[addry][addrx]) then
+							return
+						end
+						msg = msg[addry][addrx]
 					end
-					msg = msg[addry][addrx]
-				end
 
-				--Validation starts here
-				if type(msg) ~= "string" then
-					return
-				end
-				msg = string.upper(msg)
-				--Drop a leading # if present (e.g. "#FF55AA")
-				if string.sub(msg,1,1) == "#" then
-					msg = string.sub(msg,2)
-				end
-				--Check length
-				if string.len(msg) ~= 6 then
-					return
-				end
-				--Make sure there aren't any invalid chars
-				local acceptable_chars = {["0"]=true,["1"]=true,["2"]=true,["3"]=true,["4"]=true,["5"]=true,["6"]=true,["7"]=true,["8"]=true,["9"]=true,["A"]=true,["B"]=true,["C"]=true,["D"]=true,["E"]=true,["F"]=true}
-				for i = 1,6,1 do
-					if not acceptable_chars[string.sub(msg,i,i)] then
+					--Validation starts here
+					if type(msg) ~= "string" then
 						return
-					else
 					end
-				end
-				--Should be a valid hex color by this point
-				
-				--Split into three colors
-				local r = tonumber(string.sub(msg,1,2),16)
-				local g = tonumber(string.sub(msg,3,4),16)
-				local b = tonumber(string.sub(msg,5,6),16)
+					msg = string.upper(msg)
+					--Drop a leading # if present (e.g. "#FF55AA")
+					if string.sub(msg,1,1) == "#" then
+						msg = string.sub(msg,2)
+					end
+					--Check length
+					if string.len(msg) ~= 6 then
+						return
+					end
+					--Make sure there aren't any invalid chars
+					local acceptable_chars = {["0"]=true,["1"]=true,["2"]=true,["3"]=true,["4"]=true,["5"]=true,["6"]=true,["7"]=true,["8"]=true,["9"]=true,["A"]=true,["B"]=true,["C"]=true,["D"]=true,["E"]=true,["F"]=true}
+					for i = 1,6,1 do
+						if not acceptable_chars[string.sub(msg,i,i)] then
+							return
+						else
+						end
+					end
+					--Should be a valid hex color by this point
+					
+					--Split into three colors
+					local r = tonumber(string.sub(msg,1,2),16)
+					local g = tonumber(string.sub(msg,3,4),16)
+					local b = tonumber(string.sub(msg,5,6),16)
+					
+					--Convert RGB to HSV... or at least V, for the light
+					local v = math.max(r,g,b)
+					v = math.floor(v/255*14)
+					v = math.max(0,math.min(14,v))
 
-				--Round to nearest available values and convert to a pixel count in the palette
-				r = math.floor(r/32)
-				g = math.floor(g/32)
-				b = math.floor(b/64) --Blue has one fewer bit
-				
-				local paletteidx = 32*g+4*r+b
+					--Round to nearest available values and convert to a pixel count in the palette
+					r = math.floor(r/32)
+					g = math.floor(g/32)
+					b = math.floor(b/64) --Blue has one fewer bit
+					
+					local paletteidx = 32*g+4*r+b
 
-				--Set the color
-				node.param2 = paletteidx
-				minetest.swap_node(pos,node)
-			end
+					--Set the color
+					node.name = "rgblightstone:rgblightstone_"..v
+					node.param2 = paletteidx
+					minetest.swap_node(pos,node)
+				end
+			}
 		}
-	}
-})
+	})
+end
+
+minetest.register_alias("rgblightstone:rgblightstone","rgblightstone:rgblightstone_0")
 
 
 minetest.register_craft({