Add meseblock car. Recolour wheelhubs

README.txt

@@ -1,4 +1,4 @@
-mesecar 0.3.3 by paramat
-For latest stable Minetest and back to 0.4.10
+mesecar 0.4.0 by paramat
+For Minetest 0.4.10 and later
 Depends default
 Licenses: code WTFPL, textures CC BY-SA

init.lua

@@ -1,21 +1,16 @@
--- mesecar 0.3.4 by paramat
--- For latest stable Minetest and back to 0.4.10
--- Depends default
--- Licenses: code WTFPL, textures CC-BY-SA
-
--- Oerkka, nyancar
-
 local ACDC = 0.2 -- Acceleration / decelleration
 local MAXSP = 12 -- Maximum speed
 local TURNSP = 0.03 -- Maximum yaw speed
 local STEPH = 0.6 -- Stepheight, 0.6 = climb slabs, 1.1 = climb nodes
 
+
 -- Functions
 
 local function is_ground(pos)
 	return minetest.registered_nodes[minetest.get_node(pos).name].walkable
 end
 
+
 local function get_sign(i)
 	if i == 0 then
 		return 0
@@ -24,24 +19,27 @@ local function get_sign(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
 
--- Car entity
+
+-- Car entity 1
 
 local car1 = {
 	physical = true,
 	collide_with_objects = true,
 	collisionbox = {-0.53, -0.75, -0.53, 0.53, 0.75, 0.53},
 	visual = "cube",
-	visual_size = {x=1.5, y=1.5},
+	visual_size = {x = 1.5, y = 1.5},
 	textures = { -- top base rightside leftside front back
 		"mesecar_car1top.png",
 		"mesecar_carbase.png",
@@ -57,6 +55,7 @@ local car1 = {
 	removed = false,
 }
 
+
 function car1:on_rightclick(clicker)
 	if not clicker or not clicker:is_player() then
 		return
@@ -78,6 +77,7 @@ function car1:on_rightclick(clicker)
 	end
 end
 
+
 function car1.on_activate(self, staticdata, dtime_s)
 	self.object:set_armor_groups({immortal = 1})
 	if staticdata then
@@ -86,10 +86,12 @@ function car1.on_activate(self, staticdata, dtime_s)
 	self.last_v = self.v
 end
 
+
 function car1.get_staticdata(self)
 	return tostring(self.v)
 end
 
+
 function car1.on_punch(self, puncher, time_from_last_punch, tool_capabilities, direction)
 	if self.driver then
 		self.driver:set_detach()
@@ -107,6 +109,7 @@ function car1.on_punch(self, puncher, time_from_last_punch, tool_capabilities, d
 	end
 end
 
+
 function car1:on_step(dtime)
 	self.v = get_v(self.object:getvelocity()) * get_sign(self.v)
 	if self.driver then
@@ -139,18 +142,19 @@ function car1:on_step(dtime)
 	local s = get_sign(self.v)
 	self.v = self.v - 0.03 * s
 	if s ~= get_sign(self.v) then
-		self.object:setvelocity({x=0, y=0, z=0})
+		self.object:setvelocity({x = 0, y = 0, z = 0})
 		self.v = 0
 		return
 	end
 	if absv > MAXSP then
 		self.v = MAXSP * get_sign(self.v)
 	end
-	self.object:setacceleration({x=0, y=-9.81, z=0})
+	self.object:setacceleration({x = 0, y = -9.81, z = 0})
 	self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), self.object:getvelocity().y))
 	self.object:setpos(self.object:getpos())
 end
 
+
 -- Car entity 2
 
 local car2 = {
@@ -158,7 +162,7 @@ local car2 = {
 	collide_with_objects = true,
 	collisionbox = {-0.53, -0.75, -0.53, 0.53, 0.75, 0.53},
 	visual = "cube",
-	visual_size = {x=1.5, y=1.5},
+	visual_size = {x = 1.5, y = 1.5},
 	textures = { -- top base rightside leftside front back
 		"mesecar_car2top.png",
 		"mesecar_carbase.png",
@@ -174,6 +178,7 @@ local car2 = {
 	removed = false,
 }
 
+
 function car2:on_rightclick(clicker)
 	if not clicker or not clicker:is_player() then
 		return
@@ -195,6 +200,7 @@ function car2:on_rightclick(clicker)
 	end
 end
 
+
 function car2.on_activate(self, staticdata, dtime_s)
 	self.object:set_armor_groups({immortal = 1})
 	if staticdata then
@@ -203,10 +209,12 @@ function car2.on_activate(self, staticdata, dtime_s)
 	self.last_v = self.v
 end
 
+
 function car2.get_staticdata(self)
 	return tostring(self.v)
 end
 
+
 function car2.on_punch(self, puncher, time_from_last_punch, tool_capabilities, direction)
 	if self.driver then
 		self.driver:set_detach()
@@ -224,6 +232,7 @@ function car2.on_punch(self, puncher, time_from_last_punch, tool_capabilities, d
 	end
 end
 
+
 function car2:on_step(dtime)
 	self.v = get_v(self.object:getvelocity()) * get_sign(self.v)
 	if self.driver then
@@ -256,18 +265,19 @@ function car2:on_step(dtime)
 	local s = get_sign(self.v)
 	self.v = self.v - 0.03 * s
 	if s ~= get_sign(self.v) then
-		self.object:setvelocity({x=0, y=0, z=0})
+		self.object:setvelocity({x = 0, y = 0, z = 0})
 		self.v = 0
 		return
 	end
 	if absv > MAXSP then
 		self.v = MAXSP * get_sign(self.v)
 	end
-	self.object:setacceleration({x=0, y=-9.81, z=0})
+	self.object:setacceleration({x = 0, y = -9.81, z = 0})
 	self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), self.object:getvelocity().y))
 	self.object:setpos(self.object:getpos())
 end
 
+
 -- Car entity 3
 
 local car3 = {
@@ -275,7 +285,7 @@ local car3 = {
 	collide_with_objects = true,
 	collisionbox = {-0.53, -0.75, -0.53, 0.53, 0.75, 0.53},
 	visual = "cube",
-	visual_size = {x=1.5, y=1.5},
+	visual_size = {x = 1.5, y = 1.5},
 	textures = { -- top base rightside leftside front back
 		"mesecar_car3top.png",
 		"mesecar_carbase.png",
@@ -291,6 +301,7 @@ local car3 = {
 	removed = false,
 }
 
+
 function car3:on_rightclick(clicker)
 	if not clicker or not clicker:is_player() then
 		return
@@ -312,6 +323,7 @@ function car3:on_rightclick(clicker)
 	end
 end
 
+
 function car3.on_activate(self, staticdata, dtime_s)
 	self.object:set_armor_groups({immortal = 1})
 	if staticdata then
@@ -320,10 +332,12 @@ function car3.on_activate(self, staticdata, dtime_s)
 	self.last_v = self.v
 end
 
+
 function car3.get_staticdata(self)
 	return tostring(self.v)
 end
 
+
 function car3.on_punch(self, puncher, time_from_last_punch, tool_capabilities, direction)
 	if self.driver then
 		self.driver:set_detach()
@@ -341,6 +355,7 @@ function car3.on_punch(self, puncher, time_from_last_punch, tool_capabilities, d
 	end
 end
 
+
 function car3:on_step(dtime)
 	self.v = get_v(self.object:getvelocity()) * get_sign(self.v)
 	if self.driver then
@@ -373,23 +388,149 @@ function car3:on_step(dtime)
 	local s = get_sign(self.v)
 	self.v = self.v - 0.03 * s
 	if s ~= get_sign(self.v) then
-		self.object:setvelocity({x=0, y=0, z=0})
+		self.object:setvelocity({x = 0, y = 0, z = 0})
 		self.v = 0
 		return
 	end
 	if absv > MAXSP then
 		self.v = MAXSP * get_sign(self.v)
 	end
-	self.object:setacceleration({x=0, y=-9.81, z=0})
+	self.object:setacceleration({x = 0, y = -9.81, z = 0})
 	self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), self.object:getvelocity().y))
 	self.object:setpos(self.object:getpos())
 end
 
+
+-- Car entity 4
+
+local car4 = {
+	physical = true,
+	collide_with_objects = true,
+	collisionbox = {-0.53, -0.75, -0.53, 0.53, 0.75, 0.53},
+	visual = "cube",
+	visual_size = {x = 1.5, y = 1.5},
+	textures = { -- top base rightside leftside front back
+		"mesecar_car4top.png",
+		"mesecar_carbase.png",
+		"mesecar_car4rightside.png",
+		"mesecar_car4leftside.png",
+		"mesecar_car4front.png",
+		"mesecar_car4back.png",
+	},
+	stepheight = STEPH,
+	driver = nil,
+	v = 0,
+	last_v = 0,
+	removed = false,
+}
+
+
+function car4: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 = 3, z = -2}, {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 car4.on_activate(self, staticdata, dtime_s)
+	self.object:set_armor_groups({immortal = 1})
+	if staticdata then
+		self.v = tonumber(staticdata)
+	end
+	self.last_v = self.v
+end
+
+
+function car4.get_staticdata(self)
+	return tostring(self.v)
+end
+
+
+function car4.on_punch(self, puncher, time_from_last_punch, tool_capabilities, direction)
+	if self.driver then
+		self.driver:set_detach()
+		local name = self.driver:get_player_name()
+		default.player_attached[name] = false
+		default.player_set_animation(self.driver, "stand" , 30)
+		self.driver = nil
+	end
+	-- delay remove to ensure player is detached
+	minetest.after(0.1, function()
+		self.object:remove()
+	end)
+	if puncher and puncher:is_player() and not minetest.setting_getbool("creative_mode") then
+		puncher:get_inventory():add_item("main", "mesecar:mesecar4")
+	end
+end
+
+
+function car4: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 + ACDC
+		elseif ctrl.down then
+			self.v = self.v - ACDC
+		end
+	end
+	if self.v == 0 and self.object:getvelocity().y == 0 then
+		return
+	end
+	local absv = math.abs(self.v)
+	if self.driver then
+		local ctrl = self.driver:get_player_control()
+		local turn
+		local maxturn = (1 + dtime * 2) * TURNSP
+		if absv < 4 then
+			turn = maxturn * absv / 4
+		else
+			turn = maxturn * (1 - (absv - 4) / 16)
+		end
+		if ctrl.left then
+			self.object:setyaw(self.object:getyaw() + turn)
+		elseif ctrl.right then
+			self.object:setyaw(self.object:getyaw() - turn)
+		end
+	end
+	local s = get_sign(self.v)
+	self.v = self.v - 0.03 * s
+	if s ~= get_sign(self.v) then
+		self.object:setvelocity({x = 0, y = 0, z = 0})
+		self.v = 0
+		return
+	end
+	if absv > MAXSP then
+		self.v = MAXSP * get_sign(self.v)
+	end
+	self.object:setacceleration({x = 0, y = -9.81, z = 0})
+	self.object:setvelocity(get_velocity(self.v, self.object:getyaw(), self.object:getvelocity().y))
+	self.object:setpos(self.object:getpos())
+end
+
+
 -- Register entities
 
 minetest.register_entity("mesecar:mesecar1", car1)
 minetest.register_entity("mesecar:mesecar2", car2)
 minetest.register_entity("mesecar:mesecar3", car3)
+minetest.register_entity("mesecar:mesecar4", car4)
+
 
 -- Items
 
@@ -397,7 +538,7 @@ minetest.register_craftitem("mesecar:mesecar1", {
 	description = "Mese Car 1",
 	inventory_image = "mesecar_car1front.png",
 	wield_image = "mesecar_car1front.png",
-	wield_scale = {x=2, y=2, z=2},
+	wield_scale = {x = 2, y = 2, z = 2},
 	liquids_pointable = true,
 	on_place = function(itemstack, placer, pointed_thing)
 		if pointed_thing.type ~= "node" then
@@ -415,11 +556,12 @@ minetest.register_craftitem("mesecar:mesecar1", {
 	end,
 })
 
+
 minetest.register_craftitem("mesecar:mesecar2", {
 	description = "Mese Car 2",
 	inventory_image = "mesecar_car2front.png",
 	wield_image = "mesecar_car2front.png",
-	wield_scale = {x=2, y=2, z=2},
+	wield_scale = {x = 2, y = 2, z = 2},
 	liquids_pointable = true,
 	on_place = function(itemstack, placer, pointed_thing)
 		if pointed_thing.type ~= "node" then
@@ -437,11 +579,12 @@ minetest.register_craftitem("mesecar:mesecar2", {
 	end,
 })
 
+
 minetest.register_craftitem("mesecar:mesecar3", {
 	description = "Mese Car 3",
 	inventory_image = "mesecar_car3front.png",
 	wield_image = "mesecar_car3front.png",
-	wield_scale = {x=2, y=2, z=2},
+	wield_scale = {x = 2, y = 2, z = 2},
 	liquids_pointable = true,
 	on_place = function(itemstack, placer, pointed_thing)
 		if pointed_thing.type ~= "node" then
@@ -459,3 +602,25 @@ minetest.register_craftitem("mesecar:mesecar3", {
 	end,
 })
 
+
+minetest.register_craftitem("mesecar:mesecar4", {
+	description = "Mese Car 4",
+	inventory_image = "mesecar_car4front.png",
+	wield_image = "mesecar_car4front.png",
+	wield_scale = {x = 2, y = 2, z = 2},
+	liquids_pointable = true,
+	on_place = function(itemstack, placer, pointed_thing)
+		if pointed_thing.type ~= "node" then
+			return
+		end
+		if not is_ground(pointed_thing.under) then
+			return
+		end
+		pointed_thing.under.y = pointed_thing.under.y + 1.25
+		minetest.add_entity(pointed_thing.under, "mesecar:mesecar4")
+		if not minetest.setting_getbool("creative_mode") then
+			itemstack:take_item()
+		end
+		return itemstack
+	end,
+})