MineClone2/mods/mcl_boats/init.lua

--
-- Helper functions
--
local init = os.clock()

local function is_water(pos)
	local nn = minetest.get_node(pos).name
	return minetest.get_item_group(nn, "water") ~= 0
end

local function get_velocity(v, yaw, y)
	local x = -math.sin(yaw)*v
	local z = math.cos(yaw)*v
	return {x=x, y=y, z=z}
end

--
-- boat entity
--
local boat = {
	physical = true,
	collisionbox = {-1,-0.5,-1, 1,0.5,1},
	visual = "mesh",
	mesh = "mcl_boats_base.x",

	_driver = nil,
	_v = 0,
	_stepcount = 0,
	_unattended = 0
}

function boat.on_rightclick(self, clicker)
	if not clicker or not clicker:is_player() then
		return
	end
	if self._driver and clicker == self._driver then
		self._driver = nil
		clicker:set_detach()
	elseif not self._driver then
		self._driver = clicker
		clicker:set_attach(self.object, "", {x=0,y=5,z=0}, {x=0,y=0,z=0})
		self.object:setyaw(clicker:get_look_yaw())
	end
end

function boat.on_activate(self, staticdata, dtime_s)
	self.object:set_armor_groups({immortal=1})
	if staticdata then
		self._v = tonumber(staticdata)
	end
end

function boat.get_staticdata()
	return tostring(v)
end

function boat.on_punch(self, puncher, time_from_last_punch, tool_capabilities, direction)

	 if self._driver then
		self._driver:set_detach()
		self._driver = nil
		if not minetest.setting_getbool("creative_mode") then
			puncher:get_inventory():add_item("main", "mcl_boats:boat")
		end
		self.object:remove()
	else

		if not minetest.setting_getbool("creative_mode") then
			puncher:get_inventory():add_item("main", "mcl_boats:boat")
		end
		self.object:remove()
	
	end
end

function boat.on_step(self, dtime)

	self._stepcount=self._stepcount+1
	if self._stepcount>9 then
	
		self._stepcount=0
		
		if self._driver then
			local ctrl = self._driver:get_player_control()

			self._unattended=0
		
			local yaw = self.object:getyaw()

			if ctrl.up and self._v<3 then
				self._v = self._v + 1
			end
			
			if ctrl.down and self._v>=-1 then
				self._v = self._v - 1
			end	
			
			if ctrl.left then
				if ctrl.down then
					self.object:setyaw(yaw-math.pi/12-dtime*math.pi/12)
				else
					self.object:setyaw(yaw+math.pi/12+dtime*math.pi/12)
				end
			end
			if ctrl.right then
				if ctrl.down then
					self.object:setyaw(yaw+math.pi/12+dtime*math.pi/12)
				else
					self.object:setyaw(yaw-math.pi/12-dtime*math.pi/12)
				end
			end
		end

		local tmp_velocity = get_velocity(self._v, self.object:getyaw(), 0)

		local tmp_pos = self.object:getpos()

		tmp_velocity.y=0

		if is_water(tmp_pos) then
			tmp_velocity.y=2
		end

		tmp_pos.y=tmp_pos.y-0.5

		if minetest.get_node(tmp_pos).name=="air" then
			tmp_velocity.y=-2
		end

		self.object:setvelocity(tmp_velocity)

	end
	
end

local woods = { "", "_spruce", "_birch", "_jungle", "_dark", "_acacia" }
local names = { "Oak Boat", "Spruce Boat", "Birch Boat", "Jungle Boat", "Dark Oak Boat", "Acacia Boat" }
local craftstuffs = { "default:wood", "default:sprucewood", "default:birchwood", "default:junglewood", "default:darkwood", "default:acaciawood" }

for w=1, #woods do
	textures = {"mcl_boats_texture.png"},
	minetest.register_entity("mcl_boats:boat"..woods[w], boat)

	minetest.register_craftitem("mcl_boats:boat"..woods[w], {
		description = names[w],
		inventory_image = "mcl_boats_inventory.png",
		liquids_pointable = true,
		groups = { boat = 1, transport = 1},
		stack_max = 1,
		on_place = function(itemstack, placer, pointed_thing)
			if pointed_thing.type ~= "node" then
				return
			end
			if not is_water(pointed_thing.under) then
				return
			end
			pointed_thing.under.y = pointed_thing.under.y+0.5
			minetest.add_entity(pointed_thing.under, "mcl_boats:boat"..woods[w])
			if not minetest.setting_getbool("creative_mode") then
				itemstack:take_item()
			end
			return itemstack
		end,
	})

	local c = craftstuffs[w]
	minetest.register_craft({
		output = "mcl_boats:boat"..woods[w],
		recipe = {
			{c, "", c},
			{c, c, c},
		},
	})
end

minetest.register_craft({
	type = "fuel",
	recipe = "group:boat",
	burntime = 20,
})

local time_to_load= os.clock() - init
print(string.format("[MOD] "..minetest.get_current_modname().." loaded in %.4f s", time_to_load))