Update 0.4.6-0

1 files changed, 508 insertions, 0 deletions

diff --git a/concrete/init.lua b/concrete/init.lua
new file mode 100644
index 0000000..12deb74
--- /dev/null
+++ b/concrete/init.lua
@@ -0,0 +1,508 @@
+--Minetest 0.4.6 mod: concrete 
+--(c) 2013 by RealBadAngel <mk@realbadangel.pl>
+
+minetest.register_craft({
+	output = ':technic:rebar 6',
+	recipe = {
+		{'','', 'default:steel_ingot'},
+		{'','default:steel_ingot',''},
+		{'default:steel_ingot', '', ''},
+	}
+})
+
+minetest.register_craft({
+	output = ':technic:concrete 5',
+	recipe = {
+		{'default:stone','technic:rebar','default:stone'},
+		{'technic:rebar','default:stone','technic:rebar'},
+		{'default:stone','technic:rebar','default:stone'},
+	}
+})
+
+minetest.register_craft({
+	output = ':technic:concrete_post_platform 6',
+	recipe = {
+		{'technic:concrete','technic:concrete_post','technic:concrete'},
+	}
+})
+
+minetest.register_craft({
+	output = ':technic:concrete_post 12',
+	recipe = {
+		{'default:stone','technic:rebar','default:stone'},
+		{'default:stone','technic:rebar','default:stone'},
+		{'default:stone','technic:rebar','default:stone'},
+}
+})
+
+platform_box = {-0.5 , 0.3 , -0.5 , 0.5 ,  0.5 , 0.5  }
+post_str_y={ -0.15 , -0.5 , -0.15 , 0.15 ,  0.5 , 0.15  }
+post_str_x1={ 0 , -0.3 , -0.1, 0.5 ,  0.3 , 0.1 }  -- x+
+post_str_z1={ -0.1 , -0.3 , 0, 0.1 ,  0.3 , 0.5 } -- z+
+post_str_x2={ 0 , -0.3 , -0.1, -0.5 ,  0.3 , 0.1 } -- x-
+post_str_z2={ -0.1 , -0.3 , 0, 0.1 ,  0.3 , -0.5 } -- z-
+
+minetest.register_craftitem(":technic:rebar", {
+	description = "Rebar",
+	inventory_image = "technic_rebar.png",
+	stack_max = 99,
+})
+
+minetest.register_craftitem(":technic:concrete", {
+	description = "Concrete Block",
+	inventory_image = "technic_concrete_block.png",
+	stack_max = 99,
+})
+
+minetest.register_craftitem(":technic:concrete_post", {
+	description = "Concrete Post",
+	stack_max = 99,
+})
+
+minetest.register_craftitem(":technic:concrete_post_platform", {
+	description = "Concrete Post Platform",
+	stack_max = 99,
+})
+
+minetest.register_node(":technic:concrete", {
+	description = "Concrete Block",
+	tile_images = {"technic_concrete_block.png",},
+	is_ground_content = true,
+	groups={cracky=1,level=2},
+	sounds = default.node_sound_stone_defaults(),
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	on_construct = function(pos)
+		meta=minetest.env:get_meta(pos)
+		meta:set_float("postlike",1)
+		check_post_connections (pos,1)
+	end,
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+		check_post_connections  (pos,0)
+	end,
+})
+
+minetest.register_node(":technic:concrete_post_platform", {
+	description = "Concrete Post Platform",
+	tile_images = {"technic_concrete_block.png",},
+	is_ground_content = true,
+	groups={cracky=1,level=2},
+	sounds = default.node_sound_stone_defaults(),
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {platform_box}
+		},
+	node_box = {
+		type = "fixed",
+		fixed = {platform_box}
+		},
+	on_place=function (itemstack, placer, pointed_thing)
+	local node=minetest.env:get_node(pointed_thing.under)
+	if minetest.get_item_group(node.name, "concrete_post")==0 then 
+		return minetest.item_place_node(itemstack, placer, pointed_thing) 
+	end
+	local meta=minetest.env:get_meta(pointed_thing.under)
+	y1=meta:get_float("y1")
+	platform=meta:get_float("platform")
+	if y1==1 or platform==1 then 
+		return minetest.item_place_node(itemstack, placer, pointed_thing) 
+	end
+	y2=meta:get_float("y2")
+	x1=meta:get_float("x1")
+	x2=meta:get_float("x2")
+	z1=meta:get_float("z1")
+	z2=meta:get_float("z2")
+	rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,1)
+	meta:set_float("platform",1)
+	hacky_swap_posts(pointed_thing.under,"technic:concrete_post"..rule)
+	itemstack:take_item()
+	placer:set_wielded_item(itemstack)
+	return itemstack
+	end,
+})
+
+
+minetest.register_node(":technic:concrete_post", {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = { -0.15 , -0.5 , -0.15 , 0.15 ,  0.5 , 0.15 }},
+	node_box = {
+		type = "fixed",
+		fixed = {-0.15 , -0.5 , -0.15 , 0.15 ,  0.5 , 0.15  }},
+	on_construct = function(pos)
+	meta=minetest.env:get_meta(pos)
+	meta:set_int("postlike",1)
+	meta:set_int("platform",0)
+	meta:set_int("x1",0)
+	meta:set_int("x2",0)
+	meta:set_int("y1",0)
+	meta:set_int("y2",0)
+	meta:set_int("z1",0)
+	meta:set_int("z2",0)
+	check_post_connections (pos,1)
+	end,
+
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+	check_post_connections  (pos,0)
+	end,
+
+})
+
+local x1,x2,y1,z1,z2
+local count=0
+
+for x1 = 0, 1, 1 do	--x-
+for x2 = 0, 1, 1 do	--x+
+for z1 = 0, 1, 1 do	--z-
+for z2 = 0, 1, 1 do	--z+
+     
+temp_x1={} temp_x2={} temp_z1={} temp_z2={}
+
+if x1==1 then 	temp_x1=post_str_x1  end 
+if x2==1 then 	temp_x2=post_str_x2  end 
+if z1==1 then 	temp_z1=post_str_z1  end 
+if z2==1 then 	temp_z2=post_str_z2  end 
+
+
+minetest.register_node(":technic:concrete_post"..count, {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,not_in_creative_inventory=1,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	drop = "technic:concrete_post",
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {
+		temp_x1,temp_x2,post_str_y,temp_z1,temp_z2,
+		}},
+
+	node_box = {
+		type = "fixed",
+		fixed = {
+		temp_x1,temp_x2,post_str_y,temp_z1,temp_z2,
+		}},
+
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+	check_post_connections  (pos,0)
+	end,
+
+})
+
+minetest.register_node(":technic:concrete_post"..count+16, {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,not_in_creative_inventory=1,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	drop = "technic:concrete_post_platform",
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {
+		platform_box,temp_x1,temp_x2,post_str_y,temp_z1,temp_z2,
+		}},
+
+	node_box = {
+		type = "fixed",
+		fixed = {
+		platform_box,temp_x1,temp_x2,post_str_y,temp_z1,temp_z2,
+		}},
+
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+		dig_post_with_platform (pos,oldnode,oldmetadata)
+	end,
+})
+
+count=count+1 end end end end
+
+minetest.register_node(":technic:concrete_post32", {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,not_in_creative_inventory=1,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	drop = "technic:concrete_post",
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {-0.5,-0.3,-0.1,0.5,0.3,0.1},
+		},
+	node_box = {
+		type = "fixed",
+		fixed = {
+		post_str_x1,post_str_x2,
+		}},
+
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+		check_post_connections  (pos,0)
+	end,
+})
+minetest.register_node(":technic:concrete_post33", {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,not_in_creative_inventory=1,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	drop = "technic:concrete_post",
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {
+		post_str_z1,post_str_z2,
+		}},
+	node_box = {
+		type = "fixed",
+		fixed = {
+		post_str_z1,post_str_z2,
+		}},
+
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+	check_post_connections  (pos,0)
+	end,
+})
+
+minetest.register_node(":technic:concrete_post34", {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,not_in_creative_inventory=1,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	drop = "technic:concrete_post_platform",
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {
+		platform_box,post_str_x1,post_str_x2,
+		}},
+	node_box = {
+		type = "fixed",
+		fixed = {
+		platform_box,post_str_x1,post_str_x2,
+		}},
+
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+		dig_post_with_platform (pos,oldnode,oldmetadata)
+	end,
+})
+minetest.register_node(":technic:concrete_post35", {
+	description = "Concrete Post",
+	tiles = {"technic_concrete_block.png"},
+	groups={cracky=1,level=2,not_in_creative_inventory=1,concrete_post=1},
+	sounds = default.node_sound_stone_defaults(),
+	drop = "technic:concrete_post_platform",
+	paramtype = "light",
+	light_source = 0,
+	sunlight_propagates = true,
+	drawtype = "nodebox", 
+	selection_box = {
+		type = "fixed",
+		fixed = {
+		platform_box,post_str_z1,post_str_z2,
+		}},
+	node_box = {
+		type = "fixed",
+		fixed = {
+		platform_box,post_str_z1,post_str_z2,
+		}},
+	after_dig_node = function (pos, oldnode, oldmetadata, digger)
+		dig_post_with_platform (pos,oldnode,oldmetadata)
+	end,
+})
+
+dig_post_with_platform = function (pos,oldnode,oldmetadata)
+	x1=tonumber(oldmetadata.fields["x1"])
+	x2=tonumber(oldmetadata.fields["x2"])
+	y1=tonumber(oldmetadata.fields["y1"])
+	y2=tonumber(oldmetadata.fields["y2"])
+	z1=tonumber(oldmetadata.fields["z1"])
+	z2=tonumber(oldmetadata.fields["z2"])
+	print(dump(x1))
+	oldmetadata.fields["platform"]="0"
+	local rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,0)
+	print(dump(rule))
+	oldnode.name="technic:concrete_post"..rule
+	minetest.env:set_node(pos,oldnode)
+	meta = minetest.env:get_meta(pos)
+	meta:from_table(oldmetadata)
+end	
+
+check_post_connections = function(pos,mode)
+		local pos1={}
+		pos1.x=pos.x
+		pos1.y=pos.y
+		pos1.z=pos.z
+		tempx1=0
+		tempx2=0
+		tempy1=0
+		tempy2=0
+		tempz1=0
+		tempz2=0
+		
+		pos1.x=pos1.x+1
+		if minetest.env:get_meta(pos1):get_int("postlike")==1 then
+		x2=mode
+		x1=minetest.env:get_meta(pos1):get_int("x1")
+		y1=minetest.env:get_meta(pos1):get_int("y1")
+		y2=minetest.env:get_meta(pos1):get_int("y2")
+		z1=minetest.env:get_meta(pos1):get_int("z1")
+		z2=minetest.env:get_meta(pos1):get_int("z2")
+		platform=minetest.env:get_meta(pos1):get_int("platform")
+		rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,platform)
+		hacky_swap_posts(pos1,"technic:concrete_post"..rule)
+		meta=minetest.env:get_meta(pos1)
+		meta:set_int("x2",x2)
+		tempx1=mode
+		end
+
+		pos1.x=pos1.x-2
+		if minetest.env:get_meta(pos1):get_int("postlike")==1 then
+		x1=mode
+		x2=minetest.env:get_meta(pos1):get_int("x2")
+		y1=minetest.env:get_meta(pos1):get_int("y1")
+		y2=minetest.env:get_meta(pos1):get_int("y2")
+		z1=minetest.env:get_meta(pos1):get_int("z1")
+		z2=minetest.env:get_meta(pos1):get_int("z2")
+		platform=minetest.env:get_meta(pos1):get_int("platform")
+		rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,platform)
+		hacky_swap_posts(pos1,"technic:concrete_post"..rule)
+		meta=minetest.env:get_meta(pos1)
+		meta:set_int("x1",x1)
+		tempx2=mode
+		end
+
+		pos1.x=pos1.x+1
+		
+		pos1.y=pos1.y+1
+		if minetest.env:get_meta(pos1):get_int("postlike")==1 then
+		y2=mode
+		x1=minetest.env:get_meta(pos1):get_int("x1")
+		x2=minetest.env:get_meta(pos1):get_int("x2")
+		y1=minetest.env:get_meta(pos1):get_int("y1")
+		z1=minetest.env:get_meta(pos1):get_int("z1")
+		z2=minetest.env:get_meta(pos1):get_int("z2")
+		platform=minetest.env:get_meta(pos1):get_int("platform")
+		rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,platform)
+		hacky_swap_posts(pos1,"technic:concrete_post"..rule)
+		meta=minetest.env:get_meta(pos1)
+		meta:set_int("y2",y2)
+		tempy1=mode
+		end
+
+		pos1.y=pos1.y-2
+		if minetest.env:get_meta(pos1):get_int("postlike")==1 then
+		y1=mode
+		x1=minetest.env:get_meta(pos1):get_int("x1")
+		x2=minetest.env:get_meta(pos1):get_int("x2")
+		y2=minetest.env:get_meta(pos1):get_int("y2")
+		z1=minetest.env:get_meta(pos1):get_int("z1")
+		z2=minetest.env:get_meta(pos1):get_int("z2")
+		platform=minetest.env:get_meta(pos1):get_int("platform")
+		rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,platform)
+		hacky_swap_posts(pos1,"technic:concrete_post"..rule)
+		meta=minetest.env:get_meta(pos1)
+		meta:set_int("y1",y1)
+		tempy2=mode
+		end
+		pos1.y=pos1.y+1
+
+		pos1.z=pos1.z+1
+		if minetest.env:get_meta(pos1):get_int("postlike")==1 then
+		z2=mode
+		x1=minetest.env:get_meta(pos1):get_int("x1")
+		x2=minetest.env:get_meta(pos1):get_int("x2")
+		y1=minetest.env:get_meta(pos1):get_int("y1")
+		y2=minetest.env:get_meta(pos1):get_int("y2")
+		z1=minetest.env:get_meta(pos1):get_int("z1")
+		platform=minetest.env:get_meta(pos1):get_int("platform")
+		rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,platform)
+		hacky_swap_posts(pos1,"technic:concrete_post"..rule)
+		meta=minetest.env:get_meta(pos1)
+		meta:set_int("z2",z2)
+		tempz1=mode
+		end
+		pos1.z=pos1.z-2
+		
+		if minetest.env:get_meta(pos1):get_int("postlike")==1 then
+		z1=mode
+		x1=minetest.env:get_meta(pos1):get_int("x1")
+		x2=minetest.env:get_meta(pos1):get_int("x2")
+		y1=minetest.env:get_meta(pos1):get_int("y1")
+		y2=minetest.env:get_meta(pos1):get_int("y2")
+		z2=minetest.env:get_meta(pos1):get_int("z2")
+		platform=minetest.env:get_meta(pos1):get_int("platform")
+		rule=make_post_rule_number(x1,x2,y1,y2,z1,z2,platform)
+		hacky_swap_posts(pos1,"technic:concrete_post"..rule)
+		meta=minetest.env:get_meta(pos1)
+		meta:set_int("z1",z1)
+		tempz2=mode
+		end
+		pos1.z=pos1.z+1
+		if mode==1 then 
+			meta=minetest.env:get_meta(pos)
+			meta:set_int("x1",tempx1)
+			meta:set_int("x2",tempx2)
+			meta:set_int("y1",tempy1)
+			meta:set_int("y2",tempy2)
+			meta:set_int("z1",tempz1)
+			meta:set_int("z2",tempz2)
+			rule=make_post_rule_number(tempx1,tempx2,tempy1,tempy2,tempz1,tempz2,0)
+			hacky_swap_posts(pos,"technic:concrete_post"..rule)
+		end
+end	
+
+function make_post_rule_number (x1,x2,y1,y2,z1,z2,platform)
+local tempy=y1+y2
+local tempx=x1+x2
+local tempz=z1+z2
+if platform==0 then 
+	if tempy==0 and tempx==0 and tempz==0 then return 0 end
+	if x1==1 and x2==1 and tempz==0 and tempy==0 then return 32 end
+	if z1==1 and z2==1 and tempx==0 and tempy==0 then return 33 end
+	return z2+z1*2+x2*4+x1*8
+else
+	if tempy==0 and tempx==0 and tempz==0 then return 16 end
+	if x1==1 and x2==1 and tempz==0 and tempy==0 then return 34 end
+	if z1==1 and z2==1 and tempx==0 and tempy==0 then return 35 end
+	return z2+z1*2+x2*4+x1*8+16
+end
+end
+
+function hacky_swap_posts(pos,name)
+	local node = minetest.env:get_node(pos)
+		if node.name == "technic:concrete" then
+		return nil
+	end
+	local meta = minetest.env:get_meta(pos)
+	local meta0 = meta:to_table()
+	node.name = name
+	local meta0 = meta:to_table()
+	minetest.env:set_node(pos,node)
+	meta = minetest.env:get_meta(pos)
+	meta:from_table(meta0)
+	return 1
+end