some progress

sparkmachine/lua/quarry.lua

@@ -0,0 +1,152 @@
+local MOD_NAME = minetest.get_current_modname()
+local ENERGYCOST  = {
+	static_struts = 20,
+	dynamic_struct = 24,
+	hardness_mod = 1
+}
+
+local function on_construct(pos, player)
+	player:get_meta():set_string(MOD_NAME .. ":quarry_pos" , minetest.pos_to_string(pos))
+
+end
+
+local function on_marker_placed(pos, quarry_pos, player)
+	-- Validate position
+	if quarry_pos.x == pos.x and
+	   quarry_pos.y == pos.y and
+	   quarry_pos.z == pos.z then
+		-- Invalid position, marker replaced quarry somehow
+		return -- TODO Report failure?
+		-- TODO clear clipboard in quarry on_break
+
+	end
+	-- TODO Possibly do a size check
+
+	-- Set quarry metadata
+	local meta = minetest.get_meta(quarry_pos)
+	meta:set_string("marker", minetest.pos_to_string(pos))
+	meta:set_int("current_frame", 13)
+
+	timer = minetest.get_node_timer(quarry_pos):start(1.0)
+end
+
+local function marker_construct(pos, player)
+	local quarry_pos = minetest.string_to_pos(player:get_meta():get_string(MOD_NAME .. ":quarry_pos"))
+	local quarry = minetest.get_node(quarry_pos)		
+	on_marker_placed(pos, quarry_pos, player)	
+end
+
+local function clear_area(pos, pos2)
+	for x=pos.x , pos2.x do
+		for y=pos.y, pos2.y do
+			for z=pos.z, pos2.z do
+				-- dont remove quarry or marker
+				--
+				local node = minetest.get_node({ x=x, y=y, z=z})
+				minetest.debug(node.name)
+				if node.name ~= "MOD_NAME" .. ":lv_quarry" and node.name ~= "MOD_NAME" .. ":quarry_marker" then
+					minetest.dig_node({ x=x, y=y, z=z })
+				end
+			end
+		end
+	end
+end
+
+local function struct_line(pos, pos2)
+	for x=pos.x , pos2.x do
+		for y=pos.y, pos2.y do
+			for z=pos.z, pos2.z do
+				if node.name ~= "MOD_NAME" .. ":lv_quarry" and node.name ~= "MOD_NAME" .. ":quarry_marker" then
+					-- dont remove quarry or marker
+					minetest.dig_node({ x=x, y=y, z=z })
+					minetest.place_node({x=x, y=y, z=z}, MOD_NAME .. ":static_strut")
+				end
+			end
+		end
+	end
+end
+
+local function timer_trigger(pos, elapsed)
+	local meta = minetest.get_meta(pos)
+	local framenum = meta:get_int("current_frame")
+	local marker_pos = minetest.string_to_pos(meta:get_string("marker"))
+
+	if framenum <= 0 then
+		-- Operation Phase
+		--
+	else
+		-- preparation phase
+		if framenum == 13 then -- stripmine area
+			clear_area(pos, marker_pos)
+		elseif framenum == 12 then
+			struct_line(pos, { x = marker_pos.x, y = pos.y, z = pos.z })
+		elseif framenum == 11 then
+			struct_line(pos, { x = pos.x, y = marker_pos.y, z = pos.z })
+		elseif framenum == 10 then
+			struct_line( { x = pos.x, y = marker_pos.y, z = pos.z }, { x = pos.x, y = marker_pos.y, z = marker_pos.z })
+		elseif framenum == 9 then
+			struct_line( { x = marker_pos.x, y = pos.y, z = pos.z }, { x = pos.x, y = marker_pos.y, z = marker_pos.z })
+		elseif framenum == 8 then
+			struct_line( { x = pos.x, y = pos.y, z = pos.z }, { x = pos.x, y = pos.y, z = marker_pos.z })
+		elseif framenum == 7 then
+			struct_line( { x = marker_pos.x, y = pos.y, z = pos.z }, { x = marker_pos.x, y = pos.y, z = marker_pos.z })
+		elseif framenum == 6 then
+			struct_line( { x = pos.x, y = marker_pos.y, z = pos.z }, { x = pos.x, y = marker_pos.y, z = marker_pos.z })
+		elseif frmaenum == 5 then
+			struct_line( { x = marker_pos.x, y = marker_pos.y, z = pos.z }, { x = marker_pos.x, y = marker_pos.y, z = marker_pos.z })
+		elseif framenum == 4 then
+			struct_line( { x = pos.x, y = pos.y, z = marker_pos.z }, { x = marker_pos.x, y = pos.y, z = marker_pos.z })
+		elseif framenum == 3 then
+			struct_line( { x = pos.x, y = pos.y, z = marker_pos.z }, { x = pos.x, y = marker_pos.y, z = marker_pos.z })
+		elseif framenum == 2 then
+			struct_line( { x = marker_pos.x, y = pos.y, z = marker_pos.z }, { x = marker_pos.x, y = marker_pos.y, z = marker_pos.z })
+		elseif framenum == 1 then
+			struct_line( { x = pos.x, y = marker_pos.y, z = marker_pos.z }, { x = marker_pos.x, y = marker_pos.y, z = marker_pos.z })
+		end
+	end
+	meta:set_int("current_frame", framenum -1)
+
+	meta:from_table(metatable)
+	minetest.get_node_timer(pos):start(1.0)
+end
+
+minetest.register_node( MOD_NAME .. ":quarry_marker", {
+	descritption = "quarry marker",
+
+	after_place_node = marker_construct,
+})
+
+minetest.register_node( MOD_NAME .. ":static_strut", {
+	
+})
+
+minetest.register_node( MOD_NAME .. ":lv_quarry", {
+	description = "Electric Quarry",
+
+	tiles = {
+		"quarry.png",
+		"quarry.png",
+		"quarry.png",
+		"quarry.png",
+		"backplate.png",
+		"quarry_frontplate.png"
+	},
+	paramtype2 = "facedir",
+
+	groups = {
+		sparktech_techy = 1,
+		sparktech_struty = 1,
+		sparktech_energy_type = 4,
+		sparktech_net_trigger = 1,
+		sparktech_energy_max = 3000,
+		spark_energy_timer = 2
+	},
+
+	on_timer = timer_trigger,
+
+	after_place_node = on_construct,
+
+	--on_destruct = function(pos, player) player:get_meta():set_string(MOD_NAME .. ":quarry_pos" , "") end,
+	allow_metadata_inventory_put = function() return false end,
+	allow_metadata_inventory_take = function(_, _, _, stack) return stack:get_count() end
+})