summaryrefslogtreecommitdiff
path: root/rgblightstone/init.lua
blob: 812ca2b2cd04b65b097433b28dedc9b2a89222fc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
rgblightstone = {}

if type(minetest.colorize) == "function" then
	rgblightstone.colorize = minetest.colorize
else
	rgblightstone.colorize = function(color,text)
		return text
	end
end

function rgblightstone.autofill(pos, player)
	local name = player: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 (not meta:get_string("channel")) or meta:get_string("channel")=="" then
		local pos_above = {x=pos.x,y=pos.y+1,z=pos.z}
		local node_above = minetest.get_node(pos_above)
		local meta_above = minetest.get_meta(pos_above)
		if string.match(node_above.name,"rgblightstone") and
		meta_above:get_string("channel") and
		tonumber(meta_above:get_string("addrx")) and
		tonumber(meta_above:get_string("addry")) then
			local channel = meta_above:get_string("channel")
			local addrx = meta_above:get_string("addrx")
			local addry = tostring(1+tonumber(meta_above:get_string("addry")))
			meta:set_string("channel",channel)
			meta:set_string("addrx",addrx)
			meta:set_string("addry",addry)
			minetest.chat_send_player(player:get_player_name(),rgblightstone.colorize("#55FF55","Success: ").."Auto-filled with channel "..rgblightstone.colorize("#00FFFF",channel)..", X address "..rgblightstone.colorize("#00FFFF",addrx)..", and Y address "..rgblightstone.colorize("#00FFFF",addry)..".")
			meta:set_string("infotext","")
		else
			minetest.chat_send_player(player:get_player_name(),rgblightstone.colorize("#FF0000","ERROR: ").."Node above is not RGB Lightstone or is not configured correctly!")
		end
	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","")
			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"))

				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

				--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
						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)

				--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
		}
	}
})


minetest.register_craft({
	output = "rgblightstone:rgblightstone",
	recipe = {
		{"","mesecons_lightstone:lightstone_green_off",""},
		{"mesecons_lightstone:lightstone_red_off","mesecons_luacontroller:luacontroller0000","mesecons_lightstone:lightstone_blue_off"},
		{"","digilines:wire_std_00000000",""}
	}
})