minetest-mm/mods/bows/init.lua

-- Bows Mod by UjEdwin (edited by TenPlus1)

bows = {
	pvp = minetest.settings:get_bool("enable_pvp"),
	registered_arrows = {},
	registered_bows = {}
}

-- creative check

local creative_mode_cache = minetest.settings:get_bool("creative_mode")

function bows.is_creative(name)
	return creative_mode_cache or minetest.check_player_privs(name, {creative = true})
end

-- register arrow

function bows.register_arrow(name, def)

	if name == nil or name == "" then
		return false
	end

	def.damage = def.damage or 0
	def.name = "bows:" .. name
	def.level = def.level or 1
	def.on_hit_object = def.on_hit_object
	def.on_hit_node = def.on_hit_node
	def.on_hit_sound = def.on_hit_sound or "default_dig_dig_immediate"

	bows.registered_arrows[def.name] = def

	minetest.register_craftitem(":bows:" .. name, {
		description = def.description or name,
		inventory_image = def.texture or "bows_arrow_wooden.png",
		groups = {arrow = 1},
		drop_chance = def.drop_chance
	})

	if def.craft then

		minetest.register_craft({
			output = def.name .." " .. (def.craft_count or 4),
			recipe = def.craft
		})
	end
end

-- register bow

function bows.register_bow(name, def)

	if name == nil or name == "" then
		return false
	end

	def.replace = "bows:" .. name .. "_loaded"
	def.name = "bows:" .. name
	def.uses = def.uses - 1 or 49

	bows.registered_bows[def.replace] = def

	minetest.register_tool(":" .. def.name, {
		description = def.description or name,
		inventory_image = def.texture or "bows_bow.png",
		on_use = bows.load,
		groups = {bow = 1}
	})

	minetest.register_tool(":" .. def.replace, {
		description = def.description or name,
		inventory_image = def.texture_loaded or "bows_bow_loaded.png",
		on_use = bows.shoot,
		groups = {bow = 1, not_in_creative_inventory = 1}
	})

	if def.craft then
		minetest.register_craft({output = def.name,recipe = def.craft})
	end
end

-- load bow

function bows.load(itemstack, user, pointed_thing)

	local inv = user:get_inventory()
	local index = user:get_wield_index() - 1
	local arrow = inv:get_stack("main", index)

	if minetest.get_item_group(arrow:get_name(), "arrow") == 0 then
		return itemstack
	end

	local item = itemstack:to_table()
	local meta = minetest.deserialize(item.metadata)

	meta = {arrow = arrow:get_name()}

	item.metadata = minetest.serialize(meta)
	item.name = item.name .. "_loaded"

	itemstack:replace(item)

	if not bows.is_creative(user:get_player_name()) then
		inv:set_stack("main", index,
				ItemStack(arrow:get_name() .. " " .. (arrow:get_count() - 1)))
	end

	return itemstack
end

-- shoot bow

function bows.shoot(itemstack, user, pointed_thing)

	local item = itemstack:to_table()
	local meta = minetest.deserialize(item.metadata)

	if (not (meta and meta.arrow))
	or (not bows.registered_arrows[meta.arrow]) then
		return itemstack
	end

	local name = itemstack:get_name()
	local replace = bows.registered_bows[name].name
	local ar = bows.registered_bows[name].uses
	local wear = bows.registered_bows[name].uses
	local level = 19 + bows.registered_bows[name].level

	bows.tmp = {}
	bows.tmp.arrow = meta.arrow
	bows.tmp.user = user
	bows.tmp.name = meta.arrow

	item.arrow = ""
	item.metadata = minetest.serialize(meta)
	item.name = replace
	itemstack:replace(item)

	local prop = user:get_properties()
	local pos = user:get_pos() ; pos.y = pos.y + (prop.eye_height or 1.23)
	local dir = user:get_look_dir()
	local is_attached = user:get_attach()

	-- if player riding a mob then increase arrow height so you dont hit mob
	if is_attached then

		local prop = is_attached:get_properties()
		local height = prop and (-prop.collisionbox[2] + prop.collisionbox[5]) or 1

		pos.y = pos.y + height
	end

	local e = minetest.add_entity({x = pos.x, y = pos.y, z = pos.z}, "bows:arrow")

	e:set_velocity({x = dir.x * level, y = dir.y * level, z = dir.z * level})
	e:set_acceleration({x = dir.x * -3, y = -10, z = dir.z * -3})
	e:set_yaw(user:get_look_horizontal() - math.pi/2)

	if not bows.is_creative(user:get_player_name()) then
		itemstack:add_wear(65535 / wear)
	end

	minetest.sound_play("bows_shoot", {pos = pos, max_hear_distance = 10}, true)

	return itemstack
end

-- register items

local path = minetest.get_modpath("bows")

dofile(path .. "/arrow.lua")
dofile(path .. "/items.lua")

-- add lucky blocks

if minetest.get_modpath("lucky_block") then
	dofile(path .. "/lucky_block.lua")
end


print ("[MOD] Bows loaded")