NYANLAND_HEIGHT=30688
NYANCAT_PROP=1
NYANLAND_TREESIZE=2

local nyanland={}

--Cloudstone
minetest.register_node("nyanland:cloudstone", {
	drawtype = "allfaces_optional",
	tile_images = {"nyanland_cloudstone.png"},
	inventory_image = minetest.inventorycube("nyanland_cloudstone.png"),
	dug_item = '',
	light_source = 10,
	groups = {dig_immediate = 3},
})

-- MESE Leaves
minetest.register_node("nyanland:meseleaves", {
	drawtype = "allfaces_optional",
	visual_scale = 2,
	tile_images = {"nyanland_meseleaves.png"},
	inventory_image = minetest.inventorycube("nyanland_meseleaves.png"),
	paramtype = "light",
	furnace_burntime = 5,
	groups = {snappy=3, leafdecay=3, flammable=2},
})

-- Clonestone
minetest.register_node("nyanland:clonestone", {
	tile_images = {"nyanland_clonestone.png"},
	inventory_image = minetest.inventorycube("nyanland_clonestone.png"),
	furnace_burntime = 100,
	groups = {cracky = 1},
})

-- Clone items
minetest.register_abm(
	{nodenames = {"nyanland:clonestone"},
	interval = 1.0,
	chance = 1,
	action = function(pos, node, active_object_count, active_object_count_wider)
		local pos_over ={x=pos.x, y=pos.y+1, z=pos.z}
		local pos_under={x=pos.x, y=pos.y-1, z=pos.z}
		if minetest.get_node(pos_under).name=="air" then
			minetest.add_node(pos_under, {name=minetest.get_node(pos_over).name})
		end
		nodeupdate(pos_under)
	end,
})

-- Healstone
minetest.register_node("nyanland:healstone", {
	tile_images = {"nyanland_healstone.png"},
	inventory_image = minetest.inventorycube("nyanland_healstone.png"),
	furnace_burntime = 100,
	groups = {cracky = 1},
})

-- Clone items
minetest.register_abm(
	{nodenames = {"nyanland:healstone"},
	interval = 1.0,
	chance = 1,
	action = function(pos, node, active_object_count, active_object_count_wider)
		local objs = minetest.get_objects_inside_radius(pos, 3)
		for k, obj in pairs(objs) do
			obj:set_hp(obj:get_hp()+2)
		end
	end,
})

minetest.register_on_generated(function(minp, maxp)
	local addpos={}
	if minp.y==NYANLAND_HEIGHT then
		for x=minp.x, maxp.x, 1 do
			for z=minp.z, maxp.z, 1 do
				addpos={x=x, y=minp.y, z=z}
				minetest.add_node(addpos, {name="nyanland:cloudstone"})
				if math.random(1000)==1 then
					nyanland:grow_mesetree(addpos)
				elseif math.random(5000)==1 then
					minetest.add_node(addpos,{name="nyanland:clonestone"})
				end
			end
		end

		if math.random(NYANCAT_PROP)==1 then
			local nyan_headpos={}
			nyan_headpos={x=minp.x+math.random(80), y=minp.y+math.random(20)+10, z=minp.z+math.random(80)}
			nyanland:add_nyancat(nyan_headpos, minp)
		end
	end

end)

function nyanland:add_nyancat(nyan_headpos)
	local nyan_tailpos={}
	minetest.add_node(nyan_headpos, {name="default:nyancat"})
	local length=math.random(4,15)
	for z=nyan_headpos.z+1, nyan_headpos.z+length, 1 do
		nyan_tailpos={x=nyan_headpos.x, y=nyan_headpos.y, z=z}
		minetest.add_node(nyan_tailpos, {name="default:nyancat_rainbow"})
	end
end

