cannons/functions.lua

function canons.destroy(pos,range)
	for x=-range,range do
	for y=-range,range do
	for z=-range,range do
		if x*x+y*y+z*z <= range * range + range then
			local np={x=pos.x+x,y=pos.y+y,z=pos.z+z}
			local n = minetest.env:get_node(np)
			if n.name ~= "air" then
				minetest.env:remove_node(np)
			end
		end
	end
	end
	end
end

function canons.inventory_modified(pos)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	local stack = inv:get_stack("muni", 1)
	local muni = stack:to_table()
	if muni == nil then
		muni = false
	else
		muni = canons.is_muni(muni.name)
	end
	
	local gunpowder = inv:contains_item("gunpowder","canons:gunpowder 1")
	if not muni and not gunpowder then
		meta:set_string("infotext","Canon has no muni and no gunpowder")
	
	elseif not muni then
		meta:set_string("infotext","Canon has no muni")
	
	elseif not gunpowder then
		meta:set_string("infotext","Canon has no gunpowder")
		
	else
		meta:set_string("infotext","Canon is ready")
	end		
end
canons.allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		stack = stack:to_table()
		if listname == "gunpowder" and stack.name == "canons:gunpowder" then	
			return stack.count
		elseif listname == "muni" and canons.is_muni(stack.name) then	
			return stack.count
		else return 0
		end

	end
canons.allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		local stack = inv:get_stack(from_list, from_index)
		stack = stack:to_table()
		if to_list == "gunpowder" and stack.name == "canons:gunpowder" then
			return count
		
		elseif to_list == "muni" and  canons.is_muni(stack.name) then
			return count
		else
			return 0
		end
	end
function canons.fire(pos,node,puncher)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	local stack = inv:get_stack("muni", 1)
	local muni = stack:to_table()
	if inv:contains_item("gunpowder","canons:gunpowder 1") 
	and muni ~= nil 
	and canons.is_muni(muni.name) 
	and inv:contains_item("muni",muni.name.." 1") 
	
	then
		minetest.sound_play("canons_shot",
			{pos = pos, gain = 1.0, max_hear_distance = 32,})
		

		inv:remove_item("muni", muni.name.." 1")
		inv:remove_item("gunpowder", "canons:gunpowder 1")
		canons.inventory_modified(pos)
		local settings = canons.get_settings(muni.name)
		local playerpos=puncher:getpos()
		local obj=minetest.env:add_entity(pos, canons.get_entity(muni.name))
		local dir=puncher:get_look_dir()
		obj:setvelocity({x=dir.x*settings.velocity, y=-1, z=dir.z*settings.velocity})
		obj:setacceleration({x=dir.x*-3, y=-settings.gravity, z=dir.z*-3})
	end
end

function canons.punched(pos, node, puncher)
	if not puncher or not node then
		return
	end
	local wield = puncher:get_wielded_item()
	if not wield then
		return
	end
	wield = wield:get_name()
	if wield and wield == 'default:torch' then
		canons.fire(pos,node,puncher)
	end
end

--++++++++++++++++++++++++++++++++++++
--+ canons.register_muni             +
--++++++++++++++++++++++++++++++++++++

canons.registered_muni = {}

function canons.register_muni(node,entity)
	canons.registered_muni[node] = {}
	canons.registered_muni[node].entity = entity
	canons.registered_muni[node].entity.on_step = function(self, dtime)
		self.timer=self.timer+dtime
		--pr(self.timer,"Timer")
		if self.timer >= 0.3 then --easiesst less laggiest way to find out that it left his start position
			local pos = self.object:getpos()
			local node = minetest.env:get_node(pos)

			if node.name == "air" then
				local objs = minetest.get_objects_inside_radius({x=pos.x,y=pos.y,z=pos.z}, self.range)
				for k, obj in pairs(objs) do
				if obj:get_luaentity() ~= nil then
					if obj:get_luaentity().name ~= self.name and obj:get_luaentity().name ~= "__builtin:item" then --something other found
						local mob = obj
						self.on_mob_hit(self,pos,mob)
						end
					elseif obj:is_player() then --player found
					local player = obj
						self.on_player_hit(self,pos,player)
					end		
				end
			elseif node.name ~=air  then
				self.on_node_hit(self,pos,node)
			end	
			self.lastpos={x=pos.x, y=pos.y, z=pos.z}
		end	
	end
	canons.registered_muni[node].obj = entity.name
	minetest.register_entity(entity.name, canons.registered_muni[node].entity)
end

function canons.is_muni(node)
	return canons.registered_muni[node] ~= nil		
end
function canons.get_entity(node)
	return canons.registered_muni[node].obj		
end
function canons.get_settings(node)
	return canons.registered_muni[node].entity		
end

local apple={
	physical = false,
	timer=0,
	textures = {"default_apple.png"},
	lastpos={},
	damage=-10,
	range=2,
	gravity=10,
	velocity=30,
	name="canons:apple",
	collisionbox = {-0.25,-0.25,-0.25, 0.25,0.25,0.25},
	on_player_hit = function(self,pos,player)
		local playername = player:get_player_name()
		player:punch(self.object, 1.0, {
			full_punch_interval=1.0,
			damage_groups={fleshy=self.damage},
			}, nil)
		self.object:remove()
		minetest.chat_send_player(playername ," this is not an easter egg!")
	end,
	on_mob_hit = function(self,pos,mob)
		self.object:remove()
	end,
	on_node_hit = function(self,pos,node)
		pos = self.lastpos
		minetest.env:set_node({x=pos.x, y=pos.y, z=pos.z},{name="default:apple"})
		minetest.sound_play("canons_hit",
			{pos = pos, gain = 1.0, max_hear_distance = 32,})
		self.object:remove()
	end,

}
canons.register_muni("default:apple",apple)