first commit

README.txt

@@ -0,0 +1,19 @@
+
+Minetest mod: lib_mount
+=======================
+by blert2112
+
+Based on the Boats mod by PilzAdam.
+
+
+-----------------------------------------------------------
+-----------------------------------------------------------
+
+
+Minetest Game mod: boats
+========================
+by PilzAdam
+
+License of source code:
+-----------------------
+WTFPL

depends.txt

@@ -0,0 +1 @@
+default

init.lua

@@ -0,0 +1,174 @@
+--
+-- Helper functions
+--
+
+local function is_group(pos, group)
+	local nn = minetest.get_node(pos).name
+	return minetest.get_item_group(nn, group) ~= 0
+end
+
+local function get_sign(i)
+	i = i or 0
+	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
+
+local function force_detach(player)
+	local attached_to = player:get_attach()
+	if attached_to and attached_to:get_luaentity() then
+		local entity = attached_to:get_luaentity()
+		if entity.driver then
+			entity.driver = nil
+		end
+		player:set_detach()
+	end
+	default.player_attached[player:get_player_name()] = false
+end
+
+-------------------------------------------------------------------------------
+
+
+minetest.register_on_leaveplayer(function(player)
+	force_detach(player)
+end)
+
+minetest.register_on_shutdown(function()
+    local players = minetest.get_connected_players()
+	for i = 1,#players do
+		force_detach(players[i])
+	end
+end)
+
+minetest.register_on_dieplayer(function(player)
+	force_detach(player)
+	return true
+end)
+
+-------------------------------------------------------------------------------
+
+
+lib_mount = {}
+
+function lib_mount.attach(entity, player, attach_at)
+	force_detach(player)
+	entity.driver = player
+	player:set_attach(entity.object, "", attach_at, {x=0, y=0, z=0})
+	default.player_attached[player:get_player_name()] = true
+	minetest.after(0.2, function()
+		default.player_set_animation(player, "sit" , 30)
+	end)
+	entity.object:setyaw(player:get_look_yaw() - math.pi / 2)
+end
+
+function lib_mount.detach(entity, player, offset)
+	entity.driver = nil
+	player:set_detach()
+	default.player_attached[player:get_player_name()] = false
+	default.player_set_animation(player, "stand" , 30)
+	local pos = player:getpos()
+	pos = {x = pos.x + offset.x, y = pos.y + 0.2 + offset.y, z = pos.z + offset.z}
+	minetest.after(0.1, function()
+		player:setpos(pos)
+	end)
+end
+
+function lib_mount.drive(entity, dtime, moving_anim, still_anim)
+	entity.v = get_v(entity.object:getvelocity()) * get_sign(entity.v)
+	
+	local ctrl = entity.driver:get_player_control()
+	local yaw = entity.object:getyaw()
+	if ctrl.up then
+		entity.v = entity.v + 0.1
+	elseif ctrl.down then
+		entity.v = entity.v - 0.1
+	end
+	if ctrl.left then
+		if entity.v < 0 then
+			entity.object:setyaw(yaw - (1 + dtime) * 0.03)
+		else
+			entity.object:setyaw(yaw + (1 + dtime) * 0.03)
+		end
+	elseif ctrl.right then
+		if entity.v < 0 then
+			entity.object:setyaw(yaw + (1 + dtime) * 0.03)
+		else
+			entity.object:setyaw(yaw - (1 + dtime) * 0.03)
+		end
+	end
+	
+	local velo = entity.object:getvelocity()
+	if entity.v == 0 and velo.x == 0 and velo.y == 0 and velo.z == 0 then
+		set_animation(entity, still_anim)
+		entity.object:setpos(entity.object:getpos())
+		return
+	end
+	set_animation(entity, moving_anim)
+	local s = get_sign(entity.v)
+	entity.v = entity.v - 0.02 * s
+	if s ~= get_sign(entity.v) then
+		entity.object:setvelocity({x = 0, y = 0, z = 0})
+		entity.v = 0
+		return
+	end
+	if math.abs(entity.v) > 5 then
+		entity.v = 5 * get_sign(entity.v)
+	end
+
+	local p = entity.object:getpos()
+	p.y = p.y - 0.5
+	local new_velo = {x = 0, y = 0, z = 0}
+	local new_acce = {x = 0, y = 0, z = 0}
+	if not is_group(p, "crumbly") then
+		local nodedef = minetest.registered_nodes[minetest.get_node(p).name]
+		if (not nodedef) or nodedef.walkable then
+			entity.v = 0
+			new_acce = {x = 0, y = 1, z = 0}
+		else
+			new_acce = {x = 0, y = -9.8, z = 0}
+		end
+		new_velo = get_velocity(entity.v, entity.object:getyaw(),
+			entity.object:getvelocity().y)
+		entity.object:setpos(entity.object:getpos())
+	else
+		p.y = p.y + 1
+		if is_group(p, "crumbly") then
+			local y = entity.object:getvelocity().y
+			if y >= 5 then
+				y = 5
+			elseif y < 0 then
+				new_acce = {x = 0, y = 20, z = 0}
+			else
+				new_acce = {x = 0, y = 5, z = 0}
+			end
+			new_velo = get_velocity(entity.v, entity.object:getyaw(), y)
+			entity.object:setpos(entity.object:getpos())
+		else
+			new_acce = {x = 0, y = 0, z = 0}
+			if math.abs(entity.object:getvelocity().y) < 1 then
+				local pos = entity.object:getpos()
+				pos.y = math.floor(pos.y) + 0.5
+				entity.object:setpos(pos)
+				new_velo = get_velocity(entity.v, entity.object:getyaw(), 0)
+			else
+				new_velo = get_velocity(entity.v, entity.object:getyaw(),
+					entity.object:getvelocity().y)
+				entity.object:setpos(entity.object:getpos())
+			end
+		end
+	end
+	entity.object:setvelocity(new_velo)
+	entity.object:setacceleration(new_acce)
+end