function nyanland:grow_mesetree(pos)
	--TRUNK
	pos.y=pos.y+1
	local trunkpos={x=pos.x, z=pos.z}
	for y=pos.y, pos.y+4+math.random(2) do
		trunkpos.y=y
		if math.random(200)>1 then
			minetest.add_node(trunkpos, {name="default:mese_block"})
		else
			minetest.add_node(trunkpos, {name="nyanland:healstone"})
		end
	end
	--LEAVES
	local leafpos={}
	for x=(trunkpos.x-NYANLAND_TREESIZE), (trunkpos.x+NYANLAND_TREESIZE), 1 do
       		for y=(trunkpos.y-NYANLAND_TREESIZE), (trunkpos.y+NYANLAND_TREESIZE), 1 do
       			for z=(trunkpos.z-NYANLAND_TREESIZE), (trunkpos.z+NYANLAND_TREESIZE), 1 do
		       		if (x-trunkpos.x)*(x-trunkpos.x)
				+(y-trunkpos.y)*(y-trunkpos.y)
				+(z-trunkpos.z)*(z-trunkpos.z)
				<= NYANLAND_TREESIZE*NYANLAND_TREESIZE + NYANLAND_TREESIZE then
					leafpos={x=x, y=y, z=z}
					if minetest.get_node(leafpos).name=="air" then
						if math.random(5)==1 then
							minetest.add_node(leafpos, {name="default:apple"})
						else
							minetest.add_node(leafpos, {name="nyanland:meseleaves"})
						end
					end
				end
			end
		end
	end
end

--MOVING NYAN CATS
minetest.register_abm(
	{nodenames = {"default:nyancat"},
	interval = 1.0,
	chance = 10,
	action = function(pos, node, active_object_count, active_object_count_wider)
		if pos.y>NYANLAND_HEIGHT then
			minetest.remove_node(pos)
			local meseentity = minetest.add_entity(pos, "nyanland:head_entity")

			local tailpos={x=pos.x, y=pos.y, z=pos.z+1}
			while minetest.get_node(tailpos).name=="default:nyancat_rainbow" do
				minetest.remove_node(tailpos)
				minetest.add_entity(tailpos, "nyanland:tail_entity")
				tailpos.z=tailpos.z+1
			end
		end
	end,
})

minetest.register_entity("nyanland:head_entity", {
	physical = false,
	visual = "sprite",
	timer=0,
	textures = {"default_nc_side.png", "default_nc_side.png", "default_nc_side.png",
		"default_nc_side.png", "default_nc_back.png", "default_nc_front.png"},
	collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
	visual = "cube",
	on_activate = function(self, staticdata)
		self.object:setvelocity({x=0, y=0, z=-2})
	end,

	on_punch = function(self, hitter)
		local mesepos=self.object:getpos()
		mesepos.y=mesepos.y-1
		minetest.add_entity(mesepos, "nyanland:mese")
	end,

	on_step = function(self, dtime)
		self.timer=self.timer+dtime
		if self.timer>=16 then
			minetest.add_node(self.object:getpos(), {name="default:nyancat"})
			self.object:remove()
		end
	end
})

minetest.register_entity("nyanland:tail_entity", {
	physical = false,
	visual = "sprite",
	timer=0,
	textures = {"default_nc_rb.png", "default_nc_rb.png", "default_nc_rb.png", "default_nc_rb.png", "default_nc_rb.png", "default_nc_rb.png"},
	collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
	visual = "cube",
	on_activate = function(self, staticdata)
		self.object:setvelocity({x=0, y=0, z=-2})
	end,

	on_step = function(self, dtime)
		self.timer=self.timer+dtime
		if self.timer>10 then
			minetest.add_node(self.object:getpos(), {name="default:nyancat_rainbow"})
			self.object:remove()
		end
	end
})

minetest.register_entity("nyanland:mese", {
	physical = true,
	collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
	visual = "cube",
	textures = {"default_mese.png","default_mese.png","default_mese.png","default_mese.png","default_mese.png","default_mese.png"},
	on_activate = function(self)
		self.object:setvelocity({x=0, y=-.1, z =0})
	end,
	on_step = function(self, dtime)
		self.object:setacceleration({x=0, y=-10, z=0})
		local pos = self.object:getpos()
		local bcp = {x=pos.x, y=pos.y-0.7, z=pos.z}
		local bcn = minetest.get_node(bcp)
		--if bcn.name ~= "air" then
		--	local np = {x=bcp.x, y=bcp.y+1, z=bcp.z}
		if self.object:getvelocity().y == 0 then
			minetest.add_node(self.object:getpos(), {name="default:mese_block"})
			self.object:remove()
		end
		--
		--end
	end
})