fishing/poles.lua

-----------------------------------------------------------------------------------------------
-- Fishing Pole
-----------------------------------------------------------------------------------------------

local function rod_wear(itemstack, user, pointed_thing, uses)
	itemstack:add_wear(65535/(uses-1))
	return itemstack
end


fishing_setting.poles = {}
fishing_setting.poles.wood = {["name"] = "wood", ["max_use"] = 30, ["desc"] = fishing_setting.func.S("Fishing Pole") }
fishing_setting.poles.perfect = {["name"] = "perfect", ["max_use"] = 1500, ["desc"] = fishing_setting.func.S("Perfect Fishing Pole") }


for _,pole in pairs(fishing_setting.poles) do
	minetest.register_tool("fishing:pole_".. pole.name, {
		description = pole.desc,
		groups = {},
		inventory_image = "fishing_pole_".. pole.name ..".png",
		wield_image = "fishing_pole_".. pole.name ..".png^[transformFXR270",
		stack_max = 1,
		liquids_pointable = true,
		
		on_use = function (itemstack, user, pointed_thing)
			if pointed_thing and pointed_thing.under then
				local pt = pointed_thing
				local node = minetest.get_node(pt.under)
				if node.name ~= "default:water_source" and node.name ~= "noairblocks:water_sourcex" and node.name ~= "default:river_water_source" then return nil end
				local player = user:get_player_name()
				local inv = user:get_inventory()
				local bait = inv:get_stack("main", user:get_wield_index()+1 ):get_name()
				if fishing_setting.baits[bait] == nil then return nil end
				
				
				local bobbers = {}
				local objs = minetest.get_objects_inside_radius(pt.under, 3)
				for m, obj in pairs(objs) do
					if obj:get_luaentity() ~= nil and string.find(obj:get_luaentity().name, "fishing:bobber") ~= nil then
						bobbers[m] = obj		
					end
				end
				
				local nodes = {}
				local i = 1
				for _,k in  pairs({ 1, 0, -1}) do
					for _,l in pairs({ -1, 0, 1}) do
						local node_name = minetest.get_node({x=pt.under.x+l, y=pt.under.y, z=pt.under.z+k}).name
						if (node_name == "default:water_source" or node_name == "noairblocks:water_sourcex" or node_name == "default:river_water_source")
						and minetest.get_node({x=pt.under.x+l, y=pt.under.y+1, z=pt.under.z+k}).name == "air" then
							local empty = true
							for o, obj in pairs(bobbers) do
								local p = obj:getpos()
								local dist = ((p.x-pt.under.x)^2 + (p.y-pt.under.y)^2 + (p.z-pt.under.z)^2)^0.5
								if dist < 2 then
									empty = false
									break
								end
							end
							if empty then
								nodes[i] = {x=pt.under.x+l, y=pt.under.y, z=pt.under.z+k}
								i = i+1
							end
						end
					end
				end
				--if water == -3 nodes
				if #nodes < 2 then
					minetest.chat_send_player(player, "You don't fishing in a bottle!!! ")
					return nil
				end
				local new_pos = nodes[math.random(1, #nodes)]
				new_pos.y=new_pos.y+(45/64)
				local ent = minetest.add_entity({interval = 1,x=new_pos.x, y=new_pos.y, z=new_pos.z}, fishing_setting.baits[bait].bobber)
				if not ent then return nil end
				local luaentity = ent:get_luaentity()
				luaentity.owner = player
				luaentity.bait = bait
				luaentity.old_pos = new_pos
				luaentity.old_pos2 = true
				if not fishing_setting.is_creative_mode then
					inv:remove_item("main", bait)
				end
				minetest.sound_play("fishing_bobber2", {pos = new_pos, gain = 0.5})
				
				if fishing_setting.settings["wear_out"] == true and not fishing_setting.is_creative_mode then
					return rod_wear(itemstack, user, pointed_thing, pole.max_use)	
				else
					return {name="fishing:pole_".. pole.name, count=1, wear=0, metadata=""}
				end
			end
			return nil
		end,
		
		
		on_place = function(itemstack, placer, pointed_thing)
			local pt = pointed_thing
			local pt_under_name = minetest.get_node(pt.under).name
			if pt_under_name ~= "default:water_source" and pt_under_name ~= "default:water_flowing" then
				local wear = itemstack:get_wear()
				--print (wear)
				local direction = minetest.dir_to_facedir(placer:get_look_dir())
				--local meta1 = minetest.get_meta(pt.under)
				local meta = minetest.get_meta(pt.above)
				minetest.set_node(pt.above, {name="fishing:pole_".. pole.name .."_deco", param2=direction})
				--meta1:set_int("wear", wear)
				meta:set_int("wear", wear)
				if not fishing_setting.is_creative_mode then
					itemstack:take_item()
				end
			end
			return itemstack
		end,
	})
	



	minetest.register_node("fishing:pole_".. pole.name .."_deco", {
		description = pole.desc,
		inventory_image = "fishing_pole_".. pole.name ..".png",
		wield_image = "fishing_pole.png^[transformFXR270",
		drawtype = "nodebox",
		paramtype = "light",
		paramtype2 = "facedir",
		tiles = {
			"fishing_pole_".. pole.name .."_simple.png",
			"fishing_pole_".. pole.name .."_simple.png",
			"fishing_pole_".. pole.name .."_simple.png",
			"fishing_pole_".. pole.name .."_simple.png^[transformFX",
		},
		groups = { snappy=3, flammable=2, not_in_creative_inventory=1 },
		node_box = {
			type = "fixed",
			fixed = {
				{ 0     , -1/2   ,  0     , 0      ,  1/2   ,  1   },
			}
		},
		selection_box = {
			type = "fixed",
			fixed = {
				{-1/16  , -1/2   ,  0     , 1/16   ,  1/2   ,  1   },
			}
		},
		sounds = default.node_sound_wood_defaults(),
		on_dig = function(pos, node, digger)
			if digger:is_player() and digger:get_inventory() then
				local meta = minetest.get_meta(pos)
				local wear_out = meta:get_int("wear")
				digger:get_inventory():add_item("main", {name="fishing:pole_".. pole.name, count=1, wear=wear_out, metadata=""})
			end
			minetest.remove_node(pos)
		end,
	})

end