Add boats

mods/boats/README.txt

+Minetest 0.4 mod: boats
+=======================
+by PilzAdam, slightly modified for NeXt
+
+License of source code:
+-----------------------
+WTFPL
+
+License of media (textures and sounds):
+---------------------------------------
+WTFPL
+
+Authors of media files:
+-----------------------
+textures: Zeg9
+model: thetoon and Zeg9, modified by PavelS(SokolovPavel)

mods/boats/depends.txt

+default

mods/boats/init.lua

+
+--
+-- Helper functions
+--
+
+local function is_water(pos)
+	local nn = minetest.env:get_node(pos).name
+	return minetest.get_item_group(nn, "water") ~= 0
+end
+
+local function get_sign(i)
+	if i == 0 then
+		return 0
+	else
+		return i/math.abs(i)
+	end
+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
+
+local function get_v(v)
+	return math.sqrt(v.x^2+v.z^2)
+end
+
+--
+-- Boat entity
+--
+
+local boat = {
+	physical = true,
+	collisionbox = {-0.6,-0.4,-0.6, 0.6,0.3,0.6},
+	visual = "mesh",
+	mesh = "boat.x",
+	textures = {"default_wood.png"},
+	
+	driver = nil,
+	v = 0,
+}
+
+function boat:on_rightclick(clicker)
+	if not clicker or not clicker:is_player() then
+		return
+	end
+	local name = clicker:get_player_name()
+	if self.driver and clicker == self.driver then
+		self.driver = nil
+		clicker:set_detach()
+		default.player_attached[name] = false
+		default.player_set_animation(clicker, "stand" , 30)
+	elseif not self.driver then
+		self.driver = clicker
+		clicker:set_attach(self.object, "", {x=0,y=11,z=-3}, {x=0,y=0,z=0})
+		default.player_attached[name] = true
+		minetest.after(0.2, function()
+			default.player_set_animation(clicker, "sit" , 30)
+		end)
+		self.object:setyaw(clicker:get_look_yaw()-math.pi/2)
+	end
+end
+
+function boat:on_activate(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(puncher, time_from_last_punch, tool_capabilities, direction)
+	self.object:remove()
+	if puncher and puncher:is_player() then
+		puncher:get_inventory():add_item("main", "boats:boat")
+	end
+end
+
+function boat:on_step(dtime)
+	self.v = get_v(self.object:getvelocity())*get_sign(self.v)
+	if self.driver then
+		local ctrl = self.driver:get_player_control()
+		if ctrl.up then
+			self.v = self.v+0.1
+		end
+		if ctrl.down then
+			self.v = self.v-0.08
+		end
+		if ctrl.left then
+			if ctrl.down then 
+				self.object:setyaw(self.object:getyaw()-math.pi/120-dtime*math.pi/120)
+			else
+				self.object:setyaw(self.object:getyaw()+math.pi/120+dtime*math.pi/120)
+			end
+		end
+		if ctrl.right then
+			if ctrl.down then 
+				self.object:setyaw(self.object:getyaw()+math.pi/120+dtime*math.pi/120)
+			else
+				self.object:setyaw(self.object:getyaw()-math.pi/120-dtime*math.pi/120)
+			end
+		end
+	end
+	local s = get_sign(self.v)
+	self.v = self.v - 0.02*s
+	if s ~= get_sign(self.v) then
+		self.object:setvelocity({x=0, y=0, z=0})
+		self.v = 0
+		return
+	end
+	if math.abs(self.v) > 4.5 then
+		self.v = 4.5*get_sign(self.v)
+	end
+	
+	local p = self.object:getpos()
+	p.y = p.y-0.5
+	if not is_water(p) then
+		if minetest.registered_nodes[minetest.env:get_node(p).name].walkable then
+			self.v = 0
+		end
+		self.object:setacceleration({x=0, y=-10, z=0})
+		self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), self.object:getvelocity().y))
+	else
+		p.y = p.y+1
+		if is_water(p) then
+			self.object:setacceleration({x=0, y=3, z=0})
+			local y = self.object:getvelocity().y
+			if y > 2 then
+				y = 2
+			end
+			if y < 0 then
+				self.object:setacceleration({x=0, y=10, z=0})
+			end
+			self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), y))
+		else
+			self.object:setacceleration({x=0, y=0, z=0})
+			if math.abs(self.object:getvelocity().y) < 1 then
+				local pos = self.object:getpos()
+				pos.y = math.floor(pos.y)+0.5
+				self.object:setpos(pos)
+				self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), 0))
+			else
+				self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), self.object:getvelocity().y))
+			end
+		end
+	end
+end
+
+minetest.register_entity("boats:boat", boat)
+
+
+minetest.register_craftitem("boats:boat", {
+	description = "Boat",
+	inventory_image = "boat_inventory.png",
+	wield_image = "boat_wield.png",
+	wield_scale = {x=2, y=2, z=1},
+	liquids_pointable = true,
+	
+	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.env:add_entity(pointed_thing.under, "boats:boat")
+		itemstack:take_item()
+		return itemstack
+	end,
+})
+
+minetest.register_craft({
+	output = "boats:boat",
+	recipe = {
+		{"", "", ""},
+		{"group:wood", "", "group:wood"},
+		{"group:wood", "group:wood", "group:wood"},
+	},
+})

mods/default/player.lua

@@ -84,6 +84,7 @@ local player_model = {}
 local player_textures = {}
 local player_anim = {}
 local player_sneak = {}
+default.player_attached = {}
 
 function default.player_get_animation(player)
 	local name = player:get_player_name()
@@ -140,6 +141,7 @@ end
 
 -- Update appearance when the player joins
 minetest.register_on_joinplayer(function(player)
+	default.player_attached[player:get_player_name()] = false
 	default.player_set_model(player, "character.x")
 	player:set_local_animation({x=0, y=79}, {x=168, y=187}, {x=189, y=198}, {x=200, y=219}, 30)
 	
@@ -171,7 +173,7 @@ minetest.register_globalstep(function(dtime)
 		local name = player:get_player_name()
 		local model_name = player_model[name]
 		local model = model_name and models[model_name]
-		if model then
+		if model and not default.player_attached[name] then
 			local controls = player:get_player_control()
 			local walking = false
 			local animation_speed_mod = model.animation_speed or 30